Write positions for inter code being generated.

§1.

enum BEFORE_ICPLACEMENT from 0
enum AFTER_ICPLACEMENT
enum IMMEDIATELY_AFTER_ICPLACEMENT
enum AS_FIRST_CHILD_OF_ICPLACEMENT
enum AS_LAST_CHILD_OF_ICPLACEMENT
enum NOWHERE_ICPLACEMENT

typedef struct inter_bookmark {
    struct inter_tree_node *R;
    int placement_wrt_R;
} inter_bookmark;

inter_bookmark Inter::Bookmarks::at_start_of_this_repository?Usage of Inter::Bookmarks::at_start_of_this_repository:
Inter in Binary Files - §1
Inter in Text Files - §1(inter_tree *I) {
    inter_bookmark IBM;
    IBM.R = I->root_node;
    IBM.placement_wrt_R = AFTER_ICPLACEMENT;
    return IBM;
}

inter_bookmark Inter::Bookmarks::at_end_of_this_package?Usage of Inter::Bookmarks::at_end_of_this_package:
Transmigration - §1.1(inter_package *pack) {
    if (pack == NULL) internal_error("no package supplied");
    inter_bookmark IBM;
    IBM.R = Inter::Packages::definition(pack);
    IBM.placement_wrt_R = AS_LAST_CHILD_OF_ICPLACEMENT;
    return IBM;
}

inter_bookmark Inter::Bookmarks::after_this_node?Usage of Inter::Bookmarks::after_this_node:
Transmigration - §1.1(inter_tree *I, inter_tree_node *D) {
    if (D == NULL) internal_error("invalid frame supplied");
    inter_bookmark IBM;
    IBM.R = D;
    IBM.placement_wrt_R = AFTER_ICPLACEMENT;
    return IBM;
}

inter_bookmark Inter::Bookmarks::first_child_of_this_node(inter_tree *I, inter_tree_node *D) {
    if (D == NULL) internal_error("invalid frame supplied");
    inter_bookmark IBM;
    IBM.R = D;
    IBM.placement_wrt_R = AS_FIRST_CHILD_OF_ICPLACEMENT;
    return IBM;
}

void Inter::Bookmarks::set_current_package?Usage of Inter::Bookmarks::set_current_package:
Definition - §4
The Package Construct - §2(inter_bookmark *IBM, inter_package *P) {
    if (IBM == NULL) internal_error("no bookmark supplied");
    if (P == NULL) internal_error("invalid package supplied");
    inter_tree_node *D = Inter::Packages::definition(P);
    if (D == NULL) D = Inter::Packages::tree(P)->root_node;
    IBM->R = InterTree::last_child(D);
    IBM->placement_wrt_R = AFTER_ICPLACEMENT;
    if (IBM->R == NULL) {
        IBM->R = D;
        IBM->placement_wrt_R = AS_FIRST_CHILD_OF_ICPLACEMENT;
    }
}

inter_tree *Inter::Bookmarks::tree?Usage of Inter::Bookmarks::tree:
Inter Nodes - §4
Symbols Tables - §8, §9
Definition - §4
The Symbol Construct - §1
The Package Construct - §2
The Kind Construct - §2
The DefaultValue Construct - §2
The Variable Construct - §2
The Constant Construct - §2
The Instance Construct - §2
The Property Construct - §2
The PropertyValue Construct - §2
The Permission Construct - §2
The Local Construct - §2
The Inv Construct - §2
The Ref Construct - §2
The Val Construct - §2
The Cast Construct - §2(inter_bookmark *IBM) {
    if (IBM == NULL) return NULL;
    return IBM->R->tree;
}

inter_warehouse *Inter::Bookmarks::warehouse?Usage of Inter::Bookmarks::warehouse:
Transmigration - §1.2
Definition - §4
The Pragma Construct - §2
The Link Construct - §2
The Append Construct - §2
The Package Construct - §2
The Kind Construct - §2
The Constant Construct - §2
The Instance Construct - §2
The Property Construct - §2
The PropertyValue Construct - §2
The Permission Construct - §2
The Splat Construct - §2(inter_bookmark *IBM) {
    return InterTree::warehouse(Inter::Bookmarks::tree(IBM));
}

