version 2.3.0-final.

[putex/putex.git] / src / texsourc / tex0.c

diff --git a/src/texsourc/tex0.c b/src/texsourc/tex0.c
index 7436584..a2129ed 100644 (file)
--- a/src/texsourc/tex0.c
+++ b/src/texsourc/tex0.c
@@ -180,12 +180,12 @@ void print_ (integer s)
           }\r
         }\r
 \r
-        new_line_char = nl; /* restore eol */\r
+        new_line_char = nl;\r
         return;\r
       }\r
     }\r
   }\r
-/*  we get here with s > 256 - i.e. not a single character */\r
+\r
   j = str_start[s];\r
 \r
   while (j < str_start[s + 1])\r
@@ -356,7 +356,7 @@ void print_file_name (integer n, integer a, integer e)
   slow_print(e);\r
 }\r
 /* sec 0699 */\r
-void print_size_ (integer s)\r
+void print_size (integer s)\r
 { \r
   if (s == 0)\r
     print_esc("textfont");\r
@@ -391,7 +391,7 @@ void jump_out (void)
     if (trace_flag)\r
       puts("EXITING at JUMPOUT");\r
 \r
-    if ((history != 0) && (history != 1))\r
+    if ((history != spotless) && (history != warning_issued))\r
       code = 1;\r
     else\r
       code = 0;\r
@@ -525,7 +525,7 @@ continu:
             if (last > first + 1)\r
             {\r
               loc = first + 1;\r
-              buffer[first] = 32;\r
+              buffer[first] = ' ';\r
             }\r
             else\r
             {\r
@@ -617,7 +617,7 @@ continu:
   else while (help_ptr > 0)\r
   {\r
     decr(help_ptr);\r
-    print_nl(help_line[help_ptr] == NULL ? "" : help_line[help_ptr]);\r
+    print_nl(help_line[help_ptr]);\r
   }\r
 \r
   print_ln();\r
@@ -884,15 +884,13 @@ void print_current_string (void)
 void term_input (void)\r
 { \r
   integer k;\r
-  boolean flag;\r
   \r
   if (!knuth_flag)\r
     show_line("\n", 0);\r
 \r
   update_terminal();\r
-  flag = input_ln(stdin, true);\r
 \r
-  if (!flag)\r
+  if (!input_ln(stdin, true))\r
   {\r
     fatal_error("End of file on the terminal!");\r
     return;\r
@@ -1049,8 +1047,8 @@ scaled x_over_n_(scaled x, integer n)
     }\r
     else\r
     {\r
-      Result = - (integer) ((- (integer) x)/ n);\r
-      tex_remainder = - (integer) ((- (integer) x)% n);\r
+      Result = - (integer) ((- (integer) x) / n);\r
+      tex_remainder = - (integer) ((- (integer) x) % n);\r
     }\r
   }\r
 \r
@@ -1234,6 +1232,7 @@ void show_token_list_(integer p, integer q, integer l)
           break;\r
       }\r
     }\r
+\r
     p = link(p);\r
   }\r
 \r
@@ -1245,7 +1244,7 @@ void runaway (void)
 {\r
   pointer p;\r
 \r
-  if (scanner_status > 1)\r
+  if (scanner_status > skipping)\r
   {\r
     print_nl("Runaway ");\r
 \r
@@ -1778,9 +1777,6 @@ done2:
   was_lo_max = lo_mem_max;\r
   was_hi_min = hi_mem_min;\r
 }\r
-#endif /* DEBUG */\r
-\r
-#ifdef DEBUG\r
 /* sec 0172 */\r
 void search_mem_(pointer p)\r
 {\r
@@ -1972,11 +1968,11 @@ void print_glue_(scaled d, integer order, const char * s)
 \r
   if ((order < normal) || (order > filll))\r
     prints("foul");\r
-  else if (order > 0)\r
+  else if (order > normal)\r
   {\r
     prints("fil");\r
 \r
-    while (order > 1)\r
+    while (order > fil)\r
     {\r
       print_char('l');\r
       decr(order);\r
@@ -2186,7 +2182,7 @@ void show_node_list_(integer p)
 \r
   if (cur_length > depth_threshold)\r
   {\r
-    if (p != 0)    /* fixed 94/Mar/23 BUG FIX NOTE: still not fixed in 3.14159 ! */\r
+    if (p != 0)\r
       prints(" []");\r
 \r
     return; \r