Creating a simple graph of scenes, ends and connectors.

§1. As with Faux Instances, we need to make faux scenes: these more or less reconstruct the original data structures in Inform, though they are much less annotated.

define MAX_SCENE_ENDS 32  this must exceed 31

typedef struct simplified_scene {
    struct inter_package *pack;
    int no_ends;
    struct simplified_end *ends[MAX_SCENE_ENDS];
    int indexed_already;
    CLASS_DEFINITION
} simplified_scene;

typedef struct simplified_end {
    struct inter_package *end_pack;
    struct simplified_connector *anchor_connectors;  linked list
    CLASS_DEFINITION
} simplified_end;

typedef struct simplified_connector {
    struct inter_package *con_pack;
    struct simplified_scene *connect_to;
    struct simplified_connector *next;  next in list of connectors for a scene end
    CLASS_DEFINITION
} simplified_connector;

• The structure simplified_scene is accessed in 2/ir, 3/pe2 and here.
• The structure simplified_end is accessed in 3/pe2 and here.
• The structure simplified_connector is accessed in 3/pe2 and here.

§2. This three-deck structure of objects matches a similar hierarchy of Inter packages, where _scene_connector packages are inside _scene_end packages which are inside _scene packages.

void FauxScenes::list_of_faux_scenes?Usage of FauxScenes::list_of_faux_scenes:
Indexing API - §8(index_session *session) {
    linked_list *L = NEW_LINKED_LIST(simplified_scene);
    session->list_of_scenes = L;
    inter_tree *I = Indexing::get_tree(session);
    tree_inventory *inv = Indexing::get_inventory(session);
    InterNodeList::array_sort(inv->scene_nodes, FauxScenes::scene_order);
    InterNodeList::array_sort(inv->rulebook_nodes, MakeSynopticModuleStage::module_order);

    inter_package *scene_pack;
    LOOP_OVER_INVENTORY_PACKAGES(scene_pack, i, inv->scene_nodes)
        ADD_TO_LINKED_LIST(FauxScenes::simplified(I, scene_pack), simplified_scene, L);
}

§3. The following is the criterion used for sorting the scenes into their indexing order. The Entire Game always comes first, and then come the rest in ascending alphabetical order.

int FauxScenes::scene_order?Usage of FauxScenes::scene_order:
§2(const void *ent1, const void *ent2) {
    ina_entry *E1 = (ina_entry *) ent1;
    ina_entry *E2 = (ina_entry *) ent2;
    if (E1 == E2) return 0;
    inter_tree_node *P1 = E1->node;
    inter_tree_node *P2 = E2->node;
    inter_package *sc1 = PackageInstruction::at_this_head(P1);
    inter_package *sc2 = PackageInstruction::at_this_head(P2);
    if (Metadata::read_optional_numeric(sc1, I"^is_entire_game")) return -1;
    if (Metadata::read_optional_numeric(sc2, I"^is_entire_game")) return 1;
    text_stream *SW1 = Metadata::required_textual(sc1, I"^name");
    text_stream *SW2 = Metadata::required_textual(sc2, I"^name");
    return Str::cmp(SW1, SW2);
}

§4. The following returns a valid simplified_scene for each _scene package, together with its connectors and ends.

simplified_scene *FauxScenes::simplified?Usage of FauxScenes::simplified:
§2(inter_tree *I, inter_package *sc_pack) {
    simplified_scene *ssc = CREATE(simplified_scene);
    ssc->pack = sc_pack;
    ssc->no_ends = 0;
    ssc->indexed_already = FALSE;
    inter_package *end_pack;
    LOOP_THROUGH_SUBPACKAGES(end_pack, sc_pack, I"_scene_end") {
        simplified_end *se = CREATE(simplified_end);
        se->end_pack = end_pack;
        se->anchor_connectors = NULL;
        inter_package *con_pack;
        LOOP_THROUGH_SUBPACKAGES(con_pack, end_pack, I"_scene_connector") {
            simplified_connector *scon = CREATE(simplified_connector);
            scon->con_pack = con_pack;
            scon->next = NULL;
            if (se->anchor_connectors == NULL) {
                se->anchor_connectors = scon;
            } else {
                simplified_connector *last = se->anchor_connectors;
                while ((last) && (last->next)) last = last->next;
                last->next = scon;
            }
            scon->connect_to = NULL;
        }
        if (ssc->no_ends >= MAX_SCENE_ENDS) internal_error("too many scene ends");
        ssc->ends[ssc->no_ends++] = se;
    }
    return ssc;
}

§5.

