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 > 23/ad< / title >
2020-03-19 02:11:25 +02:00
< meta name = "viewport" content = "width=device-width initial-scale=1" >
2019-03-17 14:40:57 +02:00
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
2020-03-19 02:11:25 +02:00
< link href = "../inweb.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2019-03-17 14:40:57 +02:00
< / head >
< body >
2020-03-19 02:11:25 +02:00
< nav role = "navigation" >
< h1 > < a href = "../webs.html" > Sources< / a > < / h1 >
< ul >
2020-03-28 21:42:53 +02:00
< li > < a href = "../compiler.html" > < b > compiler tools< / b > < / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../other.html" > other tools< / a > < / li >
< li > < a href = "../extensions.html" > extensions and kits< / a > < / li >
< li > < a href = "../units.html" > unit test tools< / a > < / li >
< / 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 = "../inbuild-module/index.html" > inbuild< / a > < / li >
< li > < a href = "../arch-module/index.html" > arch< / a > < / li >
< li > < a href = "../words-module/index.html" > words< / a > < / li >
< li > < a href = "../syntax-module/index.html" > syntax< / a > < / li >
< li > < a href = "../html-module/index.html" > html< / a > < / li >
< / ul >
< h2 > Inform7 Modules< / h2 >
< ul >
< li > < a href = "../core-module/index.html" > core< / a > < / li >
< li > < a href = "../problems-module/index.html" > problems< / 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 = "../index-module/index.html" > index< / a > < / li >
< / ul >
< h2 > Inter Modules< / h2 >
< ul >
< li > < a href = "../inter-module/index.html" > inter< / a > < / li >
< li > < a href = "../building-module/index.html" > building< / a > < / li >
< li > < a href = "../codegen-module/index.html" > codegen< / a > < / li >
< / ul >
< h2 > Foundation< / h2 >
< ul >
< li > < a href = "../../../inweb/docs/foundation-module/index.html" > foundation< / a > < / li >
< / ul >
< / nav >
< main role = "main" >
2019-03-17 14:40:57 +02:00
<!-- Weave of '23/abrp' generated by 7 -->
2020-03-22 12:50:19 +02:00
< ul class = "crumbs" > < li > < a href = "../webs.html" > Source< / a > < / li > < li > < a href = "../compiler.html" > Compiler Modules< / a > < / li > < li > < a href = "index.html" > core< / a > < / li > < li > < a href = "index.html#23" > Chapter 23: Calculated Adjectives< / a > < / li > < li > < b > Adjectives by Raw Phrase< / b > < / li > < / ul > < p class = "purpose" > Defining an adjective with an I6 routine.< / p >
2019-03-17 14:40:57 +02:00
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. < / b > I6-defined routine adjectives.
This little grammar catches definitions delegated to Inform 6 routines.
< / p >
< pre class = "display" >
< span class = "plain" > < < / span > < span class = "identifier" > inform6< / span > < span class = "plain" > -< / span > < span class = "identifier" > routine< / span > < span class = "plain" > -< / span > < span class = "identifier" > adjective< / span > < span class = "plain" > -< / span > < span class = "reserved" > definition< / span > < span class = "plain" > > ::=< / span >
< span class = "identifier" > i6< / span > < span class = "plain" > < / span > < span class = "identifier" > routine< / span > < span class = "plain" > {< < / span > < span class = "identifier" > quoted< / span > < span class = "plain" > -< / span > < span class = "identifier" > text< / span > < span class = "plain" > -< / span > < span class = "identifier" > without< / span > < span class = "plain" > -< / span > < span class = "identifier" > subs< / span > < span class = "plain" > > } < / span > < span class = "identifier" > says< / span > < span class = "plain" > < / span > < span class = "identifier" > so< / span > < span class = "plain" > ( ... ) | ==> < / span > < span class = "identifier" > FALSE< / span >
< span class = "identifier" > i6< / span > < span class = "plain" > < / span > < span class = "identifier" > routine< / span > < span class = "plain" > {< < / span > < span class = "identifier" > quoted< / span > < span class = "plain" > -< / span > < span class = "identifier" > text< / span > < span class = "plain" > -< / span > < span class = "identifier" > without< / span > < span class = "plain" > -< / span > < span class = "identifier" > subs< / span > < span class = "plain" > > } < / span > < span class = "identifier" > makes< / span > < span class = "plain" > < / span > < span class = "identifier" > it< / span > < span class = "plain" > < / span > < span class = "identifier" > so< / span > < span class = "plain" > ( ... ) ==> < / span > < span class = "identifier" > TRUE< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. < / b > So here's a set of adjectives...
< / p >
< pre class = "display" >
< span class = "reserved" > adjective_meaning< / span > < span class = "plain" > *< / span > < span class = "functiontext" > Phrases::RawPhrasal::ADJ_parse< / span > < span class = "plain" > (< / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > q< / span > < span class = "plain" > ,< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > sense< / span > < span class = "plain" > , < / span > < span class = "identifier" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > AW< / span > < span class = "plain" > , < / span > < span class = "identifier" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > DNW< / span > < span class = "plain" > , < / span > < span class = "identifier" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > CONW< / span > < span class = "plain" > , < / span > < span class = "identifier" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > CALLW< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > setting< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > wording< / span > < span class = "plain" > < / span > < span class = "identifier" > EW< / span > < span class = "plain" > = < / span > < span class = "identifier" > EMPTY_WORDING< / span > < span class = "plain" > , < / span > < span class = "identifier" > RW< / span > < span class = "plain" > = < / span > < span class = "identifier" > EMPTY_WORDING< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< < / span > < span class = "identifier" > inform6< / span > < span class = "plain" > -< / span > < span class = "identifier" > routine< / span > < span class = "plain" > -< / span > < span class = "identifier" > adjective< / span > < span class = "plain" > -< / span > < span class = "reserved" > definition< / span > < span class = "plain" > > (< / span > < span class = "identifier" > CONW< / span > < span class = "plain" > )) {< / span >
< span class = "identifier" > setting< / span > < span class = "plain" > = < < < / span > < span class = "identifier" > r< / span > < span class = "plain" > > > ;< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > RW< / span > < span class = "plain" > = < / span > < span class = "identifier" > GET_RW< / span > < span class = "plain" > (< < / span > < span class = "identifier" > inform6< / span > < span class = "plain" > -< / span > < span class = "identifier" > routine< / span > < span class = "plain" > -< / span > < span class = "identifier" > adjective< / span > < span class = "plain" > -< / span > < span class = "reserved" > definition< / span > < span class = "plain" > > , < / span > < span class = "constant" > 1< / span > < span class = "plain" > );< / span >
< span class = "identifier" > EW< / span > < span class = "plain" > = < / span > < span class = "identifier" > GET_RW< / span > < span class = "plain" > (< < / span > < span class = "identifier" > inform6< / span > < span class = "plain" > -< / span > < span class = "identifier" > routine< / span > < span class = "plain" > -< / span > < span class = "identifier" > adjective< / span > < span class = "plain" > -< / span > < span class = "reserved" > definition< / span > < span class = "plain" > > , < / span > < span class = "constant" > 2< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2020-04-07 03:06:09 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > sense< / span > < span class = "plain" > != < / span > < span class = "constant" > 1< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Wordings::nonempty< / span > < span class = "plain" > (< / span > < span class = "identifier" > CALLW< / span > < span class = "plain" > )) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > rname_wn< / span > < span class = "plain" > = < / span > < span class = "identifier" > Wordings::first_wn< / span > < span class = "plain" > (< / span > < span class = "identifier" > RW< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Word::dequote< / span > < span class = "plain" > (< / span > < span class = "identifier" > rname_wn< / span > < span class = "plain" > );< / span >
< span class = "reserved" > definition< / span > < span class = "plain" > *< / span > < span class = "identifier" > def< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Phrases::Adjectives::def_new< / span > < span class = "plain" > (< / span > < span class = "identifier" > q< / span > < span class = "plain" > );< / span >
< span class = "reserved" > adjective_meaning< / span > < span class = "plain" > *< / span > < span class = "identifier" > am< / span > < span class = "plain" > =< / span >
< span class = "functiontext" > Adjectives::Meanings::new< / span > < span class = "plain" > (< / span > < span class = "constant" > I6_ROUTINE_KADJ< / span > < span class = "plain" > , < / span > < span class = "identifier" > STORE_POINTER_definition< / span > < span class = "plain" > (< / span > < span class = "identifier" > def< / span > < span class = "plain" > ), < / span > < span class = "identifier" > EW< / span > < span class = "plain" > );< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > def< / span > < span class = "plain" > -> < / span > < span class = "element" > am_of_def< / span > < span class = "plain" > = < / span > < span class = "identifier" > am< / span > < span class = "plain" > ;< / span >
< span class = "functiontext" > Adjectives::Meanings::declare< / span > < span class = "plain" > (< / span > < span class = "identifier" > am< / span > < span class = "plain" > , < / span > < span class = "identifier" > AW< / span > < span class = "plain" > , < / span > < span class = "constant" > 9< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "functiontext" > Adjectives::Meanings::set_domain_text< / span > < span class = "plain" > (< / span > < span class = "identifier" > am< / span > < span class = "plain" > , < / span > < span class = "identifier" > DNW< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > setting< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > i6_schema< / span > < span class = "plain" > *< / span > < span class = "identifier" > sch< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Adjectives::Meanings::set_i6_schema< / span > < span class = "plain" > (< / span > < span class = "identifier" > am< / span > < span class = "plain" > , < / span > < span class = "constant" > TEST_ADJECTIVE_TASK< / span > < span class = "plain" > , < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Calculus::Schemas::modify< / span > < span class = "plain" > (< / span > < span class = "identifier" > sch< / span > < span class = "plain" > , < / span > < span class = "string" > "*=-(%N(*1, -1))"< / span > < span class = "plain" > , < / span > < span class = "identifier" > rname_wn< / span > < span class = "plain" > );< / span >
< span class = "identifier" > sch< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Adjectives::Meanings::set_i6_schema< / span > < span class = "plain" > (< / span > < span class = "identifier" > am< / span > < span class = "plain" > , < / span > < span class = "constant" > NOW_ADJECTIVE_TRUE_TASK< / span > < span class = "plain" > , < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Calculus::Schemas::modify< / span > < span class = "plain" > (< / span > < span class = "identifier" > sch< / span > < span class = "plain" > , < / span > < span class = "string" > "*=-(%N(*1, true))"< / span > < span class = "plain" > , < / span > < span class = "identifier" > rname_wn< / span > < span class = "plain" > );< / span >
< span class = "identifier" > sch< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Adjectives::Meanings::set_i6_schema< / span > < span class = "plain" > (< / span > < span class = "identifier" > am< / span > < span class = "plain" > , < / span > < span class = "constant" > NOW_ADJECTIVE_FALSE_TASK< / span > < span class = "plain" > , < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Calculus::Schemas::modify< / span > < span class = "plain" > (< / span > < span class = "identifier" > sch< / span > < span class = "plain" > , < / span > < span class = "string" > "*=-(%N(*1, false))"< / span > < span class = "plain" > , < / span > < span class = "identifier" > rname_wn< / span > < span class = "plain" > );< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "functiontext" > Adjectives::Meanings::pass_task_to_support_routine< / span > < span class = "plain" > (< / span > < span class = "identifier" > am< / span > < span class = "plain" > , < / span > < span class = "constant" > TEST_ADJECTIVE_TASK< / span > < span class = "plain" > );< / span >
< span class = "reserved" > i6_schema< / span > < span class = "plain" > *< / span > < span class = "identifier" > sch< / span > < span class = "plain" > = < / span > < span class = "functiontext" > Adjectives::Meanings::set_i6_schema< / span > < span class = "plain" > (< / span > < span class = "identifier" > am< / span > < span class = "plain" > , < / span > < span class = "constant" > TEST_ADJECTIVE_TASK< / span > < span class = "plain" > , < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > Calculus::Schemas::modify< / span > < span class = "plain" > (< / span > < span class = "identifier" > sch< / span > < span class = "plain" > , < / span > < span class = "string" > "*=-(%N(*1))"< / span > < span class = "plain" > , < / span > < span class = "identifier" > rname_wn< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > am< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > Phrases::RawPhrasal::ADJ_compiling_soon< / span > < span class = "plain" > (< / span > < span class = "reserved" > adjective_meaning< / span > < span class = "plain" > *< / span > < span class = "identifier" > am< / span > < span class = "plain" > , < / span > < span class = "reserved" > definition< / span > < span class = "plain" > *< / span > < span class = "identifier" > def< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > T< / span > < span class = "plain" > ) {< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > Phrases::RawPhrasal::ADJ_compile< / span > < span class = "plain" > (< / span > < span class = "reserved" > definition< / span > < span class = "plain" > *< / span > < span class = "identifier" > def< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > T< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > emit_flag< / span > < span class = "plain" > , < / span > < span class = "reserved" > ph_stack_frame< / span > < span class = "plain" > *< / span > < span class = "identifier" > phsf< / 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 >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > Phrases::RawPhrasal::ADJ_assert< / span > < span class = "plain" > (< / span > < span class = "reserved" > definition< / span > < span class = "plain" > *< / span > < span class = "identifier" > def< / span > < span class = "plain" > ,< / span >
< span class = "reserved" > inference_subject< / span > < span class = "plain" > *< / span > < span class = "identifier" > infs_to_assert_on< / span > < span class = "plain" > , < / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > val_to_assert_on< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > parity< / 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 >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > Phrases::RawPhrasal::ADJ_index< / span > < span class = "plain" > (< / span > < span class = "identifier" > OUTPUT_STREAM< / span > < span class = "plain" > , < / span > < span class = "reserved" > definition< / span > < span class = "plain" > *< / span > < span class = "identifier" > def< / 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 >
2020-03-28 21:42:53 +02:00
< p class = "endnote" > The function Phrases::RawPhrasal::ADJ_parse is used in 4/am (< a href = "4-am.html#SP36" > § 36< / a > ).< / p >
2019-03-17 14:40:57 +02:00
2020-03-28 21:42:53 +02:00
< p class = "endnote" > The function Phrases::RawPhrasal::ADJ_compiling_soon is used in 4/am (< a href = "4-am.html#SP37" > § 37< / a > ).< / p >
2019-03-17 14:40:57 +02:00
2020-03-28 21:42:53 +02:00
< p class = "endnote" > The function Phrases::RawPhrasal::ADJ_compile is used in 4/am (< a href = "4-am.html#SP38" > § 38< / a > ).< / p >
2019-03-17 14:40:57 +02:00
2020-03-28 21:42:53 +02:00
< p class = "endnote" > The function Phrases::RawPhrasal::ADJ_assert is used in 4/am (< a href = "4-am.html#SP39" > § 39< / a > ).< / p >
2019-03-17 14:40:57 +02:00
2020-03-28 21:42:53 +02:00
< p class = "endnote" > The function Phrases::RawPhrasal::ADJ_index is used in 4/am (< a href = "4-am.html#SP40" > § 40< / a > ).< / p >
2019-03-17 14:40:57 +02:00
< hr class = "tocbar" >
< ul class = "toc" > < li > < a href = "23-ad.html" > Back to 'Adjectival Definitions'< / a > < / li > < li > < a href = "23-abrc.html" > Continue with 'Adjectives by Raw Condition'< / a > < / li > < / ul > < hr class = "tocbar" >
2019-04-22 17:42:10 +03:00
<!-- End of weave -->
2020-03-19 02:11:25 +02:00
< / main >
2019-03-17 14:40:57 +02:00
< / body >
< / html >