Diff for 'end' -> 'endcases'

tex-endcases.diff

--- tex.web	2019-09-09 14:16:36.022037462 -0700
+++ tex2.web	2019-12-13 09:39:24.865189980 -0800
@@ -1956,7 +1956,7 @@
   end;
 "R":print_esc("nonstopmode");
 "S":print_esc("scrollmode");
-end; {there are no other cases}
+endcases; {there are no other cases}
 print("..."); print_ln; update_terminal; return;
 end
 
@@ -4256,13 +4256,13 @@
   0:print("vertical");
   1:print("horizontal");
   2:print("display math");
-  end
+  endcases
 else if m=0 then print("no")
 else  case (-m) div (max_command+1) of
   0:print("internal vertical");
   1:print("restricted horizontal");
   2:print("math");
-  end;
+  endcases;
 print(" mode");
 end;
 
@@ -4434,7 +4434,7 @@
 2: if a.int<>null then
   begin print("this will be denominator of:"); show_box(a.int);@+
   end;
-end {there are no other cases}
+endcases {there are no other cases}
 
 @* \[17] The table of equivalents.
 Now that we have studied the data structures for \TeX's semantic routines,
@@ -6612,7 +6612,7 @@
     end;
   absorbing: begin print("text"); p:=def_ref;
     end;
-  end; {there are no other cases}
+  endcases; {there are no other cases}
   print_char("?");print_ln; show_token_list(link(p),null,error_line-10);
   end;
 end;
@@ -7208,7 +7208,7 @@
   end;
 absorbing:begin print("text"); info(p):=right_brace_token+"}";
   end;
-end; {there are no other cases}
+endcases; {there are no other cases}
 ins_list(p)
 
 @ We need to mention a procedure here that may be called by |get_next|.
@@ -8524,13 +8524,13 @@
       begin cur_val:=glue_ptr(tail);
       if subtype(tail)=mu_glue then cur_val_level:=mu_val;
       end;
-    end {there are no other cases}
+    endcases {there are no other cases}
   else if (mode=vmode)and(tail=head) then
     case cur_chr of
     int_val: cur_val:=last_penalty;
     dimen_val: cur_val:=last_kern;
     glue_val: if last_glue<>max_halfword then cur_val:=last_glue;
-    end; {there are no other cases}
+    endcases; {there are no other cases}
   end
 
 @ @<Fetch a font dimension@>=
@@ -8551,7 +8551,7 @@
 dimen_val:cur_val:=dimen(cur_val);
 glue_val: cur_val:=skip(cur_val);
 mu_val: cur_val:=mu_skip(cur_val);
-end; {there are no other cases}
+endcases; {there are no other cases}
 cur_val_level:=m;
 end
 
@@ -9179,7 +9179,7 @@
     end;
   mu_val: begin print_spec(cur_val,"mu"); delete_glue_ref(cur_val);
     end;
-  end; {there are no other cases}
+  endcases; {there are no other cases}
   selector:=old_setting; the_toks:=str_toks(b);
   end;
 end;
@@ -9259,7 +9259,7 @@
   end;
 font_name_code: scan_font_ident;
 job_name_code: if job_name=0 then open_log_file;
-end {there are no other cases}
+endcases {there are no other cases}
 
 @ @<Print the result of command |c|@>=
 case c of
@@ -9275,7 +9275,7 @@
     end;
   end;
 job_name_code: print(job_name);
-end {there are no other cases}
+endcases {there are no other cases}
 
 @ Now we can't postpone the difficulties any longer; we must bravely tackle
 |scan_toks|. This function returns a pointer to the tail of a new token
@@ -9755,7 +9755,7 @@
 if_false_code: b:=false;
 if_case_code: @<Select the appropriate case
   and |return| or |goto common_ending|@>;
-end {there are no other cases}
+endcases {there are no other cases}
 
 @ @<Display the value of |b|@>=
 begin begin_diagnostic;
