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 >
< title > 15/ma< / title >
< 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 >
<!-- Weave of '15/cr' generated by 7 -->
< ul class = "crumbs" > < li > < a href = "../webs.html" > ★ < / 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 = "#SP1" > § 1. Definitions< / a > < / li > < li > < a href = "#SP3" > § 3. Initial stock< / a > < / li > < li > < a href = "#SP4" > § 4. Second stock< / a > < / li > < li > < a href = "#SP5" > § 5. Typechecking< / a > < / li > < li > < a href = "#SP6" > § 6. Assertion< / a > < / li > < li > < a href = "#SP7" > § 7. Compilation< / a > < / li > < li > < a href = "#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< / 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 = "endnote" > The function Properties::ComparativeRelations::REL_create_initial_stock is used in 6/bp (< a href = "6-bp.html#SP45" > § 45< / a > ).< / 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< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "functiontext" > Properties::Measurement::create_comparatives< / span > < span class = "plain" > ();< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Properties::ComparativeRelations::REL_create_second_stock is used in 6/bp (< a href = "6-bp.html#SP46" > § 46< / a > ).< / 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< / 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\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / 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" > Calculus::Propositions::Checker::issue_bp_typecheck_error< / 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" > Properties::Conditions::get_coinciding_property< / 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\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / 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" > Problems::quote_property< / 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" > Problems::quote_property< / span > < span class = "plain" > (5, < / span > < span class = "identifier" > prn< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Problems::Issue::tcp_problem< / 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 = "endnote" > The function Properties::ComparativeRelations::REL_typecheck is used in 6/bp (< a href = "6-bp.html#SP47" > § 47< / a > ).< / 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< / 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 = "endnote" > The function Properties::ComparativeRelations::REL_assert is used in 6/bp (< a href = "6-bp.html#SP47" > § 47< / a > ).< / 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< / 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 = "endnote" > The function Properties::ComparativeRelations::REL_compile is used in 6/bp (< a href = "6-bp.html#SP47" > § 47< / a > ).< / 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" > Calculus::Deferrals::Cinders::kind_of_value_of_term< / 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" > Calculus::Deferrals::Cinders::kind_of_value_of_term< / 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" > Properties::Conditions::name_can_coincide_with_property< / 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" > Properties::Conditions::get_coinciding_property< / 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" > Calculus::Schemas::modify< / 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" > Properties::iname< / span > < span class = "plain" > (< / span > < span class = "identifier" > prn< / span > < span class = "plain" > ),< / span >
< span class = "functiontext" > Properties::Measurement::strict_comparison< / 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 = "#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< / 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 >
< p class = "endnote" > The function Properties::ComparativeRelations::REL_describe_for_problems is used in 6/bp (< a href = "6-bp.html#SP47" > § 47< / a > ).< / 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" >
2019-04-22 17:42:10 +03:00
<!-- End of weave -->
2019-03-17 14:40:57 +02:00
< / body >
< / html >