To manage the memory storage of inter code.

§1.

typedef struct inter_warehouse {
    struct filename *origin_file;
    struct inter_warehouse_room *first_room;
    int size;
    int capacity;
    struct inter_resource_holder *stored_resources;
    CLASS_DEFINITION
} inter_warehouse;

• The structure inter_warehouse is accessed in 2/in, 2/st, 2/cnn, 2/trn, 3/iibf and here.

§2.

enum NO_IRSRC from 0
enum STRING_IRSRC
enum SYMBOLS_TABLE_IRSRC
enum FRAME_LIST_IRSRC
enum PACKAGE_IRSRC
enum REF_IRSRC

typedef struct inter_resource_holder {
    int irsrc;
    struct inter_package *owning_package;
    struct inter_symbols_table *stored_symbols_table;
    struct inter_node_list *stored_frame_list;
    struct inter_package *stored_package;
    struct text_stream *stored_text_stream;
    void *stored_ref;
} inter_resource_holder;

typedef struct inter_warehouse_room {
    struct inter_warehouse *owning_warehouse;
    inter_ti index_offset;
    int size;
    int capacity;
    inter_ti *bytecode;
    struct inter_warehouse_room *next_room;
    CLASS_DEFINITION
} inter_warehouse_room;

• The structure inter_resource_holder is accessed in 2/st, 2/pck, 2/trn, 3/iibf and here.
• The structure inter_warehouse_room is accessed in 2/in, 2/st, 2/cnn, 2/trn, 3/iibf and here.

§3.

inter_warehouse *the_only_warehouse = NULL;

inter_warehouse *Inter::Warehouse::new?Usage of Inter::Warehouse::new:
Inter Trees - §2(void) {
    if (the_only_warehouse == NULL) {
        inter_warehouse *warehouse = CREATE(inter_warehouse);
        warehouse->origin_file = NULL;
        warehouse->first_room = Inter::Warehouse::new_room(warehouse, 4096, NULL);
        warehouse->size = 1;
        warehouse->capacity = 0;
        warehouse->stored_resources = NULL;
        the_only_warehouse = warehouse;
    }
    return the_only_warehouse;
}

inter_warehouse_room *Inter::Warehouse::new_room?Usage of Inter::Warehouse::new_room:
Inter Nodes - §5(inter_warehouse *owner, int capacity, inter_warehouse_room *prec) {
    inter_warehouse_room *IS = CREATE(inter_warehouse_room);
    IS->owning_warehouse = owner;
    IS->index_offset = (prec)?(prec->index_offset + (inter_ti) prec->capacity):0;
    IS->size = 0;
    IS->capacity = capacity;
    IS->bytecode = (inter_ti *)
        Memory::calloc(capacity, sizeof(inter_ti), INTER_BYTECODE_MREASON);
    LOGIF(INTER_MEMORY, "Created repository %d segment %d with capacity %d\n",
        owner->allocation_id, IS->allocation_id, IS->capacity);
    return IS;
}

typedef struct warehouse_floor_space {
    struct inter_warehouse_room *repo_segment;
    int index;
    inter_ti *data;
    int extent;
} warehouse_floor_space;

warehouse_floor_space Inter::Warehouse::find_room_in_room?Usage of Inter::Warehouse::find_room_in_room:
Inter Nodes - §5(inter_warehouse_room *IS, int n) {
    if ((IS->size < 0) || (IS->size > IS->capacity)) internal_error("bad segment");
    if (IS->next_room != NULL) internal_error("nonfinal segment");
    if (IS->size + n + PREFRAME_SIZE > IS->capacity) {
        int next_size = Inter::Warehouse::enlarge_size(IS->capacity, n + PREFRAME_SIZE);
        IS->capacity = IS->size;
        IS->next_room = Inter::Warehouse::new_room(IS->owning_warehouse, next_size, IS);
        IS = IS->next_room;
    }

    int at = IS->size, this_piece = PREFRAME_SIZE + n;
    for (int i=0; i<this_piece; i++) IS->bytecode[at + i] = 0;
    IS->bytecode[at + PREFRAME_SKIP_AMOUNT] = (inter_ti) this_piece;
    IS->size += this_piece;

    warehouse_floor_space W;
    W.repo_segment = IS; W.index = at;
    if ((IS) && (at >= 0) && (at < IS->size)) {
        W.data = &(IS->bytecode[at + PREFRAME_SIZE]);
        W.extent = ((int) IS->bytecode[at + PREFRAME_SKIP_AMOUNT]) - PREFRAME_SIZE;
    } else {
        W.data = NULL; W.extent = 0;
    }
    return W;
}