int Inter::Bookmarks::get_placement(inter_bookmark *IBM) {
    if (IBM == NULL) internal_error("no bookmark supplied");
    return IBM->placement_wrt_R;
}

void Inter::Bookmarks::set_placement(inter_bookmark *IBM, int p) {
    if (IBM == NULL) internal_error("no bookmark supplied");
    IBM->placement_wrt_R = p;
}

inter_tree_node *Inter::Bookmarks::get_ref(inter_bookmark *IBM) {
    if (IBM == NULL) internal_error("no bookmark supplied");
    return IBM->R;
}

void Inter::Bookmarks::set_ref(inter_bookmark *IBM, inter_tree_node *F) {
    if (IBM == NULL) internal_error("no bookmark supplied");
    IBM->R = F;
}

inter_bookmark Inter::Bookmarks::snapshot(inter_bookmark *IBM) {
    return *IBM;
}

int Inter::Bookmarks::baseline?Usage of Inter::Bookmarks::baseline:
Definition - §4(inter_bookmark *IBM) {
    inter_package *pack = Inter::Bookmarks::package(IBM);
    if (pack) return Inter::Packages::baseline(pack);
    return 0;
}

void Inter::Bookmarks::log?Usage of Inter::Bookmarks::log:
Bytecode Module - §3.6(OUTPUT_STREAM, void *virs) {
    inter_bookmark *IBM = (inter_bookmark *) virs;
    if (IBM == NULL) WRITE("<null-bookmark>");
    else {
        LOG("<");
        switch (IBM->placement_wrt_R) {
            case BEFORE_ICPLACEMENT: WRITE("before:"); break;
            case AFTER_ICPLACEMENT: WRITE("after:"); break;
            case IMMEDIATELY_AFTER_ICPLACEMENT: WRITE("immediately-after:"); break;
            case AS_FIRST_CHILD_OF_ICPLACEMENT: WRITE("first-child:"); break;
            case AS_LAST_CHILD_OF_ICPLACEMENT: WRITE("last-child:"); break;
            case NOWHERE_ICPLACEMENT: WRITE("nowhere"); break;
            default: WRITE("?:"); break;
        }
        if (IBM->placement_wrt_R != NOWHERE_ICPLACEMENT) {
            if (IBM->R) WRITE("%d", IBM->R->W.index);
        }
        LOG("(%d)>", Inter::Bookmarks::baseline(IBM));
    }
}

inter_symbols_table *Inter::Bookmarks::scope?Usage of Inter::Bookmarks::scope:
The Symbol Construct - §1
The Pragma Construct - §2
The Append Construct - §2
The PackageType Construct - §2
The Kind Construct - §2
The DefaultValue Construct - §2
The Variable Construct - §2
The Constant Construct - §2
The Instance Construct - §2
The Property Construct - §2
The PropertyValue Construct - §2
The Permission Construct - §2
The Primitive Construct - §2
The Local Construct - §2
The Inv Construct - §2
The Ref Construct - §2
The Val Construct - §2
The Cast Construct - §2(inter_bookmark *IBM) {
    inter_package *pack = Inter::Bookmarks::package(IBM);
    if (pack) return Inter::Packages::scope(pack);
    return InterTree::global_scope(Inter::Bookmarks::tree(IBM));
}

inter_package *Inter::Bookmarks::package?Usage of Inter::Bookmarks::package:
Inter Nodes - §4
Symbols Tables - §8, §9
Transmigration - §1.2, §3.1.1, §3.2.1
Definition - §4
The Nop Construct - §1
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 Package Construct - §2
The Kind Construct - §2
The DefaultValue Construct - §2
The Variable Construct - §2
The Constant Construct - §2
The Instance Construct - §2
The Property 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(inter_bookmark *IBM) {
    if (IBM == NULL) return NULL;
    inter_package *pack = IBM->R->package;
    if ((IBM->placement_wrt_R == AS_FIRST_CHILD_OF_ICPLACEMENT) ||
        (IBM->placement_wrt_R == AS_LAST_CHILD_OF_ICPLACEMENT)) {
        inter_package *R_defined = Inter::Package::defined_by_frame(IBM->R);
        if (R_defined) pack = R_defined;
    }
    return pack;
}

