To move packages between repositories.

§1.

int ipct_cache_count = 0;
void Inter::Transmigration::cache?Usage of Inter::Transmigration::cache:
§3, §3.1, §3.2, §3.3, §4.1(inter_symbol *S, inter_symbol *V) {
    S->linked_to = V;
    S->link_time = ipct_cache_count;
}

inter_symbol *Inter::Transmigration::cached_equivalent?Usage of Inter::Transmigration::cached_equivalent:
§3, §3.1, §3.2, §3.3, §4.1(inter_symbol *S) {
    if (S->link_time == ipct_cache_count) return S->linked_to;
    return NULL;
}

void Inter::Transmigration::move(inter_package *migrant, inter_package *destination, int tidy_origin) {
    Inter::Packages::make_names_exist(migrant);
    inter_tree *origin_tree = Inter::Packages::tree(migrant);
    inter_tree *destination_tree = Inter::Packages::tree(destination);
    inter_package *origin = Inter::Packages::parent(migrant);
    inter_bookmark deletion_point, insertion_point, primitives_point, ptypes_point;
    Create these bookmarks1.1;
    Mark the insertion and deletion points with comments1.2;
    Physically move the subtree to its new home1.3;
    Correct any references from the migrant to the origin1.4;
    if (tidy_origin) Correct any references from the origin to the migrant1.5;
    inter_package *connectors = Site::connectors_package(origin_tree);
    if (connectors) {
        inter_symbols_table *T = Inter::Packages::scope(connectors);
        if (T == NULL) internal_error("package with no symbols");
        for (int i=0; i<T->size; i++) {
            inter_symbol *symb = T->symbol_array[i];
            if ((symb) && (Inter::Symbols::get_scope(symb) == SOCKET_ISYMS)) {
                inter_symbol *target = symb->equated_to;
                while (target->equated_to) target = target->equated_to;
                inter_package *target_package = target->owning_table->owning_package;
                while ((target_package) && (target_package != migrant)) {
                    target_package = Inter::Packages::parent(target_package);
                }
                if (target_package == migrant) {
                    LOGIF(INTER_CONNECTORS, "Origin offers socket inside migrant: $3 == $3\n", symb, target);
                    inter_symbol *equivalent = Inter::Connectors::find_socket(destination_tree, symb->symbol_name);
                    if (equivalent) {
                        inter_symbol *e_target = equivalent->equated_to;
                        while (e_target->equated_to) e_target = e_target->equated_to;
                        if (!Inter::Symbols::is_defined(e_target)) {
                            LOGIF(INTER_CONNECTORS, "Able to match with $3 == $3\n", equivalent, equivalent->equated_to);
                            equivalent->equated_to = target;
                            e_target->equated_to = target;
                        } else {
                            LOGIF(INTER_CONNECTORS, "Clash of sockets\n");
                        }
                    } else {
                        Inter::Connectors::socket(destination_tree, symb->symbol_name, symb);
                    }
                }
            }
        }
    }
}

§.1. Log sockets in origin tree.1 =

    LOG("\n\n\nList of sockets in origin tree:\n");
    inter_package *connectors = Site::connectors_package(origin_tree);
    if (connectors) {
        inter_symbols_table *T = Inter::Packages::scope(connectors);
        if (T == NULL) internal_error("package with no symbols");
        for (int i=0; i<T->size; i++) {
            inter_symbol *symb = T->symbol_array[i];
            if ((symb) && (Inter::Symbols::get_scope(symb) == SOCKET_ISYMS)) {
                LOG("$3\n", symb);
            }
        }
    }
    LOG("---\n\n");

• This code is never used.

