A named action pattern is a named categorisation of actions, such as "acting suspiciously", which is a disjunction of action patterns (stored in a linked list).
typedef struct named_action_pattern {
struct noun *name;
struct action_pattern *first; list of APs defining this NAP
struct wording text_of_declaration;
struct inter_name *nap_iname; for an I6 routine to test this NAP
MEMORY_MANAGEMENT
} named_action_pattern;
The structure named_action_pattern is accessed in 2/bd, 3/tnt, 3/sm, 3/tp, 3/bck, 3/rgn, 3/tm, 3/em, 3/sc, 3/scn, 4/act, 4/anl, 5/gp, 5/gv, 5/gpr and here.
named_action_pattern *PL::Actions::Patterns::Named::nap_new(wording W) {
named_action_pattern *nap = CREATE(named_action_pattern);
nap->first = NULL;
nap->text_of_declaration = W;
nap->name = Nouns::new_proper_noun(W, NEUTER_GENDER,
REGISTER_SINGULAR_NTOPT + PARSE_EXACTLY_NTOPT,
NAMED_AP_MC, Rvalues::from_named_action_pattern(nap));
package_request *PR = Hierarchy::local_package(NAMED_ACTION_PATTERNS_HAP);
nap->nap_iname = Hierarchy::make_iname_in(NAP_FN_HL, PR);
return nap;
}
named_action_pattern *PL::Actions::Patterns::Named::by_name(wording W) {
parse_node *p = ExParser::parse_excerpt(NAMED_AP_MC, W);
if (p) return Rvalues::to_named_action_pattern(p);
return NULL;
}
inter_name *PL::Actions::Patterns::Named::identifier(named_action_pattern *nap) {
return nap->nap_iname;
}
void PL::Actions::Patterns::Named::add(action_pattern *app, wording W) {
app->entered_into_NAP_here = current_sentence;
named_action_pattern *nap;
nap = PL::Actions::Patterns::Named::by_name(W);
if (nap) {
action_pattern *list;
list = nap->first; while (list->next) list = list->next;
list->next = app;
return;
}
nap = PL::Actions::Patterns::Named::nap_new(W);
nap->first = app;
}
int PL::Actions::Patterns::Named::within_action_context(named_action_pattern *nap, action_name *an) {
action_pattern *ap;
for (ap = nap->first; ap; ap = ap->next)
if (PL::Actions::Patterns::within_action_context(ap, an)) return TRUE;
return FALSE;
}
void PL::Actions::Patterns::Named::index(OUTPUT_STREAM) {
named_action_pattern *nap;
action_pattern *ap;
int num_naps = NUMBER_CREATED(named_action_pattern);
if (num_naps == 0) {
HTML_OPEN("p");
WRITE("No names for kinds of action have yet been defined.");
HTML_CLOSE("p");
}
LOOP_OVER(nap, named_action_pattern) {
HTML_OPEN("p"); WRITE("<b>%+W</b>", Nouns::nominative(nap->name));
Index::link(OUT, Wordings::first_wn(nap->text_of_declaration));
HTML_TAG("br");
ap = nap->first;
WRITE(" <i>defined as any of the following acts:</i>\n");
while (ap != NULL) {
HTML_TAG("br");
WRITE(" %+W", ap->text_of_pattern);
Index::link(OUT, Wordings::first_wn(ap->text_of_pattern));
ap = ap->next;
}
HTML_CLOSE("p");
}
}
void PL::Actions::Patterns::Named::compile(void) {
named_action_pattern *nap;
action_pattern *ap;
LOOP_OVER(nap, named_action_pattern) {
packaging_state save = Routines::begin(nap->nap_iname);
ap = nap->first;
while (ap != NULL) {
current_sentence = ap->entered_into_NAP_here;
Produce::inv_primitive(Emit::tree(), IF_BIP);
Produce::down(Emit::tree());
PL::Actions::Patterns::emit_pattern_match(*ap, TRUE);
Produce::code(Emit::tree());
Produce::down(Emit::tree());
Produce::rtrue(Emit::tree());
Produce::up(Emit::tree());
Produce::up(Emit::tree());
ap = ap->next;
}
Produce::rfalse(Emit::tree());
Routines::end(save);
}
}
void PL::Actions::Patterns::Named::index_for_extension(OUTPUT_STREAM, source_file *sf, extension_file *ef) {
named_action_pattern *nap;
int kc = 0;
LOOP_OVER(nap, named_action_pattern)
if (Lexer::file_of_origin(Wordings::first_wn(nap->text_of_declaration)) == ef->read_into_file)
kc = Extensions::Documentation::document_headword(OUT, kc, ef, "Kinds of action", I"kind of action",
nap->text_of_declaration);
if (kc != 0) HTML_CLOSE("p");
}
The function PL::Actions::Patterns::Named::nap_new appears nowhere else.
The function PL::Actions::Patterns::Named::by_name is used in 4/anl (§6).
The function PL::Actions::Patterns::Named::identifier is used in 4/anl (§9).
The function PL::Actions::Patterns::Named::add is used in 4/ap (§6).
The function PL::Actions::Patterns::Named::within_action_context is used in 4/ap (§5).
The function PL::Actions::Patterns::Named::index appears nowhere else.
The function PL::Actions::Patterns::Named::compile appears nowhere else.
The function PL::Actions::Patterns::Named::index_for_extension appears nowhere else.