string clean.

diff --git a/src/texsourc/coerce.h b/src/texsourc/coerce.h
index cc07e02..2bf43ab 100644 (file)
--- a/src/texsourc/coerce.h
+++ b/src/texsourc/coerce.h
@@ -301,9 +301,9 @@ str_number w_make_name_string_(word_file *);
 #define w_make_name_string(f) w_make_name_string_((word_file *) &(f))
 void scan_file_name(void);
 void pack_job_name_(str_number);
-#define pack_job_name(s) pack_job_name_((str_number) (s))
-void prompt_file_name_(str_number, str_number);
-#define prompt_file_name(s, e) prompt_file_name_((str_number) (s), (str_number) (e))
+#define pack_job_name(s) pack_job_name_(make_string_pool((char*)s))
+void prompt_file_name_(char *, str_number);
+#define prompt_file_name(s, e) prompt_file_name_((char *) s, make_string_pool((char*)e))
 void open_log_file(void);
 void start_input(void);
 internal_font_number read_font_info_(halfword, str_number, str_number, scaled);

diff --git a/src/texsourc/itex.c b/src/texsourc/itex.c
index 30ab4bd..0f40307 100644 (file)
--- a/src/texsourc/itex.c
+++ b/src/texsourc/itex.c
@@ -3373,13 +3373,16 @@ lab40:
 void trie_pack_ (trie_pointer p)
 {
   trie_pointer q;
+
   do {
     q = trie_l[p];
+
     if ((q > 0) && (trie_hash[q]== 0))
     {
       first_fit(q);
       trie_pack(q);
     }
+
     p = trie_r[p];
   } while(!(p == 0));
 }
@@ -3390,17 +3393,21 @@ void trie_fix_ (trie_pointer p)
   trie_pointer z;
 
   z = trie_hash[p];
+
   do {
     q = trie_l[p];
     c = trie_c[p];
     trie_trl[z + c] = trie_hash[q];
     trie_trc[z + c] = c;
     trie_tro[z + c] = trie_o[p];
+
     if (q > 0)
       trie_fix(q);
+
     p = trie_r[p];
   } while(!(p == 0));
 }
+/* sec 0960 */
 void new_patterns (void)
 {
 /* ******************************************************************* */
@@ -3435,29 +3442,28 @@ void new_patterns (void)
 /* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
   if (trie_not_ready)
   {
-    if (language <= 0)
-      cur_lang = 0;
-    else if (language > 255)
-      cur_lang = 0;
-    else
-      cur_lang = language;
+    set_cur_lang();
     scan_left_brace();
     k = 0;
     hyf[0] = 0;
     digitsensed = false;
-    while (true) {
+
+    while (true)
+    {
       get_x_token();
+
       switch (cur_cmd)
       {
-        case 11:
-        case 12:
-          if (digitsensed || (cur_chr < 48) || (cur_chr > 57))
+        case letter:
+        case other_char:
+          if (digitsensed || (cur_chr < '0') || (cur_chr > '9'))
           {
             if (cur_chr == '.')
               cur_chr = 0;
             else
             {
-              cur_chr = eqtb[(hash_size + 2139) + cur_chr].hh.v.RH;
+              cur_chr = lc_code(cur_chr);
+
               if (cur_chr == 0)
               {
                 print_err("Nonletter");
@@ -3465,6 +3471,7 @@ void new_patterns (void)
                 error();
               }
             }
+
             if (k < 63)
             {
               incr(k);
@@ -3475,43 +3482,49 @@ void new_patterns (void)
           }
           else if (k < 63)
           {
-            hyf[k] = cur_chr - 48;
+            hyf[k] = cur_chr - '0';
             digitsensed = true;
           }
           break;
-        case 10:
-        case 2:
+        case spacer:
+        case right_brace:
           {
             if (k > 0)
             {
               if (hc[1] == 0)
                 hyf[0] = 0;
+
               if (hc[k] == 0)
                 hyf[k] = 0;
+
               l = k;
               v = min_trie_op;
+
               while (true) {
                 if (hyf[l]!= 0)
                   v = new_trie_op(k - l, hyf[l], v);
+
                 if (l > 0)
                   decr(l);
                 else
                   goto lab31;
               }
 lab31:
-              ;
               q = 0;
               hc[0] = cur_lang;
+
               while (l <= k) {
                 c = hc[l];
                 incr(l);
                 p = trie_l[q];
                 firstchild = true;
+
                 while ((p > 0) && (c > trie_c[p])) {
                   q = p;
                   p = trie_r[q];
                   firstchild = false;
                 }
+
                 if ((p == 0) || (c < trie_c[p]))
                 {
                   if (trie_ptr == trie_size)
@@ -3520,29 +3533,36 @@ lab31:
 /*      not dynamic ---- but can be set -h=... from command line in ini-TeX */
                     return;     // abort_flag set
                   }
+
                   incr(trie_ptr);
                   trie_r[trie_ptr] = p;
                   p = trie_ptr;
                   trie_l[p] = 0;
+
                   if (firstchild)
                     trie_l[q]= p;
                   else
                     trie_r[q]= p;
+
                   trie_c[p] = c;
                   trie_o[p] = min_trie_op;
                 }
                 q = p;
               }
+
               if (trie_o[q]!= min_trie_op)
               {
                 print_err("Duplicate pattern");
                 help1("(See Appendix H.)");
                 error();
               }
+
               trie_o[q]= v;
             }
-            if (cur_cmd == 2)
+
+            if (cur_cmd == right_brace)
               goto lab30;
+
             k = 0;
             hyf[0] = 0;
             digitsensed = false;
@@ -3566,10 +3586,11 @@ lab30:;
     print_esc("patterns");
     help1("All patterns must be given before typesetting begins.");
     error();
-    mem[lig_trick].hh.v.RH = scan_toks(false, false);
+    link(garbage) = scan_toks(false, false);
     flush_list(def_ref);
   }
 }
+/* sec 0966 */
 void init_trie (void)
 {
   trie_pointer p;
@@ -3577,19 +3598,23 @@ void init_trie (void)
   integer j, k;
   int t;                  /* 95/Jan/7 */
   trie_pointer r, s;
-  op_start[0]= - (integer) min_trie_op;
+
+  op_start[0] = - (integer) min_trie_op;
 
   for (j = 1; j <= 255; j++)
   {
     op_start[j] = op_start[j - 1] + trie_used[j - 1];
   }
+
   for (j = 1; j <= trie_op_ptr; j++)
   {
     trie_op_hash[j] = op_start[trie_op_lang[j]] + trie_op_val[j];
   }
+
   for (j = 1; j <= trie_op_ptr; j++)
   {
-    while (trie_op_hash[j] > j) {
+    while (trie_op_hash[j] > j)
+    {
       k = trie_op_hash[j];
       t = hyf_distance[k];
       hyf_distance[k] = hyf_distance[j];
@@ -3604,26 +3629,33 @@ void init_trie (void)
       trie_op_hash[k] = k;
     }
   }
+
   for (p = 0; p <= trie_size; p++)
   {
     trie_hash[p] = 0;
   }
+
   trie_l[0] = compress_trie(trie_l[0]);
+
   for (p = 0; p <= trie_ptr; p++)
   {
     trie_hash[p]= 0;
   }
+
   for (p = 0; p <= 255; p++)
   {
     trie_min[p] = p + 1;
   }
+
   trie_trl[0] = 1;
   trie_max = 0;
+
   if (trie_l[0] != 0)
   {
     first_fit(trie_l[0]);
     trie_pack(trie_l[0]);
   }
+
   if (trie_l[0] == 0)
   {
     for (r = 0; r <= 256; r++)
@@ -3676,7 +3708,7 @@ void store_fmt_file (void)
     print_err("You can't dump inside a group");
     help1("`{...\\dump}' is a no-no..");
     succumb();
-  } /* end of if save_ptr != 0 */
+  }
 
   selector = new_string;
   print_string(" (format=");
@@ -3696,12 +3728,11 @@ void store_fmt_file (void)
 
   str_room(1);
   format_ident = make_string();
-  pack_job_name(780);   /* .fmt */
-  //pack_job_name(make_string_pool(".fmt"));
+  pack_job_name(".fmt");
 
-  while(! w_open_out(fmt_file))
+  while(!w_open_out(fmt_file))
   {
-    prompt_file_name(1267, 780); /* format file name  .fmt */
+    prompt_file_name("format file name", ".fmt");
   }
 
   print_nl("Beginning to dump on file ");
@@ -3709,6 +3740,7 @@ void store_fmt_file (void)
   flush_string();
   print_nl("");
   slow_print(format_ident);
+
   dump_int(BEGINFMTCHECKSUM); /* magic FMT file start 4C 20 E6 15 hex */
 
   dump_int(mem_bot);
@@ -3719,10 +3751,13 @@ void store_fmt_file (void)
 
   dump_int(pool_ptr);
   dump_int(str_ptr);
+
   if (dumpthings(str_start[0], str_ptr + 1))
     return;
+
   if (dumpthings(str_pool[0], pool_ptr))
     return;
+
   print_ln();
   print_int(str_ptr);
   print_string(" strings of total length ");
@@ -3735,29 +3770,41 @@ void store_fmt_file (void)
   p = 0;
   q = rover;
   x = 0;
-  do {
-    if (dumpthings(mem[p], q + 2 - p))
-      return;
-    x = x + q + 2 - p;
-    var_used = var_used + q - p;
-    p = q + mem[q].hh.v.LH;
-    q = mem[q + 1].hh.v.RH;
-  } while (!(q == rover));
+
+  do
+    {
+      if (dumpthings(mem[p], q + 2 - p))
+        return;
+
+      x = x + q + 2 - p;
+      var_used = var_used + q - p;
+      p = q + mem[q].hh.v.LH;
+      q = mem[q + 1].hh.v.RH;
+    }
+  while (!(q == rover));
+
   var_used = var_used + lo_mem_max - p;
   dyn_used = mem_end + 1 - hi_mem_min;
+
   if (dumpthings(mem[p], lo_mem_max + 1 - p))
     return;
+
   x = x + lo_mem_max + 1 - p;
   dump_int(hi_mem_min);
   dump_int(avail);
+
   if (dumpthings(mem[hi_mem_min], mem_end + 1 - hi_mem_min))
     return;
+
   x = x + mem_end + 1 - hi_mem_min;
   p = avail;
-  while (p != 0) {
+
+  while (p != 0)
+  {
     decr(dyn_used);
     p = mem[p].hh.v.RH;
   }
+
   dump_int(var_used);
   dump_int(dyn_used);
   print_ln();
@@ -3768,34 +3815,41 @@ void store_fmt_file (void)
   print_int(dyn_used);
 
   k = active_base;
-  do {
-    j = k;
-    while (j < (int_base - 1)) {
-      if ((equiv(j) == equiv(j + 1)) &&
+  do
+    {
+      j = k;
+
+      while (j < (int_base - 1))
+      {
+        if ((equiv(j) == equiv(j + 1)) &&
           (eq_type(j) == eq_type(j + 1)) &&
           (eq_level(j) == eq_level(j + 1)))
-        goto lab41;
-      incr(j);
-    }
-    l = (int_base);
-    goto lab31;
+          goto lab41;
+        incr(j);
+      }
+
+      l = (int_base);
+      goto lab31;
 lab41:
-    incr(j);
-    l = j;
-    while (j < (int_base - 1)) {
-      if ((equiv(j) != equiv(j + 1)) ||
+      incr(j);
+      l = j;
+      while (j < (int_base - 1)) {
+        if ((equiv(j) != equiv(j + 1)) ||
           (eq_type(j) != eq_type(j + 1)) ||
           (eq_level(j) != eq_level(j + 1)))
-        goto lab31;
-      incr(j);
-    }
+          goto lab31;
+        incr(j);
+      }
 lab31:
-    dump_int(l - k);
-    if (dumpthings(eqtb[k], l - k))
-      return;
-    k = j + 1;
-    dump_int(k - l);
-  } while (!(k == (int_base)));
+      dump_int(l - k);
+
+      if (dumpthings(eqtb[k], l - k))
+        return;
+
+      k = j + 1;
+      dump_int(k - l);
+    }
+  while (!(k == (int_base)));
 
   do {
     j = k;
@@ -3830,7 +3884,6 @@ lab32:
 
   if (trace_flag)
   {
-    /* debugging */
     sprintf(log_line, "itex cs_count %d hash_size %d hash_extra %d hash_used %d",
         cs_count, hash_size, hash_extra, hash_used);
     show_line(log_line, 0);
@@ -3856,6 +3909,7 @@ lab32:
 /* for p <- hash_used+1 to undefined_control_sequence-1 do dump_hh(hash[p]) */
   if (dumpthings(hash[hash_used + 1], (hash_size + 780) - hash_used))
     return;
+
   dump_int(cs_count);
   print_ln();
   print_int(cs_count);
@@ -3865,54 +3919,78 @@ lab32:
   {
     if (dumpthings(font_info[0], fmem_ptr))
       return;
-/*  frozenfontptr = font_ptr; */    /* number of fonts frozen into format */
+
     dump_int(font_ptr);
+
     if (dumpthings(font_check[0], font_ptr + 1))
       return;
+
     if (dumpthings(font_size[0], font_ptr + 1))
       return;
+
     if (dumpthings(font_dsize[0], font_ptr + 1))
       return;
+
     if (dumpthings(font_params[0], font_ptr + 1))
       return;
+
     if (dumpthings(hyphen_char[0], font_ptr + 1))
       return;
+
     if (dumpthings(skew_char[0], font_ptr + 1))
       return;
+
     if (dumpthings(font_name[0], font_ptr + 1))
       return;
+
     if (dumpthings(font_area[0], font_ptr + 1))
       return;
+
     if (dumpthings(font_bc[0], font_ptr + 1))
       return;
+
     if (dumpthings(font_ec[0], font_ptr + 1))
       return;
+
     if (dumpthings(char_base[0], font_ptr + 1))
       return;
+
     if (dumpthings(width_base[0], font_ptr + 1))
       return;
+
     if (dumpthings(height_base[0], font_ptr + 1))
       return;
+
     if (dumpthings(depth_base[0], font_ptr + 1))
       return;
+
     if (dumpthings(italic_base[0], font_ptr + 1))
       return;
+
     if (dumpthings(lig_kern_base[0], font_ptr + 1))
       return;
+
     if (dumpthings(kern_base[0], font_ptr + 1))
       return;
+
     if (dumpthings(exten_base[0], font_ptr + 1))
       return;
+
     if (dumpthings(param_base[0], font_ptr + 1))
       return;
+
     if (dumpthings(font_glue[0], font_ptr + 1))
       return;
+
     if (dumpthings(bchar_label[0], font_ptr + 1))
       return;
+
     if (dumpthings(font_bchar[0], font_ptr + 1))
       return;
+
     if (dumpthings(font_false_bchar[0], font_ptr + 1))
       return;
+
     for (k = 0; k <= font_ptr; k++)
     {
       print_nl("\\font");
@@ -3921,6 +3999,7 @@ lab32:
       print_esc("");print(hash[(hash_size + hash_extra + 524) + k].v.RH);
       print_char('=');
       print_file_name(font_name[k], font_area[k], 335);
+
       if (font_size[k] != font_dsize[k])
       {
         print_string(" at ");
@@ -3929,15 +4008,18 @@ lab32:
       }
     }
   }
+
   print_ln();
   print_int(fmem_ptr - 7);
   print_string(" words of font info for ");
   print_int(font_ptr - 0);
   print_string(" preloaded font");
+
   if (font_ptr != 1)
     print_char('s');
 
   dump_int(hyph_count);
+
   for (k = 0; k <= hyphen_prime; k++)
   {
     if (hyph_word[k]!= 0)
@@ -3947,36 +4029,51 @@ lab32:
       dump_int(hyph_list[k]);
     }
   }
+
   print_ln();
   print_int(hyph_count);
   print_string(" hyphenation exception");
+
   if (hyph_count != 1)
     print_char('s');
+
   if (trie_not_ready)
     init_trie();
+
   dump_int(trie_max);
+
   if (dumpthings(trie_trl[0], trie_max + 1))
     return;
+
   if (dumpthings(trie_tro[0], trie_max + 1))
     return;
+
   if (dumpthings(trie_trc[0], trie_max + 1))
     return;
+
   dump_int(trie_op_ptr);
+
   if (dumpthings(hyf_distance[1], trie_op_ptr))
     return;
+
   if (dumpthings(hyf_num[1], trie_op_ptr))
     return;
+
   if (dumpthings(hyf_next[1], trie_op_ptr))
     return;
+
   print_nl("Hyphenation trie of length ");
   print_int(trie_max);
   print_string(" has ");
   print_int(trie_op_ptr);
   print_string(" op");
+
   if (trie_op_ptr != 1)
     print_char('s');
+
   print_string(" out of ");
   print_int(trie_op_size);
+
   for (k = 255; k >= 0; k--)
   {
     if (trie_used[k] > 0)
@@ -3995,7 +4092,7 @@ lab32:
   tracing_stats = 0;
 
   w_close(fmt_file);
-} /* end of store_fmt_file */
+}
 #endif /* INITEX */
 
 #ifdef INITEX

diff --git a/src/texsourc/openinou.c b/src/texsourc/openinou.c
index fea4be7..d7be2cc 100644 (file)
--- a/src/texsourc/openinou.c
+++ b/src/texsourc/openinou.c
@@ -331,7 +331,6 @@ bool open_input (FILE **f, path_constant_type path_index, char *fopen_mode)
         since TeX wants to look at it.  What a kludge.  */
     if (path_index == TFMFILEPATH)
     { /* See comments in ctex.ch for why we need this.  */
-/*          extern integer tfm_temp; */ /* see texd.h for definition */
       tfm_temp = getc (*f);
     }
 #endif /* TeX */  

diff --git a/src/texsourc/tex0.c b/src/texsourc/tex0.c
index 8063a09..8e2868e 100644 (file)
--- a/src/texsourc/tex0.c
+++ b/src/texsourc/tex0.c
@@ -29,6 +29,15 @@ static void winerror (char * message)
 #endif
 
 /* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
+void set_cur_lang(void)
+{
+  if (language <= 0)
+    cur_lang = 0;
+  else if (language > 255)
+    cur_lang = 0;
+  else
+    cur_lang = language;
+}
 INLINE void free_avail_(halfword p)
 {
   link(p) = avail;
@@ -739,7 +748,7 @@ void fatal_error_(char * s)
 void overflow_(char * s, integer n)
 {
   normalize_selector();
-  print_err("TeX capacity exceeded, sorry[");
+  print_err("TeX capacity exceeded, sorry [");
   print_string(s);
   print_char('=');
   print_int(n);
@@ -2172,8 +2181,8 @@ void print_subsidiary_data_(halfword p, ASCII_code c)
 {
   if ((pool_ptr - str_start[str_ptr]) >= depth_threshold)
   {
-    if (mem[p].hh.v.RH != 0)
-      print_string("[]");
+    if (math_type(p) != 0)
+      print_string(" []");
   }
   else
   {
@@ -2301,7 +2310,7 @@ void show_node_list_(integer p)
   {
 /*  if (p > 0) */  /* was p>null !!! line 3662 in tex.web */
     if (p != 0)    /* fixed 94/Mar/23 BUG FIX NOTE: still not fixed in 3.14159 ! */
-    print_string("[]");
+    print_string(" []");
     return; 
   } 
   n = 0; 
@@ -2349,19 +2358,19 @@ void show_node_list_(integer p)
             }
             if (mem[p + 6].cint != 0)
             {
-              print_string(", stretch");
+              print_string(", stretch ");
               print_glue(mem[p + 6].cint, mem[p + 5].hh.b1, "");
             }
             if (mem[p + 4].cint != 0)
             {
-              print_string(", shrink");
+              print_string(", shrink ");
               print_glue(mem[p + 4].cint, mem[p + 5].hh.b0, "");
             }
           } else {
             g = mem[p + 6].gr;
             if ((g != 0.0)&&(mem[p + 5].hh.b0 != 0))
             {
-              print_string(", glue set");
+              print_string(", glue set ");
               if (mem[p + 5].hh.b0 == 2)
                 print_string("- ");
               if (fabs(g)> 20000.0)
@@ -2409,7 +2418,7 @@ void show_node_list_(integer p)
           print_spec(mem[p + 4].hh.v.RH, "");
           print_char(',');
           print_scaled(mem[p + 2].cint);
-          print_string("(; float cost");
+          print_string("); float cost ");
           print_int(mem[p + 1].cint);
           {
             {
@@ -2525,7 +2534,7 @@ void show_node_list_(integer p)
           else print_string("off");
           if (mem[p + 1].cint != 0)
           {
-            print_string(", surrounded");
+            print_string(", surrounded ");
             print_scaled(mem[p + 1].cint);
           }
         }
@@ -2533,7 +2542,7 @@ void show_node_list_(integer p)
       case 6:
         {
           print_font_and_char(p + 1);
-          print_string("(ligature");
+          print_string("(ligature ");
           if (mem[p].hh.b1 > 1)
             print_char('|');
           font_in_short_display = mem[p + 1].hh.b0; 

diff --git a/src/texsourc/tex1.c b/src/texsourc/tex1.c
index 80f63b3..a97dfa2 100644 (file)
--- a/src/texsourc/tex1.c
+++ b/src/texsourc/tex1.c
@@ -554,7 +554,7 @@ void show_activities (void)
       }
 
       if (link(contrib_head) != 0)
-        print_nl(" (\\output routine)");
+        print_nl("### recent contributions:");
     }
 
     show_box(link(nest[p].head_field));
@@ -563,7 +563,7 @@ void show_activities (void)
     {
       case 0:
         {
-          print_nl("### recent contributions:");
+          print_nl("prevdepth ");
 
           if  (a.cint <= ignore_depth)
             print_string("ignored");

diff --git a/src/texsourc/tex3.c b/src/texsourc/tex3.c
index 6a9e589..691ab35 100644 (file)
--- a/src/texsourc/tex3.c
+++ b/src/texsourc/tex3.c
@@ -1448,14 +1448,12 @@ void begin_name (void)
 /* sec 0516 */
 bool more_name_(ASCII_code c)
 {
-  register bool Result;
-
   if (quoted_file_name == 0 && c == ' ')
-    Result = false;
+    return false;
   else if (quoted_file_name != 0 && c == '"')
   {
     quoted_file_name = 0; /* catch next space character */
-    Result = true;    /* accept ending quote, but throw away */
+    return true;    /* accept ending quote, but throw away */
   }
   else
   {
@@ -1478,9 +1476,8 @@ bool more_name_(ASCII_code c)
     } 
     else if (c == '.')
       ext_delimiter = cur_length;
-    Result = true;
+    return true;
   }
-  return Result;
 }
 /******************************** 2000 August 15th start ***********************/
 
@@ -1511,12 +1508,13 @@ int find_string (int start, int end)
 
 //  avoid problems with(cur_name == flushablestring)by going only up to str_ptr-1
 //  code in new_font (tex8.c) will take care of reuse of font name already
-//  for (k = 0; k < str_ptr; k++) {
   for (k = 0; k < str_ptr - 1; k++)
   {
     if (length(k) != nlen) continue;
-    if (strncmp((const char *) str_pool + start, (const char *) str_pool + str_start[k], nlen) == 0) {
-      if (trace_flag) {
+    if (strncmp((const char *) str_pool + start, (const char *) str_pool + str_start[k], nlen) == 0)
+    {
+      if (trace_flag)
+      {
         sprintf(log_line, "\nFOUND the string %d (%d) ", k, str_start[k+1]-str_start[k]);
         s = log_line + strlen(log_line);
         strncpy(s, (const char *)str_pool + start, nlen);
@@ -1526,13 +1524,16 @@ int find_string (int start, int end)
       return k;     // return number of matching string
     }
   }
-  if (trace_flag) {
+
+  if (trace_flag)
+  {
     sprintf(log_line, "\nNOT FOUND string ");
     s = log_line + strlen(log_line);
     strncpy(s, (const char*)str_pool + start, nlen);
     strcpy(s+nlen, "\n");
     show_line(log_line, 0);
   }
+
   return -1;          // no match found
 }
 
@@ -1548,7 +1549,8 @@ void remove_string (int start, int end)
 //  if (end < start) show_line("\nEND < START", 1);
 //  if (pool_ptr < end) show_line("\nPOOLPTR < END", 1);
 
-  if (trace_flag) {
+  if (trace_flag)
+  {
     int n = end-start;
     sprintf(log_line, "\nSTRIPPING OUT %d %d ", n, nlen);
     s = log_line + strlen(log_line);
@@ -1556,7 +1558,10 @@ void remove_string (int start, int end)
     strcpy(s+n, "\n");
     show_line(log_line, 0);
   }
-  if (nlen > 0) memcpy(str_pool+start, str_pool+end, nlen);
+
+  if (nlen > 0)
+    memcpy(str_pool+start, str_pool+end, nlen);
+
   pool_ptr = start + nlen;    // poolprt - (end-start);
 }
 
@@ -1573,10 +1578,13 @@ void show_string (int k)
   show_line(log_line, 0);
 }
 
+// debugging code
 void show_all_strings (void)
-{   // debugging code
+{
   int k;
-  for (k = 0; k < str_ptr; k++) show_string(k);
+
+  for (k = 0; k < str_ptr; k++)
+    show_string(k);
 }
 
 // int notfirst=0;    // debugging only
@@ -1584,19 +1592,17 @@ void show_all_strings (void)
 /********************************** 2000 August 15 end ****************************/
 /* sec 0517 */
 void end_name (void) 
-{ 
-/* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
+{
 #ifdef ALLOCATESTRING
   if (str_ptr + 3 > current_max_strings)
-/*    str_start = realloc_str_start(increment_max_strings); */
     str_start = realloc_str_start(increment_max_strings + 3);
+
   if (str_ptr + 3 > current_max_strings)
-  {  /* in case it failed 94/Jan/24 */
+  {
     overflow("number of strings", current_max_strings - init_str_ptr);  /* 97/Mar/7 */
     return;     // abort_flag set
   }
 #else
-/* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
   if (str_ptr + 3 > max_strings)
   {
     overflow("number of strings", max_strings - init_str_ptr); /* number of strings */
@@ -1608,50 +1614,62 @@ void end_name (void)
   
   if (area_delimiter == 0)   // no area delimiter ':' '/' or '\' found
     cur_area = 335;     // "" default area 
-  else {
-    if (save_strings_flag &&
-      (cur_area = find_string(str_start[str_ptr], str_start[str_ptr]+area_delimiter)) > 0) {
+  else
+  {
+    if (save_strings_flag && (cur_area = find_string(str_start[str_ptr], str_start[str_ptr] + area_delimiter)) > 0)
+    {
       remove_string(str_start[str_ptr], str_start[str_ptr] + area_delimiter);
       area_delimiter = 0; // area_delimiter - area_delimiter;
-      if (ext_delimiter != 0) ext_delimiter = ext_delimiter - area_delimiter;
+
+      if (ext_delimiter != 0)
+        ext_delimiter = ext_delimiter - area_delimiter;
+
 //      str_start[str_ptr + 1]= str_start[str_ptr]+ area_delimiter; // test only
 //      incr(str_ptr);    // test only
     }
-    else {          // carve out string for "cur_area"
+    else         // carve out string for "cur_area"
+    {
       cur_area = str_ptr; 
-      str_start[str_ptr + 1]= str_start[str_ptr]+ area_delimiter; 
+      str_start[str_ptr + 1] = str_start[str_ptr] + area_delimiter; 
       incr(str_ptr);
     }
-  } 
-  if (ext_delimiter == 0){ // no extension delimiter '.' found
+  }
+
+  if (ext_delimiter == 0) // no extension delimiter '.' found
+  {
     cur_ext = 335;        // "" default extension 
-  if (save_strings_flag &&
-      (cur_name = find_string(str_start[str_ptr], pool_ptr)) > 0) {
-    remove_string(str_start[str_ptr], pool_ptr);
+
+    if (save_strings_flag && (cur_name = find_string(str_start[str_ptr], pool_ptr)) > 0)
+    {
+      remove_string(str_start[str_ptr], pool_ptr);
 //    (void) make_string();  // test only
-  }
-  else            // Make string from str_start[str_ptr]to pool_ptr
-    cur_name = make_string();
+    }
+    else            // Make string from str_start[str_ptr]to pool_ptr
+      cur_name = make_string();
   } 
-  else {            // did find an extension
-  if (save_strings_flag &&
-      (cur_name = find_string(str_start[str_ptr], str_start[str_ptr] + ext_delimiter - area_delimiter-1)) > 0) {
-    remove_string(str_start[str_ptr], str_start[str_ptr] + ext_delimiter - area_delimiter - 1);
+  else            // did find an extension
+  {
+    if (save_strings_flag &&
+      (cur_name = find_string(str_start[str_ptr], str_start[str_ptr] + ext_delimiter - area_delimiter-1)) > 0)
+    {
+      remove_string(str_start[str_ptr], str_start[str_ptr] + ext_delimiter - area_delimiter - 1);
 //    str_start[str_ptr + 1]= str_start[str_ptr]+ ext_delimiter - area_delimiter - 1;   // test only
 //    incr(str_ptr);    // test only
-  }
-  else {            // carve out string for "cur_name"
-    cur_name = str_ptr; 
-    str_start[str_ptr + 1]= str_start[str_ptr]+ ext_delimiter - area_delimiter - 1; 
-    incr(str_ptr);
-  }
-  if (save_strings_flag &&
-      (cur_ext = find_string(str_start[str_ptr], pool_ptr)) > 0) {
-    remove_string(str_start[str_ptr], pool_ptr);
+    }
+    else             // carve out string for "cur_name"
+    {
+      cur_name = str_ptr;
+      str_start[str_ptr + 1]= str_start[str_ptr]+ ext_delimiter - area_delimiter - 1;
+      incr(str_ptr);
+    }
+
+    if (save_strings_flag && (cur_ext = find_string(str_start[str_ptr], pool_ptr)) > 0)
+    {
+      remove_string(str_start[str_ptr], pool_ptr);
 //    (void) make_string();  // test only
-  }
-  else            // Make string from str_start[str_ptr]to pool_ptr
-    cur_ext = make_string();
+    }
+    else            // Make string from str_start[str_ptr]to pool_ptr
+      cur_ext = make_string();
   }
 }
 
@@ -1752,7 +1770,6 @@ void pack_buffered_name_(small_number n, integer a, integer b)
 /* sec 0525 */
 str_number make_name_string (void)
 {
-  register str_number Result;
   integer k;
 
 #ifdef ALLOCATESTRING
@@ -1762,40 +1779,36 @@ str_number make_name_string (void)
   if (str_ptr == current_max_strings)
     str_start = realloc_str_start(increment_max_strings);
 
-  if ((pool_ptr + name_length > current_pool_size) ||
-    (str_ptr == current_max_strings) || (cur_length > 0))
+  if ((pool_ptr + name_length > current_pool_size) || (str_ptr == current_max_strings) || (cur_length > 0))
 #else
-  if ((pool_ptr + name_length > pool_size) || (str_ptr == max_strings) ||
-      (cur_length > 0))
+  if ((pool_ptr + name_length > pool_size) || (str_ptr == max_strings) || (cur_length > 0))
 #endif
-    Result = 63;
-  else {
+  {
+    return '?';
+  }
+  else
+  {
     for (k = 1; k <= name_length; k++)
-    {
-      str_pool[pool_ptr]= xord[name_of_file[k]];
-//      sprintf(log_line, "%d => %d ", name_of_file[k], xord[name_of_file[k]]);
-//      show_line(log_line, 0);  // debugging only
-      incr(pool_ptr);
-    }
-    Result = make_string();
+      append_char(xord[name_of_file[k]]);
+
+    return make_string();
   }
-  return Result;
 }
 /* sec 0525 */
 str_number a_make_name_string_(alpha_file * f)
 {
   return make_name_string();
-}   /* f unreferenced ? bkph */
+}
 /* sec 0525 */
 str_number b_make_name_string_(byte_file * f)
 {
   return make_name_string(); 
-}   /* f unreferenced ? bkph */
+}
 /* sec 0525 */
 str_number w_make_name_string_(word_file * f)
 {
   return make_name_string();
-}   /* f unreferenced ? bkph */
+}
 
 /* Used by start_input to scan file name on command line */
 /* Also in tex8.c new_font_, open_or_close_in, and do_extension */
@@ -1866,6 +1879,7 @@ void show_tex_inputs (void)
   if (format_specific)
   {
     s = format_name;                /* try specific */
+
     if (grabenv(s) == NULL)
       s = "TEXINPUTS";  /* no format specific */
   }
@@ -1896,13 +1910,13 @@ void show_tex_inputs (void)
 /**********************************************************************/
 /* sec 0530 */
 /*  s - what can't be found, e - default */
-void prompt_file_name_(str_number s, str_number e) 
+void prompt_file_name_(char * s, str_number e) 
 {
   integer k;
 
   if (interaction == scroll_mode);
 
-  if (s == 781)
+  if (!strcmp("input file name", s))
     print_err("I can't find file `");
   else
     print_err("I can't write on file `");
@@ -1910,7 +1924,7 @@ void prompt_file_name_(str_number s, str_number e)
   print_file_name(cur_name, cur_area, cur_ext);
   print_string("'.");
 
-  if (s == 781) /* input file name */
+  if (!strcmp("input file name", s))
   {
     if (cur_area == 335) /* "" only if path not specified */
     {
@@ -1923,7 +1937,7 @@ void prompt_file_name_(str_number s, str_number e)
     show_context();
 
   print_nl("Please type another ");
-  print(s);
+  print_string(s); 
 
   if (interaction < 2)
   {
@@ -1945,8 +1959,8 @@ void prompt_file_name_(str_number s, str_number e)
   {
     begin_name();
     k = first;
-/*  step over leading spaces ... */
-    while ((buffer[k]== 32) && (k < last))
+
+    while ((buffer[k] == ' ') && (k < last))
       incr(k);
 /* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
     quoted_file_name = 0;         /* 98/March/15 */
@@ -1966,10 +1980,10 @@ void prompt_file_name_(str_number s, str_number e)
 /* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
 /*  convert tilde '~' to pseudo tilde */
       if (pseudo_tilde != 0 && buffer[k]== '~')
-        buffer[k]= pseudo_tilde;
+        buffer[k] = pseudo_tilde;
 /*  convert space ' ' to pseudo space */
       if (pseudo_space != 0 && buffer[k]== ' ')
-        buffer[k]= pseudo_space;
+        buffer[k] = pseudo_space;
 /* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
       if (!more_name(buffer[k]))
         goto lab30;
@@ -1978,8 +1992,10 @@ void prompt_file_name_(str_number s, str_number e)
 lab30:
     end_name();
   }
+
   if (cur_ext == 335)    /* "" */
     cur_ext = e;      /* use default extension */
+
   pack_file_name(cur_name, cur_area, cur_ext);
 }
 /* sec 0534 */
@@ -1995,14 +2011,14 @@ void open_log_file (void)
   if (job_name == 0)
     job_name = 790;   /* default:  texput */
 
-  pack_job_name(791); /* .log */
-  //pack_job_name(make_string_pool(".log"));
+  pack_job_name(".log");
 
   while (!a_open_out(log_file))
   {
     selector = term_only;
-    prompt_file_name(793, 791); /* transcript file name  texput */
+    prompt_file_name("transcript file name", ".log");
   }
+
   texmf_log_name = a_make_name_string(log_file);
   selector = log_only;
   log_opened = true;
@@ -2011,22 +2027,16 @@ void open_log_file (void)
 //  for our version DOS/Windows
   if (want_version)
   {
-//    showversion (log_file);       /* in local.c - bkph */
-//    showversion (stdout);
     stamp_it(log_line);         // ??? use log_line ???
     strcat(log_line, "\n");
     (void) fputs(log_line, log_file);
-//    show_line(buffer, 0);        // ??? show on screen as well
-//    print_ln(); 
     stampcopy(log_line);
     strcat(log_line, "\n");
-//    show_line(buffer, 0);        // ??? show on screen as well
     (void) fputs(log_line, log_file);
-//    print_ln(); 
   }
 /* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
 /*  also change following in itex.c - bkph */
-  (void) fputs(tex_version,  log_file); 
+  (void) fputs(tex_version, log_file); 
   (void) fprintf(log_file, " (%s %s)", application, yandyversion);
 
   if (format_ident > 0)
@@ -2079,6 +2089,7 @@ void open_log_file (void)
       free(string_file);  /* this was allocated by strdup in openinou */
       string_file = NULL;   /* for safety */
     }
+
     if (format_file != NULL)
     {
       fprintf(log_file, "(%s)\n", format_file);
@@ -2208,7 +2219,7 @@ void start_input (void)
       goto lab30;
 /* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
     end_file_reading();
-    prompt_file_name(781, 785); /* input file name  .tex */
+    prompt_file_name("input file name", ".tex");
   }   /* end of while(true)trying to get valid file name */
 
 /* maybe set  pseudo_tilde = 0  at this point ? 95/Sep/26 */
@@ -2309,6 +2320,7 @@ internal_font_number read_font_info_(halfword u, str_number nom, str_number aire
   g = 0;
   fileopened = false;
   pack_file_name(nom, aire, 805); /* .tfm */
+
   if (!b_open_in(tfm_file)) /* new in C version d */
   {
     if (maketextfm ())
@@ -2426,34 +2438,37 @@ internal_font_number read_font_info_(halfword u, str_number nom, str_number aire
     }
     if (lf != 6 + lh + (ec - bc + 1) + nw + nh + nd + ni + nl + nk + ne + np)
       goto lab11;
+
     if ((nw == 0) || (nh == 0) || (nd == 0) || (ni == 0))
       goto lab11;
   }
+
   lf = lf - 6 - lh;
+
   if (np < 7)
     lf = lf + 7 - np;
 /* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
 #ifdef ALLOCATEFONT
   if ((fmem_ptr + lf > current_font_mem_size))   /* 93/Nov/28 */
     font_info = realloc_font_info (increment_font_mem_size + lf);
+
   if ((font_ptr == font_max) || (fmem_ptr + lf > current_font_mem_size))
 #else
-/* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
   if ((font_ptr == font_max) || (fmem_ptr + lf > font_mem_size))
 #endif
   {
-/* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
     if (trace_flag)
     {
       sprintf(log_line, "font_ptr %d font_max %d fmem_ptr %d lf %d font_mem_size %d\n",
           font_ptr, font_max, fmem_ptr, lf, font_mem_size); /* debugging */
       show_line(log_line, 0);
     }
-/* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
+
     print_err("Font ");
     sprint_cs(u);
     print_char('=');
     print_file_name(nom, aire, 335); /* "" */
+
     if (s >= 0)
     {
       print_string(" at ");
@@ -2465,6 +2480,7 @@ internal_font_number read_font_info_(halfword u, str_number nom, str_number aire
       print_string(" scaled ");
       print_int(- (integer) s);
     }
+
     print_string(" not loaded: Not enough room left");
     help4("I'm afraid I won't be able to make use of this font,",
         "because my memory for character-size data is too small.",
@@ -2473,6 +2489,7 @@ internal_font_number read_font_info_(halfword u, str_number nom, str_number aire
     error();
     goto lab30;
   }
+
   f = font_ptr + 1;
   char_base[f] = fmem_ptr - bc;
   width_base[f] = char_base[f] + ec + 1;
@@ -2483,6 +2500,7 @@ internal_font_number read_font_info_(halfword u, str_number nom, str_number aire
   kern_base[f] = lig_kern_base[f] + nl - 256 * (128);
   exten_base[f] = kern_base[f] + 256 *(128) + nk;
   param_base[f] = exten_base[f] + ne;
+
   {
     if (lh < 2)
       goto lab11;
@@ -2502,6 +2520,7 @@ internal_font_number read_font_info_(halfword u, str_number nom, str_number aire
       qw.b3 = d;
       font_check[f] = qw;
     }
+
     tfm_temp = getc(tfm_file);
     {
       z = tfm_temp;
@@ -2510,20 +2529,26 @@ internal_font_number read_font_info_(halfword u, str_number nom, str_number aire
       tfm_temp = getc(tfm_file);
       z = z * 256 + tfm_temp;
     }
+
     tfm_temp = getc(tfm_file);
     z = z * 256 + tfm_temp;
     tfm_temp = getc(tfm_file);
     z =(z * 16) + (tfm_temp / 16);
+
     if (z < 65536L)
       goto lab11; 
-    while (lh > 2) {
+
+    while (lh > 2)
+    {
       tfm_temp = getc(tfm_file);
       tfm_temp = getc(tfm_file);
       tfm_temp = getc(tfm_file);
       tfm_temp = getc(tfm_file);
       decr(lh);
     }
+
     font_dsize[f] = z;
+
     if (s != -1000)
       if (s >= 0)
         z = s;
@@ -2549,8 +2574,10 @@ internal_font_number read_font_info_(halfword u, str_number nom, str_number aire
       qw.b3 = d;
       font_info[k].qqqq = qw;
     }
+
     if ((a >= nw) || (b / 16 >= nh) || (b % 16 >= nd) || (c / 4 >= ni))
       goto lab11;
+
     switch (c % 4)
     {
       case 1 :
@@ -2623,6 +2650,7 @@ lab45:;
 /*  read ligature/kern program */
   bchlabel = 32767;     /* '77777 */
   bchar = 256;
+
   if (nl > 0)
   {
     for (k = lig_kern_base[f]; k <= kern_base[f] + 256 * (128)- 1; k++)
@@ -2849,14 +2877,17 @@ lab11:
     print_string("scaled");
     print_int(- (integer) s);
   } 
+
   if (fileopened)
     print_string(" not loadable: Bad metric (TFM) file");
   else
     print_string(" not loadable: Metric (TFM) file not found");
-  if (aire == 335)
-  {    /* "" only if path not specified */
+
+  if (aire == 335) /* "" only if path not specified */
+  {
     if (show_texinput_flag) show_tex_fonts();   /* 98/Jan/31 */
   }
+
   help5("I wasn't able to read the size data for this font,",
       "so I will ignore the font specification.",
       "[Wizards can fix TFM files using TFtoPL/PLtoTF.]",
@@ -2866,6 +2897,7 @@ lab11:
 lab30:
   if (fileopened)
     b_close(tfm_file);
+
   Result = g;
   return Result;
-}
+}
\ No newline at end of file

diff --git a/src/texsourc/tex4.c b/src/texsourc/tex4.c
index 4da10b7..ed5c844 100644 (file)
--- a/src/texsourc/tex4.c
+++ b/src/texsourc/tex4.c
@@ -562,7 +562,7 @@ void out_what_(halfword p)
           cur_ext = 785;  /* => ".tex" */
         pack_file_name(cur_name, cur_area, cur_ext); 
         while(! a_open_out(write_file[j])) {
-          prompt_file_name(1294, 785); /* output file name  .tex */
+          prompt_file_name("output file name", ".tex");
     }
     write_open[j]= true; 
   } 
@@ -1184,17 +1184,17 @@ void ship_out_(halfword p)
   dvi_v = 0;
   cur_h = h_offset;
   dvi_f = 0;
+
   if (output_file_name == 0)
   {
     if (job_name == 0)
       open_log_file();
 
-    pack_job_name(788);   /* .dvi */
-    //pack_job_name(make_string_pool(".dvi"));
+    pack_job_name(".dvi");
 
     while(!b_open_out(dvi_file))
     {
-      prompt_file_name(789, 788); /* file name for output  .dvi */
+      prompt_file_name("file name for output", ".dvi");
     }
 
     output_file_name = b_make_name_string(dvi_file);

diff --git a/src/texsourc/tex6.c b/src/texsourc/tex6.c
index a00b607..689dd7b 100644 (file)
--- a/src/texsourc/tex6.c
+++ b/src/texsourc/tex6.c
@@ -1431,13 +1431,9 @@ void new_hyph_exceptions (void)
   halfword q;
   str_number s, t;
   pool_pointer u, v;
+
   scan_left_brace();
-  if (language <= 0)
-    cur_lang = 0;
-  else if (language > 255)
-    cur_lang = 0;
-  else
-    cur_lang = language;
+  set_cur_lang();
   n = 0;
   p = 0;
 

diff --git a/src/texsourc/tex7.c b/src/texsourc/tex7.c
index b2e0206..013677d 100644 (file)
--- a/src/texsourc/tex7.c
+++ b/src/texsourc/tex7.c
@@ -859,14 +859,7 @@ void new_graf_(bool indented)
   push_nest();
   mode = hmode;
   space_factor = 1000;
-
-  if (language <= 0)
-    cur_lang = 0;
-  else if (language > 255)
-    cur_lang = 0;
-  else
-    cur_lang = language;
-
+  set_cur_lang();
   clang = cur_lang;
   prev_graf =(norm_min(left_hyphen_min) * 64 + norm_min(right_hyphen_min)) * 65536L + cur_lang;
 

diff --git a/src/texsourc/tex8.c b/src/texsourc/tex8.c
index 5846ec6..3b6fb1a 100644 (file)
--- a/src/texsourc/tex8.c
+++ b/src/texsourc/tex8.c
@@ -407,14 +407,7 @@ void resume_after_display (void)
   push_nest();
   mode = hmode;
   space_factor = 1000;
-
-  if (language <= 0)
-    cur_lang = 0; 
-  else if (language > 255)
-    cur_lang = 0;
-  else
-    cur_lang = language;
-
+  set_cur_lang();
   clang = cur_lang;
   prev_graf =(norm_min(left_hyphen_min) * 64 + norm_min(right_hyphen_min)) * 65536L + cur_lang;
 

diff --git a/src/texsourc/texd.h b/src/texsourc/texd.h
index 3186285..e1f1bca 100644 (file)
--- a/src/texsourc/texd.h
+++ b/src/texsourc/texd.h
@@ -2330,6 +2330,7 @@ EXTERN int tfm_temp;        /* only used in tex3.c 95/Jan/7 */
 #define immediate_code    4
 #define set_language_code 5
 /* sec 79 */
+extern void set_cur_lang(void);
 extern str_number make_string_pool (char *s);
 extern char * md5_file(const char * file_name);
 extern INLINE void str_room_ (int val);

diff --git a/src/texsourc/yandy_pool.c b/src/texsourc/yandy_pool.c
index 7292140..e7477cc 100644 (file)
--- a/src/texsourc/yandy_pool.c
+++ b/src/texsourc/yandy_pool.c
@@ -24,81 +24,81 @@
 
 static const char *pool_file_arr[] =
 {
-/* 0256 */  "buffer size",
+/* 0256 */  "", //"buffer size",
 /* 0257 */  "pool size",
-/* 0258 */  "number of strings",
+/* 0258 */  "", //"number of strings",
 /* 0259 */  "" "?" "?" "?",
 /* 0260 */  "m2d5c2l5x2v5i",
-/* 0261 */  "End of file on the terminal!",
+/* 0261 */  "", //"End of file on the terminal!",
 /* 0262 */  "! ",
-/* 0263 */  "(That makes 100 errors; please try again.)",
+/* 0263 */  "", //"(That makes 100 errors; please try again.)",
 /* 0264 */  "" "? ",
-/* 0265 */  "Type <return> to proceed, S to scroll future error messages,",
-/* 0266 */  "R to run without stopping, Q to run quietly,",
-/* 0267 */  "I to insert something, ",
-/* 0268 */  "E to edit your file,",
-/* 0269 */  "1 or ... or 9 to ignore the next 1 to 9 tokens of input,",
-/* 0270 */  "H for help, X to quit.",
-/* 0271 */  "OK, entering ",
+/* 0265 */  "", //"Type <return> to proceed, S to scroll future error messages,",
+/* 0266 */  "", //"R to run without stopping, Q to run quietly,",
+/* 0267 */  "", //"I to insert something, ",
+/* 0268 */  "", //"E to edit your file,",
+/* 0269 */  "", //"1 or ... or 9 to ignore the next 1 to 9 tokens of input,",
+/* 0270 */  "", //"H for help, X to quit.",
+/* 0271 */  "", //"OK, entering ",
 /* 0272 */  "batchmode",
 /* 0273 */  "nonstopmode",
 /* 0274 */  "scrollmode",
 /* 0275 */  "...",
-/* 0276 */  "insert>",
-/* 0277 */  "I have just deleted some text, as you asked.",
-/* 0278 */  "You can now delete more, or insert, or whatever.",
-/* 0279 */  "Sorry, I don't know how to help in this situation.",
-/* 0280 */  "Maybe you should try asking a human" "?",
-/* 0281 */  "Sorry, I already gave what help I could...",
-/* 0282 */  "An error might have occurred before I noticed any problems.",
-/* 0283 */  "``If all else fails, read the instructions.''",
-/* 0284 */  " (",
-/* 0285 */  "Emergency stop",
-/* 0286 */  "TeX capacity exceeded, sorry [",
-/* 0287 */  "If you really absolutely need more capacity,",
-/* 0288 */  "you can ask a wizard to enlarge me.",
-/* 0289 */  "This can't happen (",
-/* 0290 */  "I'm broken. Please show this to someone who can fix can fix",
-/* 0291 */  "I can't go on meeting you like this",
-/* 0292 */  "One of your faux pas seems to have wounded me deeply...",
-/* 0293 */  "in fact, I'm barely conscious. Please fix it and try again.",
-/* 0294 */  "Interruption",
-/* 0295 */  "You rang" "?",
-/* 0296 */  "Try to insert some instructions for me (e.g.,`I\\showlists'),",
-/* 0297 */  "unless you just want to quit by typing `X'.",
-/* 0298 */  "main memory size",
-/* 0299 */  "AVAIL list clobbered at ",
-/* 0300 */  "Double-AVAIL list clobbered at ",
-/* 0301 */  "Doubly free location at ",
-/* 0302 */  "Bad flag at ",
-/* 0303 */  "New busy locs:",
-/* 0304 */  "LINK(",
-/* 0305 */  "INFO(",
-/* 0306 */  "[]",
-/* 0307 */  "CLOBBERED.",
-/* 0308 */  "foul",
+/* 0276 */  "", //"insert>",
+/* 0277 */  "", //"I have just deleted some text, as you asked.",
+/* 0278 */  "", //"You can now delete more, or insert, or whatever.",
+/* 0279 */  "", //"Sorry, I don't know how to help in this situation.",
+/* 0280 */  "", //"Maybe you should try asking a human" "?",
+/* 0281 */  "", //"Sorry, I already gave what help I could...",
+/* 0282 */  "", //"An error might have occurred before I noticed any problems.",
+/* 0283 */  "", //"``If all else fails, read the instructions.''",
+/* 0284 */  "", //" (",
+/* 0285 */  "", //"Emergency stop",
+/* 0286 */  "", //"TeX capacity exceeded, sorry [",
+/* 0287 */  "", //"If you really absolutely need more capacity,",
+/* 0288 */  "", //"you can ask a wizard to enlarge me.",
+/* 0289 */  "", //"This can't happen (",
+/* 0290 */  "", //"I'm broken. Please show this to someone who can fix can fix",
+/* 0291 */  "", //"I can't go on meeting you like this",
+/* 0292 */  "", //"One of your faux pas seems to have wounded me deeply...",
+/* 0293 */  "", //"in fact, I'm barely conscious. Please fix it and try again.",
+/* 0294 */  "", //"Interruption",
+/* 0295 */  "", //"You rang" "?",
+/* 0296 */  "", //"Try to insert some instructions for me (e.g.,`I\\showlists'),",
+/* 0297 */  "", //"unless you just want to quit by typing `X'.",
+/* 0298 */  "", //"main memory size",
+/* 0299 */  "", //"AVAIL list clobbered at ",
+/* 0300 */  "", //"Double-AVAIL list clobbered at ",
+/* 0301 */  "", //"Doubly free location at ",
+/* 0302 */  "", //"Bad flag at ",
+/* 0303 */  "", //"New busy locs:",
+/* 0304 */  "", //"LINK(",
+/* 0305 */  "", //"INFO(",
+/* 0306 */  "", //"[]",
+/* 0307 */  "", //"CLOBBERED.",
+/* 0308 */  "", //"foul",
 /* 0309 */  "fil",
-/* 0310 */  " plus ",
-/* 0311 */  " minus ",
-/* 0312 */  " []",
-/* 0313 */  "Bad link, display aborted.",
-/* 0314 */  "etc.",
-/* 0315 */  "Unknown node type!",
-/* 0316 */  "unset",
-/* 0317 */  "box(",
-/* 0318 */  ")x",
-/* 0319 */  ", shifted ",
-/* 0320 */  " columns)",
-/* 0321 */  ", stretch ",
-/* 0322 */  ", shrink ",
-/* 0323 */  ", glue set ",
-/* 0324 */  "- ",
-/* 0325 */  "< -",
-/* 0326 */  "rule(",
+/* 0310 */  "", //" plus ",
+/* 0311 */  "", //" minus ",
+/* 0312 */  "", //" []",
+/* 0313 */  "", //"Bad link, display aborted.",
+/* 0314 */  "", //"etc.",
+/* 0315 */  "", //"Unknown node type!",
+/* 0316 */  "", //"unset",
+/* 0317 */  "", //"box(",
+/* 0318 */  "", //")x",
+/* 0319 */  "", //", shifted ",
+/* 0320 */  "", //" columns)",
+/* 0321 */  "", //", stretch ",
+/* 0322 */  "", //", shrink ",
+/* 0323 */  "", //", glue set ",
+/* 0324 */  "", //"- ",
+/* 0325 */  "", //"< -",
+/* 0326 */  "", //"rule(",
 /* 0327 */  "insert",
-/* 0328 */  ", natural size ",
-/* 0329 */  "; split(",
-/* 0330 */  "); float cost ",
+/* 0328 */  "", //", natural size ",
+/* 0329 */  "", //"; split(",
+/* 0330 */  "", //"); float cost ",
 /* 0331 */  "glue",
 /* 0332 */  "nonscript",
 /* 0333 */  "mskip",
@@ -106,171 +106,171 @@ static const char *pool_file_arr[] =
 /* 0335 */  "",
 /* 0336 */  "leaders ",
 /* 0337 */  "kern",
-/* 0338 */  " (for accent)",
+/* 0338 */  "", //" (for accent)",
 /* 0339 */  "mkern",
 /* 0340 */  "math",
 /* 0341 */  "on",
 /* 0342 */  "off",
-/* 0343 */  ", surrounded ",
-/* 0344 */  " (ligature ",
-/* 0345 */  "penalty ",
-/* 0346 */  "discretionary",
-/* 0347 */  " replacing ",
+/* 0343 */  "", //", surrounded ",
+/* 0344 */  "", //" (ligature ",
+/* 0345 */  "", //"penalty ",
+/* 0346 */  "", //"discretionary",
+/* 0347 */  "", //" replacing ",
 /* 0348 */  "mark",
 /* 0349 */  "vadjust",
-/* 0350 */  "flushing",
-/* 0351 */  "copying",
-/* 0352 */  "vertical",
-/* 0353 */  "horizontal",
-/* 0354 */  "display math",
+/* 0350 */  "", //"flushing",
+/* 0351 */  "", //"copying",
+/* 0352 */  "", //"vertical",
+/* 0353 */  "", //"horizontal",
+/* 0354 */  "", //"display math",
 /* 0355 */  "no",
-/* 0356 */  "internal vertical",
-/* 0357 */  "restricted horizontal",
-/* 0358 */  " mode",
-/* 0359 */  "semantic nest size",
-/* 0360 */  "### ",
-/* 0361 */  " entered at line ",
-/* 0362 */  " (language",
-/* 0363 */  ":hyphenmin",
-/* 0364 */  " (\\output routine)",
-/* 0365 */  "### recent contributions:",
-/* 0366 */  "prevdepth ",
-/* 0367 */  "ignored",
-/* 0368 */  ", prevgraf ",
-/* 0369 */  " line",
-/* 0370 */  "spacefactor ",
-/* 0371 */  ", current language ",
-/* 0372 */  "this will be denominator of:",
-/* 0373 */  "lineskip",
-/* 0374 */  "baselineskip",
-/* 0375 */  "parskip",
-/* 0376 */  "abovedisplayskip",
-/* 0377 */  "belowdisplayskip",
-/* 0378 */  "abovedisplayshortskip",
-/* 0379 */  "belowdisplayshortskip",
-/* 0380 */  "leftskip",
-/* 0381 */  "rightskip",
-/* 0382 */  "topskip",
-/* 0383 */  "splittopskip",
-/* 0384 */  "tabskip",
-/* 0385 */  "spaceskip",
-/* 0386 */  "xspaceskip",
-/* 0387 */  "parfillskip",
-/* 0388 */  "thinmuskip",
-/* 0389 */  "medmuskip",
-/* 0390 */  "thickmuskip",
-/* 0391 */  "[unknown glue parameter!]",
-/* 0392 */  "skip",
-/* 0393 */  "muskip",
-/* 0394 */  "pt",
-/* 0395 */  "output",
-/* 0396 */  "everypar",
-/* 0397 */  "everymath",
-/* 0398 */  "everydisplay",
-/* 0399 */  "everyhbox",
-/* 0400 */  "everyvbox",
-/* 0401 */  "everyjob",
-/* 0402 */  "everycr",
-/* 0403 */  "errhelp",
-/* 0404 */  "toks",
-/* 0405 */  "parshape",
-/* 0406 */  "box",
-/* 0407 */  "void",
-/* 0408 */  "current font",
-/* 0409 */  "textfont",
-/* 0410 */  "scriptfont",
-/* 0411 */  "scriptscriptfont",
-/* 0412 */  "catcode",
-/* 0413 */  "lccode",
-/* 0414 */  "uccode",
-/* 0415 */  "sfcode",
-/* 0416 */  "mathcode",
-/* 0417 */  "pretolerance",
-/* 0418 */  "tolerance",
-/* 0419 */  "linepenalty",
-/* 0420 */  "hyphenpenalty",
-/* 0421 */  "exhyphenpenalty",
-/* 0422 */  "clubpenalty",
-/* 0423 */  "widowpenalty",
-/* 0424 */  "displaywidowpenalty",
-/* 0425 */  "brokenpenalty",
-/* 0426 */  "binoppenalty",
-/* 0427 */  "relpenalty",
-/* 0428 */  "predisplaypenalty",
-/* 0429 */  "postdisplaypenalty",
-/* 0430 */  "interlinepenalty",
-/* 0431 */  "doublehyphendemerits",
-/* 0432 */  "finalhyphendemerits",
-/* 0433 */  "adjdemerits",
-/* 0434 */  "mag",
-/* 0435 */  "delimiterfactor",
-/* 0436 */  "looseness",
-/* 0437 */  "time",
-/* 0438 */  "day",
-/* 0439 */  "month",
-/* 0440 */  "year",
-/* 0441 */  "showboxbreadth",
-/* 0442 */  "showboxdepth",
-/* 0443 */  "hbadness",
-/* 0444 */  "vbadness",
-/* 0445 */  "pausing",
-/* 0446 */  "tracingonline",
-/* 0447 */  "tracingmacros",
-/* 0448 */  "tracingstats",
-/* 0449 */  "tracingparagraphs",
-/* 0450 */  "tracingpages",
-/* 0451 */  "tracingoutput",
-/* 0452 */  "tracinglostchars",
-/* 0453 */  "tracingcommands",
-/* 0454 */  "tracingrestores",
-/* 0455 */  "uchyph",
-/* 0456 */  "outputpenalty",
-/* 0457 */  "maxdeadcycles",
-/* 0458 */  "hangafter",
-/* 0459 */  "floatingpenalty",
-/* 0460 */  "globaldefs",
-/* 0461 */  "fam",
-/* 0462 */  "escapechar",
-/* 0463 */  "defaulthyphenchar",
-/* 0464 */  "defaultskewchar",
-/* 0465 */  "endlinechar",
-/* 0466 */  "newlinechar",
-/* 0467 */  "language",
-/* 0468 */  "lefthyphenmin",
-/* 0469 */  "righthyphenmin",
-/* 0470 */  "holdinginserts",
-/* 0471 */  "errorcontextlines",
-/* 0472 */  "[unknown integer parameter!]",
-/* 0473 */  "count",
-/* 0474 */  "delcode",
-/* 0475 */  "parindent",
-/* 0476 */  "mathsurround",
-/* 0477 */  "lineskiplimit",
-/* 0478 */  "hsize",
-/* 0479 */  "vsize",
-/* 0480 */  "maxdepth",
-/* 0481 */  "splitmaxdepth",
-/* 0482 */  "boxmaxdepth",
-/* 0483 */  "hfuzz",
-/* 0484 */  "vfuzz",
-/* 0485 */  "delimitershortfall",
-/* 0486 */  "nulldelimiterspace",
-/* 0487 */  "scriptspace",
-/* 0488 */  "predisplaysize",
-/* 0489 */  "displaywidth",
-/* 0490 */  "displayindent",
-/* 0491 */  "overfullrule",
-/* 0492 */  "hangindent",
-/* 0493 */  "hoffset",
-/* 0494 */  "voffset",
-/* 0495 */  "emergencystretch",
-/* 0496 */  "[unknown dimen parameter!]",
-/* 0497 */  "dimen",
-/* 0498 */  "EQUIV(",
+/* 0356 */  "", //"internal vertical",
+/* 0357 */  "", //"restricted horizontal",
+/* 0358 */  "", //" mode",
+/* 0359 */  "", //"semantic nest size",
+/* 0360 */  "", //"### ",
+/* 0361 */  "", //" entered at line ",
+/* 0362 */  "", //" (language",
+/* 0363 */  "", //":hyphenmin",
+/* 0364 */  "", //" (\\output routine)",
+/* 0365 */  "", //"### recent contributions:",
+/* 0366 */  "", //"prevdepth ",
+/* 0367 */  "", //"ignored",
+/* 0368 */  "", //", prevgraf ",
+/* 0369 */  "", //" line",
+/* 0370 */  "", //"spacefactor ",
+/* 0371 */  "", //", current language ",
+/* 0372 */  "", //"this will be denominator of:",
+/* 0373 */  "", //"lineskip",
+/* 0374 */  "", //"baselineskip",
+/* 0375 */  "", //"parskip",
+/* 0376 */  "", //"abovedisplayskip",
+/* 0377 */  "", //"belowdisplayskip",
+/* 0378 */  "", //"abovedisplayshortskip",
+/* 0379 */  "", //"belowdisplayshortskip",
+/* 0380 */  "", //"leftskip",
+/* 0381 */  "", //"rightskip",
+/* 0382 */  "", //"topskip",
+/* 0383 */  "", //"splittopskip",
+/* 0384 */  "", //"tabskip",
+/* 0385 */  "", //"spaceskip",
+/* 0386 */  "", //"xspaceskip",
+/* 0387 */  "", //"parfillskip",
+/* 0388 */  "", //"thinmuskip",
+/* 0389 */  "", //"medmuskip",
+/* 0390 */  "", //"thickmuskip",
+/* 0391 */  "", //"[unknown glue parameter!]",
+/* 0392 */  "", //"skip",
+/* 0393 */  "", //"muskip",
+/* 0394 */  "", //"pt",
+/* 0395 */  "", //"output",
+/* 0396 */  "", //"everypar",
+/* 0397 */  "", //"everymath",
+/* 0398 */  "", //"everydisplay",
+/* 0399 */  "", //"everyhbox",
+/* 0400 */  "", //"everyvbox",
+/* 0401 */  "", //"everyjob",
+/* 0402 */  "", //"everycr",
+/* 0403 */  "", //"errhelp",
+/* 0404 */  "", //"toks",
+/* 0405 */  "", //"parshape",
+/* 0406 */  "", //"box",
+/* 0407 */  "", //"void",
+/* 0408 */  "", //"current font",
+/* 0409 */  "", //"textfont",
+/* 0410 */  "", //"scriptfont",
+/* 0411 */  "", //"scriptscriptfont",
+/* 0412 */  "", //"catcode",
+/* 0413 */  "", //"lccode",
+/* 0414 */  "", //"uccode",
+/* 0415 */  "", //"sfcode",
+/* 0416 */  "", //"mathcode",
+/* 0417 */  "", //"pretolerance",
+/* 0418 */  "", //"tolerance",
+/* 0419 */  "", //"linepenalty",
+/* 0420 */  "", //"hyphenpenalty",
+/* 0421 */  "", //"exhyphenpenalty",
+/* 0422 */  "", //"clubpenalty",
+/* 0423 */  "", //"widowpenalty",
+/* 0424 */  "", //"displaywidowpenalty",
+/* 0425 */  "", //"brokenpenalty",
+/* 0426 */  "", //"binoppenalty",
+/* 0427 */  "", //"relpenalty",
+/* 0428 */  "", //"predisplaypenalty",
+/* 0429 */  "", //"postdisplaypenalty",
+/* 0430 */  "", //"interlinepenalty",
+/* 0431 */  "", //"doublehyphendemerits",
+/* 0432 */  "", //"finalhyphendemerits",
+/* 0433 */  "", //"adjdemerits",
+/* 0434 */  "", //"mag",
+/* 0435 */  "", //"delimiterfactor",
+/* 0436 */  "", //"looseness",
+/* 0437 */  "", //"time",
+/* 0438 */  "", //"day",
+/* 0439 */  "", //"month",
+/* 0440 */  "", //"year",
+/* 0441 */  "", //"showboxbreadth",
+/* 0442 */  "", //"showboxdepth",
+/* 0443 */  "", //"hbadness",
+/* 0444 */  "", //"vbadness",
+/* 0445 */  "", //"pausing",
+/* 0446 */  "", //"tracingonline",
+/* 0447 */  "", //"tracingmacros",
+/* 0448 */  "", //"tracingstats",
+/* 0449 */  "", //"tracingparagraphs",
+/* 0450 */  "", //"tracingpages",
+/* 0451 */  "", //"tracingoutput",
+/* 0452 */  "", //"tracinglostchars",
+/* 0453 */  "", //"tracingcommands",
+/* 0454 */  "", //"tracingrestores",
+/* 0455 */  "", //"uchyph",
+/* 0456 */  "", //"outputpenalty",
+/* 0457 */  "", //"maxdeadcycles",
+/* 0458 */  "", //"hangafter",
+/* 0459 */  "", //"floatingpenalty",
+/* 0460 */  "", //"globaldefs",
+/* 0461 */  "", //"fam",
+/* 0462 */  "", //"escapechar",
+/* 0463 */  "", //defaulthyphenchar",
+/* 0464 */  "", //"defaultskewchar",
+/* 0465 */  "", //"endlinechar",
+/* 0466 */  "", //"newlinechar",
+/* 0467 */  "", //"language",
+/* 0468 */  "", //"lefthyphenmin",
+/* 0469 */  "", //"righthyphenmin",
+/* 0470 */  "", //"holdinginserts",
+/* 0471 */  "", //"errorcontextlines",
+/* 0472 */  "", //"[unknown integer parameter!]",
+/* 0473 */  "", //"count",
+/* 0474 */  "", //"delcode",
+/* 0475 */  "", //"parindent",
+/* 0476 */  "", //"mathsurround",
+/* 0477 */  "", //"lineskiplimit",
+/* 0478 */  "", //"hsize",
+/* 0479 */  "", //"vsize",
+/* 0480 */  "", //"maxdepth",
+/* 0481 */  "", //"splitmaxdepth",
+/* 0482 */  "", //"boxmaxdepth",
+/* 0483 */  "", //"hfuzz",
+/* 0484 */  "", //"vfuzz",
+/* 0485 */  "", //"delimitershortfall",
+/* 0486 */  "", //"nulldelimiterspace",
+/* 0487 */  "", //"scriptspace",
+/* 0488 */  "", //"predisplaysize",
+/* 0489 */  "", //"displaywidth",
+/* 0490 */  "", //"displayindent",
+/* 0491 */  "", //"overfullrule",
+/* 0492 */  "", //"hangindent",
+/* 0493 */  "", //"hoffset",
+/* 0494 */  "", //"voffset",
+/* 0495 */  "", //"emergencystretch",
+/* 0496 */  "", //"[unknown dimen parameter!]",
+/* 0497 */  "", //"dimen",
+/* 0498 */  "", //"EQUIV(",
 /* 0499 */  "notexpanded:",
-/* 0500 */  "hash size",
-/* 0501 */  "csname",
-/* 0502 */  "endcsname",
+/* 0500 */  "", //"hash size",
+/* 0501 */  "", //"csname",
+/* 0502 */  "", //"endcsname",
 /* 0503 */  "IMPOSSIBLE.",
 /* 0504 */  "NONEXISTENT.",
 /* 0505 */  "accent",
@@ -307,14 +307,14 @@ static const char *pool_file_arr[] =
 /* 0536 */  "vcenter",
 /* 0537 */  "vrule",
 /* 0538 */  "save size",
-/* 0539 */  "grouping levels",
-/* 0540 */  "curlevel",
-/* 0541 */  "retaining",
-/* 0542 */  "restoring",
-/* 0543 */  "SAVE(",
-/* 0544 */  "Incompatible magnification (",
-/* 0545 */  ");",
-/* 0546 */  " the previous value will be retained",
+/* 0539 */  "", //"grouping levels",
+/* 0540 */  "", //"curlevel",
+/* 0541 */  "", //"retaining",
+/* 0542 */  "", //"restoring",
+/* 0543 */  "", //"SAVE(",
+/* 0544 */  "", //"Incompatible magnification (",
+/* 0545 */  "", //");",
+/* 0546 */  "", //" the previous value will be retained",
 /* 0547 */  "I can handle only one magnification ratio per job. So I've",
 /* 0548 */  "reverted to the magnification you used earlier on this run.",
 /* 0549 */  "Illegal magnification has been changed to 1000",
@@ -322,17 +322,17 @@ static const char *pool_file_arr[] =
 /* 0551 */  "ETC.",
 /* 0552 */  "BAD.",
 /* 0553 */  "->",
-/* 0554 */  "begin-group character ",
-/* 0555 */  "end-group character ",
-/* 0556 */  "math shift character ",
-/* 0557 */  "macro parameter character ",
-/* 0558 */  "superscript character ",
-/* 0559 */  "subscript character ",
-/* 0560 */  "end of alignment template",
-/* 0561 */  "blank space ",
-/* 0562 */  "the letter ",
-/* 0563 */  "the character ",
-/* 0564 */  "[unknown command code!]",
+/* 0554 */  "", //"begin-group character ",
+/* 0555 */  "", //"end-group character ",
+/* 0556 */  "", //"math shift character ",
+/* 0557 */  "", //"macro parameter character ",
+/* 0558 */  "", //"superscript character ",
+/* 0559 */  "", //"subscript character ",
+/* 0560 */  "", //"end of alignment template",
+/* 0561 */  "", //"blank space ",
+/* 0562 */  "", //"the letter ",
+/* 0563 */  "", //"the character ",
+/* 0564 */  "", //"[unknown command code!]",
 /* 0565 */  ": ",
 /* 0566 */  "Runaway ",
 /* 0567 */  "definition",
@@ -364,15 +364,15 @@ static const char *pool_file_arr[] =
 /* 0593 */  "text input levels",
 /* 0594 */  "par",
 /* 0595 */  "Incomplete ",
-/* 0596 */  "; all text was ignored after line ",
+/* 0596 */  "", //"; all text was ignored after line ",
 /* 0597 */  "A forbidden control sequence occurred in skipped text.",
 /* 0598 */  "This kind of error happens when you say `\\if...' and forget",
 /* 0599 */  "the matching `\\fi'. I've inserted a `\\fi'; this might work.",
 /* 0600 */  "The file ended while I was skipping conditional text.",
-/* 0601 */  "File ended",
-/* 0602 */  "Forbidden control sequence found",
-/* 0603 */  " while scanning ",
-/* 0604 */  " of ",
+/* 0601 */  "", //"File ended",
+/* 0602 */  "", //"Forbidden control sequence found",
+/* 0603 */  "", //" while scanning ",
+/* 0604 */  "", //" of ",
 /* 0605 */  "I suspect you have forgotten a `}', causing me",
 /* 0606 */  "to read past where you wanted me to stop.",
 /* 0607 */  "I'll try to recover; but if the error is serious,",
@@ -382,9 +382,9 @@ static const char *pool_file_arr[] =
 /* 0611 */  "A funny symbol that I can't read has just been input.",
 /* 0612 */  "Continue, and I'll forget that it ever happened.",
 /* 0613 */  "(Please type a command or say `\\end')",
-/* 0614 */  "*** (job aborted, no legal \\end found)",
+/* 0614 */  "", //"*** (job aborted, no legal \\end found)",
 /* 0615 */  "=>",
-/* 0616 */  "Undefined control sequence",
+/* 0616 */  "", //"Undefined control sequence",
 /* 0617 */  "The control sequence at the end of the top line",
 /* 0618 */  "of your error message was never \\def'ed. If you have",
 /* 0619 */  "misspelled it (e.g., `\\hobx'), type `I' and the correct",
@@ -403,7 +403,7 @@ static const char *pool_file_arr[] =
 /* 0632 */  "splitbotmark",
 /* 0633 */  "parameter stack size",
 /* 0634 */  "Argument of ",
-/* 0635 */  " has an extra }",
+/* 0635 */  "", //" has an extra }",
 /* 0636 */  "I've run across a `}' that doesn't seem to match anything.",
 /* 0637 */  "For example, `\\def\\a#1{...}' and `\\a}' would produce",
 /* 0638 */  "this error. If you simply proceed now, the `\\par' that",
@@ -433,18 +433,18 @@ static const char *pool_file_arr[] =
 /* 0662 */  "A number should have been here; I inserted `0'.",
 /* 0663 */  "(If you can't figure out why I needed to see a number,",
 /* 0664 */  "look up `weird error' in the index to The TeXbook.)",
-/* 0665 */  "spacefactor",
-/* 0666 */  "prevdepth",
-/* 0667 */  "deadcycles",
-/* 0668 */  "insertpenalties",
-/* 0669 */  "wd",
-/* 0670 */  "ht",
-/* 0671 */  "dp",
-/* 0672 */  "lastpenalty",
-/* 0673 */  "lastkern",
-/* 0674 */  "lastskip",
-/* 0675 */  "inputlineno",
-/* 0676 */  "badness",
+/* 0665 */  "", //"spacefactor",
+/* 0666 */  "", //"prevdepth",
+/* 0667 */  "", //"deadcycles",
+/* 0668 */  "", //"insertpenalties",
+/* 0669 */  "", //"wd",
+/* 0670 */  "", //"ht",
+/* 0671 */  "", //"dp",
+/* 0672 */  "", //"lastpenalty",
+/* 0673 */  "", //"lastkern",
+/* 0674 */  "", //"lastskip",
+/* 0675 */  "", //"inputlineno",
+/* 0676 */  "", //"badness",
 /* 0677 */  "Improper ",
 /* 0678 */  "You can refer to \\spacefactor only in horizontal mode;",
 /* 0679 */  "you can refer to \\prevdepth only in vertical mode; and",
@@ -473,21 +473,21 @@ static const char *pool_file_arr[] =
 /* 0702 */  "Illegal unit of measure (",
 /* 0703 */  "replaced by filll)",
 /* 0704 */  "I dddon't go any higher than filll.",
-/* 0705 */  "em",
-/* 0706 */  "ex",
+/* 0705 */  "", //"em",
+/* 0706 */  "", //"ex",
 /* 0707 */  "mu inserted)",
 /* 0708 */  "The unit of measurement in math glue must be mu.",
 /* 0709 */  "To recover gracefully from this error, it's best to",
 /* 0710 */  "delete the erroneous units; e.g., type `2' to delete",
 /* 0711 */  "two letters. (See Chapter 27 of The TeXbook.)",
-/* 0712 */  "in",
-/* 0713 */  "pc",
-/* 0714 */  "cm",
-/* 0715 */  "mm",
-/* 0716 */  "bp",
-/* 0717 */  "dd",
-/* 0718 */  "cc",
-/* 0719 */  "sp",
+/* 0712 */  "", //"in",
+/* 0713 */  "", //"pc",
+/* 0714 */  "", //"cm",
+/* 0715 */  "", //"mm",
+/* 0716 */  "", //"bp",
+/* 0717 */  "", //"dd",
+/* 0718 */  "", //"cc",
+/* 0719 */  "", //"sp",
 /* 0720 */  "pt inserted)",
 /* 0721 */  "Dimensions can be in units of em, ex, in, pt, pc,",
 /* 0722 */  "cm, mm, dd, cc, bp, or sp; but yours is a new one!",
@@ -501,11 +501,11 @@ static const char *pool_file_arr[] =
 /* 0730 */  "height",
 /* 0731 */  "depth",
 /* 0732 */  "number",
-/* 0733 */  "romannumeral",
-/* 0734 */  "string",
-/* 0735 */  "meaning",
-/* 0736 */  "fontname",
-/* 0737 */  "jobname",
+/* 0733 */  "", //"romannumeral",
+/* 0734 */  "", //"string",
+/* 0735 */  "", //"meaning",
+/* 0736 */  "", //"fontname",
+/* 0737 */  "", //"jobname",
 /* 0738 */  " at ",
 /* 0739 */  "Where was the left brace" "? You said something like `\\def\\a}',",
 /* 0740 */  "which I'm going to interpret as `\\def\\a{}'.",
@@ -521,26 +521,26 @@ static const char *pool_file_arr[] =
 /* 0750 */  "*** (cannot \\read from terminal in nonstop modes)",
 /* 0751 */  "File ended within ",
 /* 0752 */  "This \\read has unbalanced braces.",
-/* 0753 */  "if",
-/* 0754 */  "ifcat",
-/* 0755 */  "ifnum",
-/* 0756 */  "ifdim",
-/* 0757 */  "ifodd",
-/* 0758 */  "ifvmode",
-/* 0759 */  "ifhmode",
-/* 0760 */  "ifmmode",
-/* 0761 */  "ifinner",
-/* 0762 */  "ifvoid",
-/* 0763 */  "ifhbox",
-/* 0764 */  "ifvbox",
-/* 0765 */  "ifx",
-/* 0766 */  "ifeof",
-/* 0767 */  "iftrue",
-/* 0768 */  "iffalse",
-/* 0769 */  "ifcase",
-/* 0770 */  "fi",
-/* 0771 */  "or",
-/* 0772 */  "else",
+/* 0753 */  "", //"if",
+/* 0754 */  "", //"ifcat",
+/* 0755 */  "", //"ifnum",
+/* 0756 */  "", //"ifdim",
+/* 0757 */  "", //"ifodd",
+/* 0758 */  "", //"ifvmode",
+/* 0759 */  "", //"ifhmode",
+/* 0760 */  "", //"ifmmode",
+/* 0761 */  "", //"ifinner",
+/* 0762 */  "", //"ifvoid",
+/* 0763 */  "", //"ifhbox",
+/* 0764 */  "", //"ifvbox",
+/* 0765 */  "", //"ifx",
+/* 0766 */  "", //"ifeof",
+/* 0767 */  "", //"iftrue",
+/* 0768 */  "", //"iffalse",
+/* 0769 */  "", //"ifcase",
+/* 0770 */  "", //"fi",
+/* 0771 */  "", //"or",
+/* 0772 */  "", //"else",
 /* 0773 */  "Extra ",
 /* 0774 */  "I'm ignoring this; it doesn't match any \\if.",
 /* 0775 */  "{true}",