mirror of
https://github.com/ganelson/inform.git
synced 2024-07-08 10:04:21 +03:00
220 lines
19 KiB
HTML
220 lines
19 KiB
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
|
|
<html>
|
|
<head>
|
|
<title>Comparative Relations</title>
|
|
<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="../inweb.css" rel="stylesheet" rev="stylesheet" type="text/css">
|
|
|
|
</head>
|
|
<body>
|
|
<nav role="navigation">
|
|
<h1><a href="../index.html">
|
|
<img src="../docs-src/Figures/Inform.png" height=72">
|
|
</a></h1>
|
|
<ul><li><a href="../compiler.html">compiler tools</a></li>
|
|
<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="index.html"><span class="selectedlink">core</span></a></li>
|
|
<li><a href="../inflections-module/index.html">inflections</a></li>
|
|
<li><a href="../linguistics-module/index.html">linguistics</a></li>
|
|
<li><a href="../kinds-module/index.html">kinds</a></li>
|
|
<li><a href="../if-module/index.html">if</a></li>
|
|
<li><a href="../multimedia-module/index.html">multimedia</a></li>
|
|
<li><a href="../problems-module/index.html">problems</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>Shared Modules</h2><ul>
|
|
<li><a href="../arch-module/index.html">arch</a></li>
|
|
<li><a href="../syntax-module/index.html">syntax</a></li>
|
|
<li><a href="../words-module/index.html">words</a></li>
|
|
<li><a href="../html-module/index.html">html</a></li>
|
|
<li><a href="../../../inweb/docs/foundation-module/index.html">foundation</a></li>
|
|
|
|
</ul>
|
|
</nav>
|
|
<main role="main">
|
|
|
|
<!--Weave of 'Comparative Relations' generated by 7-->
|
|
<ul class="crumbs"><li><a href="../index.html">Home</a></li><li><a href="../compiler.html">Inform7 Modules</a></li><li><a href="index.html">core</a></li><li><a href="index.html#15">Chapter 15: Properties</a></li><li><b>Comparative Relations</b></li></ul><p class="purpose">When a measurement adjective like "tall" is defined, so is a comparative relation like "taller than".</p>
|
|
|
|
<ul class="toc"><li><a href="15-cr.html#SP1">§1. Definitions</a></li><li><a href="15-cr.html#SP3">§3. Initial stock</a></li><li><a href="15-cr.html#SP4">§4. Second stock</a></li><li><a href="15-cr.html#SP5">§5. Typechecking</a></li><li><a href="15-cr.html#SP6">§6. Assertion</a></li><li><a href="15-cr.html#SP7">§7. Compilation</a></li><li><a href="15-cr.html#SP8">§8. Problem message text</a></li></ul><hr class="tocbar">
|
|
|
|
<p class="inwebparagraph"><a id="SP1"></a><b>§1. Definitions. </b></p>
|
|
|
|
<p class="inwebparagraph"><a id="SP2"></a><b>§2. </b>This section handles the <code class="display"><span class="extract">PROPERTY_COMPARISON_KBP</span></code> relations. Unlike the
|
|
other relations to do with property values, these do not correspond exactly
|
|
with the properties. Some properties, like "carrying capacity", might
|
|
never be compared with measurement adjectives; others, like "height", might
|
|
be compared with more than one ("short", "tall").
|
|
</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3"></a><b>§3. Initial stock. </b>There is no initial stock of these, since there are no value properties yet
|
|
when Inform starts up.
|
|
</p>
|
|
|
|
<pre class="display">
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Properties::ComparativeRelations::REL_create_initial_stock<button class="popup" onclick="togglePopup('usagePopup1195')">...<span class="popuptext" id="usagePopup1195">Usage of <b>Properties::ComparativeRelations::REL_create_initial_stock</b>:<br>Binary Predicates - <a href="6-bp.html#SP45">§45</a></span></button></span><span class="plain">(</span><span class="reserved">void</span><span class="plain">) {</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="inwebparagraph"><a id="SP4"></a><b>§4. Second stock. </b>When an adjective is defined so that it performs an inequality comparison
|
|
of a property value, like so:
|
|
</p>
|
|
|
|
<blockquote>
|
|
<p>Definition: A woman is tall if her height is 68 or more.</p>
|
|
|
|
</blockquote>
|
|
|
|
<p class="inwebparagraph">...Inform automatically generates a comparative form (here "taller than").
|
|
This is where our comparative relations come from, but the work is done in
|
|
the previous section.
|
|
</p>
|
|
|
|
<pre class="display">
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Properties::ComparativeRelations::REL_create_second_stock<button class="popup" onclick="togglePopup('usagePopup1196')">...<span class="popuptext" id="usagePopup1196">Usage of <b>Properties::ComparativeRelations::REL_create_second_stock</b>:<br>Binary Predicates - <a href="6-bp.html#SP46">§46</a></span></button></span><span class="plain">(</span><span class="reserved">void</span><span class="plain">) {</span>
|
|
<span class="functiontext"><a href="15-ma.html#SP14">Properties::Measurement::create_comparatives</a></span><span class="plain">();</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="inwebparagraph"><a id="SP5"></a><b>§5. Typechecking. </b>Because of the ambiguity between absolute and relative comparisons (see
|
|
below), we'll typecheck this asymmetrically; the left term is typechecked
|
|
as usual, but the right is more leniently handled.
|
|
</p>
|
|
|
|
<pre class="display">
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">Properties::ComparativeRelations::REL_typecheck<button class="popup" onclick="togglePopup('usagePopup1197')">...<span class="popuptext" id="usagePopup1197">Usage of <b>Properties::ComparativeRelations::REL_typecheck</b>:<br>Binary Predicates - <a href="6-bp.html#SP47">§47</a></span></button></span><span class="plain">(</span><span class="reserved">binary_predicate</span><span class="plain"> *</span><span class="identifier">bp</span><span class="plain">,</span>
|
|
<span class="identifier">kind</span><span class="plain"> **</span><span class="identifier">kinds_of_terms</span><span class="plain">, </span><span class="identifier">kind</span><span class="plain"> **</span><span class="identifier">kinds_required</span><span class="plain">, </span><span class="reserved">tc_problem_kit</span><span class="plain"> *</span><span class="identifier">tck</span><span class="plain">) {</span>
|
|
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">kinds_required</span><span class="plain">[0]) &&</span>
|
|
<span class="plain">(</span><span class="identifier">Kinds::Compare::compatible</span><span class="plain">(</span><span class="identifier">kinds_of_terms</span><span class="plain">[0], </span><span class="identifier">kinds_required</span><span class="plain">[0]) == </span><span class="identifier">NEVER_MATCH</span><span class="plain">)) {</span>
|
|
<span class="identifier">LOG</span><span class="plain">(</span><span class="string">"Term 0 is $u not $u\n"</span><span class="plain">, </span><span class="identifier">kinds_of_terms</span><span class="plain">[0], </span><span class="identifier">kinds_required</span><span class="plain">[0]);</span>
|
|
<span class="functiontext"><a href="11-tcp.html#SP12">Calculus::Propositions::Checker::issue_bp_typecheck_error</a></span><span class="plain">(</span><span class="identifier">bp</span><span class="plain">,</span>
|
|
<span class="identifier">kinds_of_terms</span><span class="plain">[0], </span><span class="identifier">kinds_of_terms</span><span class="plain">[1], </span><span class="identifier">tck</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">NEVER_MATCH</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">property</span><span class="plain"> *</span><span class="identifier">prn</span><span class="plain"> = </span><span class="functiontext"><a href="15-cp.html#SP5">Properties::Conditions::get_coinciding_property</a></span><span class="plain">(</span><span class="identifier">kinds_of_terms</span><span class="plain">[1]);</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">prn</span><span class="plain">) && (</span><span class="identifier">prn</span><span class="plain"> != </span><span class="identifier">bp</span><span class="plain">-></span><span class="element">comparative_property</span><span class="plain">)) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">tck</span><span class="plain">-></span><span class="element">log_to_I6_text</span><span class="plain">)</span>
|
|
<span class="identifier">LOG</span><span class="plain">(</span><span class="string">"Comparative misapplied to $Y not $Y\n"</span><span class="plain">, </span><span class="identifier">prn</span><span class="plain">, </span><span class="identifier">bp</span><span class="plain">-></span><span class="element">comparative_property</span><span class="plain">);</span>
|
|
<span class="functiontext"><a href="2-sq.html#SP2">Problems::quote_property</a></span><span class="plain">(4, </span><span class="identifier">bp</span><span class="plain">-></span><span class="element">comparative_property</span><span class="plain">);</span>
|
|
<span class="functiontext"><a href="2-sq.html#SP2">Problems::quote_property</a></span><span class="plain">(5, </span><span class="identifier">prn</span><span class="plain">);</span>
|
|
<span class="functiontext"><a href="2-si.html#SP6">Problems::Issue::tcp_problem</a></span><span class="plain">(</span><span class="identifier">_p_</span><span class="plain">(</span><span class="identifier">PM_ComparativeMisapplied</span><span class="plain">), </span><span class="identifier">tck</span><span class="plain">,</span>
|
|
<span class="string">"that ought to make a comparison of %4 not %5."</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">NEVER_MATCH</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ALWAYS_MATCH</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="inwebparagraph"><a id="SP6"></a><b>§6. Assertion. </b></p>
|
|
|
|
<pre class="display">
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">Properties::ComparativeRelations::REL_assert<button class="popup" onclick="togglePopup('usagePopup1198')">...<span class="popuptext" id="usagePopup1198">Usage of <b>Properties::ComparativeRelations::REL_assert</b>:<br>Binary Predicates - <a href="6-bp.html#SP47">§47</a></span></button></span><span class="plain">(</span><span class="reserved">binary_predicate</span><span class="plain"> *</span><span class="identifier">bp</span><span class="plain">,</span>
|
|
<span class="reserved">inference_subject</span><span class="plain"> *</span><span class="identifier">infs0</span><span class="plain">, </span><span class="identifier">parse_node</span><span class="plain"> *</span><span class="identifier">spec0</span><span class="plain">,</span>
|
|
<span class="reserved">inference_subject</span><span class="plain"> *</span><span class="identifier">infs1</span><span class="plain">, </span><span class="identifier">parse_node</span><span class="plain"> *</span><span class="identifier">spec1</span><span class="plain">) {</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">FALSE</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="inwebparagraph"><a id="SP7"></a><b>§7. Compilation. </b>We need do nothing special: these relations can be compiled from their schemas.
|
|
</p>
|
|
|
|
<pre class="display">
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">Properties::ComparativeRelations::REL_compile<button class="popup" onclick="togglePopup('usagePopup1199')">...<span class="popuptext" id="usagePopup1199">Usage of <b>Properties::ComparativeRelations::REL_compile</b>:<br>Binary Predicates - <a href="6-bp.html#SP47">§47</a></span></button></span><span class="plain">(</span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">task</span><span class="plain">, </span><span class="reserved">binary_predicate</span><span class="plain"> *</span><span class="identifier">bp</span><span class="plain">,</span>
|
|
<span class="reserved">annotated_i6_schema</span><span class="plain"> *</span><span class="identifier">asch</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">task</span><span class="plain"> == </span><span class="constant">TEST_ATOM_TASK</span><span class="plain">)</span>
|
|
<<span class="cwebmacro">Rewrite the annotated schema if it turns out to be an absolute comparison</span> <span class="cwebmacronumber">7.1</span>><span class="plain">;</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">FALSE</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="inwebparagraph"><a id="SP7_1"></a><b>§7.1. </b>Normally, "taller than" would relate two people, and compare their heights.
|
|
But we also want to allow absolute comparison like this one:
|
|
</p>
|
|
|
|
<blockquote>
|
|
<p>if Geoff is taller than 4 foot 5 inches, ...</p>
|
|
|
|
</blockquote>
|
|
|
|
<p class="inwebparagraph">In that case we need a different schema, where right and left are not handled
|
|
so symmetrically; we rewrite the annotated schema on the fly.
|
|
</p>
|
|
|
|
|
|
<p class="macrodefinition"><code class="display">
|
|
<<span class="cwebmacrodefn">Rewrite the annotated schema if it turns out to be an absolute comparison</span> <span class="cwebmacronumber">7.1</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="identifier">kind</span><span class="plain"> *</span><span class="identifier">st</span><span class="plain">[2];</span>
|
|
<span class="identifier">st</span><span class="plain">[0] = </span><span class="functiontext"><a href="12-cad.html#SP6">Calculus::Deferrals::Cinders::kind_of_value_of_term</a></span><span class="plain">(</span><span class="identifier">asch</span><span class="plain">-></span><span class="element">pt0</span><span class="plain">);</span>
|
|
<span class="identifier">st</span><span class="plain">[1] = </span><span class="functiontext"><a href="12-cad.html#SP6">Calculus::Deferrals::Cinders::kind_of_value_of_term</a></span><span class="plain">(</span><span class="identifier">asch</span><span class="plain">-></span><span class="element">pt1</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">Kinds::Compare::eq</span><span class="plain">(</span><span class="identifier">st</span><span class="plain">[0], </span><span class="identifier">st</span><span class="plain">[1]) == </span><span class="identifier">FALSE</span><span class="plain">) &&</span>
|
|
<span class="plain">(</span><span class="functiontext"><a href="15-cp.html#SP5">Properties::Conditions::name_can_coincide_with_property</a></span><span class="plain">(</span><span class="identifier">st</span><span class="plain">[1]))) {</span>
|
|
<span class="reserved">property</span><span class="plain"> *</span><span class="identifier">prn</span><span class="plain"> = </span><span class="functiontext"><a href="15-cp.html#SP5">Properties::Conditions::get_coinciding_property</a></span><span class="plain">(</span><span class="identifier">st</span><span class="plain">[1]);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">prn</span><span class="plain">) {</span>
|
|
<span class="functiontext"><a href="12-is.html#SP4_1">Calculus::Schemas::modify</a></span><span class="plain">(</span><span class="identifier">asch</span><span class="plain">-></span><span class="element">schema</span><span class="plain">,</span>
|
|
<span class="string">"*1.%n %s *2"</span><span class="plain">, </span><span class="functiontext"><a href="15-pr.html#SP27">Properties::iname</a></span><span class="plain">(</span><span class="identifier">prn</span><span class="plain">),</span>
|
|
<span class="functiontext"><a href="15-ma.html#SP5">Properties::Measurement::strict_comparison</a></span><span class="plain">(</span><span class="identifier">bp</span><span class="plain">-></span><span class="element">comparison_sign</span><span class="plain">));</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="15-cr.html#SP7">§7</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP8"></a><b>§8. Problem message text. </b></p>
|
|
|
|
<pre class="display">
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">Properties::ComparativeRelations::REL_describe_for_problems<button class="popup" onclick="togglePopup('usagePopup1200')">...<span class="popuptext" id="usagePopup1200">Usage of <b>Properties::ComparativeRelations::REL_describe_for_problems</b>:<br>Binary Predicates - <a href="6-bp.html#SP47">§47</a></span></button></span><span class="plain">(</span><span class="identifier">OUTPUT_STREAM</span><span class="plain">, </span><span class="reserved">binary_predicate</span><span class="plain"> *</span><span class="identifier">bp</span><span class="plain">) {</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">FALSE</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<hr class="tocbar">
|
|
<ul class="toc"><li><a href="15-ma.html">Back to 'Measurement Adjectives'</a></li><li><a href="15-spr.html">Continue with 'Same Property Relation'</a></li></ul><hr class="tocbar">
|
|
<!--End of weave-->
|
|
<script>
|
|
function togglePopup(material_id) {
|
|
var popup = document.getElementById(material_id);
|
|
popup.classList.toggle("show");
|
|
}
|
|
</script>
|
|
|
|
<link href="Popups.css" rel="stylesheet" rev="stylesheet" type="text/css">
|
|
</main>
|
|
</body>
|
|
</html>
|
|
|