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/cr< / 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/spr' 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 > Same Property Relation< / b > < / li > < / ul > < p class = "purpose" > Each value property has an associated relation to compare its value between two holders.< / p >
< ul class = "toc" > < li > < a href = "#SP1" > § 1. Initial stock< / a > < / li > < li > < a href = "#SP2" > § 2. Second stock< / a > < / li > < li > < a href = "#SP3" > § 3. Typechecking< / a > < / li > < li > < a href = "#SP4" > § 4. Assertion< / a > < / li > < li > < a href = "#SP5" > § 5. Compilation< / a > < / li > < li > < a href = "#SP7" > § 7. Problem message text< / a > < / li > < / ul > < hr class = "tocbar" >
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. 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::SameRelations::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::SameRelations::REL_create_initial_stock is used in 6/bp (< a href = "6-bp.html#SP45" > § 45< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. Second stock. < / b > If, for example, there is a value property called "height" then a BP is
constructed in order to serve as the meaning of "the same height as" in text
like this:
< / p >
< blockquote >
< p > if Ms Cregg is the same height as Big Bird, ...< / p >
< / blockquote >
< p class = "inwebparagraph" > We again have two schemas, because it makes sense not only to perform
the comparison but also to force it true thus:
< / p >
< blockquote >
< p > now Ms Cregg is the same height as Big Bird;< / p >
< / blockquote >
< p class = "inwebparagraph" > (That couldn't be arranged for strict inequality comparisons like "taller
than" because it is unclear just how much taller than Big Bird we would have
to make C. J.)
< / p >
< pre class = "display" >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Properties::SameRelations::REL_create_second_stock< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / 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 = "identifier" > LOOP_OVER< / span > < span class = "plain" > (< / span > < span class = "identifier" > prn< / span > < span class = "plain" > , < / span > < span class = "reserved" > property< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "functiontext" > Properties::is_value_property< / span > < span class = "plain" > (< / span > < span class = "identifier" > prn< / span > < span class = "plain" > )) {< / span >
< span class = "identifier" > vocabulary_entry< / span > < span class = "plain" > *< / span > < span class = "identifier" > rel_name< / span > < span class = "plain" > ;< / span >
2019-08-24 13:21:48 +03:00
< span class = "identifier" > inter_name< / span > < span class = "plain" > *< / span > < span class = "identifier" > i6_pname< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Properties::iname< / span > < span class = "plain" > (< / span > < span class = "identifier" > prn< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< < span class = "cwebmacro" > Work out the name for the same-property-value-as relation< / span > < span class = "cwebmacronumber" > 2.1< / span > > < span class = "plain" > ;< / span >
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > relname< / span > < span class = "plain" > );< / span >
< span class = "identifier" > WRITE_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > relname< / span > < span class = "plain" > , < / span > < span class = "string" > "%V"< / span > < span class = "plain" > , < / span > < span class = "identifier" > rel_name< / 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 = "functiontext" > BinaryPredicates::make_pair< / span > < span class = "plain" > (< / span > < span class = "constant" > PROPERTY_SAME_KBP< / span > < span class = "plain" > ,< / span >
< span class = "functiontext" > BinaryPredicates::new_term< / span > < span class = "plain" > (< / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ), < / span > < span class = "functiontext" > BinaryPredicates::new_term< / span > < span class = "plain" > (< / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ),< / span >
< span class = "identifier" > relname< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ,< / span >
< span class = "functiontext" > Calculus::Schemas::new< / span > < span class = "plain" > (< / span > < span class = "string" > "*1.%n = *2.%n"< / span > < span class = "plain" > , < / span > < span class = "identifier" > i6_pname< / span > < span class = "plain" > , < / span > < span class = "identifier" > i6_pname< / span > < span class = "plain" > ),< / span >
< span class = "functiontext" > Calculus::Schemas::new< / span > < span class = "plain" > (< / span > < span class = "string" > "*1.%n == *2.%n"< / span > < span class = "plain" > , < / span > < span class = "identifier" > i6_pname< / span > < span class = "plain" > , < / span > < span class = "identifier" > i6_pname< / span > < span class = "plain" > ),< / span >
< span class = "identifier" > WordAssemblages::lit_1< / span > < span class = "plain" > (< / span > < span class = "identifier" > rel_name< / span > < span class = "plain" > ));< / span >
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > relname< / span > < span class = "plain" > );< / span >
< span class = "identifier" > bp< / span > < span class = "plain" > -< / span > < span class = "element" > > same_property< / span > < span class = "plain" > = < / span > < span class = "identifier" > prn< / span > < span class = "plain" > ;< / span >
< span class = "functiontext" > Properties::SameRelations::register_same_property_as< / span > < span class = "plain" > (< / span > < span class = "identifier" > bp< / span > < span class = "plain" > , < / span > < span class = "functiontext" > Properties::get_name< / span > < span class = "plain" > (< / span > < span class = "identifier" > prn< / span > < span class = "plain" > ));< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Properties::SameRelations::register_same_property_as< / span > < span class = "plain" > (< / span > < span class = "constant" > VERB_MEANING_TYPE< / span > < span class = "plain" > *< / span > < span class = "identifier" > root< / span > < span class = "plain" > , < / span > < span class = "identifier" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > W< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Wordings::empty< / span > < span class = "plain" > (< / span > < span class = "identifier" > W< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > set_where_created< / span > < span class = "plain" > = < / span > < span class = "identifier" > current_sentence< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > verb_meaning< / span > < span class = "plain" > < / span > < span class = "identifier" > vm< / span > < span class = "plain" > = < / span > < span class = "identifier" > VerbMeanings::new< / span > < span class = "plain" > (< / span > < span class = "identifier" > root< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
< span class = "identifier" > preposition_identity< / span > < span class = "plain" > *< / span > < span class = "identifier" > prep< / span > < span class = "plain" > =< / span >
< span class = "identifier" > Prepositions::make< / span > < span class = "plain" > (< / span >
< span class = "identifier" > Preform::Nonparsing::merge< / span > < span class = "plain" > (< < / span > < span class = "identifier" > same< / span > < span class = "plain" > -< / span > < span class = "reserved" > property< / span > < span class = "plain" > -< / span > < span class = "identifier" > as< / span > < span class = "plain" > -< / span > < span class = "identifier" > construction< / span > < span class = "plain" > > , 0,< / span >
< span class = "identifier" > WordAssemblages::from_wording< / span > < span class = "plain" > (< / span > < span class = "identifier" > W< / span > < span class = "plain" > )), < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Verbs::add_form< / span > < span class = "plain" > (< / span > < span class = "identifier" > copular_verb< / span > < span class = "plain" > , < / span > < span class = "identifier" > prep< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > , < / span > < span class = "identifier" > vm< / span > < span class = "plain" > , < / span > < span class = "identifier" > SVO_FS_BIT< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Properties::SameRelations::REL_create_second_stock is used in 6/bp (< a href = "6-bp.html#SP46" > § 46< / a > ).< / p >
< p class = "endnote" > The function Properties::SameRelations::register_same_property_as appears nowhere else.< / p >
< p class = "inwebparagraph" > < a id = "SP2_1" > < / a > < b > § 2.1. < / b > In I7 source text, this relation is called "same-height-as", but we don't
mention this in the documentation because (for timing reasons) it doesn't
exist when the new-verb sentences are being parsed: so writing
< / p >
< blockquote >
< p > The verb to be level with implies the same-height-as relation.< / p >
< / blockquote >
< p class = "inwebparagraph" > cannot work. Nothing is really lost by this, since it's easy enough to
define an identically-behaving relation by hand:
< / p >
< blockquote >
< p > Levelling relates a person (called Mr X) to a person (called Mr Y) when the height of Mr X is the height of Mr Y.< / p >
< / blockquote >
< blockquote >
< p > The verb to be level with implies the levelling relation.< / p >
< / blockquote >
< p class = "inwebparagraph" > Relations need to have single-word names, but properties don't, so we shrink
spaces to hyphens: thus, for instance, "same-carrying-capacity-as". We also
truncate to a reasonable length, ensuring that the result doesn't exceed
< code class = "display" > < span class = "extract" > MAX_WORD_LENGTH< / span > < / code > or overflow our storage for a debugging-log name.
< / p >
< p class = "macrodefinition" > < code class = "display" >
< < span class = "cwebmacrodefn" > Work out the name for the same-property-value-as relation< / span > < span class = "cwebmacronumber" > 2.1< / span > > =
< / code > < / p >
< pre class = "displaydefn" >
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > i7_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > WRITE_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > i7_name< / span > < span class = "plain" > , < / span > < span class = "string" > "same-%< W-as"< / span > < span class = "plain" > , < / span > < span class = "identifier" > prn< / span > < span class = "plain" > -< / span > < span class = "element" > > name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOOP_THROUGH_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > , < / span > < span class = "identifier" > i7_name< / span > < span class = "plain" > )< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::get< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > ) == < / span > < span class = "character" > ' '< / span > < span class = "plain" > ) < / span > < span class = "identifier" > Str::put< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > , < / span > < span class = "character" > '-'< / span > < span class = "plain" > );< / span >
< span class = "identifier" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > I7W< / span > < span class = "plain" > = < / span > < span class = "identifier" > Feeds::feed_stream_expanding_strings< / span > < span class = "plain" > (< / span > < span class = "identifier" > i7_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > rel_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > Lexer::word< / span > < span class = "plain" > (< / span > < span class = "identifier" > Wordings::first_wn< / span > < span class = "plain" > (< / span > < span class = "identifier" > I7W< / span > < span class = "plain" > ));< / span >
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > i7_name< / span > < span class = "plain" > );< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > This code is used in < a href = "#SP2" > § 2< / a > .< / p >
< p class = "inwebparagraph" > < a id = "SP3" > < / a > < b > § 3. Typechecking. < / b > We just let the standard machinery do its work.
< / p >
< pre class = "display" >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > Properties::SameRelations::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" > return< / span > < span class = "plain" > < / span > < span class = "constant" > DECLINE_TO_MATCH< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Properties::SameRelations::REL_typecheck is used in 6/bp (< a href = "6-bp.html#SP47" > § 47< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP4" > < / a > < b > § 4. Assertion. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > Properties::SameRelations::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::SameRelations::REL_assert is used in 6/bp (< a href = "6-bp.html#SP47" > § 47< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP5" > < / a > < b > § 5. Compilation. < / b > Again we need do nothing special.
< / p >
< pre class = "display" >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > Properties::SameRelations::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" > 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::SameRelations::REL_compile is used in 6/bp (< a href = "6-bp.html#SP47" > § 47< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP6" > < / a > < b > § 6. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > property< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Properties::SameRelations::bp_get_same_as_property< / 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" > bp< / span > < span class = "plain" > -< / span > < span class = "element" > > same_property< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function Properties::SameRelations::bp_get_same_as_property appears nowhere else.< / p >
< p class = "inwebparagraph" > < a id = "SP7" > < / a > < b > § 7. Problem message text. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > Properties::SameRelations::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::SameRelations::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-cr.html" > Back to 'Comparative Relations'< / a > < / li > < li > < a href = "15-spr2.html" > Continue with 'Setting 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 >