texlive[62588] Build/source/texk/web2c/cwebdir: [CWEB] CWEAVE needs a

commits+ascherer at tug.org commits+ascherer at tug.org
Thu Mar 10 15:03:17 CET 2022


Revision: 62588
          http://tug.org/svn/texlive?view=revision&revision=62588
Author:   ascherer
Date:     2022-03-10 15:03:16 +0100 (Thu, 10 Mar 2022)
Log Message:
-----------
[CWEB] CWEAVE needs a little help.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/cwebdir/common.w
    trunk/Build/source/texk/web2c/cwebdir/ctang-w2c.ch
    trunk/Build/source/texk/web2c/cwebdir/ctangle.w
    trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
    trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch
    trunk/Build/source/texk/web2c/cwebdir/cweav-w2c.ch
    trunk/Build/source/texk/web2c/cwebdir/cweave.w

Modified: trunk/Build/source/texk/web2c/cwebdir/common.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/common.w	2022-03-10 12:31:43 UTC (rev 62587)
+++ trunk/Build/source/texk/web2c/cwebdir/common.w	2022-03-10 14:03:16 UTC (rev 62588)
@@ -919,7 +919,7 @@
       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);

Modified: trunk/Build/source/texk/web2c/cwebdir/ctang-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctang-w2c.ch	2022-03-10 12:31:43 UTC (rev 62587)
+++ trunk/Build/source/texk/web2c/cwebdir/ctang-w2c.ch	2022-03-10 14:03:16 UTC (rev 62588)
@@ -319,10 +319,10 @@
 @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
 

Modified: trunk/Build/source/texk/web2c/cwebdir/ctangle.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctangle.w	2022-03-10 12:31:43 UTC (rev 62587)
+++ trunk/Build/source/texk/web2c/cwebdir/ctangle.w	2022-03-10 14:03:16 UTC (rev 62588)
@@ -666,7 +666,7 @@
         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 @@
             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...@>
       }

Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch	2022-03-10 12:31:43 UTC (rev 62587)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch	2022-03-10 14:03:16 UTC (rev 62588)
@@ -1556,7 +1556,7 @@
       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 @@
         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 @@
       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 @@
         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 @@
 @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.

Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch	2022-03-10 12:31:43 UTC (rev 62587)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch	2022-03-10 14:03:16 UTC (rev 62588)
@@ -1099,10 +1099,10 @@
 @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
 

Modified: trunk/Build/source/texk/web2c/cwebdir/cweav-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweav-w2c.ch	2022-03-10 12:31:43 UTC (rev 62587)
+++ trunk/Build/source/texk/web2c/cwebdir/cweav-w2c.ch	2022-03-10 14:03:16 UTC (rev 62588)
@@ -523,10 +523,10 @@
 @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
 

Modified: trunk/Build/source/texk/web2c/cwebdir/cweave.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweave.w	2022-03-10 12:31:43 UTC (rev 62587)
+++ trunk/Build/source/texk/web2c/cwebdir/cweave.w	2022-03-10 14:03:16 UTC (rev 62588)
@@ -948,7 +948,7 @@
   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 @@
         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 @@
       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 @@
         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 @@
     switch (b) {
     case ' ': case '\\': case '#': case '%': case '$': case '^':
     case '{': case '}': case '~': case '&': case '_':
-      out('\\'); @=/* falls through */@>
+      out('\\'); @=/* falls through */@>@;
 @.\\\ @>
 @.\\\\@>
 @.\\\#@>
@@ -4355,7 +4355,7 @@
         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 @@
   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:



More information about the tex-live-commits mailing list.