mirror of
https://github.com/ganelson/inform.git
synced 2024-07-05 16:44:21 +03:00
111 lines
15 KiB
HTML
111 lines
15 KiB
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
|
|
<html>
|
|
<head>
|
|
<title>1/pc</title>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
|
<meta http-equiv="Content-Language" content="en-gb">
|
|
<link href="inweb.css" rel="stylesheet" rev="stylesheet" type="text/css">
|
|
</head>
|
|
<body>
|
|
|
|
<!--Weave of '1/ut' generated by 7-->
|
|
<ul class="crumbs"><li><a href="../webs.html">★</a></li><li><a href="index.html">words-test</a></li><li><a href="index.html#1">Chapter 1: Everything</a></li><li><b>Unit Tests</b></li></ul><p class="purpose">A selection of tests for, or demonstrations of, words features.</p>
|
|
|
|
<ul class="toc"><li><a href="#SP1">§1. Lexer</a></li><li><a href="#SP2">§2. Preform</a></li></ul><hr class="tocbar">
|
|
|
|
<p class="inwebparagraph"><a id="SP1"></a><b>§1. Lexer. </b></p>
|
|
|
|
|
|
<pre class="definitions">
|
|
<span class="definitionkeyword">define</span> <span class="constant">SPOTTED_MC</span><span class="plain"> 0</span><span class="identifier">x00010000</span>
|
|
</pre>
|
|
|
|
<pre class="display">
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Unit::test_lexer</span><span class="plain">(</span><span class="reserved">text_stream</span><span class="plain"> *</span><span class="identifier">arg</span><span class="plain">) {</span>
|
|
<span class="reserved">filename</span><span class="plain"> *</span><span class="identifier">F</span><span class="plain"> = </span><span class="functiontext">Filenames::from_text</span><span class="plain">(</span><span class="identifier">arg</span><span class="plain">);</span>
|
|
<span class="reserved">source_file</span><span class="plain"> *</span><span class="identifier">sf</span><span class="plain"> = </span><span class="functiontext">TextFromFiles::feed_into_lexer</span><span class="plain">(</span><span class="identifier">F</span><span class="plain">, </span><span class="constant">NULL_GENERAL_POINTER</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">sf</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="identifier">PRINT</span><span class="plain">(</span><span class="string">"File has failed to open\</span><span class="plain">n</span><span class="string">"</span><span class="plain">);</span>
|
|
<span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="identifier">PRINT</span><span class="plain">(</span><span class="string">"File contained %d lexer words\</span><span class="plain">n</span><span class="string">Word counted at %d\</span><span class="plain">n</span><span class="string">"</span><span class="plain">,</span>
|
|
<span class="functiontext">Wordings::length</span><span class="plain">(</span><span class="identifier">sf</span><span class="plain">-</span><span class="element">>text_read</span><span class="plain">), </span><span class="identifier">sf</span><span class="plain">-</span><span class="element">>words_of_source</span><span class="plain">);</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">c</span><span class="plain"> = 0;</span>
|
|
<span class="identifier">LOOP_THROUGH_WORDING</span><span class="plain">(</span><span class="identifier">wn</span><span class="plain">, </span><span class="identifier">sf</span><span class="plain">-</span><span class="element">>text_read</span><span class="plain">) {</span>
|
|
<span class="reserved">vocabulary_entry</span><span class="plain"> *</span><span class="identifier">ve</span><span class="plain"> = </span><span class="functiontext">Lexer::word</span><span class="plain">(</span><span class="identifier">wn</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">ve</span><span class="plain">) && (</span><span class="functiontext">Vocabulary::test_vflags</span><span class="plain">(</span><span class="identifier">ve</span><span class="plain">, </span><span class="constant">SPOTTED_MC</span><span class="plain">) == 0)) {</span>
|
|
<span class="identifier">PRINT</span><span class="plain">(</span><span class="string">"%w "</span><span class="plain">, </span><span class="identifier">ve</span><span class="plain">-</span><span class="element">>exemplar</span><span class="plain">);</span>
|
|
<span class="functiontext">Vocabulary::set_flags</span><span class="plain">(</span><span class="identifier">ve</span><span class="plain">, </span><span class="constant">SPOTTED_MC</span><span class="plain">);</span>
|
|
<span class="identifier">c</span><span class="plain">++;</span>
|
|
<span class="plain">}</span>
|
|
<span class="plain">}</span>
|
|
<span class="identifier">PRINT</span><span class="plain">(</span><span class="string">"\</span><span class="plain">n</span><span class="string">"</span><span class="plain">);</span>
|
|
<span class="identifier">PRINT</span><span class="plain">(</span><span class="string">"File contained %d distinct words\</span><span class="plain">n</span><span class="string">"</span><span class="plain">, </span><span class="identifier">c</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function Unit::test_lexer is used in 1/pc (<a href="1-pc.html#SP1">§1</a>).</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP2"></a><b>§2. Preform. </b></p>
|
|
|
|
|
|
<pre class="display">
|
|
<span class="plain"><</span><span class="identifier">text</span><span class="plain">> ::=</span>
|
|
<span class="identifier">invade</span><span class="plain"> ... | ==> </span><span class="constant">TRUE</span><span class="plain">; </span><span class="identifier">PRINT</span><span class="plain">(</span><span class="string">"Invading %+W\</span><span class="plain">n</span><span class="string">"</span><span class="plain">, </span><span class="identifier">GET_RW</span><span class="plain">(<</span><span class="identifier">text</span><span class="plain">>, 1));</span>
|
|
<span class="identifier">proclaim</span><span class="plain"> <</span><span class="identifier">any</span><span class="plain">-</span><span class="identifier">integer</span><span class="plain">> | ==> </span><span class="constant">TRUE</span><span class="plain">; </span><span class="identifier">PRINT</span><span class="plain">(</span><span class="string">"It is now %d.\</span><span class="plain">n</span><span class="string">"</span><span class="plain">, </span><span class="identifier">R</span><span class="plain">[1]);</span>
|
|
<span class="identifier">announce</span><span class="plain"> <</span><span class="identifier">quoted</span><span class="plain">-</span><span class="identifier">text</span><span class="plain">> | ==> </span><span class="constant">TRUE</span><span class="plain">; </span><span class="identifier">PRINT</span><span class="plain">(</span><span class="string">"Attention: %w.\</span><span class="plain">n</span><span class="string">"</span><span class="plain">, </span><span class="functiontext">Lexer::word_text</span><span class="plain">(</span><span class="identifier">R</span><span class="plain">[1]));</span>
|
|
<span class="plain"><</span><span class="identifier">declaration</span><span class="plain">> | ==> </span><span class="constant">TRUE</span><span class="plain">; </span><span class="identifier">PRINT</span><span class="plain">(</span><span class="string">"Dominion %d now independent\</span><span class="plain">n</span><span class="string">"</span><span class="plain">, </span><span class="identifier">R</span><span class="plain">[1]);</span>
|
|
<span class="plain">... ==> </span><span class="constant">FALSE</span><span class="plain">; </span><span class="identifier">PRINT</span><span class="plain">(</span><span class="string">"Unknown command\</span><span class="plain">n</span><span class="string">"</span><span class="plain">);</span>
|
|
|
|
<span class="plain"><</span><span class="identifier">declaration</span><span class="plain">> ::=</span>
|
|
<span class="identifier">declare</span><span class="plain"> <</span><span class="identifier">dominion</span><span class="plain">> </span><span class="identifier">independent</span><span class="plain"> ==> </span><span class="identifier">R</span><span class="plain">[1]</span>
|
|
|
|
<span class="plain"><</span><span class="identifier">dominion</span><span class="plain">> ::=</span>
|
|
<span class="identifier">canada</span><span class="plain"> |</span>
|
|
<span class="identifier">india</span><span class="plain"> |</span>
|
|
<span class="identifier">malaya</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="inwebparagraph"><a id="SP3"></a><b>§3. </b></p>
|
|
|
|
|
|
<pre class="display">
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Unit::test_preform</span><span class="plain">(</span><span class="reserved">text_stream</span><span class="plain"> *</span><span class="identifier">arg</span><span class="plain">) {</span>
|
|
<span class="reserved">pathname</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain"> = </span><span class="functiontext">Pathnames::from_text</span><span class="plain">(</span><span class="identifier">I</span><span class="string">"inform7"</span><span class="plain">);</span>
|
|
<span class="identifier">P</span><span class="plain"> = </span><span class="functiontext">Pathnames::subfolder</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"words-test"</span><span class="plain">);</span>
|
|
<span class="identifier">P</span><span class="plain"> = </span><span class="functiontext">Pathnames::subfolder</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"Tangled"</span><span class="plain">);</span>
|
|
<span class="reserved">filename</span><span class="plain"> *</span><span class="identifier">S</span><span class="plain"> = </span><span class="functiontext">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">"Syntax.preform"</span><span class="plain">);</span>
|
|
<span class="reserved">wording</span><span class="plain"> </span><span class="identifier">W</span><span class="plain"> = </span><span class="functiontext">Preform::load_from_file</span><span class="plain">(</span><span class="identifier">S</span><span class="plain">);</span>
|
|
<span class="functiontext">Preform::parse_preform</span><span class="plain">(</span><span class="identifier">W</span><span class="plain">, </span><span class="constant">FALSE</span><span class="plain">);</span>
|
|
|
|
<span class="reserved">filename</span><span class="plain"> *</span><span class="identifier">F</span><span class="plain"> = </span><span class="functiontext">Filenames::from_text</span><span class="plain">(</span><span class="identifier">arg</span><span class="plain">);</span>
|
|
<span class="reserved">source_file</span><span class="plain"> *</span><span class="identifier">sf</span><span class="plain"> = </span><span class="functiontext">TextFromFiles::feed_into_lexer</span><span class="plain">(</span><span class="identifier">F</span><span class="plain">, </span><span class="constant">NULL_GENERAL_POINTER</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">sf</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="identifier">PRINT</span><span class="plain">(</span><span class="string">"File has failed to open\</span><span class="plain">n</span><span class="string">"</span><span class="plain">);</span>
|
|
<span class="reserved">else</span><span class="plain"> {</span>
|
|
<span class="identifier">LOOP_THROUGH_WORDING</span><span class="plain">(</span><span class="identifier">i</span><span class="plain">, </span><span class="identifier">sf</span><span class="plain">-</span><span class="element">>text_read</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="functiontext">Lexer::word</span><span class="plain">(</span><span class="identifier">i</span><span class="plain">) == </span><span class="identifier">PARBREAK_V</span><span class="plain">) </span><span class="reserved">continue</span><span class="plain">;</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">j</span><span class="plain"> = </span><span class="identifier">i</span><span class="plain">;</span>
|
|
<span class="reserved">while</span><span class="plain"> ((</span><span class="identifier">j</span><span class="plain"> <= </span><span class="functiontext">Wordings::last_wn</span><span class="plain">(</span><span class="identifier">sf</span><span class="plain">-</span><span class="element">>text_read</span><span class="plain">)) && (</span><span class="functiontext">Lexer::word</span><span class="plain">(</span><span class="identifier">j</span><span class="plain">) != </span><span class="identifier">PARBREAK_V</span><span class="plain">)) </span><span class="identifier">j</span><span class="plain">++;</span>
|
|
<span class="reserved">wording</span><span class="plain"> </span><span class="identifier">W</span><span class="plain"> = </span><span class="functiontext">Wordings::new</span><span class="plain">(</span><span class="identifier">i</span><span class="plain">, </span><span class="identifier">j</span><span class="plain">-1);</span>
|
|
<span class="identifier">i</span><span class="plain"> = </span><span class="identifier">j</span><span class="plain">-1;</span>
|
|
<span class="identifier">PRINT</span><span class="plain">(</span><span class="string">"command: %W: "</span><span class="plain">, </span><span class="identifier">W</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (<</span><span class="identifier">text</span><span class="plain">>(</span><span class="identifier">W</span><span class="plain">) == </span><span class="constant">FALSE</span><span class="plain">) </span><span class="identifier">PRINT</span><span class="plain">(</span><span class="string">"Failed Preform\</span><span class="plain">n</span><span class="string">"</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="plain">}</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function Unit::test_preform is used in 1/pc (<a href="1-pc.html#SP1">§1</a>).</p>
|
|
|
|
<hr class="tocbar">
|
|
<ul class="toc"><li><a href="1-pc.html">Back to 'Program Control'</a></li><li><i>(This section ends Chapter 1: Everything.)</i></li></ul><hr class="tocbar">
|
|
<!--End of weave-->
|
|
</body>
|
|
</html>
|
|
|