texlive[71678] Build/source/texk/web2c/hitexdir/hitex.w: [HiTeX] Fix

[commits+ascherer at tug.org]

Revision: 71678
          https://tug.org/svn/texlive?view=revision&revision=71678
Author:   ascherer
Date:     2024-07-01 19:04:43 +0200 (Mon, 01 Jul 2024)
Log Message:
-----------
[HiTeX] Fix some very obscure spacing errors.

In some rare cases, CWEAVE inserts '\7' instead of '\6' after
preprocessor commands (maybe related to '@!' as well).

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/hitexdir/hitex.w

Modified: trunk/Build/source/texk/web2c/hitexdir/hitex.w
===================================================================
--- trunk/Build/source/texk/web2c/hitexdir/hitex.w	2024-07-01 16:54:29 UTC (rev 71677)
+++ trunk/Build/source/texk/web2c/hitexdir/hitex.w	2024-07-01 17:04:43 UTC (rev 71678)
@@ -5707,8 +5707,9 @@
 @ Here is a procedure that displays the contents of |eqtb[n]|
 symbolically.
 
- at p @t\4@>@<Declare the procedure called |print_cmd_chr|@>@;@/
+ at p @<Declare the procedure called |print_cmd_chr|@>@;
 #ifdef @!STAT
+ at +@t}\6\4\4{@>
 static void show_eqtb(pointer @!n)
 {@+if (n < active_base) print_char('?'); /*this can't happen*/
 else if (n < glue_base) @<Show equivalent |n|, in region 1 or 2@>@;
@@ -10794,6 +10795,7 @@
 {@+return make_name_string();
 }
 #ifdef @!INIT
+ at +@t}\6\4\4{@>
 static str_number w_make_name_string(word_file *f)
 {@+return make_name_string();
 }
@@ -32109,7 +32111,7 @@
   output_file_name=make_name_string();
   DBG(DBGBASIC,"Output file %s opened\n",(char *)name_of_file+1);
 }
-
+@#
 #define HITEX_VERSION "1.1"
 static void  hput_definitions();
 extern int option_global;
@@ -35167,8 +35169,9 @@
 {@+f->f=open_out((char *)name_of_file+1,"wb");
 return f->f!=NULL && ferror(f->f)==0;@+
 }
-
+@#
 #ifdef @!INIT
+ at +@t}\6\4\4{@>
 static bool w_open_out(word_file *f)  /*open a word file for output*/
 {@+f->f=open_out((char *)name_of_file+1,"wb");
    return f->f!=NULL && ferror(f->f)==0;@+