int error(void);
#define error_regmem
// void fatal_error_(str_number);
-int fatal_error_(str_number);
-#define fatal_error(s) fatal_error_((str_number) (s))
+int fatal_error_(char *);
+#define fatal_error(s) fatal_error_((char *) (s))
#define fatalerror_regmem
// void overflow_(str_number, integer);
int overflow_(str_number, integer);
#define print_write_whatsit(s, p) print_write_whatsit_((str_number) (s), (halfword) (p))
void jump_out(void);
void error(void);
-void fatal_error_(str_number);
-#define fatal_error(s) fatal_error_((str_number) (s))
+void fatal_error_(char *);
+#define fatal_error(s) fatal_error_((char *) (s))
void overflow_(str_number, integer);
#define overflow(s, n) overflow_((str_number) (s), (integer) (n))
void confusion_(str_number);
print_char(41); /*)*/
}
while(cond_ptr != 0){
- print_nl(40); /*(*/
+ print_nl("("); /*(*/
print_esc(1271); /* end occurred */
print(1273); /* when */
print_cmd_chr(105, cur_if); /* i */
}
#endif /* INITEX */
if (!is_initex) /* 2000/March/3 */
- print_nl(" (\dump is performed only by INITEX)"); /* */
+ print_nl(" (\\dump is performed only by INITEX)"); /* */
}
}
print_ln ();
}
-void fatal_error_(str_number s)
+void fatal_error_(char * s)
{
normalize_selector ();
print_err("Emergency stop");
- //help1("");
- {
- help_ptr = 1;
- help_line[0] = ""; //s; // given string goes into help line
- }
+ help1(s);
{
if(interaction == 3)interaction = 2;
if(log_opened){
flag = input_ln(stdin, true);
#endif
if(! flag){
- fatal_error(261); /* End of file on the terminal! */
+ fatal_error("End of file on the terminal!"); /* */
return; // abort_flag set
}
term_offset = 0;
incr(selector);
print_err("Interruption");
help3("You rang?",
- "Try to insert some instructions for me (e.g.,`I\showlists'),",
+ "Try to insert some instructions for me (e.g.,`I\\showlists'),",
"unless you just want to quit by typing `X'.");
deletions_allowed = false;
error ();
else if(cur_input.index_field == 1)
if(align_state > 500000L)align_state = 0;
else {
- fatal_error(592); /* (interwoven alignment preambles are not allowed) */
+ fatal_error("(interwoven alignment preambles are not allowed)"); /* */
return; // abort_flag set
}
{
)
incr(cur_input.limit_field);
if(cur_input.limit_field == cur_input.start_field)
- print_nl("(Please type a command or say `\end')"); /* */
+ print_nl("(Please type a command or say `\\end')"); /* */
print_ln ();
first = cur_input.start_field;
{
cur_input.loc_field = cur_input.start_field;
}
else {
- fatal_error(614); /* *** (job aborted, no legal \end found) */
+ fatal_error("*** (job aborted, no legal \\end found)"); /* */
return; // abort_flag set
}
}
if(align_state == 0)
{
if(scanner_status == 4){
- fatal_error(592); /* (interwoven alignment preambles are not allowed) */
+ fatal_error("(interwoven alignment preambles are not allowed)"); /* */
return; // abort_flag set
}
n = -1;
}
else {
- fatal_error(750); /* *** (cannot \read from terminal in nonstop modes) */
+ fatal_error("*** (cannot \\read from terminal in nonstop modes)"); /* */
return; // abort_flag set
}
else if(read_open[m]== 1)
print_nl("Please type another "); /* */
print(s);
if(interaction < 2){
- fatal_error(787); /* *** (job aborted, file error in nonstop mode) */
+ fatal_error("*** (job aborted, file error in nonstop mode)"); /* */
return; // abort_flag set
}
if (! knuth_flag)
}
}
if(cur_cmd == 9){
- fatal_error(592); /* (interwoven alignment preambles are not allowed) */
+ fatal_error("(interwoven alignment preambles are not allowed)"); /* */
return; // abort_flag set
}
if((cur_cmd == 75)&&(cur_chr == (hash_size + 793)))
print_err("Improper ");
print_esc(517); /* halign */
print(888); /* inside $$ */
- help3("Displays can use special alignments (like \eqalignno)",
+ help3("Displays can use special alignments (like \\eqalignno)",
"only if nothing but the alignment itself is between $$'s.",
"So I've deleted the formulas that preceded this alignment.");
error ();
return 0; // abort_flag set
}
if(align_state < 500000L) { /* ??? */
- fatal_error(592); /* (interwoven alignment preambles are not allowed) */
+ fatal_error("(interwoven alignment preambles are not allowed)"); /* */
return 0; // abort_flag set
}
p = mem[q].hh.v.RH; /* p <- link(q) p.791 */
noshrinkerroryet = false;
print_err("Infinite glue shrinkage found in a paragraph");
help5("The paragraph just ended includes some glue that has",
- "infinite shrinkability, e.g., `\hskip 0pt minus 1fil'.",
+ "infinite shrinkability, e.g., `\\hskip 0pt minus 1fil'.",
"Such glue doesn't belong there---it allows a paragraph",
"of any length to fit on one line. But it's safe to proceed,",
"since the offensive shrinkability has been made finite.");
}
help5("I've deleted a group-closing symbol because it seems to be",
"spurious, as in `$x}$'. But perhaps the } is legitimate and",
- "you forgot something else, as in `\hbox{$x}'. In such cases",
+ "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 ();
{
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.",
+ "I refuse to unbox an \\hbox in vertical mode or vice versa.",
"And I can't open any boxes in math mode.");
error ();
return;
print_err("Please use ");
print_esc(520); /* mathaccent */
print(1134); /* for accents in math mode */
- help2("I'm changing \accent to \mathaccent here; wish me luck.",
+ help2("I'm changing \\accent to \\mathaccent here; wish me luck.",
"(Accents are not the same in formulas as they are in text.)");
error ();
}