To manage packages of inter code.

• §1. Symbols tables

§1. Symbols tables.

typedef struct inter_package {
    struct inter_tree_node *package_head;
    inter_ti index_n;
    struct text_stream *package_name_t;
    struct inter_symbols_table *package_scope;
    int package_flags;
    struct dictionary *name_lookup;
    CLASS_DEFINITION
} inter_package;

• The structure inter_package is accessed in 2/it, 2/trn, 3/iibf, 4/tpc3, 4/tcc2 and here.

§2.

define CODELIKE_PACKAGE_FLAG 1
define LINKAGE_PACKAGE_FLAG 2
define USED_PACKAGE_FLAG 4
define ROOT_PACKAGE_FLAG 8
define MARK_PACKAGE_FLAG 16

§3.

inter_tree *default_ptree = NULL;

inter_package *Inter::Packages::new?Usage of Inter::Packages::new:
The Warehouse - §3
Inter in Binary Files - §1.4.3(inter_tree *I, inter_ti n) {
    inter_package *pack = CREATE(inter_package);
    pack->package_head = NULL;
    pack->package_scope = NULL;
    pack->package_flags = 0;
    pack->package_name_t = NULL;
    pack->index_n = n;
    pack->name_lookup = Dictionaries::new(INITIAL_INTER_SYMBOLS_ID_RANGE, FALSE);
    return pack;
}

inter_tree_node *Inter::Packages::definition?Usage of Inter::Packages::definition:
Inter Trees - §5
Bookmarks - §1(inter_package *pack) {
    if (pack == NULL) return NULL;
    if (Inter::Packages::is_rootlike(pack)) return NULL;
    return pack->package_head;
}

inter_tree *Inter::Packages::tree?Usage of Inter::Packages::tree:
Bookmarks - §1
Symbols Tables - §10
Transmigration - §1
Inter in Binary Files - §1.1.3, §1.1.4(inter_package *pack) {
    if (default_ptree) return default_ptree;
    if (pack == NULL) return NULL;
    return pack->package_head->tree;
}

text_stream *Inter::Packages::name?Usage of Inter::Packages::name:
Symbols Tables - §11
Transmigration - §1.2
Definition - §4
The Package Construct - §2
The Constant Construct - §2(inter_package *pack) {
    if (pack == NULL) return NULL;
    return pack->package_name_t;
}

int Inter::Packages::is_codelike?Usage of Inter::Packages::is_codelike:
Definition - §4
Inter in Binary Files - §1.1.3.3(inter_package *pack) {
    if ((pack) && (pack->package_flags & CODELIKE_PACKAGE_FLAG)) return TRUE;
    return FALSE;
}

void Inter::Packages::make_codelike?Usage of Inter::Packages::make_codelike:
Inter in Binary Files - §1.4.3
The Package Construct - §2(inter_package *pack) {
    if (pack) {
        pack->package_flags |= CODELIKE_PACKAGE_FLAG;
    }
}

int Inter::Packages::is_linklike?Usage of Inter::Packages::is_linklike:
Transmigration - §3, §4
The Symbol Construct - §1(inter_package *pack) {
    if ((pack) && (pack->package_flags & LINKAGE_PACKAGE_FLAG)) return TRUE;
    return FALSE;
}

void Inter::Packages::make_linklike?Usage of Inter::Packages::make_linklike:
Connectors - §1
The Package Construct - §2(inter_package *pack) {
    if (pack) {
        pack->package_flags |= LINKAGE_PACKAGE_FLAG;
    }
}

int Inter::Packages::is_rootlike?Usage of Inter::Packages::is_rootlike:
Definition - §4
Inter in Binary Files - §1.1.3.3(inter_package *pack) {
    if ((pack) && (pack->package_flags & ROOT_PACKAGE_FLAG)) return TRUE;
    return FALSE;
}

void Inter::Packages::make_rootlike?Usage of Inter::Packages::make_rootlike:
Inter Trees - §2
Inter in Binary Files - §1.4.3(inter_package *pack) {
    if (pack) {
        pack->package_flags |= ROOT_PACKAGE_FLAG;
    }
}

inter_package *Inter::Packages::parent?Usage of Inter::Packages::parent:
Symbols Tables - §11
Transmigration - §1, §1.3, §3, §4
Definition - §4
Inter in Binary Files - §1.1.3.3(inter_package *pack) {
    if (pack) {
        if (Inter::Packages::is_rootlike(pack)) return NULL;
        inter_tree_node *D = Inter::Packages::definition(pack);
        inter_tree_node *P = Inter::Tree::parent(D);
        if (P == NULL) return NULL;
        return Inter::Package::defined_by_frame(P);
    }
    return NULL;
}

void Inter::Packages::unmark_all(void) {
    inter_package *pack;
    LOOP_OVER(pack, inter_package)
        Inter::Packages::clear_flag(pack, MARK_PACKAGE_FLAG);
}

void Inter::Packages::set_scope?Usage of Inter::Packages::set_scope:
Inter Trees - §2
Inter in Binary Files - §1.4.3
The Package Construct - §2(inter_package *P, inter_symbols_table *T) {
    if (P == NULL) internal_error("null package");
    P->package_scope = T;
    if (T) T->owning_package = P;
}

void Inter::Packages::set_name?Usage of Inter::Packages::set_name:
Inter in Binary Files - §1.4.3
The Package Construct - §2(inter_package *Q, inter_package *P, text_stream *N) {
    if (P == NULL) internal_error("null package");
    if (N == NULL) internal_error("null package name");
    P->package_name_t = Str::duplicate(N);
    if ((N) && (Str::eq(P->package_name_t, I"main")))
        Site::set_main_package(Inter::Packages::tree(P), P);

    if (Str::len(N) > 0) Inter::Packages::add_subpackage_name(Q, P);
}

void Inter::Packages::add_subpackage_name?Usage of Inter::Packages::add_subpackage_name:
Transmigration - §1.3(inter_package *Q, inter_package *P) {
    if (Q == NULL) internal_error("no parent supplied");
    text_stream *N = P->package_name_t;
    dict_entry *de = Dictionaries::find(Q->name_lookup, N);
    if (de) {
        LOG("This would be the second '%S' in $6\n", N, Q);
        internal_error("duplicated package name");
    }
    Dictionaries::create(Q->name_lookup, N);
    Dictionaries::write_value(Q->name_lookup, N, (void *) P);
}

void Inter::Packages::remove_subpackage_name?Usage of Inter::Packages::remove_subpackage_name:
Transmigration - §1.3(inter_package *Q, inter_package *P) {
    if (Q == NULL) internal_error("no parent supplied");
    text_stream *N = P->package_name_t;
    dict_entry *de = Dictionaries::find(Q->name_lookup, N);
    if (de) {
        Dictionaries::write_value(Q->name_lookup, N, NULL);
    }
}

void Inter::Packages::log?Usage of Inter::Packages::log:
Bytecode Module - §3.6(OUTPUT_STREAM, void *vp) {
    inter_package *pack = (inter_package *) vp;
    Inter::Packages::write_url_name(OUT, pack);
}

inter_package *Inter::Packages::basics?Usage of Inter::Packages::basics:
Symbols Tables - §4(inter_tree *I) {
    return Inter::Packages::by_url(I, I"/main/generic/basics");
}

inter_package *Inter::Packages::veneer?Usage of Inter::Packages::veneer:
Symbols Tables - §4(inter_tree *I) {
    return Inter::Packages::by_url(I, I"/main/veneer");
}

inter_package *Inter::Packages::template?Usage of Inter::Packages::template:
Symbols Tables - §4(inter_tree *I) {
    return Inter::Packages::by_url(I, I"/main/template");
}

inter_symbol *Inter::Packages::search_exhaustively(inter_package *P, text_stream *S) {
    inter_symbol *found = Inter::SymbolsTables::symbol_from_name(Inter::Packages::scope(P), S);
    if (found) return found;
    inter_tree_node *D = Inter::Packages::definition(P);
    LOOP_THROUGH_INTER_CHILDREN(C, D) {
        if (C->W.data[ID_IFLD] == PACKAGE_IST) {
            inter_package *Q = Inter::Package::defined_by_frame(C);
            found = Inter::Packages::search_exhaustively(Q, S);
            if (found) return found;
        }
    }
    return NULL;
}

inter_symbol *Inter::Packages::search_main_exhaustively(inter_tree *I, text_stream *S) {
    return Inter::Packages::search_exhaustively(Site::main_package(I), S);
}

inter_symbol *Inter::Packages::search_resources_exhaustively?Usage of Inter::Packages::search_resources_exhaustively:
Transmigration - §3.3(inter_tree *I, text_stream *S) {
    inter_package *main_package = Site::main_package_if_it_exists(I);
    if (main_package) {
        inter_tree_node *D = Inter::Packages::definition(main_package);
        LOOP_THROUGH_INTER_CHILDREN(C, D) {
            if (C->W.data[ID_IFLD] == PACKAGE_IST) {
                inter_package *Q = Inter::Package::defined_by_frame(C);
                inter_symbol *found = Inter::Packages::search_exhaustively(Q, S);
                if (found) return found;
            }
        }
    }
    return NULL;
}

inter_ti Inter::Packages::to_PID(inter_package *P) {
    if (P == NULL) return 0;
    return P->index_n;
}

inter_package *Inter::Packages::container?Usage of Inter::Packages::container:
Definition - §4
Verifying Inter - §1
The Label Construct - §2
The Local Construct - §2
The Ref Construct - §2
The Lab Construct - §2(inter_tree_node *P) {
    if (P == NULL) return NULL;
    inter_package *pack = Inode::get_package(P);
    if (Inter::Packages::is_rootlike(pack)) return NULL;
    return pack;
}

inter_symbols_table *Inter::Packages::scope?Usage of Inter::Packages::scope:
Inter Trees - §2
Bookmarks - §1
Symbols Tables - §4, §7, §8, §9, §10, §11
Connectors - §1
Transmigration - §1, §.1, §3, §4
Verifying Inter - §1
The Symbol Construct - §1
The Append Construct - §2
The Package Construct - §2
The Kind Construct - §2
The Constant Construct - §2
The Instance Construct - §2
The PropertyValue Construct - §2
The Permission Construct - §2
The Label Construct - §2
The Local Construct - §2
The Ref Construct - §2
The Val Construct - §2
The Lab Construct - §2(inter_package *pack) {
    if (pack == NULL) return NULL;
    return pack->package_scope;
}

inter_symbols_table *Inter::Packages::scope_of?Usage of Inter::Packages::scope_of:
Symbols Tables - §7
The Metadata Construct - §2
The Kind Construct - §2
The DefaultValue Construct - §2
The Variable Construct - §2
The Constant Construct - §2
The Response Construct - §2
The Instance Construct - §2
The PropertyValue Construct - §2
The Val Construct - §2
The Cast Construct - §2(inter_tree_node *P) {
    inter_package *pack = Inter::Packages::container(P);
    if (pack) return pack->package_scope;
    return Inode::globals(P);
}

inter_symbol *Inter::Packages::type(inter_package *P) {
    if (P == NULL) return NULL;
    return Inter::Package::type(P);
}

int Inter::Packages::baseline?Usage of Inter::Packages::baseline:
Bookmarks - §1
Transmigration - §1.2(inter_package *P) {
    if (P == NULL) return 0;
    if (Inter::Packages::is_rootlike(P)) return 0;
    return Inter::Defn::get_level(Inter::Packages::definition(P));
}

text_stream *Inter::Packages::read_metadata(inter_package *P, text_stream *key) {
    if (P == NULL) return NULL;
    inter_symbol *found = Inter::SymbolsTables::symbol_from_name(Inter::Packages::scope(P), key);
    if ((found) && (Inter::Symbols::is_defined(found))) {
        inter_tree_node *D = Inter::Symbols::definition(found);
        inter_ti val2 = D->W.data[VAL1_MD_IFLD + 1];
        return Inter::Warehouse::get_text(Inter::Tree::warehouse(Inter::Packages::tree(P)), val2);
    }
    return NULL;
}

void Inter::Packages::write_url_name(OUTPUT_STREAM, inter_package *P) {
    if (P == NULL) { WRITE("<none>"); return; }
    inter_package *chain[MAX_URL_SYMBOL_NAME_DEPTH];
    int chain_length = 0;
    while (P) {
        if (chain_length >= MAX_URL_SYMBOL_NAME_DEPTH) internal_error("package nesting too deep");
        chain[chain_length++] = P;
        P = Inter::Packages::parent(P);
    }
    for (int i=chain_length-1; i>=0; i--) WRITE("/%S", Inter::Packages::name(chain[i]));
}

int Inter::Packages::get_flag(inter_package *P, int f) {
    if (P == NULL) internal_error("no package");
    return (P->package_flags & f)?TRUE:FALSE;
}

void Inter::Packages::set_flag(inter_package *P, int f) {
    if (P == NULL) internal_error("no package");
    P->package_flags = P->package_flags | f;
}

void Inter::Packages::clear_flag(inter_package *P, int f) {
    if (P == NULL) internal_error("no package");
    if (P->package_flags & f) P->package_flags = P->package_flags - f;
}

inter_package *Inter::Packages::by_name?Usage of Inter::Packages::by_name:
Symbols Tables - §11
Connectors - §1
The Package Construct - §2
The Constant Construct - §2(inter_package *P, text_stream *name) {
    if (P == NULL) return NULL;
    dict_entry *de = Dictionaries::find(P->name_lookup, name);
    if (de) return (inter_package *) Dictionaries::read_value(P->name_lookup, name);
    return NULL;
}

inter_package *Inter::Packages::by_url(inter_tree *I, text_stream *S) {
    if (Str::get_first_char(S) == '/') {
        inter_package *at_P = I->root_package;
        TEMPORARY_TEXT(C)
        LOOP_THROUGH_TEXT(P, S) {
            wchar_t c = Str::get(P);
            if (c == '/') {
                if (Str::len(C) > 0) {
                    at_P = Inter::Packages::by_name(at_P, C);
                    if (at_P == NULL) return NULL;
                }
                Str::clear(C);
            } else {
                PUT_TO(C, c);
            }
        }
        inter_package *pack = Inter::Packages::by_name(at_P, C);
        DISCARD_TEXT(C)
        return pack;
    }
    return Inter::Packages::by_name(I->root_package, S);
}