mirror of
https://github.com/ganelson/inform.git
synced 2024-07-05 16:44:21 +03:00
115 lines
3 KiB
OpenEdge ABL
Executable file
115 lines
3 KiB
OpenEdge ABL
Executable file
[BlorbErrors::] Blorb Errors.
|
|
|
|
To spool error messages into the HTML report.
|
|
|
|
@ Foundation has a perfectly good library of code for error messages, but
|
|
we won't use it, because we need to do something unusual with them: they
|
|
must not only be printed to standard error, but also spooled into HTML
|
|
format for possible use on a status HTML page. Hence this section.
|
|
|
|
Inblorb is in any case only minimally helpful when diagnosing problems,
|
|
because it's intended to be used as the back end of a system which only
|
|
generates correct blurb files, so that everything will work -- ideally, the
|
|
Inform user will never know that Inblorb exists.
|
|
|
|
First, the current position of errors is recorded so that we can report
|
|
the source of the trouble:
|
|
|
|
=
|
|
text_file_position *error_position = NULL;
|
|
void BlorbErrors::set_error_position(text_file_position *tfp) {
|
|
error_position = tfp;
|
|
}
|
|
|
|
void BlorbErrors::describe_file_position(OUTPUT_STREAM) {
|
|
if (error_position) {
|
|
WRITE("%f, line %d: ",
|
|
error_position->text_file_filename,
|
|
error_position->line_count);
|
|
}
|
|
}
|
|
|
|
@ Fatalities:
|
|
|
|
=
|
|
void BlorbErrors::fatal(char *erm) {
|
|
TEMPORARY_TEXT(ERM)
|
|
BlorbErrors::describe_file_position(ERM);
|
|
WRITE_TO(ERM, "Fatal error: %s\n", erm);
|
|
BlorbErrors::spool_error(ERM);
|
|
DISCARD_TEXT(ERM)
|
|
Main::print_report();
|
|
exit(1);
|
|
}
|
|
|
|
void BlorbErrors::fatal_fs(char *erm, filename *fn) {
|
|
TEMPORARY_TEXT(ERM)
|
|
BlorbErrors::describe_file_position(ERM);
|
|
WRITE_TO(ERM, "Fatal error: %s: filename '%f'\n", erm, fn);
|
|
BlorbErrors::spool_error(ERM);
|
|
DISCARD_TEXT(ERM)
|
|
Main::print_report();
|
|
exit(1);
|
|
}
|
|
|
|
@ Mere indispositions:
|
|
|
|
=
|
|
void BlorbErrors::error(char *erm) {
|
|
TEMPORARY_TEXT(ERM)
|
|
BlorbErrors::describe_file_position(ERM);
|
|
WRITE_TO(ERM, "Error: %s\n", erm);
|
|
BlorbErrors::spool_error(ERM);
|
|
DISCARD_TEXT(ERM)
|
|
}
|
|
|
|
void BlorbErrors::error_1(char *erm, char *s) {
|
|
TEMPORARY_TEXT(ERM)
|
|
BlorbErrors::describe_file_position(ERM);
|
|
WRITE_TO(ERM, "Error: %s: '%s'\n", erm, s);
|
|
BlorbErrors::spool_error(ERM);
|
|
DISCARD_TEXT(ERM)
|
|
}
|
|
|
|
void BlorbErrors::error_1S(char *erm, text_stream *s) {
|
|
TEMPORARY_TEXT(ERM)
|
|
BlorbErrors::describe_file_position(ERM);
|
|
WRITE_TO(ERM, "Error: %s: '%S'\n", erm, s);
|
|
BlorbErrors::spool_error(ERM);
|
|
DISCARD_TEXT(ERM)
|
|
}
|
|
|
|
void BlorbErrors::error_1f(char *erm, filename *F) {
|
|
TEMPORARY_TEXT(ERM)
|
|
BlorbErrors::describe_file_position(ERM);
|
|
WRITE_TO(ERM, "Error: %s: '%f'\n", erm, F);
|
|
BlorbErrors::spool_error(ERM);
|
|
DISCARD_TEXT(ERM)
|
|
}
|
|
|
|
void BlorbErrors::errorf_1S(char *erm, text_stream *s1) {
|
|
TEMPORARY_TEXT(ERM)
|
|
WRITE_TO(ERM, erm, s1);
|
|
BlorbErrors::spool_error(ERM);
|
|
DISCARD_TEXT(ERM)
|
|
}
|
|
|
|
void BlorbErrors::errorf_2S(char *erm, text_stream *s1, text_stream *s2) {
|
|
TEMPORARY_TEXT(ERM)
|
|
WRITE_TO(ERM, erm, s1, s2);
|
|
BlorbErrors::spool_error(ERM);
|
|
DISCARD_TEXT(ERM)
|
|
}
|
|
|
|
@ As noted, errors are spooled to a placeholder variable, for the benefit of
|
|
the report:
|
|
|
|
=
|
|
void BlorbErrors::spool_error(OUTPUT_STREAM) {
|
|
Placeholders::append_to(I"CBLORBERRORS", I"<li>");
|
|
Placeholders::append_to(I"CBLORBERRORS", OUT);
|
|
Placeholders::append_to(I"CBLORBERRORS", I"</li>");
|
|
STREAM_COPY(STDERR, OUT);
|
|
error_count++;
|
|
}
|