int FauxScenes::is_entire_game?Usage of FauxScenes::is_entire_game:
Plot Element - §1.1, §1.3.1, §2.1(simplified_scene *ssc) {
    if (Metadata::read_optional_numeric(ssc->pack, I"^is_entire_game")) return TRUE;
    return FALSE;
}

int FauxScenes::recurs?Usage of FauxScenes::recurs:
Plot Element - §1.3.1.1, §2.4(simplified_scene *ssc) {
    if (Metadata::read_optional_numeric(ssc->pack, I"^recurs")) return TRUE;
    return FALSE;
}

int FauxScenes::never_ends?Usage of FauxScenes::never_ends:
Plot Element - §2.3(simplified_scene *ssc) {
    if (Metadata::read_optional_numeric(ssc->pack, I"^never_ends")) return TRUE;
    return FALSE;
}

int FauxScenes::starts_at_start_of_play?Usage of FauxScenes::starts_at_start_of_play:
Plot Element - §1.1, §1.3.1.4.1, §2.1(simplified_scene *ssc) {
    if (Metadata::read_optional_numeric(ssc->pack, I"^starts")) return TRUE;
    return FALSE;
}

int FauxScenes::starts_on_condition?Usage of FauxScenes::starts_on_condition:
Plot Element - §1.1, §2.1(simplified_scene *ssc) {
    if (Metadata::read_optional_numeric(ssc->pack, I"^starts_on_condition")) return TRUE;
    return FALSE;
}

int FauxScenes::no_ends?Usage of FauxScenes::no_ends:
Plot Element - §1.3.1(simplified_scene *ssc) {
    return ssc->no_ends;
}

text_stream *FauxScenes::scene_name?Usage of FauxScenes::scene_name:
Index Rules - §12.1
Plot Element - §1.3.1.4.3(simplified_scene *ssc) {
    return Metadata::required_textual(ssc->pack, I"^name");
}

§6.

text_stream *FauxScenes::end_name?Usage of FauxScenes::end_name:
Plot Element - §1.3.1.4, §1.3.1.4.3, §2.1(simplified_end *se) {
    return Metadata::required_textual(se->end_pack, I"^name");
}

text_stream *FauxScenes::anchor_condition?Usage of FauxScenes::anchor_condition:
Plot Element - §1.3.1.4.2(simplified_end *se) {
    return Metadata::required_textual(se->end_pack, I"^condition");
}

int FauxScenes::has_anchor_condition?Usage of FauxScenes::has_anchor_condition:
Plot Element - §1.3.1, §1.3.1.4.2(simplified_end *se) {
    if (Str::len(FauxScenes::anchor_condition(se)) > 0) return TRUE;
    return FALSE;
}

int FauxScenes::anchor_condition_set_at?Usage of FauxScenes::anchor_condition_set_at:
Plot Element - §1.3.1.4.2(simplified_end *se) {
    return (int) Metadata::read_optional_numeric(se->end_pack, I"^at");
}

inter_symbol *FauxScenes::end_rulebook?Usage of FauxScenes::end_rulebook:
Plot Element - §1.3.1.5(simplified_end *se) {
    return Metadata::optional_symbol(se->end_pack, I"^rulebook");
}

§7. A connector leads, of course, to another scene. Determining that is quite slow, but ww cache the result so that it must only be done once.

simplified_scene *FauxScenes::connects_to?Usage of FauxScenes::connects_to:
Plot Element - §1.3.1.4.3, §2.5(simplified_connector *scon, index_session *session) {
    if (scon->connect_to) return scon->connect_to;
    inter_symbol *sc_symbol = Metadata::optional_symbol(scon->con_pack, I"^to");
    if (sc_symbol) {
        inter_package *to_pack = InterPackage::container(sc_symbol->definition);
        linked_list *L = Indexing::get_list_of_scenes(session);
        simplified_scene *ssc;
        LOOP_OVER_LINKED_LIST(ssc, simplified_scene, L)
            if (ssc->pack == to_pack) {
                scon->connect_to = ssc;
                return ssc;
            }
    }
    internal_error("scene metadata broken: bad connector");
    return NULL;
}

int FauxScenes::scon_end?Usage of FauxScenes::scon_end:
Plot Element - §1.3.1.4.3, §2.5(simplified_connector *scon) {
    return (int) Metadata::read_numeric(scon->con_pack, I"^end");
}

int FauxScenes::scon_at?Usage of FauxScenes::scon_at:
Plot Element - §1.3.1.4.3(simplified_connector *scon) {
    return (int) Metadata::read_numeric(scon->con_pack, I"^at");
}