ifhub/inform7
1
0
Fork 0
mirror of https://github.com/ganelson/inform.git synced 2024-07-08 18:14:21 +03:00
Code Issues Projects Releases Wiki Activity
inform7/docs/inter-module/3-dfn.html
Graham Nelson 23bc2e2dcf Finally solved template assimilation
2019-09-07 20:43:31 +01:00

410 lines
78 KiB
HTML
Raw Blame History

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>3/ca</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta http-equiv="Content-Language" content="en-gb">
<link href="inweb.css" rel="stylesheet" rev="stylesheet" type="text/css">
</head>
<body>
<!--Weave of '3/dfn' generated by 7-->
<ul class="crumbs"><li><a href="../webs.html">&#9733;</a></li><li><a href="index.html">inter</a></li><li><a href="index.html#3">Chapter 3: Language Definition</a></li><li><b>Definition</b></li></ul><p class="purpose">Defining the Inter format.</p>
<p class="inwebparagraph"><a id="SP1"></a><b>&#167;1. </b></p>
<pre class="definitions">
<span class="definitionkeyword">define</span> <span class="constant">MAX_INTER_CONSTRUCTS</span><span class="plain"> 100</span>
</pre>
<pre class="display">
<span class="reserved">typedef</span><span class="plain"> </span><span class="reserved">struct</span><span class="plain"> </span><span class="reserved">inter_line_parse</span><span class="plain"> {</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">line</span><span class="plain">;</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">match_results</span><span class="plain"> </span><span class="identifier">mr</span><span class="plain">;</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">inter_annotation_set</span><span class="plain"> </span><span class="identifier">set</span><span class="plain">;</span>
<span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">terminal_comment</span><span class="plain">;</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">indent_level</span><span class="plain">;</span>
<span class="plain">} </span><span class="reserved">inter_line_parse</span><span class="plain">;</span>
<span class="reserved">typedef</span><span class="plain"> </span><span class="reserved">struct</span><span class="plain"> </span><span class="reserved">inter_construct</span><span class="plain"> {</span>
<span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">construct_ID</span><span class="plain">;</span>
<span class="identifier">wchar_t</span><span class="plain"> *</span><span class="identifier">construct_syntax</span><span class="plain">;</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">min_level</span><span class="plain">;</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">max_level</span><span class="plain">;</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">usage_permissions</span><span class="plain">;</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">singular_name</span><span class="plain">;</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">plural_name</span><span class="plain">;</span>
<span class="identifier">METHOD_CALLS</span>
<span class="identifier">MEMORY_MANAGEMENT</span>
<span class="plain">} </span><span class="reserved">inter_construct</span><span class="plain">;</span>
<span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC_lookup</span><span class="plain">[</span><span class="constant">MAX_INTER_CONSTRUCTS</span><span class="plain">];</span>
<span class="reserved">inter_construct</span><span class="plain"> *</span><span class="functiontext">Inter::Defn::create_construct</span><span class="plain">(</span><span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">ID</span><span class="plain">, </span><span class="identifier">wchar_t</span><span class="plain"> *</span><span class="identifier">syntax</span><span class="plain">,</span>
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">sing</span><span class="plain">,</span>
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">plur</span><span class="plain">) {</span>
<span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC</span><span class="plain"> = </span><span class="identifier">CREATE</span><span class="plain">(</span><span class="reserved">inter_construct</span><span class="plain">);</span>
<span class="identifier">ENABLE_METHOD_CALLS</span><span class="plain">(</span><span class="identifier">IC</span><span class="plain">);</span>
<span class="identifier">IC</span><span class="plain">-</span><span class="element">&gt;construct_ID</span><span class="plain"> = </span><span class="identifier">ID</span><span class="plain">;</span>
<span class="identifier">IC</span><span class="plain">-</span><span class="element">&gt;construct_syntax</span><span class="plain"> = </span><span class="identifier">syntax</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">ID</span><span class="plain"> &gt;= </span><span class="constant">MAX_INTER_CONSTRUCTS</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"too many constructs"</span><span class="plain">);</span>
<span class="identifier">IC</span><span class="plain">-</span><span class="element">&gt;min_level</span><span class="plain"> = 0;</span>
<span class="identifier">IC</span><span class="plain">-</span><span class="element">&gt;max_level</span><span class="plain"> = 0;</span>
<span class="identifier">IC_lookup</span><span class="plain">[</span><span class="identifier">ID</span><span class="plain">] = </span><span class="identifier">IC</span><span class="plain">;</span>
<span class="identifier">IC</span><span class="plain">-</span><span class="element">&gt;usage_permissions</span><span class="plain"> = </span><span class="constant">INSIDE_PLAIN_PACKAGE</span><span class="plain">;</span>
<span class="identifier">IC</span><span class="plain">-</span><span class="element">&gt;singular_name</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">sing</span><span class="plain">);</span>
<span class="identifier">IC</span><span class="plain">-</span><span class="element">&gt;plural_name</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">plur</span><span class="plain">);</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">IC</span><span class="plain">;</span>
<span class="plain">}</span>
</pre>
<p class="inwebparagraph"></p>
<p class="endnote">The function Inter::Defn::create_construct is used in <a href="#SP3">&#167;3</a>, 4/tnc (<a href="4-tnc.html#SP1">&#167;1</a>), 4/tcc (<a href="4-tcc.html#SP1">&#167;1</a>), 4/tmc (<a href="4-tmc.html#SP1">&#167;1</a>), 4/tsc (<a href="4-tsc.html#SP1">&#167;1</a>), 4/tvc (<a href="4-tvc.html#SP1">&#167;1</a>), 4/tpc (<a href="4-tpc.html#SP1">&#167;1</a>), 4/tlc (<a href="4-tlc.html#SP1">&#167;1</a>), 4/tac (<a href="4-tac.html#SP1">&#167;1</a>), 4/tpc2 (<a href="4-tpc2.html#SP1">&#167;1</a>), 4/tpc3 (<a href="4-tpc3.html#SP1">&#167;1</a>), 4/tkc (<a href="4-tkc.html#SP1">&#167;1</a>), 4/tdc (<a href="4-tdc.html#SP1">&#167;1</a>), 4/tvc2 (<a href="4-tvc2.html#SP1">&#167;1</a>), 4/tcc2 (<a href="4-tcc2.html#SP1">&#167;1</a>), 4/trc (<a href="4-trc.html#SP1">&#167;1</a>), 4/tic (<a href="4-tic.html#SP1">&#167;1</a>), 4/tpc4 (<a href="4-tpc4.html#SP1">&#167;1</a>), 4/tpc5 (<a href="4-tpc5.html#SP1">&#167;1</a>), 4/tpc6 (<a href="4-tpc6.html#SP1">&#167;1</a>), 4/tpc7 (<a href="4-tpc7.html#SP1">&#167;1</a>), 5/tlc (<a href="5-tlc.html#SP1">&#167;1</a>), 5/tlc2 (<a href="5-tlc2.html#SP1">&#167;1</a>), 5/tic (<a href="5-tic.html#SP1">&#167;1</a>), 5/trc (<a href="5-trc.html#SP1">&#167;1</a>), 5/tvc (<a href="5-tvc.html#SP1">&#167;1</a>), 5/tlc3 (<a href="5-tlc3.html#SP1">&#167;1</a>), 5/tcc (<a href="5-tcc.html#SP1">&#167;1</a>), 5/tec (<a href="5-tec.html#SP1">&#167;1</a>), 5/trc2 (<a href="5-trc2.html#SP1">&#167;1</a>), 5/tcc2 (<a href="5-tcc2.html#SP1">&#167;1</a>), 5/tsc (<a href="5-tsc.html#SP1">&#167;1</a>).</p>
<p class="endnote">The structure inter_line_parse is accessed in 4/tcc, 4/tmc, 4/tsc, 4/tvc, 4/tpc, 4/tlc, 4/tac, 4/tpc2, 4/tpc3, 4/tkc, 4/tdc, 4/tvc2, 4/tcc2, 4/trc, 4/tic, 4/tpc4, 4/tpc5, 4/tpc6, 4/tpc7, 5/tlc, 5/tlc2, 5/tic, 5/trc, 5/tvc, 5/tlc3, 5/tcc, 5/tec, 5/trc2, 5/tcc2, 5/tsc and here.</p>
<p class="endnote">The structure inter_construct is accessed in 4/tnc, 4/tcc, 4/tsc, 4/tvc, 4/tpc, 4/tpc2, 4/tpc3, 4/tpc7, 5/tlc, 5/tlc2, 5/tic, 5/trc, 5/tvc, 5/tlc3, 5/tcc, 5/tec, 5/trc2, 5/tcc2, 5/tsc and here.</p>
<p class="inwebparagraph"><a id="SP2"></a><b>&#167;2. </b></p>
<pre class="definitions">
<span class="definitionkeyword">enum</span> <span class="constant">CONSTRUCT_READ_MTID</span>
<span class="definitionkeyword">enum</span> <span class="constant">CONSTRUCT_TRANSPOSE_MTID</span>
<span class="definitionkeyword">enum</span> <span class="constant">CONSTRUCT_VERIFY_MTID</span>
<span class="definitionkeyword">enum</span> <span class="constant">CONSTRUCT_WRITE_MTID</span>
<span class="definitionkeyword">enum</span> <span class="constant">VERIFY_INTER_CHILDREN_MTID</span>
</pre>
<pre class="display">
<span class="identifier">VMETHOD_TYPE</span><span class="plain">(</span><span class="constant">CONSTRUCT_READ_MTID</span><span class="plain">, </span><span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC</span><span class="plain">, </span><span class="reserved">inter_bookmark</span><span class="plain"> *, </span><span class="reserved">inter_line_parse</span><span class="plain"> *, </span><span class="reserved">inter_error_location</span><span class="plain"> *, </span><span class="reserved">inter_error_message</span><span class="plain"> **</span><span class="identifier">E</span><span class="plain">)</span>
<span class="identifier">VMETHOD_TYPE</span><span class="plain">(</span><span class="constant">CONSTRUCT_TRANSPOSE_MTID</span><span class="plain">, </span><span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC</span><span class="plain">, </span><span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">, </span><span class="constant">inter_t</span><span class="plain"> *</span><span class="identifier">grid</span><span class="plain">, </span><span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">max</span><span class="plain">, </span><span class="reserved">inter_error_message</span><span class="plain"> **</span><span class="identifier">E</span><span class="plain">)</span>
<span class="identifier">VMETHOD_TYPE</span><span class="plain">(</span><span class="constant">CONSTRUCT_VERIFY_MTID</span><span class="plain">, </span><span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC</span><span class="plain">, </span><span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">, </span><span class="reserved">inter_package</span><span class="plain"> *</span><span class="identifier">owner</span><span class="plain">, </span><span class="reserved">inter_error_message</span><span class="plain"> **</span><span class="identifier">E</span><span class="plain">)</span>
<span class="identifier">VMETHOD_TYPE</span><span class="plain">(</span><span class="constant">CONSTRUCT_WRITE_MTID</span><span class="plain">, </span><span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">OUT</span><span class="plain">, </span><span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">, </span><span class="reserved">inter_error_message</span><span class="plain"> **</span><span class="identifier">E</span><span class="plain">)</span>
<span class="identifier">VMETHOD_TYPE</span><span class="plain">(</span><span class="constant">VERIFY_INTER_CHILDREN_MTID</span><span class="plain">, </span><span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC</span><span class="plain">, </span><span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">, </span><span class="reserved">inter_error_message</span><span class="plain"> **</span><span class="identifier">E</span><span class="plain">)</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP3"></a><b>&#167;3. </b></p>
<pre class="definitions">
<span class="definitionkeyword">enum</span> <span class="constant">INVALID_IST</span><span class="definitionkeyword"> from </span><span class="constant">0</span>
<span class="definitionkeyword">define</span> <span class="constant">ID_IFLD</span><span class="plain"> 0</span>
<span class="definitionkeyword">define</span> <span class="constant">LEVEL_IFLD</span><span class="plain"> 1</span>
<span class="definitionkeyword">define</span> <span class="constant">DATA_IFLD</span><span class="plain"> 2</span>
</pre>
<pre class="display">
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Inter::Defn::create_language</span><span class="plain">(</span><span class="reserved">void</span><span class="plain">) {</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">=0; </span><span class="identifier">i</span><span class="plain">&lt;</span><span class="constant">MAX_INTER_CONSTRUCTS</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">++) </span><span class="identifier">IC_lookup</span><span class="plain">[</span><span class="identifier">i</span><span class="plain">] = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="functiontext">Inter::Defn::create_construct</span><span class="plain">(</span><span class="constant">INVALID_IST</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"nothing"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"nothings"</span><span class="plain">);</span>
<span class="functiontext">Inter::Canon::declare</span><span class="plain">();</span>
<span class="functiontext">Inter::Nop::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Comment::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Symbol::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Version::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Pragma::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Link::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Append::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Kind::define</span><span class="plain">();</span>
<span class="functiontext">Inter::DefaultValue::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Constant::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Metadata::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Response::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Instance::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Variable::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Property::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Permission::define</span><span class="plain">();</span>
<span class="functiontext">Inter::PropertyValue::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Primitive::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Package::define</span><span class="plain">();</span>
<span class="functiontext">Inter::PackageType::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Label::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Local::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Inv::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Ref::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Val::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Lab::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Code::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Evaluation::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Reference::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Cast::define</span><span class="plain">();</span>
<span class="functiontext">Inter::Splat::define</span><span class="plain">();</span>
<span class="plain">}</span>
<span class="reserved">inter_annotation</span><span class="plain"> </span><span class="functiontext">Inter::Defn::read_annotation</span><span class="plain">(</span><span class="reserved">inter_tree</span><span class="plain"> *</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">keyword</span><span class="plain">, </span><span class="reserved">inter_error_location</span><span class="plain"> *</span><span class="identifier">eloc</span><span class="plain">, </span><span class="reserved">inter_error_message</span><span class="plain"> **</span><span class="identifier">E</span><span class="plain">) {</span>
<span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">val</span><span class="plain"> = 0;</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">textual</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">;</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="identifier">LOOP_THROUGH_TEXT</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">keyword</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::get</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">) == </span><span class="character">'='</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::get</span><span class="plain">(</span><span class="identifier">Str::forward</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">)) == </span><span class="character">'"'</span><span class="plain">) {</span>
<span class="identifier">TEMPORARY_TEXT</span><span class="plain">(</span><span class="identifier">parsed_text</span><span class="plain">);</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="identifier">EP</span><span class="plain"> =</span>
<span class="functiontext">Inter::Constant::parse_text</span><span class="plain">(</span><span class="identifier">parsed_text</span><span class="plain">, </span><span class="identifier">keyword</span><span class="plain">, </span><span class="identifier">P</span><span class="element">.index</span><span class="plain">+2, </span><span class="identifier">Str::len</span><span class="plain">(</span><span class="identifier">keyword</span><span class="plain">)-2, </span><span class="identifier">NULL</span><span class="plain">);</span>
<span class="reserved">inter_warehouse</span><span class="plain"> *</span><span class="identifier">warehouse</span><span class="plain"> = </span><span class="functiontext">Inter::Tree::warehouse</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
<span class="identifier">val</span><span class="plain"> = </span><span class="functiontext">Inter::Warehouse::create_text</span><span class="plain">(</span><span class="identifier">warehouse</span><span class="plain">, </span><span class="functiontext">Inter::Tree::root_package</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">));</span>
<span class="identifier">Str::copy</span><span class="plain">(</span><span class="functiontext">Inter::Warehouse::get_text</span><span class="plain">(</span><span class="identifier">warehouse</span><span class="plain">, </span><span class="identifier">val</span><span class="plain">), </span><span class="identifier">parsed_text</span><span class="plain">);</span>
<span class="identifier">DISCARD_TEXT</span><span class="plain">(</span><span class="identifier">parsed_text</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">EP</span><span class="plain">) *</span><span class="identifier">E</span><span class="plain"> = </span><span class="identifier">EP</span><span class="plain">;</span>
<span class="identifier">textual</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="identifier">val</span><span class="plain"> = (</span><span class="constant">inter_t</span><span class="plain">) </span><span class="identifier">Str::atoi</span><span class="plain">(</span><span class="identifier">keyword</span><span class="plain">, </span><span class="identifier">P</span><span class="element">.index</span><span class="plain"> + 1);</span>
<span class="identifier">textual</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="identifier">Str::truncate</span><span class="plain">(</span><span class="identifier">keyword</span><span class="plain">, </span><span class="identifier">P</span><span class="element">.index</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">inter_annotation_form</span><span class="plain"> *</span><span class="identifier">IAF</span><span class="plain">;</span>
<span class="identifier">LOOP_OVER</span><span class="plain">(</span><span class="identifier">IAF</span><span class="plain">, </span><span class="reserved">inter_annotation_form</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">keyword</span><span class="plain">, </span><span class="identifier">IAF</span><span class="plain">-</span><span class="element">&gt;annotation_keyword</span><span class="plain">)) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">IAF</span><span class="plain">-</span><span class="element">&gt;textual_flag</span><span class="plain"> != </span><span class="identifier">textual</span><span class="plain">) *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext">Inter::Errors::plain</span><span class="plain">(</span><span class="identifier">I</span><span class="string">"bad type for =value"</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">);</span>
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Inter::Annotations::value_annotation</span><span class="plain">(</span><span class="identifier">IAF</span><span class="plain">, </span><span class="identifier">val</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext">Inter::Errors::plain</span><span class="plain">(</span><span class="identifier">I</span><span class="string">"unrecognised annotation"</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">);</span>
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Inter::Annotations::invalid_annotation</span><span class="plain">();</span>
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Inter::Defn::write_annotation</span><span class="plain">(</span><span class="identifier">OUTPUT_STREAM</span><span class="plain">, </span><span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">F</span><span class="plain">, </span><span class="reserved">inter_annotation</span><span class="plain"> </span><span class="identifier">IA</span><span class="plain">) {</span>
<span class="identifier">WRITE</span><span class="plain">(</span><span class="string">" %S"</span><span class="plain">, </span><span class="identifier">IA</span><span class="element">.annot</span><span class="plain">-</span><span class="element">&gt;annotation_keyword</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">IA</span><span class="element">.annot_value</span><span class="plain"> != 0) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">IA</span><span class="element">.annot</span><span class="plain">-</span><span class="element">&gt;textual_flag</span><span class="plain">) {</span>
<span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"=\</span><span class="plain">"</span><span class="string">"</span><span class="plain">);</span>
<span class="functiontext">Inter::Constant::write_text</span><span class="plain">(</span><span class="identifier">OUT</span><span class="plain">, </span><span class="functiontext">Inter::Node::ID_to_text</span><span class="plain">(</span><span class="identifier">F</span><span class="plain">, </span><span class="identifier">IA</span><span class="element">.annot_value</span><span class="plain">));</span>
<span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"\</span><span class="plain">"</span><span class="string">"</span><span class="plain">);</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"=%d"</span><span class="plain">, </span><span class="identifier">IA</span><span class="element">.annot_value</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Inter::Defn::transpose_annotation</span><span class="plain">(</span><span class="reserved">inter_annotation</span><span class="plain"> *</span><span class="identifier">IA</span><span class="plain">, </span><span class="constant">inter_t</span><span class="plain"> *</span><span class="identifier">grid</span><span class="plain">, </span><span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">grid_extent</span><span class="plain">, </span><span class="reserved">inter_error_message</span><span class="plain"> **</span><span class="identifier">E</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">IA</span><span class="plain">-</span><span class="element">&gt;annot</span><span class="plain">-</span><span class="element">&gt;textual_flag</span><span class="plain">)</span>
<span class="identifier">IA</span><span class="plain">-</span><span class="element">&gt;annot_value</span><span class="plain"> = </span><span class="identifier">grid</span><span class="plain">[</span><span class="identifier">IA</span><span class="plain">-</span><span class="element">&gt;annot_value</span><span class="plain">];</span>
<span class="plain">}</span>
</pre>
<p class="inwebparagraph"></p>
<p class="endnote">The function Inter::Defn::create_language is used in 1/im (<a href="1-im.html#SP3">&#167;3</a>).</p>
<p class="endnote">The function Inter::Defn::read_annotation is used in <a href="#SP4">&#167;4</a>.</p>
<p class="endnote">The function Inter::Defn::write_annotation is used in 2/ann (<a href="2-ann.html#SP2">&#167;2</a>).</p>
<p class="endnote">The function Inter::Defn::transpose_annotation is used in 2/ann (<a href="2-ann.html#SP2">&#167;2</a>), 3/iibf (<a href="3-iibf.html#SP1_4_2">&#167;1.4.2</a>).</p>
<p class="inwebparagraph"><a id="SP4"></a><b>&#167;4. </b></p>
<pre class="definitions">
<span class="definitionkeyword">define</span> <span class="constant">OUTSIDE_OF_PACKAGES</span><span class="plain"> 1</span>
<span class="definitionkeyword">define</span> <span class="constant">INSIDE_PLAIN_PACKAGE</span><span class="plain"> 2</span>
<span class="definitionkeyword">define</span> <span class="constant">INSIDE_CODE_PACKAGE</span><span class="plain"> 4</span>
<span class="definitionkeyword">define</span> <span class="constant">CAN_HAVE_CHILDREN</span><span class="plain"> 8</span>
</pre>
<pre class="display">
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="functiontext">Inter::Defn::verify_construct</span><span class="plain">(</span><span class="reserved">inter_package</span><span class="plain"> *</span><span class="identifier">owner</span><span class="plain">, </span><span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">) {</span>
<span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext">Inter::Defn::get_construct</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, &amp;</span><span class="identifier">IC</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">E</span><span class="plain">;</span>
<span class="identifier">VMETHOD_CALL</span><span class="plain">(</span><span class="identifier">IC</span><span class="plain">, </span><span class="constant">CONSTRUCT_VERIFY_MTID</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">owner</span><span class="plain">, &amp;</span><span class="identifier">E</span><span class="plain">);</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">E</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="functiontext">Inter::Defn::transpose_construct</span><span class="plain">(</span><span class="reserved">inter_package</span><span class="plain"> *</span><span class="identifier">owner</span><span class="plain">, </span><span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">, </span><span class="constant">inter_t</span><span class="plain"> *</span><span class="identifier">grid</span><span class="plain">, </span><span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">max</span><span class="plain">) {</span>
<span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext">Inter::Defn::get_construct</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, &amp;</span><span class="identifier">IC</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">E</span><span class="plain">;</span>
<span class="identifier">VMETHOD_CALL</span><span class="plain">(</span><span class="identifier">IC</span><span class="plain">, </span><span class="constant">CONSTRUCT_TRANSPOSE_MTID</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">grid</span><span class="plain">, </span><span class="identifier">max</span><span class="plain">, &amp;</span><span class="identifier">E</span><span class="plain">);</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">E</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="functiontext">Inter::Defn::get_construct</span><span class="plain">(</span><span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">, </span><span class="reserved">inter_construct</span><span class="plain"> **</span><span class="identifier">to</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Inter::Node::error</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"invalid frame"</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">P</span><span class="plain">-</span><span class="element">&gt;W.data</span><span class="plain">[</span><span class="constant">ID_IFLD</span><span class="plain">] == </span><span class="constant">INVALID_IST</span><span class="plain">) || (</span><span class="identifier">P</span><span class="plain">-</span><span class="element">&gt;W.data</span><span class="plain">[</span><span class="constant">ID_IFLD</span><span class="plain">] &gt;= </span><span class="constant">MAX_INTER_CONSTRUCTS</span><span class="plain">))</span>
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Inter::Node::error</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"no such construct"</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">);</span>
<span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC</span><span class="plain"> = </span><span class="identifier">IC_lookup</span><span class="plain">[</span><span class="identifier">P</span><span class="plain">-</span><span class="element">&gt;W.data</span><span class="plain">[</span><span class="constant">ID_IFLD</span><span class="plain">]];</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">IC</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Inter::Node::error</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"bad construct"</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">to</span><span class="plain">) *</span><span class="identifier">to</span><span class="plain"> = </span><span class="identifier">IC</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="functiontext">Inter::Defn::write_construct_text</span><span class="plain">(</span><span class="identifier">OUTPUT_STREAM</span><span class="plain">, </span><span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-</span><span class="element">&gt;W.data</span><span class="plain">[</span><span class="constant">ID_IFLD</span><span class="plain">] == </span><span class="constant">NOP_IST</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Inter::Defn::write_construct_text_allowing_nop</span><span class="plain">(</span><span class="identifier">OUT</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="functiontext">Inter::Defn::write_construct_text_allowing_nop</span><span class="plain">(</span><span class="identifier">OUTPUT_STREAM</span><span class="plain">, </span><span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">) {</span>
<span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext">Inter::Defn::get_construct</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, &amp;</span><span class="identifier">IC</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">E</span><span class="plain">;</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">L</span><span class="plain">=0; </span><span class="identifier">L</span><span class="plain">&lt;</span><span class="identifier">P</span><span class="plain">-</span><span class="element">&gt;W.data</span><span class="plain">[</span><span class="constant">LEVEL_IFLD</span><span class="plain">]; </span><span class="identifier">L</span><span class="plain">++) </span><span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"\</span><span class="plain">t</span><span class="string">"</span><span class="plain">);</span>
<span class="identifier">VMETHOD_CALL</span><span class="plain">(</span><span class="identifier">IC</span><span class="plain">, </span><span class="constant">CONSTRUCT_WRITE_MTID</span><span class="plain">, </span><span class="identifier">OUT</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, &amp;</span><span class="identifier">E</span><span class="plain">);</span>
<span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">ID</span><span class="plain"> = </span><span class="functiontext">Inter::Node::get_comment</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">ID</span><span class="plain"> != 0) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-</span><span class="element">&gt;W.data</span><span class="plain">[</span><span class="constant">ID_IFLD</span><span class="plain">] != </span><span class="constant">COMMENT_IST</span><span class="plain">) </span><span class="identifier">WRITE</span><span class="plain">(</span><span class="string">" "</span><span class="plain">);</span>
<span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"# %S"</span><span class="plain">, </span><span class="functiontext">Inter::Node::ID_to_text</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">ID</span><span class="plain">));</span>
<span class="plain">}</span>
<span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"\</span><span class="plain">n</span><span class="string">"</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-</span><span class="element">&gt;W.data</span><span class="plain">[</span><span class="constant">ID_IFLD</span><span class="plain">] == </span><span class="constant">PACKAGE_IST</span><span class="plain">) </span><span class="functiontext">Inter::Package::write_symbols</span><span class="plain">(</span><span class="identifier">OUT</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">);</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">E</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">inter_package</span><span class="plain"> *</span><span class="identifier">latest_block_package</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="functiontext">Inter::Defn::read_construct_text</span><span class="plain">(</span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">line</span><span class="plain">, </span><span class="reserved">inter_error_location</span><span class="plain"> *</span><span class="identifier">eloc</span><span class="plain">, </span><span class="reserved">inter_bookmark</span><span class="plain"> *</span><span class="identifier">IBM</span><span class="plain">) {</span>
<span class="reserved">inter_line_parse</span><span class="plain"> </span><span class="identifier">ilp</span><span class="plain">;</span>
<span class="identifier">ilp</span><span class="element">.line</span><span class="plain"> = </span><span class="identifier">line</span><span class="plain">;</span>
<span class="identifier">ilp</span><span class="element">.mr</span><span class="plain"> = </span><span class="identifier">Regexp::create_mr</span><span class="plain">();</span>
<span class="identifier">ilp</span><span class="element">.terminal_comment</span><span class="plain"> = 0;</span>
<span class="identifier">ilp</span><span class="element">.set</span><span class="plain"> = </span><span class="functiontext">Inter::Annotations::new_set</span><span class="plain">();</span>
<span class="identifier">ilp</span><span class="element">.indent_level</span><span class="plain"> = 0;</span>
<span class="identifier">LOOP_THROUGH_TEXT</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">ilp</span><span class="element">.line</span><span class="plain">) {</span>
<span class="identifier">wchar_t</span><span class="plain"> </span><span class="identifier">c</span><span class="plain"> = </span><span class="identifier">Str::get</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">c</span><span class="plain"> == </span><span class="character">'\</span><span class="plain">t</span><span class="character">'</span><span class="plain">) </span><span class="identifier">ilp</span><span class="element">.indent_level</span><span class="plain">++;</span>
<span class="reserved">else</span><span class="plain"> </span><span class="reserved">if</span><span class="plain"> (</span><span class="identifier">c</span><span class="plain"> == </span><span class="character">' '</span><span class="plain">)</span>
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Inter::Errors::plain</span><span class="plain">(</span><span class="identifier">I</span><span class="string">"spaces (rather than tabs) at the beginning of this line"</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">);</span>
<span class="reserved">else</span><span class="plain"> </span><span class="reserved">break</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">quoted</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">, </span><span class="identifier">literal</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">;</span>
<span class="identifier">LOOP_THROUGH_TEXT</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">ilp</span><span class="element">.line</span><span class="plain">) {</span>
<span class="identifier">wchar_t</span><span class="plain"> </span><span class="identifier">c</span><span class="plain"> = </span><span class="identifier">Str::get</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">literal</span><span class="plain"> == </span><span class="identifier">FALSE</span><span class="plain">) &amp;&amp; (</span><span class="identifier">c</span><span class="plain"> == </span><span class="character">'"'</span><span class="plain">)) </span><span class="identifier">quoted</span><span class="plain"> = (</span><span class="identifier">quoted</span><span class="plain">)?</span><span class="identifier">FALSE</span><span class="plain">:</span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="identifier">literal</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">c</span><span class="plain"> == </span><span class="character">'\</span><span class="plain">\</span><span class="character">'</span><span class="plain">) </span><span class="identifier">literal</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">c</span><span class="plain"> == </span><span class="character">'#'</span><span class="plain">) &amp;&amp; ((</span><span class="identifier">P</span><span class="element">.index</span><span class="plain"> == 0) || (</span><span class="identifier">Str::get_at</span><span class="plain">(</span><span class="identifier">ilp</span><span class="element">.line</span><span class="plain">, </span><span class="identifier">P</span><span class="element">.index</span><span class="plain">-1) != </span><span class="character">'#'</span><span class="plain">)) &amp;&amp; (</span><span class="identifier">Str::get_at</span><span class="plain">(</span><span class="identifier">ilp</span><span class="element">.line</span><span class="plain">, </span><span class="identifier">P</span><span class="element">.index</span><span class="plain">+1) != </span><span class="character">'#'</span><span class="plain">) &amp;&amp; (</span><span class="identifier">quoted</span><span class="plain"> == </span><span class="identifier">FALSE</span><span class="plain">)) {</span>
<span class="identifier">ilp</span><span class="element">.terminal_comment</span><span class="plain"> = </span><span class="functiontext">Inter::Warehouse::create_text</span><span class="plain">(</span><span class="functiontext">Inter::Bookmarks::warehouse</span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="functiontext">Inter::Bookmarks::package</span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">));</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">Str::index</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">);</span>
<span class="identifier">P</span><span class="plain"> = </span><span class="identifier">Str::forward</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">);</span>
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">Str::get</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">) == </span><span class="character">' '</span><span class="plain">) </span><span class="identifier">P</span><span class="plain"> = </span><span class="identifier">Str::forward</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">);</span>
<span class="identifier">Str::substr</span><span class="plain">(</span><span class="functiontext">Inter::Warehouse::get_text</span><span class="plain">(</span><span class="functiontext">Inter::Bookmarks::warehouse</span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="identifier">ilp</span><span class="element">.terminal_comment</span><span class="plain">), </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">Str::end</span><span class="plain">(</span><span class="identifier">ilp</span><span class="element">.line</span><span class="plain">));</span>
<span class="identifier">Str::truncate</span><span class="plain">(</span><span class="identifier">ilp</span><span class="element">.line</span><span class="plain">, </span><span class="identifier">at</span><span class="plain">);</span>
<span class="reserved">break</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="identifier">Str::trim_white_space</span><span class="plain">(</span><span class="identifier">ilp</span><span class="element">.line</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">ilp</span><span class="element">.indent_level</span><span class="plain"> == 0) </span><span class="identifier">latest_block_package</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">while</span><span class="plain"> ((</span><span class="functiontext">Inter::Bookmarks::package</span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">)) &amp;&amp; (</span><span class="functiontext">Inter::Packages::is_rootlike</span><span class="plain">(</span><span class="functiontext">Inter::Bookmarks::package</span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">)) == </span><span class="identifier">FALSE</span><span class="plain">) &amp;&amp; (</span><span class="identifier">ilp</span><span class="element">.indent_level</span><span class="plain"> &lt;= </span><span class="functiontext">Inter::Bookmarks::baseline</span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">))) {</span>
<span class="functiontext">Inter::Bookmarks::set_current_package</span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="functiontext">Inter::Packages::parent</span><span class="plain">(</span><span class="functiontext">Inter::Bookmarks::package</span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">)));</span>
<span class="plain">}</span>
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">Regexp::match</span><span class="plain">(&amp;</span><span class="identifier">ilp</span><span class="element">.mr</span><span class="plain">, </span><span class="identifier">ilp</span><span class="element">.line</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"(%c+) (__%c+) *"</span><span class="plain">)) {</span>
<span class="identifier">Str::copy</span><span class="plain">(</span><span class="identifier">ilp</span><span class="element">.line</span><span class="plain">, </span><span class="identifier">ilp</span><span class="element">.mr</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0]);</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="identifier">E</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">inter_annotation</span><span class="plain"> </span><span class="identifier">IA</span><span class="plain"> = </span><span class="functiontext">Inter::Defn::read_annotation</span><span class="plain">(</span><span class="functiontext">Inter::Bookmarks::tree</span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="identifier">ilp</span><span class="element">.mr</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[1], </span><span class="identifier">eloc</span><span class="plain">, &amp;</span><span class="identifier">E</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">E</span><span class="plain">;</span>
<span class="functiontext">Inter::Annotations::add_to_set</span><span class="plain">(&amp;(</span><span class="identifier">ilp</span><span class="element">.set</span><span class="plain">), </span><span class="identifier">IA</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC</span><span class="plain">;</span>
<span class="identifier">LOOP_OVER</span><span class="plain">(</span><span class="identifier">IC</span><span class="plain">, </span><span class="reserved">inter_construct</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">IC</span><span class="plain">-</span><span class="element">&gt;construct_syntax</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Regexp::match</span><span class="plain">(&amp;</span><span class="identifier">ilp</span><span class="element">.mr</span><span class="plain">, </span><span class="identifier">ilp</span><span class="element">.line</span><span class="plain">, </span><span class="identifier">IC</span><span class="plain">-</span><span class="element">&gt;construct_syntax</span><span class="plain">)) {</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="identifier">E</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="identifier">VMETHOD_CALL</span><span class="plain">(</span><span class="identifier">IC</span><span class="plain">, </span><span class="constant">CONSTRUCT_READ_MTID</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, &amp;</span><span class="identifier">ilp</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, &amp;</span><span class="identifier">E</span><span class="plain">);</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">E</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Inter::Errors::plain</span><span class="plain">(</span><span class="identifier">I</span><span class="string">"bad inter line"</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Inter::Defn::set_latest_block_package</span><span class="plain">(</span><span class="reserved">inter_package</span><span class="plain"> *</span><span class="identifier">F</span><span class="plain">) {</span>
<span class="identifier">latest_block_package</span><span class="plain"> = </span><span class="identifier">F</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">inter_package</span><span class="plain"> *</span><span class="functiontext">Inter::Defn::get_latest_block_package</span><span class="plain">(</span><span class="reserved">void</span><span class="plain">) {</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">latest_block_package</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="functiontext">Inter::Defn::vet_level</span><span class="plain">(</span><span class="reserved">inter_bookmark</span><span class="plain"> *</span><span class="identifier">IBM</span><span class="plain">, </span><span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">cons</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">level</span><span class="plain">, </span><span class="reserved">inter_error_location</span><span class="plain"> *</span><span class="identifier">eloc</span><span class="plain">) {</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">actual</span><span class="plain"> = </span><span class="identifier">level</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="functiontext">Inter::Bookmarks::package</span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">)) &amp;&amp;</span>
<span class="plain">(</span><span class="functiontext">Inter::Packages::is_rootlike</span><span class="plain">(</span><span class="functiontext">Inter::Bookmarks::package</span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">)) == </span><span class="identifier">FALSE</span><span class="plain">))</span>
<span class="identifier">actual</span><span class="plain"> = </span><span class="identifier">level</span><span class="plain"> - </span><span class="functiontext">Inter::Bookmarks::baseline</span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">) - 1;</span>
<span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">proposed</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="identifier">LOOP_OVER</span><span class="plain">(</span><span class="identifier">proposed</span><span class="plain">, </span><span class="reserved">inter_construct</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">proposed</span><span class="plain">-</span><span class="element">&gt;construct_ID</span><span class="plain"> == </span><span class="identifier">cons</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">actual</span><span class="plain"> &lt; 0) </span><span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Inter::Errors::plain</span><span class="plain">(</span><span class="identifier">I</span><span class="string">"impossible level"</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">actual</span><span class="plain"> &lt; </span><span class="identifier">proposed</span><span class="plain">-</span><span class="element">&gt;min_level</span><span class="plain">) || (</span><span class="identifier">actual</span><span class="plain"> &gt; </span><span class="identifier">proposed</span><span class="plain">-</span><span class="element">&gt;max_level</span><span class="plain">))</span>
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Inter::Errors::plain</span><span class="plain">(</span><span class="identifier">I</span><span class="string">"indentation error"</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">);</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Inter::Errors::plain</span><span class="plain">(</span><span class="identifier">I</span><span class="string">"no such construct"</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">Inter::Defn::get_level</span><span class="plain">(</span><span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">) {</span>
<span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext">Inter::Defn::get_construct</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, &amp;</span><span class="identifier">IC</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> 0;</span>
<span class="reserved">return</span><span class="plain"> (</span><span class="reserved">int</span><span class="plain">) </span><span class="identifier">P</span><span class="plain">-</span><span class="element">&gt;W.data</span><span class="plain">[</span><span class="constant">LEVEL_IFLD</span><span class="plain">];</span>
<span class="plain">}</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="functiontext">Inter::Defn::verify_children_inner</span><span class="plain">(</span><span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">) {</span>
<span class="reserved">inter_construct</span><span class="plain"> *</span><span class="identifier">IC</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext">Inter::Defn::get_construct</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, &amp;</span><span class="identifier">IC</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">E</span><span class="plain">;</span>
<span class="reserved">inter_package</span><span class="plain"> *</span><span class="identifier">pack</span><span class="plain"> = </span><span class="functiontext">Inter::Packages::container</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">);</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">need</span><span class="plain"> = </span><span class="constant">INSIDE_PLAIN_PACKAGE</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">pack</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="identifier">need</span><span class="plain"> = </span><span class="constant">OUTSIDE_OF_PACKAGES</span><span class="plain">;</span>
<span class="reserved">else</span><span class="plain"> </span><span class="reserved">if</span><span class="plain"> (</span><span class="functiontext">Inter::Packages::is_codelike</span><span class="plain">(</span><span class="identifier">pack</span><span class="plain">)) </span><span class="identifier">need</span><span class="plain"> = </span><span class="constant">INSIDE_CODE_PACKAGE</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">IC</span><span class="plain">-</span><span class="element">&gt;usage_permissions</span><span class="plain"> &amp; </span><span class="identifier">need</span><span class="plain">) != </span><span class="identifier">need</span><span class="plain">) {</span>
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">M</span><span class="plain"> = </span><span class="identifier">Str::new</span><span class="plain">();</span>
<span class="identifier">WRITE_TO</span><span class="plain">(</span><span class="identifier">M</span><span class="plain">, </span><span class="string">"construct (%d) '"</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">-</span><span class="element">&gt;W.data</span><span class="plain">[</span><span class="constant">LEVEL_IFLD</span><span class="plain">]);</span>
<span class="functiontext">Inter::Defn::write_construct_text</span><span class="plain">(</span><span class="identifier">M</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">);</span>
<span class="identifier">WRITE_TO</span><span class="plain">(</span><span class="identifier">M</span><span class="plain">, </span><span class="string">"' (%d) cannot be used "</span><span class="plain">, </span><span class="identifier">IC</span><span class="plain">-</span><span class="element">&gt;construct_ID</span><span class="plain">);</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">need</span><span class="plain">) {</span>
<span class="reserved">case</span><span class="plain"> </span><span class="constant">OUTSIDE_OF_PACKAGES</span><span class="plain">: </span><span class="identifier">WRITE_TO</span><span class="plain">(</span><span class="identifier">M</span><span class="plain">, </span><span class="string">"outside packages"</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INSIDE_PLAIN_PACKAGE</span><span class="plain">: </span><span class="identifier">WRITE_TO</span><span class="plain">(</span><span class="identifier">M</span><span class="plain">, </span><span class="string">"inside non-code packages such as %S"</span><span class="plain">, </span><span class="functiontext">Inter::Packages::name</span><span class="plain">(</span><span class="identifier">pack</span><span class="plain">)); </span><span class="reserved">break</span><span class="plain">;</span>
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INSIDE_CODE_PACKAGE</span><span class="plain">: </span><span class="identifier">WRITE_TO</span><span class="plain">(</span><span class="identifier">M</span><span class="plain">, </span><span class="string">"inside code packages such as %S"</span><span class="plain">, </span><span class="functiontext">Inter::Packages::name</span><span class="plain">(</span><span class="identifier">pack</span><span class="plain">)); </span><span class="reserved">break</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Inter::Node::error</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">M</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="identifier">E</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="identifier">VMETHOD_CALL</span><span class="plain">(</span><span class="identifier">IC</span><span class="plain">, </span><span class="constant">VERIFY_INTER_CHILDREN_MTID</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, &amp;</span><span class="identifier">E</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">E</span><span class="plain">) </span><span class="functiontext">Inter::Errors::backtrace</span><span class="plain">(</span><span class="identifier">STDERR</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">);</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">E</span><span class="plain">;</span>
<span class="plain">}</span>
</pre>
<p class="inwebparagraph"></p>
<p class="endnote">The function Inter::Defn::verify_construct is used in 2/trn (<a href="2-trn.html#SP3_1_1">&#167;3.1.1</a>), 3/iibf (<a href="3-iibf.html#SP1_6">&#167;1.6</a>), 4/tnc (<a href="4-tnc.html#SP1">&#167;1</a>), 4/tcc (<a href="4-tcc.html#SP1">&#167;1</a>), 4/tmc (<a href="4-tmc.html#SP2">&#167;2</a>), 4/tvc (<a href="4-tvc.html#SP2">&#167;2</a>), 4/tpc (<a href="4-tpc.html#SP2">&#167;2</a>), 4/tlc (<a href="4-tlc.html#SP2">&#167;2</a>), 4/tac (<a href="4-tac.html#SP2">&#167;2</a>), 4/tpc2 (<a href="4-tpc2.html#SP2">&#167;2</a>), 4/tpc3 (<a href="4-tpc3.html#SP2">&#167;2</a>), 4/tkc (<a href="4-tkc.html#SP2">&#167;2</a>), 4/tdc (<a href="4-tdc.html#SP2">&#167;2</a>), 4/tvc2 (<a href="4-tvc2.html#SP2">&#167;2</a>), 4/tcc2 (<a href="4-tcc2.html#SP2">&#167;2</a>), 4/trc (<a href="4-trc.html#SP2">&#167;2</a>), 4/tic (<a href="4-tic.html#SP2">&#167;2</a>), 4/tpc4 (<a href="4-tpc4.html#SP2">&#167;2</a>), 4/tpc5 (<a href="4-tpc5.html#SP2">&#167;2</a>), 4/tpc6 (<a href="4-tpc6.html#SP2">&#167;2</a>), 4/tpc7 (<a href="4-tpc7.html#SP2">&#167;2</a>), 5/tlc (<a href="5-tlc.html#SP2">&#167;2</a>), 5/tlc2 (<a href="5-tlc2.html#SP2">&#167;2</a>), 5/tic (<a href="5-tic.html#SP2">&#167;2</a>), 5/trc (<a href="5-trc.html#SP2">&#167;2</a>), 5/tvc (<a href="5-tvc.html#SP2">&#167;2</a>), 5/tlc3 (<a href="5-tlc3.html#SP2">&#167;2</a>), 5/tcc (<a href="5-tcc.html#SP2">&#167;2</a>), 5/tec (<a href="5-tec.html#SP2">&#167;2</a>), 5/trc2 (<a href="5-trc2.html#SP2">&#167;2</a>), 5/tcc2 (<a href="5-tcc2.html#SP2">&#167;2</a>), 5/tsc (<a href="5-tsc.html#SP2">&#167;2</a>).</p>
<p class="endnote">The function Inter::Defn::transpose_construct is used in 3/iibf (<a href="3-iibf.html#SP1_6">&#167;1.6</a>).</p>
<p class="endnote">The function Inter::Defn::get_construct appears nowhere else.</p>
<p class="endnote">The function Inter::Defn::write_construct_text is used in 3/iitf (<a href="3-iitf.html#SP1">&#167;1</a>, <a href="3-iitf.html#SP2">&#167;2</a>).</p>
<p class="endnote">The function Inter::Defn::write_construct_text_allowing_nop is used in 3/ie (<a href="3-ie.html#SP2">&#167;2</a>).</p>
<p class="endnote">The function Inter::Defn::read_construct_text is used in 3/iitf (<a href="3-iitf.html#SP1">&#167;1</a>).</p>
<p class="endnote">The function Inter::Defn::set_latest_block_package is used in 4/tpc3 (<a href="4-tpc3.html#SP2">&#167;2</a>).</p>
<p class="endnote">The function Inter::Defn::get_latest_block_package is used in 4/tsc (<a href="4-tsc.html#SP1">&#167;1</a>), 5/tlc (<a href="5-tlc.html#SP2">&#167;2</a>), 5/tlc2 (<a href="5-tlc2.html#SP2">&#167;2</a>), 5/tic (<a href="5-tic.html#SP2">&#167;2</a>), 5/trc (<a href="5-trc.html#SP2">&#167;2</a>), 5/tvc (<a href="5-tvc.html#SP2">&#167;2</a>), 5/tlc3 (<a href="5-tlc3.html#SP2">&#167;2</a>), 5/tcc (<a href="5-tcc.html#SP2">&#167;2</a>), 5/tec (<a href="5-tec.html#SP2">&#167;2</a>), 5/trc2 (<a href="5-trc2.html#SP2">&#167;2</a>), 5/tcc2 (<a href="5-tcc2.html#SP2">&#167;2</a>), 5/tsc (<a href="5-tsc.html#SP2">&#167;2</a>).</p>
<p class="endnote">The function Inter::Defn::vet_level is used in 4/tcc (<a href="4-tcc.html#SP1">&#167;1</a>), 4/tmc (<a href="4-tmc.html#SP2">&#167;2</a>), 4/tsc (<a href="4-tsc.html#SP1">&#167;1</a>), 4/tvc (<a href="4-tvc.html#SP2">&#167;2</a>), 4/tpc (<a href="4-tpc.html#SP2">&#167;2</a>), 4/tlc (<a href="4-tlc.html#SP2">&#167;2</a>), 4/tac (<a href="4-tac.html#SP2">&#167;2</a>), 4/tpc2 (<a href="4-tpc2.html#SP2">&#167;2</a>), 4/tpc3 (<a href="4-tpc3.html#SP2">&#167;2</a>), 4/tkc (<a href="4-tkc.html#SP2">&#167;2</a>), 4/tdc (<a href="4-tdc.html#SP2">&#167;2</a>), 4/tvc2 (<a href="4-tvc2.html#SP2">&#167;2</a>), 4/tcc2 (<a href="4-tcc2.html#SP2">&#167;2</a>), 4/trc (<a href="4-trc.html#SP2">&#167;2</a>), 4/tic (<a href="4-tic.html#SP2">&#167;2</a>), 4/tpc4 (<a href="4-tpc4.html#SP2">&#167;2</a>), 4/tpc5 (<a href="4-tpc5.html#SP2">&#167;2</a>), 4/tpc6 (<a href="4-tpc6.html#SP2">&#167;2</a>), 4/tpc7 (<a href="4-tpc7.html#SP2">&#167;2</a>), 5/tlc (<a href="5-tlc.html#SP2">&#167;2</a>), 5/tlc2 (<a href="5-tlc2.html#SP2">&#167;2</a>), 5/tic (<a href="5-tic.html#SP2">&#167;2</a>), 5/trc (<a href="5-trc.html#SP2">&#167;2</a>), 5/tvc (<a href="5-tvc.html#SP2">&#167;2</a>), 5/tlc3 (<a href="5-tlc3.html#SP2">&#167;2</a>), 5/tcc (<a href="5-tcc.html#SP2">&#167;2</a>), 5/tec (<a href="5-tec.html#SP2">&#167;2</a>), 5/trc2 (<a href="5-trc2.html#SP2">&#167;2</a>), 5/tcc2 (<a href="5-tcc2.html#SP2">&#167;2</a>), 5/tsc (<a href="5-tsc.html#SP2">&#167;2</a>).</p>
<p class="endnote">The function Inter::Defn::get_level is used in 2/pck (<a href="2-pck.html#SP3">&#167;3</a>).</p>
<p class="endnote">The function Inter::Defn::verify_children_inner is used in 3/iitf (<a href="3-iitf.html#SP1">&#167;1</a>).</p>
<hr class="tocbar">
<ul class="toc"><li><a href="3-ca.html">Back to 'Canonical Annotations'</a></li><li><a href="3-iibf.html">Continue with 'Inter in Binary Files'</a></li></ul><hr class="tocbar">
<!--End of weave-->
</body>
</html>
Reference in a new issue View git blame Copy permalink