summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/cwebdir
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2022-03-10 14:03:16 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2022-03-10 14:03:16 +0000
commit0adedce60757702ba089ba626135d391f75f06ea (patch)
treeaa82497b93708f4fde9e0d9955bea6225c14a9c9 /Build/source/texk/web2c/cwebdir
parent224ea68696c0c8e95363c793edc679e2e0cfc886 (diff)
[CWEB] CWEAVE needs a little help.
git-svn-id: svn://tug.org/texlive/trunk@62588 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/cwebdir')
-rw-r--r--Build/source/texk/web2c/cwebdir/common.w2
-rw-r--r--Build/source/texk/web2c/cwebdir/ctang-w2c.ch4
-rw-r--r--Build/source/texk/web2c/cwebdir/ctangle.w4
-rw-r--r--Build/source/texk/web2c/cwebdir/ctwill-mini.ch16
-rw-r--r--Build/source/texk/web2c/cwebdir/ctwill-w2c.ch4
-rw-r--r--Build/source/texk/web2c/cwebdir/cweav-w2c.ch4
-rw-r--r--Build/source/texk/web2c/cwebdir/cweave.w18
7 files changed, 26 insertions, 26 deletions
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<prefix_length(r)) set_prefix_length(r,name_len);
- @=/* fall through */@>
+ @=/* 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: @<Output an identifier@>@; break;
case section_code: @<Output a section name@>@; 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: @<Output a control,
look ahead in case of line breaks, possibly |goto reswitch|@>@; 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: @<Output an identifier@>@; break;
case section_code: @<Output a section name@>@; 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: @<Output a control,
look ahead in case of line breaks, possibly |goto reswitch|@>@; 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: @<Scan a verbatim string@>@;
case ord: @<Get a string@>@;
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: @<Output an identifier@>@; break;
case section_code: @<Output a section name@>@; 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: @<Output a control,
look ahead in case of line breaks, possibly |goto reswitch|@>@; 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<k_limit) {
switch (b) {
case ' ': case '\\': case '#': case '%': case '$': case '^':
case '{': case '}': case '~': case '&': case '_':
- out('\\'); @=/* falls through */@>
+ 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: