OSDN Git Service

binding with libharu.
[putex/putex.git] / src / texsourc / tex7.c
index ed3c267..d8d54ff 100644 (file)
 /* sec 0944 */
 void build_page (void) 
 {
-  halfword p; 
-  halfword q, r; 
-  integer b, c; 
-  integer pi; 
+  halfword p;
+  halfword q, r;
+  integer b, c;
+  integer pi;
 /*  unsigned char n;  */
   unsigned int n;             /* 95/Jan/7 */
-  scaled delta, h, w; 
+  scaled delta, h, w;
 
 /* begin if (link(contrib_head)=null)or output_active then return; l.19351 */
   if ((mem[contrib_head].hh.v.RH == 0)|| output_active)
     return; 
   do {
-      lab22: p = mem[contrib_head].hh.v.RH; 
+lab22:
+    p = mem[contrib_head].hh.v.RH;
 /*    if (last_glue != 262143L) */
     if (last_glue != empty_flag)
       delete_glue_ref(last_glue);
     last_penalty = 0;
     last_kern = 0;
-    if (mem[p].hh.b0 == 10)
-    {
+    if (mem[p].hh.b0 == 10) {
       last_glue = mem[p + 1].hh.v.LH; 
       incr(mem[last_glue].hh.v.RH); 
-    } 
-    else {
-  
+    } else {
 /*      last_glue = 262143L;  */
-      last_glue = empty_flag; 
+      last_glue = empty_flag;
       if (mem[p].hh.b0 == 12)
-        last_penalty = mem[p + 1].cint; 
+        last_penalty = mem[p + 1].cint;
       else if (mem[p].hh.b0 == 11)
-        last_kern = mem[p + 1].cint; 
-    } 
-    switch(mem[p].hh.b0)
+        last_kern = mem[p + 1].cint;
+    }
+    switch (mem[p].hh.b0)
     {
-      case 0 :
-      case 1 :
-      case 2 :
-        if (page_contents < 2)
-        {
+      case 0:
+      case 1:
+      case 2:
+        if (page_contents < 2) {
           if (page_contents == 0)
             freeze_page_specs(2);
           else
@@ -77,25 +74,24 @@ void build_page (void)
           mem[q].hh.v.RH = p;
           mem[contrib_head].hh.v.RH = q;
           goto lab22;
-      } 
-      else {
+      } else {
         page_so_far[1]= page_so_far[1]+ page_so_far[7]+ mem[p + 3].cint;
         page_so_far[7]= mem[p + 2].cint; 
         goto lab80; 
-      } 
+      }
       break; 
-    case 8 :
+    case 8:
       goto lab80;
       break; 
-    case 10 :
+    case 10:
       if (page_contents < 2)
         goto lab31; 
       else if ((mem[page_tail].hh.b0 < 9)) 
-        pi = 0; 
+        pi = 0;
       else
-        goto lab90; 
+        goto lab90;
       break;
-    case 11 : 
+    case 11:
       if (page_contents < 2)
         goto lab31;
       else if (mem[p].hh.v.RH == 0)
@@ -105,16 +101,16 @@ void build_page (void)
       else
         goto lab90;
       break; 
-    case 12 : 
+    case 12:
       if (page_contents < 2)
         goto lab31; 
       else
         pi = mem[p + 1].cint; 
       break; 
-    case 4 : 
+    case 4:
       goto lab80; 
       break; 
-    case 3 : 
+    case 3:
       {
         if (page_contents == 0)
           freeze_page_specs(1);
@@ -122,12 +118,12 @@ void build_page (void)
         r = mem_top;
         while(n >= mem[mem[r].hh.v.RH].hh.b1)
           r = mem[r].hh.v.RH;
-        n = n; 
+        n = n;
         if (mem[r].hh.b1 != n)
         {
           q = get_node(4);
           mem[q].hh.v.RH = mem[r].hh.v.RH;
-          mem[r].hh.v.RH = q; 
+          mem[r].hh.v.RH = q;
           r = q;
           mem[r].hh.b1 = n;
           mem[r].hh.b0 = 0;
@@ -145,17 +141,16 @@ void build_page (void)
           page_so_far[0]= page_so_far[0]- h - mem[q + 1].cint; 
           page_so_far[2 + mem[q].hh.b0]= page_so_far[2 + mem[q].hh.b0]+ mem[q + 2].cint; 
           page_so_far[6]= page_so_far[6]+ mem[q + 3].cint; 
-          if ((mem[q].hh.b1 != 0)&&(mem[q + 3].cint != 0)) 
-          {
-                       print_err("Infinite glue shrinkage inserted from");
+          if ((mem[q].hh.b1 != 0)&&(mem[q + 3].cint != 0)) {
+            print_err("Infinite glue shrinkage inserted from");
             print_esc("skip");
             print_int(n);
-                       help3("The correction glue for page breaking with insertions",
-                               "must have finite shrinkability. But you may proceed,",
-                               "since the offensive shrinkability has been made finite."); 
-            error (); 
-          } 
-        } 
+            help3("The correction glue for page breaking with insertions",
+              "must have finite shrinkability. But you may proceed,",
+              "since the offensive shrinkability has been made finite.");
+            error();
+          }
+        }
         if (mem[r].hh.b0 == 1)
           insert_penalties = insert_penalties + mem[p + 1].cint; 
         else {
@@ -169,8 +164,7 @@ void build_page (void)
           {
             page_so_far[0]= page_so_far[0]- h; 
             mem[r + 3].cint = mem[r + 3].cint + mem[p + 3].cint; 
-          } 
-          else {
+          } else {
             if (eqtb[(hash_size + 3218) + n].cint <= 0)
               w = 1073741823L;  /* 2^30 - 1 */
             else {
@@ -186,7 +180,7 @@ void build_page (void)
 #ifdef STAT
             if (eqtb[(hash_size + 3196)].cint > 0)
             {
-              begin_diagnostic (); 
+              begin_diagnostic(); 
               print_nl("% split");
               print_int(n); 
               print_string(" to");
@@ -250,10 +244,10 @@ void build_page (void)
 #ifdef STAT
       if (eqtb[(hash_size + 3196)].cint > 0)
       {
-        begin_diagnostic (); 
+        begin_diagnostic(); 
         print_nl("%");
         print_string(" t=");
-        print_totals (); 
+        print_totals(); 
         print_string(" g=");
         print_scaled(page_so_far[0]); 
         print_string(" b=");
@@ -274,110 +268,110 @@ void build_page (void)
 #endif /* STAT */
       if (c <= least_page_cost)
       {
-  best_page_break = p; 
-  best_size = page_so_far[0]; 
-  least_page_cost = c; 
-  r = mem[mem_top].hh.v.RH; 
-  while (r != mem_top) {
-    mem[r + 2].hh.v.LH = mem[r + 2].hh.v.RH; 
-    r = mem[r].hh.v.RH; 
-  } 
-      } 
+        best_page_break = p;
+        best_size = page_so_far[0];
+        least_page_cost = c;
+        r = mem[mem_top].hh.v.RH;
+        while (r != mem_top) {
+          mem[r + 2].hh.v.LH = mem[r + 2].hh.v.RH;
+          r = mem[r].hh.v.RH;
+        }
+      }
       if ((c == 1073741823L)||(pi <= -10000))  /* 2^30 - 1 */
       {
-  fire_up(p); 
-  if (output_active)return; 
-  goto lab30; 
+        fire_up(p);
+        if (output_active)
+          return;
+        goto lab30;
       } 
     } 
-    if ((mem[p].hh.b0 < 10)||(mem[p].hh.b0 > 11)) 
-    goto lab80; 
-    lab90: if (mem[p].hh.b0 == 11)
-    q = p; 
+    if ((mem[p].hh.b0 < 10)||(mem[p].hh.b0 > 11))
+      goto lab80; 
+lab90:
+    if (mem[p].hh.b0 == 11)
+      q = p; 
     else {
       q = mem[p + 1].hh.v.LH; 
-      page_so_far[2 + mem[q].hh.b0]= page_so_far[2 + mem[q].hh.b0]
-      + mem[q + 2].cint; 
+      page_so_far[2 + mem[q].hh.b0] = page_so_far[2 + mem[q].hh.b0] + mem[q + 2].cint; 
       page_so_far[6]= page_so_far[6]+ mem[q + 3].cint; 
-      if ((mem[q].hh.b1 != 0)&&(mem[q + 3].cint != 0)) 
-      {
-                 print_err("Infinite glue shrinkage found on current page");
-                 help4("The page about to be output contains some infinitely",
-                         "shrinkable glue, e.g., `\\vss' or `\\vskip 0pt minus 1fil'.",
-                         "Such glue doesn't belong there; but you can safely proceed,",
-                         "since the offensive shrinkability has been made finite.");
-  error (); 
-  r = new_spec(q); 
-  mem[r].hh.b1 = 0; 
-  delete_glue_ref(q); 
-  mem[p + 1].hh.v.LH = r; 
-  q = r; 
-      } 
-    } 
-    page_so_far[1]= page_so_far[1]+ page_so_far[7]+ mem[q + 1].cint 
- ; 
-    page_so_far[7]= 0; 
-    lab80: if (page_so_far[7]> page_max_depth)
-    {
-      page_so_far[1]= page_so_far[1]+ page_so_far[7]- page_max_depth; 
-      page_so_far[7]= page_max_depth; 
-    } 
-    mem[page_tail].hh.v.RH = p; 
-    page_tail = p; 
-    mem[contrib_head].hh.v.RH = mem[p].hh.v.RH; 
-    mem[p].hh.v.RH = 0; 
-    goto lab30; 
-    lab31: mem[contrib_head].hh.v.RH = mem[p].hh.v.RH; 
-    mem[p].hh.v.RH = 0; 
-    flush_node_list(p); 
-    lab30:; 
-  } while(!(mem[contrib_head].hh.v.RH == 0)); 
+      if ((mem[q].hh.b1 != 0)&&(mem[q + 3].cint != 0)) {
+        print_err("Infinite glue shrinkage found on current page");
+        help4("The page about to be output contains some infinitely",
+          "shrinkable glue, e.g., `\\vss' or `\\vskip 0pt minus 1fil'.",
+          "Such glue doesn't belong there; but you can safely proceed,",
+          "since the offensive shrinkability has been made finite.");
+        error();
+        r = new_spec(q);
+        mem[r].hh.b1 = 0;
+        delete_glue_ref(q);
+        mem[p + 1].hh.v.LH = r;
+        q = r;
+      }
+    }
+    page_so_far[1]= page_so_far[1]+ page_so_far[7]+ mem[q + 1].cint; 
+    page_so_far[7]= 0;
+lab80:
+    if (page_so_far[7]> page_max_depth) {
+      page_so_far[1] = page_so_far[1] + page_so_far[7] - page_max_depth; 
+      page_so_far[7] = page_max_depth;
+    }
+    mem[page_tail].hh.v.RH = p;
+    page_tail = p;
+    mem[contrib_head].hh.v.RH = mem[p].hh.v.RH;
+    mem[p].hh.v.RH = 0;
+    goto lab30;
+lab31:
+    mem[contrib_head].hh.v.RH = mem[p].hh.v.RH;
+    mem[p].hh.v.RH = 0;
+    flush_node_list(p);
+lab30:; 
+  } while (!(mem[contrib_head].hh.v.RH == 0));
   if (nest_ptr == 0)
-  tail = contrib_head; 
-  else nest[0].tail_field = contrib_head; 
+    tail = contrib_head; 
+  else
+    nest[0].tail_field = contrib_head;
 } 
 /* sec 1043 */
 void app_space (void) 
 { 
   halfword q; 
-  if ((space_factor >= 2000) && (eqtb[(hash_size + 795)].hh.v.RH != 0)) 
-  q = new_param_glue(13); 
-  else {      
+  if ((space_factor >= 2000) && (eqtb[(hash_size + 795)].hh.v.RH != 0))
+    q = new_param_glue(13); 
+  else {
     if (eqtb[(hash_size + 794)].hh.v.RH != 0)
-    main_p = eqtb[(hash_size + 794)].hh.v.RH; 
-    else {  
+      main_p = eqtb[(hash_size + 794)].hh.v.RH;
+    else {
       main_p = font_glue[eqtb[(hash_size + 1834)].hh.v.RH]; 
-      if (main_p == 0)
-      {
-  main_p = new_spec(0); 
-  main_k = param_base[eqtb[(hash_size + 1834)].hh.v.RH]+ 2; 
-  mem[main_p + 1].cint = font_info[main_k].cint; 
-  mem[main_p + 2].cint = font_info[main_k + 1].cint; 
-  mem[main_p + 3].cint = font_info[main_k + 2].cint; 
-  font_glue[eqtb[(hash_size + 1834)].hh.v.RH]= main_p; 
-      } 
-    } 
-    main_p = new_spec(main_p); 
+      if (main_p == 0) {
+        main_p = new_spec(0);
+        main_k = param_base[eqtb[(hash_size + 1834)].hh.v.RH]+ 2;
+        mem[main_p + 1].cint = font_info[main_k].cint;
+        mem[main_p + 2].cint = font_info[main_k + 1].cint;
+        mem[main_p + 3].cint = font_info[main_k + 2].cint;
+        font_glue[eqtb[(hash_size + 1834)].hh.v.RH]= main_p;
+      }
+    }
+    main_p = new_spec(main_p);
     if (space_factor >= 2000)
-    mem[main_p + 1].cint = mem[main_p + 1].cint + font_info[7 + param_base[eqtb[(hash_size + 1834)].hh.v.RH]].cint; 
-    mem[main_p + 2].cint = xn_over_d(mem[main_p + 2].cint, cur_list.aux_field.hh.v.LH, 1000); 
-    mem[main_p + 3].cint = xn_over_d(mem[main_p + 3].cint, 1000, space_factor); 
-    q = new_glue(main_p); 
-    mem[main_p].hh.v.RH = 0; 
-  } 
-  mem[tail].hh.v.RH = q; 
-  tail = q; 
-} 
+      mem[main_p + 1].cint = mem[main_p + 1].cint + font_info[7 + param_base[eqtb[(hash_size + 1834)].hh.v.RH]].cint;
+    mem[main_p + 2].cint = xn_over_d(mem[main_p + 2].cint, cur_list.aux_field.hh.v.LH, 1000);
+    mem[main_p + 3].cint = xn_over_d(mem[main_p + 3].cint, 1000, space_factor);
+    q = new_glue(main_p);
+    mem[main_p].hh.v.RH = 0;
+  }
+  mem[tail].hh.v.RH = q;
+  tail = q;
+}
 /* called from tex8.c only */
 /* sec 1047 */
 void insert_dollar_sign (void) 
 { 
-  back_input (); 
+  back_input();
   cur_tok = 804;
   print_err("Proceed; I'll discard its present contents.");
   help2("I've inserted a begin-math/end-math symbol since I think",
          "you left one out. Proceed, with fingers crossed.");
-  ins_error (); 
+  ins_error(); 
 } 
 /* sec 1049 */
 void you_cant (void) 
@@ -390,22 +384,23 @@ void you_cant (void)
 /* sec 1050 */
 void report_illegal_case (void) 
 { 
-  you_cant ();
+  you_cant();
   help4("Sorry, but I'm not programmed to handle this case;",
          "I'll just pretend that you didn't ask for it.",
          "If you're in the wrong mode, you might be able to",
          "return to the right one by typing `I}' or `I$' or `I\\par'.");
-  error (); 
+  error();
 } 
 /* sec 1051 */
 bool privileged (void) 
 {
-  register bool Result; 
-  if (mode > 0)Result = true; 
+  register bool Result;
+  if (mode > 0)
+    Result = true;
   else {
-    report_illegal_case (); 
-    Result = false; 
-  } 
+    report_illegal_case();
+    Result = false;
+  }
   return Result; 
 } 
 /* sec 1054 */
@@ -419,9 +414,9 @@ bool its_all_over (void)
       Result = true; 
       return(Result); 
     } 
-    back_input (); 
+    back_input(); 
     {
-      mem[tail].hh.v.RH = new_null_box (); 
+      mem[tail].hh.v.RH = new_null_box(); 
       tail = mem[tail].hh.v.RH; 
     } 
     mem[tail + 1].cint = eqtb[(hash_size + 3733)].cint; 
@@ -434,7 +429,7 @@ bool its_all_over (void)
     /* - 2^30  */
       tail = mem[tail].hh.v.RH; 
     } 
-    build_page (); 
+    build_page(); 
   } 
   Result = false; 
   return Result; 
@@ -445,36 +440,36 @@ void append_glue (void)
   small_number s; 
   s = cur_chr; 
   switch(s)
-  {case 0 : 
-      cur_val = 4; 
-  break; 
-  case 1 : 
-    cur_val = 8; 
-    break; 
-  case 2 : 
-    cur_val = 12; 
-    break; 
-  case 3 : 
-    cur_val = 16; 
-    break; 
-  case 4 : 
-    scan_glue(2); 
-        break; 
-  case 5 : 
-    scan_glue(3); 
-        break; 
-  } 
   {
-    mem[tail].hh.v.RH = new_glue(cur_val); 
-    tail = mem[tail].hh.v.RH; 
-  } 
-  if (s >= 4)
+  case 0:
+    cur_val = 4;
+    break;
+  case 1:
+    cur_val = 8;
+    break;
+  case 2:
+    cur_val = 12;
+    break;
+  case 3:
+    cur_val = 16;
+    break;
+  case 4:
+    scan_glue(2);
+    break;
+  case 5:
+    scan_glue(3);
+    break;
+  }
   {
-    decr(mem[cur_val].hh.v.RH); 
+    mem[tail].hh.v.RH = new_glue(cur_val);
+    tail = mem[tail].hh.v.RH;
+  }
+  if (s >= 4) {
+    decr(mem[cur_val].hh.v.RH);
     if (s > 4)
-      mem[tail].hh.b1 = 99; 
-  } 
-} 
+      mem[tail].hh.b1 = 99;
+  }
+}
 /* sec 1161 */
 void append_kern (void)
 { 
@@ -491,69 +486,70 @@ void append_kern (void)
 void off_save (void) 
 { 
   halfword p; 
-  if (cur_group == 0)
-  {
-       print_err("Extra ");
+  if (cur_group == 0) {
+    print_err("Extra ");
     print_cmd_chr(cur_cmd, cur_chr);
-       help1("Things are pretty mixed up, but I think the worst is over.");
-    error (); 
+    help1("Things are pretty mixed up, but I think the worst is over.");
+    error();
   } else {
-    back_input (); 
-    p = get_avail (); 
-    mem[temp_head].hh.v.RH = p; 
-       print_err("Missing ");
-    switch(cur_group)
-    {case 14 : 
+    back_input();
+    p = get_avail();
+    mem[temp_head].hh.v.RH = p;
+    print_err("Missing ");
+    switch (cur_group)
+    {
+    case 14:
       {
 /*  mem[p].hh.v.LH = (hash_size + 4611);  */
 /*  mem[p].hh.v.LH = (hash_size + 4095 + 516);  */
-  mem[p].hh.v.LH = (hash_size + hash_extra + 4095 + 516); /* 96/Jan/10 */
-  print_esc("endgroup");
-      } 
-      break; 
-    case 15 : 
+        mem[p].hh.v.LH = (hash_size + hash_extra + 4095 + 516); /* 96/Jan/10 */
+        print_esc("endgroup");
+      }
+      break;
+    case 15:
       {
-  mem[p].hh.v.LH = 804; 
-  print_char('$'); 
-      } 
-      break; 
-    case 16 : 
+        mem[p].hh.v.LH = 804;
+        print_char('$');
+      }
+      break;
+    case 16:
       {
 /*  mem[p].hh.v.LH = (hash_size + 4612);  */
 /*  mem[p].hh.v.LH = (hash_size + 4095 + 517);  */
-  mem[p].hh.v.LH = (hash_size + hash_extra + 4095 + 517); /* 96/Jan/10 */
-  mem[p].hh.v.RH = get_avail (); 
-  p = mem[p].hh.v.RH; 
-  mem[p].hh.v.LH = 3118; 
-  print_esc("right.");
-      } 
-      break; 
-      default: 
+        mem[p].hh.v.LH = (hash_size + hash_extra + 4095 + 517); /* 96/Jan/10 */
+        mem[p].hh.v.RH = get_avail();
+        p = mem[p].hh.v.RH;
+        mem[p].hh.v.LH = 3118;
+        print_esc("right.");
+      }
+      break;
+    default:
       {
-  mem[p].hh.v.LH = 637; 
-  print_char('}');
-      } 
-      break; 
-    } 
+        mem[p].hh.v.LH = 637;
+        print_char('}');
+      }
+      break;
+    }
     print_string(" inserted");
     begin_token_list(mem[temp_head].hh.v.RH, 4);
-       help5("I've inserted something that you may have forgotten.",
-               "(See the <inserted text> above.)",
-               "With luck, this will get me unwedged. But if you",
-               "really didn't forget anything, try typing `2' now; then",
-               "my insertion and my current dilemma will both disappear.");
-    error (); 
-  } 
-} 
+    help5("I've inserted something that you may have forgotten.",
+      "(See the <inserted text> above.)",
+      "With luck, this will get me unwedged. But if you",
+      "really didn't forget anything, try typing `2' now; then",
+      "my insertion and my current dilemma will both disappear.");
+    error();
+  }
+}
 /* only called from tex8.c */
 /* sec 1069 */
 void extra_right_brace (void) 
 {
   print_err("Extra }, or forgotten");
   switch(cur_group)
-  {case 14 : 
+  {
+  case 14:
     print_esc("endgroup");
-    break; 
+    break;
   case 15 : 
     print_char('$');
     break; 
@@ -566,7 +562,7 @@ void extra_right_brace (void)
          "you forgot something else, as in `\\hbox{$x}'. In such cases",
          "the way to recover is to insert both the forgotten and the",
          "deleted material, e.g., by typing `I$}'."); 
-  error (); 
+  error();
   incr(align_state); 
 } 
 /* sec 1070 */
@@ -574,56 +570,48 @@ void normal_paragraph (void)
 { 
 /* if looseness<>0 then eq_word_define(int_base+looseness_code,0); */
   if (eqtb[(hash_size + 3182)].cint != 0)
-  eq_word_define((hash_size + 3182), 0); 
+    eq_word_define((hash_size + 3182), 0);
   if (eqtb[(hash_size + 3747)].cint != 0)
-  eq_word_define((hash_size + 3747), 0); 
+    eq_word_define((hash_size + 3747), 0);
   if (eqtb[(hash_size + 3204)].cint != 1)
-  eq_word_define((hash_size + 3204), 1); 
+    eq_word_define((hash_size + 3204), 1);
   if (eqtb[(hash_size + 1312)].hh.v.RH != 0)
-  eq_define((hash_size + 1312), 118, 0); 
-} 
+    eq_define((hash_size + 1312), 118, 0); 
+}
 /* sec 1075 */
 void box_end_(integer boxcontext)
 {
   halfword p; 
 /* if box_context<box_flag then ... 1073741824 2^30 */
-  if (boxcontext < 1073741824L)
-  {
-    if (cur_box != 0)
-    {
+  if (boxcontext < 1073741824L) {
+    if (cur_box != 0) {
       mem[cur_box + 4].cint = boxcontext; 
-      if (abs(mode)== 1)
-      {
-  append_to_vlist(cur_box); 
-  if (adjust_tail != 0)
-  {
-    if (adjust_head != adjust_tail)
-    {
-      mem[tail].hh.v.RH = mem[adjust_head].hh 
-     .v.RH; 
-      tail = adjust_tail; 
-    } 
-    adjust_tail = 0; 
-  } 
-  if (mode > 0){
-    build_page ();
+      if (abs(mode)== 1) {
+        append_to_vlist(cur_box); 
+        if (adjust_tail != 0) {
+          if (adjust_head != adjust_tail) {
+            mem[tail].hh.v.RH = mem[adjust_head].hh.v.RH;
+            tail = adjust_tail;
+          }
+          adjust_tail = 0;
+        }
+        if (mode > 0) {
+          build_page();
+        }
+      } else {
+        if (abs(mode)== 102)
+          space_factor = 1000;
+        else {
+          p = new_noad();
+          mem[p + 1].hh.v.RH = 2;
+          mem[p + 1].hh.v.LH = cur_box;
+          cur_box = p;
+        }
+        mem[tail].hh.v.RH = cur_box;
+        tail = cur_box;
+      }
+    }
   }
-      } 
-      else {
-  if (abs(mode)== 102)
-  space_factor = 1000; 
-  else {
-      
-    p = new_noad (); 
-    mem[p + 1].hh.v.RH = 2; 
-    mem[p + 1].hh.v.LH = cur_box; 
-    cur_box = p; 
-  } 
-  mem[tail].hh.v.RH = cur_box; 
-  tail = cur_box; 
-      } 
-    } 
-  } 
 
 /* following fixed 1994/Apr/5 1 day anno Yang --- moby sigh ... */
 
@@ -644,14 +632,14 @@ void box_end_(integer boxcontext)
   if (boxcontext > (1073741824L + 512)) /* 2^30 + 512 */ 
   {
     do {
-    get_x_token (); 
+    get_x_token(); 
     } while(!((cur_cmd != 10)&&(cur_cmd != 0))); 
 /* 424 in tex82.bug */
     if (((cur_cmd == 26) && (abs(mode)!= 1)) ||
                ((cur_cmd == 27) && (abs(mode)== 1)))
     {
 /*   begin append_glue; subtype(tail):=box_context-(leader_flag-a_leaders); */
-      append_glue (); 
+      append_glue(); 
 /*      -(2^30 + 513 - 100)  */
       mem[tail].hh.b1 = boxcontext -(1073742237L); 
       mem[tail + 1].hh.v.RH = cur_box; 
@@ -661,7 +649,7 @@ void box_end_(integer boxcontext)
        help3("You should say `\\leaders <box or rule><hskip or vskip>'.",
                "I found the <box or rule>, but there's no suitable",
                "<hskip or vskip>, so I'm ignoring these leaders."); 
-      back_error (); 
+      back_error(); 
       flush_node_list(cur_box); 
   }
   }
@@ -678,14 +666,14 @@ void begin_box_(integer boxcontext)
   switch(cur_chr){
   case 0 : 
     {
-      scan_eight_bit_int (); 
+      scan_eight_bit_int(); 
       cur_box = eqtb[(hash_size + 1578) + cur_val].hh.v.RH; 
       eqtb[(hash_size + 1578) + cur_val].hh.v.RH = 0; 
     } 
     break; 
   case 1 : 
     {
-      scan_eight_bit_int (); 
+      scan_eight_bit_int(); 
       cur_box = copy_node_list(eqtb[(hash_size + 1578) + cur_val].hh.v.RH); 
     } 
     break; 
@@ -694,128 +682,118 @@ void begin_box_(integer boxcontext)
       cur_box = 0; 
       if (abs(mode)== 203)
       {
-  you_cant ();
-  help1("Sorry; this \\lastbox will be void.");
-  error (); 
-      } 
-      else if ((mode == 1)&&(head == cur_list 
-     .tail_field)) 
-      {
-  you_cant ();
-  help2("Sorry...I usually can't take things from the current page.",
-         "This \\lastbox will therefore be void.");
-  error (); 
-      } 
-      else {
-  if (!(tail >= hi_mem_min)) 
-  if ((mem[tail].hh.b0 == 0)||(mem[cur_list 
- .tail_field].hh.b0 == 1)) 
-  {
-    q = head; 
-    do {
-        p = q; 
-      if (!(q >= hi_mem_min)) 
-      if (mem[q].hh.b0 == 7)
-      {
-        {
-        register integer for_end; 
-        m = 1; 
-        for_end = mem[q].hh.b1; 
-        if (m <= for_end) do 
-          p = mem[p].hh.v.RH; 
-        while(m++ < for_end);
-      } 
-        if (p == tail)
-        goto lab30; 
-      } 
-      q = mem[p].hh.v.RH; 
-    } while(!(q == tail)); 
-    cur_box = tail; 
-    mem[cur_box + 4].cint = 0; 
-    tail = p; 
-    mem[p].hh.v.RH = 0; 
-    lab30:; 
-  } 
-      } 
+        you_cant();
+        help1("Sorry; this \\lastbox will be void.");
+        error(); 
+      } else if ((mode == 1)&&(head == cur_list.tail_field)) {
+        you_cant();
+        help2("Sorry...I usually can't take things from the current page.",
+          "This \\lastbox will therefore be void.");
+        error();
+      } else {
+        if (!(tail >= hi_mem_min))
+          if ((mem[tail].hh.b0 == 0) || (mem[cur_list.tail_field].hh.b0 == 1)) {
+            q = head;
+            do {
+              p = q;
+              if (!(q >= hi_mem_min)) 
+                if (mem[q].hh.b0 == 7)
+                {
+                  {
+                    register integer for_end; 
+                    m = 1;
+                    for_end = mem[q].hh.b1;
+                    if (m <= for_end) do 
+                    p = mem[p].hh.v.RH; 
+                    while(m++ < for_end);
+                  } 
+                  if (p == tail)
+                    goto lab30; 
+                } 
+                q = mem[p].hh.v.RH; 
+            } while (!(q == tail)); 
+            cur_box = tail;
+            mem[cur_box + 4].cint = 0;
+            tail = p;
+            mem[p].hh.v.RH = 0;
+lab30:; 
+          }
+      }
     } 
     break; 
-  case 3 : 
+  case 3:
     {
-      scan_eight_bit_int (); 
+      scan_eight_bit_int(); 
       n = cur_val; 
-      if (! scan_keyword("to"))  /* to */
+      if (!scan_keyword("to"))  /* to */
       {
-                 print_err("Missing `to' inserted");
-                 help2("I'm working on `\\vsplit<box number> to <dimen>';",
-                         "will look for the <dimen> next.");
-  error (); 
-      } 
-      scan_dimen(false, false, false); 
-      cur_box = vsplit(n, cur_val); 
-    } 
-    break; 
-    default: 
+        print_err("Missing `to' inserted");
+        help2("I'm working on `\\vsplit<box number> to <dimen>';",
+          "will look for the <dimen> next.");
+        error();
+      }
+      scan_dimen(false, false, false);
+      cur_box = vsplit(n, cur_val);
+    }
+    break;
+  default:
     {
-      k = cur_chr - 4; 
-      save_stack[save_ptr + 0].cint = boxcontext; 
+      k = cur_chr - 4;
+      save_stack[save_ptr + 0].cint = boxcontext;
       if (k == 102)
-      if ((boxcontext < 1073741824L)&& /* 2^30 */
-      (abs(mode)== 1)
-    )
-      scan_spec(3, true); 
-      else scan_spec(2, true); 
+        if ((boxcontext < 1073741824L) && /* 2^30 */
+          (abs(mode)== 1))
+          scan_spec(3, true); 
+      else
+        scan_spec(2, true); 
       else {
-    
-  if (k == 1)
-  scan_spec(4, true); 
-  else {
-      
-    scan_spec(5, true); 
-    k = 1; 
-  } 
-  normal_paragraph (); 
-      } 
-      push_nest (); 
-      mode = - (integer) k; 
+        if (k == 1)
+          scan_spec(4, true);
+        else {
+          scan_spec(5, true);
+          k = 1;
+        }
+        normal_paragraph(); 
+      }
+      push_nest();
+      mode = - (integer) k;
       if (k == 1)
       {
-  cur_list.aux_field.cint = ignore_depth; 
-  if (eqtb[(hash_size + 1318)].hh.v.RH != 0)/* everyhbox */
-  begin_token_list(eqtb[(hash_size + 1318)].hh.v.RH, 11); 
-      } 
-      else {
-    
-  space_factor = 1000; 
-  if (eqtb[(hash_size + 1317)].hh.v.RH != 0)/* everyhbox */
-    begin_token_list(eqtb[(hash_size + 1317)].hh.v.RH, 10); 
-      } 
-      return; 
-    } 
-    break; 
-  } 
-  box_end(boxcontext); 
-} 
+        cur_list.aux_field.cint = ignore_depth;
+        if (eqtb[(hash_size + 1318)].hh.v.RH != 0)/* everyhbox */
+          begin_token_list(eqtb[(hash_size + 1318)].hh.v.RH, 11);
+      } else {
+        space_factor = 1000; 
+        if (eqtb[(hash_size + 1317)].hh.v.RH != 0)/* everyhbox */
+          begin_token_list(eqtb[(hash_size + 1317)].hh.v.RH, 10); 
+      }
+      return;
+    }
+    break;
+  }
+  box_end(boxcontext);
+}
 /* sec 1084 */
 void scan_box_(integer boxcontext)
 { 
   do {
-      get_x_token (); 
-  } while(!((cur_cmd != 10)&&(cur_cmd != 0))); 
+      get_x_token(); 
+  } while(!((cur_cmd != 10) && (cur_cmd != 0))); 
   if (cur_cmd == 20){
     begin_box(boxcontext);
   }
   else if ((boxcontext >= 1073742337L)&& /* (2^30 + 512 + 1)  */
      ((cur_cmd == 36)||(cur_cmd == 35)))
   {
-    cur_box = scan_rule_spec (); 
+    cur_box = scan_rule_spec(); 
     box_end(boxcontext); 
   } 
   else {
       print_err("A <box> was supposed to be here");
-         help3("I was expecting to see \\hbox or \\vbox or \\copy or \\box or",
-                 "something like that. So you might find something missing in",
-                 "your output. But keep trying; you can fix this later.");
-    back_error (); 
+      help3("I was expecting to see \\hbox or \\vbox or \\copy or \\box or",
+        "something like that. So you might find something missing in",
+        "your output. But keep trying; you can fix this later.");
+      back_error(); 
   }
 } 
 /****************************************************************************/
@@ -830,15 +808,15 @@ small_number norm_min_ (integer h)
     Result = 1; 
   else if (h >= 63)
     Result = 63; 
-  else Result = h; 
+  else
+    Result = h; 
   return Result; 
 } 
 /* sec 1091 */
 void new_graf_(bool indented)
 { 
   prev_graf = 0; 
-  if ((mode == 1)||(head != cur_list 
- .tail_field)) 
+  if ((mode == 1)||(head != cur_list.tail_field)) 
   {
     mem[tail].hh.v.RH = new_param_glue(2); 
     tail = mem[tail].hh.v.RH; 
@@ -846,7 +824,7 @@ void new_graf_(bool indented)
 /* used to be followingin 3.141 */
 /*  cur_list .lhmfield = norm_min(eqtb[(hash_size + 3214)].cint); */
 /*  cur_list .rhmfield = norm_min(eqtb[(hash_size + 3215)].cint); */
-  push_nest (); 
+  push_nest(); 
   mode = 102; 
   space_factor = 1000; 
 /* changes here since 3.141 */
@@ -862,14 +840,14 @@ void new_graf_(bool indented)
 /* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
   if (indented)
   {
-    tail = new_null_box (); 
+    tail = new_null_box(); 
     mem[head].hh.v.RH = tail; 
     mem[tail + 1].cint = eqtb[(hash_size + 3730)].cint; 
   } 
   if (eqtb[(hash_size + 1314)].hh.v.RH != 0)  /* everypar */
     begin_token_list(eqtb[(hash_size + 1314)].hh.v.RH, 7); 
   if (nest_ptr == 1){
-    build_page ();
+    build_page();
   }
 } 
 /* procedure indent_in_hmode; l.21058 */
@@ -879,13 +857,12 @@ void indent_in_hmode (void)
   halfword p, q; 
   if (cur_chr > 0)
   {
-    p = new_null_box (); 
+    p = new_null_box(); 
     mem[p + 1].cint = eqtb[(hash_size + 3730)].cint; 
     if (abs(mode)== 102)
     space_factor = 1000; 
     else {
-  
-      q = new_noad (); 
+      q = new_noad(); 
       mem[q + 1].hh.v.RH = 2; 
       mem[q + 1].hh.v.LH = p; 
       p = q; 
@@ -902,33 +879,30 @@ void head_for_vmode (void)
 { 
   if (mode < 0)
   if (cur_cmd != 36){
-    off_save ();
-  }
-  else {
+    off_save();
+  } else {
          print_err("You can't use `");
     print_esc("hrule");
     print_string("' here except with leaders");
-       help2("To put a horizontal rule in an hbox or an alignment,",
-               "you should use \\leaders or \\hrulefill (see The TeXbook).");
-    error (); 
-  } 
-  else {
-      
-    back_input (); 
-    cur_tok = par_token; 
-    back_input (); 
-    cur_input.index_field = 4; 
-  } 
-} 
+    help2("To put a horizontal rule in an hbox or an alignment,",
+      "you should use \\leaders or \\hrulefill (see The TeXbook).");
+    error();
+  } else {
+    back_input();
+    cur_tok = par_token;
+    back_input();
+    cur_input.index_field = 4;
+  }
+}
 /* sec 1096 */
 void end_graf (void) 
 {
   if (mode == 102)
   {
     if (head == tail)
-    pop_nest (); 
+    pop_nest(); 
     else line_break(eqtb[(hash_size + 3169)].cint); 
-    normal_paragraph (); 
+    normal_paragraph(); 
     error_count = 0; 
   } 
 } 
@@ -937,26 +911,25 @@ void end_graf (void)
 void begin_insert_or_adjust (void) 
 { 
   if (cur_cmd == 38)
-  cur_val = 255; 
+    cur_val = 255; 
   else {
-      
-    scan_eight_bit_int (); 
+    scan_eight_bit_int(); 
     if (cur_val == 255)
     {
-               print_err("You can't ");
+      print_err("You can't ");
       print_esc("insert");
       print_int(255);
-         help1("I'm changing to \\insert0; box 255 is special."); 
-      error (); 
+           help1("I'm changing to \\insert0; box 255 is special."); 
+      error(); 
       cur_val = 0; 
     } 
   } 
   save_stack[save_ptr + 0].cint = cur_val; 
   incr(save_ptr); 
   new_save_level(11); 
-  scan_left_brace (); 
-  normal_paragraph (); 
-  push_nest (); 
+  scan_left_brace(); 
+  normal_paragraph(); 
+  push_nest(); 
   mode = -1; 
   cur_list.aux_field.cint = ignore_depth; 
 } 
@@ -975,13 +948,13 @@ void make_mark (void)
 /* sec 1103 */
 void append_penalty (void) 
 { 
-    scan_int (); 
+  scan_int();
   {
     mem[tail].hh.v.RH = new_penalty(cur_val); 
     tail = mem[tail].hh.v.RH; 
   } 
   if (mode == 1){
-    build_page ();
+    build_page();
   }
 } 
 /* only called from tex8.c */
@@ -993,86 +966,81 @@ void delete_last (void)
   if ((mode == 1) && (tail == cur_list.head_field)) 
   {
 /*    if ((cur_chr != 10)||(last_glue != 262143L)) */
-    if ((cur_chr != 10)||(last_glue != empty_flag)) 
-    {
-      you_cant ();
-         help2("Sorry...I usually can't take things from the current page.",
-                 "Try `I\\vskip-\\lastskip' instead."); 
+    if ((cur_chr != 10) || (last_glue != empty_flag)) {
+      you_cant();
+      help2("Sorry...I usually can't take things from the current page.",
+        "Try `I\\vskip-\\lastskip' instead.");
       if (cur_chr == 11)
-      help_line[0] = "Try `I\\kern-\\last_kern' instead.";
+        help_line[0] = "Try `I\\kern-\\last_kern' instead.";
       else if (cur_chr != 10)
-      help_line[0] = "Perhaps you can make the output routine do it.";
-      error (); 
-    } 
-  } 
-  else {
-      
-    if (!(tail >= hi_mem_min)) 
-    if (mem[tail].hh.b0 == cur_chr)
-    {
-      q = head; 
-      do {
-    p = q; 
-  if (!(q >= hi_mem_min)) 
-  if (mem[q].hh.b0 == 7)
-  {
-    {
-      register integer for_end;
-      m = 1;
-      for_end = mem[q].hh.b1;
-      if (m <= for_end) do 
-        p = mem[p].hh.v.RH; 
-      while(m++ < for_end);
-    } 
-    if (p == tail)
-    return; 
-  } 
-  q = mem[p].hh.v.RH; 
-      } while(!(q == tail)); 
-      mem[p].hh.v.RH = 0; 
-      flush_node_list(tail); 
-      tail = p; 
-    } 
+        help_line[0] = "Perhaps you can make the output routine do it.";
+      error();
+    }
+  } else {
+    if (!(tail >= hi_mem_min))
+      if (mem[tail].hh.b0 == cur_chr)
+      {
+        q = head; 
+        do {
+          p = q; 
+          if (!(q >= hi_mem_min)) 
+            if (mem[q].hh.b0 == 7)
+            {
+              {
+                register integer for_end;
+                m = 1;
+                for_end = mem[q].hh.b1;
+                if (m <= for_end) do 
+                p = mem[p].hh.v.RH; 
+                while(m++ < for_end);
+              }
+              if (p == tail)
+                return;
+            }
+            q = mem[p].hh.v.RH; 
+        } while (!(q == tail));
+        mem[p].hh.v.RH = 0; 
+        flush_node_list(tail);
+        tail = p;
+      }
   } 
 } 
 /* only called from tex8.c */
 /* procedure unpackage; l.21256 */
 /* sec 1110 */
 void unpackage (void) 
-{/* 10 */
+{
   halfword p; 
   char c; 
   c = cur_chr; 
-  scan_eight_bit_int (); 
-  p = eqtb[(hash_size + 1578) + cur_val].hh.v.RH; 
+  scan_eight_bit_int(); 
+  p = eqtb[(hash_size + 1578) + cur_val].hh.v.RH;
   if (p == 0)/* if p=null then return; l.21261 */
-  return; 
-  if ((abs(mode)== 203)||((abs(mode)
-  == 1)&&(mem[p].hh.b0 != 1)) ||((abs(mode)== 
-  102)&&(mem[p].hh.b0 != 0)))
-  {
-         print_err("Incompatible list can't be unboxed");
-         help3("Sorry, Pandora. (You sneaky devil.)",
-                 "I refuse to unbox an \\hbox in vertical mode or vice versa.",
-                 "And I can't open any boxes in math mode.");
-    error (); 
     return; 
-  } 
+  if ((abs(mode)== 203) ||
+    ((abs(mode) == 1) && (mem[p].hh.b0 != 1)) ||
+    ((abs(mode) == 102) && (mem[p].hh.b0 != 0)))
+  {
+    print_err("Incompatible list can't be unboxed");
+    help3("Sorry, Pandora. (You sneaky devil.)",
+      "I refuse to unbox an \\hbox in vertical mode or vice versa.",
+      "And I can't open any boxes in math mode.");
+    error();
+    return;
+  }
   if (c == 1)
-  mem[tail].hh.v.RH = copy_node_list(mem[p + 5].hh 
- .v.RH); 
+    mem[tail].hh.v.RH = copy_node_list(mem[p + 5].hh.v.RH); 
   else {
-      
-    mem[tail].hh.v.RH = mem[p + 5].hh.v.RH; 
-    eqtb[(hash_size + 1578) + cur_val].hh.v.RH = 0; 
-    free_node(p, 7); 
+    mem[tail].hh.v.RH = mem[p + 5].hh.v.RH;
+    eqtb[(hash_size + 1578) + cur_val].hh.v.RH = 0;
+    free_node(p, 7);
   } 
-  while(mem[tail].hh.v.RH != 0)tail = mem 
- [tail].hh.v.RH; 
+  while (mem[tail].hh.v.RH != 0)
+    tail = mem[tail].hh.v.RH;
 } 
 /* sec 1113 */
 void append_italic_correction (void) 
-{/* 10 */ 
+{
   halfword p; 
   internal_font_number f; 
   if (tail != head)
@@ -1084,37 +1052,31 @@ void append_italic_correction (void)
     else return; 
     f = mem[p].hh.b0; 
     {
-      mem[tail].hh.v.RH = new_kern(font_info[italic_base[
-      f]+(font_info[char_base[f]+ mem[p].hh.b1].qqqq.b2)/ 4]
-     .cint); 
-      tail = mem[tail].hh.v.RH; 
-    } 
-    mem[tail].hh.b1 = 1; 
-  } 
-} 
+      mem[tail].hh.v.RH = new_kern(font_info[italic_base[f] + (font_info[char_base[f] + mem[p].hh.b1].qqqq.b2) / 4].cint); 
+      tail = mem[tail].hh.v.RH;
+    }
+    mem[tail].hh.b1 = 1;
+  }
+}
 /* sec 1117 */
 void append_discretionary (void) 
 { 
   integer c; 
   {
-    mem[tail].hh.v.RH = new_disc (); 
+    mem[tail].hh.v.RH = new_disc(); 
     tail = mem[tail].hh.v.RH; 
   } 
-  if (cur_chr == 1)
-  {
+  if (cur_chr == 1) {
     c = hyphen_char[eqtb[(hash_size + 1834)].hh.v.RH]; 
     if (c >= 0)
-    if (c < 256)
-    mem[tail + 1].hh.v.LH = new_character(eqtb[(hash_size + 1834)]
-   .hh.v.RH, c); 
-  } 
-  else {
-      
+      if (c < 256)
+        mem[tail + 1].hh.v.LH = new_character(eqtb[(hash_size + 1834)].hh.v.RH, c);
+  } else {
     incr(save_ptr); 
     save_stack[save_ptr - 1].cint = 0; 
     new_save_level(10); 
-    scan_left_brace (); 
-    push_nest (); 
+    scan_left_brace(); 
+    push_nest();
     mode = -102; 
     space_factor = 1000; 
   } 
@@ -1125,79 +1087,78 @@ void build_discretionary (void)
 {/* 30 10 */ 
   halfword p, q; 
   integer n; 
-  unsave (); 
+  unsave(); 
   q = head; 
   p = mem[q].hh.v.RH; 
   n = 0; 
-  while(p != 0){
-      
-    if (!(p >= hi_mem_min)) 
-    if (mem[p].hh.b0 > 2)
-    if (mem[p].hh.b0 != 11)
-    if (mem[p].hh.b0 != 6)
-    {
-               print_err("Improper discretionary list");
-               help1("Discretionary lists must contain only boxes and kerns.");
-      error (); 
-      begin_diagnostic (); 
-      print_nl("The following discretionary sublist has been deleted:");  /*  */
-      show_box(p); 
-      end_diagnostic(true); 
-      flush_node_list(p); 
-      mem[q].hh.v.RH = 0; 
-      goto lab30; 
-    } 
-    q = p; 
-    p = mem[q].hh.v.RH; 
-    incr(n); 
-  } 
-  lab30:; 
+  while (p != 0) {
+    if (!(p >= hi_mem_min))
+      if (mem[p].hh.b0 > 2)
+        if (mem[p].hh.b0 != 11)
+          if (mem[p].hh.b0 != 6)
+          {
+            print_err("Improper discretionary list");
+            help1("Discretionary lists must contain only boxes and kerns.");
+            error();
+            begin_diagnostic();
+            print_nl("The following discretionary sublist has been deleted:");
+            show_box(p);
+            end_diagnostic(true);
+            flush_node_list(p);
+            mem[q].hh.v.RH = 0;
+            goto lab30;
+          }
+          q = p;
+          p = mem[q].hh.v.RH;
+          incr(n);
+  }
+lab30:;
   p = mem[head].hh.v.RH; 
-  pop_nest (); 
-  switch(save_stack[save_ptr - 1].cint)
-  {case 0 : 
+  pop_nest();
+  switch (save_stack[save_ptr - 1].cint)
+  {
+  case 0:
     mem[tail + 1].hh.v.LH = p; 
-    break; 
-  case 1 : 
+    break;
+  case 1:
     mem[tail + 1].hh.v.RH = p; 
     break; 
-  case 2 : 
+  case 2:
     {
-      if ((n > 0)&&(abs(mode)== 203)) 
+      if ((n > 0) && (abs(mode)== 203))
       {
-                 print_err("Illegal math ");
-  print_esc("discretionary");
-  help2("Sorry: The third part of a discretionary break must be",
-         "empty, in math formulas. I had to delete your third part.");
-  flush_node_list(p); 
-  n = 0; 
-  error (); 
-      } 
-      else mem[tail].hh.v.RH = p; 
+        print_err("Illegal math ");
+        print_esc("discretionary");
+        help2("Sorry: The third part of a discretionary break must be",
+          "empty, in math formulas. I had to delete your third part.");
+        flush_node_list(p);
+        n = 0;
+        error(); 
+      } else mem[tail].hh.v.RH = p; 
 /* if n <= max_quarterword then replace_count(tail) <- n; p.1120 */
 /*      if (n <= 255) */       /* 94/Apr/4 ? */
       if (n <= max_quarterword)     /* 96/Oct/12 ??? */
-      mem[tail].hh.b1 = n; 
+        mem[tail].hh.b1 = n; 
       else {
-    print_err("Discretionary list is too long");
-       help2("Wow---I never thought anybody would tweak me here.",
-               "You can't seriously need such a huge discretionary list?");
-  error (); 
+        print_err("Discretionary list is too long");
+        help2("Wow---I never thought anybody would tweak me here.",
+          "You can't seriously need such a huge discretionary list?");
+        error();
       } 
       if (n > 0)
-      tail = q; 
-      decr(save_ptr); 
-      return; 
+        tail = q;
+      decr(save_ptr);
+      return;
     } 
     break; 
   } 
   incr(save_stack[save_ptr - 1].cint); 
   new_save_level(10); 
-  scan_left_brace (); 
-  push_nest (); 
+  scan_left_brace(); 
+  push_nest(); 
   mode = -102; 
   space_factor = 1000; 
-} 
+}
 /* called only from tex8.c */
 /* sec 1123 */
 void make_accent (void) 
@@ -1207,7 +1168,7 @@ void make_accent (void)
   internal_font_number f; 
   scaled a, h, x, w, delta; 
   ffourquarters i; 
-  scan_char_num (); 
+  scan_char_num(); 
   f = eqtb[(hash_size + 1834)].hh.v.RH; 
   p = new_character(f, cur_val); 
   if (p != 0)
@@ -1216,17 +1177,17 @@ void make_accent (void)
     s = font_info[1 + param_base[f]].cint / ((double) 65536.0); 
     a = font_info[width_base[f]+ font_info[char_base[f]+ mem[p]
     .hh.b1].qqqq.b0].cint; 
-    do_assignments (); 
+    do_assignments(); 
     q = 0; 
     f = eqtb[(hash_size + 1834)].hh.v.RH; 
     if ((cur_cmd == 11)||(cur_cmd == 12)||(cur_cmd == 68)) 
     q = new_character(f, cur_chr); 
     else if (cur_cmd == 16)
     {
-      scan_char_num (); 
+      scan_char_num(); 
       q = new_character(f, cur_val); 
     } 
-    else back_input (); 
+    else back_input(); 
     if (q != 0)
     {
       t = font_info[1 + param_base[f]].cint / ((double) 65536.0); 
@@ -1256,44 +1217,41 @@ void make_accent (void)
 /* sec 1127 */
 void align_error (void) 
 { 
-  if (abs(align_state)> 2){
-         print_err("Misplaced ");
+  if (abs(align_state) > 2) {
+    print_err("Misplaced ");
     print_cmd_chr(cur_cmd, cur_chr); 
     if (cur_tok == 1062) {
-               help6("I can't figure out why you would want to use a tab mark",
-                       "here. If you just want an ampersand, the remedy is",
-                       "simple: Just type `I\\&' now. But if some right brace",
-                       "up above has ended a previous alignment prematurely,",
-                       "you're probably due for more error messages, and you",
-                       "might try typing `S' now just to see what is salvageable.");
-    } 
-    else {
-               help5("I can't figure out why you would want to use a tab mark",
-                       "or \\cr or \\span just now. If something like a right brace",
-                       "up above has ended a previous alignment prematurely,",
-                       "you're probably due for more error messages, and you",
-                       "might try typing `S' now just to see what is salvageable."); 
-    } 
-    error (); 
-  } 
-  else {
-    back_input (); 
+      help6("I can't figure out why you would want to use a tab mark",
+        "here. If you just want an ampersand, the remedy is",
+        "simple: Just type `I\\&' now. But if some right brace",
+        "up above has ended a previous alignment prematurely,",
+        "you're probably due for more error messages, and you",
+        "might try typing `S' now just to see what is salvageable.");
+    } else {
+      help5("I can't figure out why you would want to use a tab mark",
+        "or \\cr or \\span just now. If something like a right brace",
+        "up above has ended a previous alignment prematurely,",
+        "you're probably due for more error messages, and you",
+        "might try typing `S' now just to see what is salvageable.");
+    }
+    error(); 
+  } else {
+    back_input();
     if (align_state < 0) {
-               print_err("Missing { inserted");
-      incr(align_state); 
+      print_err("Missing { inserted");
+      incr(align_state);
       cur_tok = 379;    /* belowdisplayshortskip ? */
-    } 
-    else {
-               print_err("Missing } inserted");
-      decr(align_state); 
-      cur_tok = 637; 
+    } else {
+      print_err("Missing } inserted");
+      decr(align_state);
+      cur_tok = 637;
     }
-       help3("I've put in what seems to be necessary to fix",
-               "the current column of the current alignment.",
-               "Try to go on, since this might almost work.");
-    ins_error (); 
+    help3("I've put in what seems to be necessary to fix",
+      "the current column of the current alignment.",
+      "Try to go on, since this might almost work.");
+    ins_error(); 
   }
-} 
+}
 /* sec 1129 */
 void noalign_error (void) 
 {
@@ -1301,7 +1259,7 @@ void noalign_error (void)
   print_esc("noalign");
   help2("I expect to see \\noalign only after the \\cr of",
          "an alignment. Proceed, and I'll ignore this case.");
-  error (); 
+  error(); 
 } 
 /* only called from tex8.c */
 /* sec 1129 */
@@ -1311,16 +1269,16 @@ void omit_error (void)
   print_esc("omit");
   help2("I expect to see \\omit only after tab marks or the \\cr of",
          "an alignment. Proceed, and I'll ignore this case.");
-  error (); 
+  error(); 
 } 
 /* sec 1131 */
 void do_endv (void) 
 {
   if (cur_group == 6) {
-    end_graf (); 
-    if (fin_col ())fin_row ();
-  } 
-  else off_save ();
+    end_graf();
+    if (fin_col ())
+      fin_row();
+  } else off_save();
 } 
 /* only called form tex8.c */
 /* sec 1135 */
@@ -1329,19 +1287,19 @@ void cs_error (void)
   print_err("Extra ");
   print_esc("endcsname");
   help1("I'm ignoring this, since I wasn't doing a \\csname."); 
-  error (); 
+  error();
 } 
 /* sec 1136 */
 void push_math_(group_code c) 
 {
-  push_nest (); 
+  push_nest();
   mode = -203; 
   cur_list.aux_field.cint = 0; 
   new_save_level(c); 
 } 
 /* sec 1138 */
 void init_math (void) 
-{/* 21 40 45 30 */
+{
   scaled w; 
   scaled l; 
   scaled s; 
@@ -1351,142 +1309,127 @@ void init_math (void)
   integer n; 
   scaled v; 
   scaled d; 
-  get_token (); 
-  if ((cur_cmd == 3)&&(mode > 0)) 
-  {
-    if (head == tail)
-    {
-      pop_nest (); 
+  get_token();
+  if ((cur_cmd == 3) && (mode > 0)) {
+    if (head == tail) {
+      pop_nest();
       w = -1073741823L; /* - (2^30 - 1) */
-    } 
-    else {
-  
+    } else {
       line_break(eqtb[(hash_size + 3170)].cint); 
-      v = mem[just_box + 4].cint + 2 * font_info[6 +
-      param_base[eqtb[(hash_size + 1834)].hh.v.RH]].cint; 
+      v = mem[just_box + 4].cint + 2 * font_info[6 + param_base[eqtb[(hash_size + 1834)].hh.v.RH]].cint;
       w = -1073741823L;  /* - (2^30 - 1) */
       p = mem[just_box + 5].hh.v.RH; 
-      while(p != 0){
-    
-  lab21: if ((p >= hi_mem_min)) 
-  {
-    f = mem[p].hh.b0; 
-    d = font_info[width_base[f]+ font_info[char_base[f]+ mem[p 
-  ].hh.b1].qqqq.b0].cint; 
-    goto lab40; 
-  } 
-  switch(mem[p].hh.b0)
-  {case 0 : 
-  case 1 : 
-  case 2 : 
-    {
-      d = mem[p + 1].cint; 
-      goto lab40; 
-    } 
-    break; 
-  case 6 : 
-    {
-      mem[lig_trick]= mem[p + 1]; 
-      mem[lig_trick].hh.v.RH = mem[p].hh.v.RH; 
-      p = lig_trick; 
-      goto lab21; 
-    } 
-    break; 
-  case 11 : 
-  case 9 : 
-    d = mem[p + 1].cint; 
-    break; 
-  case 10 : 
-    {
-      q = mem[p + 1].hh.v.LH; 
-      d = mem[q + 1].cint; 
-      if (mem[just_box + 5].hh.b0 == 1)
-      {
-        if ((mem[just_box + 5].hh.b1 == mem[q].hh.b0)&&(mem 
-       [q + 2].cint != 0)) 
-        v = 1073741823L;  /* - (2^30 - 1) */
-      } 
-      else if (mem[just_box + 5].hh.b0 == 2)
-      {
-        if ((mem[just_box + 5].hh.b1 == mem[q].hh.b1)&&(mem 
-       [q + 3].cint != 0)) 
-        v = 1073741823L;  /* - (2^30 - 1) */
-      } 
-      if (mem[p].hh.b1 >= 100)
-      goto lab40; 
-    } 
-    break; 
-  case 8 : 
-    d = 0; 
-    break; 
-    default: 
-    d = 0; 
-    break; 
-  } 
-  if (v < 1073741823L) /* - (2^30 - 1) */
-  v = v + d; 
-  goto lab45; 
-  lab40: if (v < 1073741823L) /* - (2^30 - 1) */
-  {
-    v = v + d; 
-    w = v; 
-  } 
-  else {
-      
-    w = 1073741823L;  /* - (2^30 - 1) */
-    goto lab30; 
-  } 
-  lab45: p = mem[p].hh.v.RH; 
+      while (p != 0) {
+lab21:
+        if ((p >= hi_mem_min)) {
+          f = mem[p].hh.b0;
+          d = font_info[width_base[f]+ font_info[char_base[f]+ mem[p].hh.b1].qqqq.b0].cint;
+          goto lab40;
+        } 
+        switch (mem[p].hh.b0)
+        {
+        case 0:
+        case 1:
+        case 2:
+          {
+            d = mem[p + 1].cint;
+            goto lab40;
+          }
+          break; 
+        case 6:
+          {
+            mem[lig_trick]= mem[p + 1];
+            mem[lig_trick].hh.v.RH = mem[p].hh.v.RH;
+            p = lig_trick;
+            goto lab21;
+          } 
+          break;
+        case 11:
+        case 9:
+          d = mem[p + 1].cint;
+          break;
+        case 10:
+          {
+            q = mem[p + 1].hh.v.LH;
+            d = mem[q + 1].cint;
+            if (mem[just_box + 5].hh.b0 == 1) {
+              if ((mem[just_box + 5].hh.b1 == mem[q].hh.b0) && (mem[q + 2].cint != 0))
+                v = 1073741823L;  /* - (2^30 - 1) */
+            } else if (mem[just_box + 5].hh.b0 == 2) {
+              if ((mem[just_box + 5].hh.b1 == mem[q].hh.b1) && (mem[q + 3].cint != 0))
+                v = 1073741823L;  /* - (2^30 - 1) */
+            }
+            if (mem[p].hh.b1 >= 100)
+              goto lab40;
+          }
+          break;
+        case 8:
+          d = 0;
+          break; 
+        default:
+          d = 0; 
+          break;
+        }
+        if (v < 1073741823L) /* - (2^30 - 1) */
+          v = v + d;
+        goto lab45;
+lab40:
+        if (v < 1073741823L) /* - (2^30 - 1) */
+        {
+          v = v + d;
+          w = v;
+        } else {
+          w = 1073741823L;  /* - (2^30 - 1) */
+          goto lab30;
+        } 
+lab45:
+        p = mem[p].hh.v.RH;
       } 
-      lab30:; 
+lab30:; 
     } 
     if (eqtb[(hash_size + 1312)].hh.v.RH == 0)
-    if ((eqtb[(hash_size + 3747)].cint != 0)&&(((eqtb[(hash_size + 3204)].cint >= 0)&& 
-   (prev_graf + 2 > eqtb[(hash_size + 3204)].cint)) ||(prev_graf + 
-    1 < - (integer) eqtb[(hash_size + 3204)].cint)))
-    {
-      l = eqtb[(hash_size + 3733)].cint - abs(eqtb[(hash_size + 3747)].cint); 
-      if (eqtb[(hash_size + 3747)].cint > 0)
-      s = eqtb[(hash_size + 3747)].cint; 
-      else s = 0; 
-    } 
-    else {
-  
-      l = eqtb[(hash_size + 3733)].cint; 
-      s = 0; 
-    } 
+      if ((eqtb[(hash_size + 3747)].cint != 0) &&
+        (((eqtb[(hash_size + 3204)].cint >= 0) &&
+        (prev_graf + 2 > eqtb[(hash_size + 3204)].cint)) ||(prev_graf + 1 < - (integer) eqtb[(hash_size + 3204)].cint))) {
+          l = eqtb[(hash_size + 3733)].cint - abs(eqtb[(hash_size + 3747)].cint); 
+          if (eqtb[(hash_size + 3747)].cint > 0)
+            s = eqtb[(hash_size + 3747)].cint; 
+          else
+            s = 0;
+      } else {
+        l = eqtb[(hash_size + 3733)].cint;
+        s = 0; 
+      }
     else {
-  
       n = mem[eqtb[(hash_size + 1312)].hh.v.RH].hh.v.LH; 
       if (prev_graf + 2 >= n)
-      p = eqtb[(hash_size + 1312)].hh.v.RH + 2 * n; 
-      else p = eqtb[(hash_size + 1312)].hh.v.RH + 2 *(prev_graf + 2); 
-      s = mem[p - 1].cint; 
-      l = mem[p].cint; 
+        p = eqtb[(hash_size + 1312)].hh.v.RH + 2 * n; 
+      else
+        p = eqtb[(hash_size + 1312)].hh.v.RH + 2 *(prev_graf + 2);
+      s = mem[p - 1].cint;
+      l = mem[p].cint;
     } 
-    push_math(15); 
-    mode = 203; 
+    push_math(15);
+    mode = 203;
     eq_word_define((hash_size + 3207), -1); 
     eq_word_define((hash_size + 3743), w); 
     eq_word_define((hash_size + 3744), l); 
     eq_word_define((hash_size + 3745), s); 
     if (eqtb[(hash_size + 1316)].hh.v.RH != 0)/* everydisplay */
-    begin_token_list(eqtb[(hash_size + 1316)].hh.v.RH, 9); 
-    if (nest_ptr == 1){
-    build_page ();
-  }
-  } 
-  else {
-      
-    back_input (); 
+      begin_token_list(eqtb[(hash_size + 1316)].hh.v.RH, 9); 
+    if (nest_ptr == 1) {
+      build_page();
+    }
+  } else {
+    back_input();
     {
-      push_math(15); 
-      eq_word_define((hash_size + 3207), -1); 
+      push_math(15);
+      eq_word_define((hash_size + 3207), -1);
       if (eqtb[(hash_size + 1315)].hh.v.RH != 0)/* everymath */
-      begin_token_list(eqtb[(hash_size + 1315)].hh.v.RH, 8); 
+        begin_token_list(eqtb[(hash_size + 1315)].hh.v.RH, 8);
     } 
-  } 
-} 
+  }
+}
 /* sec 1142 */
 void start_eq_no (void) 
 {
@@ -1496,367 +1439,347 @@ void start_eq_no (void)
     push_math(15); 
     eq_word_define((hash_size + 3207), -1); 
     if (eqtb[(hash_size + 1315)].hh.v.RH != 0)/* everymath */
-    begin_token_list(eqtb[(hash_size + 1315)].hh.v.RH, 8); 
-  } 
-} 
+      begin_token_list(eqtb[(hash_size + 1315)].hh.v.RH, 8);
+  }
+}
 /* sec 1151 */
 void scan_math_(halfword p)
-{/* 20 21 10 */ 
-  integer c; 
-  lab20: do {
-      get_x_token (); 
-  } while(!((cur_cmd != 10)&&(cur_cmd != 0))); 
-  lab21: switch(cur_cmd)
-  {case 11 : 
-  case 12 : 
-  case 68 : 
+{
+  integer c;
+lab20:
+  do {
+    get_x_token(); 
+  } while(!((cur_cmd != 10) && (cur_cmd != 0)));
+lab21:
+  switch (cur_cmd)
+  {
+  case 11:
+  case 12:
+  case 68:
     {
       c = eqtb[(hash_size + 2907) + cur_chr].hh.v.RH; 
-      if (c == 32768L)
-      {
-  {
-    cur_cs = cur_chr + 1; 
-    cur_cmd = eqtb[cur_cs].hh.b0; 
-    cur_chr = eqtb[cur_cs].hh.v.RH; 
-    x_token (); 
-    back_input (); 
-  } 
-  goto lab20; 
-      } 
-    } 
+      if (c == 32768L) {
+        {
+          cur_cs = cur_chr + 1;
+          cur_cmd = eqtb[cur_cs].hh.b0;
+          cur_chr = eqtb[cur_cs].hh.v.RH;
+          x_token();
+          back_input();
+        } 
+        goto lab20; 
+      }
+    }
     break; 
-  case 16 : 
+  case 16:
     {
-      scan_char_num (); 
-      cur_chr = cur_val; 
-      cur_cmd = 68; 
-      goto lab21; 
-    } 
-    break; 
-  case 17 : 
+      scan_char_num();
+      cur_chr = cur_val;
+      cur_cmd = 68;
+      goto lab21;
+    }
+    break;
+  case 17:
     {
-      scan_fifteen_bit_int (); 
-      c = cur_val; 
-    } 
-    break; 
-  case 69 : 
-    c = cur_chr; 
+      scan_fifteen_bit_int();
+      c = cur_val;
+    }
     break; 
-  case 15 : 
+  case 69:
+    c = cur_chr;
+    break;
+  case 15:
     {
-      scan_twenty_seven_bit_int (); 
+      scan_twenty_seven_bit_int();
       c = cur_val / 4096;  
-/*      c = cur_val >> 12; */
+/* c = cur_val >> 12; */
     } 
-    break; 
-    default: 
+    break;
+  default:
     {
-      back_input (); 
-      scan_left_brace (); 
-      save_stack[save_ptr + 0].cint = p; 
-      incr(save_ptr); 
-      push_math(9); 
-      return; 
-    } 
-    break; 
-  } 
-  mem[p].hh.v.RH = 1; 
-  mem[p].hh.b1 = c % 256; 
-/*  mem[p].hh.b1 = c & 255; */ /* last 8 bits */
-  if ((c >= 28672)&& /* 32768 - 4096 ??? if (c>=var_code) and ... */
-    ((eqtb[(hash_size + 3207)].cint >= 0)&&
+      back_input();
+      scan_left_brace();
+      save_stack[save_ptr + 0].cint = p;
+      incr(save_ptr);
+      push_math(9);
+      return;
+    }
+    break;
+  }
+  mem[p].hh.v.RH = 1;
+  mem[p].hh.b1 = c % 256;
+/* mem[p].hh.b1 = c & 255; */ /* last 8 bits */
+  if ((c >= 28672) && /* 32768 - 4096 ??? if (c>=var_code) and ... */
+    ((eqtb[(hash_size + 3207)].cint >= 0) &&
     (eqtb[(hash_size + 3207)].cint < 16)))
-  mem[p].hh.b0 = eqtb[(hash_size + 3207)].cint; 
-  else mem[p].hh.b0 =(c / 256)% 16; 
+    mem[p].hh.b0 = eqtb[(hash_size + 3207)].cint; 
+  else
+    mem[p].hh.b0 =(c / 256)% 16;
 /*  else mem[p].hh.b0 =(c >> 8)& 15; */ /* 4 bits to left */
 } 
 /* sec 1155 */
 void set_math_char_(integer c)
 {
   halfword p; 
-  if (c >= 32768L)
-  {
+  if (c >= 32768L) {
     cur_cs = cur_chr + 1;          /* ??? */
 /*    cur_cmd = eqtb[eqtbextra + cur_cs].hh.b0;  */ /* was wrong ??? */
-    cur_cmd = eqtb[cur_cs].hh.b0; 
+    cur_cmd = eqtb[cur_cs].hh.b0;
 /*    cur_chr = eqtb[cur_cs].hh.v.RH; */ /* should have been eqtbextra ? */
-    cur_chr = eqtb[cur_cs].hh.v.RH; 
-    x_token (); 
-    back_input (); 
-  } 
-  else {
-      
-    p = new_noad (); 
-    mem[p + 1].hh.v.RH = 1; 
-    mem[p + 1].hh.b1 = c % 256;  
+    cur_chr = eqtb[cur_cs].hh.v.RH;
+    x_token();
+    back_input();
+  } else {
+    p = new_noad();
+    mem[p + 1].hh.v.RH = 1;
+    mem[p + 1].hh.b1 = c % 256;
 /*    mem[p + 1].hh.b1 = c & 255;  */ /* last 8 bits */
-    mem[p + 1].hh.b0 =(c / 256)% 16; 
+    mem[p + 1].hh.b0 =(c / 256)% 16;
 /*    mem[p + 1].hh.b0 =(c >> 8)& 15;  */ /* 4 bits to left */
     if (c >= 28672)  /* 32768 - 4096 ? */
     {
-      if (((eqtb[(hash_size + 3207)].cint >= 0)&&(eqtb[(hash_size + 3207)].cint < 16)) 
-    )
-      mem[p + 1].hh.b0 = eqtb[(hash_size + 3207)].cint; 
-      mem[p].hh.b0 = 16; 
-    } 
-    else mem[p].hh.b0 = 16 +(c / 4096);  
+      if (((eqtb[(hash_size + 3207)].cint >= 0) && (eqtb[(hash_size + 3207)].cint < 16)))
+        mem[p + 1].hh.b0 = eqtb[(hash_size + 3207)].cint;
+      mem[p].hh.b0 = 16;
+    } else
+      mem[p].hh.b0 = 16 +(c / 4096);  
 /*    else mem[p].hh.b0 = 16 +(c >> 12);  */
     mem[tail].hh.v.RH = p; 
     tail = p; 
   } 
 } 
 /* sec 1159 */
-void math_limit_switch (void) 
-{/* 10 */
+void math_limit_switch (void)
+{
   if (head != tail)
-  if (mem[tail].hh.b0 == 17)
-  {
-    mem[tail].hh.b1 = cur_chr; 
-    return; 
-  }
+    if (mem[tail].hh.b0 == 17) {
+      mem[tail].hh.b1 = cur_chr;
+      return;
+    }
   print_err("Limit controls must follow a math operator");
   help1("I'm ignoring this misplaced \\limits or \\nolimits command."); 
-  error (); 
+  error(); 
 } 
 /* sec 1160 */
 void scan_delimiter_(halfword p, bool r)
 {
-   if (r){
-   scan_twenty_seven_bit_int ();
-  }
-  else {
-      
-    do {
-  get_x_token (); 
-    } while(!((cur_cmd != 10)&&(cur_cmd != 0))); 
-    switch(cur_cmd)
-    {case 11 : 
-    case 12 : 
-      cur_val = eqtb[(hash_size + 3474) + cur_chr].cint; 
-      break; 
-    case 15 : 
-      scan_twenty_seven_bit_int (); 
-      break; 
-      default: 
-      cur_val = -1; 
-      break; 
-    } 
-  } 
-  if (cur_val < 0)
-  {
-         print_err("Missing delimiter (. inserted)");
-         help6("I was expecting to see something like `(' or `\\{' or",
-                 "`\\}' here. If you typed, e.g., `{' instead of `\\{', you",
-                 "should probably delete the `{' by typing `1' now, so that",
-                 "braces don't get unbalanced. Otherwise just proceed.",
-                 "Acceptable delimiters are characters whose \\delcode is",
-                 "nonnegative, or you can use `\\delimiter <delimiter code>'.");
-    back_error (); 
-    cur_val = 0; 
-  }
+   if (r) {
+     scan_twenty_seven_bit_int();
+   } else {
+     do {
+       get_x_token();
+     } while (!((cur_cmd != 10) && (cur_cmd != 0)));
+     switch (cur_cmd)
+     {
+     case 11:
+     case 12:
+       cur_val = eqtb[(hash_size + 3474) + cur_chr].cint;
+      break;
+     case 15:
+       scan_twenty_seven_bit_int();
+       break;
+     default:
+      cur_val = -1;
+      break;
+     }
+   }
+   if (cur_val < 0) {
+     print_err("Missing delimiter (. inserted)");
+     help6("I was expecting to see something like `(' or `\\{' or",
+       "`\\}' here. If you typed, e.g., `{' instead of `\\{', you",
+       "should probably delete the `{' by typing `1' now, so that",
+       "braces don't get unbalanced. Otherwise just proceed.",
+       "Acceptable delimiters are characters whose \\delcode is",
+       "nonnegative, or you can use `\\delimiter <delimiter code>'.");
+     back_error();
+     cur_val = 0;
+   }
 /* attempt to speed up - bkph */  /* is compiler smart enough already ? */
-  mem[p].qqqq.b0 =(cur_val / 1048576L)% 16;   /* 2^20 */
+  mem[p].qqqq.b0 =(cur_val / 1048576L) % 16;   /* 2^20 */
 /*  mem[p].qqqq.b0 =(cur_val >> 20)& 15;  */
-  mem[p].qqqq.b1 =(cur_val / 4096)% 256; 
+  mem[p].qqqq.b1 =(cur_val / 4096) % 256; 
 /*  mem[p].qqqq.b1 =(cur_val >> 12)& 255; */
-  mem[p].qqqq.b2 =(cur_val / 256)% 16; 
+  mem[p].qqqq.b2 =(cur_val / 256) % 16; 
 /*  mem[p].qqqq.b2 =(cur_val >> 8)& 15; */
   mem[p].qqqq.b3 = cur_val % 256; 
 /*  mem[p].qqqq.b3 = cur_val & 255;  */
 } 
 /* sec 1163 */
 void math_radical (void) 
-{ 
+{
   {
-    mem[tail].hh.v.RH = get_node(5); 
-    tail = mem[tail].hh.v.RH; 
-  } 
-  mem[tail].hh.b0 = 24; 
-  mem[tail].hh.b1 = 0; 
-  mem[tail + 1].hh = empty_field; 
-  mem[tail + 3].hh = empty_field; 
-  mem[tail + 2].hh = empty_field; 
-  scan_delimiter(tail + 4, true); 
-  scan_math(tail + 1); 
-} 
+    mem[tail].hh.v.RH = get_node(5);
+    tail = mem[tail].hh.v.RH;
+  }
+  mem[tail].hh.b0 = 24;
+  mem[tail].hh.b1 = 0;
+  mem[tail + 1].hh = empty_field;
+  mem[tail + 3].hh = empty_field;
+  mem[tail + 2].hh = empty_field;
+  scan_delimiter(tail + 4, true);
+  scan_math(tail + 1);
+}
 /* sec 1165 */
 void math_ac (void) 
 { 
-  if (cur_cmd == 45)
-  {
+  if (cur_cmd == 45) {
     print_err("Please use ");
     print_esc("mathaccent");
     print_string(" for accents in math mode");
-       help2("I'm changing \\accent to \\mathaccent here; wish me luck.",
-               "(Accents are not the same in formulas as they are in text.)");
-    error (); 
+    help2("I'm changing \\accent to \\mathaccent here; wish me luck.",
+      "(Accents are not the same in formulas as they are in text.)");
+    error();
   } 
   {
     mem[tail].hh.v.RH = get_node(5); 
     tail = mem[tail].hh.v.RH; 
   } 
-  mem[tail].hh.b0 = 28; 
-  mem[tail].hh.b1 = 0; 
-  mem[tail + 1].hh = empty_field; 
-  mem[tail + 3].hh = empty_field; 
-  mem[tail + 2].hh = empty_field; 
-  mem[tail + 4].hh.v.RH = 1; 
-  scan_fifteen_bit_int (); 
-  mem[tail + 4].hh.b1 = cur_val % 256;  
+  mem[tail].hh.b0 = 28;
+  mem[tail].hh.b1 = 0;
+  mem[tail + 1].hh = empty_field;
+  mem[tail + 3].hh = empty_field;
+  mem[tail + 2].hh = empty_field;
+  mem[tail + 4].hh.v.RH = 1;
+  scan_fifteen_bit_int();
+  mem[tail + 4].hh.b1 = cur_val % 256;
 /*  mem[tail + 4].hh.b1 = cur_val & 255; */
-  if ((cur_val >= 28672)&& /* 32768 - 4096 ? */
-    ((eqtb[(hash_size + 3207)].cint >= 0)&&
+  if ((cur_val >= 28672) && /* 32768 - 4096 ? */
+    ((eqtb[(hash_size + 3207)].cint >= 0) &&
     (eqtb[(hash_size + 3207)].cint < 16)))
-  mem[tail + 4].hh.b0 = eqtb[(hash_size + 3207)].cint; 
-  else mem[tail + 4].hh.b0 =(cur_val / 256)% 16; 
+    mem[tail + 4].hh.b0 = eqtb[(hash_size + 3207)].cint;
+  else
+    mem[tail + 4].hh.b0 =(cur_val / 256) % 16;
 /*  else mem[tail + 4].hh.b0 =(cur_val >> 8)& 15; */
-  scan_math(tail + 1); 
+  scan_math(tail + 1);
 } 
 /* sec 1172 */
 void append_choices (void) 
-{ 
+{
   {
-    mem[tail].hh.v.RH = new_choice (); 
-    tail = mem[tail].hh.v.RH; 
-  } 
-  incr(save_ptr); 
-  save_stack[save_ptr - 1].cint = 0; 
-  push_math(13); 
-  scan_left_brace (); 
+    mem[tail].hh.v.RH = new_choice();
+    tail = mem[tail].hh.v.RH;
+  }
+  incr(save_ptr);
+  save_stack[save_ptr - 1].cint = 0;
+  push_math(13);
+  scan_left_brace();
 } 
 /* sec 1184 */
 halfword fin_mlist_(halfword p)
-{register halfword Result; 
-  halfword q; 
-  if (cur_list.aux_field.cint != 0)
-  {
-    mem[cur_list.aux_field.cint + 3].hh.v.RH = 3; 
-    mem[cur_list.aux_field.cint + 3].hh.v.LH = mem[head]
-   .hh.v.RH; 
+{
+  register halfword Result;
+  halfword q;
+  if (cur_list.aux_field.cint != 0) {
+    mem[cur_list.aux_field.cint + 3].hh.v.RH = 3;
+    mem[cur_list.aux_field.cint + 3].hh.v.LH = mem[head].hh.v.RH;
     if (p == 0)
-    q = cur_list.aux_field.cint; 
+      q = cur_list.aux_field.cint;
     else {
-      q = mem[cur_list.aux_field.cint + 2].hh.v.LH; 
-      if (mem[q].hh.b0 != 30){
-      confusion("right");
-      return 0;       // abort_flag set
+      q = mem[cur_list.aux_field.cint + 2].hh.v.LH;
+      if (mem[q].hh.b0 != 30) {
+        confusion("right");
+        return 0;       // abort_flag set
+      }
+      mem[cur_list.aux_field.cint + 2].hh.v.LH = mem[q].hh.v.RH;
+      mem[q].hh.v.RH = cur_list.aux_field.cint;
+      mem[cur_list.aux_field.cint].hh.v.RH = p;
     }
-      mem[cur_list.aux_field.cint + 2].hh.v.LH = mem[q].hh.v.RH; 
-      mem[q].hh.v.RH = cur_list.aux_field.cint; 
-      mem[cur_list.aux_field.cint].hh.v.RH = p; 
-    } 
-  } 
-  else {
-    mem[tail].hh.v.RH = p; 
-    q = mem[head].hh.v.RH; 
-  } 
-  pop_nest (); 
-  Result = q; 
-  return Result; 
-} 
+  } else {
+    mem[tail].hh.v.RH = p;
+    q = mem[head].hh.v.RH;
+  }
+  pop_nest();
+  Result = q;
+  return Result;
+}
 /* sec 1174 */
 void build_choices (void) 
-{/* 10 */
-  halfword p; 
-  unsave (); 
-  p = fin_mlist(0); 
-  switch(save_stack[save_ptr - 1].cint)
-  {case 0 : 
-    mem[tail + 1].hh.v.LH = p; 
-    break; 
-  case 1 : 
-    mem[tail + 1].hh.v.RH = p; 
-    break; 
-  case 2 : 
-    mem[tail + 2].hh.v.LH = p; 
-    break; 
-  case 3 : 
+{
+  halfword p;
+  unsave();
+  p = fin_mlist(0);
+  switch (save_stack[save_ptr - 1].cint)
+  {
+  case 0:
+    mem[tail + 1].hh.v.LH = p;
+    break;
+  case 1:
+    mem[tail + 1].hh.v.RH = p;
+    break;
+  case 2:
+    mem[tail + 2].hh.v.LH = p;
+    break;
+  case 3:
     {
-      mem[tail + 2].hh.v.RH = p; 
-      decr(save_ptr); 
-      return; 
-    } 
-    break; 
-  } 
-  incr(save_stack[save_ptr - 1].cint); 
-  push_math(13); 
-  scan_left_brace (); 
-} 
+      mem[tail + 2].hh.v.RH = p;
+      decr(save_ptr);
+      return;
+    }
+    break;
+  }
+  incr(save_stack[save_ptr - 1].cint);
+  push_math(13);
+  scan_left_brace();
+}
 /* sec 1176 */
 void sub_sup (void) 
 {
 /*  small_number t; */
   int t;              /* 95/Jan/7 */
-  halfword p; 
-  t = 0; 
-  p = 0; 
+  halfword p;
+  t = 0;
+  p = 0;
   if (tail != head)
-  if ((mem[tail].hh.b0 >= 16)&&
-    (mem[tail].hh.b0 < 30)) 
-  {
-    p = tail + 2 + cur_cmd - 7; 
-    t = mem[p].hh.v.RH; 
-  } 
-  if ((p == 0)||(t != 0)) 
-  {
-    {
-      mem[tail].hh.v.RH = new_noad (); 
-      tail = mem[tail].hh.v.RH; 
-    } 
-    p = tail + 2 + cur_cmd - 7; 
-    if (t != 0)
+    if ((mem[tail].hh.b0 >= 16) && (mem[tail].hh.b0 < 30)) {
+      p = tail + 2 + cur_cmd - 7;
+      t = mem[p].hh.v.RH;
+    }
+  if ((p == 0)||(t != 0)) {
     {
-      if (cur_cmd == 7)
-      {
-                 print_err("Double superscript");
-                 help1("I treat `x^1^2' essentially like `x^1{}^2'.");
-      } 
-      else {
-    print_err("Double subscript");
-       help1("I treat `x_1_2' essentially like `x_1{}_2'.");
-      } 
-      error (); 
-    } 
-  } 
-  scan_math(p); 
-} 
+      mem[tail].hh.v.RH = new_noad();
+      tail = mem[tail].hh.v.RH;
+    }
+    p = tail + 2 + cur_cmd - 7;
+    if (t != 0) {
+      if (cur_cmd == 7) {
+        print_err("Double superscript");
+        help1("I treat `x^1^2' essentially like `x^1{}^2'.");
+      } else {
+        print_err("Double subscript");
+        help1("I treat `x_1_2' essentially like `x_1{}_2'.");
+      }
+      error();
+    }
+  }
+  scan_math(p);
+}
 /* used to continue here with math_fraction etc in tex7.c */
 /*****************************************************************************/
 /* moved down here to avoid pragma optimize questions 96/Sep/12 */
-/* #pragma optimize("g", off) */          /* for MC VS compiler */
-/* #pragma optimize("a", off) */          /* for MC VS compiler */
 /* sec 1086 */
 void package_(small_number c)
 { 
-  scaled h; 
-  halfword p; 
-  scaled d; 
-  d = eqtb[(hash_size + 3737)].cint; 
-  unsave (); 
-  save_ptr = save_ptr - 3; 
+  scaled h;
+  halfword p;
+  scaled d;
+  d = eqtb[(hash_size + 3737)].cint;
+  unsave();
+  save_ptr = save_ptr - 3;
   if (mode == -102)
-  cur_box = hpack(mem[head].hh.v.RH, save_stack[save_ptr 
-  + 2].cint, save_stack[save_ptr + 1].cint); 
+    cur_box = hpack(mem[head].hh.v.RH, save_stack[save_ptr + 2].cint, save_stack[save_ptr + 1].cint);
   else {
-    cur_box = vpackage(mem[head].hh.v.RH, save_stack[
-    save_ptr + 2].cint, save_stack[save_ptr + 1].cint, d); 
-    if (c == 4)
-    {
-      h = 0; 
-      p = mem[cur_box + 5].hh.v.RH; 
+    cur_box = vpackage(mem[head].hh.v.RH, save_stack[save_ptr + 2].cint, save_stack[save_ptr + 1].cint, d);
+    if (c == 4) {
+      h = 0;
+      p = mem[cur_box + 5].hh.v.RH;
       if (p != 0)
-      if (mem[p].hh.b0 <= 2)
-      h = mem[p + 3].cint; 
-      mem[cur_box + 2].cint = mem[cur_box + 2].cint - h + mem[cur_box + 
-      3].cint; 
-      mem[cur_box + 3].cint = h; 
-    } 
-  } 
-  pop_nest (); 
-  box_end(save_stack[save_ptr + 0].cint); 
-} 
-/* #pragma optimize("g", on) */         /* for MC VS compiler */
-/* #pragma optimize("a", on) */         /* for MC VS compiler */
-/* #pragma optimize("a",) */          /* 94/Jan/25 */
+        if (mem[p].hh.b0 <= 2)
+          h = mem[p + 3].cint; 
+      mem[cur_box + 2].cint = mem[cur_box + 2].cint - h + mem[cur_box + 3].cint;
+      mem[cur_box + 3].cint = h;
+    }
+  }
+  pop_nest();
+  box_end(save_stack[save_ptr + 0].cint);
+}
 #pragma optimize ("", on)           /* 96/Sep/12 */
 /****************************************************************************/