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 >
2020-08-09 20:39:31 +03:00
< title > Kind Commands< / title >
2020-05-03 03:20:55 +03:00
< link href = "../docs-assets/Breadcrumbs.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
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-05-03 03:01:21 +03:00
2020-05-03 03:20:55 +03:00
< link href = "../docs-assets/Contents.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Progress.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Navigation.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Fonts.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Base.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-05-03 03:01:21 +03:00
< script >
function togglePopup(material_id) {
var popup = document.getElementById(material_id);
popup.classList.toggle("show");
}
< / script >
2020-05-03 03:20:55 +03:00
< link href = "../docs-assets/Popups.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< link href = "../docs-assets/Colours.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2020-04-14 19:56:54 +03:00
2019-03-17 14:40:57 +02:00
< / head >
2020-05-03 03:01:21 +03:00
< body class = "commentary-font" >
2020-03-19 02:11:25 +02:00
< nav role = "navigation" >
2020-04-14 19:56:54 +03:00
< h1 > < a href = "../index.html" >
2020-05-03 18:34:53 +03:00
< img src = "../docs-assets/Inform.png" height = 72" >
2020-04-14 19:56:54 +03:00
< / a > < / h1 >
< ul > < li > < a href = "../compiler.html" > compiler tools< / 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 >
2020-04-14 19:56:54 +03:00
< / ul > < h2 > Compiler Webs< / h2 > < ul >
2020-03-19 02:11:25 +02:00
< 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 >
2020-04-14 19:56:54 +03:00
< / ul > < h2 > Inbuild Modules< / h2 > < ul >
< li > < a href = "../supervisor-module/index.html" > supervisor< / a > < / li >
< / ul > < h2 > Inform7 Modules< / h2 > < ul >
2020-03-19 02:11:25 +02:00
< li > < a href = "../core-module/index.html" > core< / a > < / li >
2020-04-14 19:56:54 +03:00
< li > < a href = "index.html" > < span class = "selectedlink" > kinds< / span > < / a > < / li >
2020-03-19 02:11:25 +02:00
< 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 >
2020-04-14 19:56:54 +03:00
< / ul > < h2 > Inter Modules< / h2 > < ul >
< li > < a href = "../bytecode-module/index.html" > bytecode< / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../building-module/index.html" > building< / a > < / li >
< li > < a href = "../codegen-module/index.html" > codegen< / a > < / li >
2020-05-20 02:02:28 +03:00
< / ul > < h2 > Services< / h2 > < ul >
2020-04-14 19:56:54 +03:00
< li > < a href = "../arch-module/index.html" > arch< / a > < / li >
< li > < a href = "../syntax-module/index.html" > syntax< / a > < / li >
< li > < a href = "../words-module/index.html" > words< / a > < / li >
< li > < a href = "../html-module/index.html" > html< / a > < / li >
2020-05-20 02:02:28 +03:00
< li > < a href = "../inflections-module/index.html" > inflections< / a > < / li >
< li > < a href = "../linguistics-module/index.html" > linguistics< / a > < / li >
< li > < a href = "../problems-module/index.html" > problems< / a > < / li >
2020-03-19 02:11:25 +02:00
< li > < a href = "../../../inweb/docs/foundation-module/index.html" > foundation< / a > < / li >
2020-04-14 19:56:54 +03:00
< / ul >
2020-03-19 02:11:25 +02:00
< / nav >
< main role = "main" >
2020-08-09 20:39:31 +03:00
<!-- Weave of 'Kind Commands' generated by Inweb -->
2020-05-03 03:01:21 +03:00
< div class = "breadcrumbs" >
2020-08-09 20:39:31 +03:00
< ul class = "crumbs" > < li > < a href = "../index.html" > Home< / a > < / li > < li > < a href = "../compiler.html" > Services< / a > < / li > < li > < a href = "index.html" > kinds< / a > < / li > < li > < a href = "index.html#4" > Chapter 4: Preloading Interpreter< / a > < / li > < li > < b > Kind Commands< / b > < / li > < / ul > < / div >
2020-05-03 03:01:21 +03:00
< p class = "purpose" > To read in details of the built-in kinds from template files, setting them up ready for use.< / p >
2019-03-17 14:40:57 +02:00
2020-08-09 20:39:31 +03:00
< ul class = "toc" > < li > < a href = "4-kc.html#SP11" > § 11. Errors and limitations< / a > < / li > < li > < a href = "4-kc.html#SP12" > § 12. Setting up the interpreter< / a > < / li > < li > < a href = "4-kc.html#SP13" > § 13. The kind command despatcher< / a > < / li > < li > < a href = "4-kc.html#SP14" > § 14. Parsing single kind commands< / a > < / li > < li > < a href = "4-kc.html#SP15" > § 15. Source text templates< / a > < / li > < li > < a href = "4-kc.html#SP20" > § 20. Type macros< / a > < / li > < li > < a href = "4-kc.html#SP23" > § 23. The kind text archiver< / a > < / li > < li > < a href = "4-kc.html#SP25" > § 25. Error messages< / a > < / li > < li > < a href = "4-kc.html#SP26" > § 26. Applying kind commands< / a > < / li > < li > < a href = "4-kc.html#SP27" > § 27. Completing a batch< / a > < / li > < / ul > < hr class = "tocbar" >
2019-03-17 14:40:57 +02:00
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP1" > < / a > < b > § 1. < / b > Everyone loves a mini-language, so here is one. At the top level:
2019-03-17 14:40:57 +02:00
< / p >
< ul class = "items" > < li > (a) Lines consisting of white space or whose first non-white space character is
2020-05-03 03:01:21 +03:00
< span class = "extract" > < span class = "extract-syntax" > !< / span > < / span > are ignored as comments.
< / li > < li > (b) A line ending with a colon < span class = "extract" > < span class = "extract-syntax" > :< / span > < / span > opens a new block. The text before the colon
2019-03-17 14:40:57 +02:00
is the title of the block, except that the first character indicates its type:
< ul class = "items" > < li > (1) An asterisk means that the block is a template definition: for instance,
2020-05-03 03:01:21 +03:00
< span class = "extract" > < span class = "extract-syntax" > *PRINTING-ROUTINE:< / span > < / span > says the block defines a template called < span class = "extract" > < span class = "extract-syntax" > PRINTING-ROUTINE< / span > < / span > .
2019-03-17 14:40:57 +02:00
A template consists of Inform 7 source text which extends as far as the next
2020-05-03 03:01:21 +03:00
< span class = "extract" > < span class = "extract-syntax" > *END< / span > < / span > line.
< / li > < li > (2) A sharp sign < span class = "extract" > < span class = "extract-syntax" > #< / span > < / span > means that the block is a macro definition. For
instance, < span class = "extract" > < span class = "extract-syntax" > #UNIT:< / span > < / span > says the block defines a template called < span class = "extract" > < span class = "extract-syntax" > UNIT< / span > < / span > . A macro
2019-03-17 14:40:57 +02:00
is just a sequence of lines holding kind commands which continues to
the beginning of the next block, or the end of the file.
< / li > < li > (3) And otherwise the block is a kind definition, but the optional opening
2020-05-03 03:01:21 +03:00
character < span class = "extract" > < span class = "extract-syntax" > +< / span > < / span > marks the kind as one which Inform requires the existence of.
Thus < span class = "extract" > < span class = "extract-syntax" > +NUMBER_TY:< / span > < / span > , since Inform will crash if the template doesn't set this
kind up, but < span class = "extract" > < span class = "extract-syntax" > BOOJUMS_TY:< / span > < / span > would validly declare a new kind called
< span class = "extract" > < span class = "extract-syntax" > BOOJUMS_TY< / span > < / span > which isn't special to any of Inform's internals. The < span class = "extract" > < span class = "extract-syntax" > +< / span > < / span > signs
2019-03-17 14:40:57 +02:00
are there as a help for hackers looking at the I6 template and wondering what
they can safely monkey with.
< / li > < / ul >
< / li > < / ul >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP2" > < / a > < b > § 2. < / b > The body of a kind definition is a sequence of one-line commands setting
2019-03-17 14:40:57 +02:00
what properties the kind has. These commands take the form of a name, a colon,
and an operand; for instance,
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > i6-printing-routine-actions:DA_Number< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > The operands have different types, and the possibilities are given here:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "definitions code-font" > < span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > NO_KCA< / span > < span class = "plain-syntax" > -1 < / span > < span class = "comment-syntax" > there's no operand< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > BOOLEAN_KCA< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > < / span > < span class = "comment-syntax" > must be < / span > < span class = "extract" > < span class = "extract-syntax" > yes< / span > < / span > < span class = "comment-syntax" > or < / span > < span class = "extract" > < span class = "extract-syntax" > no< / span > < / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > CCM_KCA< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 2< / span > < span class = "plain-syntax" > < / span > < span class = "comment-syntax" > a constant compilation method< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 3< / span > < span class = "plain-syntax" > < / span > < span class = "comment-syntax" > any text (no quotation marks or other delimiters are used)< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > VOCABULARY_KCA< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 4< / span > < span class = "plain-syntax" > < / span > < span class = "comment-syntax" > any single word< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > NUMERIC_KCA< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 5< / span > < span class = "plain-syntax" > < / span > < span class = "comment-syntax" > any decimal number< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > CONSTRUCTOR_KCA< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 6< / span > < span class = "plain-syntax" > < / span > < span class = "comment-syntax" > any valid kind number, such as "number"< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > TEMPLATE_KCA< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 7< / span > < span class = "plain-syntax" > < / span > < span class = "comment-syntax" > the name of a template whose definition is given in the file< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > MACRO_KCA< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 8< / span > < span class = "plain-syntax" > < / span > < span class = "comment-syntax" > the name of a macro whose definition is given in the file< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP3" > < / a > < b > § 3. < / b > When processing a command, we parse it into one of the following structures:
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > typedef< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > single_kind_command< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_command_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > which_kind_command< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > boolean_argument< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > where appropriate< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > numeric_argument< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > where appropriate< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > textual_argument< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > where appropriate< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ccm_argument< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > where appropriate< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > word_assemblage< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > vocabulary_argument< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > where appropriate< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > constructor_argument< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > where appropriate< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_template_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > template_argument< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > where appropriate< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_macro_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > macro_argument< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > where appropriate< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > single_kind_command< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
< ul class = "endnotetexts" > < li > The structure single_kind_command is private to this section.< / li > < / ul >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP4" > < / a > < b > § 4. < / b > A few of the commands connect pairs of kinds together: for instance,
2019-03-17 14:40:57 +02:00
when we write
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > cast:RULEBOOK_TY< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > in the definition block for < span class = "extract" > < span class = "extract-syntax" > RULE_TY< / span > < / span > , we're saying that every rulebook
2019-03-17 14:40:57 +02:00
can always be cast implicitly to a rule. There can be any number of these
in the definition block, so we need somewhere to store details, and the
following structure provides an entry in a linked list.
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > typedef< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor_casting_rule< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > cast_from_kind_unparsed< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > to the one which has the rule< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > cast_from_kind< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > to the one which has the rule< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor_casting_rule< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > next_casting_rule< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > kind_constructor_casting_rule< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-12 01:59:29 +03:00
< ul class = "endnotetexts" > < li > The structure kind_constructor_casting_rule is accessed in 2/kc and here.< / li > < / ul >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP5" > < / a > < b > § 5. < / b > And this is the analogous structure for giving I6 schemas to compare
2019-03-17 14:40:57 +02:00
data of two different kinds:
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > typedef< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor_comparison_schema< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > comparator_unparsed< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > comparator< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > comparison_schema< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor_comparison_schema< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > next_comparison_schema< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > kind_constructor_comparison_schema< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > The structure kind_constructor_comparison_schema is private to this section.< / li > < / ul >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP6" > < / a > < b > § 6. < / b > And this is the analogous structure for giving I6 schemas to compare
2019-03-17 14:40:57 +02:00
data of two different kinds:
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > typedef< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor_instance< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > instance_of_this_unparsed< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > instance_of_this< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor_instance< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > next_instance_rule< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > kind_constructor_instance< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-12 01:59:29 +03:00
< ul class = "endnotetexts" > < li > The structure kind_constructor_instance is accessed in 2/kc and here.< / li > < / ul >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP7" > < / a > < b > § 7. < / b > And, to cut to the chase, here is the complete table of commands:
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > kind_command_definition< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > table_of_kind_commands< / span > < span class = "plain-syntax" > [] = {< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "can-coincide-with-property"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > can_coincide_with_property_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > BOOLEAN_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "can-exchange"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > can_exchange_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > BOOLEAN_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "defined-in-source-text"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > defined_in_source_text_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > BOOLEAN_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "has-i6-GPR"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > has_i6_GPR_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > BOOLEAN_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "indexed-grey-if-empty"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > indexed_grey_if_empty_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > BOOLEAN_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "is-incompletely-defined"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > is_incompletely_defined_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > BOOLEAN_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "is-template-variable"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > is_template_variable_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > BOOLEAN_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "multiple-block"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > multiple_block_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > BOOLEAN_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "named-values-created-with-assertions"< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "constant-syntax" > named_values_created_with_assertions_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > BOOLEAN_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "constant-compilation-method"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > constant_compilation_method_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > CCM_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "comparison-routine"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > comparison_routine_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "default-value"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > default_value_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "description"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > description_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "distinguisher"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > distinguisher_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "documentation-reference"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > documentation_reference_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "explicit-i6-GPR"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > explicit_i6_GPR_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "i6-printing-routine"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > i6_printing_routine_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "i6-printing-routine-actions"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > i6_printing_routine_actions_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "index-default-value"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > index_default_value_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "index-maximum-value"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > index_maximum_value_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "index-minimum-value"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > index_minimum_value_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "loop-domain-schema"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > loop_domain_schema_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "recognition-only-GPR"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > recognition_only_GPR_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "specification-text"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > specification_text_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "cast"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > cast_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > CONSTRUCTOR_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "comparison-schema"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > comparison_schema_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > CONSTRUCTOR_KCA< / span > < span class = "plain-syntax" > },< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "conforms-to"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > conforms_to_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > CONSTRUCTOR_KCA< / span > < span class = "plain-syntax" > },< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "modifying-adjective"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > modifying_adjective_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > VOCABULARY_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "plural"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > plural_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > VOCABULARY_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "singular"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > singular_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > VOCABULARY_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "constructor-arity"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > constructor_arity_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEXT_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "group"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > group_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > NUMERIC_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "heap-size-estimate"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > heap_size_estimate_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > NUMERIC_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "index-priority"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > index_priority_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > NUMERIC_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "small-block-size"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > small_block_size_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > NUMERIC_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "template-variable-number"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > template_variable_number_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > NUMERIC_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "apply-template"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > apply_template_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > TEMPLATE_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "string-syntax" > "apply-macro"< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > apply_macro_KCC< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > MACRO_KCA< / span > < span class = "plain-syntax" > },< / span >
< span class = "plain-syntax" > { < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , -1, < / span > < span class = "constant-syntax" > NO_KCA< / span > < span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > };< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP8" > < / a > < b > § 8. < / b > Where each legal command is defined with a block like so:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > typedef< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_command_definition< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > char< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > text_of_command< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > opcode_number< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > operand_type< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > kind_command_definition< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > The structure kind_command_definition is private to this section.< / li > < / ul >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP9" > < / a > < b > § 9. < / b > Macros and templates have their definitions stored in structures thus:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > typedef< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_template_definition< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > template_name< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > including the asterisk, e.g., < / span > < span class = "extract" > < span class = "extract-syntax" > "*PRINTING-ROUTINE"< / span > < / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > template_text< / span > < span class = "plain-syntax" > ;< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CLASS_DEFINITION< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > kind_template_definition< / span > < span class = "plain-syntax" > ;< / span >
< span class = "reserved-syntax" > typedef< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_macro_definition< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_macro_name< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > including the sharp, e.g., < / span > < span class = "extract" > < span class = "extract-syntax" > "#UNIT"< / span > < / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > kind_macro_line_count< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > single_kind_command< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > kind_macro_line< / span > < span class = "plain-syntax" > [< / span > < span class = "constant-syntax" > MAX_KIND_MACRO_LENGTH< / span > < span class = "plain-syntax" > ];< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CLASS_DEFINITION< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > kind_macro_definition< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > The structure kind_template_definition is private to this section.< / li > < li > The structure kind_macro_definition is private to this section.< / li > < / ul >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP10" > < / a > < b > § 10. < / b > And this makes a note to insert the relevant chunk of I7 source text
2019-03-17 14:40:57 +02:00
later on. (We do this because kind definitions are read very early on
in Inform's run, whereas I7 source text can only be lexed later.)
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > typedef< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_template_obligation< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_template_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > remembered_template< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > I7 source to insert...< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > remembered_constructor< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > ...concerning this kind< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CLASS_DEFINITION< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > kind_template_obligation< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< ul class = "endnotetexts" > < li > The structure kind_template_obligation is private to this section.< / li > < / ul >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP11" > < / a > < b > § 11. Errors and limitations. < / b > In implementing the interpreter, we have to ask: who is it for? It occupies
2019-03-17 14:40:57 +02:00
a strange position in being not quite for end users — the average Inform
user will never know what the template is — and yet not quite for internal
use only, either. The main motivation for moving properties of kinds out of
Inform's program logic and into an external text file was to make it easier
to verify that they were correctly described; but it was certainly also
meant to give future Inform hackers — users who like to burrow into
internals — scope for play.
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > The I6 template files supplied with Inform's standard distribution are,
2019-03-17 14:40:57 +02:00
of course, correct. So how forgiving should we be, if errors are found in it?
(These must result from mistakes by hackers.) To what extent should we allow
arbitrarily complex constructions, as we would if it were a feature intended
for end users?
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > We strike a sort of middle position. Inform will probably not crash if an
2019-03-17 14:40:57 +02:00
incorrect kind command is supplied, but it is free to throw internal
errors or generate I6 code which fails to compile through I6.
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "definitions code-font" > < span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > MAX_KIND_MACRO_LENGTH< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 20< / span > < span class = "plain-syntax" > < / span > < span class = "comment-syntax" > maximum number of commands in any one macro< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP12" > < / a > < b > § 12. Setting up the interpreter. < / b > < / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::start< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP13" > < / a > < b > § 13. The kind command despatcher. < / b > And this is where textual commands are received. (They come in from the
2019-03-17 14:40:57 +02:00
template interpreter.) Comments and blank lines have already been stripped out.
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > A template absorbs the raw text of its definition, and ends with < span class = "extract" > < span class = "extract-syntax" > *END< / span > < / span > ;
2019-03-17 14:40:57 +02:00
whereas a macro absorbs the parsed form of its commands, and continues to
the next new heading. (Templates can't use the same end syntax because
they often need to contain I7 phrase definitions, where lines end with
colons.)
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > constructor_described< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::despatch< / span > < button class = "popup" onclick = "togglePopup('usagePopup1')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup1" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::despatch< / span > < / span > :< br / > Kind Files - < a href = "4-kf.html#SP1" > § 1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > parse_node_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "4-kc.html#SP17" class = "function-link" > < span class = "function-syntax" > KindCommands::recording_a_kind_template< / span > < / a > < span class = "plain-syntax" > ()) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "*END"< / span > < span class = "plain-syntax" > )) < / span > < a href = "4-kc.html#SP17" class = "function-link" > < span class = "function-syntax" > KindCommands::end_kind_template< / span > < / a > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP17" class = "function-link" > < span class = "function-syntax" > KindCommands::record_into_kind_template< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::get_last_char< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > ) == < / span > < span class = "character-syntax" > ':'< / span > < span class = "plain-syntax" > ) {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "4-kc.html#SP21" class = "function-link" > < span class = "function-syntax" > KindCommands::recording_a_kind_macro< / span > < / a > < span class = "plain-syntax" > ()) < / span > < a href = "4-kc.html#SP21" class = "function-link" > < span class = "function-syntax" > KindCommands::end_kind_macro< / span > < / a > < span class = "plain-syntax" > ();< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Str::delete_last_character< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > ); < / span > < span class = "comment-syntax" > remove the terminal colon< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP13_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Deal with the heading at the top of a kind command block< / span > < span class = "named-paragraph-number" > 13.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > single_kind_command< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > = < / span > < a href = "4-kc.html#SP14" class = "function-link" > < span class = "function-syntax" > KindCommands::parse_kind_command< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "4-kc.html#SP21" class = "function-link" > < span class = "function-syntax" > KindCommands::recording_a_kind_macro< / span > < / a > < span class = "plain-syntax" > ()) < / span > < a href = "4-kc.html#SP21" class = "function-link" > < span class = "function-syntax" > KindCommands::record_into_kind_macro< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > constructor_described< / span > < span class = "plain-syntax" > ) < / span > < a href = "4-kc.html#SP26" class = "function-link" > < span class = "function-syntax" > KindCommands::apply_kind_command< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > constructor_described< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "kind command describes unspecified kind"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP13_1" > < / a > < b > § 13.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Deal with the heading at the top of a kind command block< / span > < span class = "named-paragraph-number" > 13.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::get_first_char< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > ) == < / span > < span class = "character-syntax" > '#'< / span > < span class = "plain-syntax" > ) < / span > < a href = "4-kc.html#SP21" class = "function-link" > < span class = "function-syntax" > KindCommands::begin_kind_macro< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::get_first_char< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > ) == < / span > < span class = "character-syntax" > '*'< / span > < span class = "plain-syntax" > ) < / span > < a href = "4-kc.html#SP17" class = "function-link" > < span class = "function-syntax" > KindCommands::begin_kind_template< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Str::copy< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > should_know< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::get_first_char< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > ) == < / span > < span class = "character-syntax" > '+'< / span > < span class = "plain-syntax" > ) { < / span > < span class = "identifier-syntax" > Str::delete_first_character< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > should_know< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ; }< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > do_know< / span > < span class = "plain-syntax" > = < / span > < a href = "2-fk.html#SP10" class = "function-link" > < span class = "function-syntax" > FamiliarKinds::is_known< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > do_know< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > should_know< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ))< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "kind command describes kind with no known name"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > do_know< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > should_know< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ))< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "kind command describes already-known kind"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > constructor_described< / span > < span class = "plain-syntax" > =< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-kc.html#SP6" class = "function-link" > < span class = "function-syntax" > Kinds::Constructors::new< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < a href = "2-knd.html#SP8" class = "function-link" > < span class = "function-syntax" > Kinds::get_construct< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K_value< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > );< / span >
2020-08-11 13:55:39 +03:00
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NEW_BASE_KINDS_CALLBACK< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > constructor_described< / span > < span class = "plain-syntax" > != < / span > < span class = "identifier-syntax" > CON_KIND_VARIABLE< / span > < span class = "plain-syntax" > ) & & < / span >
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > constructor_described< / span > < span class = "plain-syntax" > != < / span > < span class = "identifier-syntax" > CON_INTERMEDIATE< / span > < span class = "plain-syntax" > )) {< / span >
2020-08-11 13:55:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NEW_BASE_KINDS_CALLBACK< / span > < span class = "plain-syntax" > (< / span >
< span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP3" class = "function-link" > < span class = "function-syntax" > Kinds::base_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > constructor_described< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > EMPTY_WORDING< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP13" > § 13< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP14" > < / a > < b > § 14. Parsing single kind commands. < / b > Each command is read in as text, parsed and stored into a modest structure.
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > single_kind_command< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::parse_kind_command< / span > < button class = "popup" onclick = "togglePopup('usagePopup2')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup2" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::parse_kind_command< / span > < / span > :< br / > < a href = "4-kc.html#SP13" > § 13< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > whole_command< / span > < span class = "plain-syntax" > ) {< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > single_kind_command< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP14_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Parse line into command and argument, divided by a colon< / span > < span class = "named-paragraph-number" > 14.2< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP14_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Initialise the STC to a blank command< / span > < span class = "named-paragraph-number" > 14.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP14_3" class = "named-paragraph-link" > < span class = "named-paragraph" > Identify the command being used< / span > < span class = "named-paragraph-number" > 14.3< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > switch< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > which_kind_command< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > operand_type< / span > < span class = "plain-syntax" > ) {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > BOOLEAN_KCA:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP14_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Parse a boolean argument for a kind command< / span > < span class = "named-paragraph-number" > 14.4< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CCM_KCA:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP14_5" class = "named-paragraph-link" > < span class = "named-paragraph" > Parse a CCM argument for a kind command< / span > < span class = "named-paragraph-number" > 14.5< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CONSTRUCTOR_KCA:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP14_9" class = "named-paragraph-link" > < span class = "named-paragraph" > Parse a constructor-name argument for a kind command< / span > < span class = "named-paragraph-number" > 14.9< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > MACRO_KCA:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP14_11" class = "named-paragraph-link" > < span class = "named-paragraph" > Parse a macro name argument for a kind command< / span > < span class = "named-paragraph-number" > 14.11< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NUMERIC_KCA:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP14_8" class = "named-paragraph-link" > < span class = "named-paragraph" > Parse a numeric argument for a kind command< / span > < span class = "named-paragraph-number" > 14.8< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPLATE_KCA:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP14_10" class = "named-paragraph-link" > < span class = "named-paragraph" > Parse a template name argument for a kind command< / span > < span class = "named-paragraph-number" > 14.10< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEXT_KCA:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP14_6" class = "named-paragraph-link" > < span class = "named-paragraph" > Parse a textual argument for a kind command< / span > < span class = "named-paragraph-number" > 14.6< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > VOCABULARY_KCA:< / span > < span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP14_7" class = "named-paragraph-link" > < span class = "named-paragraph" > Parse a vocabulary argument for a kind command< / span > < span class = "named-paragraph-number" > 14.7< / span > < / a > < / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP14_1" > < / a > < b > § 14.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Initialise the STC to a blank command< / span > < span class = "named-paragraph-number" > 14.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > which_kind_command< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > boolean_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NOT_APPLICABLE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > numeric_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::new< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > ccm_argument< / span > < span class = "plain-syntax" > = -1;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > vocabulary_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > WordAssemblages::lit_0< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > constructor_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::new< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > macro_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > template_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP14" > § 14< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP14_2" > < / a > < b > § 14.2. < / b > Spaces and tabs after the colon are skipped; so a textual argument cannot
2019-03-17 14:40:57 +02:00
begin with those characters, but that doesn't matter for the things we need.
< / p >
2020-08-09 20:39:31 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Parse line into command and argument, divided by a colon< / span > < span class = "named-paragraph-number" > 14.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > match_results< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > mr< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Regexp::create_mr< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Regexp::match< / span > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > mr< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > whole_command< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > " *(%c+?) *: *(%c+?) *"< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Str::copy< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > mr< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > exp< / span > < span class = "plain-syntax" > [0]);< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Str::copy< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > mr< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > exp< / span > < span class = "plain-syntax" > [1]);< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Regexp::dispose_of< / span > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > mr< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP25" class = "function-link" > < span class = "function-syntax" > KindCommands::kind_command_error< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > whole_command< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "kind command without argument"< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP14" > § 14< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP14_3" > < / a > < b > § 14.3. < / b > The following is clearly inefficient, but is not worth optimising. It makes
2019-03-17 14:40:57 +02:00
about 20 string comparisons per command, and there are about 600 commands in a
typical run of Inform, so the total cost is about 12,000 comparisons with
quite small strings as arguments — which is negligible for our purposes,
so we neglect it.
< / p >
2020-08-09 20:39:31 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Identify the command being used< / span > < span class = "named-paragraph-number" > 14.3< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > table_of_kind_commands< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ].< / span > < span class = "element-syntax" > text_of_command< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++)< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_narrow_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > table_of_kind_commands< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ].< / span > < span class = "element-syntax" > text_of_command< / span > < span class = "plain-syntax" > ))< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > which_kind_command< / span > < span class = "plain-syntax" > = & (< / span > < span class = "identifier-syntax" > table_of_kind_commands< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ]);< / span >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > which_kind_command< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > )< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP25" class = "function-link" > < span class = "function-syntax" > KindCommands::kind_command_error< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "no such kind command"< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP14" > § 14< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP14_4" > < / a > < b > § 14.4. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Parse a boolean argument for a kind command< / span > < span class = "named-paragraph-number" > 14.4< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "yes"< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > boolean_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "no"< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > boolean_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP25" class = "function-link" > < span class = "function-syntax" > KindCommands::kind_command_error< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "boolean kind command takes yes/no argument"< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP14" > § 14< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP14_5" > < / a > < b > § 14.5. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Parse a CCM argument for a kind command< / span > < span class = "named-paragraph-number" > 14.5< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "none"< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > ccm_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > NONE_CCM< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "literal"< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > ccm_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > LITERAL_CCM< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "quantitative"< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > ccm_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > NAMED_CONSTANT_CCM< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "special"< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > ccm_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > SPECIAL_CCM< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP25" class = "function-link" > < span class = "function-syntax" > KindCommands::kind_command_error< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "kind command with unknown constant-compilation-method"< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP14" > § 14< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP14_6" > < / a > < b > § 14.6. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Parse a textual argument for a kind command< / span > < span class = "named-paragraph-number" > 14.6< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Str::copy< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP14" > § 14< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP14_7" > < / a > < b > § 14.7. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Parse a vocabulary argument for a kind command< / span > < span class = "named-paragraph-number" > 14.7< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > vocabulary_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > WordAssemblages::lit_0< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > feed_t< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > id< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Feeds::begin< / span > < span class = "plain-syntax" > ();< / span >
2020-05-12 12:00:53 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Feeds::feed_text< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Feeds::end< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > id< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Wordings::length< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > ) > = < / span > < span class = "constant-syntax" > 30< / span > < span class = "plain-syntax" > )< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP25" class = "function-link" > < span class = "function-syntax" > KindCommands::kind_command_error< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "too many words in kind command"< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > vocabulary_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > WordAssemblages::from_wording< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP14" > § 14< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP14_8" > < / a > < b > § 14.8. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Parse a numeric argument for a kind command< / span > < span class = "named-paragraph-number" > 14.8< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > numeric_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::atoi< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP14" > § 14< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP14_9" > < / a > < b > § 14.9. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Parse a constructor-name argument for a kind command< / span > < span class = "named-paragraph-number" > 14.9< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > match_results< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > mr< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Regexp::create_mr< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Regexp::match< / span > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > mr< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "(%c*?)> > > (%c+)"< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Str::copy< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > mr< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > exp< / span > < span class = "plain-syntax" > [0]);< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Str::copy< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > mr< / span > < span class = "plain-syntax" > .< / span > < span class = "identifier-syntax" > exp< / span > < span class = "plain-syntax" > [1]);< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Regexp::dispose_of< / span > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > mr< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > constructor_argument< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP14" > § 14< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP14_10" > < / a > < b > § 14.10. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Parse a template name argument for a kind command< / span > < span class = "named-paragraph-number" > 14.10< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > template_argument< / span > < span class = "plain-syntax" > = < / span > < a href = "4-kc.html#SP16" class = "function-link" > < span class = "function-syntax" > KindCommands::parse_kind_template_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > template_argument< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > )< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP25" class = "function-link" > < span class = "function-syntax" > KindCommands::kind_command_error< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "unknown template name in kind command"< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP14" > § 14< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP14_11" > < / a > < b > § 14.11. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Parse a macro name argument for a kind command< / span > < span class = "named-paragraph-number" > 14.11< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > macro_argument< / span > < span class = "plain-syntax" > = < / span > < a href = "4-kc.html#SP20" class = "function-link" > < span class = "function-syntax" > KindCommands::parse_kind_macro_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > argument< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > macro_argument< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > )< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP25" class = "function-link" > < span class = "function-syntax" > KindCommands::kind_command_error< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "unknown template name in kind command"< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP14" > § 14< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP15" > < / a > < b > § 15. Source text templates. < / b > These are passages of I7 source text which can be inserted into the main
2019-03-17 14:40:57 +02:00
source text at the request of any kind. An example would be:
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > *UNDERSTOOD-VARIABLE:< / span >
< span class = "plain-syntax" > < kind> understood is a < kind> which varies.< / span >
< span class = "plain-syntax" > *END< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > The template < span class = "extract" > < span class = "extract-syntax" > *UNDERSTOOD-VARIABLE< / span > < / span > contains only a single sentence of source
2019-03-17 14:40:57 +02:00
text, and the idea is to make a new global variable associated with a given
kind. Note that the text is not quite literal, because it can contain
2020-05-03 03:01:21 +03:00
wildcards like < span class = "extract" > < span class = "extract-syntax" > < kind> < / span > < / span > , which expands to the name of the kind of value in
2019-03-17 14:40:57 +02:00
question: for instance, we might get
< / p >
< blockquote >
< p > number understood is a number which varies.< / p >
< / blockquote >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > There are a few limitations on what template text can include. Firstly,
2019-03-17 14:40:57 +02:00
nothing with angle brackets in, except where a wildcard appears. Secondly,
each sentence must end at the end of a line, and similarly the colon for
any rule or other definition. Thus this template would fail:
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > *UNDERSTOOD-VARIABLE:< / span >
< span class = "plain-syntax" > < kind> understood is a < kind> which< / span >
< span class = "plain-syntax" > varies. To judge < kind> : say "I judge [< kind> understood]."< / span >
< span class = "plain-syntax" > *END< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > because the first sentence ends in the middle of the second line, and the
2019-03-17 14:40:57 +02:00
colon dividing the phrase header from its definition is also mid-line. The
template must be reformatted thus to work:
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > *UNDERSTOOD-VARIABLE:< / span >
< span class = "plain-syntax" > < kind> understood is a < kind> which varies.< / span >
< span class = "plain-syntax" > To judge < kind> :< / span >
< span class = "plain-syntax" > say "I judge [< kind> understood]."< / span >
< span class = "plain-syntax" > *END< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP16" > < / a > < b > § 16. < / b > So, to begin:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > kind_template_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > KindCommands::new_kind_template< / span > < button class = "popup" onclick = "togglePopup('usagePopup3')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup3" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::new_kind_template< / span > < / span > :< br / > < a href = "4-kc.html#SP17" > § 17< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_template_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ttd< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > CREATE< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind_template_definition< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ttd< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > template_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ttd< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > kind_template_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > KindCommands::parse_kind_template_name< / span > < button class = "popup" onclick = "togglePopup('usagePopup4')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup4" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::parse_kind_template_name< / span > < / span > :< br / > < a href = "4-kc.html#SP14_10" > § 14.10< / a > , < a href = "4-kc.html#SP17" > § 17< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_template_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ttd< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ttd< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind_template_definition< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ttd< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > template_name< / span > < span class = "plain-syntax" > ))< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ttd< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP17" > < / a > < b > § 17. < / b > Here is the code which records templates, reading them as one line of plain
text at a time. (In the above example, < span class = "extract" > < span class = "extract-syntax" > KindCommands::record_into_kind_template< / span > < / span > would be
2019-03-17 14:40:57 +02:00
called just once, with the single source text line.)
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > kind_template_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > current_kind_template< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > the one now being recorded< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::recording_a_kind_template< / span > < button class = "popup" onclick = "togglePopup('usagePopup5')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup5" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::recording_a_kind_template< / span > < / span > :< br / > < a href = "4-kc.html#SP13" > § 13< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > current_kind_template< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::begin_kind_template< / span > < button class = "popup" onclick = "togglePopup('usagePopup6')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup6" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::begin_kind_template< / span > < / span > :< br / > < a href = "4-kc.html#SP13_1" > § 13.1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > current_kind_template< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "first stt still recording"< / span > < span class = "plain-syntax" > );< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "4-kc.html#SP16" class = "function-link" > < span class = "function-syntax" > KindCommands::parse_kind_template_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > ))< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "duplicate definition of source text template"< / span > < span class = "plain-syntax" > );< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > current_kind_template< / span > < span class = "plain-syntax" > = < / span > < a href = "4-kc.html#SP16" class = "function-link" > < span class = "function-syntax" > KindCommands::new_kind_template< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > current_kind_template< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > template_text< / span > < span class = "plain-syntax" > = < / span > < a href = "4-kc.html#SP24" class = "function-link" > < span class = "function-syntax" > KindCommands::begin_recording_kind_text< / span > < / a > < span class = "plain-syntax" > ();< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::record_into_kind_template< / span > < button class = "popup" onclick = "togglePopup('usagePopup7')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup7" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::record_into_kind_template< / span > < / span > :< br / > < a href = "4-kc.html#SP13" > § 13< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > line< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP24" class = "function-link" > < span class = "function-syntax" > KindCommands::record_kind_text< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > line< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::end_kind_template< / span > < button class = "popup" onclick = "togglePopup('usagePopup8')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup8" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::end_kind_template< / span > < / span > :< br / > < a href = "4-kc.html#SP13" > § 13< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > current_kind_template< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "no stt currently recording"< / span > < span class = "plain-syntax" > );< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP24" class = "function-link" > < span class = "function-syntax" > KindCommands::end_recording_kind_text< / span > < / a > < span class = "plain-syntax" > ();< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > current_kind_template< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP18" > < / a > < b > § 18. < / b > So much for recording a template. To "play back", we need to take its text
2020-07-31 13:47:30 +03:00
and squeeze it into the main source text.
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::transcribe_kind_template< / span > < button class = "popup" onclick = "togglePopup('usagePopup9')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup9" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::transcribe_kind_template< / span > < / span > :< br / > < a href = "4-kc.html#SP26_1" > § 26.1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > parse_node_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > ,< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_template_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ttd< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ttd< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "tried to transcribe missing source text template"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CORE_MODULE< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > Plugins::Manage::plugged_in< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > parsing_plugin< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > Str::eq< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ttd< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > template_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "*UNDERSTOOD-VARIABLE"< / span > < span class = "plain-syntax" > )))< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > ttd< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > template_text< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::get_at< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > Str::get_at< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ) == < / span > < span class = "character-syntax" > '\n'< / span > < span class = "plain-syntax" > ) || (< / span > < span class = "identifier-syntax" > Str::get_at< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ) == < / span > < span class = "character-syntax" > ' '< / span > < span class = "plain-syntax" > )) { < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++; < / span > < span class = "reserved-syntax" > continue< / span > < span class = "plain-syntax" > ; }< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > terminator< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP18_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Transcribe one line of the template into the line buffer< / span > < span class = "named-paragraph-number" > 18.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > ) > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-12 12:00:53 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > XW< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Feeds::feed_text< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > terminator< / span > < span class = "plain-syntax" > != < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > Sentences::make_node< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > XW< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > terminator< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP18_1" > < / a > < b > § 18.1. < / b > Inside template text, anything in angle brackets < ...> is a wildcard.
2019-03-17 14:40:57 +02:00
These cannot be nested and cannot include newlines. All other material is
copied verbatim into the line buffer.
< / p >
2020-05-03 03:01:21 +03:00
< p class = "commentary" > The only sentence terminators we recognise are full stop and colon; in
2019-03-17 14:40:57 +02:00
particular we wouldn't recognise a stop inside quoted matter. This does
not matter, since such things never come into kind definitions.
< / p >
2020-08-09 20:39:31 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Transcribe one line of the template into the line buffer< / span > < span class = "named-paragraph-number" > 18.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > Str::get_at< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ) != < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > Str::get_at< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ) != < / span > < span class = "character-syntax" > '\n'< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::get_at< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ) == < / span > < span class = "character-syntax" > '< '< / span > < span class = "plain-syntax" > ) {< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_wildcard_buffer< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > Str::get_at< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ) != < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > Str::get_at< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ) != < / span > < span class = "character-syntax" > '\n'< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > Str::get_at< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ) != < / span > < span class = "character-syntax" > '> '< / span > < span class = "plain-syntax" > ))< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PUT_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_wildcard_buffer< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Str::get_at< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++));< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++;< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP18_1_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Transcribe the template wildcard< / span > < span class = "named-paragraph-number" > 18.1.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_wildcard_buffer< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PUT_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Str::get_at< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > p< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++));< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::get_last_char< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > ) == < / span > < span class = "character-syntax" > '.'< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Str::delete_last_character< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > terminator< / span > < span class = "plain-syntax" > = < / span > < span class = "character-syntax" > '.'< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::get_last_char< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > ) == < / span > < span class = "character-syntax" > ':'< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Str::delete_last_character< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > terminator< / span > < span class = "plain-syntax" > = < / span > < span class = "character-syntax" > ':'< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP18" > § 18< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP18_1_1" > < / a > < b > § 18.1.1. < / b > Only five wildcards are recognised:
2019-03-17 14:40:57 +02:00
< / p >
2020-08-09 20:39:31 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Transcribe the template wildcard< / span > < span class = "named-paragraph-number" > 18.1.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_wildcard_buffer< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "kind"< / span > < span class = "plain-syntax" > ))< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP18_1_1_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Transcribe the kind's name< / span > < span class = "named-paragraph-number" > 18.1.1.1< / span > < / a > < / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_wildcard_buffer< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "lower-case-kind"< / span > < span class = "plain-syntax" > ))< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP18_1_1_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Transcribe the kind's name in lower case< / span > < span class = "named-paragraph-number" > 18.1.1.2< / span > < / a > < / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_wildcard_buffer< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "kind-weak-ID"< / span > < span class = "plain-syntax" > ))< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP18_1_1_3" class = "named-paragraph-link" > < span class = "named-paragraph" > Transcribe the kind's weak ID< / span > < span class = "named-paragraph-number" > 18.1.1.3< / span > < / a > < / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_wildcard_buffer< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "printing-routine"< / span > < span class = "plain-syntax" > ))< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP18_1_1_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Transcribe the kind's I6 printing routine< / span > < span class = "named-paragraph-number" > 18.1.1.4< / span > < / a > < / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_wildcard_buffer< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "comparison-routine"< / span > < span class = "plain-syntax" > ))< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP18_1_1_5" class = "named-paragraph-link" > < span class = "named-paragraph" > Transcribe the kind's I6 comparison routine< / span > < span class = "named-paragraph-number" > 18.1.1.5< / span > < / a > < / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "no such source text template wildcard"< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP18_1" > § 18.1< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP18_1_1_1" > < / a > < b > § 18.1.1.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Transcribe the kind's name< / span > < span class = "named-paragraph-number" > 18.1.1.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP19" class = "function-link" > < span class = "function-syntax" > KindCommands::transcribe_constructor_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP18_1_1" > § 18.1.1< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP18_1_1_2" > < / a > < b > § 18.1.1.2. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Transcribe the kind's name in lower case< / span > < span class = "named-paragraph-number" > 18.1.1.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP19" class = "function-link" > < span class = "function-syntax" > KindCommands::transcribe_constructor_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP18_1_1" > § 18.1.1< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP18_1_1_3" > < / a > < b > § 18.1.1.3. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Transcribe the kind's weak ID< / span > < span class = "named-paragraph-number" > 18.1.1.3< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "%d"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > weak_kind_ID< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP18_1_1" > § 18.1.1< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP18_1_1_4" > < / a > < b > § 18.1.1.4. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Transcribe the kind's I6 printing routine< / span > < span class = "named-paragraph-number" > 18.1.1.4< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "%S"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > dt_I6_identifier< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP18_1_1" > § 18.1.1< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP18_1_1_5" > < / a > < b > § 18.1.1.5. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Transcribe the kind's I6 comparison routine< / span > < span class = "named-paragraph-number" > 18.1.1.5< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > template_line_buffer< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "%S"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > comparison_routine< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP18_1_1" > § 18.1.1< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP19" > < / a > < b > § 19. < / b > Where:
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::transcribe_constructor_name< / span > < button class = "popup" onclick = "togglePopup('usagePopup10')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup10" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::transcribe_constructor_name< / span > < / span > :< br / > < a href = "4-kc.html#SP18_1_1_1" > § 18.1.1.1< / a > , < a href = "4-kc.html#SP18_1_1_2" > § 18.1.1.2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > OUTPUT_STREAM< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > lower_case< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > EMPTY_WORDING< / span > < span class = "plain-syntax" > ;< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > dt_tag< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > = < / span > < a href = "2-kc.html#SP7" class = "function-link" > < span class = "function-syntax" > Kinds::Constructors::get_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Wordings::nonempty< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > )) {< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "2-kc.html#SP13" class = "function-link" > < span class = "function-syntax" > Kinds::Constructors::arity< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ) > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > full_length< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Wordings::length< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > w1< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Wordings::first_wn< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > full_length< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > PUT< / span > < span class = "plain-syntax" > (< / span > < span class = "character-syntax" > ' '< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > vocabulary_entry< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Lexer::word< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > w1< / span > < span class = "plain-syntax" > +< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > STROKE_V< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > CAPITAL_K_V< / span > < span class = "plain-syntax" > ) || (< / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > CAPITAL_L_V< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "value"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "%V"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > lower_case< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "%+W"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "%W"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP20" > < / a > < b > § 20. Type macros. < / b > These are much simpler, and are just lists of kind commands grouped together
2019-03-17 14:40:57 +02:00
under names.
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > kind_macro_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > current_kind_macro< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > the one now being recorded< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > kind_macro_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > KindCommands::new_kind_macro< / span > < button class = "popup" onclick = "togglePopup('usagePopup11')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup11" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::new_kind_macro< / span > < / span > :< br / > < a href = "4-kc.html#SP21" > § 21< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_macro_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > tmd< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > CREATE< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind_macro_definition< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > tmd< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_macro_line_count< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > tmd< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_macro_name< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > tmd< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-08-12 01:59:29 +03:00
< span class = "reserved-syntax" > kind_macro_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > KindCommands::parse_kind_macro_name< / span > < button class = "popup" onclick = "togglePopup('usagePopup12')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup12" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::parse_kind_macro_name< / span > < / span > :< br / > < a href = "4-kc.html#SP14_11" > § 14.11< / a > , < a href = "4-kc.html#SP21" > § 21< / a > < br / > Kind Constructors - < a href = "2-kc.html#SP6_1" > § 6.1< / a > , < a href = "2-kc.html#SP10" > § 10< / a > , < a href = "2-kc.html#SP11" > § 11< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_macro_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > tmd< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOOP_OVER< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > tmd< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind_macro_definition< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > tmd< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_macro_name< / span > < span class = "plain-syntax" > ))< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > tmd< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP21" > < / a > < b > § 21. < / b > And here once again is the code to record macros:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::recording_a_kind_macro< / span > < button class = "popup" onclick = "togglePopup('usagePopup13')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup13" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::recording_a_kind_macro< / span > < / span > :< br / > < a href = "4-kc.html#SP13" > § 13< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > current_kind_macro< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::begin_kind_macro< / span > < button class = "popup" onclick = "togglePopup('usagePopup14')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup14" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::begin_kind_macro< / span > < / span > :< br / > < a href = "4-kc.html#SP13_1" > § 13.1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < a href = "4-kc.html#SP20" class = "function-link" > < span class = "function-syntax" > KindCommands::parse_kind_macro_name< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > ))< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "duplicate definition of kind command macro"< / span > < span class = "plain-syntax" > );< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > current_kind_macro< / span > < span class = "plain-syntax" > = < / span > < a href = "4-kc.html#SP20" class = "function-link" > < span class = "function-syntax" > KindCommands::new_kind_macro< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > name< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::record_into_kind_macro< / span > < button class = "popup" onclick = "togglePopup('usagePopup15')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup15" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::record_into_kind_macro< / span > < / span > :< br / > < a href = "4-kc.html#SP13" > § 13< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > single_kind_command< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > current_kind_macro< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "kind macro not being recorded"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > current_kind_macro< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_macro_line_count< / span > < span class = "plain-syntax" > > = < / span > < span class = "constant-syntax" > MAX_KIND_MACRO_LENGTH< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "kind macro contains too many lines"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > current_kind_macro< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_macro_line< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > current_kind_macro< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_macro_line_count< / span > < span class = "plain-syntax" > ++] = < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::end_kind_macro< / span > < button class = "popup" onclick = "togglePopup('usagePopup16')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup16" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::end_kind_macro< / span > < / span > :< br / > < a href = "4-kc.html#SP13" > § 13< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > current_kind_macro< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "ended kind macro outside one"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > current_kind_macro< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP22" > < / a > < b > § 22. < / b > Playing back is easier, since it's just a matter of despatching the stored
2019-03-17 14:40:57 +02:00
commands in sequence to the relevant kind.
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-12 01:59:29 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::play_back_kind_macro< / span > < button class = "popup" onclick = "togglePopup('usagePopup17')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup17" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::play_back_kind_macro< / span > < / span > :< br / > < a href = "4-kc.html#SP26_1" > § 26.1< / a > < br / > Kind Constructors - < a href = "2-kc.html#SP6_1" > § 6.1< / a > , < a href = "2-kc.html#SP10" > § 10< / a > , < a href = "2-kc.html#SP11" > § 11< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > parse_node_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind_macro_definition< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > macro< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > macro< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "no such kind macro to play back"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > KIND_CREATIONS< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Macro %S on %S (%d lines)\n"< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > macro< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_macro_name< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > name_in_template_code< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > macro< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_macro_line_count< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG_INDENT< / span > < span class = "plain-syntax" > ;< / span >
2020-05-09 15:07:39 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "function-syntax" > < macro-> < / span > < span class = "element-syntax" > kind_macro_line_count< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++)< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP26" class = "function-link" > < span class = "function-syntax" > KindCommands::apply_kind_command< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > macro< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_macro_line< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ], < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG_OUTDENT< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > KIND_CREATIONS< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Macro %S ended\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > macro< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > kind_macro_name< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP23" > < / a > < b > § 23. The kind text archiver. < / b > Large chunks of the text in the template will need to exist permanently in
2019-03-17 14:40:57 +02:00
memory, and we go into recording mode to accept a series of them,
concatenated with newlines dividing them, in a text stream.
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > kind_recording< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP24" > < / a > < b > § 24. < / b > And here is recording mode:
2019-03-17 14:40:57 +02:00
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > KindCommands::begin_recording_kind_text< / span > < button class = "popup" onclick = "togglePopup('usagePopup18')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup18" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::begin_recording_kind_text< / span > < / span > :< br / > < a href = "4-kc.html#SP17" > § 17< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > kind_recording< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::new< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > kind_recording< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::record_kind_text< / span > < button class = "popup" onclick = "togglePopup('usagePopup19')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup19" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::record_kind_text< / span > < / span > :< br / > < a href = "4-kc.html#SP17" > § 17< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > line< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_recording< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "can't record outside recording"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > kind_recording< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "%S\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > line< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::end_recording_kind_text< / span > < button class = "popup" onclick = "togglePopup('usagePopup20')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup20" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::end_recording_kind_text< / span > < / span > :< br / > < a href = "4-kc.html#SP17" > § 17< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > kind_recording< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP25" > < / a > < b > § 25. Error messages. < / b > < / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::kind_command_error< / span > < button class = "popup" onclick = "togglePopup('usagePopup21')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup21" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::kind_command_error< / span > < / span > :< br / > < a href = "4-kc.html#SP14_2" > § 14.2< / a > , < a href = "4-kc.html#SP14_3" > § 14.3< / a > , < a href = "4-kc.html#SP14_4" > § 14.4< / a > , < a href = "4-kc.html#SP14_5" > § 14.5< / a > , < a href = "4-kc.html#SP14_7" > § 14.7< / a > , < a href = "4-kc.html#SP14_10" > § 14.10< / a > , < a href = "4-kc.html#SP14_11" > § 14.11< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > char< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > error< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "Kind command error found at: %S\n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > command< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > error< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP26" > < / a > < b > § 26. Applying kind commands. < / b > We take a single kind command and apply it to a given kind.
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "definitions code-font" > < span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > apply_macro_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 1< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > apply_template_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 2< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > can_coincide_with_property_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 5< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > can_exchange_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 6< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > cast_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 7< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > comparison_routine_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 8< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > comparison_schema_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 9< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > constant_compilation_method_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 10< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > constructor_arity_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 11< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > default_value_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 12< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > defined_in_source_text_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 13< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > description_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 14< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > distinguisher_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 15< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > documentation_reference_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 16< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > explicit_i6_GPR_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 17< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > group_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 18< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > has_i6_GPR_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 19< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > heap_size_estimate_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 20< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > i6_printing_routine_actions_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 21< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > i6_printing_routine_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 22< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > index_default_value_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 23< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > index_maximum_value_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 24< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > index_minimum_value_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 25< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > indexed_grey_if_empty_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 26< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > index_priority_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 27< / span >
2020-08-12 01:59:29 +03:00
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > conforms_to_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 28< / span >
2020-05-03 03:01:21 +03:00
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > is_incompletely_defined_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 29< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > is_template_variable_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 30< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > loop_domain_schema_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 31< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > modifying_adjective_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 32< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > multiple_block_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 33< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > named_values_created_with_assertions_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 34< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > plural_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 35< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > recognition_only_GPR_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 36< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > singular_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 37< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > specification_text_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 38< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > small_block_size_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 39< / span >
< span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > template_variable_number_KCC< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 40< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::apply_kind_command< / span > < button class = "popup" onclick = "togglePopup('usagePopup22')" > < span class = "comment-syntax" > ?< / span > < span class = "popuptext" id = "usagePopup22" > Usage of < span class = "code-font" > < span class = "function-syntax" > KindCommands::apply_kind_command< / span > < / span > :< br / > < a href = "4-kc.html#SP13" > § 13< / a > , < a href = "4-kc.html#SP22" > § 22< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > parse_node_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > single_kind_command< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > kind_constructor< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > which_kind_command< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "null STC command"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOGIF< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > KIND_CREATIONS< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "apply: %s (%d/%d/%S/%S) to %d/%S\n"< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > which_kind_command< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > text_of_command< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > boolean_argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > numeric_argument< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > constructor_argument< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > allocation_id< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > name_in_template_code< / span > < span class = "plain-syntax" > );< / span >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > tcc< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > which_kind_command< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > opcode_number< / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP26_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Apply kind macros or transcribe kind templates on request< / span > < span class = "named-paragraph-number" > 26.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP26_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Most kind commands simply set a field in the constructor structure< / span > < span class = "named-paragraph-number" > 26.2< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP26_3" class = "named-paragraph-link" > < span class = "named-paragraph" > A few kind commands contribute to linked lists in the constructor structure< / span > < span class = "named-paragraph-number" > 26.3< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP26_4" class = "named-paragraph-link" > < span class = "named-paragraph" > And the rest fill in fields in the constructor structure in miscellaneous other ways< / span > < span class = "named-paragraph-number" > 26.4< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "unimplemented kind command"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP26_1" > < / a > < b > § 26.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Apply kind macros or transcribe kind templates on request< / span > < span class = "named-paragraph-number" > 26.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > switch< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > tcc< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > apply_template_KCC:< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP18" class = "function-link" > < span class = "function-syntax" > KindCommands::transcribe_kind_template< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > template_argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > apply_macro_KCC:< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < a href = "4-kc.html#SP22" class = "function-link" > < span class = "function-syntax" > KindCommands::play_back_kind_macro< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > T< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > macro_argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP26" > § 26< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP26_2" > < / a > < b > § 26.2. < / b > < / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "definitions code-font" > < span class = "definition-keyword" > define< / span > < span class = "identifier-syntax" > SET_BOOLEAN_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > field< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > field< / span > < span class = "plain-syntax" > ##< / span > < span class = "identifier-syntax" > _KCC:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > field< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > boolean_argument< / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "definition-keyword" > define< / span > < span class = "identifier-syntax" > SET_INTEGER_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > field< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > field< / span > < span class = "plain-syntax" > ##< / span > < span class = "identifier-syntax" > _KCC:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > field< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > numeric_argument< / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "definition-keyword" > define< / span > < span class = "identifier-syntax" > SET_TEXTUAL_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > field< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > field< / span > < span class = "plain-syntax" > ##< / span > < span class = "identifier-syntax" > _KCC:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > field< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "definition-keyword" > define< / span > < span class = "identifier-syntax" > SET_CCM_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > field< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > field< / span > < span class = "plain-syntax" > ##< / span > < span class = "identifier-syntax" > _KCC:< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > field< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > ccm_argument< / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Most kind commands simply set a field in the constructor structure< / span > < span class = "named-paragraph-number" > 26.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > switch< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > tcc< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_BOOLEAN_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > can_coincide_with_property< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_BOOLEAN_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > can_exchange< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_BOOLEAN_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > defined_in_source_text< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_BOOLEAN_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > has_i6_GPR< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_BOOLEAN_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > indexed_grey_if_empty< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_BOOLEAN_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > is_incompletely_defined< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_BOOLEAN_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > multiple_block< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_BOOLEAN_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > named_values_created_with_assertions< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_INTEGER_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > group< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_INTEGER_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > heap_size_estimate< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_INTEGER_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > index_priority< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_INTEGER_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > small_block_size< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_CCM_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > constant_compilation_method< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_TEXTUAL_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > default_value< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_TEXTUAL_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > distinguisher< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_TEXTUAL_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > documentation_reference< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_TEXTUAL_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > explicit_i6_GPR< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_TEXTUAL_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > index_default_value< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_TEXTUAL_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > index_maximum_value< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_TEXTUAL_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > index_minimum_value< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_TEXTUAL_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > loop_domain_schema< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_TEXTUAL_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > recognition_only_GPR< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > SET_TEXTUAL_FIELD< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > specification_text< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP26" > § 26< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP26_3" > < / a > < b > § 26.3. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > A few kind commands contribute to linked lists in the constructor structure< / span > < span class = "named-paragraph-number" > 26.3< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > tcc< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > cast_KCC< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CORE_MODULE< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > Str::eq< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > constructor_argument< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "SNIPPET_TY"< / span > < span class = "plain-syntax" > )) & & < / span >
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Plugins::Manage::plugged_in< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > parsing_plugin< / span > < span class = "plain-syntax" > ) == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )) < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor_casting_rule< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > dtcr< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > CREATE< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind_constructor_casting_rule< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dtcr< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next_casting_rule< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > first_casting_rule< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > first_casting_rule< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > dtcr< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dtcr< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > cast_from_kind_unparsed< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > constructor_argument< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dtcr< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > cast_from_kind< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > tcc< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > conforms_to_KCC< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor_instance< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > dti< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > CREATE< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind_constructor_instance< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dti< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next_instance_rule< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > first_instance_rule< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > first_instance_rule< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > dti< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dti< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instance_of_this_unparsed< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > constructor_argument< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dti< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > instance_of_this< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > tcc< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > comparison_schema_KCC< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > kind_constructor_comparison_schema< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > dtcs< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > CREATE< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > kind_constructor_comparison_schema< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dtcs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > next_comparison_schema< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > first_comparison_schema< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > first_comparison_schema< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > dtcs< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dtcs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > comparator_unparsed< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > constructor_argument< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dtcs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > comparator< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dtcs< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > comparison_schema< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP26" > § 26< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP26_4" > < / a > < b > § 26.4. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > And the rest fill in fields in the constructor structure in miscellaneous other ways< / span > < span class = "named-paragraph-number" > 26.4< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > switch< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > tcc< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > constructor_arity_KCC:< / span >
2020-08-09 20:39:31 +03:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-kc.html#SP26_4_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Parse the constructor arity text< / span > < span class = "named-paragraph-number" > 26.4.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > description_KCC:< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > constructor_description< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > comparison_routine_KCC:< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > ) > < / span > < span class = "constant-syntax" > 31< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "overlong I6 identifier"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > comparison_routine< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i6_printing_routine_KCC:< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > ) > < / span > < span class = "constant-syntax" > 31< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "overlong I6 identifier"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > dt_I6_identifier< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i6_printing_routine_actions_KCC:< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > ) > < / span > < span class = "constant-syntax" > 31< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "overlong I6 identifier"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > name_of_printing_rule_ACTIONS< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > singular_KCC:< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > plural_KCC:< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > vocabulary_entry< / span > < span class = "plain-syntax" > **< / span > < span class = "identifier-syntax" > array< / span > < span class = "plain-syntax" > ; < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > length< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WordAssemblages::as_array< / span > < span class = "plain-syntax" > (& (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > vocabulary_argument< / span > < span class = "plain-syntax" > ), & < / span > < span class = "identifier-syntax" > array< / span > < span class = "plain-syntax" > , & < / span > < span class = "identifier-syntax" > length< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > length< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > ) {< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < a href = "2-knd.html#SP19" class = "function-link" > < span class = "function-syntax" > Kinds::mark_vocabulary_as_kind< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > array< / span > < span class = "plain-syntax" > [0], < / span > < a href = "2-knd.html#SP3" class = "function-link" > < span class = "function-syntax" > Kinds::base_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ));< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > length< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Vocabulary::set_flags< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > array< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ], < / span > < span class = "constant-syntax" > KIND_SLOW_MC< / span > < span class = "plain-syntax" > );< / span >
2020-05-19 13:46:13 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NTI::mark_vocabulary< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > array< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ], < / span > < span class = "function-syntax" > < k-kind> < / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > group< / span > < span class = "plain-syntax" > != < / span > < span class = "constant-syntax" > PROPER_CONSTRUCTOR_GRP< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > vocabulary_entry< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > WordAssemblages::hyphenated< / span > < span class = "plain-syntax" > (& (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > vocabulary_argument< / span > < span class = "plain-syntax" > ));< / span >
2020-08-12 01:59:29 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-knd.html#SP19" class = "function-link" > < span class = "function-syntax" > Kinds::mark_vocabulary_as_kind< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ve< / span > < span class = "plain-syntax" > , < / span > < a href = "2-knd.html#SP3" class = "function-link" > < span class = "function-syntax" > Kinds::base_construction< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ));< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > feed_t< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > id< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Feeds::begin< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > for< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > =0; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > < < / span > < span class = "identifier-syntax" > length< / span > < span class = "plain-syntax" > ; < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++)< / span >
2020-05-12 12:00:53 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Feeds::feed_C_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Vocabulary::get_exemplar< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > array< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ], < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ));< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LW< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Feeds::end< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > id< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > tcc< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > singular_KCC< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ro< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
2020-06-29 04:17:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > group< / span > < span class = "plain-syntax" > != < / span > < span class = "constant-syntax" > PROPER_CONSTRUCTOR_GRP< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > ro< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > ADD_TO_LEXICON_NTOPT< / span > < span class = "plain-syntax" > + < / span > < span class = "identifier-syntax" > WITH_PLURAL_FORMS_NTOPT< / span > < span class = "plain-syntax" > ;< / span >
2020-07-04 01:01:02 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NATURAL_LANGUAGE_WORDS_TYPE< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CORE_MODULE< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Task::language_of_syntax< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > noun< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > nt< / span > < span class = "plain-syntax" > =< / span >
2020-06-29 04:17:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Nouns::new_common_noun< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > LW< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NEUTER_GENDER< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ro< / span > < span class = "plain-syntax" > ,< / span >
2020-07-04 01:01:02 +03:00
< span class = "plain-syntax" > < / span > < span class = "constant-syntax" > KIND_SLOW_MC< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > STORE_POINTER_kind_constructor< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > dt_tag< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > nt< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
2020-06-29 04:17:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > NATURAL_LANGUAGE_WORDS_TYPE< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > ifdef< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CORE_MODULE< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Task::language_of_syntax< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > #< / span > < span class = "identifier-syntax" > endif< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Nouns::set_nominative_plural_in_language< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > dt_tag< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > LW< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > case< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > modifying_adjective_KCC:< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "the modifying-adjective syntax has been withdrawn"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP26" > § 26< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP26_4_1" > < / a > < b > § 26.4.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Parse the constructor arity text< / span > < span class = "named-paragraph-number" > 26.4.1< / span > < / span > < span class = "comment-syntax" > =< / span >
2020-05-03 03:01:21 +03:00
< / p >
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > string_position< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::start< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > stc< / span > < span class = "plain-syntax" > .< / span > < span class = "element-syntax" > textual_argument< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Characters::is_space_or_tab< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::get< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ))) < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::forward< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::get< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ) == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::get< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ) == < / span > < span class = "character-syntax" > ','< / span > < span class = "plain-syntax" > ) { < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ++; < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::forward< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ); < / span > < span class = "reserved-syntax" > continue< / span > < span class = "plain-syntax" > ; }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > > = < / span > < span class = "constant-syntax" > 2< / span > < span class = "plain-syntax" > ) { < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > =1; < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ; }< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > TEMPORARY_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > wd< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > while< / span > < span class = "plain-syntax" > ((!< / span > < span class = "identifier-syntax" > Characters::is_space_or_tab< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::get< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ))) & & (< / span > < span class = "identifier-syntax" > Str::get< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ) != < / span > < span class = "character-syntax" > ','< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > Str::get< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > ) != < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PUT_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > wd< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > Str::get< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > )); < / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::forward< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pos< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > wd< / span > < span class = "plain-syntax" > ) > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > wd< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "covariant"< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > variance< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ] = < / span > < span class = "constant-syntax" > COVARIANT< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > wd< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "contravariant"< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > variance< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ] = < / span > < span class = "constant-syntax" > CONTRAVARIANT< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > wd< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "optional"< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > tupling< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ] = < / span > < span class = "constant-syntax" > ALLOW_NOTHING_TUPLING< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Str::eq_wide_string< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > wd< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > L< / span > < span class = "string-syntax" > "list"< / span > < span class = "plain-syntax" > )) < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > tupling< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > ] = < / span > < span class = "constant-syntax" > ARBITRARY_TUPLING< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LOG< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "Word: < %S> \n"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > wd< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "illegal constructor-arity keyword"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2020-06-28 01:18:54 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > DISCARD_TEXT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > wd< / span > < span class = "plain-syntax" > )< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > con< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > constructor_arity< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > c< / span > < span class = "plain-syntax" > +1;< / span >
2019-03-17 14:40:57 +02:00
< / pre >
2020-08-09 20:39:31 +03:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-kc.html#SP26_4" > § 26.4< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP27" > < / a > < b > § 27. Completing a batch. < / b > At one time it was useful to do some mopping-up work after a round of kind
2020-05-03 03:01:21 +03:00
commands, so the following hook was devised; but at present it's not needed.
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2020-08-09 20:39:31 +03:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > KindCommands::batch_done< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< / pre >
2020-08-09 20:39:31 +03:00
< p class = "commentary firstcommentary" > < a id = "SP28" > < / a > < b > § 28. < / b > And that completes the kind interpreter.
2020-05-03 03:01:21 +03:00
< / p >
< nav role = "progress" > < div class = "progresscontainer" >
2020-08-09 20:39:31 +03:00
< ul class = "progressbar" > < li class = "progressprev" > < a href = "4-kf.html" > ❮ < / a > < / li > < li class = "progresschapter" > < a href = "P-wtmd.html" > P< / a > < / li > < li class = "progresschapter" > < a href = "1-km.html" > 1< / a > < / li > < li class = "progresschapter" > < a href = "2-knd.html" > 2< / a > < / li > < li class = "progresschapter" > < a href = "3-dmn.html" > 3< / a > < / li > < li class = "progresscurrentchapter" > 4< / li > < li class = "progresssection" > < a href = "4-kf.html" > kf< / a > < / li > < li class = "progresscurrent" > kc< / li > < li class = "progressnextoff" > ❯ < / li > < / ul > < / div >
2020-05-03 03:01:21 +03:00
< / nav > <!-- End of weave -->
2019-03-17 14:40:57 +02:00
2020-05-03 03:01:21 +03:00
< / main >
< / body >
< / html >
2019-03-17 14:40:57 +02:00
