To issue error messages.

• §1. Reading textual inter

§1. Reading textual inter.

typedef struct inter_error_location {
    struct text_file_position *error_tfp;
    struct text_stream *error_line;
    struct filename *error_interb;
    size_t error_offset;
    CLASS_DEFINITION
} inter_error_location;

inter_error_location Inter::Errors::file_location?Usage of Inter::Errors::file_location:
Inter Nodes - §6
The Warehouse - §3
Inter in Text Files - §1(text_stream *line, text_file_position *tfp) {
    inter_error_location eloc;
    eloc.error_tfp = tfp;
    eloc.error_line = line;
    eloc.error_interb = NULL;
    eloc.error_offset = 0;
    return eloc;
}

inter_error_location Inter::Errors::interb_location?Usage of Inter::Errors::interb_location:
The Warehouse - §3
Inter in Binary Files - §1(filename *F, size_t at) {
    inter_error_location eloc;
    eloc.error_tfp = NULL;
    eloc.error_line = NULL;
    eloc.error_interb = F;
    eloc.error_offset = at;
    return eloc;
}

typedef struct inter_error_message {
    struct inter_error_location error_at;
    struct text_stream *error_body;
    struct text_stream *error_quote;
    CLASS_DEFINITION
} inter_error_message;

inter_error_message *Inter::Errors::quoted?Usage of Inter::Errors::quoted:
Symbols Tables - §10
Inter in Text Files - §1
Inter Data Types - §3
The Pragma Construct - §2
The Kind Construct - §2
The Constant Construct - §2
The Instance Construct - §2
The PropertyValue Construct - §2
The Permission Construct - §2
The Primitive Construct - §2
The Inv Construct - §2(text_stream *err, text_stream *quote, inter_error_location *eloc) {
    inter_error_message *iem = Inter::Errors::plain(err, eloc);
    iem->error_quote = Str::duplicate(quote);
    return iem;
}

inter_error_message *Inter::Errors::plain?Usage of Inter::Errors::plain:
Definition - §3, §4
Inter in Binary Files - §3
The Comment Construct - §1
The Symbol Construct - §1
The Version Construct - §2
The Pragma Construct - §2
The Link Construct - §2
The Append Construct - §2
The PackageType Construct - §2
The Kind Construct - §2
The Constant Construct - §2
The Instance Construct - §2
The PropertyValue Construct - §2
The Permission Construct - §2
The Primitive Construct - §2
The Label Construct - §2
The Local Construct - §2
The Inv Construct - §2
The Ref Construct - §2
The Val Construct - §2
The Lab Construct - §2
The Code Construct - §2
The Evaluation Construct - §2
The Reference Construct - §2
The Cast Construct - §2
The Splat Construct - §2(text_stream *err, inter_error_location *eloc) {
    inter_error_message *iem = CREATE(inter_error_message);
    iem->error_body = Str::duplicate(err);
    iem->error_quote = NULL;
    if (eloc) iem->error_at = *eloc;
    return iem;
}

void Inter::Errors::issue?Usage of Inter::Errors::issue:
Symbols Tables - §10
Transmigration - §3.1.1, §3.2.1
Inter in Binary Files - §1.6, §3
Inter in Text Files - §1, §2(inter_error_message *iem) {
    if (iem == NULL) internal_error("no error to issue");
    Inter::Errors::issue_to(STDERR, iem);
    #ifdef CORE_MODULE
    LOG("Inter error:\n");
    Inter::Errors::issue_to(DL, iem);
    #endif
}

void Inter::Errors::issue_to(OUTPUT_STREAM, inter_error_message *iem) {
    TEMPORARY_TEXT(E)
    WRITE_TO(E, "%S", iem->error_body);
    if (iem->error_quote)
        WRITE_TO(E, ": '%S'", iem->error_quote);
    inter_error_location eloc = iem->error_at;
    if (eloc.error_interb) {
        WRITE("%f, position %08x: ", eloc.error_interb, eloc.error_offset);
    }
    if (eloc.error_tfp)
        Errors::in_text_file_S(E, eloc.error_tfp);
    else
        Errors::in_text_file_S(E, NULL);
    if (eloc.error_line)
        WRITE(">--> %S\n", eloc.error_line);
    DISCARD_TEXT(E)
}

inter_error_message *Inter::Errors::gather_first(inter_error_message *E, inter_error_message *F) {
    if (E) return E;
    return F;
}

• The structure inter_error_location is accessed in 2/tw, 3/iibf and here.
• The structure inter_error_message is accessed in 2/in and here.

§2.

void Inter::Errors::backtrace?Usage of Inter::Errors::backtrace:
Definition - §4(OUTPUT_STREAM, inter_tree_node *F) {
    inter_tree_node *X = F;
    int n = 0;
    while (TRUE) {
        X = InterTree::parent(X);
        if (X == NULL) break;
        n++;
    }
    for (int i = n; i >= 0; i--) {
        inter_tree_node *X = F;
        int m = 0;
        while (TRUE) {
            inter_tree_node *Y = InterTree::parent(X);
            if (Y == NULL) break;
            if (m == i) {
                WRITE("%2d. ", (n-i));
                if (i == 0) WRITE("** "); else WRITE("   ");
                Inter::Defn::write_construct_text_allowing_nop(OUT, X);
                break;
            }
            X = Y;
            m++;
        }
    }
    LOOP_THROUGH_INTER_CHILDREN(C, F) {
        WRITE("%2d.    ", (n+1));
        Inter::Defn::write_construct_text_allowing_nop(OUT, C);
    }
}