To create nodes of inter code, and manage everything about them except their tree locations.

• §1. Nodes
• §6. The package and tree of a node
• §7. Bytecode storage
• §14. Interpreting values stored in bytecode
• §15. Errors

§1. Nodes. It's essential to be able to walk an Inter tree quickly, while movements of nodes within the tree are relatively uncommon. So we provide every imaginable link. Suppose the structure is:

    A
        B
        C
            D
        E

Then the links are:

              of |  A       B       C       D       E
    -------------+--------------------------------------
    parent       |  NULL    A       A       C       A
    first_child  |  B       NULL    D       NULL    NULL
    last_child   |  E       NULL    D       NULL    NULL
    previous     |  NULL    NULL    B       NULL    C
    next         |  NULL    C       E       NULL    NULL

Each node also knows the tree and the package it belongs to. We really aren't concerned about memory consumption here. The Inter trees we deal with will be large (typically 400,000 nodes), so on a 64-bit processor we might be looking at 250 MB of memory here, and that can probably be doubled when the warehouse memory consumption is also considered. But this is no longer prohibitive: speed of access matters more.

typedef struct inter_tree_node {
    struct inter_tree *tree;
    struct inter_package *package;
    struct inter_tree_node *parent_itn;
    struct inter_tree_node *first_child_itn;
    struct inter_tree_node *last_child_itn;
    struct inter_tree_node *previous_itn;
    struct inter_tree_node *next_itn;
    struct warehouse_floor_space W;
} inter_tree_node;

• The structure inter_tree_node is accessed in 2/it, 2/bkm, 2/np, 2/pck, 2/st, 2/trn, 3/ic, 3/iibf, 3/iitf, 3/vi, 3/ivp, 3/idt, 4/tcc, 4/tcc2, 4/tic, 4/tic2, 4/toc, 4/tpc, 4/tpc3, 4/tpc4, 4/tpc5, 4/tpc6, 4/tpc8, 4/ttc, 5/tac, 5/tcc, 5/tcc2, 5/tec, 5/tic, 5/trc2, 5/tsc and here.

§2. Do not call this directly in order to create a node.

inter_tree_node *Inode::new_node?Usage of Inode::new_node:
§3, §5
Inter in Binary Files - §10.1.5(inter_warehouse *warehouse, inter_tree *I,
    int n, inter_error_location *eloc, inter_package *owner) {
    if (warehouse == NULL) internal_error("no warehouse");
    if (I == NULL) internal_error("no tree supplied");
    warehouse_floor_space W = InterWarehouse::make_floor_space(warehouse, n);
    inter_tree_node *itn = CREATE(inter_tree_node);
    itn->tree = I;
    itn->package = owner;
    itn->parent_itn = NULL;
    itn->first_child_itn = NULL;
    itn->last_child_itn = NULL;
    itn->previous_itn = NULL;
    itn->next_itn = NULL;
    itn->W = W;
    if (eloc) Inode::attach_error_location(itn, eloc);
    return itn;
}

§3. Instead, call one of the following. This of course should be called once only per tree, and is called by InterTree::new anyway.

The root node is meaningless, but in order that all nodes correspond to instructions, we make it a NOP_IST. This is not really part of the program, though.

inter_tree_node *Inode::new_root_node?Usage of Inode::new_root_node:
Inter Trees - §2.1(inter_warehouse *warehouse, inter_tree *I) {
    inter_tree_node *P = Inode::new_node(warehouse, I, 2, NULL, NULL);
    P->W.instruction[ID_IFLD] = (inter_ti) NOP_IST;
    P->W.instruction[LEVEL_IFLD] = 0;
    return P;
}

