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 >
2021-09-24 01:48:56 +03:00
< title > Vanilla Objects< / title >
2020-05-03 03:20:55 +03:00
< link href = "../docs-assets/Breadcrumbs.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-03-19 02:11:25 +02:00
< meta name = "viewport" content = "width=device-width initial-scale=1" >
2019-03-17 14:40:57 +02:00
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
2020-05-03 03:01:21 +03:00
2020-05-03 03:20:55 +03:00
< link href = "../docs-assets/Contents.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Progress.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Navigation.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Fonts.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Base.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-05-03 03:01:21 +03:00
< script >
function togglePopup(material_id) {
var popup = document.getElementById(material_id);
popup.classList.toggle("show");
}
< / script >
2020-05-03 03:20:55 +03:00
< link href = "../docs-assets/Popups.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-05-03 03:01:21 +03:00
< script >
MathJax = {
tex: {
inlineMath: '$', '$'], ['\\(', '\\)'
},
svg: {
fontCache: 'global'
}
};
< / script >
< script type = "text/javascript" id = "MathJax-script" async
src="https://cdn.jsdelivr.net/npm/mathjax@3/es5/tex-svg.js">
< / script >
2020-05-03 03:20:55 +03:00
< link href = "../docs-assets/Colours.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-04-14 19:56:54 +03:00
2019-03-17 14:40:57 +02:00
< / head >
2020-05-03 03:01:21 +03:00
< body class = "commentary-font" >
2020-03-19 02:11:25 +02:00
< nav role = "navigation" >
2020-04-14 19:56:54 +03:00
< h1 > < a href = "../index.html" >
2020-05-03 18:34:53 +03:00
< img src = "../docs-assets/Inform.png" height = 72" >
2020-04-14 19:56:54 +03:00
< / a > < / h1 >
< ul > < li > < a href = "../compiler.html" > compiler tools< / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../other.html" > other tools< / a > < / li >
< li > < a href = "../extensions.html" > extensions and kits< / a > < / li >
< li > < a href = "../units.html" > unit test tools< / a > < / li >
2020-04-14 19:56:54 +03:00
< / ul > < h2 > Compiler Webs< / h2 > < ul >
2020-03-19 02:11:25 +02:00
< li > < a href = "../inbuild/index.html" > inbuild< / a > < / li >
< li > < a href = "../inform7/index.html" > inform7< / a > < / li >
< li > < a href = "../inter/index.html" > inter< / a > < / li >
2020-04-14 19:56:54 +03:00
< / ul > < h2 > Inbuild Modules< / h2 > < ul >
< li > < a href = "../supervisor-module/index.html" > supervisor< / a > < / li >
< / ul > < h2 > Inform7 Modules< / h2 > < ul >
2020-03-19 02:11:25 +02:00
< li > < a href = "../core-module/index.html" > core< / a > < / li >
2020-08-27 17:50:24 +03:00
< 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 >
2020-03-19 02:11:25 +02:00
< 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 >
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 >
2021-08-10 13:01:03 +03:00
< li > < a href = "../pipeline-module/index.html" > pipeline< / a > < / li >
< li > < a href = "index.html" > < span class = "selectedlink" > final< / span > < / a > < / li >
2020-05-20 02:02:28 +03:00
< / ul > < h2 > Services< / h2 > < ul >
2020-04-14 19:56:54 +03:00
< li > < a href = "../arch-module/index.html" > arch< / a > < / li >
2020-08-27 17:50:24 +03:00
< li > < a href = "../calculus-module/index.html" > calculus< / a > < / li >
2020-04-14 19:56:54 +03:00
< li > < a href = "../html-module/index.html" > html< / a > < / li >
2020-05-20 02:02:28 +03:00
< li > < a href = "../inflections-module/index.html" > inflections< / a > < / li >
2020-08-27 17:50:24 +03:00
< li > < a href = "../kinds-module/index.html" > kinds< / a > < / li >
2020-05-20 02:02:28 +03:00
< li > < a href = "../linguistics-module/index.html" > linguistics< / a > < / li >
< li > < a href = "../problems-module/index.html" > problems< / a > < / li >
2020-08-27 17:50:24 +03:00
< li > < a href = "../syntax-module/index.html" > syntax< / a > < / li >
< li > < a href = "../words-module/index.html" > words< / 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" >
2021-09-24 01:48:56 +03:00
<!-- Weave of 'Vanilla Objects' generated by Inweb -->
2020-05-03 03:01:21 +03:00
< div class = "breadcrumbs" >
2021-09-24 01:48:56 +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#2" > Chapter 2: Mechanism< / a > < / li > < li > < b > Vanilla Objects< / b > < / li > < / ul > < / div >
< p class = "purpose" > How the vanilla code generation strategy handles instances, kinds, and properties.< / p >
2019-03-17 14:40:57 +02:00
2021-10-03 01:52:18 +03:00
< ul class = "toc" > < li > < a href = "2-vo.html#SP1_6" > § 1.6. The kind inheritance tree< / a > < / li > < li > < a href = "2-vo.html#SP1_7" > § 1.7. Lookup mechanism for properties of value instances< / a > < / li > < li > < a href = "2-vo.html#SP7" > § 7. Instances< / a > < / li > < li > < a href = "2-vo.html#SP8" > § 8. Representing instances in I6< / a > < / li > < li > < a href = "2-vo.html#SP9" > § 9. Representing properties in I6< / a > < / li > < li > < a href = "2-vo.html#SP10" > § 10. Properties< / a > < / li > < / ul > < hr class = "tocbar" >
2019-03-17 14:40:57 +02:00
2021-09-28 02:03:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1" class = "paragraph-anchor" > < / a > < b > § 1. < / b > The object model of objects, kinds, properties and their values is made all
at once, towards the end of code generation, when the following function is
called exactly once.
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-29 01:41:07 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::optimise_properties< / 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" > VanillaObjects::optimise_properties< / span > < / span > :< br / > The Vanilla Generator - < a href = "2-tvg.html#SP1_4" > § 1.4< / 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 >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_source_order< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_declaration_order< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Make a list of kinds in source order< / span > < span class = "named-paragraph-number" > 1.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Make a list of kinds in declaration order< / span > < span class = "named-paragraph-number" > 1.2< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instances_in_declaration_order< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_3" class = "named-paragraph-link" > < span class = "named-paragraph" > Make a list of instances in declaration order< / span > < span class = "named-paragraph-number" > 1.3< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2021-09-29 01:41:07 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > LinkedLists::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > unassimilated_properties< / span > < span class = "plain-syntax" > ) > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Declare and allocate properties< / span > < span class = "named-paragraph-number" > 1.4< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::generate< / 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" > VanillaObjects::generate< / span > < / span > :< br / > The Vanilla Generator - < a href = "2-tvg.html#SP1_10" > § 1.10< / 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 >
2021-09-28 02:03:31 +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 >
2021-08-08 17:57:57 +03:00
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > LinkedLists::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > unassimilated_properties< / span > < span class = "plain-syntax" > ) > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_7" class = "named-paragraph-link" > < span class = "named-paragraph" > Write Value Property Holder objects for each kind of value instance< / span > < span class = "named-paragraph-number" > 1.7< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2021-09-25 20:21:49 +03:00
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_5" class = "named-paragraph-link" > < span class = "named-paragraph" > Annotate kinds of object with a sequence counter< / span > < span class = "named-paragraph-number" > 1.5< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_6" class = "named-paragraph-link" > < span class = "named-paragraph" > Write the KindHierarchy array< / span > < span class = "named-paragraph-number" > 1.6< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_8" class = "named-paragraph-link" > < span class = "named-paragraph" > Write an I6 Class definition for each kind of object< / span > < span class = "named-paragraph-number" > 1.8< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_9" class = "named-paragraph-link" > < span class = "named-paragraph" > Write an I6 Object definition for each object instance< / span > < span class = "named-paragraph-number" > 1.9< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2021-09-25 20:21:49 +03:00
< span class = "plain-syntax" > }< / span >
2019-06-28 20:25:50 +03:00
< / pre >
2021-09-28 02:03:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_1" class = "paragraph-anchor" > < / a > < b > § 1.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Make a list of kinds in source order< / span > < span class = "named-paragraph-number" > 1.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2019-03-17 14:40:57 +02:00
< / p >
2021-09-28 02:03:31 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > LinkedLists::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ) > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_source_order< / span > < span class = "plain-syntax" > = (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > **)< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Memory::calloc< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > LinkedLists::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ), < / span > < span class = "reserved-syntax" > sizeof< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *), < / span > < span class = "constant-syntax" > CODE_GENERATION_MREASON< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / 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 >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds< / 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" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > InterSymbolsTables::symbol_from_frame_data< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > DEFN_KIND_IFLD< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_source_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++] = < / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ;< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > }< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > qsort< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_source_order< / span > < span class = "plain-syntax" > , (< / span > < span class = "identifier-syntax" > size_t< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > sizeof< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *),< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-vo.html#SP2" class = "function-link" > < span class = "function-syntax" > VanillaObjects::compare_kind_symbols< / span > < / a > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1" > § 1< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP1_2" class = "paragraph-anchor" > < / a > < b > § 1.2. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Make a list of kinds in declaration order< / span > < span class = "named-paragraph-number" > 1.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2019-03-17 14:40:57 +02:00
< / p >
2021-09-28 02:03:31 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > LinkedLists::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ) > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_declaration_order< / span > < span class = "plain-syntax" > = (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > **)< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Memory::calloc< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > LinkedLists::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ), < / span > < span class = "reserved-syntax" > sizeof< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *), < / span > < span class = "constant-syntax" > CODE_GENERATION_MREASON< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / 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 >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds< / 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" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > InterSymbolsTables::symbol_from_frame_data< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > DEFN_KIND_IFLD< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_declaration_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++] = < / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ;< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > }< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > qsort< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_declaration_order< / span > < span class = "plain-syntax" > , (< / span > < span class = "identifier-syntax" > size_t< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > sizeof< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *),< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-vo.html#SP2" class = "function-link" > < span class = "function-syntax" > VanillaObjects::compare_kind_symbols_decl< / span > < / a > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1" > § 1< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP1_3" class = "paragraph-anchor" > < / a > < b > § 1.3. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Make a list of instances in declaration order< / span > < span class = "named-paragraph-number" > 1.3< / span > < / span > < span class = "comment-syntax" > =< / span >
2019-03-17 14:40:57 +02:00
< / p >
2021-09-28 02:03:31 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > LinkedLists::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instances< / span > < span class = "plain-syntax" > ) > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instances_in_declaration_order< / span > < span class = "plain-syntax" > = (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > **)< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Memory::calloc< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > LinkedLists::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instances< / span > < span class = "plain-syntax" > ), < / span > < span class = "reserved-syntax" > sizeof< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *), < / span > < span class = "constant-syntax" > CODE_GENERATION_MREASON< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0;< / 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 = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instances< / 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" > inst_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > InterSymbolsTables::symbol_from_frame_data< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > DEFN_INST_IFLD< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instances_in_declaration_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++] = < / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ;< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > }< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > qsort< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instances_in_declaration_order< / span > < span class = "plain-syntax" > , (< / span > < span class = "identifier-syntax" > size_t< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > sizeof< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *),< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-vo.html#SP2" class = "function-link" > < span class = "function-syntax" > VanillaObjects::compare_kind_symbols_decl< / span > < / a > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1" > § 1< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP1_4" class = "paragraph-anchor" > < / a > < b > § 1.4. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Declare and allocate properties< / span > < span class = "named-paragraph-number" > 1.4< / span > < / span > < span class = "comment-syntax" > =< / span >
2019-03-17 14:40:57 +02:00
< / p >
2021-09-28 02:03:31 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > assimilated_properties< / span > < span class = "plain-syntax" > )< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-vo.html#SP10" class = "function-link" > < span class = "function-syntax" > VanillaObjects::predeclare_property< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > );< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > unassimilated_properties< / span > < span class = "plain-syntax" > )< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-vo.html#SP10" class = "function-link" > < span class = "function-syntax" > VanillaObjects::predeclare_property< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > assimilated_properties< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "2-vo.html#SP10" class = "function-link" > < span class = "function-syntax" > VanillaObjects::declare_property< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > unassimilated_properties< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "2-vo.html#SP10" class = "function-link" > < span class = "function-syntax" > VanillaObjects::declare_property< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > );< / span >
2021-09-28 02:03:31 +03:00
< / pre >
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1" > § 1< / a > .< / li > < / ul >
2021-10-03 01:52:18 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_5" class = "paragraph-anchor" > < / a > < b > § 1.5. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Annotate kinds of object with a sequence counter< / span > < span class = "named-paragraph-number" > 1.5< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_ti< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ;< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_source_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ];< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-vo.html#SP4" class = "function-link" > < span class = "function-syntax" > VanillaObjects::is_kind_of_object< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ))< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Symbols::annotate_i< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > OBJECT_KIND_COUNTER_IANN< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ++);< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-09-28 02:03:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1" > § 1< / a > .< / li > < / ul >
2021-10-03 01:52:18 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_6" class = "paragraph-anchor" > < / a > < b > § 1.6. The kind inheritance tree. < / b > We begin with an array providing metadata on the kinds of object: there
2019-03-17 14:40:57 +02:00
are just two words per kind — the Inform 6 class corresponding to the kind,
then the instance count for its own kind. For instance, "door" is usually
kind number 4, so it occupies record 4 in this array — words 8 and 9. Word
2020-05-03 03:01:21 +03:00
8 will be < span class = "extract" > < span class = "extract-syntax" > K4_door< / span > < / span > , the Inform 6 class for doors, and word 9 will be the
2019-03-17 14:40:57 +02:00
number 2, meaning kind number 2, "thing". This tells us that a door is
2020-05-03 03:01:21 +03:00
a kind of thing. In this way, we store the hierarchy of < span class = "extract" > < span class = "extract-syntax" > N< / span > < / span > kinds in < span class = "extract" > < span class = "extract-syntax" > 2N< / span > < / span >
2019-03-17 14:40:57 +02:00
words of memory; it's needed at run-time for checking dynamically that
property usage is legal.
< / p >
2021-10-03 01:52:18 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write the KindHierarchy array< / span > < span class = "named-paragraph-number" > 1.6< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > no_kos< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_source_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ];< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-vo.html#SP4" class = "function-link" > < span class = "function-syntax" > VanillaObjects::is_kind_of_object< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > no_kos< / span > < span class = "plain-syntax" > ++;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > segmentation_pos< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > ;< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::begin_array< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "KindHierarchy"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > no_kos< / span > < span class = "plain-syntax" > > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) {< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::mangled_array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "K0_kind"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "0"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_source_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ];< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-vo.html#SP4" class = "function-link" > < span class = "function-syntax" > VanillaObjects::is_kind_of_object< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > )) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > super_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Kind::super< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > );< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::mangled_array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ), < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > super_name< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > super_name< / span > < span class = "plain-syntax" > != < / span > < span class = "identifier-syntax" > object_kind_symbol< / span > < span class = "plain-syntax" > )) {< / span >
2021-07-30 01:44:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > );< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "%d"< / span > < span class = "plain-syntax" > , < / span > < a href = "2-vo.html#SP5" class = "function-link" > < span class = "function-syntax" > VanillaObjects::kind_of_object_count< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > super_name< / span > < span class = "plain-syntax" > ));< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
2021-07-30 01:44:56 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "0"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "0"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "0"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::end_array< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-09-28 02:03:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1" > § 1< / a > .< / li > < / ul >
2021-10-03 01:52:18 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_7" class = "paragraph-anchor" > < / a > < b > § 1.7. Lookup mechanism for properties of value instances. < / b > As noted above, if < span class = "extract" > < span class = "extract-syntax" > K< / span > < / span > is a kind which can have properties but is not a subkind
2020-05-03 03:01:21 +03:00
of object, then a property for instances of < span class = "extract" > < span class = "extract-syntax" > K< / span > < / span > is stored in an array called
a "stick". At run-time, given the property number and < span class = "extract" > < span class = "extract-syntax" > K< / span > < / span > , we will need to find
2019-03-17 14:40:57 +02:00
where in memory the correct stick is, and this needs to be quick.
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > This is essentially a dictionary lookup problem and we solve it by compiling
a faux object < span class = "extract" > < span class = "extract-syntax" > V< / span > < / span > for each < span class = "extract" > < span class = "extract-syntax" > K< / span > < / span > , called a "value property holder" or VPH.
Given < span class = "extract" > < span class = "extract-syntax" > K< / span > < / span > we find < span class = "extract" > < span class = "extract-syntax" > V< / span > < / span > by looking it up in the array < span class = "extract" > < span class = "extract-syntax" > value_property_holders< / span > < / span > .
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > Once we know < span class = "extract" > < span class = "extract-syntax" > V< / span > < / span > , we then look up < span class = "extract" > < span class = "extract-syntax" > V.P< / span > < / span > to get the address of the stick for
property < span class = "extract" > < span class = "extract-syntax" > P< / span > < / span > , something which the virtual machine can do quickly.
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > This comes at the cost of several hundred bytes of overhead, which we don't
2019-03-17 14:40:57 +02:00
take lightly in the Z-machine. But speed and flexibility are worth more.
< / p >
2021-10-03 01:52:18 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write Value Property Holder objects for each kind of value instance< / span > < span class = "named-paragraph-number" > 1.7< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-08-08 17:57:57 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > linked_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > stick_list< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NEW_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kov_value_stick< / span > < span class = "plain-syntax" > );< / span >
2021-05-03 16:39:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > max_weak_id< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > InterSymbolsTables::url_name_to_symbol< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "/main/synoptic/kinds/BASE_KIND_HWM"< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > max_weak_id< / span > < span class = "plain-syntax" > ) {< / span >
2021-05-03 16:39:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > M< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::evaluate_to_int< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > max_weak_id< / 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" > M< / span > < span class = "plain-syntax" > != < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) {< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_7_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Decide who gets a VPH< / span > < span class = "named-paragraph-number" > 1.7.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_7_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Write the VPH lookup array< / span > < span class = "named-paragraph-number" > 1.7.2< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2021-05-03 16:39:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > =1; < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > M< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > ++) {< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_source_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ];< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-vo.html#SP2" class = "function-link" > < span class = "function-syntax" > VanillaObjects::weak_id< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > ) {< / span >
2021-05-03 16:39:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Symbols::get_flag< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > VPH_MARK_BIT< / span > < span class = "plain-syntax" > )) {< / span >
2021-08-08 15:03:09 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > instance_name< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > instance_name< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "VPH_%d"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > );< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > segmentation_pos< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > ;< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP15" class = "function-link" > < span class = "function-syntax" > Generators::declare_instance< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "Object"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > instance_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , -1, < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > unassimilated_properties< / span > < span class = "plain-syntax" > )< / span >
2021-09-26 13:01:13 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg.html#SP14" class = "function-link" > < span class = "function-syntax" > CodeGen::unmark< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > );< / span >
2021-05-03 16:39:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_node_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > FL< / span > < span class = "plain-syntax" > =< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Warehouse::get_frame_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > InterTree::warehouse< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > Inter::Kind::permissions_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ));< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_7_3" class = "named-paragraph-link" > < span class = "named-paragraph" > Work through this frame list of permissions< / span > < span class = "named-paragraph-number" > 1.7.3< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > in< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > in< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > instances< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > in< / span > < span class = "plain-syntax" > ++) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instances_in_declaration_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > in< / span > < span class = "plain-syntax" > ];< / span >
2021-05-03 16:39:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Kind::is_a< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Instance::kind_of< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_node_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > FL< / span > < span class = "plain-syntax" > =< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Warehouse::get_frame_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > InterTree::warehouse< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > Inter::Instance::permissions_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ));< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_7_3" class = "named-paragraph-link" > < span class = "named-paragraph" > Work through this frame list of permissions< / span > < span class = "named-paragraph-number" > 1.7.3< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2021-05-03 16:39:21 +03:00
< span class = "plain-syntax" > }< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP15" class = "function-link" > < span class = "function-syntax" > Generators::end_instance< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "Object"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > instance_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
2021-08-08 15:03:09 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > instance_name< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_7_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Compile the property stick arrays< / span > < span class = "named-paragraph-number" > 1.7.4< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-09-28 02:03:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1" > § 1< / a > .< / li > < / ul >
2021-10-03 01:52:18 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_7_1" class = "paragraph-anchor" > < / a > < b > § 1.7.1. < / b > It's convenient to be able to distinguish, at run-time, which objects are
2021-10-03 12:50:18 +03:00
the VPH objects used only for kind-property indexing.
2019-03-17 14:40:57 +02:00
< / p >
2021-10-03 12:50:18 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Decide who gets a VPH< / span > < span class = "named-paragraph-number" > 1.7.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_source_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ];< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-vo.html#SP4" class = "function-link" > < span class = "function-syntax" > VanillaObjects::is_kind_of_object< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > continue< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > object_kind_symbol< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > continue< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > unchecked_kind_symbol< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > continue< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > vph_me< / 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_node_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > FL< / span > < span class = "plain-syntax" > =< / span >
2021-04-16 00:42:28 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Warehouse::get_frame_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > InterTree::warehouse< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > Inter::Kind::permissions_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ));< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > FL< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > first_in_inl< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > vph_me< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > in< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > in< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > instances< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > in< / span > < span class = "plain-syntax" > ++) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instances_in_declaration_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > in< / span > < span class = "plain-syntax" > ];< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Kind::is_a< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Instance::kind_of< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_node_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > FL< / span > < span class = "plain-syntax" > =< / span >
2021-04-16 00:42:28 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Warehouse::get_frame_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > InterTree::warehouse< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > Inter::Instance::permissions_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ));< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > FL< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > first_in_inl< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > vph_me< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > vph_me< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Inter::Symbols::set_flag< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > VPH_MARK_BIT< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-10-03 01:52:18 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1_7" > § 1.7< / a > .< / li > < / ul >
2021-10-03 12:50:18 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_7_2" class = "paragraph-anchor" > < / a > < b > § 1.7.2. < / b > This array is indexed by the weak kind ID of < span class = "extract" > < span class = "extract-syntax" > K< / span > < / span > . The entry is 0 if < span class = "extract" > < span class = "extract-syntax" > K< / span > < / span >
2019-03-17 14:40:57 +02:00
doesn't have a VPH, or the object number of its VPH if it has.
< / p >
2021-10-03 12:50:18 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write the VPH lookup array< / span > < span class = "named-paragraph-number" > 1.7.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > segmentation_pos< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > ;< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::begin_array< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "value_property_holders"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "0"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > vph< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > =1; < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > M< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > ++) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > written< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_source_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ];< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-vo.html#SP2" class = "function-link" > < span class = "function-syntax" > VanillaObjects::weak_id< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Symbols::get_flag< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > VPH_MARK_BIT< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > written< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
2021-10-03 19:24:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "VPH_%d"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::mangled_array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > written< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > vph< / span > < span class = "plain-syntax" > ++; < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "0"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::end_array< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 19:24:39 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::begin_array< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "value_ranges"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "0"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > =1; < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > M< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > ++) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > written< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_source_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ];< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-vo.html#SP2" class = "function-link" > < span class = "function-syntax" > VanillaObjects::weak_id< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Symbols::get_flag< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > VPH_MARK_BIT< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > written< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "%d"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Inter::Kind::instance_count< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > E< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > written< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "0"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::end_array< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-10-03 01:52:18 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1_7" > § 1.7< / a > .< / li > < / ul >
2021-10-03 12:50:18 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_7_3" class = "paragraph-anchor" > < / a > < b > § 1.7.3. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Work through this frame list of permissions< / span > < span class = "named-paragraph-number" > 1.7.3< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_tree_node< / 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" > LOOP_THROUGH_INTER_NODE_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > FL< / span > < span class = "plain-syntax" > ) {< / span >
2021-04-15 00:57:48 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > InterSymbolsTables::symbol_from_frame_data< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > PROP_PERM_IFLD< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "no property"< / span > < span class = "plain-syntax" > );< / span >
2021-09-26 13:01:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-cg.html#SP14" class = "function-link" > < span class = "function-syntax" > CodeGen::marked< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg.html#SP14" class = "function-link" > < span class = "function-syntax" > CodeGen::mark< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > 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" > STORAGE_PERM_IFLD< / span > < span class = "plain-syntax" > ]) {< / span >
2021-04-15 00:57:48 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > store< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > InterSymbolsTables::symbol_from_frame_data< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > STORAGE_PERM_IFLD< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > store< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "bad PP in inter"< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP15" class = "function-link" > < span class = "function-syntax" > Generators::assign_mangled_property< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > store< / span > < span class = "plain-syntax" > ));< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
2021-08-08 17:57:57 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ident< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kov_value_stick< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > CREATE< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kov_value_stick< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > identifier< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::new< / span > < span class = "plain-syntax" > ();< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > identifier< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "KOVP_%d_P%d"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > w< / span > < span class = "plain-syntax" > , < / span > < a href = "2-vo.html#SP2" class = "function-link" > < span class = "function-syntax" > VanillaObjects::pnum< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > ));< / span >
2021-08-08 17:57:57 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > prop< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > node< / 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" > ADD_TO_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kov_value_stick< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > stick_list< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP15" class = "function-link" > < span class = "function-syntax" > Generators::assign_mangled_property< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > identifier< / span > < span class = "plain-syntax" > );< / span >
2021-08-08 17:57:57 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ident< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-10-03 01:52:18 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1_7" > § 1.7< / a > (twice).< / li > < / ul >
2021-10-03 12:50:18 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_7_4" class = "paragraph-anchor" > < / a > < b > § 1.7.4. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Compile the property stick arrays< / span > < span class = "named-paragraph-number" > 1.7.4< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-08-08 17:57:57 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kov_value_stick< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kov_value_stick< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > stick_list< / 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" > prop_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > prop< / 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" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_name< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ident< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > identifier< / 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" > X< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > kvs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > node< / span > < span class = "plain-syntax" > ;< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_7_4_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Compile a stick of property values and put its address here< / span > < span class = "named-paragraph-number" > 1.7.4.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2021-08-08 17:57:57 +03:00
< span class = "plain-syntax" > }< / span >
< / pre >
2021-10-03 01:52:18 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1_7" > § 1.7< / a > .< / li > < / ul >
2021-10-03 12:50:18 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_7_4_1" class = "paragraph-anchor" > < / a > < b > § 1.7.4.1. < / b > These little arrays are sticks of property values, and they are laid out
2019-03-17 14:40:57 +02:00
as if they were column arrays in a Table data structure. This means they must
2020-05-03 03:01:21 +03:00
be < span class = "extract" > < span class = "extract-syntax" > table< / span > < / span > arrays (which wastes one word of memory) and must have blanked-out
table column header words at the front (which wastes a further < span class = "extract" > < span class = "extract-syntax" > COL_HSIZE< / span > < / span >
2019-03-17 14:40:57 +02:00
words). But the cost is a simple overhead, not rising with the number of
instances, and it's a small price for the gain in simplicity and speed.
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > The entries here are bracketed to avoid the Inform 6 syntax ambiguity between
< span class = "extract" > < span class = "extract-syntax" > 4 -5< / span > < / span > (two entries, four followed by minus five) and < span class = "extract" > < span class = "extract-syntax" > 4-5< / span > < / span > (one entry, just
2019-03-17 14:40:57 +02:00
minus one). Inform 6 always uses the second interpretation, so just in case
there are negative literal integers in these array entries, we use
2020-05-03 03:01:21 +03:00
brackets: thus < span class = "extract" > < span class = "extract-syntax" > (4) (-5)< / span > < / span > . This cannot be confused with function calling
2019-03-17 14:40:57 +02:00
because I6 doesn't allow function calls in a constant context.
< / p >
2021-10-03 12:50:18 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Compile a stick of property values and put its address here< / span > < span class = "named-paragraph-number" > 1.7.4.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > segmentation_pos< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > ;< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::begin_array< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ident< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TABLE_ARRAY_FORMAT< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "0"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TABLE_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "0"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TABLE_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > j< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > j< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > instances< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > j< / span > < span class = "plain-syntax" > ++) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instances_in_declaration_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > j< / span > < span class = "plain-syntax" > ];< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Kind::is_a< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Instance::kind_of< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > found< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_node_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > PVL< / span > < span class = "plain-syntax" > =< / span >
2020-05-11 17:21:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inode::ID_to_frame_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ,< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Instance::properties_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ));< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_7_4_1_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Work through this frame list of values< / span > < span class = "named-paragraph-number" > 1.7.4.1.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-11 17:21:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PVL< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inode::ID_to_frame_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ,< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Kind::properties_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ));< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP1_7_4_1_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Work through this frame list of values< / span > < span class = "named-paragraph-number" > 1.7.4.1.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > found< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "0"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TABLE_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::end_array< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TABLE_ARRAY_FORMAT< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-10-03 12:50:18 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1_7_4" > § 1.7.4< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP1_7_4_1_1" class = "paragraph-anchor" > < / a > < b > § 1.7.4.1.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Work through this frame list of values< / span > < span class = "named-paragraph-number" > 1.7.4.1.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_THROUGH_INTER_NODE_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > PVL< / span > < span class = "plain-syntax" > ) {< / span >
2021-04-15 00:57:48 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > p_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > InterSymbolsTables::symbol_from_id< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Packages::scope_of< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > Y< / 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" > PROP_PVAL_IFLD< / span > < span class = "plain-syntax" > ]);< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > p_name< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > found< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > found< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ;< / span >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_ti< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > v1< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Y< / 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" > DVAL1_PVAL_IFLD< / 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" > v2< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Y< / 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" > DVAL2_PVAL_IFLD< / span > < span class = "plain-syntax" > ];< / span >
2021-08-08 17:57:57 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > val< / span > < span class = "plain-syntax" > )< / span >
2021-09-26 13:01:13 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg.html#SP10" class = "function-link" > < span class = "function-syntax" > CodeGen::select_temporary< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > val< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg.html#SP15" class = "function-link" > < span class = "function-syntax" > CodeGen::pair< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > v1< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > v2< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg.html#SP10" class = "function-link" > < span class = "function-syntax" > CodeGen::deselect_temporary< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > );< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > val< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TABLE_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
2021-08-08 17:57:57 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > val< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-10-03 12:50:18 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1_7_4_1" > § 1.7.4.1< / a > (twice).< / li > < / ul >
2021-10-03 01:52:18 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_8" class = "paragraph-anchor" > < / a > < b > § 1.8. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write an I6 Class definition for each kind of object< / span > < span class = "named-paragraph-number" > 1.8< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_declaration_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ];< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > object_kind_symbol< / span > < span class = "plain-syntax" > ) ||< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > (< / span > < a href = "2-vo.html#SP4" class = "function-link" > < span class = "function-syntax" > VanillaObjects::is_kind_of_object< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ))) {< / span >
2021-08-12 01:49:36 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > super_class< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > super_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Kind::super< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > );< / span >
2021-09-26 13:01:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > super_name< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > super_class< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > super_name< / span > < span class = "plain-syntax" > );< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > segmentation_pos< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > ;< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP15" class = "function-link" > < span class = "function-syntax" > Generators::declare_class< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > Metadata::read_optional_textual< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Packages::container< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > definition< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "^printed_name"< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > super_class< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-vo.html#SP7" class = "function-link" > < span class = "function-syntax" > VanillaObjects::append< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_node_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > FL< / span > < span class = "plain-syntax" > =< / span >
2021-04-16 00:42:28 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Warehouse::get_frame_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > InterTree::warehouse< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > Inter::Kind::properties_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ));< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-vo.html#SP7" class = "function-link" > < span class = "function-syntax" > VanillaObjects::plist< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > FL< / span > < span class = "plain-syntax" > );< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP15" class = "function-link" > < span class = "function-syntax" > Generators::end_class< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-09-28 02:03:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1" > § 1< / a > .< / li > < / ul >
2021-10-03 01:52:18 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1_9" class = "paragraph-anchor" > < / a > < b > § 1.9. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write an I6 Object definition for each object instance< / span > < span class = "named-paragraph-number" > 1.9< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > instances< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instances_in_declaration_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ];< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::definition< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > );< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-vo.html#SP7" class = "function-link" > < span class = "function-syntax" > VanillaObjects::instance< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-09-28 02:03:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP1" > § 1< / a > .< / li > < / ul >
2021-10-03 01:52:18 +03:00
< p class = "commentary firstcommentary" > < a id = "SP_1" class = "paragraph-anchor" > < / a > < b > § .1. < / b > The following lets the run-time environment know what properties are
2019-03-17 14:40:57 +02:00
called, and which kinds of object are allowed to have them. This might look
a little odd: why does the run-time code need to know any of that?
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > The answer is that the Inform compiler will prevent grossly type-unsafe
2019-03-17 14:40:57 +02:00
property accesses at compile time — for example, asking if a number is
"recurring" (an either/or property of scenes), which can be ruled out
because numbers and scenes are wholly disjoint as values. But it will allow
any object property of any object to be accessed, because it's not usually
2020-05-03 03:01:21 +03:00
possible for the typechecker to know if an object value < span class = "extract" > < span class = "extract-syntax" > O< / span > < / span > is a vehicle, a
2019-03-17 14:40:57 +02:00
direction, and so on. So the finer access controls for properties of
objects are left until run-time (whereas no such regime is needed for
properties of values). To make this possible, we need to tell the run-time
code what is and is not allowed.
< / p >
2021-10-03 01:52:18 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write the property name in double quotes< / span > < span class = "named-paragraph-number" > .1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-08-07 17:44:01 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > pname< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "< nameless> "< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::read_annotation< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > PROPERTY_NAME_IANN< / span > < span class = "plain-syntax" > );< / span >
2021-08-07 17:44:01 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > pname< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Warehouse::get_text< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > InterTree::warehouse< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > ), (< / span > < span class = "identifier-syntax" > inter_ti< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > entry< / span > < span class = "plain-syntax" > )< / span >
2021-09-26 13:01:13 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg.html#SP10" class = "function-link" > < span class = "function-syntax" > CodeGen::select_temporary< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > entry< / span > < span class = "plain-syntax" > );< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP11" class = "function-link" > < span class = "function-syntax" > Generators::compile_literal_text< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > pname< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > );< / span >
2021-09-26 13:01:13 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg.html#SP10" class = "function-link" > < span class = "function-syntax" > CodeGen::deselect_temporary< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > );< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > entry< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
2021-08-07 17:44:01 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > entry< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ++;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-10-03 01:52:18 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP10_1" > § 10.1< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP_1" class = "paragraph-anchor" > < / a > < b > § .1. < / b > A complete list here would be wasteful both of space and run-time
2020-04-14 19:56:54 +03:00
checking time, but we only need a list \(O_1, O_2, ..., O_k\) such that for
each \(W\) allowed to have the property, either \(W = O_i\) for some \(i\), or
\(W\) is of kind \(O_i\) for some \(i\) (perhaps indirectly).
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > In a tricksy complication, we need to allow for the possibility that two
2019-03-17 14:40:57 +02:00
or more different I7 properties are actually equal at run-time. This wouldn't
happen by itself, but does happen if two different properties are translated
to the same I6 property, and in fact the template does this: "lighted" and
2020-05-03 03:01:21 +03:00
"lit" both translate to I6 < span class = "extract" > < span class = "extract-syntax" > light< / span > < / span > . The only way to reconcile this is to
2019-03-17 14:40:57 +02:00
make the list a union of the lists of both. This does mean the routine
2020-04-14 19:56:54 +03:00
runs in \(O(P^2N)\) time, where \(P\) is the number of properties and \(N\) the
number of objects, but we can live with that. \(P\) does not in practice rise
linearly with the size of the source text, even though \(N\) does.
2019-03-17 14:40:57 +02:00
< / p >
2021-10-03 01:52:18 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write a list of kinds or objects which are permitted to have this property< / span > < span class = "named-paragraph-number" > .1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > eprop_name< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > eprop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > unassimilated_properties< / span > < span class = "plain-syntax" > ) {< / span >
2021-09-26 13:01:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > eprop_name< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > ))) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_node_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > EVL< / span > < span class = "plain-syntax" > =< / span >
2021-08-01 01:44:47 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Warehouse::get_frame_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > InterTree::warehouse< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > ),< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Property::permissions_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > eprop_name< / span > < span class = "plain-syntax" > ));< / span >
2020-05-03 03:01:21 +03:00
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP_1_1" class = "named-paragraph-link" > < span class = "named-paragraph" > List any O with an explicit permission< / span > < span class = "named-paragraph-number" > .1.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP_1_2" class = "named-paragraph-link" > < span class = "named-paragraph" > List all top-level kinds if "object" itself has an explicit permission< / span > < span class = "named-paragraph-number" > .1.2< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-10-03 01:52:18 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP10_1" > § 10.1< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP_1_1" class = "paragraph-anchor" > < / a > < b > § .1.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > List any O with an explicit permission< / span > < span class = "named-paragraph-number" > .1.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > k< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > ++) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_source_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > ];< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-vo.html#SP4" class = "function-link" > < span class = "function-syntax" > VanillaObjects::is_kind_of_object< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > )) {< / span >
2020-05-03 03:01:21 +03:00
< 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 >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_THROUGH_INTER_NODE_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > EVL< / span > < span class = "plain-syntax" > ) {< / span >
2021-08-01 01:44:47 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > owner_name< / span > < span class = "plain-syntax" > =< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > InterSymbolsTables::symbol_from_frame_data< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > OWNER_PERM_IFLD< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > owner_name< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ) {< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::mangled_array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ), < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ++;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2021-09-27 11:21:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > in< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > in< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > instances< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > in< / span > < span class = "plain-syntax" > ++) {< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instances_in_declaration_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > in< / span > < span class = "plain-syntax" > ];< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-vo.html#SP4" class = "function-link" > < span class = "function-syntax" > VanillaObjects::is_kind_of_object< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Instance::kind_of< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ))) {< / span >
2020-05-03 03:01:21 +03:00
< 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 >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_THROUGH_INTER_NODE_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > EVL< / span > < span class = "plain-syntax" > ) {< / span >
2021-08-01 01:44:47 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > owner_name< / span > < span class = "plain-syntax" > =< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > InterSymbolsTables::symbol_from_frame_data< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > OWNER_PERM_IFLD< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > owner_name< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ) {< / span >
2021-09-26 17:35:01 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::mangled_array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ), < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ++;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-10-03 01:52:18 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP_1" > § .1< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP_1_2" class = "paragraph-anchor" > < / a > < b > § .1.2. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > List all top-level kinds if "object" itself has an explicit permission< / span > < span class = "named-paragraph-number" > .1.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-10-03 12:50:18 +03:00
< 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 >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_THROUGH_INTER_NODE_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > EVL< / 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" > owner_name< / span > < span class = "plain-syntax" > =< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > InterSymbolsTables::symbol_from_frame_data< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > OWNER_PERM_IFLD< / 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" > owner_name< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > object_kind_symbol< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::mangled_array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "K0_kind"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ++;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > k< / span > < span class = "function-syntax" > < LinkedLists::len(gen-> < / span > < span class = "element-syntax" > kinds< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > ++) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kinds_in_source_order< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > k< / span > < span class = "plain-syntax" > ];< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Kind::super< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > object_kind_symbol< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::mangled_array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ), < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ++;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2021-10-03 01:52:18 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP_1" > § .1< / a > .< / li > < / ul >
2021-09-28 02:03:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP2" class = "paragraph-anchor" > < / a > < b > § 2. < / b > < / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-10-03 12:50:18 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::pnum< / 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" > VanillaObjects::pnum< / span > < / span > :< br / > < a href = "2-vo.html#SP1_7_3" > § 1.7.3< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::read_annotation< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > SOURCE_ORDER_IANN< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2021-09-29 01:41:07 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::compare_kind_symbols< / span > < button class = "popup" onclick = "togglePopup('usagePopup4')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup4" > Usage of < span class = "code-font" > < span class = "function-syntax" > VanillaObjects::compare_kind_symbols< / span > < / span > :< br / > < a href = "2-vo.html#SP1_1" > § 1.1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > elem1< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > elem2< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > e1< / span > < span class = "plain-syntax" > = (< / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > **) < / span > < span class = "identifier-syntax" > elem1< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > e2< / span > < span class = "plain-syntax" > = (< / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > **) < / span > < span class = "identifier-syntax" > elem2< / 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" > e1< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) || (*< / span > < span class = "identifier-syntax" > e2< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ))< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "Disaster while sorting kinds"< / span > < span class = "plain-syntax" > );< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > s1< / span > < span class = "plain-syntax" > = < / span > < a href = "2-vo.html#SP2" class = "function-link" > < span class = "function-syntax" > VanillaObjects::kind_sequence_number< / span > < / a > < span class = "plain-syntax" > (*< / span > < span class = "identifier-syntax" > e1< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > s2< / span > < span class = "plain-syntax" > = < / span > < a href = "2-vo.html#SP2" class = "function-link" > < span class = "function-syntax" > VanillaObjects::kind_sequence_number< / span > < / a > < span class = "plain-syntax" > (*< / span > < span class = "identifier-syntax" > e2< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > s1< / span > < span class = "plain-syntax" > != < / span > < span class = "identifier-syntax" > s2< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > s1< / span > < span class = "plain-syntax" > -< / span > < span class = "identifier-syntax" > s2< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Symbols::sort_number< / span > < span class = "plain-syntax" > (*< / span > < span class = "identifier-syntax" > e1< / span > < span class = "plain-syntax" > ) - < / span > < span class = "identifier-syntax" > Inter::Symbols::sort_number< / span > < span class = "plain-syntax" > (*< / span > < span class = "identifier-syntax" > e2< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2021-09-29 01:41:07 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::compare_kind_symbols_decl< / span > < button class = "popup" onclick = "togglePopup('usagePopup5')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup5" > Usage of < span class = "code-font" > < span class = "function-syntax" > VanillaObjects::compare_kind_symbols_decl< / span > < / span > :< br / > < a href = "2-vo.html#SP1_2" > § 1.2< / a > , < a href = "2-vo.html#SP1_3" > § 1.3< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > elem1< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > elem2< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > e1< / span > < span class = "plain-syntax" > = (< / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > **) < / span > < span class = "identifier-syntax" > elem1< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > e2< / span > < span class = "plain-syntax" > = (< / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > **) < / span > < span class = "identifier-syntax" > elem2< / 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" > e1< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) || (*< / span > < span class = "identifier-syntax" > e2< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ))< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "Disaster while sorting kinds"< / span > < span class = "plain-syntax" > );< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > s1< / span > < span class = "plain-syntax" > = < / span > < a href = "2-vo.html#SP2" class = "function-link" > < span class = "function-syntax" > VanillaObjects::kind_sequence_number_decl< / span > < / a > < span class = "plain-syntax" > (*< / span > < span class = "identifier-syntax" > e1< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > s2< / span > < span class = "plain-syntax" > = < / span > < a href = "2-vo.html#SP2" class = "function-link" > < span class = "function-syntax" > VanillaObjects::kind_sequence_number_decl< / span > < / a > < span class = "plain-syntax" > (*< / span > < span class = "identifier-syntax" > e2< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > s1< / span > < span class = "plain-syntax" > != < / span > < span class = "identifier-syntax" > s2< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > s1< / span > < span class = "plain-syntax" > -< / span > < span class = "identifier-syntax" > s2< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Symbols::sort_number< / span > < span class = "plain-syntax" > (*< / span > < span class = "identifier-syntax" > e1< / span > < span class = "plain-syntax" > ) - < / span > < span class = "identifier-syntax" > Inter::Symbols::sort_number< / span > < span class = "plain-syntax" > (*< / span > < span class = "identifier-syntax" > e2< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2021-09-24 01:48:56 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::kind_sequence_number< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::read_annotation< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > SOURCE_ORDER_IANN< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 100000000< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2021-09-24 01:48:56 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::kind_sequence_number_decl< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > const< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::read_annotation< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > DECLARATION_ORDER_IANN< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 100000000< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2021-10-03 12:50:18 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::weak_id< / span > < button class = "popup" onclick = "togglePopup('usagePopup6')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup6" > Usage of < span class = "code-font" > < span class = "function-syntax" > VanillaObjects::weak_id< / span > < / span > :< br / > < a href = "2-vo.html#SP1_7" > § 1.7< / a > , < a href = "2-vo.html#SP1_7_2" > § 1.7.2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ) {< / span >
2021-05-03 16:39:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_package< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > pack< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Packages::container< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > definition< / 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" > weak_s< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Metadata::read_optional_symbol< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pack< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "^weak_id"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > alt_N< / span > < span class = "plain-syntax" > = -1;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > weak_s< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > alt_N< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::evaluate_to_int< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > weak_s< / 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" > alt_N< / span > < span class = "plain-syntax" > > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > alt_N< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-06-28 20:25:50 +03:00
< / pre >
2021-09-28 02:03:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP3" class = "paragraph-anchor" > < / a > < b > § 3. < / b > For the I6 header syntax, see the DM4. Note that the "hardwired" short
2020-05-03 03:01:21 +03:00
name is intentionally made blank: we always use I6's < span class = "extract" > < span class = "extract-syntax" > short_name< / span > < / span > property
2019-03-17 14:40:57 +02:00
instead. I7's spatial plugin, if loaded (as it usually is), will have
annotated the Inter symbol for the object with an arrow count, that is,
a measure of its spatial depth. This we translate into I6 arrow notation.
If the spatial plugin wasn't loaded then we have no notion of containment,
all arrow counts are 0, and we define a flat sequence of free-standing objects.
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > One last oddball thing is that direction objects have to be compiled in I6
as if they were spatially inside a special object called < span class = "extract" > < span class = "extract-syntax" > Compass< / span > < / span > . This doesn't
2019-03-17 14:40:57 +02:00
really make much conceptual sense, and I7 dropped the idea — it has no
"compass".
< / p >
2021-09-28 02:03:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP4" class = "paragraph-anchor" > < / a > < b > § 4. < / b > < / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-10-03 12:50:18 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::is_kind_of_object< / span > < button class = "popup" onclick = "togglePopup('usagePopup7')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup7" > Usage of < span class = "code-font" > < span class = "function-syntax" > VanillaObjects::is_kind_of_object< / span > < / span > :< br / > < a href = "2-vo.html#SP1_5" > § 1.5< / a > , < a href = "2-vo.html#SP1_6" > § 1.6< / a > , < a href = "2-vo.html#SP1_7_1" > § 1.7.1< / a > , < a href = "2-vo.html#SP1_8" > § 1.8< / a > , < a href = "2-vo.html#SP_1_1" > § .1.1< / a > < br / > Generating Inform 6 - < a href = "4-fi6.html#SP7_1_1" > § 7.1.1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > object_kind_symbol< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_data_type< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > idt< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Kind::data_type< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > idt< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > unchecked_idt< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Kind::is_a< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > object_kind_symbol< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-06-28 20:25:50 +03:00
< / pre >
2021-09-28 02:03:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP5" class = "paragraph-anchor" > < / a > < b > § 5. < / b > Counting kinds of object, not very quickly:
2019-06-28 20:25:50 +03:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-10-03 01:52:18 +03:00
< span class = "identifier-syntax" > inter_ti< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::kind_of_object_count< / span > < button class = "popup" onclick = "togglePopup('usagePopup8')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup8" > Usage of < span class = "code-font" > < span class = "function-syntax" > VanillaObjects::kind_of_object_count< / span > < / span > :< br / > < a href = "2-vo.html#SP1_6" > § 1.6< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) || (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > object_kind_symbol< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::read_annotation< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > OBJECT_KIND_COUNTER_IANN< / span > < span class = "plain-syntax" > );< / span >
2020-07-01 02:58:55 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inter_ti< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-06-28 20:25:50 +03:00
< / pre >
2021-09-28 02:03:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP6" class = "paragraph-anchor" > < / a > < b > § 6. < / b > < / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > typedef< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kov_value_stick< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_name< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > identifier< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > node< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CLASS_DEFINITION< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > kov_value_stick< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
< ul class = "endnotetexts" > < li > The structure kov_value_stick is accessed in 5/com, 5/clt and here.< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP7" class = "paragraph-anchor" > < / a > < b > § 7. Instances. < / b > < / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-10-03 01:52:18 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::instance< / span > < button class = "popup" onclick = "togglePopup('usagePopup9')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup9" > Usage of < span class = "code-font" > < span class = "function-syntax" > VanillaObjects::instance< / span > < / span > :< br / > < a href = "2-vo.html#SP1_9" > § 1.9< / 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" > P< / span > < span class = "plain-syntax" > ) {< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > InterSymbolsTables::symbol_from_frame_data< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > DEFN_INST_IFLD< / 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" > inst_kind< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > InterSymbolsTables::symbol_from_frame_data< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > KIND_INST_IFLD< / 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" > Inter::Kind::is_a< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_kind< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > object_kind_symbol< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::read_annotation< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ARROW_COUNT_IANN< / 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" > c< / span > < span class = "plain-syntax" > < < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > is_dir< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Kind::is_a< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_kind< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > direction_kind_symbol< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > segmentation_pos< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP15" class = "function-link" > < span class = "function-syntax" > Generators::declare_instance< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_kind< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ),< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Metadata::read_optional_textual< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Packages::container< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "^printed_name"< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > is_dir< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-vo.html#SP7" class = "function-link" > < span class = "function-syntax" > VanillaObjects::append< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_node_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > FL< / span > < span class = "plain-syntax" > =< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inode::ID_to_frame_list< / 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" > Inter::Instance::properties_list< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < a href = "2-vo.html#SP7" class = "function-link" > < span class = "function-syntax" > VanillaObjects::plist< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > FL< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP15" class = "function-link" > < span class = "function-syntax" > Generators::end_instance< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_kind< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_ti< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > val1< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > P< / 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_INST_IFLD< / 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" > val2< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > P< / 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_INST_IFLD< / span > < span class = "plain-syntax" > ];< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > defined< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > val1< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > UNDEF_IVAL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > defined< / 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" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > val< / 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" > defined< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > val< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "%d"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > val2< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP15" class = "function-link" > < span class = "function-syntax" > Generators::declare_value_instance< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inst_name< / span > < span class = "plain-syntax" > ),< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Metadata::read_optional_textual< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Inter::Packages::container< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "^printed_name"< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > val< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > val< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2021-10-03 01:52:18 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::plist< / span > < button class = "popup" onclick = "togglePopup('usagePopup10')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup10" > Usage of < span class = "code-font" > < span class = "function-syntax" > VanillaObjects::plist< / span > < / span > :< br / > < a href = "2-vo.html#SP1_8" > § 1.8< / 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_node_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > FL< / span > < span class = "plain-syntax" > ) {< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > FL< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "no properties list"< / 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" > X< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_THROUGH_INTER_NODE_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > FL< / 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" > prop_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > InterSymbolsTables::symbol_from_frame_data< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > PROP_PVAL_IFLD< / 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" > prop_name< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "no property"< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 19:24:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > val< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg.html#SP10" class = "function-link" > < span class = "function-syntax" > CodeGen::select_temporary< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > val< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-cg2.html#SP15" class = "function-link" > < span class = "function-syntax" > Generators::optimise_property_value< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg.html#SP15" class = "function-link" > < span class = "function-syntax" > CodeGen::pair< / 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 >
< 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" > DVAL1_PVAL_IFLD< / 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" > DVAL2_PVAL_IFLD< / span > < span class = "plain-syntax" > ]);< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > }< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg.html#SP10" class = "function-link" > < span class = "function-syntax" > CodeGen::deselect_temporary< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 19:24:39 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP15" class = "function-link" > < span class = "function-syntax" > Generators::assign_property< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > val< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > val< / span > < span class = "plain-syntax" > )< / span >
2021-09-28 02:03:31 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2021-10-03 01:52:18 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::append< / span > < button class = "popup" onclick = "togglePopup('usagePopup11')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup11" > Usage of < span class = "code-font" > < span class = "function-syntax" > VanillaObjects::append< / span > < / span > :< br / > < a href = "2-vo.html#SP1_8" > § 1.8< / 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_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > ) {< / span >
2021-09-28 02:03:31 +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#SP11" 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 >
< 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" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > S< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::read_annotation_t< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > symb< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > APPEND_IANN< / 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" > Str::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > S< / span > < span class = "plain-syntax" > ) == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "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 > < a href = "2-tvg.html#SP3" class = "function-link" > < span class = "function-syntax" > Vanilla::splat_matter< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > OUT< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > S< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP8" class = "paragraph-anchor" > < / a > < b > § 8. Representing instances in I6. < / b > Partly for historical reasons, partly to squeeze performance out of the
virtual machines used in traditional parser IF, the I6 run-time
implementation of instances and their properties is complicated.
< / p >
< p class = "commentary" > The main complication is that there are two sorts of instance: objects,
such as doors and people, and everything else, such as scenes. The two
sorts are handled equally in Inter, but have completely different run-time
representations in I6:
< / p >
< ul class = "items" > < li > (a) "Object instances" are instances of a kind which is a subkind, perhaps
indirectly, of "object". These are stored as I6 objects, and the I6 classes
of these objects correspond exactly to their I7 kinds (except that the kind
"object" itself is mapped to the I6 class "Class").
< / li > < li > (b) "Value instances" are instances of kinds which are not objects but can
nevertheless have properties. The scene "entire game" is a value instance; the
number 27 is not. Value instances are stored as enumerated constants. For
example, if there are scenes called "entire game", "Overture" and "Grand
Finale", then these are stored as the constants 1, 2, 3; and I6 constants are
defined to represent them.
< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP9" class = "paragraph-anchor" > < / a > < b > § 9. Representing properties in I6. < / b > Both sorts of instance can have properties; for example:
< / p >
< blockquote >
< p > A supporter has a number called carrying capacity.< / p >
< / blockquote >
< blockquote >
< p > A scene has a number called completion score.< / p >
< / blockquote >
< p class = "commentary" > allows a property to be held by object instances (supporters) and value
instances (scenes). To the writer of I7 source text, no distinction between
these cases is visible, and the same is true of Inter code.
< / p >
< p class = "commentary" > How to store these at run-time is not so straightforward. Speed and
compactness are unusually important here, and constraints imposed by the
virtual machine targeted by I6 add further complications.
< / p >
< ul class = "items" > < li > (a) Properties of object instances are stored as either I6 properties or I6
attributes of their I6 objects. As far as possible, this is a direct mapping
from I7 instances and kinds onto I6 objects and classes. It is a little
bulkier in memory than using flat arrays, but the Glulx and Z-machine virtual
machines offer a very rapid lookup operation. Thus "the carrying capacity of
the player" can be compiled to the I6 expression < span class = "extract" > < span class = "extract-syntax" > player.capacity< / span > < / span > , which
compiles to a single short call to the I6 veneer — and one which many
interpreters today have optimised out as a basic operation, taking only a
single VM clock cycle.
< / li > < li > (b) The properties of value instances are stored in flat arrays called
"sticks", with each property having its own stick. For example, the property
"recurring" for a scene would have a stick holding three values, one each for
the three scenes. Sticks have the same run-time format as table columns and
this is not a coincidence, because some kinds of value instances are created
by table in I7, and this lets us use the table as a ready-made set of sticks.
But now we don't have run-time lookup mechanisms already provided for us, so
we will need to set up some metadata structures to make it possible to seek
property values for value instances quickly.
< / li > < / ul >
< p class = "commentary" > In practice, property access is slightly faster for object instances, and
property storage is slightly more compact for value instances, which is
probably the right bargain.
< / p >
< p class = "commentary firstcommentary" > < a id = "SP10" class = "paragraph-anchor" > < / a > < b > § 10. Properties. < / b > Properties in I7 are of two sorts: either-or, which behave adjectivally,
such as "open"; and value, which behave as nouns, such as "carrying capacity".
We can distinguish these because the I7 compiler annotates the property name
symbols with the < span class = "extract" > < span class = "extract-syntax" > EITHER_OR_IANN< / span > < / span > flag. It also always gives either-or
properties the kind < span class = "extract" > < span class = "extract-syntax" > K_truth_state< / span > < / span > , but note that a few value properties
also have this kind, so the annotation is the only way to be sure.
< / p >
< p class = "commentary" > Some either-or properties of object instances can be stored as I6
"attributes". This is memory-efficient and fast at run-time: but only a
limited number can be stored this way. Here we choose which.
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-10-03 01:52:18 +03:00
< span class = "identifier-syntax" > dictionary< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > i6dps_dict< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "identifier-syntax" > dictionary< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > pre_i6dps_dict< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
2021-10-03 12:50:18 +03:00
< span class = "identifier-syntax" > dictionary< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > af_i6dps_dict< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
2021-10-03 01:52:18 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::predeclare_property< / span > < button class = "popup" onclick = "togglePopup('usagePopup12')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup12" > Usage of < span class = "code-font" > < span class = "function-syntax" > VanillaObjects::predeclare_property< / span > < / span > :< br / > < a href = "2-vo.html#SP1_4" > § 1.4< / 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_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pre_i6dps_dict< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > pre_i6dps_dict< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Dictionaries::new< / span > < span class = "plain-syntax" > (1024, < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > af_i6dps_dict< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > af_i6dps_dict< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Dictionaries::new< / span > < span class = "plain-syntax" > (1024, < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dictionary< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > pre_i6dps_dict< / span > < span class = "plain-syntax" > ;< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dictionary< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > D2< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > af_i6dps_dict< / span > < span class = "plain-syntax" > ;< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Dictionaries::find< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Dictionaries::create< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Dictionaries::write_value< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > *) < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > linked_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NEW_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ADD_TO_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Dictionaries::create< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D2< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Dictionaries::write_value< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D2< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > *) < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Dictionaries::write_value< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > *) < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > linked_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Dictionaries::read_value< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D2< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ADD_TO_LINKED_LIST< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > VanillaObjects::declare_property< / span > < button class = "popup" onclick = "togglePopup('usagePopup13')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup13" > Usage of < span class = "code-font" > < span class = "function-syntax" > VanillaObjects::declare_property< / span > < / span > :< br / > < a href = "2-vo.html#SP1_4" > § 1.4< / 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_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > i6dps_dict< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > i6dps_dict< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Dictionaries::new< / span > < span class = "plain-syntax" > (1024, < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dictionary< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > i6dps_dict< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Dictionaries::find< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) {< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > PROPERTY_ALLOCATION< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "! NEW name=%S sname=%S eor=%d assim=%d\n"< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > symbol_name< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Symbols::read_annotation< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > EITHER_OR_IANN< / span > < span class = "plain-syntax" > ),< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Symbols::read_annotation< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ASSIMILATED_IANN< / span > < span class = "plain-syntax" > ));< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Dictionaries::create< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Dictionaries::write_value< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > *) < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > array_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::new< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > array_name< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "A_%S"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Symbols::set_translate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > array_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Symbols::annotate_t< / 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" > prop_name< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > owning_table< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > owning_package< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > INNER_PROPERTY_NAME_IANN< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > linked_list< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > all_forms< / span > < span class = "plain-syntax" > =< / span >
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > linked_list< / span > < span class = "plain-syntax" > *) < / span > < span class = "identifier-syntax" > Dictionaries::read_value< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > af_i6dps_dict< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > segmentation_pos< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::begin_array< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > array_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP12" class = "function-link" > < span class = "function-syntax" > Generators::declare_property< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > all_forms< / span > < span class = "plain-syntax" > );< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP10_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Do permissions< / span > < span class = "named-paragraph-number" > 10.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::end_array< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > saved< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > PROPERTY_ALLOCATION< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "! OLD name=%S sname=%S eor=%d assim=%d\n"< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > symbol_name< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Symbols::read_annotation< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > EITHER_OR_IANN< / span > < span class = "plain-syntax" > ),< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Symbols::read_annotation< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ASSIMILATED_IANN< / span > < span class = "plain-syntax" > ));< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > existing_prop_name< / 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" > Dictionaries::read_value< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Symbols::set_translate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > existing_prop_name< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "< nameless> "< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::read_annotation< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > existing_prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > INNER_PROPERTY_NAME_IANN< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Warehouse::get_text< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > InterTree::warehouse< / 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" > inter_ti< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Symbols::annotate_t< / 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" > prop_name< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > owning_table< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > owning_package< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > INNER_PROPERTY_NAME_IANN< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2021-10-03 12:50:18 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > PROPERTY_ALLOCATION< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "! SO %S --> %S\n"< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Inter::Symbols::name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > ), < / span > < a href = "2-vo.html#SP11" class = "function-link" > < span class = "function-syntax" > VanillaObjects::inner_property_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > ));< / span >
2021-10-03 01:52:18 +03:00
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP10_1" class = "paragraph-anchor" > < / a > < b > § 10.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Do permissions< / span > < span class = "named-paragraph-number" > 10.1< / span > < / span > < span class = "comment-syntax" > =< / span >
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop_name< / 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" > Dictionaries::read_value< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pre_i6dps_dict< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < 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 = "named-paragraph-container code-font" > < a href = "2-vo.html#SP_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Write the property name in double quotes< / span > < span class = "named-paragraph-number" > .1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-vo.html#SP_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Write a list of kinds or objects which are permitted to have this property< / span > < span class = "named-paragraph-number" > .1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cg2.html#SP18" class = "function-link" > < span class = "function-syntax" > Generators::mangled_array_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > gen< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "NULL"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > WORD_ARRAY_FORMAT< / span > < span class = "plain-syntax" > );< / span >
< / pre >
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-vo.html#SP10" > § 10< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP11" class = "paragraph-anchor" > < / a > < b > § 11. < / b > < / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > VanillaObjects::inner_property_name< / span > < button class = "popup" onclick = "togglePopup('usagePopup14')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup14" > Usage of < span class = "code-font" > < span class = "function-syntax" > VanillaObjects::inner_property_name< / span > < / span > :< br / > < a href = "2-vo.html#SP10" > § 10< / a > < br / > Generating Inform 6 - < a href = "4-fi6.html#SP7" > § 7< / a > , < a href = "4-fi6.html#SP8" > § 8< / a > < br / > C Object Model - < a href = "5-com.html#SP6" > § 6< / a > , < a href = "5-com.html#SP9" > § 9< / 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_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "< nameless> "< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Symbols::read_annotation< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > INNER_PROPERTY_NAME_IANN< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Inter::Warehouse::get_text< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > InterTree::warehouse< / 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" > inter_ti< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inner_name< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2021-09-28 02:03:31 +03:00
< / pre >
2020-05-03 03:01:21 +03:00
< nav role = "progress" > < div class = "progresscontainer" >
2021-09-25 20:21:49 +03:00
< ul class = "progressbar" > < li class = "progressprev" > < a href = "2-vc.html" > ❮ < / a > < / li > < li class = "progresschapter" > < a href = "1-fm.html" > 1< / a > < / li > < li class = "progresscurrentchapter" > 2< / li > < li class = "progresssection" > < a href = "2-cg.html" > cg< / a > < / li > < li class = "progresssection" > < a href = "2-cg2.html" > cg2< / a > < / li > < li class = "progresssection" > < a href = "2-tvg.html" > tvg< / a > < / li > < li class = "progresssection" > < a href = "2-vc.html" > vc< / a > < / li > < li class = "progresscurrent" > vo< / li > < li class = "progresssection" > < a href = "2-vc2.html" > vc2< / 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 = "progresschapter" > < a href = "5-fnc.html" > 5< / a > < / li > < li class = "progressnext" > < a href = "2-vc2.html" > ❯ < / a > < / li > < / ul > < / div >
2020-05-03 03:01:21 +03:00
< / nav > <!-- End of weave -->
2020-04-14 19:56:54 +03:00
2020-03-19 02:11:25 +02:00
< / main >
2019-03-17 14:40:57 +02:00
< / body >
< / html >
