To manage link symbols.

§1.

int unique_plug_number = 1;
inter_symbol *Inter::Connectors::plug?Usage of Inter::Connectors::plug:
Transmigration - §3, §3.3, §4.1(inter_tree *I, text_stream *wanted) {
    inter_package *connectors = Inter::Connectors::connectors_package(I);
    TEMPORARY_TEXT(PN)
    WRITE_TO(PN, "plug_%05d", unique_plug_number++);
    inter_symbol *plug = InterSymbolsTables::create_with_unique_name(
        Inter::Packages::scope(connectors), PN);
    DISCARD_TEXT(PN)
    InterSymbolsTables::make_plug(plug, wanted);
    LOGIF(INTER_CONNECTORS, "Plug I%d: $3 seeking %S\n", I->allocation_id, plug, plug->equated_name);
    return plug;
}

inter_symbol *Inter::Connectors::socket?Usage of Inter::Connectors::socket:
Transmigration - §1(inter_tree *I, text_stream *socket_name, inter_symbol *wired_from) {
    inter_package *connectors = Inter::Connectors::connectors_package(I);
    inter_symbol *socket = InterSymbolsTables::create_with_unique_name(
        Inter::Packages::scope(connectors), socket_name);
    InterSymbolsTables::make_socket(socket, wired_from);
    LOGIF(INTER_CONNECTORS, "Socket I%d: $3 wired to $3\n", I->allocation_id, socket, wired_from);
    return socket;
}

inter_package *Inter::Connectors::connectors_package(inter_tree *I) {
    if (I == NULL) internal_error("no tree for connectors");
    inter_package *connectors = Site::connectors_package(I);
    if (connectors == NULL) {
        connectors = Site::make_linkage_package(I, I"connectors");
        Site::set_connectors_package(I, connectors);
        Inter::Packages::make_linklike(connectors);
    }
    return connectors;
}

inter_symbol *Inter::Connectors::find_socket?Usage of Inter::Connectors::find_socket:
Transmigration - §1(inter_tree *I, text_stream *identifier) {
    inter_package *connectors = Site::connectors_package(I);
    if (connectors) {
        inter_symbol *S = InterSymbolsTables::symbol_from_name_not_equating(
            Inter::Packages::scope(Site::connectors_package(I)), identifier);
        if ((S) && (Inter::Symbols::get_scope(S) == SOCKET_ISYMS)) return S;
    }
    return NULL;
}

inter_symbol *Inter::Connectors::find_plug?Usage of Inter::Connectors::find_plug:
Transmigration - §3(inter_tree *I, text_stream *identifier) {
    inter_package *connectors = Site::connectors_package(I);
    if (connectors) {
        inter_symbol *S = InterSymbolsTables::symbol_from_name_not_equating(
            Inter::Packages::scope(Site::connectors_package(I)), identifier);
        if ((S) && (Inter::Symbols::get_scope(S) == PLUG_ISYMS)) return S;
    }
    return NULL;
}

void Inter::Connectors::wire_plug(inter_symbol *plug, inter_symbol *to) {
    if (plug == NULL) internal_error("no plug");
    LOGIF(INTER_CONNECTORS, "Plug $3 wired to $3\n", plug, to);
    InterSymbolsTables::equate(plug, to);
}

void Inter::Connectors::stecker(inter_tree *I) {
    inter_package *Q = Site::connectors_package(I);
    if (Q == NULL) return;
    inter_symbols_table *ST = Inter::Packages::scope(Q);
    for (int i=0; i<ST->size; i++) {
        inter_symbol *plug = ST->symbol_array[i];
        if ((plug) && (Inter::Symbols::get_scope(plug) == PLUG_ISYMS) && (plug->equated_to == NULL)) {
            inter_symbol *socket = Inter::Connectors::find_socket(I, plug->equated_name);
            if (socket) {
                Inter::Connectors::wire_plug(plug, socket);
                plug->equated_name = NULL;
            }
        }
    }
}