§1.1. Create these bookmarks1.1 =

    deletion_point =
        Inter::Bookmarks::after_this_node(migrant->package_head->tree, migrant->package_head);
    insertion_point =
        Inter::Bookmarks::at_end_of_this_package(destination);
    inter_tree_node *prims = NULL;
    LOOP_THROUGH_INTER_CHILDREN(F, destination->package_head->tree->root_node)
        if (F->W.data[ID_IFLD] == PRIMITIVE_IST)
            prims = F;
    if (prims == NULL) internal_error("dest has no prims");
    primitives_point = Inter::Bookmarks::after_this_node(destination->package_head->tree, prims);
    inter_tree_node *ptypes = NULL;
    LOOP_THROUGH_INTER_CHILDREN(F, destination->package_head->tree->root_node)
        if (F->W.data[ID_IFLD] == PACKAGETYPE_IST)
            ptypes = F;
    if (ptypes == NULL) internal_error("dest has no prims");
    ptypes_point = Inter::Bookmarks::after_this_node(destination->package_head->tree, ptypes);

• This code is used in §1.

§1.2. Mark the insertion and deletion points with comments1.2 =

    inter_ti C1 = Inter::Warehouse::create_text(Inter::Bookmarks::warehouse(&deletion_point), Inter::Bookmarks::package(&deletion_point));
    WRITE_TO(Inter::Warehouse::get_text(Inter::Bookmarks::warehouse(&deletion_point), C1),
        "Exported %S here", Inter::Packages::name(migrant));
    Inter::Comment::new(&deletion_point, (inter_ti) Inter::Packages::baseline(migrant), NULL, C1);

    inter_ti C2 = Inter::Warehouse::create_text(Inter::Bookmarks::warehouse(&insertion_point), Inter::Bookmarks::package(&insertion_point));
    WRITE_TO(Inter::Warehouse::get_text(Inter::Bookmarks::warehouse(&insertion_point), C2),
        "Imported %S here", Inter::Packages::name(migrant));
    Inter::Comment::new(&insertion_point, (inter_ti) Inter::Packages::baseline(destination) + 1, NULL, C2);

• This code is used in §1.

§1.3. Physically move the subtree to its new home1.3 =

    Inter::Packages::remove_subpackage_name(Inter::Packages::parent(migrant), migrant);
    Inter::Packages::add_subpackage_name(destination, migrant);
    Inter::Bookmarks::insert(&insertion_point, migrant->package_head);

• This code is used in §1.

§2.

typedef struct ipct_state {
    inter_package *migrant;
    inter_package *destination;
    inter_bookmark *primitives_point;
    inter_bookmark *ptypes_point;
    inter_tree *origin_tree;
    inter_tree *destination_tree;
} ipct_state;

• The structure ipct_state is private to this section.

§.1. Initialise the IPCT state.1 =

    ipct_cache_count++;
    ipct.migrant = migrant;
    ipct.destination = destination;
    ipct.origin_tree = origin_tree;
    ipct.destination_tree = destination_tree;
    ipct.primitives_point = &primitives_point;
    ipct.ptypes_point = &ptypes_point;

• This code is used in §1.4, §1.5.

§1.4. Correct any references from the migrant to the origin1.4 =

    ipct_state ipct;
    Initialise the IPCT state.1;
    InterTree::traverse(destination->package_head->tree,
        Inter::Transmigration::correct_migrant, &ipct, migrant, 0);

• This code is used in §1.

§3.