@@ -9783,7 +9783,7 @@
 "<": b:=(n<cur_val);
 "=": b:=(n=cur_val);
 ">": b:=(n>cur_val);
-end;
+endcases;
 end
 
 @ @<Test if an integer is odd@>=
@@ -13704,7 +13704,7 @@
   end;
 right_noad: begin print_esc("right"); print_delimiter(delimiter(p));
   end;
-end;
+endcases;
 if subtype(p)<>normal then
   if subtype(p)=limits then print_esc("limits")
   else print_esc("nolimits");
@@ -14358,7 +14358,7 @@
 1: choose_mlist(text_mlist); {|text_style=2|}
 2: choose_mlist(script_mlist); {|script_style=4|}
 3: choose_mlist(script_script_mlist); {|script_script_style=6|}
-end; {there are no other cases}
+endcases; {there are no other cases}
 flush_node_list(display_mlist(q));
 flush_node_list(text_mlist(q));
 flush_node_list(script_mlist(q));
@@ -20032,7 +20032,7 @@
   else app_space;
 hmode+ex_space,mmode+ex_space: goto append_normal_space;
 @t\4@>@<Cases of |main_control| that are not part of the inner loop@>@;
-end; {of the big |case| statement}
+endcases; {end of the big |case| statement}
 goto big_switch;
 main_loop:@<Append character |cur_chr| and the following characters (if~any)
   to the current hlist in the current font; |goto reswitch| when
@@ -20582,7 +20582,7 @@
 fil_neg_code: cur_val:=fil_neg_glue;
 skip_code: scan_glue(glue_val);
 mskip_code: scan_glue(mu_val);
-end; {now |cur_val| points to the glue specification}
+endcases; {now |cur_val| points to the glue specification}
 tail_append(new_glue(cur_val));
 if s>=skip_code then
   begin decr(glue_ref_count(cur_val));
@@ -20719,7 +20719,7 @@
 semi_simple_group: print_esc("endgroup");
 math_shift_group: print_char("$");
 math_left_group: print_esc("right");
-end;@/
+endcases;@/
 help5("I've deleted a group-closing symbol because it seems to be")@/
 ("spurious, as in `$x}$'. But perhaps the } is legitimate and")@/
 ("you forgot something else, as in `\hbox{$x}'. In such cases")@/
@@ -21411,7 +21411,7 @@
 1:post_break(tail):=p;
 2:@<Attach list |p| to the current list, and record its length;
   then finish up and |return|@>;
-end; {there are no other cases}
+endcases; {there are no other cases}
 incr(saved(-1)); new_save_level(disc_group); scan_left_brace;
 push_nest; mode:=-hmode; space_factor:=1000;
 exit:end;
@@ -22146,7 +22146,7 @@
 2:script_mlist(tail):=p;
 3:begin script_script_mlist(tail):=p; decr(save_ptr); return;
   end;
-end; {there are no other cases}
+endcases; {there are no other cases}
 incr(saved(-1)); push_math(math_choice_group); scan_left_brace;
 exit:end;
 
@@ -22258,7 +22258,7 @@
   end;
 over_code: thickness(incompleat_noad):=default_code;
 atop_code: thickness(incompleat_noad):=0;
-end {there are no other cases}
+endcases {there are no other cases}
 
 @ @<Ignore the fraction...@>=
 begin if c>=delimited_code then
@@ -22897,7 +22897,7 @@
     skip_def_code: define(p,assign_glue,skip_base+cur_val);
     mu_skip_def_code: define(p,assign_mu_glue,mu_skip_base+cur_val);
     toks_def_code: define(p,assign_toks,toks_base+cur_val);
-    end; {there are no other cases}
+    endcases; {there are no other cases}
     end
   endcases;
   end;
@@ -23105,7 +23105,7 @@
 dimen_val: l:=cur_val+scaled_base;
 glue_val: l:=cur_val+skip_base;
 mu_val: l:=cur_val+mu_skip_base;
-end; {there are no other cases}
+endcases; {there are no other cases}
 end;
 found: