To store and sometimes to issue errors arising from parsing malformed webs of literate source text.

§1. Errors usually can't be reported at the time when they're detected, so we need to store them up, with this:

typedef struct ls_error {
    int warning;
    struct ls_line *line;
    struct text_file_position tfp;
    struct text_stream *message;
    CLASS_DEFINITION
} ls_error;

void WebErrors::record_at?Usage of WebErrors::record_at:
Literate Source - §8.8, §8.8.1, §8.9, §8.10.1
Holons - §5.1.1.1, §5.1.1.2(text_stream *message, ls_line *lst) {
    if (lst == NULL) {
        internal_error("unlocated error");
    } else {
        ls_unit *lsu = lst->owning_chunk->owner->owning_unit;
        WebErrors::record_in_unit(message, lst, lsu);
    }
}

void WebErrors::record_warning_at?Usage of WebErrors::record_warning_at:
Holons - §5.2(text_stream *message, ls_line *lst) {
    if (lst == NULL) {
        internal_error("unlocated warning");
    } else {
        ls_unit *lsu = lst->owning_chunk->owner->owning_unit;
        WebErrors::record_warning_in_unit(message, lst, lsu);
    }
}

ls_error *WebErrors::record_in_unit?Usage of WebErrors::record_in_unit:
§2
Literate Source - §5(text_stream *message, ls_line *lst, ls_unit *lsu) {
    ls_error *error = CREATE(ls_error);
    error->warning = FALSE;
    error->message = Str::duplicate(message);
    error->tfp = lst->origin;
    error->line = lst;
    if (lsu == NULL) lsu = LiterateSource::unit_of_line(lst);
    if (lsu == NULL) internal_error("unlocated error");
    ADD_TO_LINKED_LIST(error, ls_error, lsu->errors);
    return error;
}

void WebErrors::record_warning_in_unit(text_stream *message, ls_line *lst, ls_unit *lsu) {
    ls_error *error = CREATE(ls_error);
    error->warning = TRUE;
    error->message = Str::duplicate(message);
    error->tfp = lst->origin;
    error->line = lst;
    ADD_TO_LINKED_LIST(error, ls_error, lsu->errors);
}

void WebErrors::write(OUTPUT_STREAM, ls_error *error) {
    if (error->warning) WRITE("tangle warning: ");
    else WRITE("tangle error: ");
    if (error->tfp.text_file_filename)
        WRITE("%f, line %d: ", error->tfp.text_file_filename, error->tfp.line_count);
    WRITE("%S", error->message);
}

• The structure ls_error is accessed in 4/ts, 5/mpi, 8/ls, 8/hln, 8/tt2, 9/is and here.

§2. These are ways to issue errors immediately, then:

void WebErrors::issue_at?Usage of WebErrors::issue_at:
Enumerated Constants - §3.1, §3.2, §3.3
Types and Functions - §7.4
Language Methods - §9
ACME Support - §6
C-Like Languages - §3, §3.1, §3.2.2.1, §6.3
InC Support - §10, §11.2
The Swarm - §10
Assets, Plugins and Colour Schemes - §6, §7
The Weaver - §2.6.1.2.2.1.5
The Weaver of Text - §1.4
HTML Formats - §5.11, §5.14, §5.16
Colonies - §8.4, §10(text_stream *message, ls_line *lst) {
    if (lst) {
        ls_error *error = WebErrors::record_in_unit(message, lst, NULL);
        WebErrors::issue_recorded(error);
    } else {
        #ifdef THIS_IS_INWEB
        no_inweb_errors++;
        #endif
        Errors::in_text_file_S(message, NULL);
    }
}

void WebErrors::issue_recorded(ls_error *error) {
    if (error->warning) {
        TEMPORARY_TEXT(msg)
        WRITE_TO(msg, "warning: %S", error->message);
        Errors::in_text_file_S(msg, &(error->tfp));
        DISCARD_TEXT(msg)
    } else {
        Errors::in_text_file_S(error->message, &(error->tfp));
    }
    if (error->line) WRITE_TO(STDERR, "%07d  %S\n",
        error->tfp.line_count, error->line->text);
    #ifdef THIS_IS_INWEB
    no_inweb_errors++;
    #endif
}

void WebErrors::issue_all_recorded(ls_web *W) {
    ls_chapter *C;
    ls_section *S;
    ls_error *error;
    LOOP_OVER_LINKED_LIST(C, ls_chapter, W->chapters)
        LOOP_OVER_LINKED_LIST(S, ls_section, C->sections)
            LOOP_OVER_LINKED_LIST(error, ls_error, S->literate_source->errors)
                WebErrors::issue_recorded(error);
}