2019-03-17 14:40:57 +02:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
2020-04-14 19:56:54 +03:00
< title > Kinds< / 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 >
2020-08-09 20:39:31 +03:00
function togglePopup(material_id) {
var popup = document.getElementById(material_id);
popup.classList.toggle("show");
}
< / script >
< link href = "../docs-assets/Popups.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< script >
2020-05-03 03:01:21 +03:00
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-04-14 19:56:54 +03:00
< li > < a href = "index.html" > < span class = "selectedlink" > kinds< / span > < / 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 >
< li > < a href = "../codegen-module/index.html" > codegen< / a > < / li >
2020-05-20 02:02:28 +03:00
< / ul > < h2 > Services< / h2 > < ul >
2020-04-14 19:56:54 +03:00
< li > < a href = "../arch-module/index.html" > arch< / a > < / li >
< li > < a href = "../syntax-module/index.html" > syntax< / a > < / li >
< li > < a href = "../words-module/index.html" > words< / a > < / li >
< li > < a href = "../html-module/index.html" > html< / a > < / li >
2020-05-20 02:02:28 +03:00
< li > < a href = "../inflections-module/index.html" > inflections< / a > < / li >
< li > < a href = "../linguistics-module/index.html" > linguistics< / a > < / li >
< li > < a href = "../problems-module/index.html" > problems< / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../../../inweb/docs/foundation-module/index.html" > foundation< / a > < / li >
2020-04-14 19:56:54 +03:00
< / ul >
2020-03-19 02:11:25 +02:00
< / nav >
< main role = "main" >
2020-05-03 03:01:21 +03:00
<!-- Weave of 'Kinds' generated by Inweb -->
< div class = "breadcrumbs" >
2020-08-08 19:40:02 +03:00
< ul class = "crumbs" > < li > < a href = "../index.html" > Home< / a > < / li > < li > < a href = "../compiler.html" > Services< / a > < / li > < li > < a href = "index.html" > kinds< / a > < / li > < li > < a href = "index.html#2" > Chapter 2: Kinds< / a > < / li > < li > < b > Kinds< / b > < / li > < / ul > < / div >
2020-05-03 03:01:21 +03:00
< p class = "purpose" > To build tree structures which represent Inform's universe of kinds.< / p >
2019-03-17 14:40:57 +02:00
2020-08-12 01:59:29 +03:00
< ul class = "toc" > < li > < a href = "2-knd.html#SP3" > § 3. Constructing kinds< / a > < / li > < li > < a href = "2-knd.html#SP4" > § 4. Constructing kinds for functions< / a > < / li > < li > < a href = "2-knd.html#SP5" > § 5. Constructing kinds for pairs< / a > < / li > < li > < a href = "2-knd.html#SP6" > § 6. Iterating through kinds< / a > < / li > < li > < a href = "2-knd.html#SP8" > § 8. Annotations of kinds< / a > < / li > < li > < a href = "2-knd.html#SP13" > § 13. Traversing the tree< / a > < / li > < li > < a href = "2-knd.html#SP14" > § 14. Kind variable substitution< / a > < / li > < li > < a href = "2-knd.html#SP15" > § 15. Weakening< / a > < / li > < li > < a href = "2-knd.html#SP16" > § 16. Property dereferencing< / a > < / li > < li > < a href = "2-knd.html#SP17" > § 17. Creating new base kind constructors< / a > < / li > < li > < a href = "2-knd.html#SP18" > § 18. Making subkinds< / a > < / li > < li > < a href = "2-knd.html#SP19" > § 19. Annotating vocabulary< / a > < / li > < li > < a href = "2-knd.html#SP20" > § 20. From context< / a > < / li > < li > < a href = "2-knd.html#SP21" > § 21. Equality< / a > < / li > < li > < a href = "2-knd.html#SP22" > § 22. Conformance and compatibility< / a > < / li > < / ul > < hr class = "tocbar" >
2019-03-17 14:40:57 +02:00
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1" > < / a > < b > § 1. < / b > Finally, then, it's time to define what a kind node looks like:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > typedef< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > construct< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > which can never be < / span > < span class = "extract" > < span class = "extract-syntax" > NULL< / span > < / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > kind_variable_number< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > only used if construct is < / span > < span class = "extract" > < span class = "extract-syntax" > CON_KIND_VARIABLE< / span > < / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > unit_sequence< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > intermediate_result< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > only used if construct is < / span > < span class = "extract" > < span class = "extract-syntax" > CON_INTERMEDIATE< / span > < / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kc_args< / span > < span class = "plain-syntax" > [< / span > < span class = "constant-syntax" > MAX_KIND_CONSTRUCTION_ARITY< / span > < span class = "plain-syntax" > ]; < / span > < span class = "comment-syntax" > used if arity positive, or for < / span > < span class = "extract" > < span class = "extract-syntax" > CON_KIND_VARIABLE< / span > < / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-12 01:59:29 +03:00
< ul class = "endnotetexts" > < li > The structure kind is accessed in 2/fk, 2/tlok, 2/uk, 3/fv and here.< / li > < / ul >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP2" > < / a > < b > § 2. < / b > We keep some statistics for tracking memory usage:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > no_base_kinds_created< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > no_intermediate_kinds_created< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > no_constructed_kinds_created< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP3" > < / a > < b > § 3. Constructing kinds. < / b > All kind structures are obtained by one of the following. First, a base
2019-03-17 14:40:57 +02:00
construction, one with arity 0. This makes a kind tree with a single leaf
node, of course, and that's something we need very often. So we create it
only on the first request, and cache the pointer to it with the constructor;
we can then use that same pointer on all subsequent requests.
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-12 01:59:29 +03:00
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::base_construction< / 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" > Kinds::base_construction< / span > < / span > :< br / > < a href = "2-knd.html#SP7" > § 7< / a > , < a href = "2-knd.html#SP17" > § 17< / a > < br / > Kind Constructors - < a href = "2-kc.html#SP2" > § 2< / a > , < a href = "2-kc.html#SP6" > § 6< / a > , < a href = "2-kc.html#SP6_1" > § 6.1< / a > < br / > Describing Kinds - < a href = "2-dk.html#SP9" > § 9< / a > < br / > Kind Commands - < a href = "4-kc.html#SP13_1" > § 13.1< / a > , < a href = "4-kc.html#SP26_4" > § 26.4< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > con< / 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" > con< / 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" > "impossible construction"< / 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" > con< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > CON_KIND_VARIABLE< / span > < span class = "plain-syntax" > ) || (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > CON_INTERMEDIATE< / 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" > "forbidden construction"< / span > < span class = "plain-syntax" > );< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > switch< / span > < span class = "plain-syntax" > (< / span > < a href = "2-kc.html#SP13" class = "function-link" > < span class = "function-syntax" > Kinds::Constructors::arity< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > )) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > :< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > CON_list_of< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3_3" class = "function-link" > < span class = "function-syntax" > Kinds::unary_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3_3" class = "function-link" > < span class = "function-syntax" > Kinds::unary_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K_value< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 2< / span > < span class = "plain-syntax" > : < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3_3" class = "function-link" > < span class = "function-syntax" > Kinds::binary_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K_value< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K_value< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > cache< / span > < span class = "plain-syntax" > = < / span > < a href = "2-kc.html#SP13" class = "function-link" > < span class = "function-syntax" > Kinds::Constructors::cache_location< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / 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" > cache< / span > < span class = "plain-syntax" > ) { < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (*< / span > < span class = "identifier-syntax" > cache< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > cache< / span > < span class = "plain-syntax" > ; }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-knd.html#SP3_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Create a raw kind structure< / span > < span class = "named-paragraph-number" > 3.4< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > con< / 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" > cache< / span > < span class = "plain-syntax" > ) *< / span > < span class = "identifier-syntax" > cache< / 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" > no_base_kinds_created< / span > < span class = "plain-syntax" > ++;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP3_1" > < / a > < b > § 3.1. < / b > As noted above, < span class = "extract" > < span class = "extract-syntax" > CON_INTERMEDIATE< / span > < / span > is used to store intermediate results
2019-03-17 14:40:57 +02:00
of calculations that are never accessible to outside source text, and have
kinds which couldn't be represented there. For example, if we evaluate
2020-04-14 19:56:54 +03:00
$$ E = mc^2 $$
2019-03-17 14:40:57 +02:00
then we may have perfectly good kinds of value to store energy, mass and
2020-04-14 19:56:54 +03:00
velocity, but have no kind of value for \(c^2\), a velocity squared. Such
2020-05-03 03:01:21 +03:00
evanescent kinds are given the special constructor < span class = "extract" > < span class = "extract-syntax" > CON_INTERMEDIATE< / span > < / span > .
2019-03-17 14:40:57 +02:00
These are needed relatively seldom and are not cached.
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::intermediate_construction< / 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" > Kinds::intermediate_construction< / span > < / span > :< br / > Dimensions - < a href = "3-dmn.html#SP39_4" > § 39.4< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > unit_sequence< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ik< / 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" > ik< / 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" > "made unknown as Kinds::intermediate_construction"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-knd.html#SP3_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Create a raw kind structure< / span > < span class = "named-paragraph-number" > 3.4< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > CON_INTERMEDIATE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > intermediate_result< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > CREATE< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > unit_sequence< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > *(< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > intermediate_result< / span > < span class = "plain-syntax" > ) = *< / span > < span class = "identifier-syntax" > ik< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > no_intermediate_kinds_created< / span > < span class = "plain-syntax" > ++;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP3_2" > < / a > < b > § 3.2. < / b > Kind variables A to Z (where < span class = "extract" > < span class = "extract-syntax" > N< / span > < / span > is 1 to 26 below) can usually stand for
2019-03-17 14:40:57 +02:00
any kind, but can also be marked with a "declaration", usually
constraining what kind of value they are allowed to hold. For example, K
might be marked as being an arithmetical kind of value. See "Kind
Checking.w".
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::variable_construction< / 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" > Kinds::variable_construction< / span > < / span > :< br / > Describing Kinds - < a href = "2-dk.html#SP5" > § 5< / a > , < a href = "2-dk.html#SP8" > § 8< / a > , < a href = "2-dk.html#SP18" > § 18< / a > , < a href = "2-dk.html#SP19" > § 19< / a > < / span > < / button > < 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 = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > declaration< / 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" > N< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) || (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > > < / span > < span class = "constant-syntax" > MAX_KIND_VARIABLES< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "bad kind variable"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-knd.html#SP3_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Create a raw kind structure< / span > < span class = "named-paragraph-number" > 3.4< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > CON_KIND_VARIABLE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_variable_number< / 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" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kc_args< / span > < span class = "plain-syntax" > [0] = < / span > < span class = "identifier-syntax" > declaration< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP3_3" > < / a > < b > § 3.3. < / b > That completes the possible base constructions. Proper constructions are made
2019-03-17 14:40:57 +02:00
using the following. For example,
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > Kinds::unary_construction(CON_list_of, K_number)< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > produces a kind structure meaning "list of numbers". This is not cached
2019-03-17 14:40:57 +02:00
anywhere, so a second request for the same thing will produce a different copy
in memory of the same structure. Profiling shows that little memory is in
practice wasted.
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-12 01:59:29 +03:00
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::unary_construction< / 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" > Kinds::unary_construction< / span > < / span > :< br / > < a href = "2-knd.html#SP3" > § 3< / a > , < a href = "2-knd.html#SP14" > § 14< / a > , < a href = "2-knd.html#SP15" > § 15< / a > , < a href = "2-knd.html#SP16" > § 16< / a > < br / > The Lattice of Kinds - < a href = "2-tlok.html#SP8" > § 8< / a > < br / > Describing Kinds - < a href = "2-dk.html#SP11" > § 11< / a > , < a href = "2-dk.html#SP12_1" > § 12.1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / 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 = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-kc.html#SP13" class = "function-link" > < span class = "function-syntax" > Kinds::Constructors::arity< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ) != < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "bad unary construction"< / span > < span class = "plain-syntax" > );< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-knd.html#SP3_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Create a raw kind structure< / span > < span class = "named-paragraph-number" > 3.4< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kc_args< / span > < span class = "plain-syntax" > [0] = < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > no_constructed_kinds_created< / span > < span class = "plain-syntax" > ++;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-08-12 01:59:29 +03:00
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::binary_construction< / 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" > Kinds::binary_construction< / span > < / span > :< br / > < a href = "2-knd.html#SP3" > § 3< / a > , < a href = "2-knd.html#SP4" > § 4< / a > , < a href = "2-knd.html#SP5" > § 5< / a > , < a href = "2-knd.html#SP14" > § 14< / a > , < a href = "2-knd.html#SP15" > § 15< / a > , < a href = "2-knd.html#SP16" > § 16< / a > < br / > The Lattice of Kinds - < a href = "2-tlok.html#SP8" > § 8< / a > < br / > Describing Kinds - < a href = "2-dk.html#SP11" > § 11< / a > , < a href = "2-dk.html#SP11_2" > § 11.2< / a > , < a href = "2-dk.html#SP11_3" > § 11.3< / a > , < a href = "2-dk.html#SP12_1" > § 12.1< / a > , < a href = "2-dk.html#SP13" > § 13< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-kc.html#SP13" class = "function-link" > < span class = "function-syntax" > Kinds::Constructors::arity< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ) != < / span > < span class = "constant-syntax" > 2< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "bad binary construction"< / span > < span class = "plain-syntax" > );< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-knd.html#SP3_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Create a raw kind structure< / span > < span class = "named-paragraph-number" > 3.4< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kc_args< / span > < span class = "plain-syntax" > [0] = < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kc_args< / span > < span class = "plain-syntax" > [1] = < / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > no_constructed_kinds_created< / 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" > con< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > CON_phrase< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) || (< / span > < span class = "identifier-syntax" > Y< / 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 function kind"< / 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" > Y< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > CON_TUPLE_ENTRY< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "bizarre"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP3_4" > < / a > < b > § 3.4. < / b > We've now seen the only ways to create a kind structure, and they share the
2019-03-17 14:40:57 +02:00
following initialisation:
< / p >
2020-08-09 20:39:31 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Create a raw kind structure< / span > < span class = "named-paragraph-number" > 3.4< / 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" > K< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > CREATE< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / 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" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > intermediate_result< / 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" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_variable_number< / 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" > i< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > < < / span > < span class = "constant-syntax" > MAX_KIND_CONSTRUCTION_ARITY< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kc_args< / 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 >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-knd.html#SP3" > § 3< / a > , < a href = "2-knd.html#SP3_1" > § 3.1< / a > , < a href = "2-knd.html#SP3_2" > § 3.2< / a > , < a href = "2-knd.html#SP3_3" > § 3.3< / a > (twice).< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP4" > < / a > < b > § 4. Constructing kinds for functions. < / b > The following uses the above methods to put together the kind of a function,
2020-05-03 03:01:21 +03:00
making use of the punctuation nodes < span class = "extract" > < span class = "extract-syntax" > CON_TUPLE_ENTRY< / span > < / span > and < span class = "extract" > < span class = "extract-syntax" > CON_NIL< / span > < / span > . Note
that we use < span class = "extract" > < span class = "extract-syntax" > K_nil< / span > < / span > to represent the absence of a return kind (the "nothing"
2019-03-17 14:40:57 +02:00
in a function to nothing). Note also that a function from X to Y, with just
one argument, comes out as:
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > CON_phrase< / span >
< span class = "plain-syntax" > CON_TUPLE_ENTRY< / span >
< span class = "plain-syntax" > X< / span >
< span class = "plain-syntax" > CON_NIL< / span >
< span class = "plain-syntax" > Y< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > rather than as:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > CON_phrase< / span >
< span class = "plain-syntax" > X< / span >
< span class = "plain-syntax" > Y< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > (It's more convenient to have a predictable form than to save on kind nodes.)
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::function_kind< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > no_args< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > args< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > return_K< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > arguments_K< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > K_nil< / span > < span class = "plain-syntax" > ;< / span >
2020-08-11 13:55:39 +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" > =< / span > < span class = "identifier-syntax" > no_args< / span > < span class = "plain-syntax" > -1; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > --)< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > arguments_K< / span > < span class = "plain-syntax" > = < / span > < a href = "2-knd.html#SP3_3" class = "function-link" > < span class = "function-syntax" > Kinds::binary_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > CON_TUPLE_ENTRY< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > args< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ], < / span > < span class = "identifier-syntax" > arguments_K< / 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" > return_K< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > return_K< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > K_nil< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3_3" class = "function-link" > < span class = "function-syntax" > Kinds::binary_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > CON_phrase< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > arguments_K< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > return_K< / 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 >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP5" > < / a > < b > § 5. Constructing kinds for pairs. < / b > Similarly, but more simply, here is the kind for an ordered pair of values:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::pair_kind< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > ) {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3_3" class = "function-link" > < span class = "function-syntax" > Kinds::binary_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > CON_combination< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Y< / 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 >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP6" > < / a > < b > § 6. Iterating through kinds. < / b > It's clearly not literally possible to iterate through kinds (there are
2019-03-17 14:40:57 +02:00
infinitely many) or even through base kinds (since intermediate and variable
constructions confuse the picture), but it does turn out to be convenient
to iterate through all possible constructions, wrapped up into base kind
format. Thus:
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "definitions code-font" > < span class = "definition-keyword" > define< / span > < span class = "identifier-syntax" > LOOP_OVER_BASE_KINDS< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > )< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > =< / span > < a href = "2-knd.html#SP7" class = "function-link" > < span class = "function-syntax" > Kinds::first_base_k< / span > < / a > < span class = "plain-syntax" > (); < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > = < / span > < a href = "2-knd.html#SP7" class = "function-link" > < span class = "function-syntax" > Kinds::next_base_k< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ))< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP7" > < / a > < b > § 7. < / b > This requires the following iterator routines. Note that these will
2019-03-17 14:40:57 +02:00
produce base constructions using constructors of higher arity than that
(for example, it will make "list of K" as a base kind, with no arguments);
this would be unsuitable as the kind of any data, but is convenient for
drawing up the index, and so on.
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::first_base_k< / 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" > Kinds::first_base_k< / span > < / span > :< br / > < a href = "2-knd.html#SP6" > § 6< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind_constructor< / 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" > con< / span > < span class = "plain-syntax" > != < / span > < span class = "identifier-syntax" > CON_KIND_VARIABLE< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > != < / span > < span class = "identifier-syntax" > CON_INTERMEDIATE< / span > < span class = "plain-syntax" > ))< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3" class = "function-link" > < span class = "function-syntax" > Kinds::base_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::next_base_k< / 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" > Kinds::next_base_k< / span > < / span > :< br / > < a href = "2-knd.html#SP6" > § 6< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / 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" > K< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > do< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NEXT_OBJECT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > CON_KIND_VARIABLE< / span > < span class = "plain-syntax" > ) || (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > CON_INTERMEDIATE< / 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" > con< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3" class = "function-link" > < span class = "function-syntax" > Kinds::base_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / 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 >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP8" > < / a > < b > § 8. Annotations of kinds. < / b > Most of the time, the only annotation of a kind node is the constructor used:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-12 01:59:29 +03:00
< span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::get_construct< / 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" > Kinds::get_construct< / span > < / span > :< br / > < a href = "2-knd.html#SP14" > § 14< / a > , < a href = "2-knd.html#SP17" > § 17< / a > < br / > The Lattice of Kinds - < a href = "2-tlok.html#SP9_1" > § 9.1< / a > < br / > Kind Constructors - < a href = "2-kc.html#SP6" > § 6< / a > , < a href = "2-kc.html#SP14" > § 14< / a > , < a href = "2-kc.html#SP18" > § 18< / a > < br / > Using Kinds - < a href = "2-uk.html#SP17" > § 17< / a > , < a href = "2-uk.html#SP28" > § 28< / a > < br / > Describing Kinds - < a href = "2-dk.html#SP24" > § 24< / a > , < a href = "2-dk.html#SP24_1" > § 24.1< / a > , < a href = "2-dk.html#SP24_1_1" > § 24.1.1< / a > , < a href = "2-dk.html#SP25" > § 25< / a > < br / > Dimensions - < a href = "3-dmn.html#SP13" > § 13< / a > < br / > Kind Commands - < a href = "4-kc.html#SP13_1" > § 13.1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / 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" > K< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / 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" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP9" > < / a > < b > § 9. < / b > But for the benefit of intermediate and variable kind nodes, we also need:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Kinds::is_intermediate< / 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" > Kinds::is_intermediate< / span > < / span > :< br / > Dimensions - < a href = "3-dmn.html#SP31_2" > § 31.2< / a > , < a href = "3-dmn.html#SP32" > § 32< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / 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" > K< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > CON_INTERMEDIATE< / 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 >
2020-08-12 01:59:29 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Kinds::get_variable_number< / 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" > Kinds::get_variable_number< / span > < / span > :< br / > < a href = "2-knd.html#SP14" > § 14< / a > , < a href = "2-knd.html#SP21" > § 21< / a > < br / > The Lattice of Kinds - < a href = "2-tlok.html#SP9" > § 9< / a > , < a href = "2-tlok.html#SP9_6" > § 9.6< / a > < br / > Describing Kinds - < a href = "2-dk.html#SP24_1_2" > § 24.1.2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / 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" > K< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > CON_KIND_VARIABLE< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_variable_number< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > -1;< / span >
< span class = "plain-syntax" > }< / span >
2020-08-12 01:59:29 +03:00
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::get_variable_stipulation< / 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" > Kinds::get_variable_stipulation< / span > < / span > :< br / > The Lattice of Kinds - < a href = "2-tlok.html#SP9_6" > § 9.6< / a > , < a href = "2-tlok.html#SP9_6_1" > § 9.6.1< / a > < br / > Describing Kinds - < a href = "2-dk.html#SP24_1_2" > § 24.1.2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / 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" > K< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > CON_KIND_VARIABLE< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kc_args< / span > < span class = "plain-syntax" > [0];< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP10" > < / a > < b > § 10. < / b > Two convenient wrappers for talking about the constructor used:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Kinds::is_proper_constructor< / 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" > Kinds::is_proper_constructor< / span > < / span > :< br / > < a href = "2-knd.html#SP14" > § 14< / a > , < a href = "2-knd.html#SP15" > § 15< / a > , < a href = "2-knd.html#SP16" > § 16< / a > < br / > Describing Kinds - < a href = "2-dk.html#SP24" > § 24< / a > < br / > Dimensions - < a href = "3-dmn.html#SP17" > § 17< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / 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 > < a href = "2-knd.html#SP10" class = "function-link" > < span class = "function-syntax" > Kinds::arity_of_constructor< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / 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" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Kinds::arity_of_constructor< / 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" > Kinds::arity_of_constructor< / span > < / span > :< br / > < a href = "2-knd.html#SP11" > § 11< / a > , < a href = "2-knd.html#SP12" > § 12< / a > , < a href = "2-knd.html#SP14" > § 14< / a > , < a href = "2-knd.html#SP15" > § 15< / a > , < a href = "2-knd.html#SP16" > § 16< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ) {< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-kc.html#SP13" class = "function-link" > < span class = "function-syntax" > Kinds::Constructors::arity< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / 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-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP11" > < / a > < b > § 11. < / b > Given, say, "list of numbers", the following returns "number":
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-12 01:59:29 +03:00
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::unary_construction_material< / 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" > Kinds::unary_construction_material< / span > < / span > :< br / > < a href = "2-knd.html#SP14" > § 14< / a > , < a href = "2-knd.html#SP15" > § 15< / a > , < a href = "2-knd.html#SP16" > § 16< / a > < br / > The Lattice of Kinds - < a href = "2-tlok.html#SP9_1" > § 9.1< / a > < br / > Describing Kinds - < a href = "2-dk.html#SP24_3" > § 24.3< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ) {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-knd.html#SP10" class = "function-link" > < span class = "function-syntax" > Kinds::arity_of_constructor< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ) != < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kc_args< / span > < span class = "plain-syntax" > [0];< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP12" > < / a > < b > § 12. < / b > More awkwardly:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Kinds::binary_construction_material< / span > < button class = "popup" onclick = "togglePopup('usagePopup15')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup15" > Usage of < span class = "code-font" > < span class = "function-syntax" > Kinds::binary_construction_material< / span > < / span > :< br / > < a href = "2-knd.html#SP14" > § 14< / a > , < a href = "2-knd.html#SP15" > § 15< / a > , < a href = "2-knd.html#SP16" > § 16< / a > < br / > Describing Kinds - < a href = "2-dk.html#SP24_1_1" > § 24.1.1< / a > , < a href = "2-dk.html#SP24_3" > § 24.3< / a > , < a href = "2-dk.html#SP25" > § 25< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > Y< / 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-knd.html#SP10" class = "function-link" > < span class = "function-syntax" > Kinds::arity_of_constructor< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ) != < / span > < span class = "constant-syntax" > 2< / 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" > X< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > ) *< / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "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" > X< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kc_args< / span > < span class = "plain-syntax" > [0];< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / 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" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kc_args< / span > < span class = "plain-syntax" > [1];< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP13" > < / a > < b > § 13. Traversing the tree. < / b > Here we look through a kind tree in search of a given constructor at any node.
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Kinds::contains< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > construct< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > con< / 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 >
2020-08-11 13:55:39 +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 = "plain-syntax" > < < / span > < span class = "constant-syntax" > MAX_KIND_CONSTRUCTION_ARITY< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++)< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-knd.html#SP13" class = "function-link" > < span class = "function-syntax" > Kinds::contains< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kc_args< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ], < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ))< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > 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-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP14" > < / a > < b > § 14. Kind variable substitution. < / b > Once we have determined what the kind variables stand for, we sometimes want
2019-03-17 14:40:57 +02:00
to perform substitution to convert (say) "relation of K to list of K" to
< / p >
< ul class = "items" > < li > (say) "relation of numbers to list of numbers".
< / li > < / ul >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > However, in order to ensure that caches are never invalidated, we are careful
never to alter a < span class = "extract" > < span class = "extract-syntax" > kind< / span > < / span > structure once it has been created; instead,
2019-03-17 14:40:57 +02:00
we return a different structure imitating the shape of the original.
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > We set the flag indicated by < span class = "extract" > < span class = "extract-syntax" > changed< / span > < / span > to < span class = "extract" > < span class = "extract-syntax" > TRUE< / span > < / span > if we make any change,
assuming that it was originally < span class = "extract" > < span class = "extract-syntax" > FALSE< / span > < / span > before the first use of this function.
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-11 13:55:39 +03:00
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::substitute< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > meanings< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > changed< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > contra< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP14" class = "function-link" > < span class = "function-syntax" > Kinds::substitute_inner< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > meanings< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > changed< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > contra< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > COVARIANT< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::substitute_inner< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > meanings< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > changed< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > contra< / 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" > way_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" > meanings< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > meanings< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > values_of_kind_variables< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > = < / span > < a href = "2-knd.html#SP9" class = "function-link" > < span class = "function-syntax" > Kinds::get_variable_number< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / 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" > N< / 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" > changed< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > contra< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > way_in< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > CONTRAVARIANT< / span > < span class = "plain-syntax" > ) & & (< / span > < a href = "2-knd.html#SP21" class = "function-link" > < span class = "function-syntax" > Kinds::eq< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > meanings< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > ], < / span > < span class = "identifier-syntax" > K_value< / span > < span class = "plain-syntax" > )))< / span >
2020-08-11 13:55:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K_nil< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > meanings< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > ];< / span >
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-knd.html#SP10" class = "function-link" > < span class = "function-syntax" > Kinds::is_proper_constructor< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > )) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , *< / span > < span class = "identifier-syntax" > X_after< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , *< / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , *< / span > < span class = "identifier-syntax" > Y_after< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > tx< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ty< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > a< / span > < span class = "plain-syntax" > = < / span > < a href = "2-knd.html#SP10" class = "function-link" > < span class = "function-syntax" > Kinds::arity_of_constructor< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / 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" > a< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ) {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > = < / span > < a href = "2-knd.html#SP11" class = "function-link" > < span class = "function-syntax" > Kinds::unary_construction_material< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > );< / span >
2020-08-11 13:55:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > X_after< / span > < span class = "plain-syntax" > = < / span > < a href = "2-knd.html#SP14" class = "function-link" > < span class = "function-syntax" > Kinds::substitute_inner< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > meanings< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > tx< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > contra< / span > < span class = "plain-syntax" > ,< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-kc.html#SP13" class = "function-link" > < span class = "function-syntax" > Kinds::Constructors::variance< / span > < / a > < span class = "plain-syntax" > (< / span > < a href = "2-knd.html#SP8" class = "function-link" > < span class = "function-syntax" > Kinds::get_construct< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ), < / span > < span class = "constant-syntax" > 0< / 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" > tx< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > changed< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3_3" class = "function-link" > < span class = "function-syntax" > Kinds::unary_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > X_after< / 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 = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP12" class = "function-link" > < span class = "function-syntax" > Kinds::binary_construction_material< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > );< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > vx< / span > < span class = "plain-syntax" > = < / span > < a href = "2-kc.html#SP13" class = "function-link" > < span class = "function-syntax" > Kinds::Constructors::variance< / span > < / a > < span class = "plain-syntax" > (< / span > < a href = "2-knd.html#SP8" class = "function-link" > < span class = "function-syntax" > Kinds::get_construct< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / 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" > vy< / span > < span class = "plain-syntax" > = < / span > < a href = "2-kc.html#SP13" class = "function-link" > < span class = "function-syntax" > Kinds::Constructors::variance< / span > < / a > < span class = "plain-syntax" > (< / span > < a href = "2-knd.html#SP8" class = "function-link" > < span class = "function-syntax" > Kinds::get_construct< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ), < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > );< / span >
2020-08-11 13:55:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-knd.html#SP8" class = "function-link" > < span class = "function-syntax" > Kinds::get_construct< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > CON_TUPLE_ENTRY< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > vx< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > way_in< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > vy< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > way_in< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > X_after< / span > < span class = "plain-syntax" > = < / span > < a href = "2-knd.html#SP14" class = "function-link" > < span class = "function-syntax" > Kinds::substitute_inner< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > meanings< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > tx< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > contra< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > vx< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Y_after< / span > < span class = "plain-syntax" > = < / span > < a href = "2-knd.html#SP14" class = "function-link" > < span class = "function-syntax" > Kinds::substitute_inner< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > meanings< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > ty< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > contra< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > vy< / 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" > tx< / span > < span class = "plain-syntax" > ) || (< / span > < span class = "identifier-syntax" > ty< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > changed< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3_3" class = "function-link" > < span class = "function-syntax" > Kinds::binary_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > X_after< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Y_after< / 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" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-11 13:55:39 +03:00
< p class = "commentary firstcommentary" > < a id = "SP15" > < / a > < b > § 15. Weakening. < / b > This operation corresponds to rounding kinds up to < span class = "extract" > < span class = "extract-syntax" > W< / span > < / span > : that is, any
subkind of < span class = "extract" > < span class = "extract-syntax" > W< / span > < / span > is replaced by < span class = "extract" > < span class = "extract-syntax" > W< / span > < / span > .
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-11 13:55:39 +03:00
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::weaken< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > ) {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-knd.html#SP10" class = "function-link" > < span class = "function-syntax" > Kinds::is_proper_constructor< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > )) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , *< / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > a< / span > < span class = "plain-syntax" > = < / span > < a href = "2-knd.html#SP10" class = "function-link" > < span class = "function-syntax" > Kinds::arity_of_constructor< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / 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" > a< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ) {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > = < / span > < a href = "2-knd.html#SP11" class = "function-link" > < span class = "function-syntax" > Kinds::unary_construction_material< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > );< / span >
2020-08-11 13:55:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3_3" class = "function-link" > < span class = "function-syntax" > Kinds::unary_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > , < / span > < a href = "2-knd.html#SP15" class = "function-link" > < span class = "function-syntax" > Kinds::weaken< / span > < / a > < 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 >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP12" class = "function-link" > < span class = "function-syntax" > Kinds::binary_construction_material< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > );< / span >
2020-08-11 13:55:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3_3" class = "function-link" > < span class = "function-syntax" > Kinds::binary_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > , < / span > < a href = "2-knd.html#SP15" class = "function-link" > < span class = "function-syntax" > Kinds::weaken< / span > < / a > < 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 > < a href = "2-knd.html#SP15" class = "function-link" > < span class = "function-syntax" > Kinds::weaken< / span > < / a > < 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 >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ) & & (< / span > < a href = "2-knd.html#SP22" class = "function-link" > < span class = "function-syntax" > Kinds::conforms_to< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > )) & & (< / span > < a href = "2-knd.html#SP21" class = "function-link" > < span class = "function-syntax" > Kinds::eq< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K_nil< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > return< / 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 = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP16" > < / a > < b > § 16. Property dereferencing. < / b > Properties are sometimes nouns referring to themselves, and sometimes nouns
2019-03-17 14:40:57 +02:00
referring to their values, and these have different kinds. So:
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::dereference_properties< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / 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" > K< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > CON_property< / span > < span class = "plain-syntax" > ))< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP11" class = "function-link" > < span class = "function-syntax" > Kinds::unary_construction_material< / span > < / a > < 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 > < a href = "2-knd.html#SP10" class = "function-link" > < span class = "function-syntax" > Kinds::is_proper_constructor< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > )) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , *< / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > a< / span > < span class = "plain-syntax" > = < / span > < a href = "2-knd.html#SP10" class = "function-link" > < span class = "function-syntax" > Kinds::arity_of_constructor< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / 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" > a< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ) {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > = < / span > < a href = "2-knd.html#SP11" class = "function-link" > < span class = "function-syntax" > Kinds::unary_construction_material< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3_3" class = "function-link" > < span class = "function-syntax" > Kinds::unary_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP16" class = "function-link" > < span class = "function-syntax" > Kinds::dereference_properties< / span > < / a > < 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 = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP12" class = "function-link" > < span class = "function-syntax" > Kinds::binary_construction_material< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > Y< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3_3" class = "function-link" > < span class = "function-syntax" > Kinds::binary_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP16" class = "function-link" > < span class = "function-syntax" > Kinds::dereference_properties< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > ), < / span > < a href = "2-knd.html#SP16" class = "function-link" > < span class = "function-syntax" > Kinds::dereference_properties< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Y< / 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 = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP17" > < / a > < b > § 17. Creating new base kind constructors. < / b > Inform's whole stock of constructors comes from two routes: this one, from the
2019-03-17 14:40:57 +02:00
source text, and another we shall see later, from the Kind Interpreter. The
following is called in response to sentences like:
< / p >
< blockquote >
< p > Texture is a kind of value. A musical instrument is a kind of thing.< / p >
< / blockquote >
2020-08-09 20:39:31 +03:00
< p class = "commentary" > The word range is the name ("texture", "musical instrument"), and < span class = "extract" > < span class = "extract-syntax" > super< / span > < / span >
2019-03-17 14:40:57 +02:00
is the super-kind ("value", "thing").
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::new_base< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > parse_node_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PROTECTED_MODEL_PROCEDURE< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PROTECTED_MODEL_PROCEDURE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > = < / span > < a href = "2-knd.html#SP3" class = "function-link" > < span class = "function-syntax" > Kinds::base_construction< / span > < / a > < span class = "plain-syntax" > (< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-kc.html#SP6" class = "function-link" > < span class = "function-syntax" > Kinds::Constructors::new< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < a href = "2-knd.html#SP8" class = "function-link" > < span class = "function-syntax" > Kinds::get_construct< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "#NEW"< / span > < span class = "plain-syntax" > ));< / span >
2020-05-03 03:01:21 +03:00
2020-08-11 13:55:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "2-knd.html#SP17_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Use the source-text name to attach a noun to the constructor< / span > < span class = "named-paragraph-number" > 17.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-fk.html#SP12" class = "function-link" > < span class = "function-syntax" > FamiliarKinds::notice_new_kind< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
2020-08-11 13:55:39 +03:00
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NEW_BASE_KINDS_CALLBACK< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NEW_BASE_KINDS_CALLBACK< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > , < / span > < a href = "2-uk.html#SP21" class = "function-link" > < span class = "function-syntax" > Kinds::Behaviour::get_name_in_template_code< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP18" class = "function-link" > < span class = "function-syntax" > Kinds::make_subkind_inner< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > );< / span >
2020-08-11 13:55:39 +03:00
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > latest_base_kind_of_value< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > KIND_CREATIONS< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Created base kind %u\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-11 13:55:39 +03:00
< p class = "commentary firstcommentary" > < a id = "SP17_1" > < / a > < b > § 17.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Use the source-text name to attach a noun to the constructor< / span > < span class = "named-paragraph-number" > 17.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-11 13:55:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > noun< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > nt< / 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" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > REGISTER_NOUN_KINDS_CALLBACK< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > nt< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > REGISTER_NOUN_KINDS_CALLBACK< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > STORE_POINTER_kind_constructor< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > ));< / span >
2020-07-04 01:01:02 +03:00
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
2020-08-11 13:55:39 +03:00
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifndef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > REGISTER_NOUN_KINDS_CALLBACK< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > nt< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Nouns::new_common_noun< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NEUTER_GENDER< / span > < span class = "plain-syntax" > ,< / span >
2020-06-29 04:17:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ADD_TO_LEXICON_NTOPT< / span > < span class = "plain-syntax" > + < / span > < span class = "identifier-syntax" > WITH_PLURAL_FORMS_NTOPT< / span > < span class = "plain-syntax" > ,< / span >
2020-08-11 13:55:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "constant-syntax" > KIND_SLOW_MC< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > STORE_POINTER_kind_constructor< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > );< / span >
2020-08-08 19:40:02 +03:00
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-kc.html#SP7" class = "function-link" > < span class = "function-syntax" > Kinds::Constructors::attach_noun< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > nt< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "2-knd.html#SP17" > § 17< / a > .< / li > < / ul >
2020-08-12 01:59:29 +03:00
< p class = "commentary firstcommentary" > < a id = "SP18" > < / a > < b > § 18. Making subkinds. < / b > This does not need to be done at creation time.
< / 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-08-12 01:59:29 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Kinds::make_subkind< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > sub< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PROTECTED_MODEL_PROCEDURE< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PROTECTED_MODEL_PROCEDURE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > sub< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "Tried to set kind to %u\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > super< / 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" > "Tried to set the kind of a null kind"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > HIERARCHY_VETO_MOVE_KINDS_CALLBACK< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > HIERARCHY_VETO_MOVE_KINDS_CALLBACK< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > sub< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > super< / 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" > endif< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > existing< / span > < span class = "plain-syntax" > = < / span > < a href = "2-tlok.html#SP7" class = "function-link" > < span class = "function-syntax" > Latticework::super< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > sub< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > switch< / span > < span class = "plain-syntax" > (< / span > < a href = "2-knd.html#SP22" class = "function-link" > < span class = "function-syntax" > Kinds::compatible< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > existing< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NEVER_MATCH:< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "Tried to make %u a kind of %u\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > sub< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > super< / 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" > problem_count< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "1-km.html#SP5" class = "function-link" > < span class = "function-syntax" > KindsModule::problem_handler< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > KindUnalterable_KINDERROR< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < a href = "2-uk.html#SP14" class = "function-link" > < span class = "function-syntax" > Kinds::Behaviour::get_superkind_set_at< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > sub< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > existing< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SOMETIMES_MATCH:< / span >
< span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP18" class = "function-link" > < span class = "function-syntax" > Kinds::make_subkind_inner< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > sub< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Kinds::make_subkind_inner< / span > < button class = "popup" onclick = "togglePopup('usagePopup16')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup16" > Usage of < span class = "code-font" > < span class = "function-syntax" > Kinds::make_subkind_inner< / span > < / span > :< br / > < a href = "2-knd.html#SP17" > § 17< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > sub< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / 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-knd.html#SP21" class = "function-link" > < span class = "function-syntax" > Kinds::eq< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > sub< / 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" > problem_count< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "1-km.html#SP5" class = "function-link" > < span class = "function-syntax" > KindsModule::problem_handler< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > KindsCircular_KINDERROR< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < a href = "2-uk.html#SP14" class = "function-link" > < span class = "function-syntax" > Kinds::Behaviour::get_superkind_set_at< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < a href = "2-tlok.html#SP7" class = "function-link" > < span class = "function-syntax" > Latticework::super< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > sub< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > = < / span > < a href = "2-tlok.html#SP7" class = "function-link" > < span class = "function-syntax" > Latticework::super< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > HIERARCHY_MOVE_KINDS_CALLBACK< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > HIERARCHY_MOVE_KINDS_CALLBACK< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > sub< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
< span class = "plain-syntax" > < / span > < a href = "2-uk.html#SP14" class = "function-link" > < span class = "function-syntax" > Kinds::Behaviour::set_superkind_set_at< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > sub< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > current_sentence< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > KIND_CHANGES< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Making %u a subkind of %u\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > sub< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > super< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP19" > < / a > < b > § 19. Annotating vocabulary. < / b > < / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::read_kind_marking_from_vocabulary< / span > < button class = "popup" onclick = "togglePopup('usagePopup17')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup17" > Usage of < span class = "code-font" > < span class = "function-syntax" > Kinds::read_kind_marking_from_vocabulary< / span > < / span > :< br / > Describing Kinds - < a href = "2-dk.html#SP9" > § 9< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > vocabulary_entry< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > means< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > one_word_kind< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-08-12 01:59:29 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Kinds::mark_vocabulary_as_kind< / span > < button class = "popup" onclick = "togglePopup('usagePopup18')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup18" > Usage of < span class = "code-font" > < span class = "function-syntax" > Kinds::mark_vocabulary_as_kind< / span > < / span > :< br / > Kind Commands - < a href = "4-kc.html#SP26_4" > § 26.4< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > vocabulary_entry< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > means< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > one_word_kind< / 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" > Vocabulary::set_flags< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > KIND_FAST_MC< / span > < span class = "plain-syntax" > );< / span >
2020-05-19 13:46:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NTI::mark_vocabulary< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > , < / span > < span class = "function-syntax" > < k-kind> < / 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 >
2020-08-12 01:59:29 +03:00
< p class = "commentary firstcommentary" > < a id = "SP20" > < / a > < b > § 20. From context. < / b > Sometimes we need to kmow the current values of the 26 kind variables, A
2020-05-03 03:01:21 +03:00
to Z: that depemds on a much wider context than the < span class = "extract" > < span class = "extract-syntax" > kinds< / span > < / span > module can see,
so we need the client to help us. < span class = "extract" > < span class = "extract-syntax" > v< / span > < / span > is in the range 1 to 26. Returning
< span class = "extract" > < span class = "extract-syntax" > NULL< / span > < / span > means there is no current meaning; so if the client provides no
2020-03-28 21:42:53 +02:00
function to tell us, then all variables are permanently unset.
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-12 01:59:29 +03:00
< span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > Kinds::variable_from_context< / span > < button class = "popup" onclick = "togglePopup('usagePopup19')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup19" > Usage of < span class = "code-font" > < span class = "function-syntax" > Kinds::variable_from_context< / span > < / span > :< br / > The Lattice of Kinds - < a href = "2-tlok.html#SP10" > § 10< / a > < br / > Describing Kinds - < a href = "2-dk.html#SP17" > § 17< / a > , < a href = "2-dk.html#SP24_1_2" > § 24.1.2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > v< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > KIND_VARIABLE_FROM_CONTEXT< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > KIND_VARIABLE_FROM_CONTEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > v< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifndef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > KIND_VARIABLE_FROM_CONTEXT< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
< span class = "plain-syntax" > }< / span >
2020-03-28 21:42:53 +02:00
< / pre >
2020-08-12 01:59:29 +03:00
< p class = "commentary firstcommentary" > < a id = "SP21" > < / a > < b > § 21. Equality. < / b > It may well happen that there are two different < a href = "2-knd.html#SP1" class = "internal" > kind< / a > structures in memory
which both mean (say) "list of texts", so we cannot simply test if two
< span class = "extract" > < span class = "extract-syntax" > kind *< / span > < / span > pointers are equal when we want to ask if they represent the same
kind.
< / p >
< p class = "commentary" > The following determines whether or not two kinds are the same. Clearly
all base kinds are different from each other, but in some programming
languages it's an interesting question whether different sequences of
constructors applied to these bases can ever produce an equivalent kind.
Most of the interesting cases are to do with unions (which Inform
disallows as type unsafe) and records (which Inform supports only by its
"combination" operator). For example, is "combination (number, text)"
the same as "combination (text, number)"? One might also consider
whether < span class = "extract" > < span class = "extract-syntax" > -> < / span > < / span > (function mapping) ought to be an associative operation, as
it would be in a language like Haskell which curried all functions.
< / p >
< p class = "commentary" > At any rate, for Inform the answer is no: every different sequence of kind
constructors produces a different kind.
< / p >
< p class = "commentary" > With kind variables, we take the "name" approach rather than the
"structural" approach: that is, the kind "X" (a variable) is not equivalent
to the kind "number" even if that's the current value of X.
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Kinds::eq< / span > < button class = "popup" onclick = "togglePopup('usagePopup20')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup20" > Usage of < span class = "code-font" > < span class = "function-syntax" > Kinds::eq< / span > < / span > :< br / > < a href = "2-knd.html#SP14" > § 14< / a > , < a href = "2-knd.html#SP15" > § 15< / a > , < a href = "2-knd.html#SP18" > § 18< / a > , < a href = "2-knd.html#SP22" > § 22< / a > < br / > The Lattice of Kinds - < a href = "2-tlok.html#SP7" > § 7< / a > , < a href = "2-tlok.html#SP8" > § 8< / a > , < a href = "2-tlok.html#SP9_1" > § 9.1< / a > , < a href = "2-tlok.html#SP9_2" > § 9.2< / a > , < a href = "2-tlok.html#SP9_5" > § 9.5< / a > < br / > Using Kinds - < a href = "2-uk.html#SP2" > § 2< / a > , < a href = "2-uk.html#SP4" > § 4< / a > , < a href = "2-uk.html#SP28" > § 28< / a > < br / > Describing Kinds - < a href = "2-dk.html#SP24_1_2" > § 24.1.2< / a > , < a href = "2-dk.html#SP24_2" > § 24.2< / a > , < a href = "2-dk.html#SP24_3_1" > § 24.3.1< / a > , < a href = "2-dk.html#SP24_3_2" > § 24.3.2< / a > < br / > Dimensions - < a href = "3-dmn.html#SP17" > § 17< / a > , < a href = "3-dmn.html#SP22" > § 22< / a > , < a href = "3-dmn.html#SP23" > § 23< / a > , < a href = "3-dmn.html#SP25" > § 25< / a > , < a href = "3-dmn.html#SP30" > § 30< / a > , < a href = "3-dmn.html#SP31_2_1" > § 31.2.1< / a > , < a href = "3-dmn.html#SP31_2_2" > § 31.2.2< / a > , < a href = "3-dmn.html#SP39_1" > § 39.1< / a > < br / > Floating-Point Values - < a href = "3-fv.html#SP3" > § 3< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K1< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K2< / 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" > K1< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) { < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K2< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TRUE< / 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" > K2< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K1< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / span > < span class = "plain-syntax" > != < / span > < span class = "identifier-syntax" > K2< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > construct< / 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" > K1< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > intermediate_result< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > K2< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > intermediate_result< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > K1< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > intermediate_result< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > K2< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > intermediate_result< / 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" > K1< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > intermediate_result< / span > < span class = "plain-syntax" > ) & & < / span >
< span class = "plain-syntax" > (< / span > < a href = "3-dmn.html#SP22" class = "function-link" > < span class = "function-syntax" > Kinds::Dimensions::compare_unit_sequences< / span > < / a > < span class = "plain-syntax" > (< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > K1< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > intermediate_result< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K2< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > intermediate_result< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / 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 > < a href = "2-knd.html#SP9" class = "function-link" > < span class = "function-syntax" > Kinds::get_variable_number< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K1< / span > < span class = "plain-syntax" > ) != < / span > < a href = "2-knd.html#SP9" class = "function-link" > < span class = "function-syntax" > Kinds::get_variable_number< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K2< / 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 > < 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 = "plain-syntax" > < < / span > < span class = "constant-syntax" > MAX_KIND_CONSTRUCTION_ARITY< / 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-knd.html#SP21" class = "function-link" > < span class = "function-syntax" > Kinds::eq< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K1< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kc_args< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ], < / span > < span class = "identifier-syntax" > K2< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kc_args< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ]) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Kinds::ne< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K1< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K2< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > (< / span > < a href = "2-knd.html#SP21" class = "function-link" > < span class = "function-syntax" > Kinds::eq< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K1< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K2< / span > < span class = "plain-syntax" > ))?< / span > < span class = "identifier-syntax" > FALSE:TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP22" > < / a > < b > § 22. Conformance and compatibility. < / b > For the distinction between these, see < a href = "P-wtmd.html" class = "internal" > What This Module Does< / a > .
< / p >
< pre class = "definitions code-font" > < span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > ALWAYS_MATCH< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 2< / span > < span class = "plain-syntax" > < / span > < span class = "comment-syntax" > provably correct at compile time< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > SOMETIMES_MATCH< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > < / span > < span class = "comment-syntax" > provably reduced to a check feasible at run-time< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > NEVER_MATCH< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > < / span > < span class = "comment-syntax" > provably incorrect at compile time< / span >
< / pre >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Kinds::conforms_to< / span > < button class = "popup" onclick = "togglePopup('usagePopup21')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup21" > Usage of < span class = "code-font" > < span class = "function-syntax" > Kinds::conforms_to< / span > < / span > :< br / > < a href = "2-knd.html#SP15" > § 15< / a > < br / > The Lattice of Kinds - < a href = "2-tlok.html#SP8" > § 8< / a > < br / > Using Kinds - < a href = "2-uk.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > from< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > to< / 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-tlok.html#SP9" class = "function-link" > < span class = "function-syntax" > Latticework::order_relation< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > from< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > to< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) == < / span > < span class = "constant-syntax" > ALWAYS_MATCH< / 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" > 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 >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > Kinds::compatible< / span > < button class = "popup" onclick = "togglePopup('usagePopup22')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup22" > Usage of < span class = "code-font" > < span class = "function-syntax" > Kinds::compatible< / span > < / span > :< br / > < a href = "2-knd.html#SP18" > § 18< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > from< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > to< / 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-knd.html#SP21" class = "function-link" > < span class = "function-syntax" > Kinds::eq< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > from< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > to< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > ALWAYS_MATCH< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > KIND_CHECKING< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "(Is the kind %u compatible with %u?"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > from< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > to< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > switch< / span > < span class = "plain-syntax" > (< / span > < a href = "2-tlok.html#SP9" class = "function-link" > < span class = "function-syntax" > Latticework::order_relation< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > from< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > to< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NEVER_MATCH:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > KIND_CHECKING< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > " No)\n"< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > NEVER_MATCH< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ALWAYS_MATCH:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > KIND_CHECKING< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > " Yes)\n"< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > ALWAYS_MATCH< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SOMETIMES_MATCH:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > KIND_CHECKING< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > " Sometimes)\n"< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > SOMETIMES_MATCH< / span > < span class = "plain-syntax" > ;< / 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" > "bad return value from Kinds::compatible"< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > NEVER_MATCH< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
2020-05-03 03:01:21 +03:00
< nav role = "progress" > < div class = "progresscontainer" >
2020-08-12 01:59:29 +03:00
< ul class = "progressbar" > < li class = "progressprev" > < a href = "1-km.html" > ❮ < / a > < / li > < li class = "progresschapter" > < a href = "P-wtmd.html" > P< / a > < / li > < li class = "progresschapter" > < a href = "1-km.html" > 1< / a > < / li > < li class = "progresscurrentchapter" > 2< / li > < li class = "progresscurrent" > knd< / li > < li class = "progresssection" > < a href = "2-fk.html" > fk< / a > < / li > < li class = "progresssection" > < a href = "2-tlok.html" > tlok< / a > < / li > < li class = "progresssection" > < a href = "2-kc.html" > kc< / a > < / li > < li class = "progresssection" > < a href = "2-uk.html" > uk< / a > < / li > < li class = "progresssection" > < a href = "2-dk.html" > dk< / a > < / li > < li class = "progresschapter" > < a href = "3-dmn.html" > 3< / a > < / li > < li class = "progresschapter" > < a href = "4-kf.html" > 4< / a > < / li > < li class = "progressnext" > < a href = "2-fk.html" > ❯ < / a > < / li > < / ul > < / div >
2020-05-03 03:01:21 +03:00
< / nav > <!-- End of weave -->
2020-03-28 21:42:53 +02:00
2020-03-19 02:11:25 +02:00
< / main >
2019-03-17 14:40:57 +02:00
< / body >
< / html >