int Inter::Warehouse::enlarge_size?Usage of Inter::Warehouse::enlarge_size:
Inter Nodes - §5(int n, int at_least) {
    int next_size = 2*n;
    if (next_size < 128) next_size = 128;
    while (n + at_least > next_size) next_size = 2*next_size;
    return next_size;
}

inter_tree_node *Inter::Warehouse::find_room?Usage of Inter::Warehouse::find_room:
Inter Nodes - §4
Inter in Binary Files - §1.6(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");
    inter_warehouse_room *IS = warehouse->first_room;
    while (IS->next_room) IS = IS->next_room;
    warehouse_floor_space W = Inter::Warehouse::find_room_in_room(IS, n);
    inter_tree_node *F = Inode::new(I, W);
    Inode::set_metadata(F, PREFRAME_ORIGIN, Inter::Warehouse::store_origin(warehouse, eloc));
    Inode::attach_package(F, owner);
    return F;
}

inter_ti Inter::Warehouse::create_resource?Usage of Inter::Warehouse::create_resource:
Inter in Binary Files - §1.4(inter_warehouse *warehouse) {
    if (warehouse->size >= warehouse->capacity) {
        int new_size = 128;
        while (new_size < 2*warehouse->capacity) new_size = 2*new_size;

        LOGIF(INTER_MEMORY, "Giving warehouse %d frame list of size %d (up from %d)\n",
            warehouse->allocation_id, new_size, warehouse->capacity);

        inter_resource_holder *storage = (inter_resource_holder *) Memory::calloc(new_size, sizeof(inter_resource_holder), INTER_LINKS_MREASON);
        inter_resource_holder *old = warehouse->stored_resources;
        for (int i=0; i<warehouse->capacity; i++) storage[i] = old[i];
        if (warehouse->capacity > 0)
            Memory::I7_free(old, INTER_LINKS_MREASON, warehouse->capacity);
        warehouse->stored_resources = storage;
        warehouse->capacity = new_size;
    }
    int n = warehouse->size ++;
    warehouse->stored_resources[n].irsrc = NO_IRSRC;
    warehouse->stored_resources[n].owning_package = NULL;
    warehouse->stored_resources[n].stored_symbols_table = NULL;
    warehouse->stored_resources[n].stored_ref = NULL;
    warehouse->stored_resources[n].stored_package = NULL;
    warehouse->stored_resources[n].stored_text_stream = NULL;
    warehouse->stored_resources[n].stored_frame_list = NULL;
    return (inter_ti) n;
}

inter_ti Inter::Warehouse::store_origin(inter_warehouse *warehouse, inter_error_location *eloc) {
    if (eloc) {
        if (eloc->error_interb) {
            warehouse->origin_file = eloc->error_interb;
            return (inter_ti) (0x10000000 + eloc->error_offset);
        }
        if (eloc->error_tfp) {
            warehouse->origin_file = eloc->error_tfp->text_file_filename;
            return (inter_ti) (eloc->error_tfp->line_count);
        }
    }
    return 0;
}

typedef struct inter_error_stash {
    struct inter_error_location stashed_eloc;
    struct text_file_position stashed_tfp;
    CLASS_DEFINITION
} inter_error_stash;