void Inter::Bookmarks::insert?Usage of Inter::Bookmarks::insert:
Transmigration - §1.3, §3.1.1, §3.2.1
Inter in Binary Files - §1.6
The Nop Construct - §1
The Comment Construct - §1
The Version Construct - §2
The Pragma Construct - §2
The Link Construct - §2
The Append Construct - §2
The PackageType Construct - §2
The Package Construct - §2
The Kind Construct - §2
The DefaultValue Construct - §2
The Variable Construct - §2
The Constant Construct - §2
The Instance Construct - §2
The Property 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(inter_bookmark *IBM, inter_tree_node *F) {
    if (F == NULL) internal_error("no frame to insert");
    if (IBM == NULL) internal_error("nowhere to insert");
    inter_package *pack = Inter::Bookmarks::package(IBM);
    inter_tree *I = Inter::Packages::tree(pack);
    LOGIF(INTER_FRAMES, "Insert frame %F\n", *F);
    inter_ti F_level = F->W.data[LEVEL_IFLD];
    if (F_level == 0) {
        if (InterTree::parent(Inter::Bookmarks::get_ref(IBM)) == NULL)
            InterTree::place(F, AS_LAST_CHILD_OF_ICPLACEMENT, I->root_node);
        else
            InterTree::place(F, Inter::Bookmarks::get_placement(IBM), Inter::Bookmarks::get_ref(IBM));
        if ((Inter::Bookmarks::get_placement(IBM) == AFTER_ICPLACEMENT) ||
            (Inter::Bookmarks::get_placement(IBM) == IMMEDIATELY_AFTER_ICPLACEMENT)) {
            Inter::Bookmarks::set_ref(IBM, F);
        }
    } else {
        if (Inter::Bookmarks::get_placement(IBM) == NOWHERE_ICPLACEMENT) internal_error("bad wrt");
        if ((Inter::Bookmarks::get_placement(IBM) == AFTER_ICPLACEMENT) ||
            (Inter::Bookmarks::get_placement(IBM) == IMMEDIATELY_AFTER_ICPLACEMENT)) {
            while (F_level < Inter::Bookmarks::get_ref(IBM)->W.data[LEVEL_IFLD]) {
                inter_tree_node *R = Inter::Bookmarks::get_ref(IBM);
                inter_tree_node *PR = InterTree::parent(R);
                if (PR == NULL) internal_error("bubbled up out of tree");
                Inter::Bookmarks::set_ref(IBM, PR);
            }
            if (F_level > Inter::Bookmarks::get_ref(IBM)->W.data[LEVEL_IFLD] + 1) internal_error("bubbled down off of tree");
            if (F_level == Inter::Bookmarks::get_ref(IBM)->W.data[LEVEL_IFLD] + 1) {
                if (Inter::Bookmarks::get_placement(IBM) == IMMEDIATELY_AFTER_ICPLACEMENT) {
                    InterTree::place(F, AS_FIRST_CHILD_OF_ICPLACEMENT, Inter::Bookmarks::get_ref(IBM));
                    Inter::Bookmarks::set_placement(IBM, AFTER_ICPLACEMENT);
                } else {
                    InterTree::place(F, AS_LAST_CHILD_OF_ICPLACEMENT, Inter::Bookmarks::get_ref(IBM));
                }
            } else {
                InterTree::place(F, AFTER_ICPLACEMENT, Inter::Bookmarks::get_ref(IBM));
            }
            Inter::Bookmarks::set_ref(IBM, F);
            return;
        }
        InterTree::place(F, Inter::Bookmarks::get_placement(IBM), Inter::Bookmarks::get_ref(IBM));
        if (Inter::Bookmarks::get_placement(IBM) == AS_FIRST_CHILD_OF_ICPLACEMENT) {
            Inter::Bookmarks::set_ref(IBM, F);
            Inter::Bookmarks::set_placement(IBM, AFTER_ICPLACEMENT);
        }
    }
}

• The structure inter_bookmark is private to this section.