diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2024-07-01 17:04:43 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2024-07-01 17:04:43 +0000 |
commit | 3c360c7398fefaaefd3978bb36ae789f47fc8583 (patch) | |
tree | 177005627b255a080c84c74d333aa364bd61e93c /Build/source/texk/web2c | |
parent | a91586b507d4f290cdbf2abea91f742dadd415c5 (diff) |
[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).
git-svn-id: svn://tug.org/texlive/trunk@71678 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c')
-rw-r--r-- | Build/source/texk/web2c/hitexdir/hitex.w | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/hitexdir/hitex.w b/Build/source/texk/web2c/hitexdir/hitex.w index d9eb157d012..7351c672e2d 100644 --- a/Build/source/texk/web2c/hitexdir/hitex.w +++ b/Build/source/texk/web2c/hitexdir/hitex.w @@ -5707,8 +5707,9 @@ print_char('=');print_scaled(eqtb[n].sc);print("pt"); @ Here is a procedure that displays the contents of |eqtb[n]| symbolically. -@p @t\4@>@<Declare the procedure called |print_cmd_chr|@>@;@/ +@p @<Declare the procedure called |print_cmd_chr|@>@; #ifdef @!STAT +@+@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 @@ static str_number b_make_name_string(byte_file *f) {@+return make_name_string(); } #ifdef @!INIT +@+@t}\6\4\4{@> static str_number w_make_name_string(word_file *f) {@+return make_name_string(); } @@ -32109,7 +32111,7 @@ static void hint_open(void) 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 @@ static bool b_open_out(byte_file *f) /*open a binary file for output*/ {@+f->f=open_out((char *)name_of_file+1,"wb"); return f->f!=NULL && ferror(f->f)==0;@+ } - +@# #ifdef @!INIT +@+@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;@+ |