mirror of
https://github.com/ganelson/inform.git
synced 2024-07-08 18:14:21 +03:00
734 lines
138 KiB
HTML
734 lines
138 KiB
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
|
|
<html>
|
|
<head>
|
|
<title>2/is</title>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
|
<meta http-equiv="Content-Language" content="en-gb">
|
|
<link href="inweb.css" rel="stylesheet" rev="stylesheet" type="text/css">
|
|
</head>
|
|
<body>
|
|
|
|
<!--Weave of '2/eis' generated by 7-->
|
|
<ul class="crumbs"><li><a href="../webs.html">★</a></li><li><a href="index.html">building</a></li><li><a href="index.html#2">Chapter 2: Blueprints</a></li><li><b>Emitting Inter Schemas</b></li></ul><p class="inwebparagraph"><a id="SP1"></a><b>§1. Compilation. </b></p>
|
|
|
|
|
|
<pre class="display">
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">EmitInterSchemas::emit</span><span class="plain">(</span><span class="identifier">inter_tree</span><span class="plain"> *</span><span class="identifier">I</span><span class="plain">, </span><span class="reserved">value_holster</span><span class="plain"> *</span><span class="identifier">VH</span><span class="plain">, </span><span class="reserved">inter_schema</span><span class="plain"> *</span><span class="identifier">sch</span><span class="plain">, </span><span class="reserved">void</span><span class="plain"> *</span><span class="identifier">opaque_state</span><span class="plain">,</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">to_code</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">to_val</span><span class="plain">, </span><span class="identifier">inter_symbols_table</span><span class="plain"> *</span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">inter_symbols_table</span><span class="plain"> *</span><span class="identifier">second_call</span><span class="plain">,</span>
|
|
<span class="reserved">void</span><span class="plain"> (*</span><span class="identifier">inline_command_handler</span><span class="plain">)(</span><span class="reserved">value_holster</span><span class="plain"> *</span><span class="identifier">VH</span><span class="plain">, </span><span class="reserved">inter_schema_token</span><span class="plain"> *</span><span class="identifier">t</span><span class="plain">, </span><span class="reserved">void</span><span class="plain"> *</span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">prim_cat</span><span class="plain">),</span>
|
|
<span class="reserved">void</span><span class="plain"> (*</span><span class="identifier">i7_source_handler</span><span class="plain">)(</span><span class="reserved">value_holster</span><span class="plain"> *</span><span class="identifier">VH</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">OUT</span><span class="plain">, </span><span class="identifier">text_stream</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">sch</span><span class="plain">-</span><span class="element">>mid_case</span><span class="plain">) { </span><span class="functiontext">Produce::to_last_level</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, 4); }</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">prim_cat</span><span class="plain"> = </span><span class="identifier">VAL_PRIM_CAT</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">to_code</span><span class="plain">) </span><span class="identifier">prim_cat</span><span class="plain"> = </span><span class="identifier">CODE_PRIM_CAT</span><span class="plain">;</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">again</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">again</span><span class="plain">) {</span>
|
|
<span class="identifier">again</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">;</span>
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">isn</span><span class="plain"> = </span><span class="identifier">sch</span><span class="plain">-</span><span class="element">>node_tree</span><span class="plain">; </span><span class="identifier">isn</span><span class="plain">; </span><span class="identifier">isn</span><span class="plain">=</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">)</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext">EmitInterSchemas::process_conditionals</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">isn</span><span class="plain">, </span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">))</span>
|
|
<span class="identifier">again</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">isn</span><span class="plain"> = </span><span class="identifier">sch</span><span class="plain">-</span><span class="element">>node_tree</span><span class="plain">; </span><span class="identifier">isn</span><span class="plain">; </span><span class="identifier">isn</span><span class="plain">=</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">)</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">isn</span><span class="plain">, </span><span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">prim_cat</span><span class="plain">, </span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">, </span><span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function EmitInterSchemas::emit appears nowhere else.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP2"></a><b>§2. </b></p>
|
|
|
|
|
|
<pre class="display">
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">EmitInterSchemas::process_conditionals</span><span class="plain">(</span><span class="identifier">inter_tree</span><span class="plain"> *</span><span class="identifier">I</span><span class="plain">, </span><span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">isn</span><span class="plain">, </span><span class="identifier">inter_symbols_table</span><span class="plain"> *</span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">inter_symbols_table</span><span class="plain"> *</span><span class="identifier">second_call</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">isn</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">isn</span><span class="plain">-</span><span class="element">>blocked_by_conditional</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">isn</span><span class="plain">-</span><span class="element">>isn_type</span><span class="plain"> == </span><span class="constant">DIRECTIVE_ISNT</span><span class="plain">) </span><<span class="cwebmacro">Directive</span> <span class="cwebmacronumber">2.1</span>><span class="plain">;</span>
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">isn</span><span class="plain">=</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">; </span><span class="identifier">isn</span><span class="plain">; </span><span class="identifier">isn</span><span class="plain">=</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">)</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext">EmitInterSchemas::process_conditionals</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">isn</span><span class="plain">, </span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</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="reserved">return</span><span class="plain"> </span><span class="identifier">FALSE</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function EmitInterSchemas::process_conditionals is used in <a href="#SP1">§1</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP2_1"></a><b>§2.1. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Directive</span> <span class="cwebmacronumber">2.1</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFDEF_I6RW</span><span class="plain">) ||</span>
|
|
<span class="plain">(</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFNDEF_I6RW</span><span class="plain">) ||</span>
|
|
<span class="plain">(</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFTRUE_I6RW</span><span class="plain">) ||</span>
|
|
<span class="plain">(</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFFALSE_I6RW</span><span class="plain">)) {</span>
|
|
<span class="identifier">LOGIF</span><span class="plain">(</span><span class="identifier">SCHEMA_COMPILATION</span><span class="plain">, </span><span class="string">"Conditional directive in schema!\</span><span class="plain">n</span><span class="string">"</span><span class="plain">);</span>
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">ifnot_node</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">, *</span><span class="identifier">endif_node</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">;</span>
|
|
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">at</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">at</span><span class="plain">-</span><span class="element">>blocked_by_conditional</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">at</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFDEF_I6RW</span><span class="plain">) { </span><span class="identifier">isn</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">; </span><span class="identifier">ifnot_node</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">at</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFNDEF_I6RW</span><span class="plain">) { </span><span class="identifier">isn</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">; </span><span class="identifier">ifnot_node</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">at</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFTRUE_I6RW</span><span class="plain">) { </span><span class="identifier">isn</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">; </span><span class="identifier">ifnot_node</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">at</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFFALSE_I6RW</span><span class="plain">) { </span><span class="identifier">isn</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">; </span><span class="identifier">ifnot_node</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">at</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFNOT_I6RW</span><span class="plain">) </span><span class="identifier">ifnot_node</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">at</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">ENDIF_I6RW</span><span class="plain">) { </span><span class="identifier">endif_node</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">; </span><span class="reserved">break</span><span class="plain">; }</span>
|
|
<span class="plain">}</span>
|
|
<span class="identifier">at</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">endif_node</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"no matching #endif"</span><span class="plain">);</span>
|
|
|
|
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">symbol_to_check</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">value_to_check</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="identifier">inter_t</span><span class="plain"> </span><span class="identifier">operation_to_check</span><span class="plain"> = 0;</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFDEF_I6RW</span><span class="plain">) ||</span>
|
|
<span class="plain">(</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFNDEF_I6RW</span><span class="plain">)) {</span>
|
|
<span class="identifier">symbol_to_check</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">-</span><span class="element">>expression_tokens</span><span class="plain">-</span><span class="element">>material</span><span class="plain">;</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">to_eval</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">;</span>
|
|
<span class="reserved">while</span><span class="plain"> ((</span><span class="identifier">to_eval</span><span class="plain">) && (</span><span class="identifier">to_eval</span><span class="plain">-</span><span class="element">>isn_type</span><span class="plain"> == </span><span class="constant">SUBEXPRESSION_ISNT</span><span class="plain">))</span>
|
|
<span class="identifier">to_eval</span><span class="plain"> = </span><span class="identifier">to_eval</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">to_eval</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) || (</span><span class="identifier">to_eval</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">-</span><span class="element">>expression_tokens</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">))</span>
|
|
<span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"bad iftrue"</span><span class="plain">);</span>
|
|
<span class="identifier">symbol_to_check</span><span class="plain"> = </span><span class="identifier">to_eval</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">-</span><span class="element">>expression_tokens</span><span class="plain">-</span><span class="element">>material</span><span class="plain">;</span>
|
|
<span class="identifier">operation_to_check</span><span class="plain"> = </span><span class="identifier">to_eval</span><span class="plain">-</span><span class="element">>isn_clarifier</span><span class="plain">;</span>
|
|
<span class="identifier">value_to_check</span><span class="plain"> = </span><span class="identifier">to_eval</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">-</span><span class="element">>expression_tokens</span><span class="plain">-</span><span class="element">>material</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="identifier">LOGIF</span><span class="plain">(</span><span class="identifier">SCHEMA_COMPILATION</span><span class="plain">, </span><span class="string">"Means checking %S\</span><span class="plain">n</span><span class="string">"</span><span class="plain">, </span><span class="identifier">symbol_to_check</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">value_to_check</span><span class="plain">) </span><span class="identifier">LOGIF</span><span class="plain">(</span><span class="identifier">SCHEMA_COMPILATION</span><span class="plain">, </span><span class="string">"Against %S\</span><span class="plain">n</span><span class="string">"</span><span class="plain">, </span><span class="identifier">value_to_check</span><span class="plain">);</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">val</span><span class="plain"> = -1, </span><span class="identifier">def</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">Str::eq</span><span class="plain">(</span><span class="identifier">symbol_to_check</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"#version_number"</span><span class="plain">)) { </span><span class="identifier">val</span><span class="plain"> = 8; </span><span class="identifier">def</span><span class="plain"> = </span><span class="identifier">TRUE</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">Str::eq</span><span class="plain">(</span><span class="identifier">symbol_to_check</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"STRICT_MODE"</span><span class="plain">)) { </span><span class="identifier">def</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">; }</span>
|
|
<span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="identifier">inter_symbol</span><span class="plain"> *</span><span class="identifier">symb</span><span class="plain"> = </span><span class="functiontext">EmitInterSchemas::find_identifier_text</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">symbol_to_check</span><span class="plain">,</span>
|
|
<span class="identifier">Inter::Packages::scope</span><span class="plain">(</span><span class="functiontext">Packaging::incarnate</span><span class="plain">(</span><span class="functiontext">Site::veneer_request</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">))),</span>
|
|
<span class="identifier">second_call</span><span class="plain">);</span>
|
|
<span class="reserved">while</span><span class="plain"> ((</span><span class="identifier">symb</span><span class="plain">) && (</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">equated_to</span><span class="plain">)) </span><span class="identifier">symb</span><span class="plain"> = </span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">equated_to</span><span class="plain">;</span>
|
|
<span class="identifier">LOGIF</span><span class="plain">(</span><span class="identifier">SCHEMA_COMPILATION</span><span class="plain">, </span><span class="string">"Symb is $3\</span><span class="plain">n</span><span class="string">"</span><span class="plain">, </span><span class="identifier">symb</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Inter::Symbols::is_defined</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">)) {</span>
|
|
<span class="identifier">def</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="identifier">val</span><span class="plain"> = </span><span class="identifier">Inter::Symbols::evaluate_to_int</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="plain">}</span>
|
|
<span class="identifier">LOGIF</span><span class="plain">(</span><span class="identifier">SCHEMA_COMPILATION</span><span class="plain">, </span><span class="string">"Defined: %d, value: %d\</span><span class="plain">n</span><span class="string">"</span><span class="plain">, </span><span class="identifier">def</span><span class="plain">, </span><span class="identifier">val</span><span class="plain">);</span>
|
|
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">decision</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">isn</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFNDEF_I6RW</span><span class="plain">)</span>
|
|
<span class="plain">|| (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFDEF_I6RW</span><span class="plain">)) </span><span class="identifier">decision</span><span class="plain"> = </span><span class="identifier">def</span><span class="plain">;</span>
|
|
<span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">h</span><span class="plain"> = </span><span class="identifier">Str::atoi</span><span class="plain">(</span><span class="identifier">value_to_check</span><span class="plain">, 0);</span>
|
|
<span class="identifier">LOGIF</span><span class="plain">(</span><span class="identifier">SCHEMA_COMPILATION</span><span class="plain">, </span><span class="string">"Want value %d\</span><span class="plain">n</span><span class="string">"</span><span class="plain">, </span><span class="identifier">h</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">operation_to_check</span><span class="plain"> == </span><span class="constant">EQ_BIP</span><span class="plain">) </span><span class="identifier">decision</span><span class="plain"> = (</span><span class="identifier">val</span><span class="plain"> == </span><span class="identifier">h</span><span class="plain">)?</span><span class="identifier">TRUE</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">operation_to_check</span><span class="plain"> == </span><span class="constant">NE_BIP</span><span class="plain">) </span><span class="identifier">decision</span><span class="plain"> = (</span><span class="identifier">val</span><span class="plain"> != </span><span class="identifier">h</span><span class="plain">)?</span><span class="identifier">TRUE</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">operation_to_check</span><span class="plain"> == </span><span class="constant">GE_BIP</span><span class="plain">) </span><span class="identifier">decision</span><span class="plain"> = (</span><span class="identifier">val</span><span class="plain"> >= </span><span class="identifier">h</span><span class="plain">)?</span><span class="identifier">TRUE</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">operation_to_check</span><span class="plain"> == </span><span class="constant">GT_BIP</span><span class="plain">) </span><span class="identifier">decision</span><span class="plain"> = (</span><span class="identifier">val</span><span class="plain"> > </span><span class="identifier">h</span><span class="plain">)?</span><span class="identifier">TRUE</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">operation_to_check</span><span class="plain"> == </span><span class="constant">LE_BIP</span><span class="plain">) </span><span class="identifier">decision</span><span class="plain"> = (</span><span class="identifier">val</span><span class="plain"> <= </span><span class="identifier">h</span><span class="plain">)?</span><span class="identifier">TRUE</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">operation_to_check</span><span class="plain"> == </span><span class="constant">LT_BIP</span><span class="plain">) </span><span class="identifier">decision</span><span class="plain"> = (</span><span class="identifier">val</span><span class="plain"> < </span><span class="identifier">h</span><span class="plain">)?</span><span class="identifier">TRUE</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">isn</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFNDEF_I6RW</span><span class="plain">) </span><span class="identifier">decision</span><span class="plain"> = </span><span class="identifier">decision</span><span class="plain">?</span><span class="identifier">FALSE</span><span class="plain">:</span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>dir_clarifier</span><span class="plain"> == </span><span class="constant">IFFALSE_I6RW</span><span class="plain">) </span><span class="identifier">decision</span><span class="plain"> = </span><span class="identifier">decision</span><span class="plain">?</span><span class="identifier">FALSE</span><span class="plain">:</span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="identifier">isn</span><span class="plain">-</span><span class="element">>blocked_by_conditional</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="identifier">endif_node</span><span class="plain">-</span><span class="element">>blocked_by_conditional</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">ifnot_node</span><span class="plain">) </span><span class="identifier">ifnot_node</span><span class="plain">-</span><span class="element">>blocked_by_conditional</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">decision</span><span class="plain">) {</span>
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">ifnot_node</span><span class="plain">;</span>
|
|
<span class="reserved">while</span><span class="plain"> ((</span><span class="identifier">at</span><span class="plain">) && (</span><span class="identifier">at</span><span class="plain"> != </span><span class="identifier">endif_node</span><span class="plain">)) {</span>
|
|
<span class="identifier">at</span><span class="plain">-</span><span class="element">>blocked_by_conditional</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="identifier">at</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</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">inter_schema_node</span><span class="plain"> *</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">;</span>
|
|
<span class="reserved">while</span><span class="plain"> ((</span><span class="identifier">at</span><span class="plain">) && (</span><span class="identifier">at</span><span class="plain"> != </span><span class="identifier">endif_node</span><span class="plain">) && (</span><span class="identifier">at</span><span class="plain"> != </span><span class="identifier">ifnot_node</span><span class="plain">)) {</span>
|
|
<span class="identifier">at</span><span class="plain">-</span><span class="element">>blocked_by_conditional</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="identifier">at</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</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">Log::aspect_switched_on</span><span class="plain">(</span><span class="constant">SCHEMA_COMPILATION_DA</span><span class="plain">)) {</span>
|
|
<span class="identifier">LOG</span><span class="plain">(</span><span class="string">"--- Resulting in: ---\</span><span class="plain">n</span><span class="string">"</span><span class="plain">);</span>
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">; </span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">)</span>
|
|
<span class="functiontext">InterSchemas::log_just</span><span class="plain">(</span><span class="identifier">at</span><span class="plain">, 0);</span>
|
|
<span class="identifier">LOG</span><span class="plain">(</span><span class="string">"------\</span><span class="plain">n</span><span class="string">"</span><span class="plain">);</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>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP2">§2</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3"></a><b>§3. </b></p>
|
|
|
|
|
|
<pre class="display">
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">inter_tree</span><span class="plain"> *</span><span class="identifier">I</span><span class="plain">, </span><span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">isn</span><span class="plain">, </span><span class="reserved">value_holster</span><span class="plain"> *</span><span class="identifier">VH</span><span class="plain">,</span>
|
|
<span class="reserved">inter_schema</span><span class="plain"> *</span><span class="identifier">sch</span><span class="plain">, </span><span class="reserved">void</span><span class="plain"> *</span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">prim_cat</span><span class="plain">, </span><span class="identifier">inter_symbols_table</span><span class="plain"> *</span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">inter_symbols_table</span><span class="plain"> *</span><span class="identifier">second_call</span><span class="plain">,</span>
|
|
<span class="reserved">void</span><span class="plain"> (*</span><span class="identifier">inline_command_handler</span><span class="plain">)(</span><span class="reserved">value_holster</span><span class="plain"> *</span><span class="identifier">VH</span><span class="plain">, </span><span class="reserved">inter_schema_token</span><span class="plain"> *</span><span class="identifier">t</span><span class="plain">, </span><span class="reserved">void</span><span class="plain"> *</span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">prim_cat</span><span class="plain">),</span>
|
|
<span class="reserved">void</span><span class="plain"> (*</span><span class="identifier">i7_source_handler</span><span class="plain">)(</span><span class="reserved">value_holster</span><span class="plain"> *</span><span class="identifier">VH</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">OUT</span><span class="plain">, </span><span class="identifier">text_stream</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">isn</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">if</span><span class="plain"> (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>blocked_by_conditional</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
|
|
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>isn_type</span><span class="plain">) {</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">LABEL_ISNT</span><span class="plain">: </span><<span class="cwebmacro">Label</span> <span class="cwebmacronumber">3.1</span>><span class="plain">; </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">CODE_ISNT</span><span class="plain">: </span><<span class="cwebmacro">Code block</span> <span class="cwebmacronumber">3.2</span>><span class="plain">; </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">EVAL_ISNT</span><span class="plain">: </span><<span class="cwebmacro">Eval block</span> <span class="cwebmacronumber">3.7</span>><span class="plain">; </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">EXPRESSION_ISNT</span><span class="plain">: </span><<span class="cwebmacro">Expression</span> <span class="cwebmacronumber">3.11</span>><span class="plain">; </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">SUBEXPRESSION_ISNT</span><span class="plain">: </span><<span class="cwebmacro">Subexpression</span> <span class="cwebmacronumber">3.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="constant">STATEMENT_ISNT</span><span class="plain">: </span><<span class="cwebmacro">Statement</span> <span class="cwebmacronumber">3.10</span>><span class="plain">; </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">OPERATION_ISNT</span><span class="plain">: </span><<span class="cwebmacro">Operation</span> <span class="cwebmacronumber">3.8</span>><span class="plain">; </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">ASSEMBLY_ISNT</span><span class="plain">: </span><<span class="cwebmacro">Assembly</span> <span class="cwebmacronumber">3.3</span>><span class="plain">; </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">CALL_ISNT</span><span class="plain">: </span><<span class="cwebmacro">Call</span> <span class="cwebmacronumber">3.4</span>><span class="plain">; </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">MESSAGE_ISNT</span><span class="plain">: </span><<span class="cwebmacro">Message</span> <span class="cwebmacronumber">3.5</span>><span class="plain">; </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">CALLMESSAGE_ISNT</span><span class="plain">: </span><<span class="cwebmacro">Call-message</span> <span class="cwebmacronumber">3.6</span>><span class="plain">; </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">DIRECTIVE_ISNT</span><span class="plain">: </span><<span class="cwebmacro">Non-conditional directive</span> <span class="cwebmacronumber">3.12</span>><span class="plain">; </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">default</span><span class="plain">: </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"unknown schema node type"</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function EmitInterSchemas::emit_inner is used in <a href="#SP1">§1</a>, <a href="#SP3_2">§3.2</a>, <a href="#SP3_3">§3.3</a>, <a href="#SP3_4">§3.4</a>, <a href="#SP3_5">§3.5</a>, <a href="#SP3_6">§3.6</a>, <a href="#SP3_7">§3.7</a>, <a href="#SP3_8">§3.8</a>, <a href="#SP3_9">§3.9</a>, <a href="#SP3_10">§3.10</a>, <a href="#SP3_10_1">§3.10.1</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_1"></a><b>§3.1. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Label</span> <span class="cwebmacronumber">3.1</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">prim_cat</span><span class="plain"> != </span><span class="identifier">CODE_PRIM_CAT</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"label outside code"</span><span class="plain">);</span>
|
|
<span class="identifier">TEMPORARY_TEXT</span><span class="plain">(</span><span class="identifier">L</span><span class="plain">);</span>
|
|
<span class="identifier">WRITE_TO</span><span class="plain">(</span><span class="identifier">L</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">inter_schema_node</span><span class="plain"> *</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">=</span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">) {</span>
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">inter_schema_token</span><span class="plain"> *</span><span class="identifier">t</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">-</span><span class="element">>expression_tokens</span><span class="plain">; </span><span class="identifier">t</span><span class="plain">; </span><span class="identifier">t</span><span class="plain">=</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>next</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>ist_type</span><span class="plain"> == </span><span class="constant">IDENTIFIER_ISTT</span><span class="plain">)</span>
|
|
<span class="identifier">WRITE_TO</span><span class="plain">(</span><span class="identifier">L</span><span class="plain">, </span><span class="string">"%S"</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</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">t</span><span class="plain">-</span><span class="element">>ist_type</span><span class="plain"> == </span><span class="constant">INLINE_ISTT</span><span class="plain">) && (</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>inline_command</span><span class="plain"> == </span><span class="constant">label_ISINC</span><span class="plain">)) {</span>
|
|
<span class="plain">#</span><span class="identifier">ifdef</span><span class="plain"> </span><span class="identifier">CORE_MODULE</span>
|
|
<span class="identifier">JumpLabels::write</span><span class="plain">(</span><span class="identifier">L</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">-</span><span class="element">>operand</span><span class="plain">);</span>
|
|
<span class="plain">#</span><span class="identifier">endif</span>
|
|
<span class="plain">#</span><span class="identifier">ifndef</span><span class="plain"> </span><span class="identifier">CORE_MODULE</span>
|
|
<span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"label namespaces are unavailable in assimilation mode"</span><span class="plain">);</span>
|
|
<span class="plain">#</span><span class="identifier">endif</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">t</span><span class="plain">-</span><span class="element">>ist_type</span><span class="plain"> == </span><span class="constant">INLINE_ISTT</span><span class="plain">) &&</span>
|
|
<span class="plain">((</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>inline_command</span><span class="plain"> == </span><span class="constant">counter_up_ISINC</span><span class="plain">) || (</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>inline_command</span><span class="plain"> == </span><span class="constant">counter_down_ISINC</span><span class="plain">))) {</span>
|
|
<span class="reserved">value_holster</span><span class="plain"> </span><span class="identifier">VN</span><span class="plain"> = </span><span class="functiontext">Holsters::new</span><span class="plain">(</span><span class="constant">INTER_DATA_VHMODE</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">inline_command_handler</span><span class="plain">)</span>
|
|
<span class="plain">(*</span><span class="identifier">inline_command_handler</span><span class="plain">)(&</span><span class="identifier">VN</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">VAL_PRIM_CAT</span><span class="plain">);</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"bad label stuff"</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="plain">}</span>
|
|
<span class="functiontext">Produce::place_label</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="functiontext">Produce::reserve_label</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">L</span><span class="plain">));</span>
|
|
<span class="identifier">DISCARD_TEXT</span><span class="plain">(</span><span class="identifier">L</span><span class="plain">);</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_2"></a><b>§3.2. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Code block</span> <span class="cwebmacronumber">3.2</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">prim_cat</span><span class="plain"> != </span><span class="identifier">CODE_PRIM_CAT</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"code block in expression"</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>unopened</span><span class="plain"> == </span><span class="identifier">FALSE</span><span class="plain">) {</span>
|
|
<span class="functiontext">Produce::code</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::down</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">=</span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">)</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">at</span><span class="plain">,</span>
|
|
<span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">CODE_PRIM_CAT</span><span class="plain">, </span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">,</span>
|
|
<span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>unclosed</span><span class="plain"> == </span><span class="identifier">FALSE</span><span class="plain">) {</span>
|
|
<span class="functiontext">Produce::up</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>unopened</span><span class="plain">) </span><span class="functiontext">Produce::to_last_level</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, 0);</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_3"></a><b>§3.3. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Assembly</span> <span class="cwebmacronumber">3.3</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">prim_cat</span><span class="plain"> != </span><span class="identifier">CODE_PRIM_CAT</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"assembly in expression"</span><span class="plain">);</span>
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">at</span><span class="plain">) {</span>
|
|
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">opcode_text</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">at</span><span class="plain">-</span><span class="element">>isn_type</span><span class="plain"> == </span><span class="constant">EXPRESSION_ISNT</span><span class="plain">) {</span>
|
|
<span class="reserved">inter_schema_token</span><span class="plain"> *</span><span class="identifier">tok</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">-</span><span class="element">>expression_tokens</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">tok</span><span class="plain">-</span><span class="element">>ist_type</span><span class="plain"> == </span><span class="constant">OPCODE_ISTT</span><span class="plain">) && (</span><span class="identifier">tok</span><span class="plain">-</span><span class="element">>next</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">))</span>
|
|
<span class="identifier">opcode_text</span><span class="plain"> = </span><span class="identifier">tok</span><span class="plain">-</span><span class="element">>material</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">opcode_text</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"assembly malformed"</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::inv_assembly</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">opcode_text</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::down</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">=</span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">)</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">at</span><span class="plain">, </span><span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">,</span>
|
|
<span class="identifier">VAL_PRIM_CAT</span><span class="plain">, </span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">,</span>
|
|
<span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::up</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_4"></a><b>§3.4. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Call</span> <span class="cwebmacronumber">3.4</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">) {</span>
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">;</span>
|
|
<span class="identifier">inter_symbol</span><span class="plain"> *</span><span class="identifier">to_call</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">at</span><span class="plain">-</span><span class="element">>isn_type</span><span class="plain"> == </span><span class="constant">EXPRESSION_ISNT</span><span class="plain">) {</span>
|
|
<span class="reserved">inter_schema_token</span><span class="plain"> *</span><span class="identifier">tok</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">-</span><span class="element">>expression_tokens</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">tok</span><span class="plain">-</span><span class="element">>ist_type</span><span class="plain"> == </span><span class="constant">IDENTIFIER_ISTT</span><span class="plain">) && (</span><span class="identifier">tok</span><span class="plain">-</span><span class="element">>next</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">)) {</span>
|
|
<span class="identifier">to_call</span><span class="plain"> = </span><span class="functiontext">EmitInterSchemas::find_identifier</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">tok</span><span class="plain">, </span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Inter::Symbols::is_local</span><span class="plain">(</span><span class="identifier">to_call</span><span class="plain">)) </span><span class="identifier">to_call</span><span class="plain"> = </span><span class="identifier">NULL</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">to_call</span><span class="plain">) {</span>
|
|
<span class="functiontext">Produce::inv_call</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">to_call</span><span class="plain">);</span>
|
|
<span class="identifier">at</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">;</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">argc</span><span class="plain"> = 0;</span>
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">n</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">; </span><span class="identifier">n</span><span class="plain">; </span><span class="identifier">n</span><span class="plain">=</span><span class="identifier">n</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">n</span><span class="plain">-</span><span class="element">>expression_tokens</span><span class="plain">) && (</span><span class="identifier">n</span><span class="plain">-</span><span class="element">>expression_tokens</span><span class="plain">-</span><span class="element">>inline_command</span><span class="plain"> == </span><span class="constant">combine_ISINC</span><span class="plain">)) </span><span class="identifier">argc</span><span class="plain">++;</span>
|
|
<span class="identifier">argc</span><span class="plain">++;</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">argc</span><span class="plain">) {</span>
|
|
<span class="reserved">case</span><span class="plain"> 1: </span><span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">INDIRECT0_BIP</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 2: </span><span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">INDIRECT1_BIP</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 3: </span><span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">INDIRECT2_BIP</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 4: </span><span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">INDIRECT3_BIP</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 5: </span><span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">INDIRECT4_BIP</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">default</span><span class="plain">: </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"too many args for indirect call"</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">Produce::down</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="reserved">for</span><span class="plain"> (; </span><span class="identifier">at</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">=</span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">)</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">at</span><span class="plain">,</span>
|
|
<span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">VAL_PRIM_CAT</span><span class="plain">,</span>
|
|
<span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">, </span><span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::up</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_5"></a><b>§3.5. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Message</span> <span class="cwebmacronumber">3.5</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">) {</span>
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">;</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">argc</span><span class="plain"> = 0;</span>
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">n</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">; </span><span class="identifier">n</span><span class="plain">; </span><span class="identifier">n</span><span class="plain">=</span><span class="identifier">n</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">) </span><span class="identifier">argc</span><span class="plain">++;</span>
|
|
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">argc</span><span class="plain">) {</span>
|
|
<span class="reserved">case</span><span class="plain"> 2: </span><span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">MESSAGE0_BIP</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 3: </span><span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">MESSAGE1_BIP</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 4: </span><span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">MESSAGE2_BIP</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 5: </span><span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">MESSAGE3_BIP</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">default</span><span class="plain">: </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"too many args for message"</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="functiontext">Produce::down</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="reserved">for</span><span class="plain"> (; </span><span class="identifier">at</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">=</span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">)</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">at</span><span class="plain">,</span>
|
|
<span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">VAL_PRIM_CAT</span><span class="plain">,</span>
|
|
<span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">, </span><span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::up</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_6"></a><b>§3.6. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Call-message</span> <span class="cwebmacronumber">3.6</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">) {</span>
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">;</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">argc</span><span class="plain"> = 0;</span>
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">n</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">; </span><span class="identifier">n</span><span class="plain">; </span><span class="identifier">n</span><span class="plain">=</span><span class="identifier">n</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">) </span><span class="identifier">argc</span><span class="plain">++;</span>
|
|
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">argc</span><span class="plain">) {</span>
|
|
<span class="reserved">case</span><span class="plain"> 1: </span><span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">CALLMESSAGE0_BIP</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 2: </span><span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">CALLMESSAGE1_BIP</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 3: </span><span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">CALLMESSAGE2_BIP</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 4: </span><span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">CALLMESSAGE3_BIP</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">default</span><span class="plain">: </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"too many args for call-message"</span><span class="plain">); </span><span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="functiontext">Produce::down</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="reserved">for</span><span class="plain"> (; </span><span class="identifier">at</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">=</span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">)</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">at</span><span class="plain">,</span>
|
|
<span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">VAL_PRIM_CAT</span><span class="plain">,</span>
|
|
<span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">, </span><span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::up</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_7"></a><b>§3.7. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Eval block</span> <span class="cwebmacronumber">3.7</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">prim_cat</span><span class="plain"> != </span><span class="identifier">CODE_PRIM_CAT</span><span class="plain">) && (</span><span class="identifier">prim_cat</span><span class="plain"> != </span><span class="identifier">VAL_PRIM_CAT</span><span class="plain">))</span>
|
|
<span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"eval block outside evaluation context"</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="functiontext">Produce::val</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</span><span class="plain">, </span><span class="identifier">LITERAL_IVAL</span><span class="plain">, 1);</span>
|
|
<span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">d</span><span class="plain"> = 0;</span>
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">=</span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">) {</span>
|
|
<span class="identifier">d</span><span class="plain">++;</span>
|
|
<span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">SEQUENTIAL_BIP</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::down</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">at</span><span class="plain">,</span>
|
|
<span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">VAL_PRIM_CAT</span><span class="plain">,</span>
|
|
<span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">, </span><span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">d</span><span class="plain"> > 0) { </span><span class="functiontext">Produce::up</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">); </span><span class="identifier">d</span><span class="plain">--; }</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_8"></a><b>§3.8. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Operation</span> <span class="cwebmacronumber">3.8</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">prim_cat</span><span class="plain"> == </span><span class="identifier">REF_PRIM_CAT</span><span class="plain">) { </span><span class="functiontext">Produce::reference</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">); </span><span class="functiontext">Produce::down</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">); }</span>
|
|
|
|
<span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>isn_clarifier</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::down</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">pc</span><span class="plain"> = </span><span class="identifier">VAL_PRIM_CAT</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext">InterSchemas::first_operand_ref</span><span class="plain">(</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>isn_clarifier</span><span class="plain">)) </span><span class="identifier">pc</span><span class="plain"> = </span><span class="identifier">REF_PRIM_CAT</span><span class="plain">;</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">,</span>
|
|
<span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">pc</span><span class="plain">, </span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">,</span>
|
|
<span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext">InterSchemas::arity</span><span class="plain">(</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>isn_clarifier</span><span class="plain">) == 2)</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">,</span>
|
|
<span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">VAL_PRIM_CAT</span><span class="plain">,</span>
|
|
<span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">,</span>
|
|
<span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::up</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">prim_cat</span><span class="plain"> == </span><span class="identifier">REF_PRIM_CAT</span><span class="plain">) { </span><span class="functiontext">Produce::up</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">); }</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_9"></a><b>§3.9. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Subexpression</span> <span class="cwebmacronumber">3.9</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">d</span><span class="plain"> = 0;</span>
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">; </span><span class="identifier">at</span><span class="plain">=</span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">) {</span>
|
|
<span class="identifier">d</span><span class="plain">++;</span>
|
|
<span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">SEQUENTIAL_BIP</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::down</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">at</span><span class="plain">,</span>
|
|
<span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">prim_cat</span><span class="plain">, </span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">,</span>
|
|
<span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">d</span><span class="plain"> > 0) { </span><span class="functiontext">Produce::up</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">); </span><span class="identifier">d</span><span class="plain">--; }</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_10"></a><b>§3.10. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Statement</span> <span class="cwebmacronumber">3.10</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">prim_cat</span><span class="plain"> != </span><span class="identifier">CODE_PRIM_CAT</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"statement in expression"</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>isn_clarifier</span><span class="plain"> == </span><span class="constant">CASE_BIP</span><span class="plain">) </span><span class="functiontext">Produce::to_last_level</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, 2);</span>
|
|
<span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>isn_clarifier</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">InterSchemas::ip_arity</span><span class="plain">(</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>isn_clarifier</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">arity</span><span class="plain"> > 0) {</span>
|
|
<span class="functiontext">Produce::down</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>isn_clarifier</span><span class="plain"> == </span><span class="constant">OBJECTLOOP_BIP</span><span class="plain">)</span>
|
|
<<span class="cwebmacro">Add the objectloop range tokens</span> <span class="cwebmacronumber">3.10.1</span>><span class="plain">;</span>
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">at</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">;</span>
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">last</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">actual_arity</span><span class="plain"> = 0;</span>
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">i</span><span class="plain"> = 0; ((</span><span class="identifier">at</span><span class="plain">) && (</span><span class="identifier">i</span><span class="plain"><</span><span class="identifier">arity</span><span class="plain">)); </span><span class="identifier">i</span><span class="plain">++) {</span>
|
|
<span class="identifier">actual_arity</span><span class="plain">++;</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">at</span><span class="plain">, </span><span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">,</span>
|
|
<span class="functiontext">InterSchemas::ip_prim_cat</span><span class="plain">(</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>isn_clarifier</span><span class="plain">, </span><span class="identifier">i</span><span class="plain">),</span>
|
|
<span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">, </span><span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="identifier">last</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">;</span>
|
|
<span class="identifier">at</span><span class="plain"> = </span><span class="identifier">at</span><span class="plain">-</span><span class="element">>next_node</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">if</span><span class="plain"> (!((</span><span class="identifier">last</span><span class="plain">) && (</span><span class="identifier">last</span><span class="plain">-</span><span class="element">>unclosed</span><span class="plain">))) {</span>
|
|
<span class="functiontext">Produce::up</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_10_1"></a><b>§3.10.1. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Add the objectloop range tokens</span> <span class="cwebmacronumber">3.10.1</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">oc_node</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">;</span>
|
|
<span class="reserved">while</span><span class="plain"> ((</span><span class="identifier">oc_node</span><span class="plain">) &&</span>
|
|
<span class="plain">((</span><span class="identifier">oc_node</span><span class="plain">-</span><span class="element">>isn_type</span><span class="plain"> != </span><span class="constant">OPERATION_ISNT</span><span class="plain">) ||</span>
|
|
<span class="plain">(</span><span class="identifier">oc_node</span><span class="plain">-</span><span class="element">>isn_clarifier</span><span class="plain"> != </span><span class="constant">OFCLASS_BIP</span><span class="plain">)))</span>
|
|
<span class="identifier">oc_node</span><span class="plain"> = </span><span class="identifier">oc_node</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">oc_node</span><span class="plain">) {</span>
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">var_node</span><span class="plain"> = </span><span class="identifier">oc_node</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">;</span>
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">cl_node</span><span class="plain"> = </span><span class="identifier">var_node</span><span class="plain">?(</span><span class="identifier">var_node</span><span class="plain">-</span><span class="element">>next_node</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">var_node</span><span class="plain">) && (</span><span class="identifier">cl_node</span><span class="plain">)) {</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">var_node</span><span class="plain">, </span><span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">REF_PRIM_CAT</span><span class="plain">,</span>
|
|
<span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">, </span><span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">cl_node</span><span class="plain">, </span><span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">VAL_PRIM_CAT</span><span class="plain">,</span>
|
|
<span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">, </span><span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"malformed OC node"</span><span class="plain">);</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="reserved">inter_schema_node</span><span class="plain"> *</span><span class="identifier">var_node</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">;</span>
|
|
<span class="reserved">while</span><span class="plain"> ((</span><span class="identifier">var_node</span><span class="plain">) && (</span><span class="identifier">var_node</span><span class="plain">-</span><span class="element">>isn_type</span><span class="plain"> != </span><span class="constant">EXPRESSION_ISNT</span><span class="plain">))</span>
|
|
<span class="identifier">var_node</span><span class="plain"> = </span><span class="identifier">var_node</span><span class="plain">-</span><span class="element">>child_node</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">var_node</span><span class="plain">) {</span>
|
|
<span class="functiontext">EmitInterSchemas::emit_inner</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">var_node</span><span class="plain">, </span><span class="identifier">VH</span><span class="plain">, </span><span class="identifier">sch</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">REF_PRIM_CAT</span><span class="plain">,</span>
|
|
<span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">, </span><span class="identifier">inline_command_handler</span><span class="plain">, </span><span class="identifier">i7_source_handler</span><span class="plain">);</span>
|
|
<span class="plain">#</span><span class="identifier">ifdef</span><span class="plain"> </span><span class="identifier">CORE_MODULE</span>
|
|
<span class="functiontext">Produce::val_iname</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</span><span class="plain">, </span><span class="identifier">Kinds::RunTime::I6_classname</span><span class="plain">(</span><span class="identifier">K_object</span><span class="plain">));</span>
|
|
<span class="plain">#</span><span class="identifier">endif</span>
|
|
<span class="plain">#</span><span class="identifier">ifndef</span><span class="plain"> </span><span class="identifier">CORE_MODULE</span>
|
|
<span class="functiontext">Produce::val_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</span><span class="plain">, </span><span class="functiontext">Site::veneer_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">OBJECT_VSYMB</span><span class="plain">));</span>
|
|
<span class="comment">inter_symbol *plug = Inter::Connectors::find_plug(I, I"Object");</span>
|
|
<span class="comment">if (plug == NULL) plug = Inter::Connectors::plug(I, I"Object");</span>
|
|
<span class="comment">Produce::val_symbol(I, K_value, plug);</span>
|
|
<span class="plain">#</span><span class="identifier">endif</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"objectloop without visible variable"</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3_10">§3.10</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_11"></a><b>§3.11. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Expression</span> <span class="cwebmacronumber">3.11</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">cat_me</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">, </span><span class="identifier">lab_me</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">, </span><span class="identifier">print_ret_me</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">;</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">tc</span><span class="plain"> = 0; </span><span class="reserved">for</span><span class="plain"> (</span><span class="reserved">inter_schema_token</span><span class="plain"> *</span><span class="identifier">t</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>expression_tokens</span><span class="plain">; </span><span class="identifier">t</span><span class="plain">; </span><span class="identifier">t</span><span class="plain">=</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>next</span><span class="plain">) </span><span class="identifier">tc</span><span class="plain">++;</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">tc</span><span class="plain"> > 1) && (</span><span class="identifier">prim_cat</span><span class="plain"> == </span><span class="identifier">VAL_PRIM_CAT</span><span class="plain">)) </span><span class="identifier">cat_me</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">tc</span><span class="plain"> == 1) && (</span><span class="identifier">prim_cat</span><span class="plain"> == </span><span class="identifier">CODE_PRIM_CAT</span><span class="plain">) && (</span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>expression_tokens</span><span class="plain">-</span><span class="element">>ist_type</span><span class="plain"> == </span><span class="constant">DQUOTED_ISTT</span><span class="plain">))</span>
|
|
<span class="identifier">print_ret_me</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">tc</span><span class="plain"> == 1) && (</span><span class="identifier">prim_cat</span><span class="plain"> == </span><span class="identifier">LAB_PRIM_CAT</span><span class="plain">)) </span><span class="identifier">lab_me</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">cat_me</span><span class="plain">) { </span><span class="functiontext">Produce::evaluation</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">); </span><span class="functiontext">Produce::down</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">); }</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">prim_cat</span><span class="plain"> == </span><span class="identifier">REF_PRIM_CAT</span><span class="plain">) { </span><span class="functiontext">Produce::reference</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">); </span><span class="functiontext">Produce::down</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">); }</span>
|
|
|
|
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">inter_schema_token</span><span class="plain"> *</span><span class="identifier">t</span><span class="plain"> = </span><span class="identifier">isn</span><span class="plain">-</span><span class="element">>expression_tokens</span><span class="plain">; </span><span class="identifier">t</span><span class="plain">; </span><span class="identifier">t</span><span class="plain">=</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>next</span><span class="plain">) {</span>
|
|
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>ist_type</span><span class="plain">) {</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">IDENTIFIER_ISTT</span><span class="plain">: {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">lab_me</span><span class="plain">)</span>
|
|
<span class="functiontext">Produce::lab</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="functiontext">Produce::reserve_label</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</span><span class="plain">));</span>
|
|
<span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="plain">#</span><span class="identifier">ifdef</span><span class="plain"> </span><span class="identifier">CORE_MODULE</span>
|
|
<span class="identifier">local_variable</span><span class="plain"> *</span><span class="identifier">lvar</span><span class="plain"> = </span><span class="identifier">LocalVariables::by_name_any</span><span class="plain">(</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">lvar</span><span class="plain">) {</span>
|
|
<span class="identifier">inter_symbol</span><span class="plain"> *</span><span class="identifier">lvar_s</span><span class="plain"> = </span><span class="identifier">LocalVariables::declare_this</span><span class="plain">(</span><span class="identifier">lvar</span><span class="plain">, </span><span class="identifier">FALSE</span><span class="plain">, 8);</span>
|
|
<span class="functiontext">Produce::val_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</span><span class="plain">, </span><span class="identifier">lvar_s</span><span class="plain">);</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="functiontext">Produce::val_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</span><span class="plain">, </span><span class="functiontext">EmitInterSchemas::find_identifier</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">, </span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">));</span>
|
|
<span class="plain">}</span>
|
|
<span class="plain">#</span><span class="identifier">endif</span>
|
|
<span class="plain">#</span><span class="identifier">ifndef</span><span class="plain"> </span><span class="identifier">CORE_MODULE</span>
|
|
<span class="functiontext">Produce::val_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</span><span class="plain">, </span><span class="functiontext">EmitInterSchemas::find_identifier</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">, </span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">));</span>
|
|
<span class="plain">#</span><span class="identifier">endif</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="constant">ASM_ARROW_ISTT</span><span class="plain">:</span>
|
|
<span class="functiontext">Produce::val_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</span><span class="plain">, </span><span class="functiontext">Site::veneer_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">ASM_ARROW_VSYMB</span><span class="plain">));</span>
|
|
<span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">ASM_SP_ISTT</span><span class="plain">:</span>
|
|
<span class="functiontext">Produce::val_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</span><span class="plain">, </span><span class="functiontext">Site::veneer_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">ASM_SP_VSYMB</span><span class="plain">));</span>
|
|
<span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">ASM_NEGATED_LABEL_ISTT</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">t</span><span class="plain">-</span><span class="element">>material</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"rtrue"</span><span class="plain">))</span>
|
|
<span class="functiontext">Produce::val_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</span><span class="plain">, </span><span class="functiontext">Site::veneer_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">ASM_NEG_RTRUE_VSYMB</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">Str::eq</span><span class="plain">(</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"rfalse"</span><span class="plain">))</span>
|
|
<span class="functiontext">Produce::val_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</span><span class="plain">, </span><span class="functiontext">Site::veneer_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">ASM_NEG_RFALSE_VSYMB</span><span class="plain">));</span>
|
|
<span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="functiontext">Produce::val_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</span><span class="plain">, </span><span class="functiontext">Site::veneer_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">ASM_NEG_VSYMB</span><span class="plain">));</span>
|
|
<span class="functiontext">Produce::lab</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="functiontext">Produce::reserve_label</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</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="constant">ASM_LABEL_ISTT</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">t</span><span class="plain">-</span><span class="element">>material</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"rtrue"</span><span class="plain">))</span>
|
|
<span class="functiontext">Produce::val_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</span><span class="plain">, </span><span class="functiontext">Site::veneer_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">ASM_RTRUE_VSYMB</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">Str::eq</span><span class="plain">(</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"rfalse"</span><span class="plain">))</span>
|
|
<span class="functiontext">Produce::val_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</span><span class="plain">, </span><span class="functiontext">Site::veneer_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">ASM_RFALSE_VSYMB</span><span class="plain">));</span>
|
|
<span class="reserved">else</span><span class="plain"> </span><span class="functiontext">Produce::lab</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="functiontext">Produce::reserve_label</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</span><span class="plain">));</span>
|
|
<span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">NUMBER_ISTT</span><span class="plain">:</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">BIN_NUMBER_ISTT</span><span class="plain">:</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">HEX_NUMBER_ISTT</span><span class="plain">: {</span>
|
|
<span class="identifier">inter_t</span><span class="plain"> </span><span class="identifier">v1</span><span class="plain"> = 0, </span><span class="identifier">v2</span><span class="plain"> = 0;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>constant_number</span><span class="plain"> >= 0) { </span><span class="identifier">v1</span><span class="plain"> = </span><span class="identifier">LITERAL_IVAL</span><span class="plain">; </span><span class="identifier">v2</span><span class="plain"> = (</span><span class="identifier">inter_t</span><span class="plain">) </span><span class="identifier">t</span><span class="plain">-</span><span class="element">>constant_number</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">Inter::Types::read_I6_decimal</span><span class="plain">(</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</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="identifier">FALSE</span><span class="plain">)</span>
|
|
<span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"bad number"</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::val</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">K_value</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">break</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">REAL_NUMBER_ISTT</span><span class="plain">:</span>
|
|
<span class="functiontext">Produce::val_real_from_text</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</span><span class="plain">);</span>
|
|
<span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">DQUOTED_ISTT</span><span class="plain">:</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">print_ret_me</span><span class="plain">) {</span>
|
|
<span class="functiontext">Produce::inv_primitive</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="constant">PRINTRET_BIP</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::down</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="functiontext">Produce::val_text</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">print_ret_me</span><span class="plain">) {</span>
|
|
<span class="functiontext">Produce::up</span><span class="plain">(</span><span class="identifier">I</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="constant">SQUOTED_ISTT</span><span class="plain">:</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::len</span><span class="plain">(</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</span><span class="plain">) == 1) {</span>
|
|
<span class="functiontext">Produce::val_char</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">Str::get_at</span><span class="plain">(</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</span><span class="plain">, 0));</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="functiontext">Produce::val_dword</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</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="constant">I7_ISTT</span><span class="plain">:</span>
|
|
<span class="plain">(*</span><span class="identifier">i7_source_handler</span><span class="plain">)(</span><span class="identifier">VH</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</span><span class="plain">);</span>
|
|
<span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INLINE_ISTT</span><span class="plain">:</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">inline_command_handler</span><span class="plain">)</span>
|
|
<span class="plain">(*</span><span class="identifier">inline_command_handler</span><span class="plain">)(</span><span class="identifier">VH</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">, </span><span class="identifier">opaque_state</span><span class="plain">, </span><span class="identifier">prim_cat</span><span class="plain">);</span>
|
|
<span class="reserved">break</span><span class="plain">;</span>
|
|
<span class="reserved">default</span><span class="plain">:</span>
|
|
<span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"bad expression token"</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">cat_me</span><span class="plain">) { </span><span class="functiontext">Produce::up</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">); }</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">prim_cat</span><span class="plain"> == </span><span class="identifier">REF_PRIM_CAT</span><span class="plain">) { </span><span class="functiontext">Produce::up</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">); }</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_12"></a><b>§3.12. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Non-conditional directive</span> <span class="cwebmacronumber">3.12</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"unknown directive"</span><span class="plain">);</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP4"></a><b>§4. </b></p>
|
|
|
|
|
|
<pre class="display">
|
|
<span class="identifier">inter_symbol</span><span class="plain"> *</span><span class="functiontext">EmitInterSchemas::find_identifier</span><span class="plain">(</span><span class="identifier">inter_tree</span><span class="plain"> *</span><span class="identifier">I</span><span class="plain">, </span><span class="reserved">inter_schema_token</span><span class="plain"> *</span><span class="identifier">t</span><span class="plain">, </span><span class="identifier">inter_symbols_table</span><span class="plain"> *</span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">inter_symbols_table</span><span class="plain"> *</span><span class="identifier">second_call</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>as_quoted</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="functiontext">InterNames::to_symbol</span><span class="plain">(</span><span class="identifier">t</span><span class="plain">-</span><span class="element">>as_quoted</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">EmitInterSchemas::find_identifier_text</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">t</span><span class="plain">-</span><span class="element">>material</span><span class="plain">, </span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">second_call</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="identifier">inter_symbol</span><span class="plain"> *</span><span class="functiontext">EmitInterSchemas::find_identifier_text</span><span class="plain">(</span><span class="identifier">inter_tree</span><span class="plain"> *</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">name</span><span class="plain">, </span><span class="identifier">inter_symbols_table</span><span class="plain"> *</span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">inter_symbols_table</span><span class="plain"> *</span><span class="identifier">second_call</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::get_at</span><span class="plain">(</span><span class="identifier">name</span><span class="plain">, 0) == 0</span><span class="identifier">x00A7</span><span class="plain">) {</span>
|
|
<span class="identifier">TEMPORARY_TEXT</span><span class="plain">(</span><span class="identifier">SR</span><span class="plain">);</span>
|
|
<span class="identifier">Str::copy</span><span class="plain">(</span><span class="identifier">SR</span><span class="plain">, </span><span class="identifier">name</span><span class="plain">);</span>
|
|
<span class="identifier">Str::delete_first_character</span><span class="plain">(</span><span class="identifier">SR</span><span class="plain">);</span>
|
|
<span class="identifier">Str::delete_last_character</span><span class="plain">(</span><span class="identifier">SR</span><span class="plain">);</span>
|
|
<span class="identifier">inter_symbol</span><span class="plain"> *</span><span class="identifier">S</span><span class="plain"> = </span><span class="identifier">Inter::SymbolsTables::url_name_to_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">SR</span><span class="plain">);</span>
|
|
<span class="identifier">DISCARD_TEXT</span><span class="plain">(</span><span class="identifier">SR</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="reserved">return</span><span class="plain"> </span><span class="identifier">S</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">first_call</span><span class="plain">) {</span>
|
|
<span class="identifier">inter_symbol</span><span class="plain"> *</span><span class="identifier">S</span><span class="plain"> = </span><span class="functiontext">Produce::seek_symbol</span><span class="plain">(</span><span class="identifier">first_call</span><span class="plain">, </span><span class="identifier">name</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="reserved">return</span><span class="plain"> </span><span class="identifier">S</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">second_call</span><span class="plain">) {</span>
|
|
<span class="identifier">inter_symbol</span><span class="plain"> *</span><span class="identifier">S</span><span class="plain"> = </span><span class="functiontext">Produce::seek_symbol</span><span class="plain">(</span><span class="identifier">second_call</span><span class="plain">, </span><span class="identifier">name</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="reserved">return</span><span class="plain"> </span><span class="identifier">S</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="identifier">inter_symbol</span><span class="plain"> *</span><span class="identifier">S</span><span class="plain"> = </span><span class="functiontext">Veneer::find</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">name</span><span class="plain">, </span><span class="functiontext">Produce::kind_to_symbol</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">S</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">S</span><span class="plain">;</span>
|
|
<span class="identifier">S</span><span class="plain"> = </span><span class="functiontext">Produce::seek_symbol</span><span class="plain">(</span><span class="functiontext">Produce::connectors_scope</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">), </span><span class="identifier">name</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="reserved">return</span><span class="plain"> </span><span class="identifier">S</span><span class="plain">;</span>
|
|
<span class="identifier">S</span><span class="plain"> = </span><span class="functiontext">Produce::seek_symbol</span><span class="plain">(</span><span class="functiontext">Produce::main_scope</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">), </span><span class="identifier">name</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="reserved">return</span><span class="plain"> </span><span class="identifier">S</span><span class="plain">;</span>
|
|
<span class="identifier">S</span><span class="plain"> = </span><span class="functiontext">InterNames::to_symbol</span><span class="plain">(</span><span class="functiontext">Produce::find_by_name</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">name</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="reserved">return</span><span class="plain"> </span><span class="identifier">S</span><span class="plain">;</span>
|
|
<span class="identifier">LOG</span><span class="plain">(</span><span class="string">"Defeated on %S\</span><span class="plain">n</span><span class="string">"</span><span class="plain">, </span><span class="identifier">name</span><span class="plain">);</span>
|
|
<span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"unable to find identifier"</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>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function EmitInterSchemas::find_identifier is used in <a href="#SP3_4">§3.4</a>, <a href="#SP3_11">§3.11</a>.</p>
|
|
|
|
<p class="endnote">The function EmitInterSchemas::find_identifier_text is used in <a href="#SP2_1">§2.1</a>.</p>
|
|
|
|
<hr class="tocbar">
|
|
<ul class="toc"><li><a href="2-is.html">Back to 'Inter Schemas'</a></li><li><i>(This section ends Chapter 2: Blueprints.)</i></li></ul><hr class="tocbar">
|
|
<!--End of weave-->
|
|
</body>
|
|
</html>
|
|
|