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 > Looping Over Scope< / title >
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-03-19 02:11:25 +02:00
< link href = "../inweb.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 >
< body >
2020-03-19 02:11:25 +02:00
< nav role = "navigation" >
2020-04-14 19:56:54 +03:00
< h1 > < a href = "../index.html" >
< img src = "../docs-src/Figures/Inform.png" height = 72" >
< / 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 = "../inflections-module/index.html" > inflections< / a > < / li >
< li > < a href = "../linguistics-module/index.html" > linguistics< / 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 >
2020-04-14 19:56:54 +03:00
< li > < a href = "../problems-module/index.html" > problems< / a > < / li >
2020-03-19 02:11:25 +02:00
< 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-04-14 19:56:54 +03:00
< / ul > < h2 > Shared Modules< / h2 > < ul >
< 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-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-04-14 19:56:54 +03:00
<!-- Weave of 'Looping Over Scope' generated by 7 -->
< 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 > Looping Over Scope< / b > < / li > < / ul > < p class = "purpose" > To compile routines capable of being passed as arguments to the I6 library routine for looping over parser scope at run-time, and so to provide an implementation for conditions such as "in the presence of Mrs Dalloway".< / p >
2019-03-17 14:40:57 +02:00
2020-04-16 01:49:59 +03:00
< ul class = "toc" > < li > < a href = "4-los.html#SP1" > § 1. Definitions< / a > < / li > < / ul > < hr class = "tocbar" >
2019-03-17 14:40:57 +02:00
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. Definitions. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > typedef< / span > < span class = "plain" > < / span > < span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > loop_over_scope< / span > < span class = "plain" > {< / span >
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > what_to_find< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > inter_name< / span > < span class = "plain" > *< / span > < span class = "identifier" > los_iname< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > MEMORY_MANAGEMENT< / span >
< span class = "plain" > } < / span > < span class = "reserved" > loop_over_scope< / span > < span class = "plain" > ;< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The structure loop_over_scope is accessed in 4/ap and here.< / p >
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. < / b > < / p >
< pre class = "display" >
2020-04-14 19:56:54 +03:00
< span class = "reserved" > loop_over_scope< / span > < span class = "plain" > *< / span > < span class = "functiontext" > PL::Actions::ScopeLoops::new< button class = "popup" onclick = "togglePopup('usagePopup480')" > ...< span class = "popuptext" id = "usagePopup480" > Usage of < b > PL::Actions::ScopeLoops::new< / b > :< br > Action Patterns - < a href = "4-ap.html#SP34_1_1_1" > § 34.1.1.1< / a > < / span > < / button > < / span > < span class = "plain" > (< / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > what< / span > < span class = "plain" > ) {< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > loop_over_scope< / span > < span class = "plain" > *< / span > < span class = "identifier" > los< / span > < span class = "plain" > = < / span > < span class = "identifier" > CREATE< / span > < span class = "plain" > (< / span > < span class = "reserved" > loop_over_scope< / span > < span class = "plain" > );< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > los< / span > < span class = "plain" > -> < / span > < span class = "element" > what_to_find< / span > < span class = "plain" > = < / span > < span class = "identifier" > ParseTree::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > what< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Specifications::is_description< / span > < span class = "plain" > (< / span > < span class = "identifier" > what< / span > < span class = "plain" > )) {< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > los< / span > < span class = "plain" > -> < / span > < span class = "element" > what_to_find< / span > < span class = "plain" > -> < / span > < span class = "identifier" > down< / span > < span class = "plain" > = < / span > < span class = "identifier" > ParseTree::duplicate< / span > < span class = "plain" > (< / span > < span class = "identifier" > los< / span > < span class = "plain" > -> < / span > < span class = "element" > what_to_find< / span > < span class = "plain" > -> < / span > < span class = "identifier" > down< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Descriptions::clear_calling< / span > < span class = "plain" > (< / span > < span class = "identifier" > los< / span > < span class = "plain" > -> < / span > < span class = "identifier" > what_to_find< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
2019-04-13 20:58:43 +03:00
< span class = "identifier" > package_request< / span > < span class = "plain" > *< / span > < span class = "identifier" > PR< / span > < span class = "plain" > = < / span > < span class = "identifier" > Hierarchy::local_package< / span > < span class = "plain" > (< / span > < span class = "identifier" > LOOP_OVER_SCOPES_HAP< / span > < span class = "plain" > );< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > los< / span > < span class = "plain" > -> < / span > < span class = "element" > los_iname< / span > < span class = "plain" > = < / span > < span class = "identifier" > Hierarchy::make_iname_in< / span > < span class = "plain" > (< / span > < span class = "identifier" > LOOP_OVER_SCOPE_FN_HL< / span > < span class = "plain" > , < / span > < span class = "identifier" > PR< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > los< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > loop_over_scope< / span > < span class = "plain" > *< / span > < span class = "identifier" > latest_los< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2020-04-14 19:56:54 +03:00
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > PL::Actions::ScopeLoops::compilation_coroutine< button class = "popup" onclick = "togglePopup('usagePopup481')" > ...< span class = "popuptext" id = "usagePopup481" > Usage of < b > PL::Actions::ScopeLoops::compilation_coroutine< / b > :< br > none< / span > < / button > < / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
2020-04-07 03:06:09 +03:00
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > N< / span > < span class = "plain" > = < / span > < span class = "constant" > 0< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > while< / span > < span class = "plain" > (< / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > loop_over_scope< / span > < span class = "plain" > *< / span > < span class = "identifier" > los< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > latest_los< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > )< / span >
< span class = "identifier" > los< / span > < span class = "plain" > = < / span > < span class = "identifier" > FIRST_OBJECT< / span > < span class = "plain" > (< / span > < span class = "reserved" > loop_over_scope< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > los< / span > < span class = "plain" > = < / span > < span class = "identifier" > NEXT_OBJECT< / span > < span class = "plain" > (< / span > < span class = "identifier" > latest_los< / span > < span class = "plain" > , < / span > < span class = "reserved" > loop_over_scope< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > los< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "reserved" > break< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > latest_los< / span > < span class = "plain" > = < / span > < span class = "identifier" > los< / span > < span class = "plain" > ;< / span >
< < span class = "cwebmacro" > Compile an individual loop-over-scope< / span > < span class = "cwebmacronumber" > 2.1< / span > > < span class = "plain" > ;< / span >
< span class = "identifier" > N< / span > < span class = "plain" > ++;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > N< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "inwebparagraph" > < a id = "SP2_1" > < / a > < b > § 2.1. < / b > < code class = "display" >
< < span class = "cwebmacrodefn" > Compile an individual loop-over-scope< / span > < span class = "cwebmacronumber" > 2.1< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > packaging_state< / span > < span class = "plain" > < / span > < span class = "identifier" > save< / span > < span class = "plain" > = < / span > < span class = "identifier" > Routines::begin< / span > < span class = "plain" > (< / span > < span class = "identifier" > los< / span > < span class = "plain" > -> < / span > < span class = "element" > los_iname< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > ph_stack_frame< / span > < span class = "plain" > *< / span > < span class = "identifier" > phsf< / span > < span class = "plain" > = < / span > < span class = "identifier" > Frames::current_stack_frame< / span > < span class = "plain" > ();< / span >
< span class = "identifier" > local_variable< / span > < span class = "plain" > *< / span > < span class = "identifier" > it_lv< / span > < span class = "plain" > = < / span > < span class = "identifier" > LocalVariables::add_pronoun< / span > < span class = "plain" > (< / span > < span class = "identifier" > phsf< / span > < span class = "plain" > , < / span > < span class = "identifier" > EMPTY_WORDING< / span > < span class = "plain" > , < / span > < span class = "identifier" > K_object< / span > < span class = "plain" > );< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > it_s< / span > < span class = "plain" > = < / span > < span class = "identifier" > LocalVariables::declare_this< / span > < span class = "plain" > (< / span > < span class = "identifier" > it_lv< / span > < span class = "plain" > , < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > , < / span > < span class = "constant" > 8< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
2019-08-31 15:56:36 +03:00
< span class = "identifier" > Produce::inv_primitive< / span > < span class = "plain" > (< / span > < span class = "identifier" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > IF_BIP< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Produce::down< / span > < span class = "plain" > (< / span > < span class = "identifier" > Emit::tree< / span > < span class = "plain" > ());< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > LocalVariables::begin_condition_emit< / span > < span class = "plain" > ();< / span >
< span class = "identifier" > value_holster< / span > < span class = "plain" > < / span > < span class = "identifier" > VH< / span > < span class = "plain" > = < / span > < span class = "identifier" > Holsters::new< / span > < span class = "plain" > (< / span > < span class = "identifier" > INTER_VAL_VHMODE< / span > < span class = "plain" > );< / span >
2020-04-07 03:06:09 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > los< / span > < span class = "plain" > -> < / span > < span class = "element" > what_to_find< / span > < span class = "plain" > ) {< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > lv_sp< / span > < span class = "plain" > = < / span > < span class = "identifier" > Lvalues::new_LOCAL_VARIABLE< / span > < span class = "plain" > (< / span > < span class = "identifier" > EMPTY_WORDING< / span > < span class = "plain" > , < / span > < span class = "identifier" > it_lv< / span > < span class = "plain" > );< / span >
2020-04-14 19:56:54 +03:00
< span class = "functiontext" > < a href = "4-ap.html#SP32" > PL::Actions::Patterns::compile_pattern_match_clause_inner< / a > < / span > < span class = "plain" > (< / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > , & < / span > < span class = "identifier" > VH< / span > < span class = "plain" > ,< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > lv_sp< / span > < span class = "plain" > , < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > , < / span > < span class = "identifier" > los< / span > < span class = "plain" > -> < / span > < span class = "element" > what_to_find< / span > < span class = "plain" > , < / span > < span class = "identifier" > K_object< / span > < span class = "plain" > , < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > } < / span > < span class = "reserved" > else< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > Produce::val< / span > < span class = "plain" > (< / span > < span class = "identifier" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > K_truth_state< / span > < span class = "plain" > , < / span > < span class = "identifier" > LITERAL_IVAL< / span > < span class = "plain" > , < / span > < span class = "constant" > 0< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "identifier" > LocalVariables::end_condition_emit< / span > < span class = "plain" > ();< / span >
2019-08-31 15:56:36 +03:00
< span class = "identifier" > Produce::code< / span > < span class = "plain" > (< / span > < span class = "identifier" > Emit::tree< / span > < span class = "plain" > ());< / span >
< span class = "identifier" > Produce::down< / span > < span class = "plain" > (< / span > < span class = "identifier" > Emit::tree< / span > < span class = "plain" > ());< / span >
< span class = "identifier" > Produce::inv_primitive< / span > < span class = "plain" > (< / span > < span class = "identifier" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > STORE_BIP< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Produce::down< / span > < span class = "plain" > (< / span > < span class = "identifier" > Emit::tree< / span > < span class = "plain" > ());< / span >
< span class = "identifier" > Produce::ref_iname< / span > < span class = "plain" > (< / span > < span class = "identifier" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > K_value< / span > < span class = "plain" > , < / span > < span class = "identifier" > Hierarchy::find< / span > < span class = "plain" > (< / span > < span class = "identifier" > LOS_RV_HL< / span > < span class = "plain" > ));< / span >
< span class = "identifier" > Produce::val_symbol< / span > < span class = "plain" > (< / span > < span class = "identifier" > Emit::tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > K_value< / span > < span class = "plain" > , < / span > < span class = "identifier" > it_s< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Produce::up< / span > < span class = "plain" > (< / span > < span class = "identifier" > Emit::tree< / span > < span class = "plain" > ());< / span >
< span class = "identifier" > Produce::up< / span > < span class = "plain" > (< / span > < span class = "identifier" > Emit::tree< / span > < span class = "plain" > ());< / span >
< span class = "identifier" > Produce::up< / span > < span class = "plain" > (< / span > < span class = "identifier" > Emit::tree< / span > < span class = "plain" > ());< / span >
2019-03-25 01:27:44 +02:00
< span class = "identifier" > Routines::end< / span > < span class = "plain" > (< / span > < span class = "identifier" > save< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
< p class = "inwebparagraph" > < / p >
2020-04-16 01:49:59 +03:00
< p class = "endnote" > This code is used in < a href = "4-los.html#SP2" > § 2< / a > .< / p >
2019-03-17 14:40:57 +02:00
< hr class = "tocbar" >
< ul class = "toc" > < li > < a href = "4-ap.html" > Back to 'Action Patterns'< / a > < / li > < li > < a href = "4-nap.html" > Continue with 'Named Action Patterns'< / a > < / li > < / ul > < hr class = "tocbar" >
2019-04-22 17:42:10 +03:00
<!-- End of weave -->
2020-04-14 19:56:54 +03:00
< script >
function togglePopup(material_id) {
var popup = document.getElementById(material_id);
popup.classList.toggle("show");
}
< / script >
< link href = "Popups.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-03-19 02:11:25 +02:00
< / main >
2019-03-17 14:40:57 +02:00
< / body >
< / html >
