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 > 5/gl< / 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 '5/gt' 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" > if< / a > < / li > < li > < a href = "index.html#5" > Chapter 5: Command Grammar< / a > < / li > < li > < b > Grammar Types< / b > < / li > < / ul > < p class = "purpose" > Some grammar text specifies one or more values, and we need to keep track of their kind(s). Here we manage the data structure doing this.< / p >
2019-03-17 14:40:57 +02:00
< ul class = "toc" > < li > < a href = "#SP1" > § 1. Definitions< / a > < / li > < / ul > < hr class = "tocbar" >
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. Definitions. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > typedef< / span > < span class = "plain" > < / span > < span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "reserved" > grammar_type< / span > < span class = "plain" > {< / span >
2020-04-07 03:06:09 +03:00
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > no_resulting_values< / span > < span class = "plain" > ; < / span > < span class = "comment" > number of resulting values: 0, 1 or 2; or < code class = "display" > < span class = "extract" > -1< / span > < / code > < / span >
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > first_type< / span > < span class = "plain" > ; < / span > < span class = "comment" > and their types< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > struct< / span > < span class = "plain" > < / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > second_type< / span > < span class = "plain" > ;< / span >
2020-04-07 03:06:09 +03:00
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > first_multiplicity< / span > < span class = "plain" > ; < / span > < span class = "comment" > lines only: allow a multiple object here?< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > second_multiplicity< / span > < span class = "plain" > ; < / span > < span class = "comment" > lines only: allow a multiple object here?< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > } < / span > < span class = "reserved" > grammar_type< / span > < span class = "plain" > ;< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The structure grammar_type is private to this section.< / p >
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > grammar_type< / span > < span class = "plain" > < / span > < span class = "functiontext" > PL::Parsing::Tokens::Types::new< / span > < span class = "plain" > (< / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > supports_return_type< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > grammar_type< / span > < span class = "plain" > < / span > < span class = "identifier" > gty< / span > < span class = "plain" > ;< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > gty< / span > < span class = "plain" > .< / span > < span class = "element" > first_type< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > gty< / span > < span class = "plain" > .< / span > < span class = "element" > second_type< / span > < span class = "plain" > = < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > gty< / span > < span class = "plain" > .< / span > < span class = "element" > first_multiplicity< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > gty< / span > < span class = "plain" > .< / span > < span class = "element" > second_multiplicity< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / 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" > supports_return_type< / span > < span class = "plain" > )< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > gty< / span > < span class = "plain" > .< / span > < span class = "element" > no_resulting_values< / span > < span class = "plain" > = < / span > < span class = "constant" > 0< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > else< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > gty< / span > < span class = "plain" > .< / span > < span class = "element" > no_resulting_values< / span > < span class = "plain" > = -1;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > gty< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function PL::Parsing::Tokens::Types::new is used in 5/gv (< a href = "5-gv.html#SP5" > § 5< / a > ), 5/gl (< a href = "5-gl.html#SP4" > § 4< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP3" > < / a > < b > § 3. < / b > The multiplication by 10 here is explained in the discussion of GSB
tallying during GL sorting in "Grammar Lines". Do not amend it without
changing that discussion.
< / p >
< pre class = "display" >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > PL::Parsing::Tokens::Types::add_type< / span > < span class = "plain" > (< / span > < span class = "reserved" > grammar_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > gty< / span > < span class = "plain" > , < / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > spec< / span > < span class = "plain" > ,< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > multiple_flag< / span > < span class = "plain" > , < / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > score< / span > < span class = "plain" > ) {< / span >
2020-04-07 03:06:09 +03:00
< span class = "reserved" > switch< / span > < span class = "plain" > ((< / span > < span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > no_resulting_values< / span > < span class = "plain" > )++) {< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > 0< / span > < span class = "plain" > :< / span >
< span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > first_type< / span > < span class = "plain" > = < / span > < span class = "identifier" > spec< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > first_multiplicity< / span > < span class = "plain" > = < / span > < span class = "identifier" > multiple_flag< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > 10< / span > < span class = "plain" > *< / span > < span class = "identifier" > score< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > 1< / span > < span class = "plain" > :< / span >
< span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > second_type< / span > < span class = "plain" > = < / span > < span class = "identifier" > spec< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > second_multiplicity< / span > < span class = "plain" > = < / span > < span class = "identifier" > multiple_flag< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > score< / span > < span class = "plain" > ;< / span >
2020-04-07 03:06:09 +03:00
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > 2< / span > < span class = "plain" > :< / span >
2020-03-11 02:21:09 +02:00
< span class = "identifier" > Problems::Issue::sentence_problem< / span > < span class = "plain" > (< / span > < span class = "identifier" > Task::syntax_tree< / span > < span class = "plain" > (), < / span > < span class = "identifier" > _p_< / span > < span class = "plain" > (< / span > < span class = "identifier" > PM_ThreeValuedLine< / span > < span class = "plain" > ),< / span >
2019-03-17 14:40:57 +02:00
< span class = "string" > "there can be at most two varying parts to a line of grammar"< / span > < span class = "plain" > ,< / span >
< span class = "string" > "so 'put [something] in [a container]' is allowed but 'put "< / span >
< span class = "string" > "[something] in [something] beside [a door]' is not."< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
2020-04-07 03:06:09 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "constant" > 0< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > PL::Parsing::Tokens::Types::has_return_type< / span > < span class = "plain" > (< / span > < span class = "reserved" > grammar_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > gty< / 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" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > no_resulting_values< / span > < span class = "plain" > == -1) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > PL::Parsing::Tokens::Types::get_no_resulting_values< / span > < span class = "plain" > (< / span > < span class = "reserved" > grammar_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > gty< / span > < span class = "plain" > ) {< / span >
2020-04-07 03:06:09 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > no_resulting_values< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "functiontext" > PL::Parsing::Tokens::Types::get_single_type< / span > < span class = "plain" > (< / span > < span class = "reserved" > grammar_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > gty< / span > < span class = "plain" > ) {< / span >
2020-04-07 03:06:09 +03:00
< span class = "reserved" > switch< / span > < span class = "plain" > (< / span > < span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > no_resulting_values< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > case< / span > < span class = "plain" > < / span > < span class = "constant" > 0< / 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" > case< / 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" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > first_type< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > default:< / span > < span class = "plain" > < / span > < span class = "identifier" > internal_error< / span > < span class = "plain" > (< / span > < span class = "string" > "gty improperly typed"< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > PL::Parsing::Tokens::Types::set_single_type< / span > < span class = "plain" > (< / span > < span class = "reserved" > grammar_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > gty< / span > < span class = "plain" > , < / span > < span class = "identifier" > parse_node< / span > < span class = "plain" > *< / span > < span class = "identifier" > spec< / 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" > spec< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > no_resulting_values< / span > < span class = "plain" > = < / span > < span class = "constant" > 0< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > else< / span > < span class = "plain" > {< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > no_resulting_values< / span > < span class = "plain" > = < / span > < span class = "constant" > 1< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > first_type< / span > < span class = "plain" > = < / span > < span class = "identifier" > spec< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > PL::Parsing::Tokens::Types::compile_to_string< / span > < span class = "plain" > (< / span > < span class = "reserved" > grammar_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > gty< / span > < span class = "plain" > ) {< / span >
2020-04-07 03:06:09 +03:00
< span class = "identifier" > Specifications::Compiler::emit_as_val< / span > < span class = "plain" > (< / span > < span class = "identifier" > K_value< / span > < span class = "plain" > , < / span > < span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > first_type< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "identifier" > kind< / span > < span class = "plain" > *< / span > < span class = "functiontext" > PL::Parsing::Tokens::Types::get_data_type_as_token< / span > < span class = "plain" > (< / span > < span class = "reserved" > grammar_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > gty< / 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" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > no_resulting_values< / span > < span class = "plain" > > < / span > < span class = "constant" > 0< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > ParseTree::is< / span > < span class = "plain" > (< / span > < span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > first_type< / span > < span class = "plain" > , < / span > < span class = "identifier" > CONSTANT_NT< / span > < span class = "plain" > )) ||< / span >
< span class = "plain" > (< / span > < span class = "identifier" > Specifications::is_description< / span > < span class = "plain" > (< / span > < span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > first_type< / span > < span class = "plain" > )))< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > Specifications::to_kind< / span > < span class = "plain" > (< / span > < span class = "identifier" > gty< / span > < span class = "plain" > -> < / span > < span class = "element" > first_type< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function PL::Parsing::Tokens::Types::add_type is used in 5/gl (< a href = "5-gl.html#SP15" > § 15< / a > ).< / p >
< p class = "endnote" > The function PL::Parsing::Tokens::Types::has_return_type is used in 5/gv (< a href = "5-gv.html#SP25" > § 25< / a > ).< / p >
< p class = "endnote" > The function PL::Parsing::Tokens::Types::get_no_resulting_values is used in 5/gl (< a href = "5-gl.html#SP15" > § 15< / a > ).< / p >
< p class = "endnote" > The function PL::Parsing::Tokens::Types::get_single_type is used in 5/gv (< a href = "5-gv.html#SP25" > § 25< / a > ), 5/gl (< a href = "5-gl.html#SP15" > § 15< / a > ).< / p >
< p class = "endnote" > The function PL::Parsing::Tokens::Types::set_single_type is used in 5/gv (< a href = "5-gv.html#SP25" > § 25< / a > ), 5/gl (< a href = "5-gl.html#SP4" > § 4< / a > ).< / p >
< p class = "endnote" > The function PL::Parsing::Tokens::Types::compile_to_string is used in 5/gl (< a href = "5-gl.html#SP20" > § 20< / a > ).< / p >
< p class = "endnote" > The function PL::Parsing::Tokens::Types::get_data_type_as_token is used in 5/gv (< a href = "5-gv.html#SP21" > § 21< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP4" > < / a > < b > § 4. < / b > The behaviour of this sorting routine is documented in the discussion
of GL sorting in "Grammar Lines". Do not amend it without changing that
discussion.
< / p >
< pre class = "display" >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > PL::Parsing::Tokens::Types::must_precede< / span > < span class = "plain" > (< / span > < span class = "reserved" > grammar_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > gty1< / span > < span class = "plain" > , < / span > < span class = "reserved" > grammar_type< / span > < span class = "plain" > *< / span > < span class = "identifier" > gty2< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > cs< / 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" > gty1< / span > < span class = "plain" > -> < / span > < span class = "identifier" > no_resulting_values< / span > < span class = "plain" > ) < (< / span > < span class = "identifier" > gty2< / span > < span class = "plain" > -> < / span > < span class = "element" > no_resulting_values< / 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 = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > gty1< / span > < span class = "plain" > -> < / span > < span class = "identifier" > no_resulting_values< / span > < span class = "plain" > ) > (< / span > < span class = "identifier" > gty2< / span > < span class = "plain" > -> < / span > < span class = "element" > no_resulting_values< / 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 = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > gty1< / span > < span class = "plain" > -> < / span > < span class = "identifier" > no_resulting_values< / span > < span class = "plain" > == < / span > < span class = "constant" > 0< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NOT_APPLICABLE< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
2020-04-07 03:06:09 +03:00
< span class = "identifier" > cs< / span > < span class = "plain" > = < / span > < span class = "identifier" > Specifications::compare_specificity< / span > < span class = "plain" > (< / span > < span class = "identifier" > gty1< / span > < span class = "plain" > -> < / span > < span class = "element" > first_type< / span > < span class = "plain" > , < / span > < span class = "identifier" > gty2< / span > < span class = "plain" > -> < / span > < span class = "element" > first_type< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > cs< / 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" > TRUE< / 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" > cs< / span > < span class = "plain" > == -1) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / 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" > gty1< / span > < span class = "plain" > -> < / span > < span class = "identifier" > first_multiplicity< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > gty2< / span > < span class = "plain" > -> < / span > < span class = "element" > first_multiplicity< / span > < span class = "plain" > == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ))< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / 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" > gty1< / span > < span class = "plain" > -> < / span > < span class = "identifier" > first_multiplicity< / span > < span class = "plain" > == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > gty2< / span > < span class = "plain" > -> < / span > < span class = "element" > first_multiplicity< / span > < span class = "plain" > ))< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / 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" > gty1< / span > < span class = "plain" > -> < / span > < span class = "identifier" > no_resulting_values< / 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" > NOT_APPLICABLE< / span > < span class = "plain" > ;< / span >
2019-03-17 14:40:57 +02:00
2020-04-07 03:06:09 +03:00
< span class = "identifier" > cs< / span > < span class = "plain" > = < / span > < span class = "identifier" > Specifications::compare_specificity< / span > < span class = "plain" > (< / span > < span class = "identifier" > gty1< / span > < span class = "plain" > -> < / span > < span class = "element" > second_type< / span > < span class = "plain" > , < / span > < span class = "identifier" > gty2< / span > < span class = "plain" > -> < / span > < span class = "element" > second_type< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > cs< / 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" > TRUE< / 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" > cs< / span > < span class = "plain" > == -1) < / span > < span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / 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" > gty1< / span > < span class = "plain" > -> < / span > < span class = "identifier" > second_multiplicity< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > gty2< / span > < span class = "plain" > -> < / span > < span class = "element" > second_multiplicity< / span > < span class = "plain" > == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ))< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / 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" > gty1< / span > < span class = "plain" > -> < / span > < span class = "identifier" > second_multiplicity< / span > < span class = "plain" > == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > gty2< / span > < span class = "plain" > -> < / span > < span class = "element" > second_multiplicity< / span > < span class = "plain" > ))< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > NOT_APPLICABLE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function PL::Parsing::Tokens::Types::must_precede is used in 5/gl (< a href = "5-gl.html#SP17" > § 17< / a > ).< / p >
< hr class = "tocbar" >
< ul class = "toc" > < li > < a href = "5-gl.html" > Back to 'Grammar Lines'< / a > < / li > < li > < a href = "5-gt2.html" > Continue with 'Grammar Tokens'< / 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 >