void Inter::Transmigration::correct_migrant?Usage of Inter::Transmigration::correct_migrant:
§1.4(inter_tree *I, inter_tree_node *P, void *state) {
    ipct_state *ipct = (ipct_state *) state;
    P->tree = I;
    if ((P->W.data[ID_IFLD] == INV_IST) && (P->W.data[METHOD_INV_IFLD] == INVOKED_PRIMITIVE)) {
        inter_symbol *primitive =
            InterSymbolsTables::symbol_from_id(InterTree::global_scope(ipct->origin_tree), P->W.data[INVOKEE_INV_IFLD]);
        if (primitive) Correct the reference to this primitive3.1;
    }
    if (P->W.data[ID_IFLD] == PACKAGE_IST) {
        inter_package *pack = Inter::Package::defined_by_frame(P);
        if (pack == NULL) internal_error("no package defined here");
        if (Inter::Packages::is_linklike(pack)) return;
        Correct the reference to this package type3.2;
        inter_symbols_table *T = Inter::Packages::scope(pack);
        if (T == NULL) internal_error("package with no symbols");
        for (int i=0; i<T->size; i++) {
            inter_symbol *symb = T->symbol_array[i];
            if ((symb) && (symb->equated_to)) {
                inter_symbol *target = symb->equated_to;
                while (target->equated_to) target = target->equated_to;
                if (Inter::Symbols::read_annotation(target, VENEER_IANN) > 0) {
                    symb->equated_to = Veneer::find(ipct->destination->package_head->tree, target->symbol_name, Produce::kind_to_symbol(NULL));
                } else if (Inter::Symbols::get_scope(target) == PLUG_ISYMS) {
                    inter_symbol *equivalent = Inter::Transmigration::cached_equivalent(target);
                    if (equivalent == NULL) {
                        equivalent = Inter::Connectors::find_plug(ipct->destination->package_head->tree, target->equated_name);
                        if (equivalent == NULL)
                            equivalent = Inter::Connectors::plug(ipct->destination->package_head->tree, target->equated_name);
                        Inter::Transmigration::cache(target, equivalent);
                    }
                    symb->equated_to = equivalent;
                } else {
                    inter_package *target_package = target->owning_table->owning_package;
                    while ((target_package) && (target_package != ipct->migrant)) {
                        target_package = Inter::Packages::parent(target_package);
                    }
                    if (target_package != ipct->migrant)
                        Correct the reference to this symbol3.3;
                }
            }
        }
    }
}

§3.1. Correct the reference to this primitive3.1 =

    inter_symbol *equivalent_primitive = Inter::Transmigration::cached_equivalent(primitive);
    if (equivalent_primitive == NULL) {
        equivalent_primitive = InterSymbolsTables::symbol_from_name(InterTree::global_scope(ipct->destination_tree), primitive->symbol_name);
        if (equivalent_primitive == NULL) Duplicate this primitive3.1.1;
        if (equivalent_primitive) Inter::Transmigration::cache(primitive, equivalent_primitive);
    }
    if (equivalent_primitive)
        P->W.data[INVOKEE_INV_IFLD] = InterSymbolsTables::id_from_symbol_inner(InterTree::global_scope(ipct->destination_tree), NULL, equivalent_primitive);

• This code is used in §3.

§3.1.1. Duplicate this primitive3.1.1 =

    equivalent_primitive = InterSymbolsTables::symbol_from_name_creating(InterTree::global_scope(ipct->destination_tree), primitive->symbol_name);
    inter_tree_node *D = Inode::fill_1(ipct->primitives_point, PRIMITIVE_IST, InterSymbolsTables::id_from_symbol_inner(InterTree::global_scope(ipct->destination_tree), NULL, equivalent_primitive), NULL, 0);
    inter_tree_node *old_D = primitive->definition;
    for (int i=CAT_PRIM_IFLD; i<old_D->W.extent; i++) {
        if (Inode::extend(D, (inter_ti) 1) == FALSE) internal_error("can't extend");
        D->W.data[i] = old_D->W.data[i];
    }
    inter_error_message *E = Inter::Defn::verify_construct(Inter::Bookmarks::package(ipct->primitives_point), D);
    if (E) {
        Inter::Errors::issue(E);
        equivalent_primitive = NULL;
    } else {
        Inter::Bookmarks::insert(ipct->primitives_point, D);
    }

• This code is used in §3.1.

§3.2. Correct the reference to this package type3.2 =

    inter_symbol *original_ptype =
        InterSymbolsTables::symbol_from_id(
            InterTree::global_scope(ipct->origin_tree), P->W.data[PTYPE_PACKAGE_IFLD]);
    inter_symbol *equivalent_ptype = Inter::Transmigration::cached_equivalent(original_ptype);
    if (equivalent_ptype == NULL) {
        equivalent_ptype = InterSymbolsTables::symbol_from_name(InterTree::global_scope(ipct->destination_tree), original_ptype->symbol_name);
        if (equivalent_ptype == NULL) Duplicate this package type3.2.1;
        if (equivalent_ptype) Inter::Transmigration::cache(original_ptype, equivalent_ptype);
    }
    if (equivalent_ptype)
        P->W.data[PTYPE_PACKAGE_IFLD] = InterSymbolsTables::id_from_symbol_inner(InterTree::global_scope(ipct->destination_tree), NULL, equivalent_ptype);

