2021-05-25 14:14:32 +03:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
< title > Matching Going Action Patterns< / title >
< link href = "../docs-assets/Breadcrumbs.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< meta name = "viewport" content = "width=device-width initial-scale=1" >
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
< link href = "../docs-assets/Contents.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Progress.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Navigation.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Fonts.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Base.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Colours.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< / head >
< body class = "commentary-font" >
< nav role = "navigation" >
2022-04-25 18:44:43 +03:00
< h1 > < a href = "../overview.html" >
2021-05-25 14:14:32 +03:00
< img src = "../docs-assets/Inform.png" height = 72" >
< / a > < / h1 >
2022-04-25 18:44:43 +03:00
< ul > < li > < a href = "../overview.html" > home< / a > < / li >
2022-04-04 20:31:44 +03:00
< / ul > < h2 > Compiler< / h2 > < ul >
< li > < a href = "../structure.html" > structure< / a > < / li >
< li > < a href = "../inbuildn.html" > inbuild< / a > < / li >
< li > < a href = "../inform7n.html" > inform7< / a > < / li >
< li > < a href = "../intern.html" > inter< / a > < / li >
< li > < a href = "../services.html" > services< / a > < / li >
2022-04-18 17:46:46 +03:00
< li > < a href = "../secrets.html" > secrets< / a > < / li >
2022-04-04 20:31:44 +03:00
< / ul > < h2 > Other Tools< / h2 > < ul >
< li > < a href = "../inblorbn.html" > inblorb< / a > < / li >
< li > < a href = "../indocn.html" > indoc< / a > < / li >
< li > < a href = "../inform6.html" > inform6< / a > < / li >
< li > < a href = "../inpolicyn.html" > inpolicy< / a > < / li >
< li > < a href = "../inrtpsn.html" > inrtps< / a > < / li >
2022-04-07 01:30:32 +03:00
< / ul > < h2 > Resources< / h2 > < ul >
< li > < a href = "../extensions.html" > extensions< / a > < / li >
< li > < a href = "../kits.html" > kits< / a > < / li >
2022-04-04 20:31:44 +03:00
< / ul > < h2 > Repository< / h2 > < ul >
< li > < a href = "https://github.com/ganelson/inform" > < img src = "../docs-assets/github.png" height = 18 > github< / a > < / li >
< / ul > < h2 > Related Projects< / h2 > < ul >
2022-04-28 19:20:06 +03:00
< li > < a href = "../../../inweb/index.html" > inweb< / a > < / li >
< li > < a href = "../../../intest/index.html" > intest< / a > < / li >
2021-05-25 14:14:32 +03:00
< / ul >
< / nav >
< main role = "main" >
<!-- Weave of 'Matching Going Action Patterns' generated by Inweb -->
< div class = "breadcrumbs" >
2022-04-25 18:44:43 +03:00
< ul class = "crumbs" > < li > < a href = "../overview.html" > Home< / a > < / li > < li > < a href = "../inform7n.html" > Inform7< / a > < / li > < li > < a href = "index.html" > imperative< / a > < / li > < li > < a href = "index.html#2" > Chapter 2: Values< / a > < / li > < li > < b > Matching Going Action Patterns< / b > < / li > < / ul > < / div >
2021-05-25 14:14:32 +03:00
< p class = "purpose" > Tweaks to compiling APs for the going action.< / p >
< p class = "commentary firstcommentary" > < a id = "SP1" class = "paragraph-anchor" > < / a > < b > § 1. < / b > We will need three extra CPMCs (see < a href = "2-map.html" class = "internal" > Matching Action Patterns< / a > ).
< / p >
< pre class = "definitions code-font" > < span class = "definition-keyword" > enum< / span > < span class = "constant-syntax" > NOWHERE_CPMC< / span >
< span class = "definition-keyword" > enum< / span > < span class = "constant-syntax" > SOMEWHERE_CPMC< / span >
< span class = "definition-keyword" > enum< / span > < span class = "constant-syntax" > NOT_NOWHERE_CPMC< / span >
< / pre >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > RTGoing::set_pattern_match_requirements< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > action_pattern< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ap< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > cpm< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > needed< / span > < span class = "plain-syntax" > [< / span > < span class = "constant-syntax" > MAX_CPM_CLAUSES< / span > < span class = "plain-syntax" > ], < / span > < span class = "identifier-syntax" > ap_clause< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > needed_apoc< / span > < span class = "plain-syntax" > [< / span > < span class = "constant-syntax" > MAX_CPM_CLAUSES< / span > < span class = "plain-syntax" > ]) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > cpm_count< / span > < span class = "plain-syntax" > = *< / span > < span class = "identifier-syntax" > cpm< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > GoingPlugin::going_nowhere< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ap< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CPMC_NEEDED< / span > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > NOWHERE_CPMC< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > GoingPlugin::going_somewhere< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ap< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CPMC_NEEDED< / span > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > SOMEWHERE_CPMC< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > GoingPlugin::need_to_check_destination_exists< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ap< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CPMC_NEEDED< / span > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > NOT_NOWHERE_CPMC< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > cpm< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > cpm_count< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP2" class = "paragraph-anchor" > < / a > < b > § 2. < / b > The implementation of these three clauses assumes throughout that variable
number 1 in the shared variable set owned by the going action is the "to"
variable, the one storing the room being gone to.
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > RTGoing::compile_pattern_match_clause< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > action_pattern< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ap< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > cpmc< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > nonlocal_variable_emission< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > nve< / span > < span class = "plain-syntax" > =< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > RTVariables::nve_from_mstack< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > GoingPlugin::id< / span > < span class = "plain-syntax" > (), < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > switch< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > cpmc< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NOWHERE_CPMC:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-mgap.html#SP2_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Compile NOWHERE_CPMC test< / span > < span class = "named-paragraph-number" > 2.1< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NOT_NOWHERE_CPMC:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-mgap.html#SP2_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Compile NOT_NOWHERE_CPMC test< / span > < span class = "named-paragraph-number" > 2.2< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SOMEWHERE_CPMC:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-mgap.html#SP2_3" class = "named-paragraph-link" > < span class = "named-paragraph" > Compile SOMEWHERE_CPMC test< / span > < span class = "named-paragraph-number" > 2.3< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP2_1" class = "paragraph-anchor" > < / a > < b > § 2.1. < / b > This handles the irregular usage "going nowhere". (The noun for "going" is
ordinarily a direction.)
< / p >
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Compile NOWHERE_CPMC test< / span > < span class = "named-paragraph-number" > 2.1< / span > < / span > < span class = "comment-syntax" > =< / span >
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > EmitCode::inv< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > EQ_BIP< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > EmitCode::down< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > RTVariables::compile_NVE_as_val< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > nve< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > EmitCode::val_number< / span > < span class = "plain-syntax" > (0);< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > EmitCode::up< / span > < span class = "plain-syntax" > ();< / span >
< / pre >
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-mgap.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_2" class = "paragraph-anchor" > < / a > < b > § 2.2. < / b > The not-nowhere test is needed for patterns like "going from the Dining Room",
which we want to match only where there is some destination: i.e., we don't want
it to match an attemot to go in a direction not available in the map.
< / p >
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Compile NOT_NOWHERE_CPMC test< / span > < span class = "named-paragraph-number" > 2.2< / span > < / span > < span class = "comment-syntax" > =< / span >
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > EmitCode::inv< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > NE_BIP< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > EmitCode::down< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > RTVariables::compile_NVE_as_val< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > nve< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > EmitCode::val_number< / span > < span class = "plain-syntax" > (0);< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > EmitCode::up< / span > < span class = "plain-syntax" > ();< / span >
< / pre >
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-mgap.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_3" class = "paragraph-anchor" > < / a > < b > § 2.3. < / b > And this handles "going somewhere", testing that the destination is a room.
< / p >
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Compile SOMEWHERE_CPMC test< / span > < span class = "named-paragraph-number" > 2.3< / span > < / span > < span class = "comment-syntax" > =< / span >
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > parse_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > somewhere< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Specifications::from_kind< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K_room< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-map.html#SP4" class = "function-link" > < span class = "function-syntax" > RTActionPatterns::variable_matches_specification< / span > < / a > < span class = "plain-syntax" > (< / span >
< span class = "plain-syntax" > < / span > < a href = "3-tv.html#SP1" class = "function-link" > < span class = "function-syntax" > TemporaryVariables::from_nve< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > nve< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K_object< / span > < span class = "plain-syntax" > ),< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > somewhere< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K_object< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > );< / span >
< / pre >
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-mgap.html#SP2" > § 2< / a > .< / li > < / ul >
< nav role = "progress" > < div class = "progresscontainer" >
< ul class = "progressbar" > < li class = "progressprev" > < a href = "2-map.html" > ❮ < / a > < / li > < li class = "progresschapter" > < a href = "P-wtmd.html" > P< / a > < / li > < li class = "progresschapter" > < a href = "1-im.html" > 1< / a > < / li > < li class = "progresscurrentchapter" > 2< / li > < li class = "progresssection" > < a href = "2-cv.html" > cv< / a > < / li > < li class = "progresssection" > < a href = "2-cr.html" > cr< / a > < / li > < li class = "progresssection" > < a href = "2-cl.html" > cl< / a > < / li > < li class = "progresssection" > < a href = "2-cc.html" > cc< / a > < / li > < li class = "progresssection" > < a href = "2-map.html" > map< / a > < / li > < li class = "progresscurrent" > mgap< / li > < li class = "progresschapter" > < a href = "3-sf.html" > 3< / a > < / li > < li class = "progresschapter" > < a href = "4-cs.html" > 4< / a > < / li > < li class = "progresschapter" > < a href = "5-cbal.html" > 5< / a > < / li > < li class = "progressnext" > < a href = "3-sf.html" > ❯ < / a > < / li > < / ul > < / div >
< / nav > <!-- End of weave -->
< / main >
< / body >
< / html >