1
0
Fork 0
mirror of https://github.com/ganelson/inform.git synced 2024-07-16 22:14:23 +03:00
inform7/docs/inbuild-module/5-ps2.html

749 lines
116 KiB
HTML
Raw Normal View History

2020-02-27 13:18:25 +02:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
2020-03-31 02:17:21 +03:00
<title>5/ps</title>
2020-03-19 02:11:25 +02:00
<meta name="viewport" content="width=device-width initial-scale=1">
2020-02-27 13:18:25 +02:00
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta http-equiv="Content-Language" content="en-gb">
2020-03-19 02:11:25 +02:00
<link href="../inweb.css" rel="stylesheet" rev="stylesheet" type="text/css">
2020-02-27 13:18:25 +02:00
</head>
<body>
2020-03-19 02:11:25 +02:00
<nav role="navigation">
<h1><a href="../webs.html">Sources</a></h1>
<ul>
<li><a href="../compiler.html"><b>compiler tools</b></a></li>
2020-03-19 02:11:25 +02:00
<li><a href="../other.html">other tools</a></li>
<li><a href="../extensions.html">extensions and kits</a></li>
<li><a href="../units.html">unit test tools</a></li>
</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>
2020-02-27 13:18:25 +02:00
2020-03-19 02:11:25 +02:00
</nav>
<main role="main">
2020-02-27 13:18:25 +02:00
<!--Weave of '5/ps2' generated by 7-->
2020-03-31 02:17:21 +03:00
<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">inbuild</a></li><li><a href="index.html#5">Chapter 5: Genre Services</a></li><li><b>Project Services</b></li></ul><p class="purpose">Behaviour specific to copies of either the projectbundle or projectfile genres.</p>
2020-02-27 13:18:25 +02:00
2020-04-01 22:43:13 +03:00
<ul class="toc"><li><a href="#SP3">&#167;3. Language element activation</a></li></ul><hr class="tocbar">
2020-02-27 13:18:25 +02:00
<p class="inwebparagraph"><a id="SP1"></a><b>&#167;1. </b></p>
<pre class="display">
2020-03-31 02:17:21 +03:00
<span class="reserved">typedef</span><span class="plain"> </span><span class="reserved">struct</span><span class="plain"> </span><span class="reserved">kit_dependency</span><span class="plain"> {</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">inform_kit</span><span class="plain"> *</span><span class="identifier">kit</span><span class="plain">;</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">inform_language</span><span class="plain"> *</span><span class="identifier">because_of_language</span><span class="plain">;</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">inform_kit</span><span class="plain"> *</span><span class="identifier">because_of_kit</span><span class="plain">;</span>
<span class="identifier">MEMORY_MANAGEMENT</span>
<span class="plain">} </span><span class="reserved">kit_dependency</span><span class="plain">;</span>
<span class="reserved">typedef</span><span class="plain"> </span><span class="reserved">struct</span><span class="plain"> </span><span class="reserved">inform_project</span><span class="plain"> {</span>
2020-02-27 13:18:25 +02:00
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">inbuild_copy</span><span class="plain"> *</span><span class="identifier">as_copy</span><span class="plain">;</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">semantic_version_number</span><span class="plain"> </span><span class="identifier">version</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">linked_list</span><span class="plain"> *</span><span class="identifier">source_vertices</span><span class="plain">; </span><span class="comment">of <code class="display"><span class="extract">build_vertex</span></code></span>
2020-03-31 02:17:21 +03:00
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">assumed_to_be_parser_IF</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">linked_list</span><span class="plain"> *</span><span class="identifier">kits_to_include</span><span class="plain">; </span><span class="comment">of <code class="display"><span class="extract">kit_dependency</span></code></span>
2020-03-31 02:17:21 +03:00
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">inform_language</span><span class="plain"> *</span><span class="identifier">language_of_play</span><span class="plain">;</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">inform_language</span><span class="plain"> *</span><span class="identifier">language_of_syntax</span><span class="plain">;</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">inform_language</span><span class="plain"> *</span><span class="identifier">language_of_index</span><span class="plain">;</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">unblorbed_vertex</span><span class="plain">;</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">blorbed_vertex</span><span class="plain">;</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">chosen_build_target</span><span class="plain">;</span>
<span class="reserved">struct</span><span class="plain"> </span><span class="identifier">parse_node_tree</span><span class="plain"> *</span><span class="identifier">syntax_tree</span><span class="plain">;</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">fix_rng</span><span class="plain">;</span>
2020-02-27 13:18:25 +02:00
<span class="identifier">MEMORY_MANAGEMENT</span>
2020-03-31 02:17:21 +03:00
<span class="plain">} </span><span class="reserved">inform_project</span><span class="plain">;</span>
<span class="reserved">inform_project</span><span class="plain"> *</span><span class="functiontext">Projects::new_ip</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">filename</span><span class="plain"> *</span><span class="identifier">F</span><span class="plain">, </span><span class="identifier">pathname</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">) {</span>
<span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain"> = </span><span class="identifier">CREATE</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">version</span><span class="plain"> = </span><span class="identifier">VersionNumbers::null</span><span class="plain">();</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">source_vertices</span><span class="plain"> = </span><span class="identifier">NEW_LINKED_LIST</span><span class="plain">(</span><span class="reserved">build_vertex</span><span class="plain">);</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain"> = </span><span class="identifier">NEW_LINKED_LIST</span><span class="plain">(</span><span class="reserved">kit_dependency</span><span class="plain">);</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">assumed_to_be_parser_IF</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">language_of_play</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">language_of_syntax</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">language_of_index</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">chosen_build_target</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">unblorbed_vertex</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">blorbed_vertex</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">fix_rng</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain"> = </span><span class="identifier">ParseTree::new_tree</span><span class="plain">();</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">project</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::set_to_English</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">proj</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">proj</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 project"</span><span class="plain">);</span>
<span class="reserved">inform_language</span><span class="plain"> *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext">Languages::internal_English</span><span class="plain">();</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">E</span><span class="plain">) {</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">proj</span><span class="plain">-&gt;</span><span class="element">language_of_play</span><span class="plain"> = </span><span class="identifier">E</span><span class="plain">;</span>
<span class="identifier">proj</span><span class="plain">-&gt;</span><span class="element">language_of_syntax</span><span class="plain"> = </span><span class="identifier">E</span><span class="plain">;</span>
<span class="identifier">proj</span><span class="plain">-&gt;</span><span class="element">language_of_index</span><span class="plain"> = </span><span class="identifier">E</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<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">"built-in English language definition can't be found'"</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::set_language_of_play</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">proj</span><span class="plain">, </span><span class="reserved">inform_language</span><span class="plain"> *</span><span class="identifier">L</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">proj</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 project"</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">proj</span><span class="plain">-&gt;</span><span class="element">language_of_play</span><span class="plain"> = </span><span class="identifier">L</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="reserved">inform_language</span><span class="plain"> *</span><span class="functiontext">Projects::get_language_of_play</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">proj</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">proj</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">NULL</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">proj</span><span class="plain">-&gt;</span><span class="element">language_of_play</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::set_language_of_index</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">proj</span><span class="plain">, </span><span class="reserved">inform_language</span><span class="plain"> *</span><span class="identifier">L</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">proj</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 project"</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">proj</span><span class="plain">-&gt;</span><span class="element">language_of_index</span><span class="plain"> = </span><span class="identifier">L</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="reserved">inform_language</span><span class="plain"> *</span><span class="functiontext">Projects::get_language_of_index</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">proj</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">proj</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">NULL</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">proj</span><span class="plain">-&gt;</span><span class="element">language_of_index</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::set_language_of_syntax</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">proj</span><span class="plain">, </span><span class="reserved">inform_language</span><span class="plain"> *</span><span class="identifier">L</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">proj</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 project"</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">proj</span><span class="plain">-&gt;</span><span class="element">language_of_syntax</span><span class="plain"> = </span><span class="identifier">L</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="reserved">inform_language</span><span class="plain"> *</span><span class="functiontext">Projects::get_language_of_syntax</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">proj</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">proj</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">NULL</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">proj</span><span class="plain">-&gt;</span><span class="element">language_of_syntax</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::fix_rng</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">seed</span><span class="plain">) {</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">fix_rng</span><span class="plain"> = </span><span class="identifier">seed</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::not_necessarily_parser_IF</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">) {</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">assumed_to_be_parser_IF</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::set_source_filename</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">pathname</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">filename</span><span class="plain"> *</span><span class="identifier">F</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">filename</span><span class="plain"> *</span><span class="identifier">manifest</span><span class="plain"> = </span><span class="identifier">Filenames::in_folder</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"Contents.txt"</span><span class="plain">);</span>
<span class="identifier">linked_list</span><span class="plain"> *</span><span class="identifier">L</span><span class="plain"> = </span><span class="identifier">NEW_LINKED_LIST</span><span class="plain">(</span><span class="identifier">text_stream</span><span class="plain">);</span>
<span class="identifier">TextFiles::read</span><span class="plain">(</span><span class="identifier">manifest</span><span class="plain">, </span><span class="identifier">FALSE</span><span class="plain">,</span>
<span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">FALSE</span><span class="plain">, </span><span class="functiontext">Projects::manifest_helper</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, (</span><span class="reserved">void</span><span class="plain"> *) </span><span class="identifier">L</span><span class="plain">);</span>
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">leafname</span><span class="plain">;</span>
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">leafname</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain">, </span><span class="identifier">L</span><span class="plain">) {</span>
<span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">S</span><span class="plain"> = </span><span class="functiontext">Graphs::file_vertex</span><span class="plain">(</span><span class="identifier">Filenames::in_folder</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">leafname</span><span class="plain">));</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">S</span><span class="plain">-&gt;</span><span class="element">source_source</span><span class="plain"> = </span><span class="identifier">leafname</span><span class="plain">;</span>
<span class="identifier">ADD_TO_LINKED_LIST</span><span class="plain">(</span><span class="identifier">S</span><span class="plain">, </span><span class="reserved">build_vertex</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">source_vertices</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="plain">}</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">LinkedLists::len</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">source_vertices</span><span class="plain">) == </span><span class="constant">0</span><span class="plain">) &amp;&amp; (</span><span class="identifier">F</span><span class="plain">)) {</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">S</span><span class="plain"> = </span><span class="functiontext">Graphs::file_vertex</span><span class="plain">(</span><span class="identifier">F</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">S</span><span class="plain">-&gt;</span><span class="element">source_source</span><span class="plain"> = </span><span class="identifier">I</span><span class="string">"your source text"</span><span class="plain">;</span>
<span class="identifier">ADD_TO_LINKED_LIST</span><span class="plain">(</span><span class="identifier">S</span><span class="plain">, </span><span class="reserved">build_vertex</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">source_vertices</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::manifest_helper</span><span class="plain">(</span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">text</span><span class="plain">, </span><span class="identifier">text_file_position</span><span class="plain"> *</span><span class="identifier">tfp</span><span class="plain">, </span><span class="reserved">void</span><span class="plain"> *</span><span class="identifier">state</span><span class="plain">) {</span>
<span class="identifier">linked_list</span><span class="plain"> *</span><span class="identifier">L</span><span class="plain"> = (</span><span class="identifier">linked_list</span><span class="plain"> *) </span><span class="identifier">state</span><span class="plain">;</span>
<span class="identifier">Str::trim_white_space</span><span class="plain">(</span><span class="identifier">text</span><span class="plain">);</span>
<span class="identifier">wchar_t</span><span class="plain"> </span><span class="identifier">c</span><span class="plain"> = </span><span class="identifier">Str::get_first_char</span><span class="plain">(</span><span class="identifier">text</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">c</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) || (</span><span class="identifier">c</span><span class="plain"> == </span><span class="character">'#'</span><span class="plain">)) </span><span class="reserved">return</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">ADD_TO_LINKED_LIST</span><span class="plain">(</span><span class="identifier">Str::duplicate</span><span class="plain">(</span><span class="identifier">text</span><span class="plain">), </span><span class="identifier">text_stream</span><span class="plain">, </span><span class="identifier">L</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="identifier">pathname</span><span class="plain"> *</span><span class="functiontext">Projects::path</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">project</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">NULL</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">-&gt;</span><span class="element">location_if_path</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="identifier">linked_list</span><span class="plain"> *</span><span class="functiontext">Projects::source</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">project</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">NULL</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">source_vertices</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::add_kit_dependency</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">kit_name</span><span class="plain">,</span>
<span class="reserved">inform_language</span><span class="plain"> *</span><span class="identifier">because_of_language</span><span class="plain">, </span><span class="reserved">inform_kit</span><span class="plain"> *</span><span class="identifier">because_of_kit</span><span class="plain">) {</span>
<span class="identifier">RUN_ONLY_BEFORE_PHASE</span><span class="plain">(</span><span class="constant">OPERATIONAL_INBUILD_PHASE</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext">Projects::uses_kit</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">kit_name</span><span class="plain">)) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd</span><span class="plain"> = </span><span class="identifier">CREATE</span><span class="plain">(</span><span class="reserved">kit_dependency</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain"> = </span><span class="functiontext">Kits::find_by_name</span><span class="plain">(</span><span class="identifier">kit_name</span><span class="plain">, </span><span class="functiontext">Inbuild::nest_list</span><span class="plain">());</span>
<span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">because_of_language</span><span class="plain"> = </span><span class="identifier">because_of_language</span><span class="plain">;</span>
<span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">because_of_kit</span><span class="plain"> = </span><span class="identifier">because_of_kit</span><span class="plain">;</span>
<span class="identifier">ADD_TO_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">Projects::uses_kit</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</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">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">-&gt;</span><span class="element">edition</span><span class="plain">-&gt;</span><span class="element">work</span><span class="plain">-&gt;</span><span class="element">title</span><span class="plain">, </span><span class="identifier">name</span><span class="plain">))</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">FALSE</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::finalise_kit_dependencies</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">) {</span>
<span class="functiontext">Projects::add_kit_dependency</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"BasicInformKit"</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">inform_language</span><span class="plain"> *</span><span class="identifier">L</span><span class="plain"> = </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">language_of_play</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">L</span><span class="plain">) {</span>
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">kit_name</span><span class="plain"> = </span><span class="functiontext">Languages::kit_name</span><span class="plain">(</span><span class="identifier">L</span><span class="plain">);</span>
<span class="functiontext">Projects::add_kit_dependency</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">kit_name</span><span class="plain">, </span><span class="identifier">L</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">);</span>
<span class="plain">}</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">assumed_to_be_parser_IF</span><span class="plain">)</span>
2020-03-31 02:17:21 +03:00
<span class="functiontext">Projects::add_kit_dependency</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"CommandParserKit"</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">);</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">parity</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
&lt;<span class="cwebmacro">Perform if-this-then-that</span> <span class="cwebmacronumber">1.1</span>&gt;<span class="plain">;</span>
<span class="identifier">parity</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">;</span>
&lt;<span class="cwebmacro">Perform if-this-then-that</span> <span class="cwebmacronumber">1.1</span>&gt;<span class="plain">;</span>
<span class="identifier">linked_list</span><span class="plain"> *</span><span class="identifier">sorted</span><span class="plain"> = </span><span class="identifier">NEW_LINKED_LIST</span><span class="plain">(</span><span class="reserved">kit_dependency</span><span class="plain">);</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">p</span><span class="plain">=0; </span><span class="identifier">p</span><span class="plain">&lt;100; </span><span class="identifier">p</span><span class="plain">++) {</span>
<span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain">-&gt;</span><span class="element">priority</span><span class="plain"> == </span><span class="identifier">p</span><span class="plain">)</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">ADD_TO_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">sorted</span><span class="plain">);</span>
<span class="plain">}</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain"> = </span><span class="identifier">sorted</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">)</span>
<span class="identifier">LOG</span><span class="plain">(</span><span class="string">"Using Inform kit '%S' (priority %d).\n"</span><span class="plain">, </span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">-&gt;</span><span class="element">edition</span><span class="plain">-&gt;</span><span class="element">work</span><span class="plain">-&gt;</span><span class="element">title</span><span class="plain">, </span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain">-&gt;</span><span class="element">priority</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
</pre>
<p class="inwebparagraph"></p>
<p class="endnote">The function Projects::new_ip is used in 4/pbm (<a href="4-pbm.html#SP2">&#167;2</a>), 4/pfm (<a href="4-pfm.html#SP2">&#167;2</a>).</p>
<p class="endnote">The function Projects::set_to_English is used in 1/ic (<a href="1-ic.html#SP9_2">&#167;9.2</a>).</p>
2020-04-01 22:43:13 +03:00
<p class="endnote">The function Projects::set_language_of_play is used in <a href="#SP7">&#167;7</a>.</p>
2020-03-31 02:17:21 +03:00
<p class="endnote">The function Projects::get_language_of_play appears nowhere else.</p>
<p class="endnote">The function Projects::set_language_of_index appears nowhere else.</p>
<p class="endnote">The function Projects::get_language_of_index appears nowhere else.</p>
<p class="endnote">The function Projects::set_language_of_syntax appears nowhere else.</p>
2020-02-27 13:18:25 +02:00
2020-03-31 02:17:21 +03:00
<p class="endnote">The function Projects::get_language_of_syntax is used in 1/ic (<a href="1-ic.html#SP9_2">&#167;9.2</a>).</p>
<p class="endnote">The function Projects::fix_rng is used in 1/ic (<a href="1-ic.html#SP19">&#167;19</a>).</p>
<p class="endnote">The function Projects::not_necessarily_parser_IF is used in 1/ic (<a href="1-ic.html#SP22">&#167;22</a>).</p>
<p class="endnote">The function Projects::set_source_filename is used in 1/ic (<a href="1-ic.html#SP19">&#167;19</a>).</p>
<p class="endnote">The function Projects::manifest_helper appears nowhere else.</p>
2020-04-01 22:43:13 +03:00
<p class="endnote">The function Projects::path is used in <a href="#SP4">&#167;4</a>.</p>
2020-03-31 02:17:21 +03:00
2020-04-01 22:43:13 +03:00
<p class="endnote">The function Projects::source is used in <a href="#SP5">&#167;5</a>, <a href="#SP8">&#167;8</a>.</p>
2020-03-31 02:17:21 +03:00
2020-04-01 22:43:13 +03:00
<p class="endnote">The function Projects::add_kit_dependency is used in 1/ic (<a href="1-ic.html#SP22">&#167;22</a>), 5/kts (<a href="5-kts.html#SP9">&#167;9</a>).</p>
2020-03-31 02:17:21 +03:00
2020-04-01 22:43:13 +03:00
<p class="endnote">The function Projects::uses_kit is used in 5/kts (<a href="5-kts.html#SP9">&#167;9</a>).</p>
2020-03-31 02:17:21 +03:00
2020-04-01 22:43:13 +03:00
<p class="endnote">The function Projects::finalise_kit_dependencies is used in <a href="#SP5">&#167;5</a>.</p>
2020-03-31 02:17:21 +03:00
<p class="endnote">The structure kit_dependency is accessed in 3/is2 and here.</p>
<p class="endnote">The structure inform_project is accessed in 1/ic, 2/edt, 2/rqr, 2/nst, 3/bg, 3/ib, 3/is2, 3/is3, 4/em, 4/lm, 4/pm, 4/pbm, 4/pfm, 4/tm, 5/es, 5/kts, 5/ls, 5/ps, 5/ts, 6/hdn, 6/inc, 6/vmg, 7/ed, 7/ed2, 7/ec and here.</p>
<p class="inwebparagraph"><a id="SP1_1"></a><b>&#167;1.1. </b><code class="display">
&lt;<span class="cwebmacrodefn">Perform if-this-then-that</span> <span class="cwebmacronumber">1.1</span>&gt; =
</code></p>
<pre class="displaydefn">
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">changes_made</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">changes_made</span><span class="plain">) {</span>
<span class="identifier">changes_made</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">;</span>
<span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext">Kits::perform_ittt</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">parity</span><span class="plain">))</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">changes_made</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="plain">}</span>
</pre>
<p class="inwebparagraph"></p>
<p class="endnote">This code is used in <a href="#SP1">&#167;1</a> (twice).</p>
<p class="inwebparagraph"><a id="SP2"></a><b>&#167;2. </b></p>
<pre class="display">
<span class="plain">#</span><span class="identifier">ifdef</span><span class="plain"> </span><span class="identifier">CORE_MODULE</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::load_types</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">) {</span>
<span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">)</span>
<span class="functiontext">Kits::load_types</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="plain">#</span><span class="identifier">endif</span>
2020-04-01 22:43:13 +03:00
</pre>
<p class="inwebparagraph"></p>
<p class="endnote">The function Projects::load_types appears nowhere else.</p>
2020-03-31 02:17:21 +03:00
2020-04-01 22:43:13 +03:00
<p class="inwebparagraph"><a id="SP3"></a><b>&#167;3. Language element activation. </b>Note that this function is meaningful only when this module is part of the
<code class="display"><span class="extract">inform7</span></code> executable, and it invites us to activate or deactivate language
features according to what our kits tell us.
</p>
<pre class="display">
2020-03-31 02:17:21 +03:00
<span class="plain">#</span><span class="identifier">ifdef</span><span class="plain"> </span><span class="identifier">CORE_MODULE</span>
2020-04-01 22:43:13 +03:00
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::activate_elements</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">) {</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOG</span><span class="plain">(</span><span class="string">"Activate elements...\n"</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">Plugins::Manage::activate</span><span class="plain">(</span><span class="identifier">CORE_PLUGIN_NAME</span><span class="plain">);</span>
<span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">)</span>
<span class="functiontext">Kits::activate_elements</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">Plugins::Manage::show</span><span class="plain">(</span><span class="identifier">DL</span><span class="plain">, </span><span class="string">"Included"</span><span class="plain">, </span><span class="identifier">TRUE</span><span class="plain">);</span>
<span class="identifier">Plugins::Manage::show</span><span class="plain">(</span><span class="identifier">DL</span><span class="plain">, </span><span class="string">"Excluded"</span><span class="plain">, </span><span class="identifier">FALSE</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="plain">#</span><span class="identifier">endif</span>
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">Projects::Main_defined</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">) {</span>
<span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain">-&gt;</span><span class="element">defines_Main</span><span class="plain">)</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">FALSE</span><span class="plain">;</span>
<span class="plain">}</span>
2020-04-01 22:43:13 +03:00
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="functiontext">Projects::index_structure</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">) {</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">I</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain">-&gt;</span><span class="element">index_structure</span><span class="plain">)</span>
<span class="identifier">I</span><span class="plain"> = </span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain">-&gt;</span><span class="element">index_structure</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="plain">;</span>
2020-02-27 13:18:25 +02:00
<span class="plain">}</span>
</pre>
<p class="inwebparagraph"></p>
2020-04-01 22:43:13 +03:00
<p class="endnote">The function Projects::activate_elements is used in <a href="#SP5">&#167;5</a>.</p>
2020-03-31 02:17:21 +03:00
<p class="endnote">The function Projects::Main_defined appears nowhere else.</p>
2020-04-01 22:43:13 +03:00
<p class="endnote">The function Projects::index_structure appears nowhere else.</p>
2020-03-31 02:17:21 +03:00
2020-04-01 22:43:13 +03:00
<p class="inwebparagraph"><a id="SP4"></a><b>&#167;4. </b>Every source text read into Inform is automatically prefixed by a few words
2020-03-31 02:17:21 +03:00
loading the fundamental "extensions" &mdash; text such as "Include Basic Inform by
Graham Nelson." If Inform were a computer, this would be the BIOS which boots
up its operating system. Each kit can contribute such extensions, so there
may be multiple sentences, which we need to count up.
</p>
<pre class="display">
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::early_source_text</span><span class="plain">(</span><span class="identifier">OUTPUT_STREAM</span><span class="plain">, </span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">) {</span>
<span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">)</span>
<span class="functiontext">Kits::early_source_text</span><span class="plain">(</span><span class="identifier">OUT</span><span class="plain">, </span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="identifier">kit</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="plain">#</span><span class="identifier">ifdef</span><span class="plain"> </span><span class="identifier">CODEGEN_MODULE</span>
<span class="identifier">linked_list</span><span class="plain"> *</span><span class="functiontext">Projects::list_of_inter_libraries</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">) {</span>
<span class="identifier">linked_list</span><span class="plain"> *</span><span class="identifier">requirements_list</span><span class="plain"> = </span><span class="identifier">NEW_LINKED_LIST</span><span class="plain">(</span><span class="identifier">link_instruction</span><span class="plain">);</span>
<span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">) {</span>
<span class="reserved">inform_kit</span><span class="plain"> *</span><span class="identifier">K</span><span class="plain"> = </span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">link_instruction</span><span class="plain"> *</span><span class="identifier">link</span><span class="plain"> = </span><span class="identifier">CodeGen::LinkInstructions::new</span><span class="plain">(</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">K</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">-&gt;</span><span class="element">location_if_path</span><span class="plain">, </span><span class="identifier">K</span><span class="plain">-&gt;</span><span class="identifier">attachment_point</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">ADD_TO_LINKED_LIST</span><span class="plain">(</span><span class="identifier">link</span><span class="plain">, </span><span class="identifier">link_instruction</span><span class="plain">, </span><span class="identifier">requirements_list</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">requirements_list</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">#</span><span class="identifier">endif</span>
<span class="identifier">pathname</span><span class="plain"> *</span><span class="functiontext">Projects::build_pathname</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">) {</span>
<span class="identifier">pathname</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain"> = </span><span class="functiontext">Projects::path</span><span class="plain">(</span><span class="identifier">project</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="reserved">return</span><span class="plain"> </span><span class="identifier">Pathnames::subfolder</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"Build"</span><span class="plain">);</span>
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Inbuild::transient</span><span class="plain">();</span>
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::construct_build_target</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">target_vm</span><span class="plain"> *</span><span class="identifier">VM</span><span class="plain">,</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">releasing</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">compile_only</span><span class="plain">) {</span>
<span class="identifier">pathname</span><span class="plain"> *</span><span class="identifier">build_folder</span><span class="plain"> = </span><span class="functiontext">Projects::build_pathname</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">);</span>
<span class="identifier">filename</span><span class="plain"> *</span><span class="identifier">inf_F</span><span class="plain"> = </span><span class="identifier">Filenames::in_folder</span><span class="plain">(</span><span class="identifier">build_folder</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"auto.inf"</span><span class="plain">);</span>
<span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">inter_V</span><span class="plain"> = </span><span class="functiontext">Graphs::file_vertex</span><span class="plain">(</span><span class="identifier">inf_F</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="functiontext">Graphs::need_this_to_build</span><span class="plain">(</span><span class="identifier">inter_V</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">-&gt;</span><span class="element">vertex</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="functiontext">BuildSteps::attach</span><span class="plain">(</span><span class="identifier">inter_V</span><span class="plain">, </span><span class="identifier">compile_using_inform7_skill</span><span class="plain">,</span>
2020-04-07 03:06:09 +03:00
<span class="functiontext">Inbuild::nest_list</span><span class="plain">(), </span><span class="identifier">releasing</span><span class="plain">, </span><span class="identifier">VM</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">inf_V</span><span class="plain"> = </span><span class="functiontext">Graphs::file_vertex</span><span class="plain">(</span><span class="identifier">inf_F</span><span class="plain">);</span>
<span class="functiontext">Graphs::need_this_to_build</span><span class="plain">(</span><span class="identifier">inf_V</span><span class="plain">, </span><span class="identifier">inter_V</span><span class="plain">);</span>
<span class="functiontext">BuildSteps::attach</span><span class="plain">(</span><span class="identifier">inf_V</span><span class="plain">, </span><span class="identifier">code_generate_using_inter_skill</span><span class="plain">,</span>
2020-04-07 03:06:09 +03:00
<span class="functiontext">Inbuild::nest_list</span><span class="plain">(), </span><span class="identifier">releasing</span><span class="plain">, </span><span class="identifier">VM</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">TEMPORARY_TEXT</span><span class="plain">(</span><span class="identifier">story_file_leafname</span><span class="plain">);</span>
<span class="identifier">WRITE_TO</span><span class="plain">(</span><span class="identifier">story_file_leafname</span><span class="plain">, </span><span class="string">"output.%S"</span><span class="plain">, </span><span class="identifier">TargetVMs::get_unblorbed_extension</span><span class="plain">(</span><span class="identifier">VM</span><span class="plain">));</span>
<span class="identifier">filename</span><span class="plain"> *</span><span class="identifier">unblorbed_F</span><span class="plain"> = </span><span class="identifier">Filenames::in_folder</span><span class="plain">(</span><span class="identifier">build_folder</span><span class="plain">, </span><span class="identifier">story_file_leafname</span><span class="plain">);</span>
<span class="identifier">DISCARD_TEXT</span><span class="plain">(</span><span class="identifier">story_file_leafname</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">unblorbed_vertex</span><span class="plain"> = </span><span class="functiontext">Graphs::file_vertex</span><span class="plain">(</span><span class="identifier">unblorbed_F</span><span class="plain">);</span>
<span class="functiontext">Graphs::need_this_to_build</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">unblorbed_vertex</span><span class="plain">, </span><span class="identifier">inf_V</span><span class="plain">);</span>
<span class="functiontext">BuildSteps::attach</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">unblorbed_vertex</span><span class="plain">, </span><span class="identifier">compile_using_inform6_skill</span><span class="plain">,</span>
<span class="functiontext">Inbuild::nest_list</span><span class="plain">(), </span><span class="identifier">releasing</span><span class="plain">, </span><span class="identifier">VM</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">TEMPORARY_TEXT</span><span class="plain">(</span><span class="identifier">story_file_leafname2</span><span class="plain">);</span>
<span class="identifier">WRITE_TO</span><span class="plain">(</span><span class="identifier">story_file_leafname2</span><span class="plain">, </span><span class="string">"output.%S"</span><span class="plain">, </span><span class="identifier">TargetVMs::get_blorbed_extension</span><span class="plain">(</span><span class="identifier">VM</span><span class="plain">));</span>
<span class="identifier">filename</span><span class="plain"> *</span><span class="identifier">blorbed_F</span><span class="plain"> = </span><span class="identifier">Filenames::in_folder</span><span class="plain">(</span><span class="identifier">build_folder</span><span class="plain">, </span><span class="identifier">story_file_leafname2</span><span class="plain">);</span>
<span class="identifier">DISCARD_TEXT</span><span class="plain">(</span><span class="identifier">story_file_leafname2</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">blorbed_vertex</span><span class="plain"> = </span><span class="functiontext">Graphs::file_vertex</span><span class="plain">(</span><span class="identifier">blorbed_F</span><span class="plain">);</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">blorbed_vertex</span><span class="plain">-&gt;</span><span class="element">always_build_this</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="functiontext">Graphs::need_this_to_build</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">blorbed_vertex</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">unblorbed_vertex</span><span class="plain">);</span>
<span class="functiontext">BuildSteps::attach</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">blorbed_vertex</span><span class="plain">, </span><span class="identifier">package_using_inblorb_skill</span><span class="plain">,</span>
<span class="functiontext">Inbuild::nest_list</span><span class="plain">(), </span><span class="identifier">releasing</span><span class="plain">, </span><span class="identifier">VM</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">compile_only</span><span class="plain">) {</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">chosen_build_target</span><span class="plain"> = </span><span class="identifier">inf_V</span><span class="plain">;</span>
<span class="identifier">inf_V</span><span class="plain">-&gt;</span><span class="element">always_build_this</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">releasing</span><span class="plain">) </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">chosen_build_target</span><span class="plain"> = </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">blorbed_vertex</span><span class="plain">;</span>
<span class="reserved">else</span><span class="plain"> </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">chosen_build_target</span><span class="plain"> = </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">unblorbed_vertex</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::graph_dependent_kit</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">, </span><span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">V</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">use</span><span class="plain">) {</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">KV</span><span class="plain"> = </span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">-&gt;</span><span class="element">vertex</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">use</span><span class="plain">) </span><span class="functiontext">Graphs::need_this_to_use</span><span class="plain">(</span><span class="identifier">V</span><span class="plain">, </span><span class="identifier">KV</span><span class="plain">);</span>
<span class="reserved">else</span><span class="plain"> </span><span class="functiontext">Graphs::need_this_to_build</span><span class="plain">(</span><span class="identifier">V</span><span class="plain">, </span><span class="identifier">KV</span><span class="plain">);</span>
<span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd2</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd2</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">kd2</span><span class="plain">-&gt;</span><span class="identifier">because_of_kit</span><span class="plain"> == </span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">kit</span><span class="plain">) &amp;&amp; (</span><span class="identifier">kd2</span><span class="plain">-&gt;</span><span class="element">because_of_language</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">))</span>
2020-03-31 02:17:21 +03:00
<span class="functiontext">Projects::graph_dependent_kit</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">KV</span><span class="plain">, </span><span class="identifier">kd2</span><span class="plain">, </span><span class="identifier">TRUE</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::graph_dependent_language</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">, </span><span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">V</span><span class="plain">, </span><span class="reserved">inform_language</span><span class="plain"> *</span><span class="identifier">L</span><span class="plain">, </span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">use</span><span class="plain">) {</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">LV</span><span class="plain"> = </span><span class="identifier">L</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">-&gt;</span><span class="element">vertex</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">use</span><span class="plain">) </span><span class="functiontext">Graphs::need_this_to_use</span><span class="plain">(</span><span class="identifier">V</span><span class="plain">, </span><span class="identifier">LV</span><span class="plain">);</span>
<span class="reserved">else</span><span class="plain"> </span><span class="functiontext">Graphs::need_this_to_build</span><span class="plain">(</span><span class="identifier">V</span><span class="plain">, </span><span class="identifier">LV</span><span class="plain">);</span>
<span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd2</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd2</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">kd2</span><span class="plain">-&gt;</span><span class="identifier">because_of_kit</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) &amp;&amp; (</span><span class="identifier">kd2</span><span class="plain">-&gt;</span><span class="element">because_of_language</span><span class="plain"> == </span><span class="identifier">L</span><span class="plain">))</span>
2020-03-31 02:17:21 +03:00
<span class="functiontext">Projects::graph_dependent_kit</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">LV</span><span class="plain">, </span><span class="identifier">kd2</span><span class="plain">, </span><span class="identifier">TRUE</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::construct_graph</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">) {</span>
<span class="identifier">RUN_ONLY_IN_PHASE</span><span class="plain">(</span><span class="constant">GRAPH_CONSTRUCTION_INBUILD_PHASE</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">project</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">V</span><span class="plain"> = </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">-&gt;</span><span class="element">vertex</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">S</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">S</span><span class="plain">, </span><span class="reserved">build_vertex</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">source_vertices</span><span class="plain">) {</span>
2020-04-08 01:02:44 +03:00
<span class="plain"> </span><span class="functiontext">Graphs::need_this_to_build</span><span class="plain">(</span><span class="identifier">V</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="reserved">kit_dependency</span><span class="plain"> *</span><span class="identifier">kd</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">kd</span><span class="plain">, </span><span class="reserved">kit_dependency</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">kits_to_include</span><span class="plain">)</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">because_of_kit</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) &amp;&amp; (</span><span class="identifier">kd</span><span class="plain">-&gt;</span><span class="element">because_of_language</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">))</span>
2020-03-31 02:17:21 +03:00
<span class="functiontext">Projects::graph_dependent_kit</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">V</span><span class="plain">, </span><span class="identifier">kd</span><span class="plain">, </span><span class="identifier">FALSE</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">inform_language</span><span class="plain"> *</span><span class="identifier">L</span><span class="plain"> = </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">language_of_play</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">L</span><span class="plain">) </span><span class="functiontext">Projects::graph_dependent_language</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">V</span><span class="plain">, </span><span class="identifier">L</span><span class="plain">, </span><span class="identifier">FALSE</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">L</span><span class="plain"> = </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">language_of_syntax</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">L</span><span class="plain">) </span><span class="functiontext">Projects::graph_dependent_language</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">V</span><span class="plain">, </span><span class="identifier">L</span><span class="plain">, </span><span class="identifier">FALSE</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">L</span><span class="plain"> = </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">language_of_index</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">L</span><span class="plain">) </span><span class="functiontext">Projects::graph_dependent_language</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">V</span><span class="plain">, </span><span class="identifier">L</span><span class="plain">, </span><span class="identifier">FALSE</span><span class="plain">);</span>
<span class="plain">}</span>
</pre>
<p class="inwebparagraph"></p>
2020-04-01 22:43:13 +03:00
<p class="endnote">The function Projects::early_source_text is used in <a href="#SP5">&#167;5</a>.</p>
2020-03-31 02:17:21 +03:00
<p class="endnote">The function Projects::list_of_inter_libraries is used in 3/is (<a href="3-is.html#SP4">&#167;4</a>).</p>
<p class="endnote">The function Projects::build_pathname appears nowhere else.</p>
<p class="endnote">The function Projects::construct_build_target is used in 1/ic (<a href="1-ic.html#SP9">&#167;9</a>).</p>
<p class="endnote">The function Projects::graph_dependent_kit appears nowhere else.</p>
<p class="endnote">The function Projects::graph_dependent_language appears nowhere else.</p>
<p class="endnote">The function Projects::construct_graph is used in 4/pbm (<a href="4-pbm.html#SP6">&#167;6</a>), 4/pfm (<a href="4-pfm.html#SP6">&#167;6</a>).</p>
2020-04-01 22:43:13 +03:00
<p class="inwebparagraph"><a id="SP5"></a><b>&#167;5. </b></p>
2020-03-31 02:17:21 +03:00
<pre class="definitions">
<span class="definitionkeyword">enum</span> <span class="constant">BadTitleSentence_SYNERROR</span>
</pre>
<pre class="display">
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::read_source_text_for</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">) {</span>
<span class="functiontext">Projects::finalise_kit_dependencies</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">);</span>
<span class="identifier">parse_node</span><span class="plain"> *</span><span class="identifier">inclusions_heading</span><span class="plain"> = </span><span class="identifier">ParseTree::new</span><span class="plain">(</span><span class="identifier">HEADING_NT</span><span class="plain">);</span>
<span class="identifier">ParseTree::set_text</span><span class="plain">(</span><span class="identifier">inclusions_heading</span><span class="plain">,</span>
<span class="identifier">Feeds::feed_text_expanding_strings</span><span class="plain">(</span><span class="identifier">L</span><span class="string">"Implied inclusions"</span><span class="plain">));</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">ParseTree::insert_sentence</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">inclusions_heading</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">ParseTree::annotate_int</span><span class="plain">(</span><span class="identifier">inclusions_heading</span><span class="plain">, </span><span class="identifier">sentence_unparsed_ANNOT</span><span class="plain">, </span><span class="identifier">FALSE</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">ParseTree::annotate_int</span><span class="plain">(</span><span class="identifier">inclusions_heading</span><span class="plain">, </span><span class="identifier">heading_level_ANNOT</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">ParseTree::annotate_int</span><span class="plain">(</span><span class="identifier">inclusions_heading</span><span class="plain">, </span><span class="identifier">implied_heading_ANNOT</span><span class="plain">, </span><span class="identifier">TRUE</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="functiontext">Headings::declare</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">inclusions_heading</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">wc</span><span class="plain"> = </span><span class="identifier">lexer_wordcount</span><span class="plain">;</span>
<span class="identifier">TEMPORARY_TEXT</span><span class="plain">(</span><span class="identifier">early</span><span class="plain">);</span>
<span class="functiontext">Projects::early_source_text</span><span class="plain">(</span><span class="identifier">early</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::len</span><span class="plain">(</span><span class="identifier">early</span><span class="plain">) &gt; </span><span class="constant">0</span><span class="plain">) </span><span class="identifier">Feeds::feed_stream</span><span class="plain">(</span><span class="identifier">early</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">DISCARD_TEXT</span><span class="plain">(</span><span class="identifier">early</span><span class="plain">);</span>
<span class="reserved">inbuild_nest</span><span class="plain"> *</span><span class="identifier">E</span><span class="plain"> = </span><span class="functiontext">Inbuild::external</span><span class="plain">();</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">E</span><span class="plain">) </span><span class="functiontext">Projects::read_further_mandatory_text</span><span class="plain">(</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">Filenames::in_folder</span><span class="plain">(</span><span class="identifier">E</span><span class="plain">-&gt;</span><span class="element">location</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"Options.txt"</span><span class="plain">));</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">wording</span><span class="plain"> </span><span class="identifier">early_W</span><span class="plain"> = </span><span class="identifier">Wordings::new</span><span class="plain">(</span><span class="identifier">wc</span><span class="plain">, </span><span class="identifier">lexer_wordcount</span><span class="plain">-1);</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">l</span><span class="plain"> = </span><span class="identifier">ParseTree::push_attachment_point</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">inclusions_heading</span><span class="plain">);</span>
<span class="identifier">Sentences::break_into_project_copy</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">early_W</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">);</span>
<span class="identifier">ParseTree::pop_attachment_point</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">l</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">wc</span><span class="plain"> = </span><span class="identifier">lexer_wordcount</span><span class="plain">;</span>
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">start_set</span><span class="plain"> = </span><span class="identifier">FALSE</span><span class="plain">;</span>
<span class="identifier">linked_list</span><span class="plain"> *</span><span class="identifier">L</span><span class="plain"> = </span><span class="functiontext">Projects::source</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">L</span><span class="plain">) {</span>
<span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">N</span><span class="plain">;</span>
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">N</span><span class="plain">, </span><span class="reserved">build_vertex</span><span class="plain">, </span><span class="identifier">L</span><span class="plain">) {</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">filename</span><span class="plain"> *</span><span class="identifier">F</span><span class="plain"> = </span><span class="identifier">N</span><span class="plain">-&gt;</span><span class="element">as_file</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">start_set</span><span class="plain"> == </span><span class="identifier">FALSE</span><span class="plain">) {</span>
<span class="identifier">start_set</span><span class="plain"> = </span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="identifier">Sentences::set_start_of_source</span><span class="plain">(</span><span class="identifier">lexer_wordcount</span><span class="plain">);</span>
<span class="plain">}</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">N</span><span class="plain">-&gt;</span><span class="element">as_source_file</span><span class="plain"> = </span><span class="functiontext">SourceText::read_file</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">, </span><span class="identifier">F</span><span class="plain">, </span><span class="identifier">N</span><span class="plain">-&gt;</span><span class="element">source_source</span><span class="plain">,</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">FALSE</span><span class="plain">, </span><span class="identifier">TRUE</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="plain">}</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">l</span><span class="plain"> = </span><span class="identifier">ParseTree::push_attachment_point</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">-&gt;</span><span class="identifier">root_node</span><span class="plain">);</span>
<span class="identifier">Sentences::break_into_project_copy</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">Wordings::new</span><span class="plain">(</span><span class="identifier">wc</span><span class="plain">, </span><span class="identifier">lexer_wordcount</span><span class="plain">-1), </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">);</span>
<span class="identifier">ParseTree::pop_attachment_point</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">l</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
2020-04-07 03:06:09 +03:00
<span class="identifier">l</span><span class="plain"> = </span><span class="identifier">ParseTree::push_attachment_point</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">-&gt;</span><span class="identifier">root_node</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">parse_node</span><span class="plain"> *</span><span class="identifier">implicit_heading</span><span class="plain"> = </span><span class="identifier">ParseTree::new</span><span class="plain">(</span><span class="identifier">HEADING_NT</span><span class="plain">);</span>
<span class="identifier">ParseTree::set_text</span><span class="plain">(</span><span class="identifier">implicit_heading</span><span class="plain">, </span><span class="identifier">Feeds::feed_text_expanding_strings</span><span class="plain">(</span><span class="identifier">L</span><span class="string">"Invented sentences"</span><span class="plain">));</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">ParseTree::insert_sentence</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">implicit_heading</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">ParseTree::annotate_int</span><span class="plain">(</span><span class="identifier">implicit_heading</span><span class="plain">, </span><span class="identifier">sentence_unparsed_ANNOT</span><span class="plain">, </span><span class="identifier">FALSE</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">ParseTree::annotate_int</span><span class="plain">(</span><span class="identifier">implicit_heading</span><span class="plain">, </span><span class="identifier">heading_level_ANNOT</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="functiontext">Headings::declare</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">implicit_heading</span><span class="plain">);</span>
<span class="identifier">ParseTree::pop_attachment_point</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">l</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
2020-04-07 03:06:09 +03:00
<span class="identifier">ParseTree::push_attachment_point</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">implicit_heading</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="plain">#</span><span class="identifier">ifdef</span><span class="plain"> </span><span class="identifier">CORE_MODULE</span>
2020-04-01 22:43:13 +03:00
<span class="functiontext">Projects::activate_elements</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="plain">#</span><span class="identifier">endif</span>
2020-04-07 03:06:09 +03:00
<span class="functiontext">Inclusions::traverse</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">);</span>
<span class="functiontext">Headings::satisfy_dependencies</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">syntax_tree</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="plain">#</span><span class="identifier">ifndef</span><span class="plain"> </span><span class="identifier">CORE_MODULE</span>
2020-04-07 03:06:09 +03:00
<span class="functiontext">Copies::list_attached_errors</span><span class="plain">(</span><span class="identifier">STDERR</span><span class="plain">, </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="plain">#</span><span class="identifier">endif</span>
<span class="plain">}</span>
</pre>
<p class="inwebparagraph"></p>
<p class="endnote">The function Projects::read_source_text_for is used in 4/pbm (<a href="4-pbm.html#SP7">&#167;7</a>), 4/pfm (<a href="4-pfm.html#SP7">&#167;7</a>).</p>
2020-04-01 22:43:13 +03:00
<p class="inwebparagraph"><a id="SP6"></a><b>&#167;6. </b>It might seem sensible to parse the opening sentence of the source text,
2020-03-31 02:17:21 +03:00
the bibliographic sentence giving title and author, by looking at the result
of sentence-breaking above. But this isn't fast enough, because the sentence
also specifies the language used, and we need to know of any non-Engkish
choice immediately. So a special hook in the <code class="display"><span class="extract">syntax</span></code> module calls the
following routine as soon as <code class="display"><span class="extract">BIBLIOGRAPHIC_NT</span></code> sentence is found; thus,
it happens during the call to <code class="display"><span class="extract">Sentences::break</span></code> above.
</p>
2020-04-01 22:43:13 +03:00
<p class="inwebparagraph"><a id="SP7"></a><b>&#167;7. </b></p>
2020-03-31 02:17:21 +03:00
<pre class="display">
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::notify_of_bibliographic_sentence</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">parse_node</span><span class="plain"> *</span><span class="identifier">PN</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="identifier">ParseTree::get_text</span><span class="plain">(</span><span class="identifier">PN</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (&lt;</span><span class="identifier">titling</span><span class="plain">-</span><span class="identifier">line</span><span class="plain">&gt;(</span><span class="identifier">W</span><span class="plain">)) {</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">T</span><span class="plain"> = </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">-&gt;</span><span class="element">edition</span><span class="plain">-&gt;</span><span class="element">work</span><span class="plain">-&gt;</span><span class="element">title</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">-&gt;</span><span class="element">edition</span><span class="plain">-&gt;</span><span class="element">work</span><span class="plain">-&gt;</span><span class="element">author_name</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">)</span>
<span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">-&gt;</span><span class="element">edition</span><span class="plain">-&gt;</span><span class="element">work</span><span class="plain">-&gt;</span><span class="identifier">author_name</span><span class="plain"> = </span><span class="identifier">Str::new</span><span class="plain">();</span>
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">A</span><span class="plain"> = </span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">-&gt;</span><span class="element">edition</span><span class="plain">-&gt;</span><span class="element">work</span><span class="plain">-&gt;</span><span class="element">author_name</span><span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">inform_language</span><span class="plain"> *</span><span class="identifier">L</span><span class="plain"> = &lt;&lt;</span><span class="identifier">rp</span><span class="plain">&gt;&gt;;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">L</span><span class="plain">) {</span>
<span class="functiontext">Projects::set_language_of_play</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">L</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOG</span><span class="plain">(</span><span class="string">"Language of play: %S\n"</span><span class="plain">, </span><span class="identifier">L</span><span class="plain">-&gt;</span><span class="identifier">as_copy</span><span class="plain">-&gt;</span><span class="element">edition</span><span class="plain">-&gt;</span><span class="element">work</span><span class="plain">-&gt;</span><span class="element">title</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
2020-04-01 22:43:13 +03:00
&lt;<span class="cwebmacro">Extract title and author name wording</span> <span class="cwebmacronumber">7.2</span>&gt;<span class="plain">;</span>
&lt;<span class="cwebmacro">Dequote the title and, perhaps, author name</span> <span class="cwebmacronumber">7.3</span>&gt;<span class="plain">;</span>
2020-03-31 02:17:21 +03:00
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="reserved">copy_error</span><span class="plain"> *</span><span class="identifier">CE</span><span class="plain"> = </span><span class="functiontext">CopyErrors::new</span><span class="plain">(</span><span class="constant">SYNTAX_CE</span><span class="plain">, </span><span class="constant">BadTitleSentence_SYNERROR</span><span class="plain">);</span>
<span class="functiontext">CopyErrors::supply_node</span><span class="plain">(</span><span class="identifier">CE</span><span class="plain">, </span><span class="identifier">PN</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="functiontext">Copies::attach_error</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">-&gt;</span><span class="element">as_copy</span><span class="plain">, </span><span class="identifier">CE</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="plain">}</span>
<span class="plain">}</span>
</pre>
<p class="inwebparagraph"></p>
<p class="endnote">The function Projects::notify_of_bibliographic_sentence appears nowhere else.</p>
2020-04-01 22:43:13 +03:00
<p class="inwebparagraph"><a id="SP7_1"></a><b>&#167;7.1. </b>This is what the top line of the main source text should look like, if it's
2020-03-31 02:17:21 +03:00
to declare the title and author.
</p>
<pre class="display">
<span class="plain">&lt;</span><span class="identifier">titling</span><span class="plain">-</span><span class="identifier">line</span><span class="plain">&gt; ::=</span>
<span class="plain">&lt;</span><span class="identifier">plain</span><span class="plain">-</span><span class="identifier">titling</span><span class="plain">-</span><span class="identifier">line</span><span class="plain">&gt; ( </span><span class="identifier">in</span><span class="plain"> &lt;</span><span class="identifier">natural</span><span class="plain">-</span><span class="identifier">language</span><span class="plain">&gt; ) | ==&gt; </span><span class="identifier">R</span><span class="plain">[1]; *</span><span class="identifier">XP</span><span class="plain"> = </span><span class="identifier">RP</span><span class="plain">[2];</span>
<span class="plain">&lt;</span><span class="identifier">plain</span><span class="plain">-</span><span class="identifier">titling</span><span class="plain">-</span><span class="identifier">line</span><span class="plain">&gt; ==&gt; </span><span class="identifier">R</span><span class="plain">[1]; *</span><span class="identifier">XP</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
<span class="plain">&lt;</span><span class="identifier">plain</span><span class="plain">-</span><span class="identifier">titling</span><span class="plain">-</span><span class="identifier">line</span><span class="plain">&gt; ::=</span>
<span class="plain">{&lt;</span><span class="identifier">quoted</span><span class="plain">-</span><span class="identifier">text</span><span class="plain">-</span><span class="identifier">without</span><span class="plain">-</span><span class="identifier">subs</span><span class="plain">&gt;} </span><span class="identifier">by</span><span class="plain"> ... | ==&gt; </span><span class="identifier">TRUE</span>
<span class="plain">{&lt;</span><span class="identifier">quoted</span><span class="plain">-</span><span class="identifier">text</span><span class="plain">-</span><span class="identifier">without</span><span class="plain">-</span><span class="identifier">subs</span><span class="plain">&gt;} ==&gt; </span><span class="identifier">FALSE</span>
</pre>
<p class="inwebparagraph"></p>
2020-04-01 22:43:13 +03:00
<p class="inwebparagraph"><a id="SP7_2"></a><b>&#167;7.2. </b><code class="display">
&lt;<span class="cwebmacrodefn">Extract title and author name wording</span> <span class="cwebmacronumber">7.2</span>&gt; =
2020-03-31 02:17:21 +03:00
</code></p>
<pre class="displaydefn">
2020-04-07 03:06:09 +03:00
<span class="identifier">wording</span><span class="plain"> </span><span class="identifier">TW</span><span class="plain"> = </span><span class="identifier">GET_RW</span><span class="plain">(&lt;</span><span class="identifier">plain</span><span class="plain">-</span><span class="identifier">titling</span><span class="plain">-</span><span class="identifier">line</span><span class="plain">&gt;, </span><span class="constant">1</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">wording</span><span class="plain"> </span><span class="identifier">AW</span><span class="plain"> = </span><span class="identifier">EMPTY_WORDING</span><span class="plain">;</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">if</span><span class="plain"> (&lt;&lt;</span><span class="identifier">r</span><span class="plain">&gt;&gt;) </span><span class="identifier">AW</span><span class="plain"> = </span><span class="identifier">GET_RW</span><span class="plain">(&lt;</span><span class="identifier">plain</span><span class="plain">-</span><span class="identifier">titling</span><span class="plain">-</span><span class="identifier">line</span><span class="plain">&gt;, </span><span class="constant">2</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">Str::clear</span><span class="plain">(</span><span class="identifier">T</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">"%+W"</span><span class="plain">, </span><span class="identifier">TW</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Wordings::nonempty</span><span class="plain">(</span><span class="identifier">AW</span><span class="plain">)) {</span>
<span class="identifier">Str::clear</span><span class="plain">(</span><span class="identifier">A</span><span class="plain">);</span>
<span class="identifier">WRITE_TO</span><span class="plain">(</span><span class="identifier">A</span><span class="plain">, </span><span class="string">"%+W"</span><span class="plain">, </span><span class="identifier">AW</span><span class="plain">);</span>
<span class="plain">}</span>
</pre>
<p class="inwebparagraph"></p>
2020-04-01 22:43:13 +03:00
<p class="endnote">This code is used in <a href="#SP7">&#167;7</a>.</p>
2020-03-31 02:17:21 +03:00
2020-04-01 22:43:13 +03:00
<p class="inwebparagraph"><a id="SP7_3"></a><b>&#167;7.3. </b>The author is sometimes given outside of quotation marks:
2020-03-31 02:17:21 +03:00
</p>
<blockquote>
<p>"The Large Scale Structure of Space-Time" by Lindsay Lohan</p>
</blockquote>
<p class="inwebparagraph">But not always:
</p>
<blockquote>
<p>"Greek Rural Postmen and Their Cancellation Numbers" by "will.i.am"</p>
</blockquote>
<p class="macrodefinition"><code class="display">
2020-04-01 22:43:13 +03:00
&lt;<span class="cwebmacrodefn">Dequote the title and, perhaps, author name</span> <span class="cwebmacronumber">7.3</span>&gt; =
2020-03-31 02:17:21 +03:00
</code></p>
<pre class="displaydefn">
<span class="identifier">Str::trim_white_space</span><span class="plain">(</span><span class="identifier">T</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">Str::get_first_char</span><span class="plain">(</span><span class="identifier">T</span><span class="plain">) == </span><span class="character">'\"'</span><span class="plain">) &amp;&amp; (</span><span class="identifier">Str::get_last_char</span><span class="plain">(</span><span class="identifier">T</span><span class="plain">) == </span><span class="character">'\"'</span><span class="plain">)) {</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">Str::delete_first_character</span><span class="plain">(</span><span class="identifier">T</span><span class="plain">);</span>
<span class="identifier">Str::delete_last_character</span><span class="plain">(</span><span class="identifier">T</span><span class="plain">);</span>
<span class="identifier">Str::trim_white_space</span><span class="plain">(</span><span class="identifier">T</span><span class="plain">);</span>
<span class="plain">}</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">LOG</span><span class="plain">(</span><span class="string">"Title: %S\n"</span><span class="plain">, </span><span class="identifier">T</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">Str::trim_white_space</span><span class="plain">(</span><span class="identifier">A</span><span class="plain">);</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">Str::get_first_char</span><span class="plain">(</span><span class="identifier">A</span><span class="plain">) == </span><span class="character">'\"'</span><span class="plain">) &amp;&amp; (</span><span class="identifier">Str::get_last_char</span><span class="plain">(</span><span class="identifier">A</span><span class="plain">) == </span><span class="character">'\"'</span><span class="plain">)) {</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">Str::delete_first_character</span><span class="plain">(</span><span class="identifier">A</span><span class="plain">);</span>
<span class="identifier">Str::delete_last_character</span><span class="plain">(</span><span class="identifier">A</span><span class="plain">);</span>
<span class="identifier">Str::trim_white_space</span><span class="plain">(</span><span class="identifier">A</span><span class="plain">);</span>
<span class="plain">}</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::len</span><span class="plain">(</span><span class="identifier">A</span><span class="plain">) &gt; </span><span class="constant">0</span><span class="plain">) </span><span class="identifier">LOG</span><span class="plain">(</span><span class="string">"Author: %S\n"</span><span class="plain">, </span><span class="identifier">A</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
</pre>
<p class="inwebparagraph"></p>
2020-04-01 22:43:13 +03:00
<p class="endnote">This code is used in <a href="#SP7">&#167;7</a>.</p>
2020-03-31 02:17:21 +03:00
2020-04-01 22:43:13 +03:00
<p class="inwebparagraph"><a id="SP8"></a><b>&#167;8. </b>When Inform reads the (optional!) Options file, very early in its run, it
2020-03-31 02:17:21 +03:00
tries to obey any use options in the file right away &mdash; earlier even than
&lt;structural-sentence&gt;. It spots these, very crudely, as sentences which
match the following (that is, which start with "use"). Note the final full
stop &mdash; it's needed before sentence-breaking has even taken place.
</p>
<pre class="display">
<span class="plain">&lt;</span><span class="identifier">use</span><span class="plain">-</span><span class="identifier">option</span><span class="plain">-</span><span class="identifier">sentence</span><span class="plain">-</span><span class="identifier">shape</span><span class="plain">&gt; ::=</span>
<span class="identifier">use</span><span class="plain"> ... .</span>
<span class="identifier">wording</span><span class="plain"> </span><span class="identifier">options_file_wording</span><span class="plain"> = </span><span class="identifier">EMPTY_WORDING_INIT</span><span class="plain">;</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::read_further_mandatory_text</span><span class="plain">(</span><span class="identifier">filename</span><span class="plain"> *</span><span class="identifier">F</span><span class="plain">) {</span>
<span class="identifier">feed_t</span><span class="plain"> </span><span class="identifier">id</span><span class="plain"> = </span><span class="identifier">Feeds::begin</span><span class="plain">();</span>
<span class="identifier">TextFiles::read</span><span class="plain">(</span><span class="identifier">F</span><span class="plain">, </span><span class="identifier">TRUE</span><span class="plain">,</span>
<span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">FALSE</span><span class="plain">, </span><span class="functiontext">Projects::read_further_mandatory_text_helper</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">);</span>
<span class="identifier">options_file_wording</span><span class="plain"> = </span><span class="identifier">Feeds::end</span><span class="plain">(</span><span class="identifier">id</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Projects::read_further_mandatory_text_helper</span><span class="plain">(</span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">line</span><span class="plain">,</span>
<span class="identifier">text_file_position</span><span class="plain"> *</span><span class="identifier">tfp</span><span class="plain">, </span><span class="reserved">void</span><span class="plain"> *</span><span class="identifier">unused_state</span><span class="plain">) {</span>
2020-04-07 03:06:09 +03:00
<span class="identifier">WRITE_TO</span><span class="plain">(</span><span class="identifier">line</span><span class="plain">, </span><span class="string">"\n"</span><span class="plain">);</span>
2020-03-31 02:17:21 +03:00
<span class="identifier">wording</span><span class="plain"> </span><span class="identifier">W</span><span class="plain"> = </span><span class="identifier">Feeds::feed_stream</span><span class="plain">(</span><span class="identifier">line</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (&lt;</span><span class="identifier">use</span><span class="plain">-</span><span class="identifier">option</span><span class="plain">-</span><span class="identifier">sentence</span><span class="plain">-</span><span class="identifier">shape</span><span class="plain">&gt;(</span><span class="identifier">W</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">UseOptions::set_immediate_option_flags</span><span class="plain">(</span><span class="identifier">W</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">);</span>
<span class="plain">#</span><span class="identifier">endif</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">Projects::draws_from_source_file</span><span class="plain">(</span><span class="reserved">inform_project</span><span class="plain"> *</span><span class="identifier">project</span><span class="plain">, </span><span class="identifier">source_file</span><span class="plain"> *</span><span class="identifier">sf</span><span class="plain">) {</span>
<span class="identifier">linked_list</span><span class="plain"> *</span><span class="identifier">L</span><span class="plain"> = </span><span class="functiontext">Projects::source</span><span class="plain">(</span><span class="identifier">project</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">L</span><span class="plain">) {</span>
<span class="reserved">build_vertex</span><span class="plain"> *</span><span class="identifier">N</span><span class="plain">;</span>
<span class="identifier">LOOP_OVER_LINKED_LIST</span><span class="plain">(</span><span class="identifier">N</span><span class="plain">, </span><span class="reserved">build_vertex</span><span class="plain">, </span><span class="identifier">L</span><span class="plain">)</span>
2020-04-07 03:06:09 +03:00
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">sf</span><span class="plain"> == </span><span class="identifier">N</span><span class="plain">-&gt;</span><span class="element">as_source_file</span><span class="plain">)</span>
2020-03-31 02:17:21 +03:00
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">FALSE</span><span class="plain">;</span>
<span class="plain">}</span>
</pre>
<p class="inwebparagraph"></p>
2020-04-01 22:43:13 +03:00
<p class="endnote">The function Projects::read_further_mandatory_text is used in <a href="#SP5">&#167;5</a>.</p>
2020-03-31 02:17:21 +03:00
<p class="endnote">The function Projects::read_further_mandatory_text_helper appears nowhere else.</p>
2020-02-27 13:18:25 +02:00
2020-03-31 02:17:21 +03:00
<p class="endnote">The function Projects::draws_from_source_file appears nowhere else.</p>
2020-02-27 13:18:25 +02:00
<hr class="tocbar">
2020-03-31 02:17:21 +03:00
<ul class="toc"><li><a href="5-ps.html">Back to 'Pipeline Services'</a></li><li><a href="5-ts.html">Continue with 'Template Services'</a></li></ul><hr class="tocbar">
2020-02-27 13:18:25 +02:00
<!--End of weave-->
2020-03-19 02:11:25 +02:00
</main>
2020-02-27 13:18:25 +02:00
</body>
</html>