mirror of
https://github.com/ganelson/inform.git
synced 2024-07-05 16:44:21 +03:00
565 lines
96 KiB
HTML
565 lines
96 KiB
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
|
|
<html>
|
|
<head>
|
|
<title>1/tv</title>
|
|
<meta name="viewport" content="width=device-width initial-scale=1">
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
|
<meta http-equiv="Content-Language" content="en-gb">
|
|
<link href="../inweb.css" rel="stylesheet" rev="stylesheet" type="text/css">
|
|
</head>
|
|
<body>
|
|
<nav role="navigation">
|
|
<h1><a href="../webs.html">Sources</a></h1>
|
|
<ul>
|
|
<li><a href="../compiler.html"><b>compiler tools</b></a></li>
|
|
<li><a href="../other.html">other tools</a></li>
|
|
<li><a href="../extensions.html">extensions and kits</a></li>
|
|
<li><a href="../units.html">unit test tools</a></li>
|
|
</ul>
|
|
<h2>Compiler Webs</h2>
|
|
<ul>
|
|
<li><a href="../inbuild/index.html">inbuild</a></li>
|
|
<li><a href="../inform7/index.html">inform7</a></li>
|
|
<li><a href="../inter/index.html">inter</a></li>
|
|
</ul>
|
|
<h2>Inbuild Modules</h2>
|
|
<ul>
|
|
<li><a href="../inbuild-module/index.html">inbuild</a></li>
|
|
<li><a href="../arch-module/index.html">arch</a></li>
|
|
<li><a href="../words-module/index.html">words</a></li>
|
|
<li><a href="../syntax-module/index.html">syntax</a></li>
|
|
<li><a href="../html-module/index.html">html</a></li>
|
|
</ul>
|
|
<h2>Inform7 Modules</h2>
|
|
<ul>
|
|
<li><a href="../core-module/index.html">core</a></li>
|
|
<li><a href="../problems-module/index.html">problems</a></li>
|
|
<li><a href="../inflections-module/index.html">inflections</a></li>
|
|
<li><a href="../linguistics-module/index.html">linguistics</a></li>
|
|
<li><a href="../kinds-module/index.html">kinds</a></li>
|
|
<li><a href="../if-module/index.html">if</a></li>
|
|
<li><a href="../multimedia-module/index.html">multimedia</a></li>
|
|
<li><a href="../index-module/index.html">index</a></li>
|
|
</ul>
|
|
<h2>Inter Modules</h2>
|
|
<ul>
|
|
<li><a href="../inter-module/index.html">inter</a></li>
|
|
<li><a href="../building-module/index.html">building</a></li>
|
|
<li><a href="../codegen-module/index.html">codegen</a></li>
|
|
</ul>
|
|
<h2>Foundation</h2>
|
|
<ul>
|
|
<li><a href="../../../inweb/docs/foundation-module/index.html">foundation</a></li>
|
|
</ul>
|
|
|
|
|
|
</nav>
|
|
<main role="main">
|
|
|
|
<!--Weave of '1/hl' generated by 7-->
|
|
<ul class="crumbs"><li><a href="../webs.html">Source</a></li><li><a href="../compiler.html">Compiler Modules</a></li><li><a href="index.html">building</a></li><li><a href="index.html#1">Chapter 1: Architecture</a></li><li><b>Hierarchy Locations</b></li></ul><p class="inwebparagraph"><a id="SP1"></a><b>§1. Requirements. </b>Inform's code for compiling resources to different positions in the Inter hierarchy
|
|
is quite defensively written, in order to keep everything to a fairly tightly
|
|
specified schema.
|
|
</p>
|
|
|
|
<p class="inwebparagraph">The following is really a union: a requirement should have exactly one of the
|
|
following fields set.
|
|
</p>
|
|
|
|
<pre class="display">
|
|
<span class="reserved">typedef</span><span class="plain"> </span><span class="reserved">struct</span><span class="plain"> </span><span class="reserved">location_requirement</span><span class="plain"> {</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">submodule_identity</span><span class="plain"> *</span><span class="identifier">any_submodule_package_of_this_identity</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">package_request</span><span class="plain"> *</span><span class="identifier">this_exact_package</span><span class="plain">;</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">this_exact_package_not_yet_created</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">any_package_of_this_type</span><span class="plain">;</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">any_enclosure</span><span class="plain">;</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">must_be_plug</span><span class="plain">;</span>
|
|
<span class="plain">} </span><span class="reserved">location_requirement</span><span class="plain">;</span>
|
|
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::blank</span><span class="plain">(</span><span class="reserved">void</span><span class="plain">) {</span>
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">any_submodule_package_of_this_identity</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">this_exact_package</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">this_exact_package_not_yet_created</span><span class="plain"> = -1;</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">any_package_of_this_type</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">any_enclosure</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">;</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">must_be_plug</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">;</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::blank is used in <a href="#SP2">§2</a>, <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="endnote">The structure location_requirement is private to this section.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP2"></a><b>§2. </b>Here are the functions to create requirements:
|
|
</p>
|
|
|
|
<pre class="display">
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::local_submodule</span><span class="plain">(</span><span class="reserved">submodule_identity</span><span class="plain"> *</span><span class="identifier">sid</span><span class="plain">) {</span>
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain"> = </span><span class="functiontext">HierarchyLocations::blank</span><span class="plain">();</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">any_submodule_package_of_this_identity</span><span class="plain"> = </span><span class="identifier">sid</span><span class="plain">;</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::generic_submodule</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">submodule_identity</span><span class="plain"> *</span><span class="identifier">sid</span><span class="plain">) {</span>
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain"> = </span><span class="functiontext">HierarchyLocations::blank</span><span class="plain">();</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">this_exact_package</span><span class="plain"> = </span><span class="functiontext">Packaging::generic_submodule</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">sid</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::synoptic_submodule</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">submodule_identity</span><span class="plain"> *</span><span class="identifier">sid</span><span class="plain">) {</span>
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain"> = </span><span class="functiontext">HierarchyLocations::blank</span><span class="plain">();</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">this_exact_package</span><span class="plain"> = </span><span class="functiontext">Packaging::synoptic_submodule</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">sid</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::any_package_of_type</span><span class="plain">(</span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">ptype_name</span><span class="plain">) {</span>
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain"> = </span><span class="functiontext">HierarchyLocations::blank</span><span class="plain">();</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">any_package_of_this_type</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">ptype_name</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::any_enclosure</span><span class="plain">(</span><span class="reserved">void</span><span class="plain">) {</span>
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain"> = </span><span class="functiontext">HierarchyLocations::blank</span><span class="plain">();</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">any_enclosure</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">req</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::this_package</span><span class="plain">(</span><span class="reserved">package_request</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">) {</span>
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain"> = </span><span class="functiontext">HierarchyLocations::blank</span><span class="plain">();</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">this_exact_package</span><span class="plain"> = </span><span class="identifier">P</span><span class="plain">;</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::this_exotic_package</span><span class="plain">(</span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">N</span><span class="plain">) {</span>
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain"> = </span><span class="functiontext">HierarchyLocations::blank</span><span class="plain">();</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">this_exact_package_not_yet_created</span><span class="plain"> = </span><span class="identifier">N</span><span class="plain">;</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::plug</span><span class="plain">(</span><span class="reserved">void</span><span class="plain">) {</span>
|
|
<span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain"> = </span><span class="functiontext">HierarchyLocations::blank</span><span class="plain">();</span>
|
|
<span class="identifier">req</span><span class="plain">.</span><span class="element">must_be_plug</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">req</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::local_submodule appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::generic_submodule appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::synoptic_submodule appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::any_package_of_type appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::any_enclosure appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::this_package is used in <a href="#SP3">§3</a>.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::this_exotic_package appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::plug is used in 3/pi (<a href="3-pi.html#SP3">§3</a>).</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3"></a><b>§3. Hierarchy locations. </b></p>
|
|
|
|
<pre class="display">
|
|
<span class="reserved">typedef</span><span class="plain"> </span><span class="reserved">struct</span><span class="plain"> </span><span class="reserved">hierarchy_location</span><span class="plain"> {</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">access_number</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">access_name</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">function_package_name</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">datum_package_name</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">requirements</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">inter_name</span><span class="plain"> *</span><span class="identifier">equates_to_iname</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">package_type</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">name_translation</span><span class="plain"> </span><span class="identifier">trans</span><span class="plain">;</span>
|
|
<span class="identifier">MEMORY_MANAGEMENT</span>
|
|
<span class="plain">} </span><span class="reserved">hierarchy_location</span><span class="plain">;</span>
|
|
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::new</span><span class="plain">(</span><span class="reserved">void</span><span class="plain">) {</span>
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="identifier">hl</span><span class="plain"> = </span><span class="identifier">CREATE</span><span class="plain">(</span><span class="reserved">hierarchy_location</span><span class="plain">);</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_number</span><span class="plain"> = -1;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">function_package_name</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">datum_package_name</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">equates_to_iname</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">package_type</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain"> = </span><span class="functiontext">Translation::same</span><span class="plain">();</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain"> = </span><span class="functiontext">HierarchyLocations::blank</span><span class="plain">();</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">hl</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::con</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">int</span><span class="plain"> </span><span class="identifier">id</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="reserved">name_translation</span><span class="plain"> </span><span class="identifier">nt</span><span class="plain">, </span><span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">) {</span>
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="identifier">hl</span><span class="plain"> = </span><span class="functiontext">HierarchyLocations::new</span><span class="plain">();</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_number</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">name</span><span class="plain">);</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain"> = </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain"> = </span><span class="identifier">nt</span><span class="plain">;</span>
|
|
<span class="functiontext">HierarchyLocations::index</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">hl</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::package</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">int</span><span class="plain"> </span><span class="identifier">id</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">text_stream</span><span class="plain"> *</span><span class="identifier">ptype_name</span><span class="plain">, </span><span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">) {</span>
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="identifier">hl</span><span class="plain"> = </span><span class="functiontext">HierarchyLocations::new</span><span class="plain">();</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_number</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">name</span><span class="plain">);</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain"> = </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">package_type</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">ptype_name</span><span class="plain">);</span>
|
|
<span class="functiontext">HierarchyLocations::index</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">hl</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::make_as</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">int</span><span class="plain"> </span><span class="identifier">id</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="reserved">inter_name</span><span class="plain"> *</span><span class="identifier">iname</span><span class="plain">) {</span>
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="identifier">hl</span><span class="plain"> = </span><span class="functiontext">HierarchyLocations::new</span><span class="plain">();</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_number</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">name</span><span class="plain">);</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain"> = </span><span class="functiontext">HierarchyLocations::this_package</span><span class="plain">(</span><span class="functiontext">InterNames::location</span><span class="plain">(</span><span class="identifier">iname</span><span class="plain">));</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">equates_to_iname</span><span class="plain"> = </span><span class="identifier">iname</span><span class="plain">;</span>
|
|
<span class="functiontext">HierarchyLocations::index</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">hl</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::func</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">int</span><span class="plain"> </span><span class="identifier">id</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="reserved">name_translation</span><span class="plain"> </span><span class="identifier">nt</span><span class="plain">, </span><span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">) {</span>
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="identifier">hl</span><span class="plain"> = </span><span class="identifier">CREATE</span><span class="plain">(</span><span class="reserved">hierarchy_location</span><span class="plain">);</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_number</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">nt</span><span class="plain">.</span><span class="element">translate_to</span><span class="plain">);</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">function_package_name</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">name</span><span class="plain">);</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain"> = </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain"> = </span><span class="identifier">nt</span><span class="plain">;</span>
|
|
<span class="functiontext">HierarchyLocations::index</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">hl</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::datum</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">int</span><span class="plain"> </span><span class="identifier">id</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="reserved">name_translation</span><span class="plain"> </span><span class="identifier">nt</span><span class="plain">, </span><span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">) {</span>
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="identifier">hl</span><span class="plain"> = </span><span class="identifier">CREATE</span><span class="plain">(</span><span class="reserved">hierarchy_location</span><span class="plain">);</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_number</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">nt</span><span class="plain">.</span><span class="element">translate_to</span><span class="plain">);</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">datum_package_name</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">name</span><span class="plain">);</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain"> = </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain"> = </span><span class="identifier">nt</span><span class="plain">;</span>
|
|
<span class="functiontext">HierarchyLocations::index</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">hl</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::index</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">hierarchy_location</span><span class="plain"> *</span><span class="identifier">hl</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">access_number</span><span class="plain"> >= </span><span class="constant">0</span><span class="plain">) </span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">hls_indexed_by_id</span><span class="plain">[</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">access_number</span><span class="plain">] = </span><span class="identifier">hl</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_package_of_this_type</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) {</span>
|
|
<span class="identifier">Dictionaries::create</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">hls_indexed_by_name</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain">);</span>
|
|
<span class="identifier">Dictionaries::write_value</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">hls_indexed_by_name</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain">, (</span><span class="reserved">void</span><span class="plain"> *) </span><span class="identifier">hl</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">inter_name</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::find</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">int</span><span class="plain"> </span><span class="identifier">id</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">id</span><span class="plain"> < </span><span class="constant">0</span><span class="plain">) || (</span><span class="identifier">id</span><span class="plain"> >= </span><span class="identifier">NO_DEFINED_HL_VALUES</span><span class="plain">) || (</span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">hls_indexed_by_id</span><span class="plain">[</span><span class="identifier">id</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 hl ID"</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::hl_to_iname</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">hls_indexed_by_id</span><span class="plain">[</span><span class="identifier">id</span><span class="plain">]);</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">inter_name</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::find_by_name</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="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::len</span><span class="plain">(</span><span class="identifier">name</span><span class="plain">) == </span><span class="constant">0</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"bad hl name"</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Dictionaries::find</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">hls_indexed_by_name</span><span class="plain">, </span><span class="identifier">name</span><span class="plain">))</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::hl_to_iname</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">,</span>
|
|
<span class="plain">(</span><span class="reserved">hierarchy_location</span><span class="plain"> *)</span>
|
|
<span class="identifier">Dictionaries::read_value</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="identifier">hls_indexed_by_name</span><span class="plain">, </span><span class="identifier">name</span><span class="plain">));</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">inter_name</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::function</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">package_request</span><span class="plain"> *</span><span class="identifier">R</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">text_stream</span><span class="plain"> *</span><span class="identifier">trans</span><span class="plain">) {</span>
|
|
<span class="reserved">inter_name</span><span class="plain"> *</span><span class="identifier">iname</span><span class="plain"> = </span><span class="functiontext">Packaging::function</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="functiontext">InterNames::explicitly_named</span><span class="plain">(</span><span class="identifier">name</span><span class="plain">, </span><span class="identifier">R</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">trans</span><span class="plain">) </span><span class="functiontext">Produce::change_translation</span><span class="plain">(</span><span class="identifier">iname</span><span class="plain">, </span><span class="identifier">trans</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">iname</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">inter_name</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::hl_to_iname</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">hierarchy_location</span><span class="plain"> *</span><span class="identifier">hl</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_package_of_this_type</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"NRL accessed inappropriately"</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">equates_to_iname</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">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">must_be_plug</span><span class="plain">) {</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">equates_to_iname</span><span class="plain"> = </span><span class="functiontext">InterNames::explicitly_named_in_template</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain">);</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package</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">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package_not_yet_created</span><span class="plain"> >= </span><span class="constant">0</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">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package</span><span class="plain"> = </span><span class="identifier">Hierarchy::exotic_package</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package_not_yet_created</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">"feature not available in inter"</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="identifier">internal_error</span><span class="plain">(</span><span class="string">"package can't be found"</span><span class="plain">);</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">hl</span><span class="plain">-></span><span class="element">function_package_name</span><span class="plain">) > </span><span class="constant">0</span><span class="plain">) {</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">equates_to_iname</span><span class="plain"> = </span><span class="functiontext">Packaging::function_text</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">,</span>
|
|
<span class="functiontext">InterNames::explicitly_named</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="identifier">function_package_name</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package</span><span class="plain">),</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain">);</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> </span><span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::len</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">datum_package_name</span><span class="plain">) > </span><span class="constant">0</span><span class="plain">) {</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">equates_to_iname</span><span class="plain"> = </span><span class="functiontext">Packaging::datum_text</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">,</span>
|
|
<span class="functiontext">InterNames::explicitly_named</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="identifier">datum_package_name</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package</span><span class="plain">),</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain">);</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> </span><span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package</span><span class="plain">) && (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">equates_to_iname</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">)) {</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">equates_to_iname</span><span class="plain"> = </span><span class="functiontext">InterNames::explicitly_named</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="plain">}</span>
|
|
<span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package</span><span class="plain"> = </span><span class="functiontext">InterNames::location</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">equates_to_iname</span><span class="plain">);</span>
|
|
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain">.</span><span class="element">translate_to</span><span class="plain">) </span><span class="functiontext">Produce::change_translation</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">equates_to_iname</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain">.</span><span class="element">translate_to</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">hl</span><span class="plain">-></span><span class="identifier">equates_to_iname</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">inter_name</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::find_in_package</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">int</span><span class="plain"> </span><span class="identifier">id</span><span class="plain">, </span><span class="reserved">package_request</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">wording</span><span class="plain"> </span><span class="identifier">W</span><span class="plain">, </span><span class="reserved">inter_name</span><span class="plain"> *</span><span class="identifier">derive_from</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">fix</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">imposed_name</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">id</span><span class="plain"> < </span><span class="constant">0</span><span class="plain">) || (</span><span class="identifier">id</span><span class="plain"> >= </span><span class="identifier">NO_DEFINED_HL_VALUES</span><span class="plain">) || (</span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">hls_indexed_by_id</span><span class="plain">[</span><span class="identifier">id</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 hl ID"</span><span class="plain">);</span>
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="identifier">hl</span><span class="plain"> = </span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="identifier">hls_indexed_by_id</span><span class="plain">[</span><span class="identifier">id</span><span class="plain">];</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_package_of_this_type</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) &&</span>
|
|
<span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_enclosure</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">"NRL accessed inappropriately"</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_enclosure</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Inter::Symbols::read_annotation</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">-></span><span class="element">eventual_type</span><span class="plain">, </span><span class="identifier">ENCLOSING_IANN</span><span class="plain">) != </span><span class="constant">1</span><span class="plain">)</span>
|
|
<span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"subpackage not in enclosing superpackage"</span><span class="plain">);</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> </span><span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">P</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) || (</span><span class="identifier">P</span><span class="plain">-></span><span class="element">eventual_type</span><span class="plain"> != </span><span class="functiontext">PackageTypes::get</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_package_of_this_type</span><span class="plain">))) {</span>
|
|
<span class="identifier">LOG</span><span class="plain">(</span><span class="string">"AN: %S, FPN: %S\n"</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">function_package_name</span><span class="plain">);</span>
|
|
<span class="identifier">LOG</span><span class="plain">(</span><span class="string">"Have type: $3, required: %S\n"</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">-></span><span class="element">eventual_type</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_package_of_this_type</span><span class="plain">);</span>
|
|
<span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"constant in wrong superpackage"</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">inter_name</span><span class="plain"> *</span><span class="identifier">iname</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">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain">.</span><span class="element">translate_to</span><span class="plain">) {</span>
|
|
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">T</span><span class="plain"> = </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain">.</span><span class="element">translate_to</span><span class="plain">;</span>
|
|
<<span class="cwebmacro">Make the actual iname</span> <span class="cwebmacronumber">3.1</span>><span class="plain">;</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> </span><span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain">.</span><span class="element">by_imposition</span><span class="plain">) {</span>
|
|
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">T</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<<span class="cwebmacro">Make the actual iname</span> <span class="cwebmacronumber">3.1</span>><span class="plain">;</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> </span><span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain">.</span><span class="element">name_generator</span><span class="plain">) {</span>
|
|
<span class="identifier">TEMPORARY_TEXT</span><span class="plain">(</span><span class="identifier">T</span><span class="plain">);</span>
|
|
<span class="reserved">inter_name</span><span class="plain"> *</span><span class="identifier">temp_iname</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">derive_from</span><span class="plain">) {</span>
|
|
<span class="identifier">temp_iname</span><span class="plain"> = </span><span class="functiontext">InterNames::derived</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain">.</span><span class="element">name_generator</span><span class="plain">, </span><span class="identifier">derive_from</span><span class="plain">, </span><span class="identifier">W</span><span class="plain">);</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="identifier">temp_iname</span><span class="plain"> = </span><span class="functiontext">InterNames::generated</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain">.</span><span class="element">name_generator</span><span class="plain">, </span><span class="identifier">fix</span><span class="plain">, </span><span class="identifier">W</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="identifier">W</span><span class="plain"> = </span><span class="identifier">EMPTY_WORDING</span><span class="plain">;</span>
|
|
<span class="identifier">WRITE_TO</span><span class="plain">(</span><span class="identifier">T</span><span class="plain">, </span><span class="string">"%n"</span><span class="plain">, </span><span class="identifier">temp_iname</span><span class="plain">);</span>
|
|
<<span class="cwebmacro">Make the actual iname</span> <span class="cwebmacronumber">3.1</span>><span class="plain">;</span>
|
|
<span class="identifier">DISCARD_TEXT</span><span class="plain">(</span><span class="identifier">T</span><span class="plain">);</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">T</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<<span class="cwebmacro">Make the actual iname</span> <span class="cwebmacronumber">3.1</span>><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain">.</span><span class="element">then_make_unique</span><span class="plain">) </span><span class="functiontext">Produce::set_flag</span><span class="plain">(</span><span class="identifier">iname</span><span class="plain">, </span><span class="identifier">MAKE_NAME_UNIQUE</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">iname</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::new appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::con is used in 3/pi (<a href="3-pi.html#SP3">§3</a>).</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::package appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::make_as appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::func appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::datum appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::index appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::find appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::find_by_name is used in 3/pi (<a href="3-pi.html#SP3">§3</a>).</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::function appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::hl_to_iname appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::find_in_package appears nowhere else.</p>
|
|
|
|
<p class="endnote">The structure hierarchy_location is private to this section.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3_1"></a><b>§3.1. </b><code class="display">
|
|
<<span class="cwebmacrodefn">Make the actual iname</span> <span class="cwebmacronumber">3.1</span>> =
|
|
</code></p>
|
|
|
|
|
|
<pre class="displaydefn">
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::len</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">function_package_name</span><span class="plain">) > </span><span class="constant">0</span><span class="plain">) {</span>
|
|
<span class="identifier">iname</span><span class="plain"> = </span><span class="functiontext">Packaging::function</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">,</span>
|
|
<span class="functiontext">InterNames::explicitly_named</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="identifier">function_package_name</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">), </span><span class="identifier">NULL</span><span class="plain">);</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">trans</span><span class="plain">.</span><span class="element">by_imposition</span><span class="plain">) </span><span class="identifier">iname</span><span class="plain"> = </span><span class="functiontext">InterNames::explicitly_named_with_memo</span><span class="plain">(</span><span class="identifier">imposed_name</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">W</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::len</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain">) == </span><span class="constant">0</span><span class="plain">) </span><span class="identifier">iname</span><span class="plain"> = </span><span class="functiontext">InterNames::explicitly_named_with_memo</span><span class="plain">(</span><span class="identifier">T</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">W</span><span class="plain">);</span>
|
|
<span class="reserved">else</span><span class="plain"> </span><span class="identifier">iname</span><span class="plain"> = </span><span class="functiontext">InterNames::explicitly_named_with_memo</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">W</span><span class="plain">);</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="constant">0</span><span class="plain">) && (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain">)) </span><span class="functiontext">Produce::change_translation</span><span class="plain">(</span><span class="identifier">iname</span><span class="plain">, </span><span class="identifier">T</span><span class="plain">);</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">This code is used in <a href="#SP3">§3</a> (four times).</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP4"></a><b>§4. </b></p>
|
|
|
|
<pre class="display">
|
|
<span class="reserved">package_request</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::package_in_package</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">int</span><span class="plain"> </span><span class="identifier">id</span><span class="plain">, </span><span class="reserved">package_request</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">id</span><span class="plain"> < </span><span class="constant">0</span><span class="plain">) || (</span><span class="identifier">id</span><span class="plain"> >= </span><span class="identifier">NO_DEFINED_HL_VALUES</span><span class="plain">) || (</span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">hls_indexed_by_id</span><span class="plain">[</span><span class="identifier">id</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 hl ID"</span><span class="plain">);</span>
|
|
<span class="reserved">hierarchy_location</span><span class="plain"> *</span><span class="identifier">hl</span><span class="plain"> = </span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="identifier">hls_indexed_by_id</span><span class="plain">[</span><span class="identifier">id</span><span class="plain">];</span>
|
|
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">P</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 superpackage"</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">package_type</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">"package_in_package used wrongly"</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_package_of_this_type</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">P</span><span class="plain">-></span><span class="element">eventual_type</span><span class="plain"> != </span><span class="functiontext">PackageTypes::get</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_package_of_this_type</span><span class="plain">))</span>
|
|
<span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"subpackage in wrong superpackage"</span><span class="plain">);</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> </span><span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_enclosure</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Inter::Symbols::read_annotation</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">-></span><span class="element">eventual_type</span><span class="plain">, </span><span class="identifier">ENCLOSING_IANN</span><span class="plain">) != </span><span class="constant">1</span><span class="plain">)</span>
|
|
<span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"subpackage not in enclosing superpackage"</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">"NRL accessed inappropriately"</span><span class="plain">);</span>
|
|
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Packaging::request</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="functiontext">InterNames::explicitly_named</span><span class="plain">(</span><span class="identifier">hl</span><span class="plain">-></span><span class="element">access_name</span><span class="plain">, </span><span class="identifier">P</span><span class="plain">), </span><span class="functiontext">PackageTypes::get</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hl</span><span class="plain">-></span><span class="element">package_type</span><span class="plain">));</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::package_in_package appears nowhere else.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP5"></a><b>§5. Hierarchy locations. </b></p>
|
|
|
|
<pre class="display">
|
|
<span class="reserved">typedef</span><span class="plain"> </span><span class="reserved">struct</span><span class="plain"> </span><span class="reserved">hierarchy_attachment_point</span><span class="plain"> {</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">hap_id</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">name_stem</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">type</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">requirements</span><span class="plain">;</span>
|
|
<span class="identifier">MEMORY_MANAGEMENT</span>
|
|
<span class="plain">} </span><span class="reserved">hierarchy_attachment_point</span><span class="plain">;</span>
|
|
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::index_ap</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">hierarchy_attachment_point</span><span class="plain"> *</span><span class="identifier">hap</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hap</span><span class="plain">-></span><span class="element">hap_id</span><span class="plain"> >= </span><span class="constant">0</span><span class="plain">) </span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">haps_indexed_by_id</span><span class="plain">[</span><span class="identifier">hap</span><span class="plain">-></span><span class="element">hap_id</span><span class="plain">] = </span><span class="identifier">hap</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">hierarchy_attachment_point</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::ap</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">int</span><span class="plain"> </span><span class="identifier">hap_id</span><span class="plain">, </span><span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">iterated_text</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">ptype_name</span><span class="plain">) {</span>
|
|
<span class="reserved">hierarchy_attachment_point</span><span class="plain"> *</span><span class="identifier">hap</span><span class="plain"> = </span><span class="identifier">CREATE</span><span class="plain">(</span><span class="reserved">hierarchy_attachment_point</span><span class="plain">);</span>
|
|
<span class="identifier">hap</span><span class="plain">-></span><span class="element">hap_id</span><span class="plain"> = </span><span class="identifier">hap_id</span><span class="plain">;</span>
|
|
<span class="identifier">hap</span><span class="plain">-></span><span class="element">requirements</span><span class="plain"> = </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="identifier">hap</span><span class="plain">-></span><span class="element">name_stem</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">iterated_text</span><span class="plain">);</span>
|
|
<span class="identifier">hap</span><span class="plain">-></span><span class="element">type</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">ptype_name</span><span class="plain">);</span>
|
|
<span class="functiontext">HierarchyLocations::index_ap</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hap</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">hap</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">package_request</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::attach_new_package</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">compilation_module</span><span class="plain"> *</span><span class="identifier">C</span><span class="plain">, </span><span class="reserved">package_request</span><span class="plain"> *</span><span class="identifier">R</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">hap_id</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">hap_id</span><span class="plain"> < </span><span class="constant">0</span><span class="plain">) || (</span><span class="identifier">hap_id</span><span class="plain"> >= </span><span class="identifier">NO_DEFINED_HAP_VALUES</span><span class="plain">) || (</span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">haps_indexed_by_id</span><span class="plain">[</span><span class="identifier">hap_id</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">"invalid HAP request"</span><span class="plain">);</span>
|
|
<span class="reserved">hierarchy_attachment_point</span><span class="plain"> *</span><span class="identifier">hap</span><span class="plain"> = </span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">haps_indexed_by_id</span><span class="plain">[</span><span class="identifier">hap_id</span><span class="plain">];</span>
|
|
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hap</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_submodule_package_of_this_identity</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">R</span><span class="plain"> = </span><span class="functiontext">Packaging::request_submodule</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">C</span><span class="plain">, </span><span class="identifier">hap</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_submodule_package_of_this_identity</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">"feature available only within inform7 compiler"</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">hap</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package</span><span class="plain">)</span>
|
|
<span class="identifier">R</span><span class="plain"> = </span><span class="identifier">hap</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package</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">hap</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package_not_yet_created</span><span class="plain"> >= </span><span class="constant">0</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">R</span><span class="plain"> = </span><span class="identifier">Hierarchy::exotic_package</span><span class="plain">(</span><span class="identifier">hap</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package_not_yet_created</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">"feature available only within inform7 compiler"</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">hap</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_package_of_this_type</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">R</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) || (</span><span class="identifier">R</span><span class="plain">-></span><span class="element">eventual_type</span><span class="plain"> != </span><span class="functiontext">PackageTypes::get</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hap</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_package_of_this_type</span><span class="plain">)))</span>
|
|
<span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"subpackage in wrong superpackage"</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Packaging::request</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="functiontext">Packaging::make_iname_within</span><span class="plain">(</span><span class="identifier">R</span><span class="plain">, </span><span class="identifier">hap</span><span class="plain">-></span><span class="element">name_stem</span><span class="plain">), </span><span class="functiontext">PackageTypes::get</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hap</span><span class="plain">-></span><span class="element">type</span><span class="plain">));</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::index_ap appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::ap appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::attach_new_package appears nowhere else.</p>
|
|
|
|
<p class="endnote">The structure hierarchy_attachment_point is accessed in 1/pck, 1/in and here.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP6"></a><b>§6. Hierarchy metadata. </b></p>
|
|
|
|
<pre class="display">
|
|
<span class="reserved">typedef</span><span class="plain"> </span><span class="reserved">struct</span><span class="plain"> </span><span class="reserved">hierarchy_metadatum</span><span class="plain"> {</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">hm_id</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">key</span><span class="plain">;</span>
|
|
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">requirements</span><span class="plain">;</span>
|
|
<span class="identifier">MEMORY_MANAGEMENT</span>
|
|
<span class="plain">} </span><span class="reserved">hierarchy_metadatum</span><span class="plain">;</span>
|
|
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::index_md</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">hierarchy_metadatum</span><span class="plain"> *</span><span class="identifier">hmd</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hmd</span><span class="plain">-></span><span class="element">hm_id</span><span class="plain"> >= </span><span class="constant">0</span><span class="plain">) </span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">hmds_indexed_by_id</span><span class="plain">[</span><span class="identifier">hmd</span><span class="plain">-></span><span class="element">hm_id</span><span class="plain">] = </span><span class="identifier">hmd</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">hierarchy_metadatum</span><span class="plain"> *</span><span class="functiontext">HierarchyLocations::metadata</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">int</span><span class="plain"> </span><span class="identifier">hm_id</span><span class="plain">, </span><span class="reserved">location_requirement</span><span class="plain"> </span><span class="identifier">req</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">key</span><span class="plain">) {</span>
|
|
<span class="reserved">hierarchy_metadatum</span><span class="plain"> *</span><span class="identifier">hmd</span><span class="plain"> = </span><span class="identifier">CREATE</span><span class="plain">(</span><span class="reserved">hierarchy_metadatum</span><span class="plain">);</span>
|
|
<span class="identifier">hmd</span><span class="plain">-></span><span class="element">hm_id</span><span class="plain"> = </span><span class="identifier">hm_id</span><span class="plain">;</span>
|
|
<span class="identifier">hmd</span><span class="plain">-></span><span class="element">requirements</span><span class="plain"> = </span><span class="identifier">req</span><span class="plain">;</span>
|
|
<span class="identifier">hmd</span><span class="plain">-></span><span class="element">key</span><span class="plain"> = </span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">key</span><span class="plain">);</span>
|
|
<span class="functiontext">HierarchyLocations::index_md</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hmd</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">hmd</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">HierarchyLocations::markup</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">package_request</span><span class="plain"> *</span><span class="identifier">R</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">hm_id</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">value</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">hm_id</span><span class="plain"> < </span><span class="constant">0</span><span class="plain">) || (</span><span class="identifier">hm_id</span><span class="plain"> >= </span><span class="identifier">NO_DEFINED_HMD_VALUES</span><span class="plain">) || (</span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">hmds_indexed_by_id</span><span class="plain">[</span><span class="identifier">hm_id</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">"invalid HMD request"</span><span class="plain">);</span>
|
|
<span class="reserved">hierarchy_metadatum</span><span class="plain"> *</span><span class="identifier">hmd</span><span class="plain"> = </span><span class="identifier">I</span><span class="plain">-></span><span class="identifier">site</span><span class="plain">.</span><span class="element">hmds_indexed_by_id</span><span class="plain">[</span><span class="identifier">hm_id</span><span class="plain">];</span>
|
|
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">wrong</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">hmd</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_submodule_package_of_this_identity</span><span class="plain">) {</span>
|
|
<span class="identifier">wrong</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> </span><span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hmd</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">R</span><span class="plain"> != </span><span class="identifier">hmd</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package</span><span class="plain">)</span>
|
|
<span class="identifier">wrong</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> </span><span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hmd</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package_not_yet_created</span><span class="plain"> >= </span><span class="constant">0</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="reserved">if</span><span class="plain"> (</span><span class="identifier">R</span><span class="plain"> != </span><span class="identifier">Hierarchy::exotic_package</span><span class="plain">(</span><span class="identifier">hmd</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">this_exact_package_not_yet_created</span><span class="plain">))</span>
|
|
<span class="identifier">wrong</span><span class="plain"> = </span><span class="identifier">TRUE</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">"feature available only within inform7 compiler"</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">hmd</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_package_of_this_type</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">R</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) || (</span><span class="identifier">R</span><span class="plain">-></span><span class="element">eventual_type</span><span class="plain"> != </span><span class="functiontext">PackageTypes::get</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">hmd</span><span class="plain">-></span><span class="element">requirements</span><span class="plain">.</span><span class="element">any_package_of_this_type</span><span class="plain">)))</span>
|
|
<span class="identifier">wrong</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">wrong</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"misapplied metadata"</span><span class="plain">);</span>
|
|
|
|
<span class="functiontext">Produce::metadata</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">R</span><span class="plain">, </span><span class="identifier">hmd</span><span class="plain">-></span><span class="element">key</span><span class="plain">, </span><span class="identifier">value</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::index_md appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::metadata appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function HierarchyLocations::markup appears nowhere else.</p>
|
|
|
|
<p class="endnote">The structure hierarchy_metadatum is private to this section.</p>
|
|
|
|
<hr class="tocbar">
|
|
<ul class="toc"><li><a href="1-tv.html">Back to 'The Veneer'</a></li><li><a href="1-trn.html">Continue with 'Translation'</a></li></ul><hr class="tocbar">
|
|
<!--End of weave-->
|
|
</main>
|
|
</body>
|
|
</html>
|
|
|