2019-03-17 14:40:57 +02:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
2020-04-14 19:56:54 +03:00
< title > Action Name Lists< / title >
2020-05-03 03:20:55 +03:00
< link href = "../docs-assets/Breadcrumbs.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-03-19 02:11:25 +02:00
< meta name = "viewport" content = "width=device-width initial-scale=1" >
2019-03-17 14:40:57 +02:00
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
2020-05-03 03:01:21 +03:00
2020-05-03 03:20:55 +03:00
< 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" >
2020-05-03 03:01:21 +03:00
< script >
function togglePopup(material_id) {
var popup = document.getElementById(material_id);
popup.classList.toggle("show");
}
< / script >
2020-05-03 03:20:55 +03:00
< link href = "../docs-assets/Popups.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-05-03 03:01:21 +03:00
< script >
MathJax = {
tex: {
inlineMath: '$', '$'], ['\\(', '\\)'
},
svg: {
fontCache: 'global'
}
};
< / script >
< script type = "text/javascript" id = "MathJax-script" async
src="https://cdn.jsdelivr.net/npm/mathjax@3/es5/tex-svg.js">
< / script >
2020-05-03 03:20:55 +03:00
< link href = "../docs-assets/Colours.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-05-09 15:07:39 +03:00
< link href = "../docs-assets/Preform-Colours.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-04-14 19:56:54 +03:00
2019-03-17 14:40:57 +02:00
< / head >
2020-05-03 03:01:21 +03:00
< body class = "commentary-font" >
2020-03-19 02:11:25 +02:00
< nav role = "navigation" >
2020-04-14 19:56:54 +03:00
< h1 > < a href = "../index.html" >
2020-05-03 18:34:53 +03:00
< img src = "../docs-assets/Inform.png" height = 72" >
2020-04-14 19:56:54 +03:00
< / a > < / h1 >
< ul > < li > < a href = "../compiler.html" > compiler tools< / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../other.html" > other tools< / a > < / li >
< li > < a href = "../extensions.html" > extensions and kits< / a > < / li >
< li > < a href = "../units.html" > unit test tools< / a > < / li >
2020-04-14 19:56:54 +03:00
< / ul > < h2 > Compiler Webs< / h2 > < ul >
2020-03-19 02:11:25 +02:00
< li > < a href = "../inbuild/index.html" > inbuild< / a > < / li >
< li > < a href = "../inform7/index.html" > inform7< / a > < / li >
< li > < a href = "../inter/index.html" > inter< / a > < / li >
2020-04-14 19:56:54 +03:00
< / ul > < h2 > Inbuild Modules< / h2 > < ul >
< li > < a href = "../supervisor-module/index.html" > supervisor< / a > < / li >
< / ul > < h2 > Inform7 Modules< / h2 > < ul >
2020-03-19 02:11:25 +02:00
< li > < a href = "../core-module/index.html" > core< / a > < / li >
< li > < a href = "../kinds-module/index.html" > kinds< / a > < / li >
2020-04-14 19:56:54 +03:00
< li > < a href = "index.html" > < span class = "selectedlink" > if< / span > < / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../multimedia-module/index.html" > multimedia< / a > < / li >
< li > < a href = "../index-module/index.html" > index< / a > < / li >
2020-04-14 19:56:54 +03:00
< / ul > < h2 > Inter Modules< / h2 > < ul >
< li > < a href = "../bytecode-module/index.html" > bytecode< / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../building-module/index.html" > building< / a > < / li >
< li > < a href = "../codegen-module/index.html" > codegen< / a > < / li >
2020-05-20 02:02:28 +03:00
< / ul > < h2 > Services< / h2 > < ul >
2020-04-14 19:56:54 +03:00
< li > < a href = "../arch-module/index.html" > arch< / a > < / li >
< li > < a href = "../syntax-module/index.html" > syntax< / a > < / li >
< li > < a href = "../words-module/index.html" > words< / a > < / li >
< li > < a href = "../html-module/index.html" > html< / a > < / li >
2020-05-20 02:02:28 +03:00
< li > < a href = "../inflections-module/index.html" > inflections< / a > < / li >
< li > < a href = "../linguistics-module/index.html" > linguistics< / a > < / li >
< li > < a href = "../problems-module/index.html" > problems< / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../../../inweb/docs/foundation-module/index.html" > foundation< / a > < / li >
2020-04-14 19:56:54 +03:00
< / ul >
2020-03-19 02:11:25 +02:00
< / nav >
< main role = "main" >
2020-05-03 03:01:21 +03:00
<!-- Weave of 'Action Name Lists' generated by Inweb -->
< div class = "breadcrumbs" >
< ul class = "crumbs" > < li > < a href = "../index.html" > Home< / a > < / li > < li > < a href = "../compiler.html" > Inform7 Modules< / a > < / li > < li > < a href = "index.html" > if< / a > < / li > < li > < a href = "index.html#4" > Chapter 4: Actions< / a > < / li > < li > < b > Action Name Lists< / b > < / li > < / ul > < / div >
< p class = "purpose" > Action name lists provide a disjunction in the choice of action made by an action pattern. For instance, "taking or dropping the disc" results in a two-entry ANL. An empty ANL is also legal, and means "doing something" -- the generic I7 text for "any action at all".< / p >
2019-03-17 14:40:57 +02:00
2020-04-16 01:49:59 +03:00
< ul class = "toc" > < li > < a href = "4-anl.html#SP1" > § 1. Definitions< / a > < / li > < li > < a href = "4-anl.html#SP10" > § 10. Specificity of ANLs< / a > < / li > < / ul > < hr class = "tocbar" >
2019-03-17 14:40:57 +02:00
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1" class = "paragraph-anchor" > < / a > < b > § 1. Definitions. < / b > < / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > typedef< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > action_listed< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > the action in this ANL list entry< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > named_action_pattern< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > nap_listed< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > or a named pattern instead< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > next< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > next in this ANL list< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > word_position< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > and some values used temporarily during parsing< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > negate_pattern< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > parity of the entire list which this heads< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > parity< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > parity of just this individual item< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > parc< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > parameter< / span > < span class = "plain-syntax" > [2];< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > in_clause< / 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" > abbreviation_level< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > number of words missing< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anyone_specified< / 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" > delete_this_link< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > used temporarily during parsing< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-07-31 10:19:26 +03:00
< ul class = "endnotetexts" > < li > The structure action_name_list is accessed in 2/ri, 3/mcr, 3/em, 3/scn, 3/tm2, 3/ts, 4/act, 4/ap, 4/nap, 5/tfg, 5/gl and here.< / li > < / ul >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP2" class = "paragraph-anchor" > < / a > < b > § 2. < / b > The action name list is the part of an action pattern identifying
2019-03-17 14:40:57 +02:00
which actions are allowed: "taking, dropping or examining" for
example. The following routine extracts this from a potentially longer
text (e.g. "taking, dropping or examining a door").
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > PL::Actions::Lists::anl_new< / span > < button class = "popup" onclick = "togglePopup('usagePopup1')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup1" > Usage of < span class = "code-font" > < span class = "function-syntax" > PL::Actions::Lists::anl_new< / span > < / span > :< br / > < a href = "4-anl.html#SP3_1" > § 3.1< / a > , < a href = "4-anl.html#SP4_2" > § 4.2< / a > , < a href = "4-anl.html#SP6_1" > § 6.1< / a > , < a href = "4-anl.html#SP6_2" > § 6.2< / a > , < a href = "4-anl.html#SP9" > § 9< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > CREATE< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > nap_listed< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parc< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > word_position< / span > < span class = "plain-syntax" > = -1;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > negate_pattern< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > in_clause< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > EMPTY_WORDING< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > abbreviation_level< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > anyone_specified< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > delete_this_link< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / 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" > new_anl< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > PL::Actions::Lists::log< / span > < button class = "popup" onclick = "togglePopup('usagePopup2')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup2" > Usage of < span class = "code-font" > < span class = "function-syntax" > PL::Actions::Lists::log< / span > < / span > :< br / > IF Module - < a href = "1-im.html#SP3" > § 3< / a > , < a href = "1-im.html#SP3_5" > § 3.5< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl< / 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" > i< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ++) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "ANL entry %s(%d@%d): %s "< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > delete_this_link< / span > < span class = "plain-syntax" > )?< / span > < span class = "string-syntax" > "(to be deleted) "< / span > < span class = "plain-syntax" > :< / span > < span class = "string-syntax" > ""< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > word_position< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > ==1)?< / span > < span class = "string-syntax" > "+"< / span > < span class = "plain-syntax" > :< / span > < span class = "string-syntax" > "-"< / 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" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "%W"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > present_name< / 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" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > nap_listed< / span > < span class = "plain-syntax" > )< / span >
2020-06-29 04:17:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "%W"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Nouns::nominative_singular< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > nap_listed< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > name< / span > < span class = "plain-syntax" > ));< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "NULL"< / span > < span class = "plain-syntax" > );< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "function-syntax" > < anl-> < / span > < span class = "element-syntax" > parc< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++)< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > " [%d: %W]"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parameter< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ]);< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > " [in: %W]\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > in_clause< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > PL::Actions::Lists::log_briefly< / span > < button class = "popup" onclick = "togglePopup('usagePopup3')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup3" > Usage of < span class = "code-font" > < span class = "function-syntax" > PL::Actions::Lists::log_briefly< / span > < / span > :< br / > Action Patterns - < a href = "4-ap.html#SP4" > § 4< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "< null-anl> "< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / 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" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > negate_pattern< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "NOT[ "< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > a< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > a< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > a< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > a< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > a< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / 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" > a< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > nap_listed< / 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" > a< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > == -1) < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "not-"< / span > < span class = "plain-syntax" > );< / span >
2020-06-29 04:17:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "%W / "< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Nouns::nominative_singular< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > a< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > nap_listed< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > name< / span > < span class = "plain-syntax" > ));< / span >
2020-05-03 03:01:21 +03:00
< 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" > a< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "ANY / "< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / 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" > a< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > == -1) < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "not-"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "%W / "< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > a< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > present_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / 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" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > negate_pattern< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > " ]"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > action_name< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > PL::Actions::Lists::get_singleton_action< / span > < button class = "popup" onclick = "togglePopup('usagePopup4')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup4" > Usage of < span class = "code-font" > < span class = "function-syntax" > PL::Actions::Lists::get_singleton_action< / span > < / span > :< br / > Action Patterns - < a href = "4-ap.html#SP28" > § 28< / a > , < a href = "4-ap.html#SP32" > § 32< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > an< / 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" > anl< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "Supposed singleton ANL is empty"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > an< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / 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" > an< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "Singleton ANL points to null AN"< / 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" > an< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl_being_parsed< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP3" class = "paragraph-anchor" > < / a > < b > § 3. < / b > The following handles action name lists, such as:
2019-03-17 14:40:57 +02:00
< / p >
< blockquote >
< p > doing something other than waiting< / p >
< / blockquote >
< blockquote >
< p > taking or dropping the box< / p >
< / blockquote >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > At this stage in parsing, we are identifying possible actions, and
2019-03-17 14:40:57 +02:00
what their possible operands are, but we aren't trying to parse those
operands.
< / p >
2020-05-09 15:07:39 +03:00
< pre class = "Preform-displayed-code all-displayed-code code-font" >
< span class = "Preform-function-syntax" > < action-list> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ::=< / span >
2020-07-28 21:19:38 +03:00
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > doing< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > something/anything< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > other< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > than< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl-excluded> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { FALSE, RP[1] }< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > doing< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > something/anything< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > except< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl-excluded> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { FALSE, RP[1] }< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > doing< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > something/anything< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > to/with< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl-to-tail> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { TRUE, RP[1] }< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > doing< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > something/anything< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-anl.html#SP3_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Construct ANL for anything< / span > < span class = "named-paragraph-number" > 3.1< / span > < / a > < / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > doing< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > something/anything< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ...< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { fail }< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { TRUE, RP[1] }< / span >
2020-05-09 15:07:39 +03:00
< span class = "Preform-function-syntax" > < anl-excluded> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ::=< / span >
2020-07-28 21:19:38 +03:00
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > to/with< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > {< anl-minimal-common-operand> }< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-anl.html#SP3_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Add to-clause to excluded ANL< / span > < span class = "named-paragraph-number" > 3.2< / span > < / a > < / span > < span class = "Preform-constant-syntax" > ;< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { TRUE, PL::Actions::Lists::flip_anl_parity(RP[1], FALSE) }< / span >
2020-05-09 15:07:39 +03:00
< span class = "Preform-function-syntax" > < anl-minimal-common-operand> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ::=< / span >
2020-07-28 21:19:38 +03:00
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > _,/or< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ...< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { fail }< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ...< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > to/with< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ...< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { fail }< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ...< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-20 02:02:28 +03:00
< ul class = "endnotetexts" > < li > This is < a href = "../words-module/4-ap.html" class = "internal" > Preform grammar< / a > , not regular C code.< / li > < / ul >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP3_1" class = "paragraph-anchor" > < / a > < b > § 3.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Construct ANL for anything< / span > < span class = "named-paragraph-number" > 3.1< / span > < / span > < span class = "Preform-comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > = < / span > < a href = "4-anl.html#SP2" class = "function-link" > < span class = "function-syntax" > PL::Actions::Lists::anl_new< / span > < / a > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > word_position< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Wordings::first_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
2020-07-28 21:19:38 +03:00
< span class = "plain-syntax" > ==> { < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > };< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-anl.html#SP3" > § 3< / a > .< / li > < / ul >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP4" class = "paragraph-anchor" > < / a > < b > § 4. < / b > The trickiest form is:
2019-03-17 14:40:57 +02:00
< / p >
< blockquote >
< p > doing something to the box in the dining room< / p >
< / blockquote >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > where no explicit action occurs at all, but we have to parse the rest of
2019-03-17 14:40:57 +02:00
the text as if it does, including an "in" clause.
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > So the following finds the first "in" within its range of words, except that
2019-03-17 14:40:57 +02:00
it throws out an "in" that we consider bogus for our own syntactic purposes:
for instance, we don't want to count the "in" from "fixed in place".
< / p >
2020-05-09 15:07:39 +03:00
< pre class = "Preform-displayed-code all-displayed-code code-font" >
< span class = "Preform-function-syntax" > < anl-to-tail> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ::=< / span >
2020-07-28 21:19:38 +03:00
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl-operand> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl-in-tail> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-anl.html#SP4_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Augment ANL with in clause< / span > < span class = "named-paragraph-number" > 4.1< / span > < / a > < / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl-operand> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { pass 1 }< / span >
2019-03-17 14:40:57 +02:00
2020-05-09 15:07:39 +03:00
< span class = "Preform-function-syntax" > < anl-operand> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ::=< / span >
2020-07-28 21:19:38 +03:00
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ...< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-anl.html#SP4_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Construct ANL for anything applied< / span > < span class = "named-paragraph-number" > 4.2< / span > < / a > < / span >
2019-03-17 14:40:57 +02:00
2020-05-09 15:07:39 +03:00
< span class = "Preform-function-syntax" > < anl-in-tail> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ::=< / span >
2020-07-28 21:19:38 +03:00
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > fixed< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > in< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > place< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > ***< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { advance Wordings::delta(WR[1], W) }< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > is/are/was/were/been/listed< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > in< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > ***< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { advance Wordings::delta(WR[1], W) }< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > in< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ...< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { TRUE, - }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-20 02:02:28 +03:00
< ul class = "endnotetexts" > < li > This is < a href = "../words-module/4-ap.html" class = "internal" > Preform grammar< / a > , not regular C code.< / li > < / ul >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP4_1" class = "paragraph-anchor" > < / a > < b > § 4.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Augment ANL with in clause< / span > < span class = "named-paragraph-number" > 4.1< / span > < / span > < span class = "Preform-comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > RP< / span > < span class = "plain-syntax" > [1];< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > in_clause< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > GET_RW< / span > < span class = "plain-syntax" > (< / span > < span class = "function-syntax" > < anl-in-tail> < / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-anl.html#SP4" > § 4< / a > .< / li > < / ul >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP4_2" class = "paragraph-anchor" > < / a > < b > § 4.2. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Construct ANL for anything applied< / span > < span class = "named-paragraph-number" > 4.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > new_anl< / 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" > preform_lookahead_mode< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > anl_being_parsed< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl_being_parsed< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > = < / span > < a href = "4-anl.html#SP2" class = "function-link" > < span class = "function-syntax" > PL::Actions::Lists::anl_new< / span > < / a > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > word_position< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Wordings::first_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parameter< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parc< / span > < span class = "plain-syntax" > ] = < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parc< / span > < span class = "plain-syntax" > ++;< / span >
2020-07-28 21:19:38 +03:00
< span class = "plain-syntax" > ==> { < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > };< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-anl.html#SP4" > § 4< / a > .< / li > < / ul >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP5" class = "paragraph-anchor" > < / a > < b > § 5. < / b > Now for the basic list of actions being included:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-09 15:07:39 +03:00
< pre class = "Preform-displayed-code all-displayed-code code-font" >
< span class = "Preform-function-syntax" > < anl> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ::=< / span >
2020-07-28 21:19:38 +03:00
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl-entry> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl-tail> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-anl.html#SP5_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Join parsed ANLs< / span > < span class = "named-paragraph-number" > 5.1< / span > < / a > < / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl-entry> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { pass 1 }< / span >
2019-03-17 14:40:57 +02:00
2020-05-09 15:07:39 +03:00
< span class = "Preform-function-syntax" > < anl-tail> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ::=< / span >
2020-07-28 21:19:38 +03:00
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > ,< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > _or< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { pass 1 }< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > _,/or< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { pass 1 }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-20 02:02:28 +03:00
< ul class = "endnotetexts" > < li > This is < a href = "../words-module/4-ap.html" class = "internal" > Preform grammar< / a > , not regular C code.< / li > < / ul >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP6" class = "paragraph-anchor" > < / a > < b > § 6. < / b > Which reduces us to an internal nonterminal for an entry in this list.
2019-03-17 14:40:57 +02:00
It actually produces multiple matches: for example,
< / p >
< blockquote >
< p > taking inventory< / p >
< / blockquote >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > will result in a list of two possibilities — "taking inventory", the
2019-03-17 14:40:57 +02:00
action, with no operand; and "taking", the action, applied to the
operand "inventory". (It's unlikely that the last will succeed in the
end, but it's syntactically valid.)
< / p >
2020-05-09 15:07:39 +03:00
< pre class = "Preform-displayed-code all-displayed-code code-font" >
< span class = "Preform-function-syntax" > < anl-entry> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ::=< / span >
2020-07-28 21:19:38 +03:00
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < named-action-pattern> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-anl.html#SP6_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Make an action pattern from named behaviour< / span > < span class = "named-paragraph-number" > 6.1< / span > < / a > < / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < named-action-pattern> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl-in-tail> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > |< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-anl.html#SP6_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Make an action pattern from named behaviour plus in< / span > < span class = "named-paragraph-number" > 6.2< / span > < / a > < / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-function-syntax" > < anl-entry-with-action> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > ==> < / span > < span class = "Preform-plain-syntax" > { pass 1 }< / span >
2020-05-09 15:07:39 +03:00
< span class = "Preform-function-syntax" > < named-action-pattern> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > internal< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > {< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > named_action_pattern< / span > < span class = "Preform-plain-syntax" > *< / span > < span class = "Preform-identifier-syntax" > nap< / span > < span class = "Preform-plain-syntax" > = < / span > < a href = "4-nap.html#SP2" class = "function-link" > < span class = "Preform-function-syntax" > PL::Actions::Patterns::Named::by_name< / span > < / a > < span class = "Preform-plain-syntax" > (< / span > < span class = "Preform-identifier-syntax" > W< / span > < span class = "Preform-plain-syntax" > );< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > if< / span > < span class = "Preform-plain-syntax" > (< / span > < span class = "Preform-identifier-syntax" > nap< / span > < span class = "Preform-plain-syntax" > ) {< / span >
2020-07-28 21:19:38 +03:00
< span class = "Preform-plain-syntax" > ==> { -, < / span > < span class = "Preform-identifier-syntax" > nap< / span > < span class = "Preform-plain-syntax" > }; < / span > < span class = "Preform-reserved-syntax" > return< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-identifier-syntax" > TRUE< / span > < span class = "Preform-plain-syntax" > ;< / span >
2020-05-09 15:07:39 +03:00
< span class = "Preform-plain-syntax" > }< / span >
2020-07-28 21:19:38 +03:00
< span class = "Preform-plain-syntax" > ==> { < / span > < span class = "Preform-identifier-syntax" > fail< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-identifier-syntax" > nonterminal< / span > < span class = "Preform-plain-syntax" > };< / span >
2020-05-09 15:07:39 +03:00
< span class = "Preform-plain-syntax" > }< / span >
< span class = "Preform-function-syntax" > < anl-entry-with-action> < / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > internal< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-constant-syntax" > {< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > action_name_list< / span > < span class = "Preform-plain-syntax" > *< / span > < span class = "Preform-identifier-syntax" > anl< / span > < span class = "Preform-plain-syntax" > = < / span > < a href = "4-anl.html#SP9" class = "function-link" > < span class = "Preform-function-syntax" > PL::Actions::Lists::anl_parse_internal< / span > < / a > < span class = "Preform-plain-syntax" > (< / span > < span class = "Preform-identifier-syntax" > W< / span > < span class = "Preform-plain-syntax" > );< / span >
< span class = "Preform-plain-syntax" > < / span > < span class = "Preform-reserved-syntax" > if< / span > < span class = "Preform-plain-syntax" > (< / span > < span class = "Preform-identifier-syntax" > anl< / span > < span class = "Preform-plain-syntax" > ) {< / span >
2020-07-28 21:19:38 +03:00
< span class = "Preform-plain-syntax" > ==> { -, < / span > < span class = "Preform-identifier-syntax" > anl< / span > < span class = "Preform-plain-syntax" > }; < / span > < span class = "Preform-reserved-syntax" > return< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-identifier-syntax" > TRUE< / span > < span class = "Preform-plain-syntax" > ;< / span >
2020-05-09 15:07:39 +03:00
< span class = "Preform-plain-syntax" > }< / span >
2020-07-28 21:19:38 +03:00
< span class = "Preform-plain-syntax" > ==> { < / span > < span class = "Preform-identifier-syntax" > fail< / span > < span class = "Preform-plain-syntax" > < / span > < span class = "Preform-identifier-syntax" > nonterminal< / span > < span class = "Preform-plain-syntax" > };< / span >
2020-05-09 15:07:39 +03:00
< span class = "Preform-plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-20 02:02:28 +03:00
< ul class = "endnotetexts" > < li > This is < a href = "../words-module/4-ap.html" class = "internal" > Preform grammar< / a > , not regular C code.< / li > < / ul >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP6_1" class = "paragraph-anchor" > < / a > < b > § 6.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Make an action pattern from named behaviour< / span > < span class = "named-paragraph-number" > 6.1< / span > < / span > < span class = "Preform-comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > = < / span > < a href = "4-anl.html#SP2" class = "function-link" > < span class = "function-syntax" > PL::Actions::Lists::anl_new< / span > < / a > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > word_position< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Wordings::first_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > nap_listed< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > RP< / span > < span class = "plain-syntax" > [1];< / span >
2020-07-28 21:19:38 +03:00
< span class = "plain-syntax" > ==> { < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > };< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-anl.html#SP6" > § 6< / a > .< / li > < / ul >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP6_2" class = "paragraph-anchor" > < / a > < b > § 6.2. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Make an action pattern from named behaviour plus in< / span > < span class = "named-paragraph-number" > 6.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > = < / span > < a href = "4-anl.html#SP2" class = "function-link" > < span class = "function-syntax" > PL::Actions::Lists::anl_new< / span > < / a > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > word_position< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Wordings::first_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > nap_listed< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > RP< / span > < span class = "plain-syntax" > [1];< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > in_clause< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > GET_RW< / span > < span class = "plain-syntax" > (< / span > < span class = "function-syntax" > < anl-in-tail> < / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > );< / span >
2020-07-28 21:19:38 +03:00
< span class = "plain-syntax" > ==> { < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > };< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-anl.html#SP6" > § 6< / a > .< / li > < / ul >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP3_2" class = "paragraph-anchor" > < / a > < b > § 3.2. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Add to-clause to excluded ANL< / span > < span class = "named-paragraph-number" > 3.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > = < / span > < a href = "4-anl.html#SP7" class = "function-link" > < span class = "function-syntax" > PL::Actions::Lists::flip_anl_parity< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > RP< / span > < span class = "plain-syntax" > [1], < / span > < span class = "identifier-syntax" > TRUE< / 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" > anl< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) ||< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > (< / span > < a href = "4-act.html#SP32" class = "function-link" > < span class = "function-syntax" > PL::Actions::can_have_parameters< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )) {< / span >
2020-07-28 21:19:38 +03:00
< span class = "plain-syntax" > ==> { < / span > < span class = "identifier-syntax" > fail< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > production< / span > < span class = "plain-syntax" > };< / span >
< span class = "plain-syntax" > }< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parameter< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parc< / span > < span class = "plain-syntax" > ] = < / span > < span class = "identifier-syntax" > GET_RW< / span > < span class = "plain-syntax" > (< / span > < span class = "function-syntax" > < anl-excluded> < / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parc< / span > < span class = "plain-syntax" > ++;< / span >
2020-07-28 21:19:38 +03:00
< span class = "plain-syntax" > ==> { < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > };< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-anl.html#SP3" > § 3< / a > .< / li > < / ul >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP5_1" class = "paragraph-anchor" > < / a > < b > § 5.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Join parsed ANLs< / span > < span class = "named-paragraph-number" > 5.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-07-28 21:19:38 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > join< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > left_atom< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > RP< / span > < span class = "plain-syntax" > [1];< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > right_tail< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > RP< / span > < span class = "plain-syntax" > [2];< / span >
2020-07-28 21:19:38 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > left_atom< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) { < / span > < span class = "identifier-syntax" > join< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > right_tail< / 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" > right_tail< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) { < / span > < span class = "identifier-syntax" > join< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > left_atom< / span > < span class = "plain-syntax" > ; }< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > right_tail< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / span > < span class = "plain-syntax" > != < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > left_atom< / span > < span class = "plain-syntax" > ;< / span >
2020-07-28 21:19:38 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > join< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > right_tail< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2020-07-28 21:19:38 +03:00
< span class = "plain-syntax" > ==> { < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > join< / span > < span class = "plain-syntax" > };< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-anl.html#SP5" > § 5< / a > .< / li > < / ul >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP7" class = "paragraph-anchor" > < / a > < b > § 7. < / b > < / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > PL::Actions::Lists::flip_anl_parity< / span > < button class = "popup" onclick = "togglePopup('usagePopup5')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup5" > Usage of < span class = "code-font" > < span class = "function-syntax" > PL::Actions::Lists::flip_anl_parity< / span > < / span > :< br / > < a href = "4-anl.html#SP3" > § 3< / a > , < a href = "4-anl.html#SP3_2" > § 3.2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > flip_all< / 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" > flip_all< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > = (< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > )?(-1):1;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > negate_pattern< / span > < span class = "plain-syntax" > = (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > negate_pattern< / span > < span class = "plain-syntax" > )?< / span > < span class = "identifier-syntax" > FALSE: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" > anl< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP8" class = "paragraph-anchor" > < / a > < b > § 8. < / b > < / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl_parsing_tense< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > IS_TENSE< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > PL::Actions::Lists::parse< / span > < button class = "popup" onclick = "togglePopup('usagePopup6')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup6" > Usage of < span class = "code-font" > < span class = "function-syntax" > PL::Actions::Lists::parse< / span > < / span > :< br / > Action Patterns - < a href = "4-ap.html#SP22" > § 22< / a > , < a href = "4-ap.html#SP25_3" > § 25.3< / a > , < a href = "4-ap.html#SP25_4" > § 25.4< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > tense< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Wordings::mismatched_brackets< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > return< / 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" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > t< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl_parsing_tense< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl_parsing_tense< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > tense< / span > < span class = "plain-syntax" > ;< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > r< / span > < span class = "plain-syntax" > = < / span > < span class = "function-syntax" > < action-list> < / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl_parsing_tense< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > t< / span > < span class = "plain-syntax" > ;< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > r< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > < < rp> > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP9" class = "paragraph-anchor" > < / a > < b > § 9. < / b > < / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > PL::Actions::Lists::anl_parse_internal< / span > < button class = "popup" onclick = "togglePopup('usagePopup7')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup7" > Usage of < span class = "code-font" > < span class = "function-syntax" > PL::Actions::Lists::anl_parse_internal< / span > < / span > :< br / > < a href = "4-anl.html#SP6" > § 6< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ACTION_PATTERN_PARSING< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Parsing ANL from %W (tense %d)\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > anl_parsing_tense< / 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" > tense< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl_parsing_tense< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl_list< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , *< / span > < span class = "identifier-syntax" > new_anl< / 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" > action_name< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > an< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > = < / span > < a href = "4-anl.html#SP2" class = "function-link" > < span class = "function-syntax" > PL::Actions::Lists::anl_new< / span > < / a > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl_list< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > an< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > action_name< / 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" > x_ended< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / 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" > fc< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > it_optional< / span > < span class = "plain-syntax" > = < / span > < a href = "4-act.html#SP20" class = "function-link" > < span class = "function-syntax" > PL::Actions::it_optional< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > an< / 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" > abbreviable< / span > < span class = "plain-syntax" > = < / span > < a href = "4-act.html#SP20" class = "function-link" > < span class = "function-syntax" > PL::Actions::abbreviable< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > an< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > XW< / span > < span class = "plain-syntax" > = < / span > < a href = "4-act.html#SP32" class = "function-link" > < span class = "function-syntax" > PL::Actions::set_text_to_name_tensed< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > an< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > tense< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > an< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parc< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > word_position< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Wordings::first_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > in_clause< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > EMPTY_WORDING< / 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" > w_m< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Wordings::first_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > x_m< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Wordings::first_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > XW< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > w_m< / span > < span class = "plain-syntax" > < = < / span > < span class = "identifier-syntax" > Wordings::last_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > )) & & (< / span > < span class = "identifier-syntax" > x_m< / span > < span class = "plain-syntax" > < = < / span > < span class = "identifier-syntax" > Wordings::last_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > XW< / 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" > Lexer::word< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > x_m< / span > < span class = "plain-syntax" > ++) != < / span > < span class = "identifier-syntax" > Lexer::word< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > w_m< / span > < span class = "plain-syntax" > ++)) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > fc< / span > < span class = "plain-syntax" > =1; < / span > < span class = "reserved-syntax" > goto< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DontInclude< / span > < span class = "plain-syntax" > ;< / 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" > x_m< / span > < span class = "plain-syntax" > > < / span > < span class = "identifier-syntax" > Wordings::last_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > XW< / span > < span class = "plain-syntax" > )) { < / span > < span class = "identifier-syntax" > x_ended< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ; }< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "function-syntax" > < action-pronoun> < / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Wordings::one_word< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > x_m< / span > < span class = "plain-syntax" > ))) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > w_m< / span > < span class = "plain-syntax" > > < / span > < span class = "identifier-syntax" > Wordings::last_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > x_ended< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > else< / 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" > j< / span > < span class = "plain-syntax" > = -1, < / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > =(< / span > < span class = "identifier-syntax" > it_optional< / span > < span class = "plain-syntax" > )?(< / span > < span class = "identifier-syntax" > w_m< / span > < span class = "plain-syntax" > ):(< / span > < span class = "identifier-syntax" > w_m< / span > < span class = "plain-syntax" > +1); < / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > < =< / span > < span class = "identifier-syntax" > Wordings::last_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > k< / 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" > Lexer::word< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > Lexer::word< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > x_m< / span > < span class = "plain-syntax" > +1)) { < / span > < span class = "identifier-syntax" > j< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / 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" > j< / span > < span class = "plain-syntax" > < 0) { < / span > < span class = "identifier-syntax" > fc< / span > < span class = "plain-syntax" > =2; < / span > < span class = "reserved-syntax" > goto< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DontInclude< / 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" > j< / span > < span class = "plain-syntax" > -1 > = < / span > < span class = "identifier-syntax" > w_m< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > parameter< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parc< / span > < span class = "plain-syntax" > ] = < / span > < span class = "identifier-syntax" > Wordings::new< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > w_m< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > j< / span > < span class = "plain-syntax" > -1);< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > parc< / span > < span class = "plain-syntax" > ++;< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > parameter< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parc< / span > < span class = "plain-syntax" > ] = < / span > < span class = "identifier-syntax" > EMPTY_WORDING< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > parc< / span > < span class = "plain-syntax" > ++;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > w_m< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > j< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > x_m< / span > < span class = "plain-syntax" > ++;< / span >
< span class = "plain-syntax" > }< / 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" > x_ended< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / 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" > w_m< / span > < span class = "plain-syntax" > > < / span > < span class = "identifier-syntax" > Wordings::last_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > )) & & (< / span > < span class = "identifier-syntax" > x_ended< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > FALSE< / 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" > abbreviable< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > x_ended< / 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" > else< / span > < span class = "plain-syntax" > { < / span > < span class = "identifier-syntax" > fc< / span > < span class = "plain-syntax" > =3; < / span > < span class = "reserved-syntax" > goto< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DontInclude< / span > < span class = "plain-syntax" > ; }< / 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" > x_m< / span > < span class = "plain-syntax" > < = < / span > < span class = "identifier-syntax" > Wordings::last_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > XW< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > abbreviation_level< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Wordings::last_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > XW< / span > < span class = "plain-syntax" > )-< / span > < span class = "identifier-syntax" > x_m< / span > < span class = "plain-syntax" > +1;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inc< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / 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" > w_m< / span > < span class = "plain-syntax" > > < / span > < span class = "identifier-syntax" > Wordings::last_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > inc< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
2020-05-09 15:07:39 +03:00
< 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 = "function-syntax" > < anl-in-tail> < / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Wordings::from< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > w_m< / span > < span class = "plain-syntax" > ))) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > in_clause< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > GET_RW< / span > < span class = "plain-syntax" > (< / span > < span class = "function-syntax" > < anl-in-tail> < / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inc< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< 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 > < a href = "4-act.html#SP32" class = "function-link" > < span class = "function-syntax" > PL::Actions::can_have_parameters< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > an< / span > < span class = "plain-syntax" > )) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl_being_parsed< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > ;< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "function-syntax" > < anl-to-tail> < / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Wordings::from< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > w_m< / span > < span class = "plain-syntax" > ))) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inc< / 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 = "identifier-syntax" > anl_being_parsed< / 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" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inc< / 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" > anl_list< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > anl_list< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl_list< / span > < span class = "plain-syntax" > , *< / span > < span class = "identifier-syntax" > prev< / 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" > while< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > abbreviation_level< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > abbreviation_level< / span > < span class = "plain-syntax" > ))< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > prev< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / 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" > prev< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > prev< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl_list< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_anl< / span > < span class = "plain-syntax" > = < / span > < a href = "4-anl.html#SP2" class = "function-link" > < span class = "function-syntax" > PL::Actions::Lists::anl_new< / span > < / a > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DontInclude:< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ACTION_PATTERN_PARSING< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Parsing ANL from %W resulted in:\n$L\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > anl_list< / 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" > anl_list< / 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" > scanning_anl_only_mode< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > PL::Actions::Lists::extract_actions_only< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl< / 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" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > s< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > scanning_anl_only_mode< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > scanning_anl_only_mode< / 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" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > s2< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > permit_trying_omission< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > permit_trying_omission< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "function-syntax" > < action-pattern> < / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > )) {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > = < / span > < a href = "4-ap.html#SP4" class = "function-link" > < span class = "function-syntax" > PL::Actions::Patterns::list< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "function-syntax" > < < rp> > < / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > anyone_specified< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "function-syntax" > < < r> > < / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > ACTOR_EXPLICITLY_UNIVERSAL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > anyone_specified< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > scanning_anl_only_mode< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > s< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > permit_trying_omission< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > s2< / 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" > anl< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > action_name< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > PL::Actions::Lists::get_single_action< / span > < button class = "popup" onclick = "togglePopup('usagePopup8')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup8" > Usage of < span class = "code-font" > < span class = "function-syntax" > PL::Actions::Lists::get_single_action< / span > < / span > :< br / > Action Patterns - < a href = "4-ap.html#SP25_3" > § 25.3< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > posn< / span > < span class = "plain-syntax" > = -1, < / span > < span class = "identifier-syntax" > matchl< / span > < span class = "plain-syntax" > = -1;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > action_name< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anf< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > RULE_ATTACHMENTS< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Getting single action from:\n$L\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl< / 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" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > == -1) < / span > < span class = "reserved-syntax" > return< / 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > negate_pattern< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > ) {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > = < / span > < a href = "4-act.html#SP21" class = "function-link" > < span class = "function-syntax" > PL::Actions::get_stem_length< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > ) - < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > abbreviation_level< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > word_position< / span > < span class = "plain-syntax" > != < / span > < span class = "identifier-syntax" > posn< / 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" > posn< / span > < span class = "plain-syntax" > > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > posn< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > word_position< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anf< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > matchl< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / 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" > k< / span > < span class = "plain-syntax" > > < / span > < span class = "identifier-syntax" > matchl< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > matchl< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anf< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > RULE_ATTACHMENTS< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Posn %d AN $l\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > posn< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > anf< / 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" > anf< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > PL::Actions::Lists::get_explicit_anyone_flag< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl< / 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" > anl< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / 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 > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > anyone_specified< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > PL::Actions::Lists::negated< / span > < button class = "popup" onclick = "togglePopup('usagePopup9')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup9" > Usage of < span class = "code-font" > < span class = "function-syntax" > PL::Actions::Lists::negated< / span > < / span > :< br / > Action Patterns - < a href = "4-ap.html#SP33_1" > § 33.1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / 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 > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > negate_pattern< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > PL::Actions::Lists::compile< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > OUTPUT_STREAM< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl< / 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" > anl< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ACTION_PATTERN_COMPILATION< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "CANL: $L"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "("< / 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" > optimise< / 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" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / 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" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > nap_listed< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > optimise< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / 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" > optimise< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "action %s"< / span > < span class = "plain-syntax" > , (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > parity< / span > < span class = "plain-syntax" > ==1)?< / span > < span class = "string-syntax" > "=="< / span > < span class = "plain-syntax" > :< / span > < span class = "string-syntax" > "~="< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / span > < span class = "plain-syntax" > ) {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "%n"< / span > < span class = "plain-syntax" > , < / span > < a href = "4-act.html#SP20" class = "function-link" > < span class = "function-syntax" > PL::Actions::double_sharp< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > ));< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > " or "< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / 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" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > == -1) < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "(~~"< / 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" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > nap_listed< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "(%n())"< / span > < span class = "plain-syntax" > , < / span > < a href = "4-nap.html#SP2" class = "function-link" > < span class = "function-syntax" > PL::Actions::Patterns::Named::identifier< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > nap_listed< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "action == %n"< / span > < span class = "plain-syntax" > , < / span > < a href = "4-act.html#SP20" class = "function-link" > < span class = "function-syntax" > PL::Actions::double_sharp< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > ));< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > == -1) < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > ")"< / 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" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > " || "< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > ")"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > PL::Actions::Lists::emit< / span > < button class = "popup" onclick = "togglePopup('usagePopup10')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup10" > Usage of < span class = "code-font" > < span class = "function-syntax" > PL::Actions::Lists::emit< / span > < / span > :< br / > Action Patterns - < a href = "4-ap.html#SP33_1_1_1" > § 33.1.1.1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ACTION_PATTERN_COMPILATION< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "CANL: $L"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > anl< / 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" > C< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > C< / 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" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > == -1) { < / span > < span class = "identifier-syntax" > Produce::inv_primitive< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / span > < span class = "plain-syntax" > (), < / span > < span class = "identifier-syntax" > NOT_BIP< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > Produce::down< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / 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" > N< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > downs< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / 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" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > != < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "mixed parity"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / 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" > N< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > C< / span > < span class = "plain-syntax" > ) { < / span > < span class = "identifier-syntax" > Produce::inv_primitive< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / span > < span class = "plain-syntax" > (), < / span > < span class = "identifier-syntax" > OR_BIP< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > Produce::down< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / span > < span class = "plain-syntax" > ()); < / span > < span class = "identifier-syntax" > downs< / 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" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > nap_listed< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::inv_primitive< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / span > < span class = "plain-syntax" > (), < / span > < span class = "identifier-syntax" > INDIRECT0_BIP< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::down< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / span > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::val_iname< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / span > < span class = "plain-syntax" > (), < / span > < span class = "identifier-syntax" > K_value< / span > < span class = "plain-syntax" > , < / span > < a href = "4-nap.html#SP2" class = "function-link" > < span class = "function-syntax" > PL::Actions::Patterns::Named::identifier< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > nap_listed< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::up< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / span > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::inv_primitive< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / 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" > Produce::down< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / span > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::val_iname< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / span > < span class = "plain-syntax" > (), < / span > < span class = "identifier-syntax" > K_value< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Hierarchy::find< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ACTION_HL< / span > < span class = "plain-syntax" > ));< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::val_iname< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / span > < span class = "plain-syntax" > (), < / span > < span class = "identifier-syntax" > K_value< / span > < span class = "plain-syntax" > , < / span > < a href = "4-act.html#SP20" class = "function-link" > < span class = "function-syntax" > PL::Actions::double_sharp< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > ));< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::up< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / span > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > downs< / span > < span class = "plain-syntax" > > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) { < / span > < span class = "identifier-syntax" > Produce::up< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / span > < span class = "plain-syntax" > ()); < / span > < span class = "identifier-syntax" > downs< / 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" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > == -1) < / span > < span class = "identifier-syntax" > Produce::up< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Emit::tree< / span > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP10" class = "paragraph-anchor" > < / a > < b > § 10. Specificity of ANLs. < / b > The following is one of Inform's standardised comparison routines, which
2019-03-17 14:40:57 +02:00
takes a pair of objects A, B and returns 1 if A makes a more specific
2020-04-14 19:56:54 +03:00
description than B, 0 if they seem equally specific, or \(-1\) if B makes a
2019-03-17 14:40:57 +02:00
more specific description than A. This is transitive, and intended to be
used in sorting algorithms.
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > PL::Actions::Lists::compare_specificity< / span > < button class = "popup" onclick = "togglePopup('usagePopup11')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup11" > Usage of < span class = "code-font" > < span class = "function-syntax" > PL::Actions::Lists::compare_specificity< / span > < / span > :< br / > Action Patterns - < a href = "4-ap.html#SP26" > § 26< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl1< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl2< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > count1< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > count2< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > count1< / span > < span class = "plain-syntax" > = < / span > < a href = "4-anl.html#SP11" class = "function-link" > < span class = "function-syntax" > PL::Actions::Lists::count_actions_covered< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl1< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > count2< / span > < span class = "plain-syntax" > = < / span > < a href = "4-anl.html#SP11" class = "function-link" > < span class = "function-syntax" > PL::Actions::Lists::count_actions_covered< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > anl2< / 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" > count1< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > count2< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 1< / 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" > count1< / span > < span class = "plain-syntax" > > < / span > < span class = "identifier-syntax" > count2< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > -1;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-18 00:57:45 +03:00
< p class = "commentary firstcommentary" > < a id = "SP11" class = "paragraph-anchor" > < / a > < b > § 11. < / b > Where:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > PL::Actions::Lists::count_actions_covered< / span > < button class = "popup" onclick = "togglePopup('usagePopup12')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup12" > Usage of < span class = "code-font" > < span class = "function-syntax" > PL::Actions::Lists::count_actions_covered< / span > < / span > :< br / > < a href = "4-anl.html#SP10" > § 10< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > anl< / 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" > k< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > parity< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > infinity< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NUMBER_CREATED< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > action_name< / 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" > anl< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > infinity< / 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" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > negate_pattern< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > parity< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / 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" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > nap_listed< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > continue< / 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" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parity< / span > < span class = "plain-syntax" > == -1) < / span > < span class = "identifier-syntax" > parity< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / 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" > anl< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > action_listed< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > infinity< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > ++;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > infinity< / span > < span class = "plain-syntax" > ;< / 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" > parity< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > infinity< / span > < span class = "plain-syntax" > -< / span > < span class = "identifier-syntax" > k< / 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" > k< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< nav role = "progress" > < div class = "progresscontainer" >
< ul class = "progressbar" > < li class = "progressprev" > < a href = "4-act.html" > ❮ < / a > < / li > < li class = "progresschapter" > < a href = "1-im.html" > 1< / a > < / li > < li class = "progresschapter" > < a href = "2-ifi.html" > 2< / a > < / li > < li class = "progresschapter" > < a href = "3-tnt.html" > 3< / a > < / li > < li class = "progresscurrentchapter" > 4< / li > < li class = "progresssection" > < a href = "4-act.html" > act< / a > < / li > < li class = "progresscurrent" > anl< / li > < li class = "progresssection" > < a href = "4-ap.html" > ap< / a > < / li > < li class = "progresssection" > < a href = "4-los.html" > los< / a > < / li > < li class = "progresssection" > < a href = "4-nap.html" > nap< / a > < / li > < li class = "progresssection" > < a href = "4-ai.html" > ai< / a > < / li > < li class = "progresschapter" > < a href = "5-itg.html" > 5< / a > < / li > < li class = "progressnext" > < a href = "4-ap.html" > ❯ < / a > < / li > < / ul > < / div >
< / nav > <!-- End of weave -->
2020-04-14 19:56:54 +03:00
2020-03-19 02:11:25 +02:00
< / main >
2019-03-17 14:40:57 +02:00
< / body >
< / html >