inter_error_location *Inter::Warehouse::retrieve_origin?Usage of Inter::Warehouse::retrieve_origin:
Inter Nodes - §6(inter_warehouse *warehouse, inter_ti C) {
    if ((warehouse) && (warehouse->origin_file)) {
        inter_error_stash *stash = CREATE(inter_error_stash);
        stash->stashed_tfp = TextFiles::nowhere();
        if (C < 0x10000000) {
            text_file_position *tfp = &(stash->stashed_tfp);
            tfp->text_file_filename = warehouse->origin_file;
            tfp->line_count = (int) C;
            stash->stashed_eloc = Inter::Errors::file_location(NULL, tfp);
        } else {
            stash->stashed_eloc = Inter::Errors::interb_location(warehouse->origin_file, (size_t) (C - 0x10000000));
        }
        return &(stash->stashed_eloc);
    }
    return NULL;
}

inter_symbols_table *Inter::Warehouse::get_symbols_table?Usage of Inter::Warehouse::get_symbols_table:
Inter Trees - §2
Inter Nodes - §3
Inter in Binary Files - §1.4.3, §1.5
The Package Construct - §2(inter_warehouse *warehouse, inter_ti n) {
    if (n >= (inter_ti) warehouse->size) return NULL;
    if (n == 0) return NULL;
    return warehouse->stored_resources[n].stored_symbols_table;
}

inter_ti Inter::Warehouse::create_symbols_table?Usage of Inter::Warehouse::create_symbols_table:
Inter Trees - §2
The Package Construct - §2(inter_warehouse *warehouse) {
    inter_ti n = Inter::Warehouse::create_resource(warehouse);
    if (warehouse->stored_resources[n].stored_symbols_table == NULL) {
        warehouse->stored_resources[n].irsrc = SYMBOLS_TABLE_IRSRC;
        warehouse->stored_resources[n].stored_symbols_table = InterSymbolsTables::new();
        warehouse->stored_resources[n].stored_symbols_table->n_index = (int) n;
    }
    return n;
}

void Inter::Warehouse::attribute_resource?Usage of Inter::Warehouse::attribute_resource:
Inter Trees - §2
The Package Construct - §2
The Kind Construct - §2
The Instance Construct - §2
The Property Construct - §2(inter_warehouse *warehouse, inter_ti n, inter_package *owner) {
    if (n >= (inter_ti) warehouse->size) internal_error("out of range");
    warehouse->stored_resources[n].owning_package = owner;
}

text_stream *Inter::Warehouse::get_text?Usage of Inter::Warehouse::get_text:
Inter Nodes - §3
Symbols - §4
Transmigration - §1.2
Definition - §3, §4
Inter Data Types - §3
The Pragma Construct - §2
The Link Construct - §2
The Append Construct - §2
The Constant Construct - §2
The Splat Construct - §2(inter_warehouse *warehouse, inter_ti n) {
    if (n >= (inter_ti) warehouse->size) return NULL;
    return warehouse->stored_resources[n].stored_text_stream;
}

inter_ti Inter::Warehouse::create_text?Usage of Inter::Warehouse::create_text:
Symbols - §4
Transmigration - §1.2
Definition - §3, §4
Inter Data Types - §3
The Pragma Construct - §2
The Link Construct - §2
The Append Construct - §2
The Constant Construct - §2
The Splat Construct - §2(inter_warehouse *warehouse, inter_package *owner) {
    inter_ti n = Inter::Warehouse::create_resource(warehouse);
    if (warehouse->stored_resources[n].stored_text_stream == NULL) {
        warehouse->stored_resources[n].irsrc = STRING_IRSRC;
        warehouse->stored_resources[n].stored_text_stream = Str::new();
        warehouse->stored_resources[n].owning_package = owner;
    }
    return n;
}

