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 >
2021-04-11 18:42:37 +03:00
< title > Text Substitutions< / 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" >
2021-04-11 18:42:37 +03:00
< 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" >
2020-05-03 03:20:55 +03:00
< 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-08-26 12:52:50 +03:00
< 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 = "index.html" > < span class = "selectedlink" > runtime< / 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 >
2020-08-20 01:36:18 +03:00
< li > < a href = "../calculus-module/index.html" > calculus< / a > < / li >
2020-04-14 19:56:54 +03:00
< 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 >
2020-08-20 01:36:18 +03:00
< li > < a href = "../kinds-module/index.html" > kinds< / a > < / li >
2020-05-20 02:02:28 +03:00
< li > < a href = "../linguistics-module/index.html" > linguistics< / a > < / li >
< li > < a href = "../problems-module/index.html" > problems< / a > < / li >
2020-08-20 01:36:18 +03:00
< li > < a href = "../syntax-module/index.html" > syntax< / a > < / li >
< li > < a href = "../words-module/index.html" > words< / 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" >
2021-04-11 18:42:37 +03:00
<!-- Weave of 'Text Substitutions' generated by Inweb -->
2020-05-03 03:01:21 +03:00
< div class = "breadcrumbs" >
2021-04-11 18:42:37 +03:00
< ul class = "crumbs" > < li > < a href = "../index.html" > Home< / a > < / li > < li > < a href = "../compiler.html" > Inform7< / a > < / li > < li > < a href = "index.html" > runtime< / a > < / li > < li > < a href = "index.html#4" > Chapter 4: Literals< / a > < / li > < li > < b > Text Substitutions< / b > < / li > < / ul > < / div >
< p class = "purpose" > In this section we compile text with substitutions.< / p >
< p class = "commentary firstcommentary" > < a id = "SP1" class = "paragraph-anchor" > < / a > < b > § 1. < / b > Text containing substitutions, such as "You pick up [the noun] thoughtfully.",
are compiled as routines rather than Z-machine strings. Each is stored in one
of the following structures. Unlike literal text, a text routine might lead
to problem messages when eventually compiled, so it is useful to record the
current sentence when a text routine is created: this means a problem can
be reported at the right place.
< / p >
< p class = "commentary" > The easiest way to understand this section is to pretend that responses
don't exist, and ignore them until they come up later.
< / p >
< 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" > text_substitution< / 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" > wording< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > unsubstituted_text< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > including the substitutions in squares< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > dont_need_after_all< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > in case replaced as a response< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > tr_done_already< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > has been compiled< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > rule< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > responding_to_rule< / 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" > responding_to_marker< / 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" > parse_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > sentence_using_this< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > where this occurs in source< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > local_names_existed_at_usage_time< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > remember in case of problems< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stack_frame< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > parked_stack_frame< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > for cases where possible< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_name< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ts_iname< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > the I6 array for this< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_name< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ts_routine_iname< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > the routine to implement it< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts_sb_needed< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > reference copy of small block needed as a constant?< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > struct< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > compilation_unit< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > belongs_to_module< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CLASS_DEFINITION< / span >
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > text_substitution< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
< ul class = "endnotetexts" > < li > The structure text_substitution is accessed in 4/rsp and here.< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP2" class = "paragraph-anchor" > < / a > < b > § 2. < / b > We are only allowed to create new ones until the following is set:
< / p >
2020-05-03 03:01:21 +03:00
< pre class = "displayed-code all-displayed-code code-font" >
2021-04-11 18:42:37 +03:00
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > no_further_text_subs< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP3" class = "paragraph-anchor" > < / a > < b > § 3. < / b > The following global variable records whether we are currently compiling
a text routine, rather than some other routine, or free-standing objects.
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > compiling_text_routines_mode< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > used for better problem messages< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP4" class = "paragraph-anchor" > < / a > < b > § 4. < / b > Like literal texts, text substitutions aren't printed out in full when
they first arise; we keep a note of them when we need them, and compile
suitable routines later.
< / p >
< p class = "commentary" > A problem with this is that a text substitution probably contains references
to variables which exist now, but may not exist later when a routine to do
the printing is being compiled. For example,
< / p >
< blockquote >
< p > say "The dial reads [counter].";< / p >
< / blockquote >
< p class = "commentary" > may do quite different things at different points in the code, according to
what < span class = "extract" > < span class = "extract-syntax" > counter< / span > < / span > currently means. So we need to take note of the current
stack frame; and we mustn't optimise by compiling identical text substitutions
to the same routines to print them.
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > text_substitution< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > TextSubstitutions::new_text_substitution< / 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" > TextSubstitutions::new_text_substitution< / span > < / span > :< br / > < a href = "4-ts.html#SP7" > § 7< / a > , < a href = "4-ts.html#SP7_1" > § 7.1< / a > < br / > Responses - < a href = "4-rsp.html#SP4" > § 4< / a > , < a href = "4-rsp.html#SP6_1" > § 6.1< / a > < / span > < / button > < 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 = "plain-syntax" > < / span > < span class = "identifier-syntax" > stack_frame< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > phsf< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > rule< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > R< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > marker< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > package_request< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > text_substitution< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > CREATE< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > text_substitution< / 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" > no_further_text_subs< / span > < span class = "plain-syntax" > ) < / span > < span class = "named-paragraph-container code-font" > < a href = "4-ts.html#SP4_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Panic, because it is really too late< / span > < span class = "named-paragraph-number" > 4.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > unsubstituted_text< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Wordings::first_word< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > sentence_using_this< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > current_sentence< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > local_names_existed_at_usage_time< / 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" > R< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parked_stack_frame< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
2021-04-11 18:42:37 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stack_frame< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > new_frame< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Frames::new< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parked_stack_frame< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Frames::boxed_frame< / span > < span class = "plain-syntax" > (& < / span > < span class = "identifier-syntax" > new_frame< / 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" > phsf< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > LocalVariableSlates::append< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parked_stack_frame< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > phsf< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > responding_to_rule< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > R< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > responding_to_marker< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > marker< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > dont_need_after_all< / 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" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > tr_done_already< / 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" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > ts_sb_needed< / 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" > Functions::defn_being_compiled< / span > < span class = "plain-syntax" > ()) & & < / span >
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > LocalVariableSlates::size< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Frames::current_stack_frame< / 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" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > local_names_existed_at_usage_time< / 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" > package_request< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > PR< / span > < span class = "plain-syntax" > = < / span > < a href = "2-hrr.html#SP4" class = "function-link" > < span class = "function-syntax" > Hierarchy::package_within< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > LITERALS_HAP< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > P< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > ts_iname< / span > < span class = "plain-syntax" > = < / span > < a href = "2-hrr.html#SP4" class = "function-link" > < span class = "function-syntax" > Hierarchy::make_iname_in< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > TEXT_SUBSTITUTION_HL< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > PR< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > ts_routine_iname< / span > < span class = "plain-syntax" > = < / span > < a href = "2-hrr.html#SP4" class = "function-link" > < span class = "function-syntax" > Hierarchy::make_iname_in< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > TEXT_SUBSTITUTION_FN_HL< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > PR< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > belongs_to_module< / span > < span class = "plain-syntax" > = < / span > < a href = "2-cu.html#SP6" class = "function-link" > < span class = "function-syntax" > CompilationUnits::current< / span > < / a > < 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" > TEXT_SUBSTITUTIONS< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Requesting text routine %d %08x %W %08x\n"< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > allocation_id< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > phsf< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > R< / 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" > ts< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP4_1" class = "paragraph-anchor" > < / a > < b > § 4.1. < / b > Timing is going to turn out to be a real problem in all of this code.
If Inform finds that it needs a text substitution very late in its run —
after it has compiled them and can't compile any more — there's nothing
to do but panic.
< / p >
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Panic, because it is really too late< / span > < span class = "named-paragraph-number" > 4.1< / span > < / span > < span class = "comment-syntax" > =< / span >
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > internal_error< / span > < span class = "plain-syntax" > (< / span > < span class = "string-syntax" > "Too late for further text substitutions"< / span > < span class = "plain-syntax" > );< / span >
< / pre >
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-ts.html#SP4" > § 4< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP5" class = "paragraph-anchor" > < / a > < b > § 5. < / b > The template layer calls the following when that midnight hour chimes:
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > TextSubstitutions::allow_no_further_text_subs< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > no_further_text_subs< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP6" class = "paragraph-anchor" > < / a > < b > § 6. < / b > For some years these were compiled to routines verbosely called
< span class = "extract" > < span class = "extract-syntax" > text_routine_1< / span > < / span > and so on, but no longer:
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "identifier-syntax" > inter_name< / span > < span class = "plain-syntax" > *< / span > < span class = "function-syntax" > TextSubstitutions::text_substitution_iname< / 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" > TextSubstitutions::text_substitution_iname< / span > < / span > :< br / > < a href = "4-ts.html#SP7" > § 7< / a > , < a href = "4-ts.html#SP7_1" > § 7.1< / a > < br / > Responses - < a href = "4-rsp.html#SP6_1" > § 6.1< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > text_substitution< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > ts_sb_needed< / 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" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > ts_iname< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP7" class = "paragraph-anchor" > < / a > < b > § 7. < / b > The following is called when we want to compile a usage of a text
substitution; for instance, when compiling
< / p >
< blockquote >
< p > say "The time is [time of day]. Hurry!";< / p >
< / blockquote >
< p class = "commentary" > we'll compile a call to a routine like < span class = "extract" > < span class = "extract-syntax" > TS_1()< / span > < / span > , and make a note to compile
that routine later. This appearance of the routine name is called the "cue".
< / p >
< p class = "commentary" > In a value context, though, things may differ if we are dealing with a text
substitution referring to local variables. Consider for example:
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > let< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > X< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > be< / span > < span class = "plain-syntax" > < / span > < span class = "constant-syntax" > 17< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > write< / span > < span class = "plain-syntax" > < / span > < span class = "string-syntax" > "remember [X]"< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > to< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > the< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > file< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > of< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Memos< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
< p class = "commentary" > This is a context where it's clear what it means to refer to the local variable
< span class = "extract" > < span class = "extract-syntax" > X< / span > < / span > in the text. But this is less clear:
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > let< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > the< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > cage< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > be< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > a< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > random< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > container< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > in< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > the< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Discount< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Cage< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Warehouse< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > now< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > can< / span > < span class = "plain-syntax" > '< / span > < span class = "identifier-syntax" > t< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > exit< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > closed< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > containers< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > rule< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > response< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > A< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > is< / span > < span class = "plain-syntax" > < / span > < span class = "string-syntax" > "As bad as [a cage]."< / span > < span class = "plain-syntax" > ;< / span >
< / pre >
< p class = "commentary" > The trouble is that the response text will be needed in stack frames other
than this one, i.e., when the local variable < span class = "extract" > < span class = "extract-syntax" > cage< / span > < / span > has long since
disappeared. The value of < span class = "extract" > < span class = "extract-syntax" > cage< / span > < / span > must be "captured", and we need the response
text to be some kind of closure. In fact what we do is simpler — we expand
the text and stored it as what it expands to now, not a method for expanding
it later. (This avoids issues of garbage collection on the captured values.)
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > TextSubstitutions::text_substitution_cue< / 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" > TextSubstitutions::text_substitution_cue< / span > < / span > :< br / > Responses - < a href = "4-rsp.html#SP11_1_2" > § 11.1.2< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > value_holster< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > VH< / span > < 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 = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > adopted_rule_for_compilation< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Rules::log< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > adopted_rule_for_compilation< / span > < span class = "plain-syntax" > );< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
2021-04-11 18:42:37 +03:00
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stack_frame< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > phsf< / 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > adopted_rule_for_compilation< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-ts.html#SP7_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Write the actual cue< / span > < span class = "named-paragraph-number" > 7.1< / span > < / a > < / span > < span class = "plain-syntax" > ;< / span >
2021-02-06 20:00:34 +02:00
< span class = "plain-syntax" > } < / span > < span class = "reserved-syntax" > else< / span > < span class = "plain-syntax" > {< / span >
2021-04-11 18:42:37 +03:00
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Holsters::data_acceptable< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > VH< / 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" > downs< / span > < span class = "plain-syntax" > = < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > captured< / 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" > VH< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > vhmode_wanted< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > INTER_VAL_VHMODE< / 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" > phsf< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > phsf< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Frames::current_stack_frame< / span > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > downs< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > LocalParking::park< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > phsf< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > phsf< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Frames::boxed_frame< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > phsf< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::inv_call_iname< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > (), < / span > < a href = "2-hrr.html#SP4" class = "function-link" > < span class = "function-syntax" > Hierarchy::find< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > TEXT_TY_EXPANDIFPERISHABLE_HL< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::down< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Frames::emit_new_local_value< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > K_text< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > captured< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > text_substitution< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > = < / span > < a href = "4-ts.html#SP4" class = "function-link" > < span class = "function-syntax" > TextSubstitutions::new_text_substitution< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > phsf< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > adopted_rule_for_compilation< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > adopted_marker_for_compilation< / span > < span class = "plain-syntax" > , < / span > < a href = "2-emt.html#SP4" class = "function-link" > < span class = "function-syntax" > Emit::current_enclosure< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_name< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > tin< / span > < span class = "plain-syntax" > = < / span > < a href = "4-ts.html#SP6" class = "function-link" > < span class = "function-syntax" > TextSubstitutions::text_substitution_iname< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts< / 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" > VH< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > vhmode_wanted< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > INTER_DATA_VHMODE< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "2-emt.html#SP4" class = "function-link" > < span class = "function-syntax" > Emit::holster< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > VH< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > tin< / 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" > Produce::val_iname< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > (), < / span > < span class = "identifier-syntax" > K_value< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > tin< / 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" > captured< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::up< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < 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" > downs< / span > < span class = "plain-syntax" > > < / span > < span class = "constant-syntax" > 0< / span > < span class = "plain-syntax" > ) { < / span > < span class = "identifier-syntax" > Produce::up< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ()); < / span > < span class = "identifier-syntax" > downs< / span > < span class = "plain-syntax" > --; }< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2020-05-03 03:01:21 +03:00
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
2021-02-06 20:00:34 +02:00
< / pre >
2021-04-11 18:42:37 +03:00
< p class = "commentary firstcommentary" > < a id = "SP7_1" class = "paragraph-anchor" > < / a > < b > § 7.1. < / b > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Write the actual cue< / span > < span class = "named-paragraph-number" > 7.1< / span > < / span > < span class = "comment-syntax" > =< / span >
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > text_substitution< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > = < / span > < a href = "4-ts.html#SP4" class = "function-link" > < span class = "function-syntax" > TextSubstitutions::new_text_substitution< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > W< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > phsf< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > adopted_rule_for_compilation< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > adopted_marker_for_compilation< / span > < span class = "plain-syntax" > , < / span > < a href = "2-emt.html#SP4" class = "function-link" > < span class = "function-syntax" > Emit::current_enclosure< / 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" > CompileValues::compiling_in_constant_mode< / span > < span class = "plain-syntax" > ()) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > inter_name< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > = < / span > < a href = "5-rsfk.html#SP6" class = "function-link" > < span class = "function-syntax" > RTKinds::new_block_constant_iname< / span > < / a > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > packaging_state< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > save< / span > < span class = "plain-syntax" > = < / span > < a href = "2-emt.html#SP3" class = "function-link" > < span class = "function-syntax" > Emit::named_late_array_begin< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K_value< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-emt.html#SP3" class = "function-link" > < span class = "function-syntax" > Emit::array_iname_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < a href = "2-hrr.html#SP4" class = "function-link" > < span class = "function-syntax" > Hierarchy::find< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > CONSTANT_PACKED_TEXT_STORAGE_HL< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < a href = "2-emt.html#SP3" class = "function-link" > < span class = "function-syntax" > Emit::array_iname_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > ts_routine_iname< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-emt.html#SP3" class = "function-link" > < span class = "function-syntax" > Emit::array_end< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > save< / 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" > N< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-emt.html#SP4" class = "function-link" > < span class = "function-syntax" > Emit::holster< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > VH< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > N< / 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" > inter_name< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > tin< / span > < span class = "plain-syntax" > = < / span > < a href = "4-ts.html#SP6" class = "function-link" > < span class = "function-syntax" > TextSubstitutions::text_substitution_iname< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts< / 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" > Holsters::data_acceptable< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > VH< / 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" > tin< / span > < span class = "plain-syntax" > ) < / span > < a href = "2-emt.html#SP4" class = "function-link" > < span class = "function-syntax" > Emit::holster< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > VH< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > tin< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-ts.html#SP7" > § 7< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP8" class = "paragraph-anchor" > < / a > < b > § 8. < / b > And the following clarifies problem messages arising from this point,
since it often confuses newcomers:
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > text_substitution< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > current_ts_being_compiled< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > it_is_not_worth_adding< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ; < / span > < span class = "comment-syntax" > To suppress the "It may be worth adding..."< / span >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > TextSubstitutions::is_it_worth_adding< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / 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" > it_is_not_worth_adding< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > TextSubstitutions::it_is_worth_adding< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > it_is_not_worth_adding< / 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" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > TextSubstitutions::it_is_not_worth_adding< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > it_is_not_worth_adding< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > TRUE< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP9" class = "paragraph-anchor" > < / a > < b > § 9. < / b > < / p >
< pre class = "definitions code-font" > < span class = "definition-keyword" > define< / span > < span class = "constant-syntax" > ENDING_MESSAGE_PROBLEMS_CALLBACK< / span > < span class = "plain-syntax" > < / span > < a href = "4-ts.html#SP9" class = "function-link" > < span class = "function-syntax" > TextSubstitutions::append_text_substitution_proviso< / span > < / a >
< / pre >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > TextSubstitutions::append_text_substitution_proviso< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / 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" > it_is_not_worth_adding< / 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" > if< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > compiling_text_routines_mode< / 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 = "reserved-syntax" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > current_ts_being_compiled< / span > < span class = "plain-syntax" > ) & & < / span >
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > current_ts_being_compiled< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > local_names_existed_at_usage_time< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Frames::log< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Frames::current_stack_frame< / span > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Problems::quote_wording< / span > < span class = "plain-syntax" > (9, < / span > < span class = "identifier-syntax" > current_ts_being_compiled< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > unsubstituted_text< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Problems::issue_problem_segment< / span > < span class = "plain-syntax" > (< / span >
< span class = "plain-syntax" > < / span > < span class = "string-syntax" > " %PIt may be worth adding that this problem arose in text "< / span >
< span class = "plain-syntax" > < / span > < span class = "string-syntax" > "which both contains substitutions and is also being used as "< / span >
< span class = "plain-syntax" > < / span > < span class = "string-syntax" > "a value - being put into a variable, or used as one of the "< / span >
< span class = "plain-syntax" > < / span > < span class = "string-syntax" > "ingredients in a phrase other than 'say'. Because that means "< / span >
< span class = "plain-syntax" > < / span > < span class = "string-syntax" > "it needs to be used in places outside its immediate context, "< / span >
< span class = "plain-syntax" > < / span > < span class = "string-syntax" > "it is not allowed to refer to any 'let' values or phrase "< / span >
< span class = "plain-syntax" > < / span > < span class = "string-syntax" > "options - those are temporary things, long gone by the time it "< / span >
< span class = "plain-syntax" > < / span > < span class = "string-syntax" > "would need to be printed."< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP10" class = "paragraph-anchor" > < / a > < b > § 10. < / b > So much for the cues. As with text literals in the previous section, it's
now time to redeem our promises and compile the < span class = "extract" > < span class = "extract-syntax" > TS_X< / span > < / span > routines. These routines
can't be produced all at once, and are sometimes not needed at all: the
responses mechanism makes this quite fiddly, and so do the existence of
other constructs in Inform which, when compiled, may make new text
substitutions. So compilation is handled by a coroutine. (I'm a
little old-fashioned in calling this a coroutine: it achieves its task in
instalments, effectively sharing time with other routines which in turn
add to its task, until everybody is done.)
< / p >
< p class = "commentary" > Basically, we compile as many text substitutions as we can out of those not
yet done, returning the number we compile.
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > TextSubstitutions::compilation_coroutine< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > return< / span > < span class = "plain-syntax" > < / span > < a href = "4-ts.html#SP10" class = "function-link" > < span class = "function-syntax" > TextSubstitutions::compile_as_needed< / span > < / a > < 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" > text_substitution< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > latest_ts_compiled< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > TextSubstitutions::compile_as_needed< / 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" > TextSubstitutions::compile_as_needed< / span > < / span > :< br / > < a href = "4-ts.html#SP12" > § 12< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > in_response_mode< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < a href = "4-rsp.html#SP5" class = "function-link" > < span class = "function-syntax" > Strings::compile_response_launchers< / span > < / a > < 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" > N< / 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" > compiling_text_routines_mode< / 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" > TRUE< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > text_substitution< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ts< / 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" > latest_ts_compiled< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > FIRST_OBJECT< / span > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > text_substitution< / 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" > ts< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NEXT_OBJECT< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > latest_ts_compiled< / span > < span class = "plain-syntax" > , < / span > < span class = "reserved-syntax" > text_substitution< / 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" > ts< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ) < / span > < span class = "reserved-syntax" > break< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > latest_ts_compiled< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > ts< / 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" > responding< / 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" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > responding_to_rule< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > responding< / 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" > if< / span > < span class = "plain-syntax" > ((< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > dont_need_after_all< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > responding< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > in_response_mode< / span > < span class = "plain-syntax" > ) & & < / span >
< span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > tr_done_already< / span > < span class = "plain-syntax" > == < / span > < span class = "identifier-syntax" > FALSE< / span > < span class = "plain-syntax" > )) {< / span >
< span class = "plain-syntax" > < / span > < a href = "4-ts.html#SP11" class = "function-link" > < span class = "function-syntax" > TextSubstitutions::compile_single_substitution< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > ++;< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > compiling_text_routines_mode< / 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" > return< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > N< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP11" class = "paragraph-anchor" > < / a > < b > § 11. < / b > We can now forget about the coroutine management, and just compile a single
text substitution. The main thing is to copy over references to local variables
from the stack frame creating this text substitution to the stack frame
compiling it.
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > TextSubstitutions::compile_single_substitution< / 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" > TextSubstitutions::compile_single_substitution< / span > < / span > :< br / > < a href = "4-ts.html#SP10" > § 10< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > text_substitution< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ts< / 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" > TEXT_SUBSTITUTIONS< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "Compiling text routine %d %08x %W\n"< / span > < span class = "plain-syntax" > ,< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > allocation_id< / span > < span class = "plain-syntax" > , (< / span > < span class = "reserved-syntax" > int< / span > < span class = "plain-syntax" > ) (< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parked_stack_frame< / span > < span class = "plain-syntax" > ), < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > unsubstituted_text< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > current_ts_being_compiled< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > tr_done_already< / 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" > packaging_state< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > save< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Functions::begin< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > ts_routine_iname< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > stack_frame< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > phsf< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > parked_stack_frame< / 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" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > responding_to_rule< / span > < span class = "plain-syntax" > ) & & (< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > responding_to_marker< / 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" > response_message< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > resp< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Rules::get_response< / span > < span class = "plain-syntax" > (< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > responding_to_rule< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > responding_to_marker< / 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" > resp< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > phsf< / span > < span class = "plain-syntax" > = < / span > < a href = "4-rsp.html#SP7" class = "function-link" > < span class = "function-syntax" > Strings::frame_for_response< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > resp< / 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" > phsf< / span > < span class = "plain-syntax" > ) < / span > < span class = "identifier-syntax" > LocalVariableSlates::append< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Frames::current_stack_frame< / span > < span class = "plain-syntax" > (), < / span > < span class = "identifier-syntax" > phsf< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LocalVariables::monitor_local_parsing< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Frames::current_stack_frame< / span > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "named-paragraph-container code-font" > < a href = "4-ts.html#SP11_1" class = "named-paragraph-link" > < span class = "named-paragraph" > Compile a say-phrase< / span > < span class = "named-paragraph-number" > 11.1< / span > < / a > < / 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" > makes_local_references< / span > < span class = "plain-syntax" > =< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LocalVariables::local_parsed_recently< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Frames::current_stack_frame< / 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" > makes_local_references< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::push_code_position< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > (), < / span > < span class = "identifier-syntax" > Produce::begin_position< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ()), < / span > < span class = "identifier-syntax" > Inter::Bookmarks::snapshot< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Packaging::at< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ())));< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > LocalParking::retrieve< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > phsf< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::pop_code_position< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Functions::end< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > save< / 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" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > ts_sb_needed< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > packaging_state< / span > < span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > save< / span > < span class = "plain-syntax" > = < / span > < a href = "2-emt.html#SP3" class = "function-link" > < span class = "function-syntax" > Emit::named_array_begin< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > ts_iname< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > K_value< / 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" > makes_local_references< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < a href = "2-emt.html#SP3" class = "function-link" > < span class = "function-syntax" > Emit::array_iname_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < a href = "2-hrr.html#SP4" class = "function-link" > < span class = "function-syntax" > Hierarchy::find< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > CONSTANT_PERISHABLE_TEXT_STORAGE_HL< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "reserved-syntax" > else< / span >
< span class = "plain-syntax" > < / span > < a href = "2-emt.html#SP3" class = "function-link" > < span class = "function-syntax" > Emit::array_iname_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < a href = "2-hrr.html#SP4" class = "function-link" > < span class = "function-syntax" > Hierarchy::find< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > CONSTANT_PACKED_TEXT_STORAGE_HL< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < a href = "2-emt.html#SP3" class = "function-link" > < span class = "function-syntax" > Emit::array_iname_entry< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > ts_routine_iname< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < a href = "2-emt.html#SP3" class = "function-link" > < span class = "function-syntax" > Emit::array_end< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > save< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > current_ts_being_compiled< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
< p class = "commentary firstcommentary" > < a id = "SP11_1" class = "paragraph-anchor" > < / a > < b > § 11.1. < / b > Of course, if we used Inform's standard phrase mechanism exactly, then
the whole thing would be circular, because that would once again generate
a request for a new text substitution to be compiled later...
< / p >
< p class = "commentary" > < span class = "named-paragraph-container code-font" > < span class = "named-paragraph-defn" > Compile a say-phrase< / span > < span class = "named-paragraph-number" > 11.1< / span > < / span > < span class = "comment-syntax" > =< / span >
< / 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" > TargetVMs::debug_enabled< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > Task::vm< / span > < span class = "plain-syntax" > ())) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::inv_primitive< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > (), < / span > < span class = "identifier-syntax" > IFDEBUG_BIP< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::down< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::code< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::down< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::inv_primitive< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < 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 > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::val_iname< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > (), < / span > < span class = "identifier-syntax" > K_number< / span > < span class = "plain-syntax" > , < / span > < a href = "2-hrr.html#SP4" class = "function-link" > < span class = "function-syntax" > Hierarchy::find< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "constant-syntax" > SUPPRESS_TEXT_SUBSTITUTION_HL< / span > < span class = "plain-syntax" > ));< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::code< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::down< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::inv_primitive< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < 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 > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < 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" > S< / 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" > S< / span > < span class = "plain-syntax" > , < / span > < span class = "string-syntax" > "%W"< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > unsubstituted_text< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::val_text< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > (), < / span > < span class = "identifier-syntax" > S< / 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" > S< / span > < span class = "plain-syntax" > )< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::up< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::rtrue< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::up< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::up< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::up< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Produce::up< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > }< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > parse_node< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > ts_code_block< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Node::new< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > IMPERATIVE_NT< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Node::set_unit< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts_code_block< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > belongs_to_module< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > compilation_unit< / span > < span class = "plain-syntax" > *< / span > < span class = "identifier-syntax" > cm< / span > < span class = "plain-syntax" > = < / span > < a href = "2-cu.html#SP6" class = "function-link" > < span class = "function-syntax" > CompilationUnits::current< / span > < / a > < span class = "plain-syntax" > ();< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cu.html#SP6" class = "function-link" > < span class = "function-syntax" > CompilationUnits::set_current_to< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > belongs_to_module< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > ts_code_block< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > next< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > Node::new< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > UNKNOWN_NT< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Node::set_text< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts_code_block< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > next< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > ts< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > unsubstituted_text< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > Annotations::write_int< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts_code_block< / span > < span class = "plain-syntax" > -> < / span > < span class = "identifier-syntax" > next< / span > < span class = "plain-syntax" > , < / span > < span class = "identifier-syntax" > from_text_substitution_ANNOT< / 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" > ImperativeSubtrees::accept< / span > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > ts_code_block< / span > < span class = "plain-syntax" > );< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > CompileBlocksAndLines::full_definition_body< / span > < span class = "plain-syntax" > (0, < / span > < span class = "identifier-syntax" > ts_code_block< / span > < span class = "plain-syntax" > -> < / span > < span class = "element-syntax" > down< / 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" > Produce::rtrue< / span > < span class = "plain-syntax" > (< / span > < a href = "2-emt.html#SP2" class = "function-link" > < span class = "function-syntax" > Emit::tree< / span > < / a > < span class = "plain-syntax" > ());< / span >
< span class = "plain-syntax" > < / span > < a href = "2-cu.html#SP6" class = "function-link" > < span class = "function-syntax" > CompilationUnits::set_current_to< / span > < / a > < span class = "plain-syntax" > (< / span > < span class = "identifier-syntax" > cm< / span > < span class = "plain-syntax" > );< / span >
< / pre >
< ul class = "endnotetexts" > < li > This code is used in < a href = "4-ts.html#SP11" > § 11< / a > .< / li > < / ul >
< p class = "commentary firstcommentary" > < a id = "SP12" class = "paragraph-anchor" > < / a > < b > § 12. < / b > See the "Responses" section for why, but we sometimes want to force
the coroutine to go through the whole queue once, then go back to the
start again — which would be very inefficient except that in this mode
we aren't doing very much; most TSs will be passed quickly over.
< / p >
< pre class = "displayed-code all-displayed-code code-font" >
< span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > < / span > < span class = "function-syntax" > TextSubstitutions::compile_text_routines_in_response_mode< / 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" > TextSubstitutions::compile_text_routines_in_response_mode< / span > < / span > :< br / > Responses - < a href = "4-rsp.html#SP6" > § 6< / a > < / span > < / button > < span class = "plain-syntax" > (< / span > < span class = "reserved-syntax" > void< / span > < span class = "plain-syntax" > ) {< / span >
< span class = "plain-syntax" > < / span > < span class = "identifier-syntax" > latest_ts_compiled< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > < / span > < a href = "4-ts.html#SP10" class = "function-link" > < span class = "function-syntax" > TextSubstitutions::compile_as_needed< / span > < / a > < 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" > latest_ts_compiled< / span > < span class = "plain-syntax" > = < / span > < span class = "identifier-syntax" > NULL< / span > < span class = "plain-syntax" > ;< / span >
< span class = "plain-syntax" > }< / span >
< / pre >
2020-05-03 03:01:21 +03:00
< nav role = "progress" > < div class = "progresscontainer" >
2021-04-11 23:41:26 +03:00
< ul class = "progressbar" > < li class = "progressprev" > < a href = "4-tl.html" > ❮ < / a > < / li > < li class = "progresschapter" > < a href = "P-wtmd.html" > P< / a > < / li > < li class = "progresschapter" > < a href = "1-rm.html" > 1< / a > < / li > < li class = "progresschapter" > < a href = "2-hrr.html" > 2< / a > < / li > < li class = "progresschapter" > < a href = "3-fc.html" > 3< / a > < / li > < li class = "progresscurrentchapter" > 4< / li > < li class = "progresssection" > < a href = "4-lpart.html" > lpart< / a > < / li > < li class = "progresssection" > < a href = "4-tl.html" > tl< / a > < / li > < li class = "progresscurrent" > ts< / li > < li class = "progresssection" > < a href = "4-rsp.html" > rsp< / a > < / li > < li class = "progresssection" > < a href = "4-ct.html" > ct< / a > < / li > < li class = "progresssection" > < a href = "4-cl.html" > cl< / a > < / li > < li class = "progresschapter" > < a href = "5-rsfk.html" > 5< / a > < / li > < li class = "progresschapter" > < a href = "6-nmn.html" > 6< / a > < / li > < li class = "progresschapter" > < a href = "7-act.html" > 7< / a > < / li > < li class = "progresschapter" > < a href = "8-prs.html" > 8< / a > < / li > < li class = "progresschapter" > < a href = "9-fgr.html" > 9< / a > < / li > < li class = "progresschapter" > < a href = "10-sc.html" > 10< / a > < / li > < li class = "progressnext" > < a href = "4-rsp.html" > ❯ < / a > < / li > < / ul > < / div >
2020-05-03 03:01:21 +03:00
< / nav > <!-- End of weave -->
2019-03-17 14:40:57 +02:00
2020-03-19 02:11:25 +02:00
< / main >
2019-03-17 14:40:57 +02:00
< / body >
< / html >