2021-04-30 20:48:22 +03:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
< title > Extensions< / title >
< link href = "../docs-assets/Breadcrumbs.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< meta name = "viewport" content = "width=device-width initial-scale=1" >
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
< 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" >
< script >
function togglePopup(material_id) {
var popup = document.getElementById(material_id);
popup.classList.toggle("show");
}
< / script >
< 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" >
< / head >
< body class = "commentary-font" >
< nav role = "navigation" >
< h1 > < a href = "../index.html" >
< img src = "../docs-assets/Inform.png" height = 72" >
< / a > < / h1 >
< ul > < li > < a href = "../compiler.html" > compiler tools< / a > < / li >
< li > < a href = "../other.html" > other tools< / a > < / li >
< li > < a href = "../extensions.html" > extensions and kits< / a > < / li >
< li > < a href = "../units.html" > unit test tools< / a > < / li >
< / ul > < h2 > Compiler Webs< / h2 > < ul >
< li > < a href = "../inbuild/index.html" > inbuild< / a > < / li >
< li > < a href = "../inform7/index.html" > inform7< / a > < / li >
< li > < a href = "../inter/index.html" > inter< / a > < / li >
< / ul > < h2 > Inbuild Modules< / h2 > < ul >
< li > < a href = "../supervisor-module/index.html" > supervisor< / a > < / li >
< / ul > < h2 > Inform7 Modules< / h2 > < ul >
< li > < a href = "../core-module/index.html" > core< / a > < / li >
< li > < a href = "../assertions-module/index.html" > assertions< / a > < / li >
< li > < a href = "../values-module/index.html" > values< / a > < / li >
< li > < a href = "../knowledge-module/index.html" > knowledge< / a > < / li >
< li > < a href = "../imperative-module/index.html" > imperative< / a > < / li >
< li > < a href = "../runtime-module/index.html" > runtime< / a > < / li >
< li > < a href = "../if-module/index.html" > if< / a > < / li >
< li > < a href = "../multimedia-module/index.html" > multimedia< / a > < / li >
< li > < a href = "../index-module/index.html" > index< / a > < / li >
< / ul > < h2 > Inter Modules< / h2 > < ul >
< li > < a href = "../bytecode-module/index.html" > bytecode< / a > < / li >
< li > < a href = "../building-module/index.html" > building< / a > < / li >
2021-08-10 13:01:03 +03:00
< li > < a href = "index.html" > < span class = "selectedlink" > pipeline< / span > < / a > < / li >
< li > < a href = "../final-module/index.html" > final< / a > < / li >
2021-04-30 20:48:22 +03:00
< / ul > < h2 > Services< / h2 > < ul >
< li > < a href = "../arch-module/index.html" > arch< / a > < / li >
< li > < a href = "../calculus-module/index.html" > calculus< / a > < / li >
< li > < a href = "../html-module/index.html" > html< / a > < / li >
< li > < a href = "../inflections-module/index.html" > inflections< / a > < / li >
< li > < a href = "../kinds-module/index.html" > kinds< / a > < / li >
< li > < a href = "../linguistics-module/index.html" > linguistics< / a > < / li >
< li > < a href = "../problems-module/index.html" > problems< / 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 = "../../../inweb/docs/foundation-module/index.html" > foundation< / a > < / li >
< / ul >
< / nav >
< main role = "main" >
<!-- Weave of 'Extensions' generated by Inweb -->
< div class = "breadcrumbs" >
2021-11-30 02:18:02 +02:00
< ul class = "crumbs" > < li > < a href = "../index.html" > Home< / a > < / li > < li > < a href = "../compiler.html" > Inter Modules< / a > < / li > < li > < a href = "index.html" > pipeline< / a > < / li > < li > < a href = "index.html#5" > Chapter 5: Synoptic Module< / a > < / li > < li > < b > Extensions< / b > < / li > < / ul > < / div >
2021-04-30 20:48:22 +03:00
< p class = "purpose" > To renumber the extensions and construct suitable functions and arrays.< / p >
2022-01-07 01:10:15 +02:00
< p class = "commentary firstcommentary" > < a id = "SP1" class = "paragraph-anchor" > < / a > < b > § 1. < / b > Our inventory < span class = "extract" > < span class = "extract-syntax" > inv< / span > < / span > already contains a list < span class = "extract" > < span class = "extract-syntax" > inv-> extension_nodes< / span > < / span > of packages
2022-01-05 01:10:34 +02:00
with the type < span class = "extract" > < span class = "extract-syntax" > _module< / span > < / span > which derive from extensions.
2021-04-30 20:48:22 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2022-01-02 23:29:43 +02:00
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > SynopticExtensions::compile< / 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" > SynopticExtensions::compile< / span > < / span > :< br / > Make Synoptic Module Stage - < a href = "5-msms.html#SP1" > § 1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inter_tree< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > pipeline_step< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > step< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > tree_inventory< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > inv< / span > < span class = "plain-syntax" > ) {< / span >
2022-02-03 01:35:38 +02:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > InterNodeList::array_len< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inv< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > extension_nodes< / span > < span class = "plain-syntax" > ) > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) < / span > < span class = "named-paragraph-container code-font" > < a href = "5-ext.html#SP1_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Assign unique extension ID numbers< / span > < span class = "named-paragraph-number" > 1.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2022-01-05 01:10:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-ext.html#SP1_2" class = "named-paragraph-link" > < span class = "named-paragraph" > Define SHOWEXTENSIONVERSIONS function< / span > < span class = "named-paragraph-number" > 1.2< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-ext.html#SP1_3" class = "named-paragraph-link" > < span class = "named-paragraph" > Define SHOWFULLEXTENSIONVERSIONS function< / span > < span class = "named-paragraph-number" > 1.3< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "5-ext.html#SP1_4" class = "named-paragraph-link" > < span class = "named-paragraph" > Define SHOWONEEXTENSION function< / span > < span class = "named-paragraph-number" > 1.4< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2021-04-30 20:48:22 +03:00
< span class = "plain-syntax" > }< / span >
< / pre >
2022-01-05 01:10:34 +02:00
< p class = "commentary firstcommentary" > < a id = "SP1_1" class = "paragraph-anchor" > < / a > < b > § 1.1. < / b > Each extension module contains a numeric constant with the symbol name < span class = "extract" > < span class = "extract-syntax" > extension_id< / span > < / span > .
We want to ensure that these ID numbers are contiguous from 1 and never duplicated,
so we change the values of these constants accordingly.
< / p >
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Assign unique extension ID numbers< / span > < span class = "named-paragraph-number" > 1.1< / span > < / span > < span class = "comment-syntax" > =< / span >
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2022-02-03 01:35:38 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > InterNodeList::array_sort< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inv< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > extension_nodes< / span > < span class = "plain-syntax" > , < / span > < a href = "5-msms.html#SP7" class = "function-link" > < span class = "function-syntax" > MakeSynopticModuleStage::category_order< / span > < / a > < 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 = "function-syntax" > < InterNodeList::array_len(inv-> < / span > < span class = "element-syntax" > extension_nodes< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2022-01-05 01:10:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_package< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > pack< / span > < span class = "plain-syntax" > =< / span >
2022-03-01 02:41:22 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PackageInstruction::at_this_head< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inv< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > extension_nodes< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > list< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ].< / span > < span class = "identifier-syntax" > node< / span > < span class = "plain-syntax" > );< / span >
2022-01-05 01:10:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_tree_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > = < / span > < a href = "5-su.html#SP1" class = "function-link" > < span class = "function-syntax" > Synoptic::get_definition< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pack< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "extension_id"< / span > < span class = "plain-syntax" > );< / span >
2022-03-13 23:18:06 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ConstantInstruction::set_constant< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > D< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > InterValuePairs::number< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > inter_ti< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > +1));< / span >
2022-01-05 01:10:34 +02:00
< span class = "plain-syntax" > }< / span >
< / pre >
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-ext.html#SP1" > § 1< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP1_2" class = "paragraph-anchor" > < / a > < b > § 1.2. < / b > Now we compile three functions, each of which simply prints credits out.
2021-04-30 20:48:22 +03:00
< / p >
< p class = "commentary" > This is more important than it may sound because many extensions are published
under a Creative Commons attribution license which requires users to give credit
to the authors: Inform thus ensures that this happens automatically.
< / p >
< p class = "commentary" > There are two forms of exemption from this —
< / p >
< ul class = "items" > < li > ● specific authorial modesty suppresses the author's name for one extension,
at that extension author's discretion;
< / li > < li > ● general authorial modesty suppresses the author's name for any extensions
by the same person who wrote the main source text.
< / li > < / ul >
< p class = "commentary" > By design, however, the author of the main source text cannot remove the name
of a different author writing an extension which did not ask for modesty. That
would violate the CC license.
< / p >
2022-01-05 01:10:34 +02:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Define SHOWEXTENSIONVERSIONS function< / span > < span class = "named-paragraph-number" > 1.2< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-04-30 20:48:22 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2022-01-16 01:49:25 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_name< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > iname< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > HierarchyLocations::iname< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > SHOWEXTENSIONVERSIONS_HL< / span > < span class = "plain-syntax" > );< / span >
2021-11-30 02:18:02 +02:00
< span class = "plain-syntax" > < / span > < a href = "5-su.html#SP5" class = "function-link" > < span class = "function-syntax" > Synoptic::begin_function< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > iname< / span > < span class = "plain-syntax" > );< / span >
2022-02-03 01:35:38 +02: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" > < InterNodeList::array_len(inv-> < / span > < span class = "element-syntax" > extension_nodes< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2022-01-05 01:10:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_package< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > pack< / span > < span class = "plain-syntax" > =< / span >
2022-03-01 02:41:22 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > PackageInstruction::at_this_head< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inv< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > extension_nodes< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > list< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ].< / span > < span class = "identifier-syntax" > node< / span > < span class = "plain-syntax" > );< / span >
2021-04-30 20:48:22 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_ti< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > modesty< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Metadata::read_numeric< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pack< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "^modesty"< / 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" > modesty< / span > < span class = "plain-syntax" > == < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) {< / span >
2022-03-01 00:24:58 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > credit< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Metadata::required_textual< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pack< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "^credit"< / span > < span class = "plain-syntax" > ));< / span >
2021-04-30 20:48:22 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > credit< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "\n"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::inv_primitive< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > PRINT_BIP< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::down< / 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" > Produce::val_text< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > credit< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::up< / 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 >
2021-11-30 02:18:02 +02:00
< span class = "plain-syntax" > < / span > < a href = "5-su.html#SP5" class = "function-link" > < span class = "function-syntax" > Synoptic::end_function< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > step< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > iname< / span > < span class = "plain-syntax" > );< / span >
2021-04-30 20:48:22 +03:00
< / pre >
2021-11-30 02:18:02 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-ext.html#SP1" > § 1< / a > .< / li > < / ul >
2022-01-05 01:10:34 +02:00
< p class = "commentary firstcommentary" > < a id = "SP1_3" class = "paragraph-anchor" > < / a > < b > § 1.3. < / b > This fuller version does not allow the exemptions.
2021-04-30 20:48:22 +03:00
< / p >
2022-01-05 01:10:34 +02:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Define SHOWFULLEXTENSIONVERSIONS function< / span > < span class = "named-paragraph-number" > 1.3< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-04-30 20:48:22 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2022-01-16 01:49:25 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_name< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > iname< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > HierarchyLocations::iname< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > SHOWFULLEXTENSIONVERSIONS_HL< / span > < span class = "plain-syntax" > );< / span >
2021-11-30 02:18:02 +02:00
< span class = "plain-syntax" > < / span > < a href = "5-su.html#SP5" class = "function-link" > < span class = "function-syntax" > Synoptic::begin_function< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > iname< / span > < span class = "plain-syntax" > );< / span >
2022-02-03 01:35:38 +02: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" > < InterNodeList::array_len(inv-> < / span > < span class = "element-syntax" > extension_nodes< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2022-03-01 02:41:22 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_package< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > pack< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > PackageInstruction::at_this_head< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inv< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > extension_nodes< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > list< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ].< / span > < span class = "identifier-syntax" > node< / span > < span class = "plain-syntax" > );< / span >
2022-03-01 00:24:58 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > credit< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Str::duplicate< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Metadata::required_textual< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pack< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "^credit"< / span > < span class = "plain-syntax" > ));< / span >
2021-04-30 20:48:22 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > WRITE_TO< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > credit< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "\n"< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::inv_primitive< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > PRINT_BIP< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::down< / 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" > Produce::val_text< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > credit< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::up< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2021-11-30 02:18:02 +02:00
< span class = "plain-syntax" > < / span > < a href = "5-su.html#SP5" class = "function-link" > < span class = "function-syntax" > Synoptic::end_function< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > step< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > iname< / span > < span class = "plain-syntax" > );< / span >
2021-04-30 20:48:22 +03:00
< / pre >
2021-11-30 02:18:02 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-ext.html#SP1" > § 1< / a > .< / li > < / ul >
2022-01-05 01:10:34 +02:00
< p class = "commentary firstcommentary" > < a id = "SP1_4" class = "paragraph-anchor" > < / a > < b > § 1.4. < / b > This prints the name of a single extension, identified by a value which
is its extension ID. Speed of execution here is quite unimportant, so it's
just a run of < span class = "extract" > < span class = "extract-syntax" > if (id == 1) ...< / span > < / span > , then < span class = "extract" > < span class = "extract-syntax" > if (id == 2) ...< / span > < / span > , and so on.
2021-04-30 20:48:22 +03:00
< / p >
2022-01-05 01:10:34 +02:00
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Define SHOWONEEXTENSION function< / span > < span class = "named-paragraph-number" > 1.4< / span > < / span > < span class = "comment-syntax" > =< / span >
2021-04-30 20:48:22 +03:00
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
2022-01-16 01:49:25 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_name< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > iname< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > HierarchyLocations::iname< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "constant-syntax" > SHOWONEEXTENSION_HL< / span > < span class = "plain-syntax" > );< / span >
2021-11-30 02:18:02 +02:00
< span class = "plain-syntax" > < / span > < a href = "5-su.html#SP5" class = "function-link" > < span class = "function-syntax" > Synoptic::begin_function< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > iname< / span > < span class = "plain-syntax" > );< / span >
2022-01-05 01:10:34 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_symbol< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > id_s< / span > < span class = "plain-syntax" > = < / span > < a href = "5-su.html#SP6" class = "function-link" > < span class = "function-syntax" > Synoptic::local< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "id"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > );< / span >
2022-02-03 01:35:38 +02: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" > < InterNodeList::array_len(inv-> < / span > < span class = "element-syntax" > extension_nodes< / span > < span class = "plain-syntax" > ); < / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ++) {< / span >
2022-03-01 02:41:22 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_package< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > pack< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > PackageInstruction::at_this_head< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > inv< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > extension_nodes< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > list< / span > < span class = "plain-syntax" > [< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > ].< / span > < span class = "identifier-syntax" > node< / span > < span class = "plain-syntax" > );< / span >
2022-03-01 00:24:58 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > text_stream< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > credit< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Metadata::required_textual< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > pack< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > I< / span > < span class = "string-syntax" > "^credit"< / span > < span class = "plain-syntax" > );< / span >
2021-04-30 20:48:22 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::inv_primitive< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > IF_BIP< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::down< / 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" > Produce::inv_primitive< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > EQ_BIP< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::down< / 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" > Produce::val_symbol< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K_value< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > id_s< / span > < span class = "plain-syntax" > );< / span >
2022-02-25 01:53:40 +02:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::val< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K_value< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > InterValuePairs::number< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > inter_ti< / span > < span class = "plain-syntax" > ) (< / span > < span class = "identifier-syntax" > i< / span > < span class = "plain-syntax" > + < / span > < span class = "constant-syntax" > 1< / span > < span class = "plain-syntax" > )));< / span >
2021-04-30 20:48:22 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::up< / 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" > Produce::code< / 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" > Produce::down< / 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" > Produce::inv_primitive< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > PRINT_BIP< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::down< / 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" > Produce::val_text< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > credit< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::up< / 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" > Produce::up< / 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" > Produce::up< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
2021-11-30 02:18:02 +02:00
< span class = "plain-syntax" > < / span > < a href = "5-su.html#SP5" class = "function-link" > < span class = "function-syntax" > Synoptic::end_function< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > I< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > step< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > iname< / span > < span class = "plain-syntax" > );< / span >
2021-04-30 20:48:22 +03:00
< / pre >
2021-11-30 02:18:02 +02:00
< ul class = "endnotetexts" > < li > This code is used in < a href = "5-ext.html#SP1" > § 1< / a > .< / li > < / ul >
2021-04-30 20:48:22 +03:00
< nav role = "progress" > < div class = "progresscontainer" >
2022-01-02 23:29:43 +02:00
< ul class = "progressbar" > < li class = "progressprev" > < a href = "5-su.html" > ❮ < / a > < / li > < li class = "progresschapter" > < a href = "P-wtmd.html" > P< / a > < / li > < li class = "progresschapter" > < a href = "1-pm.html" > 1< / a > < / li > < li class = "progresschapter" > < a href = "2-pp.html" > 2< / a > < / li > < li class = "progresschapter" > < a href = "3-ps.html" > 3< / a > < / li > < li class = "progresschapter" > < a href = "4-lbks.html" > 4< / a > < / li > < li class = "progresscurrentchapter" > 5< / li > < li class = "progresssection" > < a href = "5-msms.html" > msms< / a > < / li > < li class = "progresssection" > < a href = "5-sh.html" > sh< / a > < / li > < li class = "progresssection" > < a href = "5-su.html" > su< / a > < / li > < li class = "progresscurrent" > ext< / li > < li class = "progresssection" > < a href = "5-lt.html" > lt< / a > < / li > < li class = "progresssection" > < a href = "5-rsp.html" > rsp< / a > < / li > < li class = "progresssection" > < a href = "5-rls.html" > rls< / a > < / li > < li class = "progresssection" > < a href = "5-act.html" > act< / a > < / li > < li class = "progresssection" > < a href = "5-act2.html" > act2< / a > < / li > < li class = "progresssection" > < a href = "5-ins.html" > ins< / a > < / li > < li class = "progresssection" > < a href = "5-knd.html" > knd< / a > < / li > < li class = "progresssection" > < a href = "5-prp.html" > prp< / a > < / li > < li class = "progresssection" > < a href = "5-rlt.html" > rlt< / a > < / li > < li class = "progresssection" > < a href = "5-tbl.html" > tbl< / a > < / li > < li class = "progresssection" > < a href = "5-chr.html" > chr< / a > < / li > < li class = "progresssection" > < a href = "5-scn.html" > scn< / a > < / li > < li class = "progresssection" > < a href = "5-mlt.html" > mlt< / a > < / li > < li class = "progresssection" > < a href = "5-uo.html" > uo< / a > < / li > < li class = "progresssection" > < a href = "5-vrb.html" > vrb< / a > < / li > < li class = "progresssection" > < a href = "5-tst.html" > tst< / a > < / li > < li class = "progresschapter" > < a href = "6-erms.html" > 6< / a > < / li > < li class = "progressnext" > < a href = "5-lt.html" > ❯ < / a > < / li > < / ul > < / div >
2021-04-30 20:48:22 +03:00
< / nav > <!-- End of weave -->
< / main >
< / body >
< / html >