inter_package *Inter::Warehouse::get_package?Usage of Inter::Warehouse::get_package:
Inter Trees - §2
Inter Nodes - §3
Inter in Binary Files - §1.4.3, §1.6
The Package Construct - §2(inter_warehouse *warehouse, inter_ti n) {
    if (n >= (inter_ti) warehouse->size) return NULL;
    if (n == 0) return NULL;
    return warehouse->stored_resources[n].stored_package;
}

inter_ti Inter::Warehouse::create_package?Usage of Inter::Warehouse::create_package:
Inter Trees - §2
The Package Construct - §2(inter_warehouse *warehouse, inter_tree *I) {
    inter_ti n = Inter::Warehouse::create_resource(warehouse);
    if (warehouse->stored_resources[n].stored_package == NULL) {
        warehouse->stored_resources[n].irsrc = PACKAGE_IRSRC;
        warehouse->stored_resources[n].stored_package = Inter::Packages::new(I, n);
        warehouse->stored_resources[n].owning_package =
            warehouse->stored_resources[n].stored_package;
    }
    return n;
}

void *Inter::Warehouse::get_ref?Usage of Inter::Warehouse::get_ref:
Inter Nodes - §3(inter_warehouse *warehouse, inter_ti n) {
    if (n >= (inter_ti) warehouse->size) return NULL;
    return warehouse->stored_resources[n].stored_ref;
}

inter_ti Inter::Warehouse::create_ref(inter_warehouse *warehouse) {
    inter_ti n = Inter::Warehouse::create_resource(warehouse);
    warehouse->stored_resources[n].irsrc = REF_IRSRC;
    warehouse->stored_resources[n].stored_ref = NULL;
    return n;
}

inter_node_list *Inter::Warehouse::get_frame_list?Usage of Inter::Warehouse::get_frame_list:
Inter Nodes - §3
The PropertyValue Construct - §2
The Permission Construct - §2(inter_warehouse *warehouse, inter_ti N) {
    if (warehouse == NULL) return NULL;
    int n = (int) N;
    if (n >= warehouse->size) return NULL;
    return warehouse->stored_resources[n].stored_frame_list;
}

inter_ti Inter::Warehouse::create_frame_list?Usage of Inter::Warehouse::create_frame_list:
The Kind Construct - §2
The Instance Construct - §2
The Property Construct - §2(inter_warehouse *warehouse) {
    inter_ti n = Inter::Warehouse::create_resource(warehouse);
    warehouse->stored_resources[n].irsrc = FRAME_LIST_IRSRC;
    warehouse->stored_resources[n].stored_frame_list = Inter::ListLiterals::new();
    return n;
}

void Inter::Warehouse::set_ref(inter_warehouse *warehouse, inter_ti n, void *ref) {
    if (n >= (inter_ti) warehouse->size) return;
    warehouse->stored_resources[n].stored_ref = ref;
}

void Inter::Warehouse::wipe(void) {
    if (the_only_warehouse == NULL) return;
    for (int i=0; i<the_only_warehouse->size; i++) {
        if (the_only_warehouse->stored_resources[i].irsrc == STRING_IRSRC) {
            text_stream *T = the_only_warehouse->stored_resources[i].stored_text_stream;
            if (T) {
                Str::clear(T);
                WRITE_TO(T, "XYZZY-%d", i);
            }
        }
    }
}

• The structure warehouse_floor_space is accessed in 2/it, 2/bkm, 2/in, 2/st, 2/pck, 2/sym, 2/trn, 3/dfn, 3/iibf, 3/iitf, 3/vi, 3/idt, 3/mtd, 4/tvc, 4/tpc, 4/tlc, 4/tac, 4/tpc2, 4/tpc3, 4/tkc, 4/tdc, 4/tvc2, 4/tcc2, 4/tic, 4/tpc4, 4/tpc5, 4/tpc6, 4/tpc7, 5/tlc, 5/tlc2, 5/tic, 5/trc, 5/tvc, 5/tlc3, 5/tcc, 5/tec, 5/trc2, 5/tcc2, 5/tsc and here.
• The structure inter_error_stash is private to this section.