From 0adedce60757702ba089ba626135d391f75f06ea Mon Sep 17 00:00:00 2001 From: Andreas Scherer Date: Thu, 10 Mar 2022 14:03:16 +0000 Subject: [CWEB] CWEAVE needs a little help. git-svn-id: svn://tug.org/texlive/trunk@62588 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/cwebdir/common.w | 2 +- Build/source/texk/web2c/cwebdir/ctang-w2c.ch | 4 ++-- Build/source/texk/web2c/cwebdir/ctangle.w | 4 ++-- Build/source/texk/web2c/cwebdir/ctwill-mini.ch | 16 ++++++++-------- Build/source/texk/web2c/cwebdir/ctwill-w2c.ch | 4 ++-- Build/source/texk/web2c/cwebdir/cweav-w2c.ch | 4 ++-- Build/source/texk/web2c/cwebdir/cweave.w | 18 +++++++++--------- 7 files changed, 26 insertions(+), 26 deletions(-) (limited to 'Build/source') diff --git a/Build/source/texk/web2c/cwebdir/common.w b/Build/source/texk/web2c/cwebdir/common.w index fca446c40e1..be110e5c334 100644 --- a/Build/source/texk/web2c/cwebdir/common.w +++ b/Build/source/texk/web2c/cwebdir/common.w @@ -919,7 +919,7 @@ switch(section_name_cmp(&first,name_len,r)) { err_print(">"); } else if (name_len + @=/* fall through */@>@; case equal: break; case extension: if (!ispref || first<=last) extend_section_name(r,first,last+1,ispref); diff --git a/Build/source/texk/web2c/cwebdir/ctang-w2c.ch b/Build/source/texk/web2c/cwebdir/ctang-w2c.ch index ed91b9d7e5d..6d74d1997a6 100644 --- a/Build/source/texk/web2c/cwebdir/ctang-w2c.ch +++ b/Build/source/texk/web2c/cwebdir/ctang-w2c.ch @@ -319,10 +319,10 @@ case output_defs_code: if (t!=section_name) err_print(_("! Misplaced @@h")); @z @x - } @=/* otherwise fall through */@> + } @=/* otherwise fall through */@>@; default: err_print("! Double @@ should be used in limbo"); @y - } @=/* otherwise fall through */@> + } @=/* otherwise fall through */@>@; default: err_print(_("! Double @@ should be used in limbo")); @z diff --git a/Build/source/texk/web2c/cwebdir/ctangle.w b/Build/source/texk/web2c/cwebdir/ctangle.w index a0f7cc17d4a..0d242eaaea2 100644 --- a/Build/source/texk/web2c/cwebdir/ctangle.w +++ b/Build/source/texk/web2c/cwebdir/ctangle.w @@ -666,7 +666,7 @@ restart: else out_state=verbatim; break; case '/': C_putc('/'); out_state=post_slash; break; case '*': if (out_state==post_slash) C_putc(' '); - @=/* fall through */@> + @=/* fall through */@>@;@; default: C_putc(cur_char); out_state=normal; break; } } @@ -1510,7 +1510,7 @@ skip_limbo(void) err_print("! Double @@ should be used in control text"); @.Double @@ should be used...@> break; - } @=/* otherwise fall through */@> + } @=/* otherwise fall through */@>@; default: err_print("! Double @@ should be used in limbo"); @.Double @@ should be used...@> } diff --git a/Build/source/texk/web2c/cwebdir/ctwill-mini.ch b/Build/source/texk/web2c/cwebdir/ctwill-mini.ch index 0411aad1d06..d9efec059fd 100644 --- a/Build/source/texk/web2c/cwebdir/ctwill-mini.ch +++ b/Build/source/texk/web2c/cwebdir/ctwill-mini.ch @@ -1556,7 +1556,7 @@ Section 233--234. case end_translation: return; case identifier: case res_word: @@; break; case section_code: @@; break; - case math_rel: out_str("\\MRL{"@q}@>); @=/* fall through */@> + case math_rel: out_str("\\MRL{"@q}@>); @=/* fall through */@>@; @.\\MRL@> case noop: case inserted: break; case cancel: case big_cancel: c=0; b=a; @@ -1578,11 +1578,11 @@ Section 233--234. if (a!=big_force) { out_str("\\1\\1"); goto reswitch; } - else dindent_pending=true; @=/* fall through */@> + else dindent_pending=true; @=/* fall through */@>@; case indent: case outdent: case opt: case backup: case break_space: case force: case big_force: case preproc_line: @@; break; - case quoted_char: out(*(cur_tok++)); @=/* fall through */@> + case quoted_char: out(*(cur_tok++)); @=/* fall through */@>@; case qualifier: break; default: out(a); /* otherwise |a| is an ordinary character */ } @@ -1598,7 +1598,7 @@ Section 233--234. case end_translation: return; case identifier: case res_word: @@; break; case section_code: @@; break; - case math_rel: out_str("\\MRL{"@q}@>); @=/* fall through */@> + case math_rel: out_str("\\MRL{"@q}@>); @=/* fall through */@>@; @.\\MRL@> case noop: case inserted: break; case cancel: case big_cancel: c=0; b=a; @@ -1620,11 +1620,11 @@ Section 233--234. if (a!=big_force) { out_str("\\1\\1"); goto reswitch; } - else dindent_pending=true; @=/* fall through */@> + else dindent_pending=true; @=/* fall through */@>@; case indent: case outdent: case opt: case backup: case break_space: case force: case big_force: case preproc_line: @@; break; - case quoted_char: out(*(cur_tok++)); @=/* fall through */@> + case quoted_char: out(*(cur_tok++)); @=/* fall through */@>@; case qualifier: break; default: out(a); /* otherwise |a| is an ordinary character */ } @@ -1673,12 +1673,12 @@ Section 240. @x case ' ': case '\\': case '#': case '%': case '$': case '^': case '{': case '}': case '~': case '&': case '_': - out('\\'); @=/* falls through */@> + out('\\'); @=/* falls through */@>@; @y case ' ': case '\\': case '#': case '%': @/ case '$': case '^': case '{': case '}': @/ case '~': case '&': case '_': @/ - out('\\'); @=/* falls through */@> + out('\\'); @=/* falls through */@>@; @z Section 242. diff --git a/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch b/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch index 1a8da3c0b80..9924a47946e 100644 --- a/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch +++ b/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch @@ -1099,10 +1099,10 @@ flush_buffer(out_ptr,false,false); @z @x - } @=/* otherwise fall through */@> + } @=/* otherwise fall through */@>@; default: err_print("! Improper macro definition"); break; @y - } @=/* otherwise fall through */@> + } @=/* otherwise fall through */@>@; default: err_print(_("! Improper macro definition")); break; @z diff --git a/Build/source/texk/web2c/cwebdir/cweav-w2c.ch b/Build/source/texk/web2c/cwebdir/cweav-w2c.ch index 2d9a5c24360..2f776674788 100644 --- a/Build/source/texk/web2c/cwebdir/cweav-w2c.ch +++ b/Build/source/texk/web2c/cwebdir/cweav-w2c.ch @@ -523,10 +523,10 @@ if (show_progress) fputs(_("\nWriting the output file..."),stdout); @z @x - } @=/* otherwise fall through */@> + } @=/* otherwise fall through */@>@; default: err_print("! Improper macro definition"); break; @y - } @=/* otherwise fall through */@> + } @=/* otherwise fall through */@>@; default: err_print(_("! Improper macro definition")); break; @z diff --git a/Build/source/texk/web2c/cwebdir/cweave.w b/Build/source/texk/web2c/cwebdir/cweave.w index 501528d4fe4..f23baa3dabc 100644 --- a/Build/source/texk/web2c/cwebdir/cweave.w +++ b/Build/source/texk/web2c/cwebdir/cweave.w @@ -948,7 +948,7 @@ switch(ccode[c=*loc++]) { case verbatim: @@; case ord: @@; case xref_roman: case xref_wildcard: case xref_typewriter: case noop: - case TeX_string: skip_restricted(); @=/* fall through */@> + case TeX_string: skip_restricted(); @=/* fall through */@>@; default: return ccode[c]; } @@ -2535,12 +2535,12 @@ text_pointer p) if (name_dir[r].ilk==case_like) return case_found; if (name_dir[r].ilk==operator_like) return operator_found; if (name_dir[r].ilk!=raw_int) break; - @=/* else fall through */@> + @=/* else fall through */@>@; case 1: return j; case 4: case 5: /* |tok_flag| or |inner_tok_flag| */ if ((q=find_first_ident(tok_start+r))!=no_ident_found) return q; - @=/* else fall through */@> + @=/* else fall through */@>@; default: ; /* char, |section_flag|, fall thru: move on to next token */ if (*j==inserted) return no_ident_found; /* ignore inserts */ else if (*j==qualifier) j++; /* bypass namespace qualifier */ @@ -3921,7 +3921,7 @@ make_output(void) /* outputs the equivalents of tokens */ case end_translation: return; case identifier: case res_word: @@; break; case section_code: @@; break; - case math_rel: out_str("\\MRL{"@q}@>); @=/* fall through */@> + case math_rel: out_str("\\MRL{"@q}@>); @=/* fall through */@>@; @.\\MRL@> case noop: case inserted: break; case cancel: case big_cancel: c=0; b=a; @@ -3943,11 +3943,11 @@ make_output(void) /* outputs the equivalents of tokens */ if (a!=big_force) { out_str("\\1\\1"); goto reswitch; } - else dindent_pending=true; @=/* fall through */@> + else dindent_pending=true; @=/* fall through */@>@; case indent: case outdent: case opt: case backup: case break_space: case force: case big_force: case preproc_line: @@; break; - case quoted_char: out(*(cur_tok++)); @=/* fall through */@> + case quoted_char: out(*(cur_tok++)); @=/* fall through */@>@; case qualifier: break; default: out(a); /* otherwise |a| is an ordinary character */ } @@ -4102,7 +4102,7 @@ while (k + out('\\'); @=/* falls through */@>@; @.\\\ @> @.\\\\@> @.\\\#@> @@ -4355,7 +4355,7 @@ it starts after we scan the matching `\.)'. app_scrap(raw_int,no_math); if ((next_control=get_next())==')') { app(next_control); next_control=get_next(); break; - } @=/* otherwise fall through */@> + } @=/* otherwise fall through */@>@; default: err_print("! Improper macro definition"); break; } app('$'); @@ -4788,7 +4788,7 @@ lowcase: out_str("\\\\"); case wildcard: out_str("\\9");@+ goto not_an_identifier; @.\\9@> case typewriter: out_str("\\."); - @=/* fall through */@> + @=/* fall through */@>@; @.\\.@> case roman: not_an_identifier: out_name(cur_name,false); goto name_done; case custom: -- cgit v1.2.3