§4. More generally: the content of a node is an instruction stored as bytecode in memory. (Perhaps wordcode would be more accurate: it's a series of words.) Words 0 and 1 have the same meaning for all instructions; everything from 2 onwards is data whose meaning differs between instructions. (Indeed, some instructions have no data at all, and thus occupy only 2 words.)

The ID is an enumeration of *_IST: it marks which instruction this is.

The level is the depth of this node in the tree, where the root node is 0, its children are level 1, their children level 2, and so on.

define ID_IFLD 0
define LEVEL_IFLD 1
define DATA_IFLD 2

§5. These functions should be called only by the creator functions for the Inter instructions. Code which is generating Inter to do something should not call those creator functions, not these.

inter_tree_node *Inode::new_with_0_data_fields?Usage of Inode::new_with_0_data_fields:
The Nop Construct - §2
The Code Construct - §2
The Evaluation Construct - §2
The Reference Construct - §2(inter_bookmark *IBM, int S,
    inter_error_location *eloc, inter_ti level) {
    inter_tree *I = InterBookmark::tree(IBM);
    inter_tree_node *P = Inode::new_node(InterTree::warehouse(I), I, 2,
        eloc, InterBookmark::package(IBM));
    P->W.instruction[ID_IFLD] = (inter_ti) S;
    P->W.instruction[LEVEL_IFLD] = level;
    return P;
}

inter_tree_node *Inode::new_with_1_data_field?Usage of Inode::new_with_1_data_field:
Transmigration - §4.2.1.1
The Comment Construct - §2
The PackageType Construct - §2
The Assembly Construct - §2
The Lab Construct - §2
The Label Construct - §2(inter_bookmark *IBM, int S,
    inter_ti V, inter_error_location *eloc, inter_ti level) {
    inter_tree *I = InterBookmark::tree(IBM);
    inter_tree_node *P = Inode::new_node(InterTree::warehouse(I), I, 3,
        eloc, InterBookmark::package(IBM));
    P->W.instruction[ID_IFLD] = (inter_ti) S;
    P->W.instruction[LEVEL_IFLD] = level;
    P->W.instruction[DATA_IFLD] = V;
    return P;
}

inter_tree_node *Inode::new_with_2_data_fields?Usage of Inode::new_with_2_data_fields:
Transmigration - §4.1.1
The Origin Construct - §2
The Pragma Construct - §2
The Primitive Construct - §2
The Provenance Construct - §2
The Cast Construct - §2
The Inv Construct - §3
The Local Construct - §2(inter_bookmark *IBM, int S,
    inter_ti V1, inter_ti V2, inter_error_location *eloc, inter_ti level) {
    inter_tree *I = InterBookmark::tree(IBM);
    inter_tree_node *P = Inode::new_node(InterTree::warehouse(I), I, 4,
        eloc, InterBookmark::package(IBM));
    P->W.instruction[ID_IFLD] = (inter_ti) S;
    P->W.instruction[LEVEL_IFLD] = level;
    P->W.instruction[DATA_IFLD] = V1;
    P->W.instruction[DATA_IFLD + 1] = V2;
    return P;
}

inter_tree_node *Inode::new_with_3_data_fields?Usage of Inode::new_with_3_data_fields:
The Constant Construct - §4
The Permission Construct - §2
The Property Construct - §2
The Ref Construct - §2
The Val Construct - §2(inter_bookmark *IBM, int S,
    inter_ti V1, inter_ti V2, inter_ti V3, inter_error_location *eloc, inter_ti level) {
    inter_tree *I = InterBookmark::tree(IBM);
    inter_tree_node *P = Inode::new_node(InterTree::warehouse(I), I, 5,
        eloc, InterBookmark::package(IBM));
    P->W.instruction[ID_IFLD] = (inter_ti) S;
    P->W.instruction[LEVEL_IFLD] = level;
    P->W.instruction[DATA_IFLD] = V1;
    P->W.instruction[DATA_IFLD + 1] = V2;
    P->W.instruction[DATA_IFLD + 2] = V3;
    return P;
}

inter_tree_node *Inode::new_with_4_data_fields?Usage of Inode::new_with_4_data_fields:
The Insert Construct - §2
The PropertyValue Construct - §2
The Variable Construct - §2(inter_bookmark *IBM, int S,
    inter_ti V1, inter_ti V2, inter_ti V3, inter_ti V4, inter_error_location *eloc,
    inter_ti level) {
    inter_tree *I = InterBookmark::tree(IBM);
    inter_tree_node *P = Inode::new_node(InterTree::warehouse(I), I, 6,
        eloc, InterBookmark::package(IBM));
    P->W.instruction[ID_IFLD] = (inter_ti) S;
    P->W.instruction[LEVEL_IFLD] = level;
    P->W.instruction[DATA_IFLD] = V1;
    P->W.instruction[DATA_IFLD + 1] = V2;
    P->W.instruction[DATA_IFLD + 2] = V3;
    P->W.instruction[DATA_IFLD + 3] = V4;
    return P;
}

inter_tree_node *Inode::new_with_5_data_fields?Usage of Inode::new_with_5_data_fields:
The Constant Construct - §2
The Package Construct - §4(inter_bookmark *IBM, int S,
    inter_ti V1, inter_ti V2, inter_ti V3, inter_ti V4, inter_ti V5,
    inter_error_location *eloc, inter_ti level) {
    inter_tree *I = InterBookmark::tree(IBM);
    inter_tree_node *P = Inode::new_node(InterTree::warehouse(I), I, 7,
        eloc, InterBookmark::package(IBM));
    P->W.instruction[ID_IFLD] = (inter_ti) S;
    P->W.instruction[LEVEL_IFLD] = level;
    P->W.instruction[DATA_IFLD] = V1;
    P->W.instruction[DATA_IFLD + 1] = V2;
    P->W.instruction[DATA_IFLD + 2] = V3;
    P->W.instruction[DATA_IFLD + 3] = V4;
    P->W.instruction[DATA_IFLD + 4] = V5;
    return P;
}

inter_tree_node *Inode::new_with_6_data_fields?Usage of Inode::new_with_6_data_fields:
The Instance Construct - §2
The Splat Construct - §2(inter_bookmark *IBM, int S,
    inter_ti V1, inter_ti V2, inter_ti V3, inter_ti V4, inter_ti V5, inter_ti V6,
    inter_error_location *eloc, inter_ti level) {
    inter_tree *I = InterBookmark::tree(IBM);
    inter_tree_node *P = Inode::new_node(InterTree::warehouse(I), I, 8,
        eloc, InterBookmark::package(IBM));
    P->W.instruction[ID_IFLD] = (inter_ti) S;
    P->W.instruction[LEVEL_IFLD] = level;
    P->W.instruction[DATA_IFLD] = V1;
    P->W.instruction[DATA_IFLD + 1] = V2;
    P->W.instruction[DATA_IFLD + 2] = V3;
    P->W.instruction[DATA_IFLD + 3] = V4;
    P->W.instruction[DATA_IFLD + 4] = V5;
    P->W.instruction[DATA_IFLD + 5] = V6;
    return P;
}

inter_tree_node *Inode::new_with_7_data_fields?Usage of Inode::new_with_7_data_fields:
The Typename Construct - §2(inter_bookmark *IBM, int S,
    inter_ti V1, inter_ti V2, inter_ti V3, inter_ti V4, inter_ti V5, inter_ti V6,
    inter_ti V7, inter_error_location *eloc, inter_ti level) {
    inter_tree *I = InterBookmark::tree(IBM);
    inter_tree_node *P = Inode::new_node(InterTree::warehouse(I), I, 9,
        eloc, InterBookmark::package(IBM));
    P->W.instruction[ID_IFLD] = (inter_ti) S;
    P->W.instruction[LEVEL_IFLD] = level;
    P->W.instruction[DATA_IFLD] = V1;
    P->W.instruction[DATA_IFLD + 1] = V2;
    P->W.instruction[DATA_IFLD + 2] = V3;
    P->W.instruction[DATA_IFLD + 3] = V4;
    P->W.instruction[DATA_IFLD + 4] = V5;
    P->W.instruction[DATA_IFLD + 5] = V6;
    P->W.instruction[DATA_IFLD + 6] = V7;
    return P;
}

inter_tree_node *Inode::new_with_8_data_fields(inter_bookmark *IBM, int S,
    inter_ti V1, inter_ti V2, inter_ti V3, inter_ti V4, inter_ti V5, inter_ti V6,
        inter_ti V7, inter_ti V8, inter_error_location *eloc, inter_ti level) {
    inter_tree *I = InterBookmark::tree(IBM);
    inter_tree_node *P = Inode::new_node(InterTree::warehouse(I), I, 10,
        eloc, InterBookmark::package(IBM));
    P->W.instruction[ID_IFLD] = (inter_ti) S;
    P->W.instruction[LEVEL_IFLD] = level;
    P->W.instruction[DATA_IFLD] = V1;
    P->W.instruction[DATA_IFLD + 1] = V2;
    P->W.instruction[DATA_IFLD + 2] = V3;
    P->W.instruction[DATA_IFLD + 3] = V4;
    P->W.instruction[DATA_IFLD + 4] = V5;
    P->W.instruction[DATA_IFLD + 5] = V6;
    P->W.instruction[DATA_IFLD + 6] = V7;
    P->W.instruction[DATA_IFLD + 7] = V8;
    return P;
}

§6. The package and tree of a node.

inter_package *Inode::get_package?Usage of Inode::get_package:
Packages - §12
Inter Constructs - §7
Inter in Binary Files - §10.1.5.1.1
Inter Data Types - §14
The Constant Construct - §8
The Instance Construct - §3
The PropertyValue Construct - §3(inter_tree_node *F) {
    if (F) return F->package;
    return NULL;
}

inter_tree *Inode::tree?Usage of Inode::tree:
§9
Packages - §8
Inter Constructs - §17
Inter in Text Files - §12
Verifying Inter - §7, §8, §9, §10
The Provenance Construct - §7(inter_tree_node *F) {
    if (F) return F->tree;
    return NULL;
}

inter_symbols_table *Inode::globals?Usage of Inode::globals:
Packages - §12
Symbols Tables - §14
Verifying Inter - §1.2, §2, §3, §4
Inter Value Pairs - §22(inter_tree_node *F) {
    if (F) return InterTree::global_scope(Inode::tree(F));
    return NULL;
}

inter_warehouse *Inode::warehouse?Usage of Inode::warehouse:
§14(inter_tree_node *F) {
    if (F == NULL) return NULL;
    return F->W.in_room->owning_warehouse;
}

§7. Bytecode storage. Each node represents one instruction, which is encoded with a contiguous block of bytecode. That bytecode is not stored in the inter_tree_node structure, but in warehouse memory.

......+------+-----------------+----+-------+-------------+........
      | Skip | Origin/Verified | ID | Level | Data        |
......+------+-----------------+----+-------+-------------+........
       <----------------------> <------------------------>
        Preframe                             Frame

This stretch of memory is divided into a "preframe" and a "frame": the frame holds the words of data described above, with position 0 being the ID, and so on. Unlike the frame, the preframe data is not part of the instruction, and is not saved out when Inter is stored in a binary file.

The frame is of variable size, depending on the instruction (and in some cases its particular content: a constant definition for a list can be almost any length). But the preframe is of fixed size:

define PREFRAME_SIZE 2
define PREFRAME_SKIP_AMOUNT 0
define PREFRAME_ORIGIN_AND_VFLAG 1

§8. PREFRAME_SKIP_AMOUNT is the offset (in words) to the next instruction. Since the preframe has fixed length, this is both the offset from one preframe to the next and also from one frame to the next.

§9. PREFRAME_ORIGIN_AND_VFLAG contains two unrelated pieces of data. One is bit 31, which is set if the instruction in the frame has been verified, and is otherwise clear.

The other, in bits 0-30, allows the origin of the instruction, in source code, to be preserved: for example, to show that this came from line 14 of a file called whatever.intert. It is 0 if no origin is recorded; it is used only for better reporting of any errors which arise. For how the location is actually encoded in the word, see The Warehouse.

inter_error_location *Inode::get_error_location?Usage of Inode::get_error_location:
§15
Inter Constructs - §7
Inter Value Pairs - §22.2(inter_tree_node *F) {
    if (F == NULL) return NULL;
    inter_ti L = (Inode::get_preframe(F, PREFRAME_ORIGIN_AND_VFLAG)) & 0x7fffffff;
    return InterTree::origin_word_to_eloc(Inode::tree(F), L);
}

void Inode::attach_error_location?Usage of Inode::attach_error_location:
§2(inter_tree_node *F, inter_error_location *eloc) {
    inter_ti val = InterTree::eloc_to_origin_word(Inode::tree(F), eloc);
    if ((Inode::get_preframe(F, PREFRAME_ORIGIN_AND_VFLAG)) & 0x80000000)
        val |= 0x80000000;
    Inode::set_preframe(F, PREFRAME_ORIGIN_AND_VFLAG, val);
}

§10. Note that the vflag can never be cleared, once set.

int Inode::get_vflag?Usage of Inode::get_vflag:
Verifying Inter - §1(inter_tree_node *F) {
    return ((Inode::get_preframe(F, PREFRAME_ORIGIN_AND_VFLAG)) & 0x80000000)?TRUE:FALSE;
}

void Inode::set_vflag?Usage of Inode::set_vflag:
Verifying Inter - §1(inter_tree_node *F) {
    Inode::set_preframe(F, PREFRAME_ORIGIN_AND_VFLAG,
        (Inode::get_preframe(F, PREFRAME_ORIGIN_AND_VFLAG)) | 0x80000000);
}

§11. The following gets and sets from the preframe:

inter_ti Inode::get_preframe?Usage of Inode::get_preframe:
§9, §10(inter_tree_node *F, int at) {
    if (F == NULL) return 0;
    return F->W.in_room->bytecode[F->W.index + at];
}

void Inode::set_preframe?Usage of Inode::set_preframe:
§9, §10(inter_tree_node *F, int at, inter_ti V) {
    if (F) F->W.in_room->bytecode[F->W.index + at] = V;
}

§12. As noted above, the size of the frame varies from instruction to instruction. For most instructions, it's determined as soon as the inode is created — for example, a PROPERTYVALUE_IST is always of a fixed length, and it's created already being that length, so that it doesn't need to be extended.

But just a few instructions are of variable length depending on what they are doing — CONSTANT_IST, for example. Those are created at their minimum length and then extended as needed.

Note that by is unsigned, so cannot be negative: the bytecode can extend but not contract.

All of this extension happens only during the process of creating the instruction: once that's done, it never changes in length again. Because of this, we can only build one instruction at a time.

Note that this function always succeeds, because an internal error is thrown if the system is out of memory.

void Inode::extend_instruction_by?Usage of Inode::extend_instruction_by:
Transmigration - §4.1.1
The Constant Construct - §4
The Primitive Construct - §2
The Typename Construct - §2(inter_tree_node *F, inter_ti by) {
    if (by > 0) F->W = InterWarehouse::enlarge_floor_space(F->W, by);
}

§13. Every instruction has its identity and a level:

int Inode::is?Usage of Inode::is:
Inter Trees - §7, §8, §9
Packages - §11
Symbols - §17
Transmigration - §3.1, §4, §5
Inter Constructs - §7, §19
The Constant Construct - §8, §9, §10, §11
The Instance Construct - §6
The Package Construct - §10, §11
The Typename Construct - §10
The Inv Construct - §9, §10
The Reference Construct - §6(inter_tree_node *P, inter_ti construct_ID) {
    if (P == NULL) return FALSE;
    if (P->W.instruction[ID_IFLD] == construct_ID) return TRUE;
    return FALSE;
}

int Inode::isnt?Usage of Inode::isnt:
Inter Trees - §7, §8
Inter in Text Files - §5.2
Verifying Inter - §2, §3, §4
The Constant Construct - §8
The Insert Construct - §6
The Instance Construct - §6
The Origin Construct - §6
The Package Construct - §9
The Permission Construct - §6
The Pragma Construct - §6
The Primitive Construct - §8
The Property Construct - §6
The PropertyValue Construct - §4, §6
The Provenance Construct - §4, §7
The Typename Construct - §6
The Variable Construct - §6
The Lab Construct - §6
The Label Construct - §6
The Local Construct - §6
The Ref Construct - §6
The Splat Construct - §6
The Val Construct - §6(inter_tree_node *P, inter_ti construct_ID) {
    if (P == NULL) return TRUE;
    if (P->W.instruction[ID_IFLD] == construct_ID) return FALSE;
    return TRUE;
}

inter_ti Inode::get_construct_ID?Usage of Inode::get_construct_ID:
Inter Constructs - §14
Inter in Text Files - §5.2
Verifying Inter - §2(inter_tree_node *P) {
    if (P == NULL) return 0;
    return P->W.instruction[ID_IFLD];
}

int Inode::get_level?Usage of Inode::get_level:
Node Placement - §3.1
Packages - §6
Inter Constructs - §7, §17, §19
The Package Construct - §8(inter_tree_node *P) {
    if (P == NULL) return 0;
    return (int) P->W.instruction[LEVEL_IFLD];
}

void Inode::set_level?Usage of Inode::set_level:
Node Placement - §4(inter_tree_node *P, int L) {
    if (P == NULL) internal_error("no node");
    P->W.instruction[LEVEL_IFLD] = (inter_ti) L;
}

§14. Interpreting values stored in bytecode. The data stored in the fields above may represent strings, symbols and the like, but it's just stored in what amounts to an array of unsigned integers: what is stored is just an ID representing one of those things. The conversion from an ID to the actual resource it represents depends on:

• (a) What it is meant to be (symbols table, text, package, ...) — there is no indication in the bytecode as to which that is, so we need to know what we're looking for, e.g. that what is in position 3 is a text;
• (b) Which node the value came from — because these depend on the warehouse where data is stored (and some nodes are in different warehouses than others), and sometimes also on the local symbols table (which depends on the package we are in, which in turn depends on the node).

inter_symbols_table *Inode::ID_to_symbols_table(inter_tree_node *F, inter_ti ID) {
    return InterWarehouse::get_symbols_table(Inode::warehouse(F), ID);
}

text_stream *Inode::ID_to_text?Usage of Inode::ID_to_text:
Annotations - §14
The Comment Construct - §5
The Insert Construct - §6
The Origin Construct - §6
The Pragma Construct - §6
The Inv Construct - §8, §9
The Splat Construct - §6(inter_tree_node *F, inter_ti ID) {
    return InterWarehouse::get_text(Inode::warehouse(F), ID);
}

inter_package *Inode::ID_to_package?Usage of Inode::ID_to_package:
The Package Construct - §5, §9(inter_tree_node *F, inter_ti ID) {
    if (ID == 0) return NULL;
    return InterWarehouse::get_package(Inode::warehouse(F), ID);
}

inter_node_list *Inode::ID_to_frame_list?Usage of Inode::ID_to_frame_list:
The Instance Construct - §6
The Permission Construct - §3
The Typename Construct - §6(inter_tree_node *F, inter_ti N) {
    return InterWarehouse::get_node_list(Inode::warehouse(F), N);
}

§15. Errors. Suppose we want to generate an error message for malformed Inter code, and to identify it as occurring at a particular node. We can get one thus:

inter_error_message *Inode::error?Usage of Inode::error:
Inter Constructs - §14, §17
Verifying Inter - §1.1, §1.2, §1.2.1, §1.2.2, §2, §3, §4, §5, §7, §8, §9, §10
Inter Value Pairs - §22, §22.1, §22.2
The Constant Construct - §5
The Instance Construct - §3
The Package Construct - §5
The Permission Construct - §3
The Primitive Construct - §3
The PropertyValue Construct - §3
The Provenance Construct - §4
The Typename Construct - §3
The Assembly Construct - §3
The Cast Construct - §3
The Code Construct - §3
The Evaluation Construct - §3
The Inv Construct - §4, §5, §5.2, §5.3
The Lab Construct - §3
The Label Construct - §3
The Reference Construct - §3
The Splat Construct - §3
The Plug Construct - §1
The Socket Construct - §1
The Version Construct - §1(inter_tree_node *F, text_stream *err, text_stream *quote) {
    inter_error_message *iem = CREATE(inter_error_message);
    inter_error_location *eloc = Inode::get_error_location(F);
    if (eloc)
        iem->error_at = *eloc;
    else
        iem->error_at = InterErrors::file_location(NULL, NULL);
    iem->error_body = err;
    iem->error_quote = quote;
    return iem;
}