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/bytecode-module/4-tcc2.html
Graham Nelson 1268a0f40e Colonised
2020-04-14 17:56:54 +01:00

550 lines
149 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>The Constant Construct</title>
<meta name="viewport" content="width=device-width initial-scale=1">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta http-equiv="Content-Language" content="en-gb">
<link href="../inweb.css" rel="stylesheet" rev="stylesheet" type="text/css">
</head>
<body>
<nav role="navigation">
<h1><a href="../index.html">
<img src="../docs-src/Figures/Inform.png" height=72">
</a></h1>
<ul><li><a href="../compiler.html">compiler tools</a></li>
<li><a href="../other.html">other tools</a></li>
<li><a href="../extensions.html">extensions and kits</a></li>
<li><a href="../units.html">unit test tools</a></li>
</ul><h2>Compiler Webs</h2><ul>
<li><a href="../inbuild/index.html">inbuild</a></li>
<li><a href="../inform7/index.html">inform7</a></li>
<li><a href="../inter/index.html">inter</a></li>
</ul><h2>Inbuild Modules</h2><ul>
<li><a href="../supervisor-module/index.html">supervisor</a></li>
</ul><h2>Inform7 Modules</h2><ul>
<li><a href="../core-module/index.html">core</a></li>
<li><a href="../inflections-module/index.html">inflections</a></li>
<li><a href="../linguistics-module/index.html">linguistics</a></li>
<li><a href="../kinds-module/index.html">kinds</a></li>
<li><a href="../if-module/index.html">if</a></li>
<li><a href="../multimedia-module/index.html">multimedia</a></li>
<li><a href="../problems-module/index.html">problems</a></li>
<li><a href="../index-module/index.html">index</a></li>
</ul><h2>Inter Modules</h2><ul>
<li><a href="index.html"><span class="selectedlink">bytecode</span></a></li>
<li><a href="../building-module/index.html">building</a></li>
<li><a href="../codegen-module/index.html">codegen</a></li>
</ul><h2>Shared Modules</h2><ul>
<li><a href="../arch-module/index.html">arch</a></li>
<li><a href="../syntax-module/index.html">syntax</a></li>
<li><a href="../words-module/index.html">words</a></li>
<li><a href="../html-module/index.html">html</a></li>
<li><a href="../../../inweb/docs/foundation-module/index.html">foundation</a></li>
</ul>
</nav>
<main role="main">
<!--Weave of 'The Constant Construct' generated by 7-->
<ul class="crumbs"><li><a href="../index.html">Home</a></li><li><a href="../compiler.html">Inter Modules</a></li><li><a href="index.html">bytecode</a></li><li><a href="index.html#4">Chapter 4: Void Constructs</a></li><li><b>The Constant Construct</b></li></ul><p class="purpose">Defining the constant construct.</p>
<p class="inwebparagraph"><a id="SP1"></a><b>&#167;1. </b></p>
<pre class="definitions">
<span class="definitionkeyword">enum</span> <span class="constant">CONSTANT_IST</span>
</pre>
<pre class="display">
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Inter::Constant::define<button class="popup" onclick="togglePopup('usagePopup383')">...<span class="popuptext" id="usagePopup383">Usage of <b>Inter::Constant::define</b>:<br>Definition - <a href="3-dfn.html#SP3">&#167;3</a></span></button></span><span class="plain">(</span><span class="reserved">void</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="functiontext"><a href="3-dfn.html#SP1">Inter::Defn::create_construct</a></span><span class="plain">(</span>
<span class="constant">CONSTANT_IST</span><span class="plain">,</span>
<span class="identifier">L</span><span class="string">"constant (%C+) (%i+) = (%c+)"</span><span class="plain">,</span>
<span class="identifier">I</span><span class="string">"constant"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"constants"</span><span class="plain">);</span>
<span class="identifier">METHOD_ADD</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="functiontext"><a href="#SP2">Inter::Constant::read</a></span><span class="plain">);</span>
<span class="identifier">METHOD_ADD</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="functiontext"><a href="#SP2">Inter::Constant::transpose</a></span><span class="plain">);</span>
<span class="identifier">METHOD_ADD</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="functiontext"><a href="#SP2">Inter::Constant::verify</a></span><span class="plain">);</span>
<span class="identifier">METHOD_ADD</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="functiontext"><a href="#SP2">Inter::Constant::write</a></span><span class="plain">);</span>
<span class="plain">}</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP2"></a><b>&#167;2. </b></p>
<pre class="definitions">
<span class="definitionkeyword">define</span> <span class="constant">DEFN_CONST_IFLD</span><span class="plain"> </span><span class="constant">2</span>
<span class="definitionkeyword">define</span> <span class="constant">KIND_CONST_IFLD</span><span class="plain"> </span><span class="constant">3</span>
<span class="definitionkeyword">define</span> <span class="constant">FORMAT_CONST_IFLD</span><span class="plain"> </span><span class="constant">4</span>
<span class="definitionkeyword">define</span> <span class="constant">DATA_CONST_IFLD</span><span class="plain"> </span><span class="constant">5</span>
<span class="definitionkeyword">define</span> <span class="constant">CONSTANT_DIRECT</span><span class="plain"> </span><span class="constant">0</span>
<span class="definitionkeyword">define</span> <span class="constant">CONSTANT_INDIRECT_LIST</span><span class="plain"> </span><span class="constant">1</span>
<span class="definitionkeyword">define</span> <span class="constant">CONSTANT_SUM_LIST</span><span class="plain"> </span><span class="constant">2</span>
<span class="definitionkeyword">define</span> <span class="constant">CONSTANT_PRODUCT_LIST</span><span class="plain"> </span><span class="constant">3</span>
<span class="definitionkeyword">define</span> <span class="constant">CONSTANT_DIFFERENCE_LIST</span><span class="plain"> </span><span class="constant">4</span>
<span class="definitionkeyword">define</span> <span class="constant">CONSTANT_QUOTIENT_LIST</span><span class="plain"> </span><span class="constant">5</span>
<span class="definitionkeyword">define</span> <span class="constant">CONSTANT_INDIRECT_TEXT</span><span class="plain"> </span><span class="constant">6</span>
<span class="definitionkeyword">define</span> <span class="constant">CONSTANT_ROUTINE</span><span class="plain"> </span><span class="constant">7</span>
<span class="definitionkeyword">define</span> <span class="constant">CONSTANT_STRUCT</span><span class="plain"> </span><span class="constant">8</span>
</pre>
<pre class="display">
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Inter::Constant::read<button class="popup" onclick="togglePopup('usagePopup384')">...<span class="popuptext" id="usagePopup384">Usage of <b>Inter::Constant::read</b>:<br><a href="#SP1">&#167;1</a></span></button></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="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="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="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-dfn.html#SP4">Inter::Defn::vet_level</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="constant">CONSTANT_IST</span><span class="plain">, </span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="element">indent_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">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">con_name</span><span class="plain"> = </span><span class="functiontext"><a href="3-iitf.html#SP1">Inter::Textual::new_symbol</a></span><span class="plain">(</span><span class="identifier">eloc</span><span class="plain">, </span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::scope</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="element">mr</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0], </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="functiontext"><a href="2-ann.html#SP2">Inter::Annotations::copy_set_to_symbol</a></span><span class="plain">(&amp;(</span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="element">set</span><span class="plain">), </span><span class="identifier">con_name</span><span class="plain">);</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">con_kind</span><span class="plain"> = </span><span class="functiontext"><a href="3-iitf.html#SP1">Inter::Textual::find_symbol</a></span><span class="plain">(</span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::tree</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="identifier">eloc</span><span class="plain">, </span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::scope</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="element">mr</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[1], </span><span class="constant">KIND_IST</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">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">S</span><span class="plain"> = </span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="element">mr</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[2];</span>
<span class="reserved">inter_data_type</span><span class="plain"> *</span><span class="identifier">idt</span><span class="plain"> = </span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::data_type</a></span><span class="plain">(</span><span class="identifier">con_kind</span><span class="plain">);</span>
<span class="identifier">match_results</span><span class="plain"> </span><span class="identifier">mr2</span><span class="plain"> = </span><span class="identifier">Regexp::create_mr</span><span class="plain">();</span>
<span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">op</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Regexp::match</span><span class="plain">(&amp;</span><span class="identifier">mr2</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"sum{ (%c*) }"</span><span class="plain">)) </span><span class="identifier">op</span><span class="plain"> = </span><span class="constant">CONSTANT_SUM_LIST</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">Regexp::match</span><span class="plain">(&amp;</span><span class="identifier">mr2</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"product{ (%c*) }"</span><span class="plain">)) </span><span class="identifier">op</span><span class="plain"> = </span><span class="constant">CONSTANT_PRODUCT_LIST</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">Regexp::match</span><span class="plain">(&amp;</span><span class="identifier">mr2</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"difference{ (%c*) }"</span><span class="plain">)) </span><span class="identifier">op</span><span class="plain"> = </span><span class="constant">CONSTANT_DIFFERENCE_LIST</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">Regexp::match</span><span class="plain">(&amp;</span><span class="identifier">mr2</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"quotient{ (%c*) }"</span><span class="plain">)) </span><span class="identifier">op</span><span class="plain"> = </span><span class="constant">CONSTANT_QUOTIENT_LIST</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">op</span><span class="plain"> != </span><span class="constant">0</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="functiontext"><a href="2-in.html#SP4">Inter::Node::fill_3</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="constant">CONSTANT_IST</span><span class="plain">, </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_name</span><span class="plain">), </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_kind</span><span class="plain">), </span><span class="identifier">op</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, (</span><span class="constant">inter_t</span><span class="plain">) </span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="element">indent_level</span><span class="plain">);</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-dfn.html#SP4">Inter::Defn::verify_construct</a></span><span class="plain">(</span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::package</a></span><span class="plain">(</span><span class="identifier">IBM</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">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">conts</span><span class="plain"> = </span><span class="identifier">mr2</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0];</span>
<span class="identifier">match_results</span><span class="plain"> </span><span class="identifier">mr3</span><span class="plain"> = </span><span class="identifier">Regexp::create_mr</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">mr3</span><span class="plain">, </span><span class="identifier">conts</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"(%c*?), (%c+)"</span><span class="plain">)) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="#SP2">Inter::Constant::append</a></span><span class="plain">(</span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="identifier">line</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_kind</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">mr3</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0], </span><span class="identifier">E</span><span class="plain">) == </span><span class="identifier">FALSE</span><span class="plain">)</span>
<span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">Str::copy</span><span class="plain">(</span><span class="identifier">conts</span><span class="plain">, </span><span class="identifier">mr3</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[1]);</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">mr3</span><span class="plain">, </span><span class="identifier">conts</span><span class="plain">, </span><span class="identifier">L</span><span class="string">" *(%c*?) *"</span><span class="plain">)) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="#SP2">Inter::Constant::append</a></span><span class="plain">(</span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="identifier">line</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_kind</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">mr3</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0], </span><span class="identifier">E</span><span class="plain">) == </span><span class="identifier">FALSE</span><span class="plain">)</span>
<span class="reserved">return</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::insert</a></span><span class="plain">(</span><span class="identifier">IBM</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="plain">}</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">idt</span><span class="plain">) &amp;&amp; ((</span><span class="identifier">idt</span><span class="plain">-&gt;</span><span class="element">type_ID</span><span class="plain"> == </span><span class="constant">LIST_IDT</span><span class="plain">) || (</span><span class="identifier">idt</span><span class="plain">-&gt;</span><span class="element">type_ID</span><span class="plain"> == </span><span class="constant">COLUMN_IDT</span><span class="plain">))) {</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">conts_kind</span><span class="plain"> = </span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::operand_symbol</a></span><span class="plain">(</span><span class="identifier">con_kind</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">conts_kind</span><span class="plain">) {</span>
<span class="identifier">match_results</span><span class="plain"> </span><span class="identifier">mr2</span><span class="plain"> = </span><span class="identifier">Regexp::create_mr</span><span class="plain">();</span>
<span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">form</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Regexp::match</span><span class="plain">(&amp;</span><span class="identifier">mr2</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"{ (%c*) }"</span><span class="plain">)) </span><span class="identifier">form</span><span class="plain"> = </span><span class="constant">CONSTANT_INDIRECT_LIST</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">Regexp::match</span><span class="plain">(&amp;</span><span class="identifier">mr2</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"sum{ (%c*) }"</span><span class="plain">)) </span><span class="identifier">form</span><span class="plain"> = </span><span class="constant">CONSTANT_SUM_LIST</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">Regexp::match</span><span class="plain">(&amp;</span><span class="identifier">mr2</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"product{ (%c*) }"</span><span class="plain">)) </span><span class="identifier">form</span><span class="plain"> = </span><span class="constant">CONSTANT_PRODUCT_LIST</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">Regexp::match</span><span class="plain">(&amp;</span><span class="identifier">mr2</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"difference{ (%c*) }"</span><span class="plain">)) </span><span class="identifier">form</span><span class="plain"> = </span><span class="constant">CONSTANT_DIFFERENCE_LIST</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">Regexp::match</span><span class="plain">(&amp;</span><span class="identifier">mr2</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"quotient{ (%c*) }"</span><span class="plain">)) </span><span class="identifier">form</span><span class="plain"> = </span><span class="constant">CONSTANT_QUOTIENT_LIST</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">form</span><span class="plain"> != </span><span class="constant">0</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="functiontext"><a href="2-in.html#SP4">Inter::Node::fill_3</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="constant">CONSTANT_IST</span><span class="plain">, </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_name</span><span class="plain">), </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_kind</span><span class="plain">), </span><span class="identifier">form</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, (</span><span class="constant">inter_t</span><span class="plain">) </span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="element">indent_level</span><span class="plain">);</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-dfn.html#SP4">Inter::Defn::verify_construct</a></span><span class="plain">(</span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::package</a></span><span class="plain">(</span><span class="identifier">IBM</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">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">conts</span><span class="plain"> = </span><span class="identifier">mr2</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0];</span>
<span class="identifier">match_results</span><span class="plain"> </span><span class="identifier">mr3</span><span class="plain"> = </span><span class="identifier">Regexp::create_mr</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">mr3</span><span class="plain">, </span><span class="identifier">conts</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"(%c*?), (%c+)"</span><span class="plain">)) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="#SP2">Inter::Constant::append</a></span><span class="plain">(</span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="identifier">line</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">conts_kind</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">mr3</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0], </span><span class="identifier">E</span><span class="plain">) == </span><span class="identifier">FALSE</span><span class="plain">)</span>
<span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">Str::copy</span><span class="plain">(</span><span class="identifier">conts</span><span class="plain">, </span><span class="identifier">mr3</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[1]);</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">mr3</span><span class="plain">, </span><span class="identifier">conts</span><span class="plain">, </span><span class="identifier">L</span><span class="string">" *(%c*?) *"</span><span class="plain">)) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="#SP2">Inter::Constant::append</a></span><span class="plain">(</span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="identifier">line</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">conts_kind</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">mr3</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0], </span><span class="identifier">E</span><span class="plain">) == </span><span class="identifier">FALSE</span><span class="plain">)</span>
<span class="reserved">return</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::insert</a></span><span class="plain">(</span><span class="identifier">IBM</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="plain">}</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">idt</span><span class="plain">) &amp;&amp; (</span><span class="identifier">idt</span><span class="plain">-&gt;</span><span class="element">type_ID</span><span class="plain"> == </span><span class="constant">STRUCT_IDT</span><span class="plain">)) {</span>
<span class="identifier">match_results</span><span class="plain"> </span><span class="identifier">mr2</span><span class="plain"> = </span><span class="identifier">Regexp::create_mr</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">mr2</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"{ (%c*) }"</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="plain"> </span><span class="functiontext"><a href="2-in.html#SP4">Inter::Node::fill_3</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="constant">CONSTANT_IST</span><span class="plain">, </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_name</span><span class="plain">), </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_kind</span><span class="plain">), </span><span class="constant">CONSTANT_STRUCT</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, (</span><span class="constant">inter_t</span><span class="plain">) </span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="element">indent_level</span><span class="plain">);</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">arity</span><span class="plain"> = </span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::arity</a></span><span class="plain">(</span><span class="identifier">con_kind</span><span class="plain">);</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">counter</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">conts</span><span class="plain"> = </span><span class="identifier">mr2</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0];</span>
<span class="identifier">match_results</span><span class="plain"> </span><span class="identifier">mr3</span><span class="plain"> = </span><span class="identifier">Regexp::create_mr</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">mr3</span><span class="plain">, </span><span class="identifier">conts</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"(%c*?), (%c+)"</span><span class="plain">)) {</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">conts_kind</span><span class="plain"> = </span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::operand_symbol</a></span><span class="plain">(</span><span class="identifier">con_kind</span><span class="plain">, </span><span class="identifier">counter</span><span class="plain">++);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="#SP2">Inter::Constant::append</a></span><span class="plain">(</span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="identifier">line</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">conts_kind</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">mr3</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0], </span><span class="identifier">E</span><span class="plain">) == </span><span class="identifier">FALSE</span><span class="plain">)</span>
<span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">Str::copy</span><span class="plain">(</span><span class="identifier">conts</span><span class="plain">, </span><span class="identifier">mr3</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[1]);</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">mr3</span><span class="plain">, </span><span class="identifier">conts</span><span class="plain">, </span><span class="identifier">L</span><span class="string">" *(%c*?) *"</span><span class="plain">)) {</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">conts_kind</span><span class="plain"> = </span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::operand_symbol</a></span><span class="plain">(</span><span class="identifier">con_kind</span><span class="plain">, </span><span class="identifier">counter</span><span class="plain">++);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="#SP2">Inter::Constant::append</a></span><span class="plain">(</span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="identifier">line</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">conts_kind</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">mr3</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0], </span><span class="identifier">E</span><span class="plain">) == </span><span class="identifier">FALSE</span><span class="plain">)</span>
<span class="reserved">return</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">counter</span><span class="plain"> != </span><span class="identifier">arity</span><span class="plain">)</span>
<span class="plain">{ *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-ie.html#SP1">Inter::Errors::quoted</a></span><span class="plain">(</span><span class="identifier">I</span><span class="string">"wrong size"</span><span class="plain">, </span><span class="identifier">S</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="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-dfn.html#SP4">Inter::Defn::verify_construct</a></span><span class="plain">(</span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::package</a></span><span class="plain">(</span><span class="identifier">IBM</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">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::insert</a></span><span class="plain">(</span><span class="identifier">IBM</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="plain">}</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">idt</span><span class="plain">) &amp;&amp; (</span><span class="identifier">idt</span><span class="plain">-&gt;</span><span class="element">type_ID</span><span class="plain"> == </span><span class="constant">TABLE_IDT</span><span class="plain">)) {</span>
<span class="identifier">match_results</span><span class="plain"> </span><span class="identifier">mr2</span><span class="plain"> = </span><span class="identifier">Regexp::create_mr</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">mr2</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"{ (%c*) }"</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="functiontext"><a href="2-in.html#SP4">Inter::Node::fill_3</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="constant">CONSTANT_IST</span><span class="plain">, </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_name</span><span class="plain">), </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_kind</span><span class="plain">), </span><span class="constant">CONSTANT_INDIRECT_LIST</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, (</span><span class="constant">inter_t</span><span class="plain">) </span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="element">indent_level</span><span class="plain">);</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-dfn.html#SP4">Inter::Defn::verify_construct</a></span><span class="plain">(</span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::package</a></span><span class="plain">(</span><span class="identifier">IBM</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">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">conts</span><span class="plain"> = </span><span class="identifier">mr2</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0];</span>
<span class="identifier">match_results</span><span class="plain"> </span><span class="identifier">mr3</span><span class="plain"> = </span><span class="identifier">Regexp::create_mr</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">mr3</span><span class="plain">, </span><span class="identifier">conts</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"(%c*?), (%c+)"</span><span class="plain">)) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="#SP2">Inter::Constant::append</a></span><span class="plain">(</span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="identifier">line</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">mr3</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0], </span><span class="identifier">E</span><span class="plain">) == </span><span class="identifier">FALSE</span><span class="plain">)</span>
<span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">Str::copy</span><span class="plain">(</span><span class="identifier">conts</span><span class="plain">, </span><span class="identifier">mr3</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[1]);</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">mr3</span><span class="plain">, </span><span class="identifier">conts</span><span class="plain">, </span><span class="identifier">L</span><span class="string">" *(%c*?) *"</span><span class="plain">)) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="#SP2">Inter::Constant::append</a></span><span class="plain">(</span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="identifier">line</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">mr3</span><span class="plain">.</span><span class="identifier">exp</span><span class="plain">[0], </span><span class="identifier">E</span><span class="plain">) == </span><span class="identifier">FALSE</span><span class="plain">)</span>
<span class="reserved">return</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::insert</a></span><span class="plain">(</span><span class="identifier">IBM</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="plain">}</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">idt</span><span class="plain">) &amp;&amp; (</span><span class="identifier">idt</span><span class="plain">-&gt;</span><span class="element">type_ID</span><span class="plain"> == </span><span class="constant">TEXT_IDT</span><span class="plain">)) {</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">Str::begins_with_wide_string</span><span class="plain">(</span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"\""</span><span class="plain">)) &amp;&amp; (</span><span class="identifier">Str::ends_with_wide_string</span><span class="plain">(</span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">L</span><span class="string">"\""</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="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="#SP2">Inter::Constant::parse_text</a></span><span class="plain">(</span><span class="identifier">parsed_text</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, </span><span class="constant">1</span><span class="plain">, </span><span class="identifier">Str::len</span><span class="plain">(</span><span class="identifier">S</span><span class="plain">)-2, </span><span class="identifier">eloc</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="constant">0</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="identifier">NULL</span><span class="plain">) {</span>
<span class="identifier">ID</span><span class="plain"> = </span><span class="functiontext"><a href="2-tw.html#SP3">Inter::Warehouse::create_text</a></span><span class="plain">(</span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::warehouse</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::package</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">));</span>
<span class="identifier">Str::copy</span><span class="plain">(</span><span class="functiontext"><a href="2-tw.html#SP3">Inter::Warehouse::get_text</a></span><span class="plain">(</span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::warehouse</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="identifier">ID</span><span class="plain">), </span><span class="identifier">parsed_text</span><span class="plain">);</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">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="#SP2">Inter::Constant::new_textual</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_name</span><span class="plain">), </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_kind</span><span class="plain">), </span><span class="identifier">ID</span><span class="plain">, (</span><span class="constant">inter_t</span><span class="plain">) </span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="element">indent_level</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="plain">}</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">idt</span><span class="plain">) &amp;&amp; (</span><span class="identifier">idt</span><span class="plain">-&gt;</span><span class="element">type_ID</span><span class="plain"> == </span><span class="constant">ROUTINE_IDT</span><span class="plain">)) {</span>
<span class="reserved">inter_package</span><span class="plain"> *</span><span class="identifier">block</span><span class="plain"> = </span><span class="functiontext"><a href="2-pck.html#SP3">Inter::Packages::by_name</a></span><span class="plain">(</span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::package</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="identifier">S</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">block</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="functiontext"><a href="3-ie.html#SP1">Inter::Errors::quoted</a></span><span class="plain">(</span><span class="identifier">I</span><span class="string">"no such code block"</span><span class="plain">, </span><span class="identifier">S</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="plain">}</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="#SP2">Inter::Constant::new_function</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_name</span><span class="plain">), </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_kind</span><span class="plain">), </span><span class="identifier">block</span><span class="plain">, (</span><span class="constant">inter_t</span><span class="plain">) </span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="element">indent_level</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="plain">}</span>
<span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">con_val1</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">con_val2</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"0"</span><span class="plain">)) { </span><span class="identifier">con_val1</span><span class="plain"> = </span><span class="constant">LITERAL_IVAL</span><span class="plain">; </span><span class="identifier">con_val2</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">; }</span>
<span class="reserved">else</span><span class="plain"> {</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-idt.html#SP3">Inter::Types::read</a></span><span class="plain">(</span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="element">line</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, </span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::tree</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::package</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="identifier">con_kind</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, &amp;</span><span class="identifier">con_val1</span><span class="plain">, &amp;</span><span class="identifier">con_val2</span><span class="plain">, </span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::scope</a></span><span class="plain">(</span><span class="identifier">IBM</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="plain">}</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="#SP2">Inter::Constant::new_numerical</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_name</span><span class="plain">), </span><span class="functiontext"><a href="2-st.html#SP9">Inter::SymbolsTables::id_from_IRS_and_symbol</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">con_kind</span><span class="plain">), </span><span class="identifier">con_val1</span><span class="plain">, </span><span class="identifier">con_val2</span><span class="plain">, (</span><span class="constant">inter_t</span><span class="plain">) </span><span class="identifier">ilp</span><span class="plain">-&gt;</span><span class="element">indent_level</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="functiontext">Inter::Constant::parse_text<button class="popup" onclick="togglePopup('usagePopup385')">...<span class="popuptext" id="usagePopup385">Usage of <b>Inter::Constant::parse_text</b>:<br>Definition - <a href="3-dfn.html#SP3">&#167;3</a><br>Inter Data Types - <a href="3-idt.html#SP3">&#167;3</a><br>The Metadata Construct - <a href="4-tmc.html#SP2">&#167;2</a><br>The Link Construct - <a href="4-tlc.html#SP2">&#167;2</a><br>The Append Construct - <a href="4-tac.html#SP2">&#167;2</a><br>The Splat Construct - <a href="5-tsc.html#SP2">&#167;2</a></span></button></span><span class="plain">(</span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">parsed_text</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">S</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">from</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">to</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="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">literal_mode</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">pos</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">pos</span><span class="plain">.</span><span class="element">index</span><span class="plain"> &lt; </span><span class="identifier">from</span><span class="plain">) || (</span><span class="identifier">pos</span><span class="plain">.</span><span class="element">index</span><span class="plain"> &gt; </span><span class="identifier">to</span><span class="plain">)) </span><span class="reserved">continue</span><span class="plain">;</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">c</span><span class="plain"> = (</span><span class="reserved">int</span><span class="plain">) </span><span class="identifier">Str::get</span><span class="plain">(</span><span class="identifier">pos</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">literal_mode</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="identifier">literal_mode</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">; </span><span class="reserved">continue</span><span class="plain">; }</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">c</span><span class="plain">) {</span>
<span class="reserved">case</span><span class="plain"> </span><span class="character">'\\'</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="character">'"'</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="character">'t'</span><span class="plain">: </span><span class="identifier">c</span><span class="plain"> = </span><span class="constant">9</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="character">'n'</span><span class="plain">: </span><span class="identifier">c</span><span class="plain"> = </span><span class="constant">10</span><span class="plain">; </span><span class="reserved">break</span><span class="plain">;</span>
<span class="identifier">default:</span><span class="plain"> </span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-ie.html#SP1">Inter::Errors::plain</a></span><span class="plain">(</span><span class="identifier">I</span><span class="string">"no such backslash escape"</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="#SP2">Inter::Constant::char_acceptable</a></span><span class="plain">(</span><span class="identifier">c</span><span class="plain">) == </span><span class="identifier">FALSE</span><span class="plain">) </span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-ie.html#SP1">Inter::Errors::quoted</a></span><span class="plain">(</span><span class="identifier">I</span><span class="string">"bad character in text"</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">);</span>
<span class="identifier">PUT_TO</span><span class="plain">(</span><span class="identifier">parsed_text</span><span class="plain">, </span><span class="identifier">c</span><span class="plain">);</span>
<span class="identifier">literal_mode</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">;</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="identifier">Str::clear</span><span class="plain">(</span><span class="identifier">parsed_text</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">void</span><span class="plain"> </span><span class="functiontext">Inter::Constant::write_text<button class="popup" onclick="togglePopup('usagePopup386')">...<span class="popuptext" id="usagePopup386">Usage of <b>Inter::Constant::write_text</b>:<br>Definition - <a href="3-dfn.html#SP3">&#167;3</a><br>Inter Data Types - <a href="3-idt.html#SP3">&#167;3</a><br>The Link Construct - <a href="4-tlc.html#SP2">&#167;2</a><br>The Append Construct - <a href="4-tac.html#SP2">&#167;2</a><br>The Splat Construct - <a href="5-tsc.html#SP2">&#167;2</a></span></button></span><span class="plain">(</span><span class="identifier">OUTPUT_STREAM</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">S</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">S</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="constant">9</span><span class="plain">) { </span><span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"\\t"</span><span class="plain">); </span><span class="reserved">continue</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="constant">10</span><span class="plain">) { </span><span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"\\n"</span><span class="plain">); </span><span class="reserved">continue</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="identifier">WRITE</span><span class="plain">(</span><span class="string">"\\\""</span><span class="plain">); </span><span class="reserved">continue</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="identifier">WRITE</span><span class="plain">(</span><span class="string">"\\\\"</span><span class="plain">); </span><span class="reserved">continue</span><span class="plain">; }</span>
<span class="identifier">PUT</span><span class="plain">(</span><span class="identifier">c</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="reserved">inter_error_message</span><span class="plain"> *</span><span class="functiontext">Inter::Constant::new_numerical<button class="popup" onclick="togglePopup('usagePopup387')">...<span class="popuptext" id="usagePopup387">Usage of <b>Inter::Constant::new_numerical</b>:<br>none</span></button></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">SID</span><span class="plain">, </span><span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">KID</span><span class="plain">, </span><span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">val1</span><span class="plain">, </span><span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">val2</span><span class="plain">, </span><span class="constant">inter_t</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">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP4">Inter::Node::fill_5</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">,</span>
<span class="constant">CONSTANT_IST</span><span class="plain">, </span><span class="identifier">SID</span><span class="plain">, </span><span class="identifier">KID</span><span class="plain">, </span><span class="constant">CONSTANT_DIRECT</span><span class="plain">, </span><span class="identifier">val1</span><span class="plain">, </span><span class="identifier">val2</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, </span><span class="identifier">level</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"><a href="3-dfn.html#SP4">Inter::Defn::verify_construct</a></span><span class="plain">(</span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::package</a></span><span class="plain">(</span><span class="identifier">IBM</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">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"><a href="2-bkm.html#SP1">Inter::Bookmarks::insert</a></span><span class="plain">(</span><span class="identifier">IBM</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">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::Constant::new_textual<button class="popup" onclick="togglePopup('usagePopup388')">...<span class="popuptext" id="usagePopup388">Usage of <b>Inter::Constant::new_textual</b>:<br>none</span></button></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">SID</span><span class="plain">, </span><span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">KID</span><span class="plain">, </span><span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">TID</span><span class="plain">, </span><span class="constant">inter_t</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">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP4">Inter::Node::fill_4</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">,</span>
<span class="constant">CONSTANT_IST</span><span class="plain">, </span><span class="identifier">SID</span><span class="plain">, </span><span class="identifier">KID</span><span class="plain">, </span><span class="constant">CONSTANT_INDIRECT_TEXT</span><span class="plain">, </span><span class="identifier">TID</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, </span><span class="identifier">level</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"><a href="3-dfn.html#SP4">Inter::Defn::verify_construct</a></span><span class="plain">(</span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::package</a></span><span class="plain">(</span><span class="identifier">IBM</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">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"><a href="2-bkm.html#SP1">Inter::Bookmarks::insert</a></span><span class="plain">(</span><span class="identifier">IBM</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">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::Constant::new_function<button class="popup" onclick="togglePopup('usagePopup389')">...<span class="popuptext" id="usagePopup389">Usage of <b>Inter::Constant::new_function</b>:<br>none</span></button></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">SID</span><span class="plain">, </span><span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">KID</span><span class="plain">, </span><span class="reserved">inter_package</span><span class="plain"> *</span><span class="identifier">block</span><span class="plain">, </span><span class="constant">inter_t</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="constant">inter_t</span><span class="plain"> </span><span class="identifier">BID</span><span class="plain"> = </span><span class="identifier">block</span><span class="plain">-&gt;</span><span class="element">index_n</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="functiontext"><a href="2-in.html#SP4">Inter::Node::fill_4</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">,</span>
<span class="constant">CONSTANT_IST</span><span class="plain">, </span><span class="identifier">SID</span><span class="plain">, </span><span class="identifier">KID</span><span class="plain">, </span><span class="constant">CONSTANT_ROUTINE</span><span class="plain">, </span><span class="identifier">BID</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, </span><span class="identifier">level</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"><a href="3-dfn.html#SP4">Inter::Defn::verify_construct</a></span><span class="plain">(</span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::package</a></span><span class="plain">(</span><span class="identifier">IBM</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">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"><a href="2-bkm.html#SP1">Inter::Bookmarks::insert</a></span><span class="plain">(</span><span class="identifier">IBM</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">NULL</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">Inter::Constant::append<button class="popup" onclick="togglePopup('usagePopup390')">...<span class="popuptext" id="usagePopup390">Usage of <b>Inter::Constant::append</b>:<br>none</span></button></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_symbol</span><span class="plain"> *</span><span class="identifier">conts_kind</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="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">S</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="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">con_val1</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">con_val2</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">conts_kind</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) {</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">tc</span><span class="plain"> = </span><span class="functiontext"><a href="3-iitf.html#SP1">Inter::Textual::find_symbol</a></span><span class="plain">(</span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::tree</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="identifier">eloc</span><span class="plain">, </span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::scope</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="identifier">S</span><span class="plain">, </span><span class="constant">CONSTANT_IST</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">E</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">FALSE</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::constructor</a></span><span class="plain">(</span><span class="functiontext"><a href="#SP2">Inter::Constant::kind_of</a></span><span class="plain">(</span><span class="identifier">tc</span><span class="plain">)) == </span><span class="constant">COLUMN_ICON</span><span class="plain">) {</span>
<span class="functiontext"><a href="2-sym.html#SP3">Inter::Symbols::to_data</a></span><span class="plain">(</span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::tree</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::package</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="identifier">tc</span><span class="plain">, &amp;</span><span class="identifier">con_val1</span><span class="plain">, &amp;</span><span class="identifier">con_val2</span><span class="plain">);</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-ie.html#SP1">Inter::Errors::quoted</a></span><span class="plain">(</span><span class="identifier">I</span><span class="string">"not a table column constant"</span><span class="plain">, </span><span class="identifier">S</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">FALSE</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-idt.html#SP3">Inter::Types::read</a></span><span class="plain">(</span><span class="identifier">line</span><span class="plain">, </span><span class="identifier">eloc</span><span class="plain">, </span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::tree</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::package</a></span><span class="plain">(</span><span class="identifier">IBM</span><span class="plain">), </span><span class="identifier">conts_kind</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">, &amp;</span><span class="identifier">con_val1</span><span class="plain">, &amp;</span><span class="identifier">con_val2</span><span class="plain">, </span><span class="functiontext"><a href="2-bkm.html#SP1">Inter::Bookmarks::scope</a></span><span class="plain">(</span><span class="identifier">IBM</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">FALSE</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="2-in.html#SP5">Inter::Node::extend</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="constant">2</span><span class="plain">) == </span><span class="identifier">FALSE</span><span class="plain">) { *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-ie.html#SP1">Inter::Errors::quoted</a></span><span class="plain">(</span><span class="identifier">I</span><span class="string">"list too long"</span><span class="plain">, </span><span class="identifier">S</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">FALSE</span><span class="plain">; }</span>
<span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">extent</span><span class="plain">-2] = </span><span class="identifier">con_val1</span><span class="plain">;</span>
<span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">extent</span><span class="plain">-1] = </span><span class="identifier">con_val2</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Inter::Constant::transpose<button class="popup" onclick="togglePopup('usagePopup391')">...<span class="popuptext" id="usagePopup391">Usage of <b>Inter::Constant::transpose</b>:<br><a href="#SP1">&#167;1</a></span></button></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">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">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">FORMAT_CONST_IFLD</span><span class="plain">] == </span><span class="constant">CONSTANT_ROUTINE</span><span class="plain">)</span>
<span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">] = </span><span class="identifier">grid</span><span class="plain">[</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">]];</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="identifier">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">FORMAT_CONST_IFLD</span><span class="plain">]) {</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_DIRECT:</span>
<span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">+1] = </span><span class="functiontext"><a href="3-idt.html#SP2">Inter::Types::transpose_value</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">], </span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">+1], </span><span class="identifier">grid</span><span class="plain">, </span><span class="identifier">grid_extent</span><span class="plain">, </span><span class="identifier">E</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="identifier">CONSTANT_INDIRECT_TEXT:</span>
<span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">] = </span><span class="identifier">grid</span><span class="plain">[</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">DATA_CONST_IFLD</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="identifier">CONSTANT_SUM_LIST:</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_PRODUCT_LIST:</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_DIFFERENCE_LIST:</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_QUOTIENT_LIST:</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_INDIRECT_LIST:</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_STRUCT:</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">=</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">&lt;</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="identifier">W</span><span class="plain">.</span><span class="element">extent</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">=</span><span class="identifier">i</span><span class="plain">+2) {</span>
<span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="identifier">i</span><span class="plain">+1] = </span><span class="functiontext"><a href="3-idt.html#SP2">Inter::Types::transpose_value</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="identifier">i</span><span class="plain">], </span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="identifier">i</span><span class="plain">+1], </span><span class="identifier">grid</span><span class="plain">, </span><span class="identifier">grid_extent</span><span class="plain">, </span><span class="identifier">E</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">break</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::Constant::verify<button class="popup" onclick="togglePopup('usagePopup392')">...<span class="popuptext" id="usagePopup392">Usage of <b>Inter::Constant::verify</b>:<br><a href="#SP1">&#167;1</a></span></button></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="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-vi.html#SP1">Inter::Verify::defn</a></span><span class="plain">(</span><span class="identifier">owner</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="constant">DEFN_CONST_IFLD</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="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-vi.html#SP1">Inter::Verify::symbol</a></span><span class="plain">(</span><span class="identifier">owner</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">KIND_CONST_IFLD</span><span class="plain">], </span><span class="constant">KIND_IST</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="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">con_kind</span><span class="plain"> = </span><span class="functiontext"><a href="2-st.html#SP6">Inter::SymbolsTables::symbol_from_id</a></span><span class="plain">(</span><span class="functiontext"><a href="2-pck.html#SP3">Inter::Packages::scope</a></span><span class="plain">(</span><span class="identifier">owner</span><span class="plain">), </span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">KIND_CONST_IFLD</span><span class="plain">]);</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="identifier">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">FORMAT_CONST_IFLD</span><span class="plain">]) {</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_DIRECT:</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">extent</span><span class="plain"> != </span><span class="constant">DATA_CONST_IFLD</span><span class="plain"> + </span><span class="constant">2</span><span class="plain">) { *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"extent wrong"</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="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-vi.html#SP1">Inter::Verify::value</a></span><span class="plain">(</span><span class="identifier">owner</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="constant">DATA_CONST_IFLD</span><span class="plain">, </span><span class="identifier">con_kind</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="reserved">break</span><span class="plain">;</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_SUM_LIST:</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_PRODUCT_LIST:</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_DIFFERENCE_LIST:</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_QUOTIENT_LIST:</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="identifier">extent</span><span class="plain"> % </span><span class="constant">2</span><span class="plain">) != </span><span class="constant">1</span><span class="plain">) { *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"extent wrong"</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="reserved">for</span><span class="plain"> (</span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">=</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">&lt;</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="identifier">W</span><span class="plain">.</span><span class="element">extent</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">=</span><span class="identifier">i</span><span class="plain">+2) {</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-vi.html#SP1">Inter::Verify::value</a></span><span class="plain">(</span><span class="identifier">owner</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">i</span><span class="plain">, </span><span class="identifier">con_kind</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="plain">}</span>
<span class="reserved">break</span><span class="plain">;</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_INDIRECT_LIST:</span><span class="plain"> {</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="identifier">extent</span><span class="plain"> % </span><span class="constant">2</span><span class="plain">) != </span><span class="constant">1</span><span class="plain">) { *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"extent wrong"</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="reserved">inter_data_type</span><span class="plain"> *</span><span class="identifier">idt</span><span class="plain"> = </span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::data_type</a></span><span class="plain">(</span><span class="identifier">con_kind</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">idt</span><span class="plain">) &amp;&amp; ((</span><span class="identifier">idt</span><span class="plain">-&gt;</span><span class="element">type_ID</span><span class="plain"> == </span><span class="constant">LIST_IDT</span><span class="plain">) || (</span><span class="identifier">idt</span><span class="plain">-&gt;</span><span class="element">type_ID</span><span class="plain"> == </span><span class="constant">COLUMN_IDT</span><span class="plain">))) {</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">conts_kind</span><span class="plain"> = </span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::operand_symbol</a></span><span class="plain">(</span><span class="identifier">con_kind</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::is</a></span><span class="plain">(</span><span class="identifier">conts_kind</span><span class="plain">) == </span><span class="identifier">FALSE</span><span class="plain">) { *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"not a kind"</span><span class="plain">, (</span><span class="identifier">conts_kind</span><span class="plain">)?(</span><span class="identifier">conts_kind</span><span class="plain">-&gt;</span><span class="element">symbol_name</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="reserved">for</span><span class="plain"> (</span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">=</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">&lt;</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="identifier">W</span><span class="plain">.</span><span class="element">extent</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">=</span><span class="identifier">i</span><span class="plain">+2) {</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-vi.html#SP1">Inter::Verify::value</a></span><span class="plain">(</span><span class="identifier">owner</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">i</span><span class="plain">, </span><span class="identifier">conts_kind</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="plain">}</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">idt</span><span class="plain">) &amp;&amp; (</span><span class="identifier">idt</span><span class="plain">-&gt;</span><span class="element">type_ID</span><span class="plain"> == </span><span class="constant">TABLE_IDT</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">=</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">&lt;</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="identifier">W</span><span class="plain">.</span><span class="element">extent</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">=</span><span class="identifier">i</span><span class="plain">+2) {</span>
<span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">V1</span><span class="plain"> = </span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="identifier">i</span><span class="plain">];</span>
<span class="constant">inter_t</span><span class="plain"> </span><span class="identifier">V2</span><span class="plain"> = </span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="identifier">i</span><span class="plain">+1];</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">K</span><span class="plain"> = </span><span class="functiontext"><a href="3-idt.html#SP2">Inter::Types::value_to_constant_symbol_kind</a></span><span class="plain">(</span><span class="functiontext"><a href="2-pck.html#SP3">Inter::Packages::scope</a></span><span class="plain">(</span><span class="identifier">owner</span><span class="plain">), </span><span class="identifier">V1</span><span class="plain">, </span><span class="identifier">V2</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::constructor</a></span><span class="plain">(</span><span class="identifier">K</span><span class="plain">) != </span><span class="constant">COLUMN_ICON</span><span class="plain">) { *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"not a table column constant"</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="plain">}</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="plain">{ *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"not a list"</span><span class="plain">, </span><span class="identifier">con_kind</span><span class="plain">-&gt;</span><span class="element">symbol_name</span><span class="plain">); </span><span class="reserved">return</span><span class="plain">; }</span>
<span class="plain">}</span>
<span class="reserved">break</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_STRUCT:</span><span class="plain"> {</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="identifier">extent</span><span class="plain"> % </span><span class="constant">2</span><span class="plain">) != </span><span class="constant">1</span><span class="plain">) { *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"extent odd"</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="reserved">inter_data_type</span><span class="plain"> *</span><span class="identifier">idt</span><span class="plain"> = </span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::data_type</a></span><span class="plain">(</span><span class="identifier">con_kind</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">idt</span><span class="plain">) &amp;&amp; (</span><span class="identifier">idt</span><span class="plain">-&gt;</span><span class="element">type_ID</span><span class="plain"> == </span><span class="constant">STRUCT_IDT</span><span class="plain">)) {</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">arity</span><span class="plain"> = </span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::arity</a></span><span class="plain">(</span><span class="identifier">con_kind</span><span class="plain">);</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">given</span><span class="plain"> = (</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">extent</span><span class="plain"> - </span><span class="constant">DATA_CONST_IFLD</span><span class="plain">)/2;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">arity</span><span class="plain"> != </span><span class="identifier">given</span><span class="plain">) { *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"extent not same size as struct definition"</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="reserved">for</span><span class="plain"> (</span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">=</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">, </span><span class="identifier">counter</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">&lt;</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">extent</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">=</span><span class="identifier">i</span><span class="plain">+2) {</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">conts_kind</span><span class="plain"> = </span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::operand_symbol</a></span><span class="plain">(</span><span class="identifier">con_kind</span><span class="plain">, </span><span class="identifier">counter</span><span class="plain">++);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::is</a></span><span class="plain">(</span><span class="identifier">conts_kind</span><span class="plain">) == </span><span class="identifier">FALSE</span><span class="plain">) { *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"not a kind"</span><span class="plain">, (</span><span class="identifier">conts_kind</span><span class="plain">)?(</span><span class="identifier">conts_kind</span><span class="plain">-&gt;</span><span class="element">symbol_name</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="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="3-vi.html#SP1">Inter::Verify::value</a></span><span class="plain">(</span><span class="identifier">owner</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">i</span><span class="plain">, </span><span class="identifier">conts_kind</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="plain">}</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="plain">{ *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"not a struct"</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="plain">}</span>
<span class="reserved">break</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_INDIRECT_TEXT:</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">extent</span><span class="plain"> != </span><span class="constant">DATA_CONST_IFLD</span><span class="plain"> + </span><span class="constant">1</span><span class="plain">) { *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"extent wrong"</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="constant">inter_t</span><span class="plain"> </span><span class="identifier">ID</span><span class="plain"> = </span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">];</span>
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">S</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP3">Inter::Node::ID_to_text</a></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="reserved">if</span><span class="plain"> (</span><span class="identifier">S</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) { *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"no text in comment"</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="identifier">LOOP_THROUGH_TEXT</span><span class="plain">(</span><span class="identifier">pos</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext"><a href="#SP2">Inter::Constant::char_acceptable</a></span><span class="plain">(</span><span class="identifier">Str::get</span><span class="plain">(</span><span class="identifier">pos</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="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"bad character in text"</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="reserved">break</span><span class="plain">;</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_ROUTINE:</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">extent</span><span class="plain"> != </span><span class="constant">DATA_CONST_IFLD</span><span class="plain"> + </span><span class="constant">1</span><span class="plain">) { *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"extent wrong"</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="reserved">break</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::Constant::write<button class="popup" onclick="togglePopup('usagePopup393')">...<span class="popuptext" id="usagePopup393">Usage of <b>Inter::Constant::write</b>:<br><a href="#SP1">&#167;1</a></span></button></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">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_error_message</span><span class="plain"> **</span><span class="identifier">E</span><span class="plain">) {</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">con_name</span><span class="plain"> = </span><span class="functiontext"><a href="2-st.html#SP7">Inter::SymbolsTables::symbol_from_frame_data</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="constant">DEFN_CONST_IFLD</span><span class="plain">);</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">con_kind</span><span class="plain"> = </span><span class="functiontext"><a href="2-st.html#SP7">Inter::SymbolsTables::symbol_from_frame_data</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="constant">KIND_CONST_IFLD</span><span class="plain">);</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">hex</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="functiontext"><a href="2-ann.html#SP2">Inter::Annotations::find</a></span><span class="plain">(&amp;(</span><span class="identifier">con_name</span><span class="plain">-&gt;</span><span class="element">ann_set</span><span class="plain">), </span><span class="constant">HEX_IANN</span><span class="plain">)) </span><span class="identifier">hex</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">con_name</span><span class="plain">) &amp;&amp; (</span><span class="identifier">con_kind</span><span class="plain">)) {</span>
<span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"constant %S %S = "</span><span class="plain">, </span><span class="identifier">con_name</span><span class="plain">-&gt;</span><span class="element">symbol_name</span><span class="plain">, </span><span class="identifier">con_kind</span><span class="plain">-&gt;</span><span class="element">symbol_name</span><span class="plain">);</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="identifier">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">FORMAT_CONST_IFLD</span><span class="plain">]) {</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_DIRECT:</span>
<span class="functiontext"><a href="3-idt.html#SP3">Inter::Types::write</a></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="identifier">con_kind</span><span class="plain">,</span>
<span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">], </span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="identifier">data</span><span class="plain">[</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">+1], </span><span class="functiontext"><a href="2-pck.html#SP3">Inter::Packages::scope_of</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">), </span><span class="identifier">hex</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="identifier">CONSTANT_SUM_LIST:</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_PRODUCT_LIST:</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_DIFFERENCE_LIST:</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_QUOTIENT_LIST:</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_INDIRECT_LIST:</span><span class="plain"> {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">FORMAT_CONST_IFLD</span><span class="plain">] == </span><span class="constant">CONSTANT_SUM_LIST</span><span class="plain">) </span><span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"sum"</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">FORMAT_CONST_IFLD</span><span class="plain">] == </span><span class="constant">CONSTANT_PRODUCT_LIST</span><span class="plain">) </span><span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"product"</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">FORMAT_CONST_IFLD</span><span class="plain">] == </span><span class="constant">CONSTANT_DIFFERENCE_LIST</span><span class="plain">) </span><span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"difference"</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">FORMAT_CONST_IFLD</span><span class="plain">] == </span><span class="constant">CONSTANT_QUOTIENT_LIST</span><span class="plain">) </span><span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"quotient"</span><span class="plain">);</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">conts_kind</span><span class="plain"> = </span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::operand_symbol</a></span><span class="plain">(</span><span class="identifier">con_kind</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"{"</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">=</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">&lt;</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="identifier">W</span><span class="plain">.</span><span class="element">extent</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">=</span><span class="identifier">i</span><span class="plain">+2) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">i</span><span class="plain"> &gt; </span><span class="constant">DATA_CONST_IFLD</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">" "</span><span class="plain">);</span>
<span class="functiontext"><a href="3-idt.html#SP3">Inter::Types::write</a></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="identifier">conts_kind</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="identifier">i</span><span class="plain">], </span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="identifier">i</span><span class="plain">+1], </span><span class="functiontext"><a href="2-pck.html#SP3">Inter::Packages::scope_of</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">), </span><span class="identifier">hex</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">);</span>
<span class="reserved">break</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_STRUCT:</span><span class="plain"> {</span>
<span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"{"</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">=</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">, </span><span class="identifier">counter</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">&lt;</span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">extent</span><span class="plain">; </span><span class="identifier">i</span><span class="plain">=</span><span class="identifier">i</span><span class="plain">+2) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">i</span><span class="plain"> &gt; </span><span class="constant">DATA_CONST_IFLD</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">" "</span><span class="plain">);</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">conts_kind</span><span class="plain"> = </span><span class="functiontext"><a href="4-tkc.html#SP2">Inter::Kind::operand_symbol</a></span><span class="plain">(</span><span class="identifier">con_kind</span><span class="plain">, </span><span class="identifier">counter</span><span class="plain">++);</span>
<span class="functiontext"><a href="3-idt.html#SP3">Inter::Types::write</a></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="identifier">conts_kind</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="identifier">i</span><span class="plain">], </span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="identifier">i</span><span class="plain">+1], </span><span class="functiontext"><a href="2-pck.html#SP3">Inter::Packages::scope_of</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">), </span><span class="identifier">hex</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">);</span>
<span class="reserved">break</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">case</span><span class="plain"> </span><span class="identifier">CONSTANT_INDIRECT_TEXT:</span>
<span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"\""</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">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">];</span>
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">S</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP3">Inter::Node::ID_to_text</a></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="functiontext"><a href="#SP2">Inter::Constant::write_text</a></span><span class="plain">(</span><span class="identifier">OUT</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">);</span>
<span class="identifier">WRITE</span><span class="plain">(</span><span class="string">"\""</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="identifier">CONSTANT_ROUTINE:</span><span class="plain"> {</span>
<span class="reserved">inter_package</span><span class="plain"> *</span><span class="identifier">block</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP3">Inter::Node::ID_to_package</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">DATA_CONST_IFLD</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"><a href="2-pck.html#SP3">Inter::Packages::name</a></span><span class="plain">(</span><span class="identifier">block</span><span class="plain">));</span>
<span class="reserved">break</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="functiontext"><a href="2-sym.html#SP4">Inter::Symbols::write_annotations</a></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="identifier">con_name</span><span class="plain">);</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="plain">*</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext"><a href="2-in.html#SP6">Inter::Node::error</a></span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"constant can't be written"</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="plain">}</span>
<span class="plain">}</span>
<span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="functiontext">Inter::Constant::kind_of<button class="popup" onclick="togglePopup('usagePopup394')">...<span class="popuptext" id="usagePopup394">Usage of <b>Inter::Constant::kind_of</b>:<br>Inter Data Types - <a href="3-idt.html#SP2">&#167;2</a>, <a href="3-idt.html#SP3">&#167;3</a></span></button></span><span class="plain">(</span><span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">con_symbol</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">con_symbol</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="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">D</span><span class="plain"> = </span><span class="functiontext"><a href="2-sym.html#SP4">Inter::Symbols::definition</a></span><span class="plain">(</span><span class="identifier">con_symbol</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">D</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="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">D</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">ID_IFLD</span><span class="plain">] != </span><span class="constant">CONSTANT_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"><a href="2-st.html#SP7">Inter::SymbolsTables::symbol_from_frame_data</a></span><span class="plain">(</span><span class="identifier">D</span><span class="plain">, </span><span class="constant">KIND_CONST_IFLD</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">inter_package</span><span class="plain"> *</span><span class="functiontext">Inter::Constant::code_block<button class="popup" onclick="togglePopup('usagePopup395')">...<span class="popuptext" id="usagePopup395">Usage of <b>Inter::Constant::code_block</b>:<br>none</span></button></span><span class="plain">(</span><span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">con_symbol</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">con_symbol</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="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">D</span><span class="plain"> = </span><span class="functiontext"><a href="2-sym.html#SP4">Inter::Symbols::definition</a></span><span class="plain">(</span><span class="identifier">con_symbol</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">D</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="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">D</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">ID_IFLD</span><span class="plain">] != </span><span class="constant">CONSTANT_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">if</span><span class="plain"> (</span><span class="identifier">D</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">FORMAT_CONST_IFLD</span><span class="plain">] != </span><span class="constant">CONSTANT_ROUTINE</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"><a href="2-in.html#SP3">Inter::Node::ID_to_package</a></span><span class="plain">(</span><span class="identifier">D</span><span class="plain">, </span><span class="identifier">D</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">DATA_CONST_IFLD</span><span class="plain">]);</span>
<span class="plain">}</span>
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">Inter::Constant::is_routine<button class="popup" onclick="togglePopup('usagePopup396')">...<span class="popuptext" id="usagePopup396">Usage of <b>Inter::Constant::is_routine</b>:<br>The Inv Construct - <a href="5-tic.html#SP2">&#167;2</a></span></button></span><span class="plain">(</span><span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">con_symbol</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">con_symbol</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="identifier">FALSE</span><span class="plain">;</span>
<span class="reserved">inter_tree_node</span><span class="plain"> *</span><span class="identifier">D</span><span class="plain"> = </span><span class="functiontext"><a href="2-sym.html#SP4">Inter::Symbols::definition</a></span><span class="plain">(</span><span class="identifier">con_symbol</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">D</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="identifier">FALSE</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">D</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">ID_IFLD</span><span class="plain">] != </span><span class="constant">CONSTANT_IST</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">FALSE</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">D</span><span class="plain">-&gt;</span><span class="element">W</span><span class="plain">.</span><span class="element">data</span><span class="plain">[</span><span class="constant">FORMAT_CONST_IFLD</span><span class="plain">] != </span><span class="constant">CONSTANT_ROUTINE</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">FALSE</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">inter_symbols_table</span><span class="plain"> *</span><span class="functiontext">Inter::Constant::local_symbols<button class="popup" onclick="togglePopup('usagePopup397')">...<span class="popuptext" id="usagePopup397">Usage of <b>Inter::Constant::local_symbols</b>:<br>none</span></button></span><span class="plain">(</span><span class="reserved">inter_symbol</span><span class="plain"> *</span><span class="identifier">con_symbol</span><span class="plain">) {</span>
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext"><a href="2-pck.html#SP3">Inter::Packages::scope</a></span><span class="plain">(</span><span class="functiontext"><a href="#SP2">Inter::Constant::code_block</a></span><span class="plain">(</span><span class="identifier">con_symbol</span><span class="plain">));</span>
<span class="plain">}</span>
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">Inter::Constant::char_acceptable<button class="popup" onclick="togglePopup('usagePopup398')">...<span class="popuptext" id="usagePopup398">Usage of <b>Inter::Constant::char_acceptable</b>:<br>The Pragma Construct - <a href="4-tpc.html#SP2">&#167;2</a></span></button></span><span class="plain">(</span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">c</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">c</span><span class="plain"> &lt; </span><span class="constant">0x20</span><span class="plain">) &amp;&amp; (</span><span class="identifier">c</span><span class="plain"> != </span><span class="constant">0x09</span><span class="plain">) &amp;&amp; (</span><span class="identifier">c</span><span class="plain"> != </span><span class="constant">0x0a</span><span class="plain">)) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">FALSE</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="plain">}</span>
</pre>
<p class="inwebparagraph"></p>
<hr class="tocbar">
<ul class="toc"><li><a href="4-tvc2.html">Back to 'The Variable Construct'</a></li><li><a href="4-trc.html">Continue with 'The Response Construct'</a></li></ul><hr class="tocbar">
<!--End of weave-->
<script>
function togglePopup(material_id) {
var popup = document.getElementById(material_id);
popup.classList.toggle("show");
}
</script>
<link href="Popups.css" rel="stylesheet" rev="stylesheet" type="text/css">
</main>
</body>
</html>
Reference in a new issue View git blame Copy permalink