• This code is used in §3.

§3.2.1. Duplicate this package type3.2.1 =

    equivalent_ptype = InterSymbolsTables::symbol_from_name_creating(InterTree::global_scope(ipct->destination_tree), original_ptype->symbol_name);
    inter_tree_node *D = Inode::fill_1(ipct->ptypes_point, PACKAGETYPE_IST, InterSymbolsTables::id_from_symbol_inner(InterTree::global_scope(ipct->destination_tree), NULL, equivalent_ptype), NULL, 0);
    inter_error_message *E = Inter::Defn::verify_construct(Inter::Bookmarks::package(ipct->ptypes_point), D);
    if (E) {
        Inter::Errors::issue(E);
        equivalent_ptype = NULL;
    } else {
        Inter::Bookmarks::insert(ipct->ptypes_point, D);
    }

• This code is used in §3.2.

§3.3. Correct the reference to this symbol3.3 =

    inter_symbol *equivalent = Inter::Transmigration::cached_equivalent(target);
    if (equivalent == NULL) {
        TEMPORARY_TEXT(URL)
        InterSymbolsTables::symbol_to_url_name(URL, target);
        equivalent = InterSymbolsTables::url_name_to_symbol(ipct->destination->package_head->tree, NULL, URL);
        if ((equivalent == NULL) && (Inter::Kind::is(target)))
            equivalent = Inter::Packages::search_resources_exhaustively(ipct->destination->package_head->tree, target->symbol_name);
        if (equivalent == NULL)
            equivalent = Inter::Connectors::plug(ipct->destination_tree, URL);
        DISCARD_TEXT(URL)
        Inter::Transmigration::cache(target, equivalent);
    }
    symb->equated_to = equivalent;

• This code is used in §3.

§1.5. Correct any references from the origin to the migrant1.5 =

    ipct_state ipct;
    Initialise the IPCT state.1;
    InterTree::traverse(origin->package_head->tree,
        Inter::Transmigration::correct_origin, &ipct, NULL, 0);

• This code is used in §1.

§4.

void Inter::Transmigration::correct_origin?Usage of Inter::Transmigration::correct_origin:
§1.5(inter_tree *I, inter_tree_node *P, void *state) {
    ipct_state *ipct = (ipct_state *) state;
    if (P->W.data[ID_IFLD] == PACKAGE_IST) {
        inter_package *pack = Inter::Package::defined_by_frame(P);
        if (pack == NULL) internal_error("no package defined here");
        if (Inter::Packages::is_linklike(pack)) return;
        inter_symbols_table *T = Inter::Packages::scope(pack);
        if (T == NULL) internal_error("package with no symbols");
        for (int i=0; i<T->size; i++) {
            inter_symbol *symb = T->symbol_array[i];
            if ((symb) && (symb->equated_to)) {
                inter_symbol *target = symb->equated_to;
                while (target->equated_to) target = target->equated_to;
                inter_package *target_package = target->owning_table->owning_package;
                while ((target_package) && (target_package != ipct->migrant)) {
                    target_package = Inter::Packages::parent(target_package);
                }
                if (target_package == ipct->migrant)
                    Correct the origin reference to this migrant symbol4.1;
            }
        }
    }
}

§4.1. Correct the origin reference to this migrant symbol4.1 =

    inter_symbol *equivalent = Inter::Transmigration::cached_equivalent(target);
    if (equivalent == NULL) {
        TEMPORARY_TEXT(URL)
        InterSymbolsTables::symbol_to_url_name(URL, target);
        equivalent = Inter::Connectors::plug(ipct->origin_tree, URL);
        DISCARD_TEXT(URL)
        Inter::Transmigration::cache(target, equivalent);
    }
    symb->equated_to = equivalent;

• This code is used in §4.