A plugin for actions, by which animate characters change the world model.

§1. Support for actions is contained in the "actions" plugin, which occupies this entire chapter.

void ActionsPlugin::start?Usage of ActionsPlugin::start:
IF Module - §5(void) {
    ActionsNodes::nodes_and_annotations();

    PluginManager::plug(MAKE_SPECIAL_MEANINGS_PLUG, ActionsPlugin::make_special_meanings);
    PluginManager::plug(NEW_BASE_KIND_NOTIFY_PLUG, ActionsPlugin::new_base_kind_notify);
    PluginManager::plug(COMPILE_CONSTANT_PLUG, PL::Actions::actions_compile_constant);
    PluginManager::plug(OFFERED_PROPERTY_PLUG, PL::Actions::actions_offered_property);
    PluginManager::plug(OFFERED_SPECIFICATION_PLUG, PL::Actions::actions_offered_specification);
    PluginManager::plug(TYPECHECK_EQUALITY_PLUG, PL::Actions::actions_typecheck_equality);
    PluginManager::plug(PRODUCTION_LINE_PLUG, ActionsPlugin::production_line);

    Vocabulary::set_flags(Vocabulary::entry_for_text(L"doing"), ACTION_PARTICIPLE_MC);
    Vocabulary::set_flags(Vocabulary::entry_for_text(L"asking"), ACTION_PARTICIPLE_MC);
}

int ActionsPlugin::production_line(int stage, int debugging, stopwatch_timer *sequence_timer) {
    if (stage == INTER1_CSEQ) {
        BENCH(PL::Actions::Patterns::Named::compile);
        BENCH(RTActions::ActionData);
        BENCH(RTActions::ActionCoding_array);
        BENCH(RTActions::ActionHappened);
        BENCH(RTActions::compile_action_routines);
    }
    return FALSE;
}

int ActionsPlugin::make_special_meanings(void) {
    SpecialMeanings::declare(PL::Actions::new_action_SMF, I"new-action", 2);
    return FALSE;
}

§2. This plugin brings in three new base kinds:

kind *K_action_name = NULL;
kind *K_stored_action = NULL;
kind *K_description_of_action = NULL;

§3. These are created by a Neptune file inside WorldModelKit, and are recognised by their Inter identifiers:

§4.

int ActionsPlugin::new_base_kind_notify?Usage of ActionsPlugin::new_base_kind_notify:
§1(kind *new_base, text_stream *name, wording W) {
    if (Str::eq_wide_string(name, L"ACTION_NAME_TY")) {
        K_action_name = new_base; return TRUE;
    }
    if (Str::eq_wide_string(name, L"DESCRIPTION_OF_ACTION_TY")) {
        K_description_of_action = new_base; return TRUE;
    }
    if (Str::eq_wide_string(name, L"STORED_ACTION_TY")) {
        K_stored_action = new_base; return TRUE;
    }
    return FALSE;
}