2021-02-06 20:00:34 +02:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
< title > The Creation Predicates< / title >
< link href = "../docs-assets/Breadcrumbs.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< meta name = "viewport" content = "width=device-width initial-scale=1" >
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
< link href = "../docs-assets/Contents.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Progress.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Navigation.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Fonts.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Base.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< script >
function togglePopup(material_id) {
var popup = document.getElementById(material_id);
popup.classList.toggle("show");
}
< / script >
< link href = "../docs-assets/Popups.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Colours.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< / head >
< body class = "commentary-font" >
< nav role = "navigation" >
< h1 > < a href = "../index.html" >
< img src = "../docs-assets/Inform.png" height = 72" >
< / a > < / h1 >
< ul > < li > < a href = "../compiler.html" > compiler tools< / a > < / li >
< li > < a href = "../other.html" > other tools< / a > < / li >
< li > < a href = "../extensions.html" > extensions and kits< / a > < / li >
< li > < a href = "../units.html" > unit test tools< / a > < / li >
< / ul > < h2 > Compiler Webs< / h2 > < ul >
< li > < a href = "../inbuild/index.html" > inbuild< / a > < / li >
< li > < a href = "../inform7/index.html" > inform7< / a > < / li >
< li > < a href = "../inter/index.html" > inter< / a > < / li >
< / ul > < h2 > Inbuild Modules< / h2 > < ul >
< li > < a href = "../supervisor-module/index.html" > supervisor< / a > < / li >
< / ul > < h2 > Inform7 Modules< / h2 > < ul >
< li > < a href = "../core-module/index.html" > core< / a > < / li >
< li > < a href = "index.html" > < span class = "selectedlink" > assertions< / span > < / a > < / li >
< li > < a href = "../values-module/index.html" > values< / a > < / li >
< li > < a href = "../knowledge-module/index.html" > knowledge< / a > < / li >
< li > < a href = "../imperative-module/index.html" > imperative< / a > < / li >
< li > < a href = "../runtime-module/index.html" > runtime< / a > < / li >
< li > < a href = "../if-module/index.html" > if< / a > < / li >
< li > < a href = "../multimedia-module/index.html" > multimedia< / a > < / li >
< li > < a href = "../index-module/index.html" > index< / a > < / li >
< / ul > < h2 > Inter Modules< / h2 > < ul >
< li > < a href = "../bytecode-module/index.html" > bytecode< / a > < / li >
< li > < a href = "../building-module/index.html" > building< / a > < / li >
< li > < a href = "../codegen-module/index.html" > codegen< / a > < / li >
< / ul > < h2 > Services< / h2 > < ul >
< li > < a href = "../arch-module/index.html" > arch< / a > < / li >
< li > < a href = "../calculus-module/index.html" > calculus< / a > < / li >
< li > < a href = "../html-module/index.html" > html< / a > < / li >
< li > < a href = "../inflections-module/index.html" > inflections< / a > < / li >
< li > < a href = "../kinds-module/index.html" > kinds< / a > < / li >
< li > < a href = "../linguistics-module/index.html" > linguistics< / a > < / li >
< li > < a href = "../problems-module/index.html" > problems< / a > < / li >
< li > < a href = "../syntax-module/index.html" > syntax< / a > < / li >
< li > < a href = "../words-module/index.html" > words< / a > < / li >
< li > < a href = "../../../inweb/docs/foundation-module/index.html" > foundation< / a > < / li >
< / ul >
< / nav >
< main role = "main" >
<!-- Weave of 'The Creation Predicates' generated by Inweb -->
< div class = "breadcrumbs" >
2021-03-30 00:53:01 +03:00
< ul class = "crumbs" > < li > < a href = "../index.html" > Home< / a > < / li > < li > < a href = "../compiler.html" > Inform7< / a > < / li > < li > < a href = "index.html" > assertions< / a > < / li > < li > < a href = "index.html#8" > Chapter 8: Predicates< / a > < / li > < li > < b > The Creation Predicates< / b > < / li > < / ul > < / div >
2021-02-06 20:00:34 +02:00
< p class = "purpose" > To define the predicates causing instances to be created.< / p >
2021-03-30 00:53:01 +03:00
< ul class = "toc" > < li > < a href = "8-tcp.html#SP2" > § 2. Family< / a > < / li > < li > < a href = "8-tcp.html#SP4" > § 4. Initial stock< / a > < / li > < / ul > < hr class = "tocbar" >
2021-02-06 20:00:34 +02:00
< p class = "commentary firstcommentary" > < a id = "SP1" class = "paragraph-anchor" > < / a > < b > § 1. < / b > This predicate plays a very special role in our calculus, and must always
exist.
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > calling_up_family< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > is_a_var_up_family< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > is_a_const_up_family< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > is_a_kind_up_family< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > is_a_var_up< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > is_a_const_up< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP2" class = "paragraph-anchor" > < / a > < b > § 2. Family. < / b > This is a minimal representation only: Inform adds other methods to the equality
family to handle its typechecking and so on.
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::start< / 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" > CreationPredicates::start< / span > < / span > :< br / > Assertions Module - < a href = "1-am.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > calling_up_family< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > UnaryPredicateFamilies::new< / span > < span class = "plain-syntax" > ();< / span >
2021-03-30 00:53:01 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > METHOD_ADD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > calling_up_family< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > LOG_UPF_MTID< / span > < span class = "plain-syntax" > , < / span > < a href = "8-tcp.html#SP5" class = "function-link" > < span class = "function-syntax" > CreationPredicates::log_calling< / span > < / a > < span class = "plain-syntax" > );< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CORE_MODULE< / span >
2021-03-30 00:53:01 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > METHOD_ADD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > calling_up_family< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > TYPECHECK_UPF_MTID< / span > < span class = "plain-syntax" > , < / span > < a href = "8-tcp.html#SP4" class = "function-link" > < span class = "function-syntax" > CreationPredicates::typecheck_calling< / span > < / a > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > METHOD_ADD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > calling_up_family< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > SCHEMA_UPF_MTID< / span > < span class = "plain-syntax" > , < / span > < a href = "8-tcp.html#SP5" class = "function-link" > < span class = "function-syntax" > CreationPredicates::schema_calling< / span > < / a > < span class = "plain-syntax" > );< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > is_a_var_up_family< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > UnaryPredicateFamilies::new< / span > < span class = "plain-syntax" > ();< / span >
2021-03-30 00:53:01 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > METHOD_ADD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_a_var_up_family< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > STOCK_UPF_MTID< / span > < span class = "plain-syntax" > , < / span > < a href = "8-tcp.html#SP4" class = "function-link" > < span class = "function-syntax" > CreationPredicates::stock_is_a_var< / span > < / a > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > METHOD_ADD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_a_var_up_family< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > LOG_UPF_MTID< / span > < span class = "plain-syntax" > , < / span > < a href = "8-tcp.html#SP5" class = "function-link" > < span class = "function-syntax" > CreationPredicates::log_is_a_var< / span > < / a > < span class = "plain-syntax" > );< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > is_a_const_up_family< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > UnaryPredicateFamilies::new< / span > < span class = "plain-syntax" > ();< / span >
2021-03-30 00:53:01 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > METHOD_ADD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_a_const_up_family< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > STOCK_UPF_MTID< / span > < span class = "plain-syntax" > , < / span > < a href = "8-tcp.html#SP4" class = "function-link" > < span class = "function-syntax" > CreationPredicates::stock_is_a_const< / span > < / a > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > METHOD_ADD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_a_const_up_family< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > LOG_UPF_MTID< / span > < span class = "plain-syntax" > , < / span > < a href = "8-tcp.html#SP5" class = "function-link" > < span class = "function-syntax" > CreationPredicates::log_is_a_const< / span > < / a > < span class = "plain-syntax" > );< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > is_a_kind_up_family< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > UnaryPredicateFamilies::new< / span > < span class = "plain-syntax" > ();< / span >
2021-03-30 00:53:01 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > METHOD_ADD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_a_kind_up_family< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > LOG_UPF_MTID< / span > < span class = "plain-syntax" > , < / span > < a href = "8-tcp.html#SP5" class = "function-link" > < span class = "function-syntax" > CreationPredicates::log_is_a_kind< / span > < / a > < span class = "plain-syntax" > );< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CORE_MODULE< / span >
2021-03-30 00:53:01 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > METHOD_ADD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_a_var_up_family< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > TYPECHECK_UPF_MTID< / span > < span class = "plain-syntax" > , < / span > < a href = "8-tcp.html#SP4" class = "function-link" > < span class = "function-syntax" > CreationPredicates::typecheck_is_a_var< / span > < / a > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > METHOD_ADD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_a_const_up_family< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > TYPECHECK_UPF_MTID< / span > < span class = "plain-syntax" > , < / span > < a href = "8-tcp.html#SP4" class = "function-link" > < span class = "function-syntax" > CreationPredicates::typecheck_is_a_const< / span > < / a > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > METHOD_ADD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_a_kind_up_family< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > TYPECHECK_UPF_MTID< / span > < span class = "plain-syntax" > , < / span > < a href = "8-tcp.html#SP4" class = "function-link" > < span class = "function-syntax" > CreationPredicates::typecheck_is_a_kind< / span > < / a > < span class = "plain-syntax" > );< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP3" class = "paragraph-anchor" > < / a > < b > § 3. < / b > < span class = "extract" > < span class = "extract-syntax" > CALLED< / span > < / span > atoms are interesting because they exist only for their side-effects:
they have no effect at all on the logical status of a proposition (well, except
that they should not be applied to free variables referred to nowhere else).
They can therefore be added or removed freely. In the phrase
< / p >
< blockquote >
< p > if a woman is in a lighted room (called the den), ...< / p >
< / blockquote >
< p class = "commentary" > we need to note that the value of the bound variable corresponding to the
lighted room will need to be kept and to have a name ("the den"): this
will probably mean the inclusion of a < span class = "extract" > < span class = "extract-syntax" > CALLED=den(y)< / span > < / span > atom.
< / p >
< p class = "commentary" > The calling data for a < span class = "extract" > < span class = "extract-syntax" > CALLED< / span > < / span > atom is the textual name by which the variable
will be called.
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-03-30 00:53:01 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::is_calling_up_atom< / 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" > CreationPredicates::is_calling_up_atom< / span > < / span > :< br / > < a href = "8-tcp.html#SP5" > § 5< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > ) {< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > element< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > PREDICATE_ATOM< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > arity< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > RETRIEVE_POINTER_unary_predicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > predicate< / span > < span class = "plain-syntax" > );< / span >
2021-02-13 18:30:19 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > family< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > calling_up_family< / 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 >
2021-02-06 20:00:34 +02: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" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "identifier-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > CreationPredicates::what_kind_of_calling< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > element< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > PREDICATE_ATOM< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > arity< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > RETRIEVE_POINTER_unary_predicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > predicate< / span > < span class = "plain-syntax" > );< / span >
2021-02-13 18:30:19 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > family< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > calling_up_family< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > assert_kind< / span > < span class = "plain-syntax" > ;< / span >
2021-02-06 20:00:34 +02: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" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2021-03-30 00:53:01 +03:00
< span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > CreationPredicates::calling_up< / 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" > CreationPredicates::calling_up< / span > < / span > :< br / > Calculus Utilities - < a href = "8-cu.html#SP1" > § 1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > pcalc_term< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > t< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ) {< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > UnaryPredicates::new< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > calling_up_family< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > calling_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > assert_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" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Atoms::unary_PREDICATE_new< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > t< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "identifier-syntax" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::get_calling_name< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > element< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > PREDICATE_ATOM< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > arity< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > RETRIEVE_POINTER_unary_predicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > predicate< / span > < span class = "plain-syntax" > );< / span >
2021-02-13 18:30:19 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > family< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > calling_up_family< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > calling_name< / span > < span class = "plain-syntax" > ;< / span >
2021-02-06 20:00:34 +02: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" > EMPTY_WORDING< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP4" class = "paragraph-anchor" > < / a > < b > § 4. Initial stock. < / b > This relation is hard-wired in, and it is made in a slightly special way
since (alone among binary predicates) it has no distinct reversal.
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2021-03-30 00:53:01 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::stock_is_a_var< / 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" > CreationPredicates::stock_is_a_var< / span > < / span > :< br / > < a href = "8-tcp.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > self< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ) {< / span >
2021-02-06 20:00:34 +02: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" > 1< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > is_a_var_up< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > UnaryPredicates::new< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_a_var_up_family< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2021-03-30 00:53:01 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::stock_is_a_const< / 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" > CreationPredicates::stock_is_a_const< / span > < / span > :< br / > < a href = "8-tcp.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > self< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > n< / span > < span class = "plain-syntax" > ) {< / span >
2021-02-06 20:00:34 +02: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" > 1< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > is_a_const_up< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > UnaryPredicates::new< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_a_const_up_family< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2021-03-30 00:53:01 +03:00
< span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > CreationPredicates::is_a_var_up< / 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" > CreationPredicates::is_a_var_up< / span > < / span > :< br / > Calculus Utilities - < a href = "8-cu.html#SP1" > § 1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pcalc_term< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > t< / span > < span class = "plain-syntax" > ) {< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Atoms::unary_PREDICATE_new< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_a_var_up< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > t< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2021-03-30 00:53:01 +03:00
< span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > CreationPredicates::is_a_const_up< / 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" > CreationPredicates::is_a_const_up< / span > < / span > :< br / > Calculus Utilities - < a href = "8-cu.html#SP1" > § 1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pcalc_term< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > t< / span > < span class = "plain-syntax" > ) {< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Atoms::unary_PREDICATE_new< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_a_const_up< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > t< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2021-03-30 00:53:01 +03:00
< span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > CreationPredicates::is_a_kind_up< / 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" > CreationPredicates::is_a_kind_up< / span > < / span > :< br / > Calculus Utilities - < a href = "8-cu.html#SP1" > § 1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pcalc_term< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > t< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > K< / span > < span class = "plain-syntax" > ) {< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > UnaryPredicates::new< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_a_kind_up_family< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > assert_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" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Atoms::unary_PREDICATE_new< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > t< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "identifier-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > CreationPredicates::what_kind< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > element< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > PREDICATE_ATOM< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > arity< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > RETRIEVE_POINTER_unary_predicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > predicate< / span > < span class = "plain-syntax" > );< / span >
2021-02-13 18:30:19 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > family< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > is_a_kind_up_family< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > assert_kind< / span > < span class = "plain-syntax" > ;< / span >
2021-02-06 20:00:34 +02: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" > NULL< / 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" > CORE_MODULE< / span >
2021-03-30 00:53:01 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::typecheck_calling< / 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" > CreationPredicates::typecheck_calling< / span > < / span > :< br / > < a href = "8-tcp.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > self< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > ,< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > variable_type_assignment< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > vta< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > tc_problem_kit< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > tck< / 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" > ALWAYS_MATCH< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2021-03-30 00:53:01 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::typecheck_is_a_var< / 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" > CreationPredicates::typecheck_is_a_var< / span > < / span > :< br / > < a href = "8-tcp.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > self< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > ,< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > variable_type_assignment< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > vta< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > tc_problem_kit< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > tck< / 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" > ALWAYS_MATCH< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2021-03-30 00:53:01 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::typecheck_is_a_const< / 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" > CreationPredicates::typecheck_is_a_const< / span > < / span > :< br / > < a href = "8-tcp.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > self< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > ,< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > variable_type_assignment< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > vta< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > tc_problem_kit< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > tck< / 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" > ALWAYS_MATCH< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2021-03-30 00:53:01 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::typecheck_is_a_kind< / 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" > CreationPredicates::typecheck_is_a_kind< / span > < / span > :< br / > < a href = "8-tcp.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > self< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > ,< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > variable_type_assignment< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > vta< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > tc_problem_kit< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > tck< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > kind< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > actually_find< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Propositions::Checker::kind_of_term< / span > < span class = "plain-syntax" > (& (< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > terms< / span > < span class = "plain-syntax" > [0]), < / span > < span class = "identifier-syntax" > vta< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > tck< / 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" > Kinds::compatible< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > actually_find< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K_object< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > NEVER_MATCH< / 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" > "is_a_kind predicate misapplied"< / 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" > ALWAYS_MATCH< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP5" class = "paragraph-anchor" > < / a > < b > § 5. < / b > "Called" predicates cannot be asserted, and to test them, we simply copy the
value into the local variable of the given name. Note then that here
the I6 < span class = "extract" > < span class = "extract-syntax" > =< / span > < / span > (set equal) operator is being used in a condition context:
there's a good chance that the value set is non-zero (since all objects
and enumerated values are non-zero), but it isn't necessarily so —
in Inform it's legal to quantify over times and truth states, for
instance, where 0 is a legal I6 value. So we use the comma operator
to throw away the result of the assignment, and evaluate the condition
to < span class = "extract" > < span class = "extract-syntax" > true< / span > < / span > .
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CORE_MODULE< / span >
2021-03-30 00:53:01 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::schema_calling< / 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" > CreationPredicates::schema_calling< / span > < / span > :< br / > < a href = "8-tcp.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > self< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > task< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > ,< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > annotated_i6_schema< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > asch< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-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" > switch< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > task< / 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" > TEST_ATOM_TASK:< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Calculus::Schemas::modify< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > asch< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > schema< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "(%L=(*1), true)"< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LocalVariables::ensure_called_local< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > calling_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > assert_kind< / 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 = "identifier-syntax" > default:< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > asch< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > schema< / 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" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
2021-03-30 00:53:01 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::log_calling< / 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" > CreationPredicates::log_calling< / span > < / span > :< br / > < a href = "8-tcp.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > self< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > OUTPUT_STREAM< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > ) {< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "called='%W'"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > calling_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > assert_kind< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > ":%u"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > assert_kind< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2021-03-30 00:53:01 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::log_is_a_var< / 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" > CreationPredicates::log_is_a_var< / span > < / span > :< br / > < a href = "8-tcp.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > self< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > OUTPUT_STREAM< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > ) {< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "is-a-var"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2021-03-30 00:53:01 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::log_is_a_const< / 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" > CreationPredicates::log_is_a_const< / span > < / span > :< br / > < a href = "8-tcp.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > self< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > OUTPUT_STREAM< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > ) {< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "is-a-const"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2021-03-30 00:53:01 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > CreationPredicates::log_is_a_kind< / 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" > CreationPredicates::log_is_a_kind< / span > < / span > :< br / > < a href = "8-tcp.html#SP2" > § 2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > up_family< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > self< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > OUTPUT_STREAM< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > unary_predicate< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > ) {< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "is-a-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" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > assert_kind< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "=%u"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > up< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > assert_kind< / 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" > CreationPredicates::contains_callings< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pcalc_prop< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > prop< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next< / span > < span class = "plain-syntax" > )< / span >
2021-03-30 00:53:01 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "8-tcp.html#SP3" class = "function-link" > < span class = "function-syntax" > CreationPredicates::is_calling_up_atom< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > ))< / span >
2021-02-06 20:00:34 +02: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 >
< / pre >
< nav role = "progress" > < div class = "progresscontainer" >
2021-03-30 00:53:01 +03:00
< ul class = "progressbar" > < li class = "progressprev" > < a href = "8-tap.html" > ❮ < / a > < / li > < li class = "progresschapter" > < a href = "P-wtmd.html" > P< / a > < / li > < li class = "progresschapter" > < a href = "1-am.html" > 1< / a > < / li > < li class = "progresschapter" > < a href = "2-bv.html" > 2< / a > < / li > < li class = "progresschapter" > < a href = "3-dlr.html" > 3< / a > < / li > < li class = "progresschapter" > < a href = "4-nr.html" > 4< / a > < / li > < li class = "progresschapter" > < a href = "5-id.html" > 5< / a > < / li > < li class = "progresschapter" > < a href = "6-rls.html" > 6< / a > < / li > < li class = "progresschapter" > < a href = "7-tc.html" > 7< / a > < / li > < li class = "progresscurrentchapter" > 8< / li > < li class = "progresssection" > < a href = "8-kpr.html" > kpr< / a > < / li > < li class = "progresssection" > < a href = "8-tap.html" > tap< / a > < / li > < li class = "progresscurrent" > tcp< / li > < li class = "progresssection" > < a href = "8-terr.html" > terr< / a > < / li > < li class = "progresssection" > < a href = "8-qr.html" > qr< / a > < / li > < li class = "progresssection" > < a href = "8-tur.html" > tur< / a > < / li > < li class = "progresssection" > < a href = "8-er.html" > er< / a > < / li > < li class = "progresssection" > < a href = "8-lr.html" > lr< / a > < / li > < li class = "progresssection" > < a href = "8-aa.html" > aa< / a > < / li > < li class = "progresssection" > < a href = "8-am.html" > am< / a > < / li > < li class = "progresssection" > < a href = "8-amd.html" > amd< / a > < / li > < li class = "progresssection" > < a href = "8-cu.html" > cu< / a > < / li > < li class = "progressnext" > < a href = "8-terr.html" > ❯ < / a > < / li > < / ul > < / div >
2021-02-06 20:00:34 +02:00
< / nav > <!-- End of weave -->
< / main >
< / body >
< / html >