2021-08-13 01:31:23 +03:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
< title > C Program Control< / title >
< link href = "../docs-assets/Breadcrumbs.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< meta name = "viewport" content = "width=device-width initial-scale=1" >
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
< link href = "../docs-assets/Contents.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Progress.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Navigation.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Fonts.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Base.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< script >
function togglePopup(material_id) {
var popup = document.getElementById(material_id);
popup.classList.toggle("show");
}
< / script >
< link href = "../docs-assets/Popups.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Colours.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< / head >
< body class = "commentary-font" >
< nav role = "navigation" >
< h1 > < a href = "../index.html" >
< img src = "../docs-assets/Inform.png" height = 72" >
< / a > < / h1 >
< ul > < li > < a href = "../compiler.html" > compiler tools< / a > < / li >
< 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 >
< / ul > < h2 > Compiler Webs< / h2 > < ul >
< 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 >
< / ul > < h2 > Inbuild Modules< / h2 > < ul >
< li > < a href = "../supervisor-module/index.html" > supervisor< / a > < / li >
< / ul > < h2 > Inform7 Modules< / h2 > < ul >
< li > < a href = "../core-module/index.html" > core< / a > < / li >
< li > < a href = "../assertions-module/index.html" > assertions< / a > < / li >
< li > < a href = "../values-module/index.html" > values< / a > < / li >
< li > < a href = "../knowledge-module/index.html" > knowledge< / a > < / li >
< li > < a href = "../imperative-module/index.html" > imperative< / a > < / li >
< li > < a href = "../runtime-module/index.html" > runtime< / a > < / li >
< li > < a href = "../if-module/index.html" > if< / a > < / li >
< li > < a href = "../multimedia-module/index.html" > multimedia< / a > < / li >
< li > < a href = "../index-module/index.html" > index< / a > < / li >
< / ul > < h2 > Inter Modules< / h2 > < ul >
< li > < a href = "../bytecode-module/index.html" > bytecode< / a > < / li >
< li > < a href = "../building-module/index.html" > building< / a > < / li >
< li > < a href = "../pipeline-module/index.html" > pipeline< / a > < / li >
< li > < a href = "index.html" > < span class = "selectedlink" > final< / span > < / a > < / li >
< / ul > < h2 > Services< / h2 > < ul >
< li > < a href = "../arch-module/index.html" > arch< / a > < / li >
< li > < a href = "../calculus-module/index.html" > calculus< / a > < / li >
< li > < a href = "../html-module/index.html" > html< / a > < / li >
< li > < a href = "../inflections-module/index.html" > inflections< / a > < / li >
< li > < a href = "../kinds-module/index.html" > kinds< / a > < / li >
< li > < a href = "../linguistics-module/index.html" > linguistics< / a > < / li >
< li > < a href = "../problems-module/index.html" > problems< / 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 = "../../../inweb/docs/foundation-module/index.html" > foundation< / a > < / li >
< / ul >
< / nav >
< main role = "main" >
<!-- Weave of 'C Program Control' generated by Inweb -->
< div class = "breadcrumbs" >
2021-10-11 03:11:20 +03:00
< ul class = "crumbs" > < li > < a href = "../index.html" > Home< / a > < / li > < li > < a href = "../compiler.html" > Inter Modules< / a > < / li > < li > < a href = "index.html" > final< / a > < / li > < li > < a href = "index.html#5" > Chapter 5: C< / a > < / li > < li > < b > C Program Control< / b > < / li > < / ul > < / div >
2021-08-13 01:31:23 +03:00
< p class = "purpose" > Generating C code to effect loops, branches and the like.< / p >
2021-11-01 02:07:47 +02:00
< p class = "commentary firstcommentary" > < a id = "SP1" class = "paragraph-anchor" > < / a > < b > § 1. < / b > This is as good a place as any to provide the general function for compiling
invocations of primitives. There are a lot of primitives, so the actual work is
distributed throughout this chapter.
< / p >
2021-08-13 01:31:23 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-22 19:28:55 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CProgramControl::initialise< / 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" > CProgramControl::initialise< / span > < / span > :< br / > Final C - < a href = "5-fnc.html#SP1" > § 1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > code_generator< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > cgt< / span > < span class = "plain-syntax" > ) {< / span >
2021-09-25 20:21:49 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > METHOD_ADD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > c_target< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > INVOKE_PRIMITIVE_MTID< / span > < span class = "plain-syntax" > , < / span > < a href = "5-cpc.html#SP1" class = "function-link" > < span class = "function-syntax" > CProgramControl::invoke_primitive< / span > < / a > < span class = "plain-syntax" > );< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > }< / span >
2021-09-25 20:21:49 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CProgramControl::invoke_primitive< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > code_generator< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > cgt< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > code_generation< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prim_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > void_context< / span > < span class = "plain-syntax" > ) {< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > from< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_ti< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > bip< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Primitives::to_bip< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prim_name< / span > < span class = "plain-syntax" > );< / span >
2021-10-25 12:22:54 +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 > < a href = "5-crf.html#SP2" class = "function-link" > < span class = "function-syntax" > CReferences::invoke_primitive< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > bip< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
2021-09-25 20:21:49 +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 = "identifier-syntax" > NOT_APPLICABLE< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > r< / span > < span class = "plain-syntax" > = < / span > < a href = "5-car.html#SP1" class = "function-link" > < span class = "function-syntax" > CArithmetic::invoke_primitive< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > bip< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
2021-10-26 01:59:20 +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 = "identifier-syntax" > NOT_APPLICABLE< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > r< / span > < span class = "plain-syntax" > = < / span > < a href = "5-cmm.html#SP8" class = "function-link" > < span class = "function-syntax" > CMemoryModel::invoke_primitive< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > bip< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
2021-11-06 16:35:25 +02: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 = "identifier-syntax" > NOT_APPLICABLE< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > r< / span > < span class = "plain-syntax" > = < / span > < a href = "5-cfm.html#SP15" class = "function-link" > < span class = "function-syntax" > CFunctionModel::invoke_primitive< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > bip< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
2021-10-14 01:11:42 +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 = "identifier-syntax" > NOT_APPLICABLE< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > r< / span > < span class = "plain-syntax" > = < / span > < a href = "5-com.html#SP9" class = "function-link" > < span class = "function-syntax" > CObjectModel::invoke_primitive< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > bip< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
2021-09-25 20:21:49 +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 = "identifier-syntax" > NOT_APPLICABLE< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > r< / span > < span class = "plain-syntax" > = < / span > < a href = "5-cim.html#SP2" class = "function-link" > < span class = "function-syntax" > CInputOutputModel::invoke_primitive< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > bip< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / 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" > r< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NOT_APPLICABLE< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > r< / span > < span class = "plain-syntax" > = < / span > < a href = "5-ccn.html#SP1" class = "function-link" > < span class = "function-syntax" > CConditions::invoke_primitive< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > bip< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
2021-11-01 02:07:47 +02: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 = "identifier-syntax" > NOT_APPLICABLE< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > r< / span > < span class = "plain-syntax" > = < / span > < a href = "5-cpc.html#SP2" class = "function-link" > < span class = "function-syntax" > CProgramControl::compile_control_primitive< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > bip< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
2021-09-25 20:21:49 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > void_context< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > r< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )) {< / span >
2021-10-10 16:53:42 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > OUT< / span > < span class = "plain-syntax" > = < / span > < a href = "2-cg.html#SP12" class = "function-link" > < span class = "function-syntax" > CodeGen::current< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > );< / span >
2021-09-25 20:21:49 +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 >
< span class = "plain-syntax" > }< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > }< / span >
2021-11-01 02:07:47 +02:00
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP2" class = "paragraph-anchor" > < / a > < b > § 2. < / b > And the rest of this section implements the primitives to do with execution
control: branches, loops and so on.
< / p >
2021-08-13 01:31:23 +03:00
2021-11-01 02:07:47 +02: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" > CProgramControl::compile_control_primitive< / 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" > CProgramControl::compile_control_primitive< / span > < / span > :< br / > < a href = "5-cpc.html#SP1" > § 1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > code_generation< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_ti< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > bip< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > ) {< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
2021-10-10 16:53:42 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > OUT< / span > < span class = "plain-syntax" > = < / span > < a href = "2-cg.html#SP12" class = "function-link" > < span class = "function-syntax" > CodeGen::current< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > );< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > from< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > switch< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > bip< / span > < span class = "plain-syntax" > ) {< / span >
2021-11-01 02:07:47 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PUSH_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "i7_push(proc, "< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / 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 = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PULL_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > VNODE_1C< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > " = i7_pull(proc)"< / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > IF_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-cpc.html#SP2_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Generate primitive for if< / span > < span class = "named-paragraph-number" > 2.1< / span > < / a > < / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > IFDEBUG_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-cpc.html#SP2_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Generate primitive for ifdebug< / span > < span class = "named-paragraph-number" > 2.2< / span > < / a > < / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > IFSTRICT_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-cpc.html#SP2_3" class = "named-paragraph-link" > < span class = "named-paragraph" > Generate primitive for ifstrict< / span > < span class = "named-paragraph-number" > 2.3< / span > < / a > < / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > IFELSE_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-cpc.html#SP2_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Generate primitive for ifelse< / span > < span class = "named-paragraph-number" > 2.4< / span > < / a > < / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BREAK_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "break"< / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CONTINUE_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "continue"< / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > JUMP_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "goto "< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > QUIT_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "i7_benign_exit(proc)"< / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > RESTORE_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "i7_opcode_restore(proc, 0, NULL)"< / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > RETURN_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "return (i7word_t) "< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WHILE_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-cpc.html#SP2_5" class = "named-paragraph-link" > < span class = "named-paragraph" > Generate primitive for while< / span > < span class = "named-paragraph-number" > 2.5< / span > < / a > < / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DO_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-cpc.html#SP2_6" class = "named-paragraph-link" > < span class = "named-paragraph" > Generate primitive for do< / span > < span class = "named-paragraph-number" > 2.6< / span > < / a > < / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FOR_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-cpc.html#SP2_7" class = "named-paragraph-link" > < span class = "named-paragraph" > Generate primitive for for< / span > < span class = "named-paragraph-number" > 2.7< / span > < / a > < / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > OBJECTLOOP_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-cpc.html#SP2_8" class = "named-paragraph-link" > < span class = "named-paragraph" > Generate primitive for objectloop< / span > < span class = "named-paragraph-number" > 2.8< / span > < / a > < / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > OBJECTLOOPX_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-cpc.html#SP2_9" class = "named-paragraph-link" > < span class = "named-paragraph" > Generate primitive for objectloopx< / span > < span class = "named-paragraph-number" > 2.9< / span > < / a > < / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-cpc.html#SP2_10" class = "named-paragraph-link" > < span class = "named-paragraph" > Generate primitive for loop< / span > < span class = "named-paragraph-number" > 2.10< / span > < / a > < / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SWITCH_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-cpc.html#SP2_11" class = "named-paragraph-link" > < span class = "named-paragraph" > Generate primitive for switch< / span > < span class = "named-paragraph-number" > 2.11< / span > < / a > < / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CASE_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-cpc.html#SP2_12" class = "named-paragraph-link" > < span class = "named-paragraph" > Generate primitive for case< / span > < span class = "named-paragraph-number" > 2.12< / span > < / a > < / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DEFAULT_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-cpc.html#SP2_14" class = "named-paragraph-link" > < span class = "named-paragraph" > Generate primitive for default< / span > < span class = "named-paragraph-number" > 2.14< / span > < / a > < / 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" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ALTERNATIVECASE_BIP:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "misplaced !alternativecase"< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > default:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "unimplemented prim"< / 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" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
2021-11-01 02:07:47 +02:00
< p class = "commentary firstcommentary" > < a id = "SP2_1" class = "paragraph-anchor" > < / a > < b > § 2.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Generate primitive for if< / span > < span class = "named-paragraph-number" > 2.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-08-13 01:31:23 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-24 01:48:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "if ("< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / 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 > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_2C< / span > < span class = "plain-syntax" > ;< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > OUTDENT< / 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 >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
2021-11-01 02:07:47 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-cpc.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_2" class = "paragraph-anchor" > < / a > < b > § 2.2. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Generate primitive for ifdebug< / span > < span class = "named-paragraph-number" > 2.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-08-13 01:31:23 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-24 01:48:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "#ifdef DEBUG\n"< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_1C< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > OUTDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "#endif\n"< / span > < span class = "plain-syntax" > );< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
2021-11-01 02:07:47 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-cpc.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_3" class = "paragraph-anchor" > < / a > < b > § 2.3. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Generate primitive for ifstrict< / span > < span class = "named-paragraph-number" > 2.3< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-08-13 01:31:23 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-24 01:48:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "#ifdef STRICT_MODE\n"< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_1C< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > OUTDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "#endif\n"< / span > < span class = "plain-syntax" > );< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
2021-11-01 02:07:47 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-cpc.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_4" class = "paragraph-anchor" > < / a > < b > § 2.4. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Generate primitive for ifelse< / span > < span class = "named-paragraph-number" > 2.4< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-08-13 01:31:23 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-24 01:48:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "if ("< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / 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 > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_2C< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > OUTDENT< / 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" > "} else {\n"< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_3C< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > OUTDENT< / 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 >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
2021-11-01 02:07:47 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-cpc.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_5" class = "paragraph-anchor" > < / a > < b > § 2.5. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Generate primitive for while< / span > < span class = "named-paragraph-number" > 2.5< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-08-13 01:31:23 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-24 01:48:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "while ("< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / 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 > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_2C< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > OUTDENT< / 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 >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
2021-11-01 02:07:47 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-cpc.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_6" class = "paragraph-anchor" > < / a > < b > § 2.6. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Generate primitive for do< / span > < span class = "named-paragraph-number" > 2.6< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-08-13 01:31:23 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-24 01:48:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "do {"< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_2C< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "} while (!(\n"< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_1C< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > OUTDENT< / 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 >
2021-08-13 01:31:23 +03:00
< / pre >
2021-11-01 02:07:47 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-cpc.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_7" class = "paragraph-anchor" > < / a > < b > § 2.7. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Generate primitive for for< / span > < span class = "named-paragraph-number" > 2.7< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-08-13 01:31:23 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "for ("< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > INIT< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > InterTree::first_child< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
2021-11-01 02:07:47 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (!((< / span > < span class = "identifier-syntax" > INIT< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > data< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > ID_IFLD< / span > < span class = "plain-syntax" > ] == < / span > < span class = "identifier-syntax" > VAL_IST< / span > < span class = "plain-syntax" > ) & & < / span >
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > INIT< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > data< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > VAL1_VAL_IFLD< / span > < span class = "plain-syntax" > ] == < / span > < span class = "identifier-syntax" > LITERAL_IVAL< / span > < span class = "plain-syntax" > ) & & < / span >
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > INIT< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > data< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > VAL2_VAL_IFLD< / span > < span class = "plain-syntax" > ] == < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ))) < / span > < span class = "constant-syntax" > VNODE_1C< / span > < span class = "plain-syntax" > ;< / span >
2021-09-24 01:48:56 +03:00
< 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 = "constant-syntax" > VNODE_2C< / span > < span class = "plain-syntax" > ;< / span >
2021-08-13 01:31:23 +03:00
< 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 = "identifier-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > U< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > InterTree::third_child< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / 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" > U< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > data< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > ID_IFLD< / span > < span class = "plain-syntax" > ] != < / span > < span class = "identifier-syntax" > VAL_IST< / span > < span class = "plain-syntax" > )< / span >
2021-10-10 16:53:42 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-vnl.html#SP3" class = "function-link" > < span class = "function-syntax" > Vanilla::node< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > U< / span > < span class = "plain-syntax" > );< / span >
2021-09-24 01:48:56 +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 > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_4C< / span > < span class = "plain-syntax" > ;< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > OUTDENT< / 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 >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
2021-11-01 02:07:47 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-cpc.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_8" class = "paragraph-anchor" > < / a > < b > § 2.8. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Generate primitive for objectloop< / span > < span class = "named-paragraph-number" > 2.8< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-08-13 01:31:23 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > in_flag< / 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" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > U< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > InterTree::third_child< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
2021-11-01 02:07:47 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > U< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > data< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > ID_IFLD< / span > < span class = "plain-syntax" > ] == < / span > < span class = "identifier-syntax" > INV_IST< / span > < span class = "plain-syntax" > ) & & < / span >
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > U< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > data< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > METHOD_INV_IFLD< / span > < span class = "plain-syntax" > ] == < / span > < span class = "identifier-syntax" > INVOKED_PRIMITIVE< / span > < span class = "plain-syntax" > )) {< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prim< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Inv::invokee< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > U< / 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" > prim< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > Primitives::to_bip< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prim< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > IN_BIP< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > in_flag< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2021-09-24 01:48:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "for (i7word_t "< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / 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" > " = 1; "< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / 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" > " < i7_max_objects; "< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / span > < span class = "plain-syntax" > ;< / span >
2021-08-13 01:31:23 +03:00
< 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > in_flag< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) {< / span >
2021-09-24 01:48:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "if (i7_ofclass(proc, "< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / 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 = "constant-syntax" > VNODE_2C< / 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 >
2021-08-13 01:31:23 +03:00
< 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" > "if ("< / span > < span class = "plain-syntax" > );< / span >
2021-09-24 01:48:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "constant-syntax" > VNODE_3C< / 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 > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_4C< / span > < span class = "plain-syntax" > ;< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > OUTDENT< / 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 >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
2021-11-01 02:07:47 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-cpc.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_9" class = "paragraph-anchor" > < / a > < b > § 2.9. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Generate primitive for objectloopx< / span > < span class = "named-paragraph-number" > 2.9< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-08-13 01:31:23 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-24 01:48:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "for (i7word_t "< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / 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" > " = 1; "< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / 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" > " < i7_max_objects; "< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / span > < span class = "plain-syntax" > ;< / span >
2021-08-13 01:31:23 +03:00
< 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 >
2021-09-24 01:48:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "if (i7_ofclass(proc, "< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / 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 = "constant-syntax" > VNODE_2C< / 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 = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > " {\n"< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_3C< / span > < span class = "plain-syntax" > ;< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > OUTDENT< / 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 >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
2021-11-01 02:07:47 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-cpc.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_10" class = "paragraph-anchor" > < / a > < b > § 2.10. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Generate primitive for loop< / span > < span class = "named-paragraph-number" > 2.10< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-08-13 01:31:23 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-24 01:48:56 +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 > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_1C< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > OUTDENT< / 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 >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
2021-11-01 02:07:47 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-cpc.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_11" class = "paragraph-anchor" > < / a > < b > § 2.11. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Generate primitive for switch< / span > < span class = "named-paragraph-number" > 2.11< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-08-13 01:31:23 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-24 01:48:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "switch ("< / span > < span class = "plain-syntax" > ); < / span > < span class = "constant-syntax" > VNODE_1C< / 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 > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_2C< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > OUTDENT< / 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 >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
2021-11-01 02:07:47 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-cpc.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_12" class = "paragraph-anchor" > < / a > < b > § 2.12. < / b > Inter permits multiple match values to be supplied for a single case in a
< span class = "extract" > < span class = "extract-syntax" > !switch< / span > < / span > primitive: but C does not allow this for its keyword < span class = "extract" > < span class = "extract-syntax" > case< / span > < / span > , so we
have to recurse downwards through the possibilities and preface each one by
< span class = "extract" > < span class = "extract-syntax" > case:< / span > < / span > . For example,
2021-08-13 01:31:23 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-11-01 02:07:47 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inv< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > !switch< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > inv< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > !alternativecase< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > val< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K_number< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 3< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > val< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K_number< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 7< / span >
< span class = "plain-syntax" > ...< / span >
2021-08-13 01:31:23 +03:00
< / pre >
2021-11-01 02:07:47 +02:00
< p class = "commentary" > becomes < span class = "extract" > < span class = "extract-syntax" > case 3: case 7:< / span > < / span > .
< / p >
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Generate primitive for case< / span > < span class = "named-paragraph-number" > 2.12< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-08-13 01:31:23 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-11-01 02:07:47 +02:00
< span class = "plain-syntax" > < / span > < a href = "5-cpc.html#SP2_13" class = "function-link" > < span class = "function-syntax" > CProgramControl::caser< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > InterTree::first_child< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_2C< / 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 > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "break;\n"< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > OUTDENT< / span > < span class = "plain-syntax" > ;< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
2021-11-01 02:07:47 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-cpc.html#SP2" > § 2< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2_13" class = "paragraph-anchor" > < / a > < b > § 2.13. < / b > < / p >
2021-08-13 01:31:23 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-11-01 02:07:47 +02:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CProgramControl::caser< / 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" > CProgramControl::caser< / span > < / span > :< br / > < a href = "5-cpc.html#SP2_12" > § 2.12< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > code_generation< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ) {< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > data< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > ID_IFLD< / span > < span class = "plain-syntax" > ] == < / span > < span class = "identifier-syntax" > INV_IST< / 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< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > data< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > METHOD_INV_IFLD< / span > < span class = "plain-syntax" > ] == < / span > < span class = "identifier-syntax" > INVOKED_PRIMITIVE< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prim< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Inv::invokee< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_ti< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > xbip< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Primitives::to_bip< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > from< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prim< / 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" > xbip< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > ALTERNATIVECASE_BIP< / span > < span class = "plain-syntax" > ) {< / span >
2021-11-01 02:07:47 +02:00
< span class = "plain-syntax" > < / span > < a href = "5-cpc.html#SP2_13" class = "function-link" > < span class = "function-syntax" > CProgramControl::caser< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > InterTree::first_child< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < a href = "5-cpc.html#SP2_13" class = "function-link" > < span class = "function-syntax" > CProgramControl::caser< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > InterTree::second_child< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ));< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2021-10-10 16:53:42 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > OUT< / span > < span class = "plain-syntax" > = < / span > < a href = "2-cg.html#SP12" class = "function-link" > < span class = "function-syntax" > CodeGen::current< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > );< / span >
2021-08-13 01:31:23 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "case "< / span > < span class = "plain-syntax" > );< / span >
2021-10-10 16:53:42 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-vnl.html#SP3" class = "function-link" > < span class = "function-syntax" > Vanilla::node< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > );< / span >
2021-08-13 01:31:23 +03:00
< 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 >
< / pre >
2021-11-01 02:07:47 +02:00
< p class = "commentary firstcommentary" > < a id = "SP2_14" class = "paragraph-anchor" > < / a > < b > § 2.14. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Generate primitive for default< / span > < span class = "named-paragraph-number" > 2.14< / span > < / span > < span class = "comment-syntax" > =< / span >
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "default:\n"< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > INDENT< / span > < span class = "plain-syntax" > ; < / span > < span class = "constant-syntax" > VNODE_1C< / 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 > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "break;\n"< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > OUTDENT< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > suppress_terminal_semicolon< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-cpc.html#SP2" > § 2< / a > .< / li > < / ul >
2021-08-13 01:31:23 +03:00
< nav role = "progress" > < div class = "progresscontainer" >
2021-11-03 01:34:24 +02:00
< ul class = "progressbar" > < li class = "progressprev" > < a href = "5-car.html" > ❮ < / a > < / li > < li class = "progresschapter" > < a href = "1-fm.html" > 1< / a > < / li > < li class = "progresschapter" > < a href = "2-cg.html" > 2< / a > < / li > < li class = "progresschapter" > < a href = "3-fti.html" > 3< / a > < / li > < li class = "progresschapter" > < a href = "4-fi6.html" > 4< / a > < / li > < li class = "progresscurrentchapter" > 5< / li > < li class = "progresssection" > < a href = "5-fnc.html" > fnc< / a > < / li > < li class = "progresssection" > < a href = "5-cnm.html" > cnm< / a > < / li > < li class = "progresssection" > < a href = "5-crf.html" > crf< / a > < / li > < li class = "progresssection" > < a href = "5-cgv.html" > cgv< / a > < / li > < li class = "progresssection" > < a href = "5-cmm.html" > cmm< / a > < / li > < li class = "progresssection" > < a href = "5-cas.html" > cas< / a > < / li > < li class = "progresssection" > < a href = "5-car.html" > car< / a > < / li > < li class = "progresscurrent" > cpc< / li > < li class = "progresssection" > < a href = "5-ccn.html" > ccn< / a > < / li > < li class = "progresssection" > < a href = "5-clt.html" > clt< / a > < / li > < li class = "progresssection" > < a href = "5-com.html" > com< / a > < / li > < li class = "progresssection" > < a href = "5-cfm.html" > cfm< / a > < / li > < li class = "progresssection" > < a href = "5-cim.html" > cim< / a > < / li > < li class = "progresssection" > < a href = "5-cuf.html" > cuf< / a > < / li > < li class = "progressnext" > < a href = "5-ccn.html" > ❯ < / a > < / li > < / ul > < / div >
2021-08-13 01:31:23 +03:00
< / nav > <!-- End of weave -->
< / main >
< / body >
< / html >