diff options
Diffstat (limited to 'Build/source/texk/web2c/cwebdir/ctwill-w2c.ch')
-rw-r--r-- | Build/source/texk/web2c/cwebdir/ctwill-w2c.ch | 32 |
1 files changed, 19 insertions, 13 deletions
diff --git a/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch b/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch index e87b31170a1..682e2c0e039 100644 --- a/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch +++ b/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch @@ -500,11 +500,11 @@ ccode['r']=ccode['R']=right_start; @z @x -static eight_bits skip_TeX(void);@/ +static eight_bits skip_TeX(void); @ @c @y -static eight_bits skip_TeX(void);@/ +static eight_bits skip_TeX(void); @ We look for a clue about the program's title, because this will become part of all meanings. @@ -899,17 +899,15 @@ null_scrap.trans=&tok_start[0]; @z @x -static void print_text(text_pointer p);@/ -@y -#if 0 -static void print_text(text_pointer p);@/ -#endif -@z +@d inner_tok_flag 5*id_flag /* signifies a token list in `\pb' */ -@x +@c static void print_text(@t\1\1@> /* prints a token list for debugging; not used in |main| */ @y +@d inner_tok_flag 5*id_flag /* signifies a token list in `\pb' */ + +@c #if 0 static void print_text(@t\1\1@> /* prints a token list for debugging; not used in |main| */ @@ -929,6 +927,15 @@ print_text(@t\1\1@> /* prints a token list for debugging; not used in |main| */ @z @x +@ @<Predecl...@>=@+static void print_text(text_pointer p); +@y +@ @<Predecl...@>= +#if 0 +static void print_text(text_pointer p); +#endif +@z + +@x the |for| loop below. @c @@ -1633,7 +1640,7 @@ placed on the list, unless they are reserved and their current } @ @<Output information about usage of id's defined in other sections@>= -{@+struct perm_meaning *q; +{ struct perm_meaning *q; while (temp_meaning_ptr>temp_meaning_stack) { out_mini(--temp_meaning_ptr); q=temp_meaning_ptr->id-name_dir+cur_meaning; @@ -1647,9 +1654,6 @@ placed on the list, unless they are reserved and their current } } -@ @<Predec...@>= -static void out_mini(meaning_struct *);@/ - @ @c static void out_mini( meaning_struct *m) @@ -1669,6 +1673,8 @@ out_mini( out(' '); out_str(m->tex_part); finish_line(); } +@ @<Predec...@>=@+static void out_mini(meaning_struct *); + @ @<Mini-output...@>= switch (cur_name->ilk) { case normal: case func_template: if (length(cur_name)==1) out_str("\\|"); |