To spool error messages into the HTML report.

§1. 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?Usage of BlorbErrors::set_error_position:
Blurb Parser - §1, §7(text_file_position *tfp) {
    error_position = tfp;
}

void BlorbErrors::describe_file_position?Usage of BlorbErrors::describe_file_position:
§2, §3(OUTPUT_STREAM) {
    if (error_position) {
        WRITE("%f, line %d: ",
            error_position->text_file_filename,
            error_position->line_count);
    }
}

§2. Fatalities:

void BlorbErrors::fatal?Usage of BlorbErrors::fatal:
Blurb Parser - §7.2
Blorb Writer - §8, §17, §19, §21, §23
Website Maker - §9(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?Usage of BlorbErrors::fatal_fs:
Blorb Writer - §26.3.1
Solution Deviser - §12
Base64 - §2(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);
}

§3. Mere indispositions:

void BlorbErrors::error?Usage of BlorbErrors::error:
Solution Deviser - §3, §5(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?Usage of BlorbErrors::error_1:
Blurb Parser - §7.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?Usage of BlorbErrors::error_1S:
Blurb Parser - §7.1, §7.2
Releaser - §6.7, §9
Placeholders - §6(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?Usage of BlorbErrors::error_1f:
Blorb Writer - §17, §19, §24
Website Maker - §9(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?Usage of BlorbErrors::errorf_1S:
Releaser - §6.4
Templates - §6(char *erm, text_stream *s1) {
    TEMPORARY_TEXT(ERM)
    WRITE_TO(ERM, erm, s1);
    BlorbErrors::spool_error(ERM);
    DISCARD_TEXT(ERM)
}

void BlorbErrors::errorf_2S?Usage of BlorbErrors::errorf_2S:
Releaser - §8.2.1(char *erm, text_stream *s1, text_stream *s2) {
    TEMPORARY_TEXT(ERM)
    WRITE_TO(ERM, erm, s1, s2);
    BlorbErrors::spool_error(ERM);
    DISCARD_TEXT(ERM)
}

§4. As noted, errors are spooled to a placeholder variable, for the benefit of the report:

void BlorbErrors::spool_error?Usage of BlorbErrors::spool_error:
§2, §3(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++;
}