ifhub/inform7
1
0
Fork 0
mirror of https://github.com/ganelson/inform.git synced 2024-07-05 16:44:21 +03:00
Code Issues Projects Releases Wiki Activity
inform7/docs/BasicInformKit/S-gt.html
Graham Nelson c49ce42a2e New-style weave navigation
2020-03-19 00:11:25 +00:00

2134 lines
280 KiB
HTML
Raw Blame History

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>S/ut</title>
<meta name="viewport" content="width=device-width initial-scale=1">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta http-equiv="Content-Language" content="en-gb">
<link href="../inweb.css" rel="stylesheet" rev="stylesheet" type="text/css">
</head>
<body>
<nav role="navigation">
<h1><a href="../webs.html">Sources</a></h1>
<ul>
<li><a href="../compiler.html">compiler</a></li>
<li><a href="../other.html">other tools</a></li>
<li><a href="../extensions.html"><b>extensions and kits</b></a></li>
<li><a href="../units.html">unit test tools</a></li>
/ul>
<h2>Extensions</h2>
<ul>
<li><a href="../basic_inform/index.html">Basic Inform</a></li>
<li><a href="../standard_rules/index.html">Standard Rules</a></li>
</ul>
<h2>Kits</h2>
<ul>
<li><a href="../BasicInformKit/index.html">BasicInformKit</a></li>
<li><a href="../BasicInformExtrasKit/index.html">BasicInformExtrasKit</a></li>
<li><a href="../CommandParserKit/index.html">CommandParserKit</a></li>
<li><a href="../EnglishLanguageKit/index.html">EnglishLanguageKit</a></li>
<li><a href="../WorldModelKit/index.html">WorldModelKit</a></li>
</ul>
</nav>
<main role="main">
<!--Weave of 'S/gt' generated by 7-->
<ul class="crumbs"><li><a href="../webs.html">Source</a></li><li><a href="../extensions.html">Kits</a></li><li><a href="index.html">BasicInformKit</a></li><li><b>Glulx Template</b></li></ul><p class="purpose">To start up the Glk interface for the Glulx virtual machine, and provide Glulx-specific printing functions.</p>
<ul class="toc"><li><a href="#SP1">&#167;1. Begin Glulx-only matter</a></li><li><a href="#SP2">&#167;2. Summary</a></li><li><a href="#SP3">&#167;3. Variables and Arrays</a></li><li><a href="#SP4">&#167;4. Infglk</a></li><li><a href="#SP5">&#167;5. Rocks</a></li><li><a href="#SP6">&#167;6. Stubs</a></li><li><a href="#SP7">&#167;7. Starting Up</a></li><li><a href="#SP8">&#167;8. Enable Acceleration</a></li><li><a href="#SP9">&#167;9. Release Number</a></li><li><a href="#SP10">&#167;10. Keyboard Input</a></li><li><a href="#SP11">&#167;11. Buffer Functions</a></li><li><a href="#SP12">&#167;12. Dictionary Functions</a></li><li><a href="#SP13">&#167;13. SHOWVERB support</a></li><li><a href="#SP14">&#167;14. Command Tables</a></li><li><a href="#SP15">&#167;15. Random Number Generator</a></li><li><a href="#SP16">&#167;16. Memory Allocation</a></li><li><a href="#SP17">&#167;17. Audiovisual Resources</a></li><li><a href="#SP18">&#167;18. Typography</a></li><li><a href="#SP19">&#167;19. Character Casing</a></li><li><a href="#SP20">&#167;20. Glulx-Only Printing Routines</a></li><li><a href="#SP21">&#167;21. The Screen</a></li><li><a href="#SP22">&#167;22. Window Colours</a></li><li><a href="#SP23">&#167;23. Main Window</a></li><li><a href="#SP24">&#167;24. Status Line</a></li><li><a href="#SP25">&#167;25. Quotation Boxes</a></li><li><a href="#SP26">&#167;26. Veneer</a></li><li><a href="#SP27">&#167;27. End Glulx-only matter</a></li></ul><hr class="tocbar">
<p class="inwebparagraph"><a id="SP1"></a><b>&#167;1. Begin Glulx-only matter. </b></p>
<pre class="display">
<span class="plain">#</span><span class="identifier">Ifdef</span><span class="plain"> </span><span class="identifier">TARGET_GLULX</span><span class="plain">;</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP2"></a><b>&#167;2. Summary. </b>This segment closely parallels "ZMachine.i6t", which provides exactly
equivalent functionality (indeed, usually the same-named functions and in
the same order) for the Z-machine VM. This is intended to make the rest of the
template code independent of the choice of VM, although that is more of an
ideal than a reality, because there are so many fiddly differences in some
of the grammar and dictionary tables that it is not really practical for
the parser (for instance) to call VM-neutral routines to get the data it
wants out of these arrays.
</p>
<p class="inwebparagraph"><a id="SP3"></a><b>&#167;3. Variables and Arrays. </b></p>
<pre class="display">
<span class="reserved">Array</span><span class="plain"> </span><span class="identifier">gg_event</span><span class="plain"> </span><span class="constant">--</span><span class="plain">&gt; </span><span class="constant">4</span><span class="plain">;</span>
<span class="reserved">Array</span><span class="plain"> </span><span class="identifier">gg_arguments</span><span class="plain"> </span><span class="identifier">buffer</span><span class="plain"> </span><span class="constant">28</span><span class="plain">;</span>
<span class="identifier">Global</span><span class="plain"> </span><span class="identifier">gg_mainwin</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">Global</span><span class="plain"> </span><span class="identifier">gg_statuswin</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">Global</span><span class="plain"> </span><span class="identifier">gg_quotewin</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">Global</span><span class="plain"> </span><span class="identifier">gg_scriptfref</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">Global</span><span class="plain"> </span><span class="identifier">gg_scriptstr</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">Global</span><span class="plain"> </span><span class="identifier">gg_savestr</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">Global</span><span class="plain"> </span><span class="identifier">gg_commandstr</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">Global</span><span class="plain"> </span><span class="identifier">gg_command_reading</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">; </span><span class="comment">! true if gg_commandstr is being replayed</span>
<span class="identifier">Global</span><span class="plain"> </span><span class="identifier">gg_foregroundchan</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">Global</span><span class="plain"> </span><span class="identifier">gg_backgroundchan</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">GLK_NULL</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">INPUT_BUFFER_LEN</span><span class="plain"> = </span><span class="constant">260</span><span class="plain">; </span><span class="comment">! No extra byte necessary</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">MAX_BUFFER_WORDS</span><span class="plain"> = </span><span class="constant">20</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">PARSE_BUFFER_LEN</span><span class="plain"> = </span><span class="constant">61</span><span class="plain">;</span>
<span class="reserved">Array</span><span class="plain"> </span><span class="identifier">buffer</span><span class="plain"> </span><span class="identifier">buffer</span><span class="plain"> </span><span class="identifier">INPUT_BUFFER_LEN</span><span class="plain">;</span>
<span class="reserved">Array</span><span class="plain"> </span><span class="identifier">buffer2</span><span class="plain"> </span><span class="identifier">buffer</span><span class="plain"> </span><span class="identifier">INPUT_BUFFER_LEN</span><span class="plain">;</span>
<span class="reserved">Array</span><span class="plain"> </span><span class="identifier">buffer3</span><span class="plain"> </span><span class="identifier">buffer</span><span class="plain"> </span><span class="identifier">INPUT_BUFFER_LEN</span><span class="plain">;</span>
<span class="reserved">Array</span><span class="plain"> </span><span class="identifier">parse</span><span class="plain"> </span><span class="constant">--</span><span class="plain">&gt; </span><span class="identifier">PARSE_BUFFER_LEN</span><span class="plain">;</span>
<span class="reserved">Array</span><span class="plain"> </span><span class="identifier">parse2</span><span class="plain"> </span><span class="constant">--</span><span class="plain">&gt; </span><span class="identifier">PARSE_BUFFER_LEN</span><span class="plain">;</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP4"></a><b>&#167;4. Infglk. </b>This section is a verbatim copy of an invaluable I6 header file originally
put together by John Cater but now maintained by Andrew Plotkin. The routines
are convenient to have on hand, and also provide a canonical set of I6 names
for the many gestalt and other codes.
</p>
<pre class="display">
<span class="comment">! infglk.h -- auto-generated by parse_dispatch.py.</span>
<span class="comment">! Generated for Glk API version 0.7.4</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">evtype_Arrange</span><span class="plain"> = </span><span class="constant">5</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">evtype_CharInput</span><span class="plain"> = </span><span class="constant">2</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">evtype_Hyperlink</span><span class="plain"> = </span><span class="constant">8</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">evtype_LineInput</span><span class="plain"> = </span><span class="constant">3</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">evtype_MouseInput</span><span class="plain"> = </span><span class="constant">4</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">evtype_None</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">evtype_Redraw</span><span class="plain"> = </span><span class="constant">6</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">evtype_SoundNotify</span><span class="plain"> = </span><span class="constant">7</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">evtype_Timer</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">evtype_VolumeNotify</span><span class="plain"> = </span><span class="constant">9</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">filemode_Read</span><span class="plain"> = </span><span class="constant">2</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">filemode_ReadWrite</span><span class="plain"> = </span><span class="constant">3</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">filemode_Write</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">filemode_WriteAppend</span><span class="plain"> = </span><span class="constant">5</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">fileusage_BinaryMode</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">fileusage_Data</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">fileusage_InputRecord</span><span class="plain"> = </span><span class="constant">3</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">fileusage_SavedGame</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">fileusage_TextMode</span><span class="plain"> = </span><span class="constant">256</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">fileusage_Transcript</span><span class="plain"> = </span><span class="constant">2</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">fileusage_TypeMask</span><span class="plain"> = </span><span class="constant">15</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_CharInput</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_CharOutput</span><span class="plain"> = </span><span class="constant">3</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_CharOutput_ApproxPrint</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_CharOutput_CannotPrint</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_CharOutput_ExactPrint</span><span class="plain"> = </span><span class="constant">2</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_DateTime</span><span class="plain"> = </span><span class="constant">20</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_DrawImage</span><span class="plain"> = </span><span class="constant">7</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_Graphics</span><span class="plain"> = </span><span class="constant">6</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_GraphicsCharInput</span><span class="plain"> = </span><span class="constant">23</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_GraphicsTransparency</span><span class="plain"> = </span><span class="constant">14</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_HyperlinkInput</span><span class="plain"> = </span><span class="constant">12</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_Hyperlinks</span><span class="plain"> = </span><span class="constant">11</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_LineInput</span><span class="plain"> = </span><span class="constant">2</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_LineInputEcho</span><span class="plain"> = </span><span class="constant">17</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_LineTerminatorKey</span><span class="plain"> = </span><span class="constant">19</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_LineTerminators</span><span class="plain"> = </span><span class="constant">18</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_MouseInput</span><span class="plain"> = </span><span class="constant">4</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_ResourceStream</span><span class="plain"> = </span><span class="constant">22</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_Sound</span><span class="plain"> = </span><span class="constant">8</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_Sound2</span><span class="plain"> = </span><span class="constant">21</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_SoundMusic</span><span class="plain"> = </span><span class="constant">13</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_SoundNotify</span><span class="plain"> = </span><span class="constant">10</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_SoundVolume</span><span class="plain"> = </span><span class="constant">9</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_Timer</span><span class="plain"> = </span><span class="constant">5</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_Unicode</span><span class="plain"> = </span><span class="constant">15</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_UnicodeNorm</span><span class="plain"> = </span><span class="constant">16</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">gestalt_Version</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">imagealign_InlineCenter</span><span class="plain"> = </span><span class="constant">3</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">imagealign_InlineDown</span><span class="plain"> = </span><span class="constant">2</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">imagealign_MarginLeft</span><span class="plain"> = </span><span class="constant">4</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">imagealign_MarginRight</span><span class="plain"> = </span><span class="constant">5</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">imagealign_InlineUp</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Delete</span><span class="plain"> = </span><span class="constant">4294967289</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Down</span><span class="plain"> = </span><span class="constant">4294967291</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_End</span><span class="plain"> = </span><span class="constant">4294967283</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Escape</span><span class="plain"> = </span><span class="constant">4294967288</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Func1</span><span class="plain"> = </span><span class="constant">4294967279</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Func10</span><span class="plain"> = </span><span class="constant">4294967270</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Func11</span><span class="plain"> = </span><span class="constant">4294967269</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Func12</span><span class="plain"> = </span><span class="constant">4294967268</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Func2</span><span class="plain"> = </span><span class="constant">4294967278</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Func3</span><span class="plain"> = </span><span class="constant">4294967277</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Func4</span><span class="plain"> = </span><span class="constant">4294967276</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Func5</span><span class="plain"> = </span><span class="constant">4294967275</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Func6</span><span class="plain"> = </span><span class="constant">4294967274</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Func7</span><span class="plain"> = </span><span class="constant">4294967273</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Func8</span><span class="plain"> = </span><span class="constant">4294967272</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Func9</span><span class="plain"> = </span><span class="constant">4294967271</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Home</span><span class="plain"> = </span><span class="constant">4294967284</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Left</span><span class="plain"> = </span><span class="constant">4294967294</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_MAXVAL</span><span class="plain"> = </span><span class="constant">28</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_PageDown</span><span class="plain"> = </span><span class="constant">4294967285</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_PageUp</span><span class="plain"> = </span><span class="constant">4294967286</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Return</span><span class="plain"> = </span><span class="constant">4294967290</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Right</span><span class="plain"> = </span><span class="constant">4294967293</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Tab</span><span class="plain"> = </span><span class="constant">4294967287</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Unknown</span><span class="plain"> = </span><span class="constant">4294967295</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">keycode_Up</span><span class="plain"> = </span><span class="constant">4294967292</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">seekmode_Current</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">seekmode_End</span><span class="plain"> = </span><span class="constant">2</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">seekmode_Start</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">style_Alert</span><span class="plain"> = </span><span class="constant">5</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">style_BlockQuote</span><span class="plain"> = </span><span class="constant">7</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">style_Emphasized</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">style_Header</span><span class="plain"> = </span><span class="constant">3</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">style_Input</span><span class="plain"> = </span><span class="constant">8</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">style_NUMSTYLES</span><span class="plain"> = </span><span class="constant">11</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">style_Normal</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">style_Note</span><span class="plain"> = </span><span class="constant">6</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">style_Preformatted</span><span class="plain"> = </span><span class="constant">2</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">style_Subheader</span><span class="plain"> = </span><span class="constant">4</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">style_User1</span><span class="plain"> = </span><span class="constant">9</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">style_User2</span><span class="plain"> = </span><span class="constant">10</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_BackColor</span><span class="plain"> = </span><span class="constant">8</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_Indentation</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_Justification</span><span class="plain"> = </span><span class="constant">2</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_NUMHINTS</span><span class="plain"> = </span><span class="constant">10</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_Oblique</span><span class="plain"> = </span><span class="constant">5</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_ParaIndentation</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_Proportional</span><span class="plain"> = </span><span class="constant">6</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_ReverseColor</span><span class="plain"> = </span><span class="constant">9</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_Size</span><span class="plain"> = </span><span class="constant">3</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_TextColor</span><span class="plain"> = </span><span class="constant">7</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_Weight</span><span class="plain"> = </span><span class="constant">4</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_just_Centered</span><span class="plain"> = </span><span class="constant">2</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_just_LeftFlush</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_just_LeftRight</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">stylehint_just_RightFlush</span><span class="plain"> = </span><span class="constant">3</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">winmethod_Above</span><span class="plain"> = </span><span class="constant">2</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">winmethod_Below</span><span class="plain"> = </span><span class="constant">3</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">winmethod_Border</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">winmethod_BorderMask</span><span class="plain"> = </span><span class="constant">256</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">winmethod_DirMask</span><span class="plain"> = </span><span class="constant">15</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">winmethod_DivisionMask</span><span class="plain"> = </span><span class="constant">240</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">winmethod_Fixed</span><span class="plain"> = </span><span class="constant">16</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">winmethod_Left</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">winmethod_NoBorder</span><span class="plain"> = </span><span class="constant">256</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">winmethod_Proportional</span><span class="plain"> = </span><span class="constant">32</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">winmethod_Right</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">wintype_AllTypes</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">wintype_Blank</span><span class="plain"> = </span><span class="constant">2</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">wintype_Graphics</span><span class="plain"> = </span><span class="constant">5</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">wintype_Pair</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">wintype_TextBuffer</span><span class="plain"> = </span><span class="constant">3</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">wintype_TextGrid</span><span class="plain"> = </span><span class="constant">4</span><span class="plain">;</span>
<span class="plain">[ </span><span class="identifier">glk_exit</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_exit()</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">1</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_tick</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_tick()</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">3</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_gestalt</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_gestalt(uint, uint) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">4</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_gestalt_ext</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_gestalt_ext(uint, uint, uintarray, arraylen) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">5</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_iterate</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_window_iterate(window, &amp;uint) =&gt; window</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">32</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_get_rock</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_window_get_rock(window) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">33</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_get_root</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_window_get_root() =&gt; window</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">34</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_open</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_window_open(window, uint, uint, uint, uint) =&gt; window</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">35</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_close</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_window_close(window, &amp;{uint, uint})</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">36</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_get_size</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_window_get_size(window, &amp;uint, &amp;uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">37</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_set_arrangement</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_window_set_arrangement(window, uint, uint, window)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">38</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_get_arrangement</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_window_get_arrangement(window, &amp;uint, &amp;uint, &amp;window)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">39</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_get_type</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_window_get_type(window) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">40</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_get_parent</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_window_get_parent(window) =&gt; window</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">41</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_clear</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_window_clear(window)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">42</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_move_cursor</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_window_move_cursor(window, uint, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">43</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_get_stream</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_window_get_stream(window) =&gt; stream</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">44</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_set_echo_stream</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_window_set_echo_stream(window, stream)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">45</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_get_echo_stream</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_window_get_echo_stream(window) =&gt; stream</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">46</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_set_window</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_set_window(window)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">47</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_get_sibling</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_window_get_sibling(window) =&gt; window</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">48</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stream_iterate</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_stream_iterate(stream, &amp;uint) =&gt; stream</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">64</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stream_get_rock</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_stream_get_rock(stream) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">65</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stream_open_file</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_stream_open_file(fileref, uint, uint) =&gt; stream</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">66</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stream_open_memory</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_stream_open_memory(nativechararray, arraylen, uint, uint) =&gt; stream</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">67</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stream_close</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_stream_close(stream, &amp;{uint, uint})</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">68</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stream_set_position</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_stream_set_position(stream, int, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">69</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stream_get_position</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_stream_get_position(stream) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">70</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stream_set_current</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_stream_set_current(stream)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">71</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stream_get_current</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_stream_get_current() =&gt; stream</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">72</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stream_open_resource</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_stream_open_resource(uint, uint) =&gt; stream</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">73</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_fileref_create_temp</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_fileref_create_temp(uint, uint) =&gt; fileref</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">96</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_fileref_create_by_name</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_fileref_create_by_name(uint, string, uint) =&gt; fileref</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">97</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_fileref_create_by_prompt</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_fileref_create_by_prompt(uint, uint, uint) =&gt; fileref</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">98</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_fileref_destroy</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_fileref_destroy(fileref)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">99</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_fileref_iterate</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_fileref_iterate(fileref, &amp;uint) =&gt; fileref</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">100</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_fileref_get_rock</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_fileref_get_rock(fileref) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">101</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_fileref_delete_file</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_fileref_delete_file(fileref)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">102</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_fileref_does_file_exist</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_fileref_does_file_exist(fileref) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">103</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_fileref_create_from_fileref</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_fileref_create_from_fileref(uint, fileref, uint) =&gt; fileref</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">104</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_put_char</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_put_char(uchar)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">128</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_put_char_stream</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_put_char_stream(stream, uchar)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">129</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_put_string</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_put_string(string)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">130</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_put_string_stream</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_put_string_stream(stream, string)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">131</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_put_buffer</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_put_buffer(nativechararray, arraylen)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">132</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_put_buffer_stream</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_put_buffer_stream(stream, nativechararray, arraylen)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">133</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_set_style</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_set_style(uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">134</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_set_style_stream</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_set_style_stream(stream, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">135</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_get_char_stream</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_get_char_stream(stream) =&gt; int</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">144</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_get_line_stream</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_get_line_stream(stream, nativechararray, arraylen) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">145</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_get_buffer_stream</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_get_buffer_stream(stream, nativechararray, arraylen) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">146</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_char_to_lower</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_char_to_lower(uchar) =&gt; uchar</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">160</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_char_to_upper</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_char_to_upper(uchar) =&gt; uchar</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">161</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stylehint_set</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_stylehint_set(uint, uint, uint, int)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">176</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stylehint_clear</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_stylehint_clear(uint, uint, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">177</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_style_distinguish</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_style_distinguish(window, uint, uint) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">178</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_style_measure</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_style_measure(window, uint, uint, &amp;uint) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">179</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_select</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_select(&amp;{uint, window, uint, uint})</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">192</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_select_poll</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_select_poll(&amp;{uint, window, uint, uint})</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">193</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_request_line_event</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_request_line_event(window, nativechararray, arraylen, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">208</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_cancel_line_event</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_cancel_line_event(window, &amp;{uint, window, uint, uint})</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">209</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_request_char_event</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_request_char_event(window)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">210</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_cancel_char_event</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_cancel_char_event(window)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">211</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_request_mouse_event</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_request_mouse_event(window)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">212</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_cancel_mouse_event</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_cancel_mouse_event(window)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">213</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_request_timer_events</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_request_timer_events(uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">214</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_image_get_info</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_image_get_info(uint, &amp;uint, &amp;uint) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">224</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_image_draw</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_image_draw(window, uint, int, int) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">225</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_image_draw_scaled</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_image_draw_scaled(window, uint, int, int, uint, uint) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">226</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_flow_break</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_window_flow_break(window)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">232</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_erase_rect</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_window_erase_rect(window, int, int, uint, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">233</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_fill_rect</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_window_fill_rect(window, uint, int, int, uint, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">234</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_window_set_background_color</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_window_set_background_color(window, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">235</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_schannel_iterate</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_schannel_iterate(schannel, &amp;uint) =&gt; schannel</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">240</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_schannel_get_rock</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_schannel_get_rock(schannel) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">241</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_schannel_create</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_schannel_create(uint) =&gt; schannel</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">242</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_schannel_destroy</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_schannel_destroy(schannel)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">243</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_schannel_create_ext</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_schannel_create_ext(uint, uint) =&gt; schannel</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">244</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_schannel_play_multi</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_schannel_play_multi(schannelarray, arraylen, uintarray, arraylen, uint) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">247</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_schannel_play</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_schannel_play(schannel, uint) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">248</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_schannel_play_ext</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_schannel_play_ext(schannel, uint, uint, uint) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">249</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_schannel_stop</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_schannel_stop(schannel)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">250</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_schannel_set_volume</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_schannel_set_volume(schannel, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">251</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_sound_load_hint</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_sound_load_hint(uint, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">252</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_schannel_set_volume_ext</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_schannel_set_volume_ext(schannel, uint, uint, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">253</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_schannel_pause</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_schannel_pause(schannel)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">254</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_schannel_unpause</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_schannel_unpause(schannel)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">255</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_set_hyperlink</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_set_hyperlink(uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">256</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_set_hyperlink_stream</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_set_hyperlink_stream(stream, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">257</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_request_hyperlink_event</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_request_hyperlink_event(window)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">258</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_cancel_hyperlink_event</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_cancel_hyperlink_event(window)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">259</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_buffer_to_lower_case_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_buffer_to_lower_case_uni(uintarray, arraylen, uint) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">288</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_buffer_to_upper_case_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_buffer_to_upper_case_uni(uintarray, arraylen, uint) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">289</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_buffer_to_title_case_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_buffer_to_title_case_uni(uintarray, arraylen, uint, uint) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">290</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_buffer_canon_decompose_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_buffer_canon_decompose_uni(uintarray, arraylen, uint) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">291</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_buffer_canon_normalize_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_buffer_canon_normalize_uni(uintarray, arraylen, uint) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">292</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_put_char_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_put_char_uni(uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">296</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_put_string_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_put_string_uni(unicode)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">297</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_put_buffer_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_put_buffer_uni(uintarray, arraylen)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">298</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_put_char_stream_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_put_char_stream_uni(stream, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">299</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_put_string_stream_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_put_string_stream_uni(stream, unicode)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">300</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_put_buffer_stream_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_put_buffer_stream_uni(stream, uintarray, arraylen)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">301</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_get_char_stream_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_get_char_stream_uni(stream) =&gt; int</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">304</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_get_buffer_stream_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_get_buffer_stream_uni(stream, uintarray, arraylen) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">305</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_get_line_stream_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_get_line_stream_uni(stream, uintarray, arraylen) =&gt; uint</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">306</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stream_open_file_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_stream_open_file_uni(fileref, uint, uint) =&gt; stream</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">312</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stream_open_memory_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_stream_open_memory_uni(uintarray, arraylen, uint, uint) =&gt; stream</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">313</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_stream_open_resource_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_stream_open_resource_uni(uint, uint) =&gt; stream</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">314</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_request_char_event_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_request_char_event_uni(window)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">320</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_request_line_event_uni</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_request_line_event_uni(window, uintarray, arraylen, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">321</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_set_echo_line_event</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_set_echo_line_event(window, uint)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">336</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_set_terminators_line_event</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_set_terminators_line_event(window, uintarray, arraylen)</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">337</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_current_time</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_current_time(&amp;{int, uint, int})</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">352</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_current_simple_time</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_current_simple_time(uint) =&gt; int</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">353</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_time_to_date_utc</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_time_to_date_utc(&amp;{int, uint, int}, &amp;{int, int, int, int, int, int, int, int})</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">360</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_time_to_date_local</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_time_to_date_local(&amp;{int, uint, int}, &amp;{int, int, int, int, int, int, int, int})</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">361</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_simple_time_to_date_utc</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_simple_time_to_date_utc(int, uint, &amp;{int, int, int, int, int, int, int, int})</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">362</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_simple_time_to_date_local</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_simple_time_to_date_local(int, uint, &amp;{int, int, int, int, int, int, int, int})</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">363</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_date_to_time_utc</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_date_to_time_utc(&amp;{int, int, int, int, int, int, int, int}, &amp;{int, uint, int})</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">364</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_date_to_time_local</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain">;</span>
<span class="comment">! glk_date_to_time_local(&amp;{int, int, int, int, int, int, int, int}, &amp;{int, uint, int})</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">365</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_date_to_simple_time_utc</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_date_to_simple_time_utc(&amp;{int, int, int, int, int, int, int, int}, uint) =&gt; int</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">366</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">glk_date_to_simple_time_local</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="comment">! glk_date_to_simple_time_local(&amp;{int, int, int, int, int, int, int, int}, uint) =&gt; int</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">367</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">ret</span><span class="plain">;</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP5"></a><b>&#167;5. Rocks. </b>These are unique ID codes used to mark resources; think of them as inedible
cookies.
</p>
<pre class="display">
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">GG_MAINWIN_ROCK</span><span class="plain"> </span><span class="constant">201</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">GG_STATUSWIN_ROCK</span><span class="plain"> </span><span class="constant">202</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">GG_QUOTEWIN_ROCK</span><span class="plain"> </span><span class="constant">203</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">GG_SAVESTR_ROCK</span><span class="plain"> </span><span class="constant">301</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">GG_SCRIPTSTR_ROCK</span><span class="plain"> </span><span class="constant">302</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">GG_COMMANDWSTR_ROCK</span><span class="plain"> </span><span class="constant">303</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">GG_COMMANDRSTR_ROCK</span><span class="plain"> </span><span class="constant">304</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">GG_SCRIPTFREF_ROCK</span><span class="plain"> </span><span class="constant">401</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">GG_FOREGROUNDCHAN_ROCK</span><span class="plain"> </span><span class="constant">410</span><span class="plain">;</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">GG_BACKGROUNDCHAN_ROCK</span><span class="plain"> </span><span class="constant">411</span><span class="plain">;</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP6"></a><b>&#167;6. Stubs. </b>These are I6 library-style entry point routines, not used by I7, but retained
in case I7 extensions want to do interesting things with Glulx.
</p>
<pre class="display">
<span class="plain">#</span><span class="identifier">Stub</span><span class="plain"> </span><span class="identifier">HandleGlkEvent</span><span class="plain"> </span><span class="constant">2</span><span class="plain">;</span>
<span class="plain">#</span><span class="identifier">Stub</span><span class="plain"> </span><span class="identifier">IdentifyGlkObject</span><span class="plain"> </span><span class="constant">4</span><span class="plain">;</span>
<span class="plain">#</span><span class="identifier">Stub</span><span class="plain"> </span><span class="identifier">InitGlkWindow</span><span class="plain"> </span><span class="constant">1</span><span class="plain">;</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP7"></a><b>&#167;7. Starting Up. </b><code class="display"><span class="extract">VM_Initialise()</span></code> is almost the first routine called, except that the
"starting the virtual machine" activity is allowed to go first; and,
come to think of it, memory allocation has to be set up before even that,
and that in turn calls <code class="display"><span class="extract">VM_PreInitialise()</span></code> to do the absolute minimum.
</p>
<p class="inwebparagraph">Arrangements are a little different here from on the Z-machine, because some
data is retained in the case of a restart.
</p>
<p class="inwebparagraph">(Many thanks are due to Eliuk Blau, who found several tricky timing errors
here and elsewhere in the Glulx-specific code. Frankly, I feel like hanging
a sign on the following routines which reads "Congratulations on bringing
light to the Dark Room.")
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_PreInitialise</span><span class="plain"> </span><span class="identifier">res</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">gestalt</span><span class="plain"> </span><span class="constant">4</span><span class="plain"> </span><span class="constant">2</span><span class="plain"> </span><span class="identifier">res</span><span class="plain">; </span><span class="comment">! Test if this interpreter has Glk...</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">res</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">quit</span><span class="plain">; </span><span class="comment">! ...without which there would be nothing we could do</span>
<span class="identifier">unicode_gestalt_ok</span><span class="plain"> = </span><span class="reserved">false</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">glk_gestalt</span><span class="plain">(</span><span class="identifier">gestalt_Unicode</span><span class="plain">, </span><span class="constant">0</span><span class="plain">))</span>
<span class="identifier">unicode_gestalt_ok</span><span class="plain"> = </span><span class="reserved">true</span><span class="plain">;</span>
<span class="comment">! Set the VM's I/O system to be Glk.</span>
<span class="plain">@</span><span class="identifier">setiosys</span><span class="plain"> </span><span class="constant">2</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">VM_Initialise</span><span class="plain"> </span><span class="identifier">res</span><span class="plain"> </span><span class="identifier">sty</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">gestalt</span><span class="plain"> </span><span class="constant">4</span><span class="plain"> </span><span class="constant">2</span><span class="plain"> </span><span class="identifier">res</span><span class="plain">; </span><span class="comment">! Test if this interpreter has Glk...</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">res</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">quit</span><span class="plain">; </span><span class="comment">! ...without which there would be nothing we could do</span>
<span class="comment">! First, we must go through all the Glk objects that exist, and see</span>
<span class="comment">! if we created any of them. One might think this strange, since the</span>
<span class="comment">! program has just started running, but remember that the player might</span>
<span class="comment">! have just typed "restart".</span>
<span class="identifier">GGRecoverObjects</span><span class="plain">();</span>
<span class="comment">! Sound channel initialisation, and RNG fixing, must be done now rather</span>
<span class="comment">! than later in case InitGlkWindow() returns a non-zero value.</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">glk_gestalt</span><span class="plain">(</span><span class="identifier">gestalt_Sound</span><span class="plain">, </span><span class="constant">0</span><span class="plain">)) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_foregroundchan</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">)</span>
<span class="identifier">gg_foregroundchan</span><span class="plain"> = </span><span class="identifier">glk_schannel_create</span><span class="plain">(</span><span class="identifier">GG_FOREGROUNDCHAN_ROCK</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_backgroundchan</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">)</span>
<span class="identifier">gg_backgroundchan</span><span class="plain"> = </span><span class="identifier">glk_schannel_create</span><span class="plain">(</span><span class="identifier">GG_BACKGROUNDCHAN_ROCK</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">TEMPLATE_CONFIGURATION_BITMAP</span><span class="plain"> &amp; </span><span class="identifier">FIX_RNG_TCBIT</span><span class="plain">) {</span>
<span class="plain">@</span><span class="reserved">random</span><span class="plain"> </span><span class="constant">10000</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="identifier">i</span><span class="plain"> = </span><span class="constant">-</span><span class="identifier">i</span><span class="plain">-2000;</span>
<span class="reserved">print</span><span class="plain"> </span><span class="string">"[Random number generator seed is "</span><span class="plain">, </span><span class="identifier">i</span><span class="plain">, </span><span class="string">"]^"</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">setrandom</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="identifier">res</span><span class="plain"> = </span><span class="identifier">InitGlkWindow</span><span class="plain">(0);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">res</span><span class="plain"> ~= </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="comment">! Now, gg_mainwin and gg_storywin might already be set. If not, set them.</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_mainwin</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) {</span>
<span class="comment">! Open the story window.</span>
<span class="identifier">res</span><span class="plain"> = </span><span class="identifier">InitGlkWindow</span><span class="plain">(</span><span class="identifier">GG_MAINWIN_ROCK</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">res</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) {</span>
<span class="comment">! Left-justify the header style</span>
<span class="identifier">glk_stylehint_set</span><span class="plain">(</span><span class="identifier">wintype_TextBuffer</span><span class="plain">, </span><span class="identifier">style_Header</span><span class="plain">, </span><span class="identifier">stylehint_Justification</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="comment">! Try to make emphasized type in italics and not boldface</span>
<span class="identifier">glk_stylehint_set</span><span class="plain">(</span><span class="identifier">wintype_TextBuffer</span><span class="plain">, </span><span class="identifier">style_Emphasized</span><span class="plain">, </span><span class="identifier">stylehint_Weight</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="identifier">glk_stylehint_set</span><span class="plain">(</span><span class="identifier">wintype_TextBuffer</span><span class="plain">, </span><span class="identifier">style_Emphasized</span><span class="plain">, </span><span class="identifier">stylehint_Oblique</span><span class="plain">, </span><span class="constant">1</span><span class="plain">);</span>
<span class="identifier">gg_mainwin</span><span class="plain"> = </span><span class="identifier">glk_window_open</span><span class="plain">(0, </span><span class="constant">0</span><span class="plain">, </span><span class="constant">0</span><span class="plain">, </span><span class="identifier">wintype_TextBuffer</span><span class="plain">, </span><span class="identifier">GG_MAINWIN_ROCK</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_mainwin</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">quit</span><span class="plain">; </span><span class="comment">! If we can't even open one window, give in</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="comment">! There was already a story window. We should erase it.</span>
<span class="identifier">glk_window_clear</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_statuswin</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) {</span>
<span class="identifier">res</span><span class="plain"> = </span><span class="identifier">InitGlkWindow</span><span class="plain">(</span><span class="identifier">GG_STATUSWIN_ROCK</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">res</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) {</span>
<span class="identifier">statuswin_cursize</span><span class="plain"> = </span><span class="identifier">statuswin_size</span><span class="plain">;</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">sty</span><span class="plain">=0: </span><span class="identifier">sty</span><span class="plain">&lt;</span><span class="identifier">style_NUMSTYLES</span><span class="plain">: </span><span class="identifier">sty</span><span class="plain">++)</span>
<span class="identifier">glk_stylehint_set</span><span class="plain">(</span><span class="identifier">wintype_TextGrid</span><span class="plain">, </span><span class="identifier">sty</span><span class="plain">, </span><span class="identifier">stylehint_ReverseColor</span><span class="plain">, </span><span class="constant">1</span><span class="plain">);</span>
<span class="identifier">gg_statuswin</span><span class="plain"> =</span>
<span class="identifier">glk_window_open</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">, </span><span class="identifier">winmethod_Fixed</span><span class="plain"> + </span><span class="identifier">winmethod_Above</span><span class="plain">,</span>
<span class="identifier">statuswin_cursize</span><span class="plain">, </span><span class="identifier">wintype_TextGrid</span><span class="plain">, </span><span class="identifier">GG_STATUSWIN_ROCK</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="comment">! It's possible that the status window couldn't be opened, in which case</span>
<span class="comment">! gg_statuswin is now zero. We must allow for that later on.</span>
<span class="identifier">glk_set_window</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">);</span>
<span class="identifier">InitGlkWindow</span><span class="plain">(1);</span>
<span class="comment">! Empty the parse buffer (see bug 0001451)</span>
<span class="identifier">buffer3</span><span class="plain">--&gt;0 = </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">GGRecoverObjects</span><span class="plain"> </span><span class="identifier">id</span><span class="plain">;</span>
<span class="comment">! If GGRecoverObjects() has been called, all these stored IDs are</span>
<span class="comment">! invalid, so we start by clearing them all out.</span>
<span class="comment">! (In fact, after a restoreundo, some of them may still be good.</span>
<span class="comment">! For simplicity, though, we assume the general case.)</span>
<span class="identifier">gg_mainwin</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">gg_statuswin</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">gg_quotewin</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">gg_scriptfref</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">gg_scriptstr</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">gg_savestr</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">statuswin_cursize</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">gg_foregroundchan</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">gg_backgroundchan</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">#</span><span class="identifier">Ifdef</span><span class="plain"> </span><span class="identifier">DEBUG</span><span class="plain">;</span>
<span class="identifier">gg_commandstr</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">gg_command_reading</span><span class="plain"> = </span><span class="reserved">false</span><span class="plain">;</span>
<span class="plain">#</span><span class="identifier">Endif</span><span class="plain">; </span><span class="comment">! DEBUG</span>
<span class="comment">! Also tell the game to clear its object references.</span>
<span class="identifier">IdentifyGlkObject</span><span class="plain">(0);</span>
<span class="identifier">id</span><span class="plain"> = </span><span class="identifier">glk_stream_iterate</span><span class="plain">(0, </span><span class="identifier">gg_arguments</span><span class="plain">);</span>
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">id</span><span class="plain">) {</span>
<span class="plain">#</span><span class="identifier">ifdef</span><span class="plain"> </span><span class="identifier">DEBUG</span><span class="plain">;</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0) {</span>
<span class="identifier">GG_SAVESTR_ROCK</span><span class="plain">: </span><span class="identifier">gg_savestr</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
<span class="identifier">GG_SCRIPTSTR_ROCK</span><span class="plain">: </span><span class="identifier">gg_scriptstr</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
<span class="identifier">GG_COMMANDWSTR_ROCK</span><span class="plain">: </span><span class="identifier">gg_commandstr</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
<span class="identifier">gg_command_reading</span><span class="plain"> = </span><span class="reserved">false</span><span class="plain">;</span>
<span class="identifier">GG_COMMANDRSTR_ROCK</span><span class="plain">: </span><span class="identifier">gg_commandstr</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
<span class="identifier">gg_command_reading</span><span class="plain"> = </span><span class="reserved">true</span><span class="plain">;</span>
<span class="reserved">default</span><span class="plain">: </span><span class="identifier">IdentifyGlkObject</span><span class="plain">(1, </span><span class="constant">1</span><span class="plain">, </span><span class="identifier">id</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0);</span>
<span class="plain">}</span>
<span class="plain">#</span><span class="identifier">ifnot</span><span class="plain">;</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0) {</span>
<span class="identifier">GG_SAVESTR_ROCK</span><span class="plain">: </span><span class="identifier">gg_savestr</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
<span class="identifier">GG_SCRIPTSTR_ROCK</span><span class="plain">: </span><span class="identifier">gg_scriptstr</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
<span class="reserved">default</span><span class="plain">: </span><span class="identifier">IdentifyGlkObject</span><span class="plain">(1, </span><span class="constant">1</span><span class="plain">, </span><span class="identifier">id</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0);</span>
<span class="plain">}</span>
<span class="plain">#</span><span class="identifier">endif</span><span class="plain">;</span>
<span class="identifier">id</span><span class="plain"> = </span><span class="identifier">glk_stream_iterate</span><span class="plain">(</span><span class="identifier">id</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="identifier">id</span><span class="plain"> = </span><span class="identifier">glk_window_iterate</span><span class="plain">(0, </span><span class="identifier">gg_arguments</span><span class="plain">);</span>
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">id</span><span class="plain">) {</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0) {</span>
<span class="identifier">GG_MAINWIN_ROCK</span><span class="plain">: </span><span class="identifier">gg_mainwin</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
<span class="identifier">GG_STATUSWIN_ROCK</span><span class="plain">: </span><span class="identifier">gg_statuswin</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
<span class="identifier">GG_QUOTEWIN_ROCK</span><span class="plain">: </span><span class="identifier">gg_quotewin</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
<span class="reserved">default</span><span class="plain">: </span><span class="identifier">IdentifyGlkObject</span><span class="plain">(1, </span><span class="constant">0</span><span class="plain">, </span><span class="identifier">id</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0);</span>
<span class="plain">}</span>
<span class="identifier">id</span><span class="plain"> = </span><span class="identifier">glk_window_iterate</span><span class="plain">(</span><span class="identifier">id</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="identifier">id</span><span class="plain"> = </span><span class="identifier">glk_fileref_iterate</span><span class="plain">(0, </span><span class="identifier">gg_arguments</span><span class="plain">);</span>
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">id</span><span class="plain">) {</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0) {</span>
<span class="identifier">GG_SCRIPTFREF_ROCK</span><span class="plain">: </span><span class="identifier">gg_scriptfref</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
<span class="reserved">default</span><span class="plain">: </span><span class="identifier">IdentifyGlkObject</span><span class="plain">(1, </span><span class="constant">2</span><span class="plain">, </span><span class="identifier">id</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0);</span>
<span class="plain">}</span>
<span class="identifier">id</span><span class="plain"> = </span><span class="identifier">glk_fileref_iterate</span><span class="plain">(</span><span class="identifier">id</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">glk_gestalt</span><span class="plain">(</span><span class="identifier">gestalt_Sound</span><span class="plain">, </span><span class="constant">0</span><span class="plain">)) {</span>
<span class="identifier">id</span><span class="plain"> = </span><span class="identifier">glk_schannel_iterate</span><span class="plain">(0, </span><span class="identifier">gg_arguments</span><span class="plain">);</span>
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">id</span><span class="plain">) {</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0) {</span>
<span class="identifier">GG_FOREGROUNDCHAN_ROCK</span><span class="plain">: </span><span class="identifier">gg_foregroundchan</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
<span class="identifier">GG_BACKGROUNDCHAN_ROCK</span><span class="plain">: </span><span class="identifier">gg_backgroundchan</span><span class="plain"> = </span><span class="identifier">id</span><span class="plain">;</span>
<span class="reserved">default</span><span class="plain">: </span><span class="identifier">IdentifyGlkObject</span><span class="plain">(1, </span><span class="constant">3</span><span class="plain">, </span><span class="identifier">id</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0);</span>
<span class="plain">}</span>
<span class="identifier">id</span><span class="plain"> = </span><span class="identifier">glk_schannel_iterate</span><span class="plain">(</span><span class="identifier">id</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_foregroundchan</span><span class="plain"> ~= </span><span class="constant">0</span><span class="plain">) { </span><span class="identifier">glk_schannel_stop</span><span class="plain">(</span><span class="identifier">gg_foregroundchan</span><span class="plain">); }</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_backgroundchan</span><span class="plain"> ~= </span><span class="constant">0</span><span class="plain">) { </span><span class="identifier">glk_schannel_stop</span><span class="plain">(</span><span class="identifier">gg_backgroundchan</span><span class="plain">); }</span>
<span class="plain">}</span>
<span class="comment">! Tell the game to tie up any loose ends.</span>
<span class="identifier">IdentifyGlkObject</span><span class="plain">(2);</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP8"></a><b>&#167;8. Enable Acceleration. </b>This enables use of March 2009 extension to Glulx which optimises the speed
of Inform-compiled story files by moving the work of I6 veneer routines into
the interpreter itself. It should have no effect on earlier versions of the
Glulx VM, which will lack the gestalt for this feature, but nor should it
do any harm.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">ENABLE_GLULX_ACCEL_R</span><span class="plain"> </span><span class="identifier">addr</span><span class="plain"> </span><span class="identifier">res</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">gestalt</span><span class="plain"> </span><span class="constant">9</span><span class="plain"> </span><span class="constant">0</span><span class="plain"> </span><span class="identifier">res</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">res</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">addr</span><span class="plain"> = #</span><span class="identifier">classes_table</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelparam</span><span class="plain"> </span><span class="constant">0</span><span class="plain"> </span><span class="identifier">addr</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelparam</span><span class="plain"> </span><span class="constant">1</span><span class="plain"> </span><span class="identifier">INDIV_PROP_START</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelparam</span><span class="plain"> </span><span class="constant">2</span><span class="plain"> </span><span class="identifier">Class</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelparam</span><span class="plain"> </span><span class="constant">3</span><span class="plain"> </span><span class="identifier">Object</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelparam</span><span class="plain"> </span><span class="constant">4</span><span class="plain"> </span><span class="identifier">Routine</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelparam</span><span class="plain"> </span><span class="constant">5</span><span class="plain"> </span><span class="identifier">String</span><span class="plain">;</span>
<span class="identifier">addr</span><span class="plain"> = #</span><span class="identifier">globals_array</span><span class="plain"> + </span><span class="identifier">WORDSIZE</span><span class="plain"> * #</span><span class="identifier">g</span><span class="constant">$</span><span class="identifier">self</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelparam</span><span class="plain"> </span><span class="constant">6</span><span class="plain"> </span><span class="identifier">addr</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelparam</span><span class="plain"> </span><span class="constant">7</span><span class="plain"> </span><span class="identifier">NUM_ATTR_BYTES</span><span class="plain">;</span>
<span class="identifier">addr</span><span class="plain"> = #</span><span class="identifier">cpv__start</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelparam</span><span class="plain"> </span><span class="constant">8</span><span class="plain"> </span><span class="identifier">addr</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelfunc</span><span class="plain"> </span><span class="constant">1</span><span class="plain"> </span><span class="identifier">Z__Region</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelfunc</span><span class="plain"> </span><span class="constant">2</span><span class="plain"> </span><span class="identifier">CP__Tab</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelfunc</span><span class="plain"> </span><span class="constant">3</span><span class="plain"> </span><span class="identifier">RA__Pr</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelfunc</span><span class="plain"> </span><span class="constant">4</span><span class="plain"> </span><span class="identifier">RL__Pr</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelfunc</span><span class="plain"> </span><span class="constant">5</span><span class="plain"> </span><span class="identifier">OC__Cl</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelfunc</span><span class="plain"> </span><span class="constant">6</span><span class="plain"> </span><span class="identifier">RV__Pr</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">accelfunc</span><span class="plain"> </span><span class="constant">7</span><span class="plain"> </span><span class="identifier">OP__Pr</span><span class="plain">;</span>
<span class="reserved">rfalse</span><span class="plain">;</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP9"></a><b>&#167;9. Release Number. </b>Like all software, IF story files have release numbers to mark revised
versions being circulated: unlike most software, and partly for traditional
reasons, the version number is recorded not in some print statement or
variable but is branded on, so to speak, in a specific memory location
of the story file header.
</p>
<p class="inwebparagraph"><code class="display"><span class="extract">VM_Describe_Release()</span></code> describes the release and is used as part of the
"banner", IF's equivalent to a title page.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_Describe_Release</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="reserved">print</span><span class="plain"> </span><span class="string">"Release "</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">aloads</span><span class="plain"> </span><span class="identifier">ROM_GAMERELEASE</span><span class="plain"> </span><span class="constant">0</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="reserved">print</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="reserved">print</span><span class="plain"> </span><span class="string">" / Serial number "</span><span class="plain">;</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">i</span><span class="plain">=0 : </span><span class="identifier">i</span><span class="plain">&lt;6 : </span><span class="identifier">i</span><span class="plain">++) </span><span class="reserved">print</span><span class="plain"> (</span><span class="identifier">char</span><span class="plain">) </span><span class="identifier">ROM_GAMESERIAL</span><span class="plain">-&gt;</span><span class="identifier">i</span><span class="plain">;</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP10"></a><b>&#167;10. Keyboard Input. </b>The VM must provide three routines for keyboard input:
</p>
<p class="inwebparagraph"></p>
<ul class="items"><li>(a) <code class="display"><span class="extract">VM_KeyChar()</span></code> waits for a key to be pressed and then returns the
character chosen as a ZSCII character.
</li><li>(b) <code class="display"><span class="extract">VM_KeyDelay(N)</span></code> waits up to N/10 seconds for a key to be pressed,
returning the ZSCII character if so, or 0 if not.
</li><li>(c) <code class="display"><span class="extract">VM_ReadKeyboard(b, t)</span></code> reads a whole newline-terminated command
into the buffer <code class="display"><span class="extract">b</span></code>, then parses it into a word stream in the table <code class="display"><span class="extract">t</span></code>.
</li></ul>
<p class="inwebparagraph">There are elaborations to due with mouse clicks, but this isn't the place
to document all of that.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_KeyChar</span><span class="plain"> </span><span class="identifier">win</span><span class="plain"> </span><span class="identifier">nostat</span><span class="plain"> </span><span class="identifier">done</span><span class="plain"> </span><span class="identifier">res</span><span class="plain"> </span><span class="identifier">ix</span><span class="plain"> </span><span class="identifier">jx</span><span class="plain"> </span><span class="identifier">ch</span><span class="plain">;</span>
<span class="identifier">jx</span><span class="plain"> = </span><span class="identifier">ch</span><span class="plain">; </span><span class="comment">! squash compiler warnings</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">win</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) </span><span class="identifier">win</span><span class="plain"> = </span><span class="identifier">gg_mainwin</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_commandstr</span><span class="plain"> ~= </span><span class="constant">0</span><span class="plain"> &amp;&amp; </span><span class="identifier">gg_command_reading</span><span class="plain"> ~= </span><span class="reserved">false</span><span class="plain">) {</span>
<span class="identifier">done</span><span class="plain"> = </span><span class="identifier">glk_get_line_stream</span><span class="plain">(</span><span class="identifier">gg_commandstr</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">, </span><span class="constant">31</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">done</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) {</span>
<span class="identifier">glk_stream_close</span><span class="plain">(</span><span class="identifier">gg_commandstr</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="identifier">gg_commandstr</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">gg_command_reading</span><span class="plain"> = </span><span class="reserved">false</span><span class="plain">;</span>
<span class="comment">! fall through to normal user input.</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="comment">! Trim the trailing newline</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_arguments</span><span class="plain">-&gt;(</span><span class="identifier">done</span><span class="plain">-1) == </span><span class="constant">10</span><span class="plain">) </span><span class="identifier">done</span><span class="plain"> = </span><span class="identifier">done</span><span class="plain">-1;</span>
<span class="identifier">res</span><span class="plain"> = </span><span class="identifier">gg_arguments</span><span class="plain">-&gt;0;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">res</span><span class="plain"> == </span><span class="character">'\</span><span class="plain">'</span><span class="character">) {</span>
<span class="identifier">res</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">ix</span><span class="plain">=1 : </span><span class="identifier">ix</span><span class="plain">&lt;</span><span class="identifier">done</span><span class="plain"> : </span><span class="identifier">ix</span><span class="plain">++) {</span>
<span class="identifier">ch</span><span class="plain"> = </span><span class="identifier">gg_arguments</span><span class="plain">-&gt;</span><span class="identifier">ix</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">ch</span><span class="plain"> &gt;= </span><span class="character">'0'</span><span class="plain"> &amp;&amp; </span><span class="identifier">ch</span><span class="plain"> &lt;= </span><span class="character">'9'</span><span class="plain">) {</span>
<span class="plain">@</span><span class="identifier">shiftl</span><span class="plain"> </span><span class="identifier">res</span><span class="plain"> </span><span class="constant">4</span><span class="plain"> </span><span class="identifier">res</span><span class="plain">;</span>
<span class="identifier">res</span><span class="plain"> = </span><span class="identifier">res</span><span class="plain"> + (</span><span class="identifier">ch</span><span class="plain">-</span><span class="character">'0'</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">ch</span><span class="plain"> &gt;= </span><span class="character">'a'</span><span class="plain"> &amp;&amp; </span><span class="identifier">ch</span><span class="plain"> &lt;= </span><span class="character">'f'</span><span class="plain">) {</span>
<span class="plain">@</span><span class="identifier">shiftl</span><span class="plain"> </span><span class="identifier">res</span><span class="plain"> </span><span class="constant">4</span><span class="plain"> </span><span class="identifier">res</span><span class="plain">;</span>
<span class="identifier">res</span><span class="plain"> = </span><span class="identifier">res</span><span class="plain"> + (</span><span class="identifier">ch</span><span class="plain">+10-</span><span class="character">'a'</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">ch</span><span class="plain"> &gt;= </span><span class="character">'A'</span><span class="plain"> &amp;&amp; </span><span class="identifier">ch</span><span class="plain"> &lt;= </span><span class="character">'F'</span><span class="plain">) {</span>
<span class="plain">@</span><span class="identifier">shiftl</span><span class="plain"> </span><span class="identifier">res</span><span class="plain"> </span><span class="constant">4</span><span class="plain"> </span><span class="identifier">res</span><span class="plain">;</span>
<span class="identifier">res</span><span class="plain"> = </span><span class="identifier">res</span><span class="plain"> + (</span><span class="identifier">ch</span><span class="plain">+10-</span><span class="character">'A'</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="reserved">jump</span><span class="plain"> </span><span class="identifier">KCPContinue</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="identifier">done</span><span class="plain"> = </span><span class="reserved">false</span><span class="plain">;</span>
<span class="identifier">glk_request_char_event</span><span class="plain">(</span><span class="identifier">win</span><span class="plain">);</span>
<span class="reserved">while</span><span class="plain"> (~~</span><span class="identifier">done</span><span class="plain">) {</span>
<span class="identifier">glk_select</span><span class="plain">(</span><span class="identifier">gg_event</span><span class="plain">);</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">gg_event</span><span class="plain">--&gt;0) {</span>
<span class="constant">5</span><span class="plain">: </span><span class="comment">! evtype_Arrange</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">nostat</span><span class="plain">) {</span>
<span class="identifier">glk_cancel_char_event</span><span class="plain">(</span><span class="identifier">win</span><span class="plain">);</span>
<span class="identifier">res</span><span class="plain"> = </span><span class="constant">$80000000</span><span class="plain">;</span>
<span class="identifier">done</span><span class="plain"> = </span><span class="reserved">true</span><span class="plain">;</span>
<span class="reserved">break</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="identifier">DrawStatusLine</span><span class="plain">();</span>
<span class="constant">2</span><span class="plain">: </span><span class="comment">! evtype_CharInput</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_event</span><span class="plain">--&gt;1 == </span><span class="identifier">win</span><span class="plain">) {</span>
<span class="identifier">res</span><span class="plain"> = </span><span class="identifier">gg_event</span><span class="plain">--&gt;2;</span>
<span class="identifier">done</span><span class="plain"> = </span><span class="reserved">true</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="identifier">ix</span><span class="plain"> = </span><span class="identifier">HandleGlkEvent</span><span class="plain">(</span><span class="identifier">gg_event</span><span class="plain">, </span><span class="constant">1</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">ix</span><span class="plain"> == </span><span class="constant">2</span><span class="plain">) {</span>
<span class="identifier">res</span><span class="plain"> = </span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0;</span>
<span class="identifier">done</span><span class="plain"> = </span><span class="reserved">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">ix</span><span class="plain"> == </span><span class="constant">-1</span><span class="plain">) </span><span class="identifier">done</span><span class="plain"> = </span><span class="reserved">false</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_commandstr</span><span class="plain"> ~= </span><span class="constant">0</span><span class="plain"> &amp;&amp; </span><span class="identifier">gg_command_reading</span><span class="plain"> == </span><span class="reserved">false</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">res</span><span class="plain"> &lt; </span><span class="constant">32</span><span class="plain"> || </span><span class="identifier">res</span><span class="plain"> &gt;= </span><span class="constant">256</span><span class="plain"> || (</span><span class="identifier">res</span><span class="plain"> == </span><span class="character">'\</span><span class="plain">'</span><span class="character"> or '</span><span class="plain"> </span><span class="character">')) {</span>
<span class="identifier">glk_put_char_stream</span><span class="plain">(</span><span class="identifier">gg_commandstr</span><span class="plain">, </span><span class="character">'\</span><span class="plain">'</span><span class="character">);</span>
<span class="identifier">done</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">jx</span><span class="plain"> = </span><span class="identifier">res</span><span class="plain">;</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">ix</span><span class="plain">=0 : </span><span class="identifier">ix</span><span class="plain">&lt;8 : </span><span class="identifier">ix</span><span class="plain">++) {</span>
<span class="plain">@</span><span class="identifier">ushiftr</span><span class="plain"> </span><span class="identifier">jx</span><span class="plain"> </span><span class="constant">28</span><span class="plain"> </span><span class="identifier">ch</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">shiftl</span><span class="plain"> </span><span class="identifier">jx</span><span class="plain"> </span><span class="constant">4</span><span class="plain"> </span><span class="identifier">jx</span><span class="plain">;</span>
<span class="identifier">ch</span><span class="plain"> = </span><span class="identifier">ch</span><span class="plain"> &amp; </span><span class="constant">$0F</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">ch</span><span class="plain"> ~= </span><span class="constant">0</span><span class="plain"> || </span><span class="identifier">ix</span><span class="plain"> == </span><span class="constant">7</span><span class="plain">) </span><span class="identifier">done</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">done</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">ch</span><span class="plain"> &gt;= </span><span class="constant">0</span><span class="plain"> &amp;&amp; </span><span class="identifier">ch</span><span class="plain"> &lt;= </span><span class="constant">9</span><span class="plain">) </span><span class="identifier">ch</span><span class="plain"> = </span><span class="identifier">ch</span><span class="plain"> + </span><span class="character">'0'</span><span class="plain">;</span>
<span class="reserved">else</span><span class="plain"> </span><span class="identifier">ch</span><span class="plain"> = (</span><span class="identifier">ch</span><span class="plain"> </span><span class="constant">-</span><span class="plain"> </span><span class="constant">10</span><span class="plain">) + </span><span class="character">'A'</span><span class="plain">;</span>
<span class="identifier">glk_put_char_stream</span><span class="plain">(</span><span class="identifier">gg_commandstr</span><span class="plain">, </span><span class="identifier">ch</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="identifier">glk_put_char_stream</span><span class="plain">(</span><span class="identifier">gg_commandstr</span><span class="plain">, </span><span class="identifier">res</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="identifier">glk_put_char_stream</span><span class="plain">(</span><span class="identifier">gg_commandstr</span><span class="plain">, </span><span class="constant">10</span><span class="plain">); </span><span class="comment">! newline</span>
<span class="plain">}</span>
<span class="plain">.</span><span class="identifier">KCPContinue</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">res</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">VM_KeyDelay</span><span class="plain"> </span><span class="identifier">tenths</span><span class="plain"> </span><span class="identifier">key</span><span class="plain"> </span><span class="identifier">done</span><span class="plain"> </span><span class="identifier">ix</span><span class="plain">;</span>
<span class="identifier">glk_request_char_event</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">);</span>
<span class="identifier">glk_request_timer_events</span><span class="plain">(</span><span class="identifier">tenths</span><span class="plain">*100);</span>
<span class="reserved">while</span><span class="plain"> (~~</span><span class="identifier">done</span><span class="plain">) {</span>
<span class="identifier">glk_select</span><span class="plain">(</span><span class="identifier">gg_event</span><span class="plain">);</span>
<span class="identifier">ix</span><span class="plain"> = </span><span class="identifier">HandleGlkEvent</span><span class="plain">(</span><span class="identifier">gg_event</span><span class="plain">, </span><span class="constant">1</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">ix</span><span class="plain"> == </span><span class="constant">2</span><span class="plain">) {</span>
<span class="identifier">key</span><span class="plain"> = </span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0;</span>
<span class="identifier">done</span><span class="plain"> = </span><span class="reserved">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">ix</span><span class="plain"> &gt;= </span><span class="constant">0</span><span class="plain"> &amp;&amp; </span><span class="identifier">gg_event</span><span class="plain">--&gt;0 == </span><span class="constant">1</span><span class="plain"> </span><span class="reserved">or</span><span class="plain"> </span><span class="constant">2</span><span class="plain">) {</span>
<span class="identifier">key</span><span class="plain"> = </span><span class="identifier">gg_event</span><span class="plain">--&gt;2;</span>
<span class="identifier">done</span><span class="plain"> = </span><span class="reserved">true</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="identifier">glk_cancel_char_event</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">);</span>
<span class="identifier">glk_request_timer_events</span><span class="plain">(0);</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">key</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">VM_ReadKeyboard</span><span class="plain"> </span><span class="identifier">a_buffer</span><span class="plain"> </span><span class="identifier">a_table</span><span class="plain"> </span><span class="identifier">done</span><span class="plain"> </span><span class="identifier">ix</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_commandstr</span><span class="plain"> ~= </span><span class="constant">0</span><span class="plain"> &amp;&amp; </span><span class="identifier">gg_command_reading</span><span class="plain"> ~= </span><span class="reserved">false</span><span class="plain">) {</span>
<span class="identifier">done</span><span class="plain"> = </span><span class="identifier">glk_get_line_stream</span><span class="plain">(</span><span class="identifier">gg_commandstr</span><span class="plain">, </span><span class="identifier">a_buffer</span><span class="plain">+</span><span class="identifier">WORDSIZE</span><span class="plain">,</span>
<span class="plain">(</span><span class="identifier">INPUT_BUFFER_LEN</span><span class="plain">-</span><span class="identifier">WORDSIZE</span><span class="plain">)-1);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">done</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) {</span>
<span class="identifier">glk_stream_close</span><span class="plain">(</span><span class="identifier">gg_commandstr</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="identifier">gg_commandstr</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">gg_command_reading</span><span class="plain"> = </span><span class="reserved">false</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">else</span><span class="plain"> {</span>
<span class="comment">! Trim the trailing newline</span>
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">a_buffer</span><span class="plain">+</span><span class="identifier">WORDSIZE</span><span class="plain">)-&gt;(</span><span class="identifier">done</span><span class="plain">-1) == </span><span class="constant">10</span><span class="plain">) </span><span class="identifier">done</span><span class="plain"> = </span><span class="identifier">done</span><span class="plain">-1;</span>
<span class="identifier">a_buffer</span><span class="plain">--&gt;0 = </span><span class="identifier">done</span><span class="plain">;</span>
<span class="identifier">VM_Style</span><span class="plain">(</span><span class="identifier">INPUT_VMSTY</span><span class="plain">);</span>
<span class="identifier">glk_put_buffer</span><span class="plain">(</span><span class="identifier">a_buffer</span><span class="plain">+</span><span class="identifier">WORDSIZE</span><span class="plain">, </span><span class="identifier">done</span><span class="plain">);</span>
<span class="identifier">VM_Style</span><span class="plain">(</span><span class="identifier">NORMAL_VMSTY</span><span class="plain">);</span>
<span class="reserved">print</span><span class="plain"> </span><span class="string">"^"</span><span class="plain">;</span>
<span class="reserved">jump</span><span class="plain"> </span><span class="identifier">KPContinue</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="identifier">done</span><span class="plain"> = </span><span class="reserved">false</span><span class="plain">;</span>
<span class="identifier">glk_request_line_event</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">, </span><span class="identifier">a_buffer</span><span class="plain">+</span><span class="identifier">WORDSIZE</span><span class="plain">, </span><span class="identifier">INPUT_BUFFER_LEN</span><span class="plain">-</span><span class="identifier">WORDSIZE</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="reserved">while</span><span class="plain"> (~~</span><span class="identifier">done</span><span class="plain">) {</span>
<span class="identifier">glk_select</span><span class="plain">(</span><span class="identifier">gg_event</span><span class="plain">);</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">gg_event</span><span class="plain">--&gt;0) {</span>
<span class="constant">5</span><span class="plain">: </span><span class="comment">! evtype_Arrange</span>
<span class="identifier">DrawStatusLine</span><span class="plain">();</span>
<span class="constant">3</span><span class="plain">: </span><span class="comment">! evtype_LineInput</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_event</span><span class="plain">--&gt;1 == </span><span class="identifier">gg_mainwin</span><span class="plain">) {</span>
<span class="identifier">a_buffer</span><span class="plain">--&gt;0 = </span><span class="identifier">gg_event</span><span class="plain">--&gt;2;</span>
<span class="identifier">done</span><span class="plain"> = </span><span class="reserved">true</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="identifier">ix</span><span class="plain"> = </span><span class="identifier">HandleGlkEvent</span><span class="plain">(</span><span class="identifier">gg_event</span><span class="plain">, </span><span class="constant">0</span><span class="plain">, </span><span class="identifier">a_buffer</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">ix</span><span class="plain"> == </span><span class="constant">2</span><span class="plain">) </span><span class="identifier">done</span><span class="plain"> = </span><span class="reserved">true</span><span class="plain">;</span>
<span class="reserved">else</span><span class="plain"> </span><span class="reserved">if</span><span class="plain"> (</span><span class="identifier">ix</span><span class="plain"> == </span><span class="constant">-1</span><span class="plain">) </span><span class="identifier">done</span><span class="plain"> = </span><span class="reserved">false</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_commandstr</span><span class="plain"> ~= </span><span class="constant">0</span><span class="plain"> &amp;&amp; </span><span class="identifier">gg_command_reading</span><span class="plain"> == </span><span class="reserved">false</span><span class="plain">) {</span>
<span class="identifier">glk_put_buffer_stream</span><span class="plain">(</span><span class="identifier">gg_commandstr</span><span class="plain">, </span><span class="identifier">a_buffer</span><span class="plain">+</span><span class="identifier">WORDSIZE</span><span class="plain">, </span><span class="identifier">a_buffer</span><span class="plain">--&gt;0);</span>
<span class="identifier">glk_put_char_stream</span><span class="plain">(</span><span class="identifier">gg_commandstr</span><span class="plain">, </span><span class="constant">10</span><span class="plain">); </span><span class="comment">! newline</span>
<span class="plain">}</span>
<span class="plain">.</span><span class="identifier">KPContinue</span><span class="plain">;</span>
<span class="identifier">VM_Tokenise</span><span class="plain">(</span><span class="identifier">a_buffer</span><span class="plain">,</span><span class="identifier">a_table</span><span class="plain">);</span>
<span class="comment">! It's time to close any quote window we've got going.</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_quotewin</span><span class="plain">) {</span>
<span class="identifier">glk_window_close</span><span class="plain">(</span><span class="identifier">gg_quotewin</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="identifier">gg_quotewin</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">TEMPLATE_CONFIGURATION_BITMAP</span><span class="plain"> &amp; </span><span class="identifier">ECHO_COMMANDS_TCBIT</span><span class="plain">) {</span>
<span class="reserved">print</span><span class="plain"> </span><span class="string">"** "</span><span class="plain">;</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">ix</span><span class="plain">=</span><span class="identifier">WORDSIZE</span><span class="plain">: </span><span class="identifier">ix</span><span class="plain">&lt;(</span><span class="identifier">a_buffer</span><span class="plain">--&gt;0)+</span><span class="identifier">WORDSIZE</span><span class="plain">: </span><span class="identifier">ix</span><span class="plain">++) </span><span class="reserved">print</span><span class="plain"> (</span><span class="identifier">char</span><span class="plain">) </span><span class="identifier">a_buffer</span><span class="plain">-&gt;</span><span class="identifier">ix</span><span class="plain">;</span>
<span class="reserved">print</span><span class="plain"> </span><span class="string">"^"</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP11"></a><b>&#167;11. Buffer Functions. </b>A "buffer", in this sense, is an array containing a stream of characters
typed from the keyboard; a "parse buffer" is an array which resolves this
into individual words, pointing to the relevant entries in the dictionary
structure. Because each VM has its own format for each of these arrays (not
to mention the dictionary), we have to provide some standard operations
needed by the rest of the template as routines for each VM.
</p>
<p class="inwebparagraph"><code class="display"><span class="extract">VM_CopyBuffer(to, from)</span></code> copies one buffer into another.
</p>
<p class="inwebparagraph"><code class="display"><span class="extract">VM_Tokenise(buff, parse_buff)</span></code> takes the text in the buffer <code class="display"><span class="extract">buff</span></code> and
produces the corresponding data in the parse buffer <code class="display"><span class="extract">parse_buff</span></code> &mdash; this is
called tokenisation since the characters are divided into words: in traditional
computing jargon, such clumps of characters treated syntactically as units
are called tokens.
</p>
<p class="inwebparagraph"><code class="display"><span class="extract">LTI_Insert</span></code> is documented in the DM4 and the <code class="display"><span class="extract">LTI</span></code> prefix stands for
"Language To Informese": it's used only by translations into non-English
languages of play, and is not called in the template.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_CopyBuffer</span><span class="plain"> </span><span class="identifier">bto</span><span class="plain"> </span><span class="identifier">bfrom</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">i</span><span class="plain">=0: </span><span class="identifier">i</span><span class="plain">&lt;</span><span class="identifier">INPUT_BUFFER_LEN</span><span class="plain">: </span><span class="identifier">i</span><span class="plain">++) </span><span class="identifier">bto</span><span class="plain">-&gt;</span><span class="identifier">i</span><span class="plain"> = </span><span class="identifier">bfrom</span><span class="plain">-&gt;</span><span class="identifier">i</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">VM_PrintToBuffer</span><span class="plain"> </span><span class="identifier">buf</span><span class="plain"> </span><span class="identifier">len</span><span class="plain"> </span><span class="identifier">a</span><span class="plain"> </span><span class="identifier">b</span><span class="plain"> </span><span class="identifier">c</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">b</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="reserved">metaclass</span><span class="plain">(</span><span class="identifier">a</span><span class="plain">) == </span><span class="identifier">Object</span><span class="plain"> &amp;&amp; </span><span class="identifier">a</span><span class="plain">.#</span><span class="identifier">b</span><span class="plain"> == </span><span class="identifier">WORDSIZE</span>
<span class="plain">&amp;&amp; </span><span class="reserved">metaclass</span><span class="plain">(</span><span class="identifier">a</span><span class="plain">.</span><span class="identifier">b</span><span class="plain">) == </span><span class="identifier">String</span><span class="plain">)</span>
<span class="identifier">buf</span><span class="plain">--&gt;0 = </span><span class="identifier">Glulx_PrintAnyToArray</span><span class="plain">(</span><span class="identifier">buf</span><span class="plain">+</span><span class="identifier">WORDSIZE</span><span class="plain">, </span><span class="identifier">len</span><span class="plain">, </span><span class="identifier">a</span><span class="plain">.</span><span class="identifier">b</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="reserved">metaclass</span><span class="plain">(</span><span class="identifier">a</span><span class="plain">) == </span><span class="identifier">Routine</span><span class="plain">)</span>
<span class="identifier">buf</span><span class="plain">--&gt;0 = </span><span class="identifier">Glulx_PrintAnyToArray</span><span class="plain">(</span><span class="identifier">buf</span><span class="plain">+</span><span class="identifier">WORDSIZE</span><span class="plain">, </span><span class="identifier">len</span><span class="plain">, </span><span class="identifier">a</span><span class="plain">, </span><span class="identifier">b</span><span class="plain">, </span><span class="identifier">c</span><span class="plain">);</span>
<span class="reserved">else</span>
<span class="identifier">buf</span><span class="plain">--&gt;0 = </span><span class="identifier">Glulx_PrintAnyToArray</span><span class="plain">(</span><span class="identifier">buf</span><span class="plain">+</span><span class="identifier">WORDSIZE</span><span class="plain">, </span><span class="identifier">len</span><span class="plain">, </span><span class="identifier">a</span><span class="plain">, </span><span class="identifier">b</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="reserved">metaclass</span><span class="plain">(</span><span class="identifier">a</span><span class="plain">) == </span><span class="identifier">Routine</span><span class="plain">)</span>
<span class="identifier">buf</span><span class="plain">--&gt;0 = </span><span class="identifier">Glulx_PrintAnyToArray</span><span class="plain">(</span><span class="identifier">buf</span><span class="plain">+</span><span class="identifier">WORDSIZE</span><span class="plain">, </span><span class="identifier">len</span><span class="plain">, </span><span class="identifier">a</span><span class="plain">, </span><span class="identifier">b</span><span class="plain">, </span><span class="identifier">c</span><span class="plain">);</span>
<span class="reserved">else</span>
<span class="identifier">buf</span><span class="plain">--&gt;0 = </span><span class="identifier">Glulx_PrintAnyToArray</span><span class="plain">(</span><span class="identifier">buf</span><span class="plain">+</span><span class="identifier">WORDSIZE</span><span class="plain">, </span><span class="identifier">len</span><span class="plain">, </span><span class="identifier">a</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">buf</span><span class="plain">--&gt;0 &gt; </span><span class="identifier">len</span><span class="plain">) </span><span class="identifier">buf</span><span class="plain">--&gt;0 = </span><span class="identifier">len</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">buf</span><span class="plain">--&gt;0;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">VM_Tokenise</span><span class="plain"> </span><span class="identifier">buf</span><span class="plain"> </span><span class="identifier">tab</span>
<span class="identifier">cx</span><span class="plain"> </span><span class="identifier">numwords</span><span class="plain"> </span><span class="identifier">len</span><span class="plain"> </span><span class="identifier">bx</span><span class="plain"> </span><span class="identifier">ix</span><span class="plain"> </span><span class="identifier">wx</span><span class="plain"> </span><span class="identifier">wpos</span><span class="plain"> </span><span class="identifier">wlen</span><span class="plain"> </span><span class="identifier">val</span><span class="plain"> </span><span class="identifier">res</span><span class="plain"> </span><span class="identifier">dictlen</span><span class="plain"> </span><span class="identifier">entrylen</span><span class="plain">;</span>
<span class="identifier">len</span><span class="plain"> = </span><span class="identifier">buf</span><span class="plain">--&gt;0;</span>
<span class="identifier">buf</span><span class="plain"> = </span><span class="identifier">buf</span><span class="plain">+</span><span class="identifier">WORDSIZE</span><span class="plain">;</span>
<span class="comment">! First, split the buffer up into words. We use the standard Infocom</span>
<span class="comment">! list of word separators (comma, period, double-quote).</span>
<span class="identifier">cx</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">numwords</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">cx</span><span class="plain"> &lt; </span><span class="identifier">len</span><span class="plain">) {</span>
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">cx</span><span class="plain"> &lt; </span><span class="identifier">len</span><span class="plain"> &amp;&amp; </span><span class="identifier">buf</span><span class="plain">-&gt;</span><span class="identifier">cx</span><span class="plain"> == </span><span class="character">' '</span><span class="plain">) </span><span class="identifier">cx</span><span class="plain">++;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">cx</span><span class="plain"> &gt;= </span><span class="identifier">len</span><span class="plain">) </span><span class="reserved">break</span><span class="plain">;</span>
<span class="identifier">bx</span><span class="plain"> = </span><span class="identifier">cx</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">buf</span><span class="plain">-&gt;</span><span class="identifier">cx</span><span class="plain"> == </span><span class="character">'.'</span><span class="plain"> </span><span class="reserved">or</span><span class="plain"> </span><span class="character">','</span><span class="plain"> </span><span class="reserved">or</span><span class="plain"> </span><span class="character">'"'</span><span class="plain">) </span><span class="identifier">cx</span><span class="plain">++;</span>
<span class="reserved">else</span><span class="plain"> {</span>
<span class="reserved">while</span><span class="plain"> (</span><span class="identifier">cx</span><span class="plain"> &lt; </span><span class="identifier">len</span><span class="plain"> &amp;&amp; </span><span class="identifier">buf</span><span class="plain">-&gt;</span><span class="identifier">cx</span><span class="plain"> ~= </span><span class="character">' '</span><span class="plain"> </span><span class="reserved">or</span><span class="plain"> </span><span class="character">'.'</span><span class="plain"> </span><span class="reserved">or</span><span class="plain"> </span><span class="character">','</span><span class="plain"> </span><span class="reserved">or</span><span class="plain"> </span><span class="character">'"'</span><span class="plain">) </span><span class="identifier">cx</span><span class="plain">++;</span>
<span class="plain">}</span>
<span class="identifier">tab</span><span class="plain">--&gt;(</span><span class="identifier">numwords</span><span class="plain">*3+2) = (</span><span class="identifier">cx</span><span class="plain">-</span><span class="identifier">bx</span><span class="plain">);</span>
<span class="identifier">tab</span><span class="plain">--&gt;(</span><span class="identifier">numwords</span><span class="plain">*3+3) = </span><span class="identifier">WORDSIZE</span><span class="plain">+</span><span class="identifier">bx</span><span class="plain">;</span>
<span class="identifier">numwords</span><span class="plain">++;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">numwords</span><span class="plain"> &gt;= </span><span class="identifier">MAX_BUFFER_WORDS</span><span class="plain">) </span><span class="reserved">break</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="identifier">tab</span><span class="plain">--&gt;0 = </span><span class="identifier">numwords</span><span class="plain">;</span>
<span class="comment">! Now we look each word up in the dictionary.</span>
<span class="identifier">dictlen</span><span class="plain"> = #</span><span class="identifier">dictionary_table</span><span class="plain">--&gt;0;</span>
<span class="identifier">entrylen</span><span class="plain"> = </span><span class="identifier">DICT_WORD_SIZE</span><span class="plain"> + </span><span class="constant">7</span><span class="plain">;</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">wx</span><span class="plain">=0 : </span><span class="identifier">wx</span><span class="plain">&lt;</span><span class="identifier">numwords</span><span class="plain"> : </span><span class="identifier">wx</span><span class="plain">++) {</span>
<span class="identifier">wlen</span><span class="plain"> = </span><span class="identifier">tab</span><span class="plain">--&gt;(</span><span class="identifier">wx</span><span class="plain">*3+2);</span>
<span class="identifier">wpos</span><span class="plain"> = </span><span class="identifier">tab</span><span class="plain">--&gt;(</span><span class="identifier">wx</span><span class="plain">*3+3);</span>
<span class="comment">! Copy the word into the gg_tokenbuf array, clipping to DICT_WORD_SIZE</span>
<span class="comment">! characters and lower case.</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">wlen</span><span class="plain"> &gt; </span><span class="identifier">DICT_WORD_SIZE</span><span class="plain">) </span><span class="identifier">wlen</span><span class="plain"> = </span><span class="identifier">DICT_WORD_SIZE</span><span class="plain">;</span>
<span class="identifier">cx</span><span class="plain"> = </span><span class="identifier">wpos</span><span class="plain"> </span><span class="constant">-</span><span class="plain"> </span><span class="identifier">WORDSIZE</span><span class="plain">;</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">ix</span><span class="plain">=0 : </span><span class="identifier">ix</span><span class="plain">&lt;</span><span class="identifier">wlen</span><span class="plain"> : </span><span class="identifier">ix</span><span class="plain">++) </span><span class="identifier">gg_tokenbuf</span><span class="plain">-&gt;</span><span class="identifier">ix</span><span class="plain"> = </span><span class="identifier">VM_UpperToLowerCase</span><span class="plain">(</span><span class="identifier">buf</span><span class="plain">-&gt;(</span><span class="identifier">cx</span><span class="plain">+</span><span class="identifier">ix</span><span class="plain">));</span>
<span class="reserved">for</span><span class="plain"> (: </span><span class="identifier">ix</span><span class="plain">&lt;</span><span class="identifier">DICT_WORD_SIZE</span><span class="plain"> : </span><span class="identifier">ix</span><span class="plain">++) </span><span class="identifier">gg_tokenbuf</span><span class="plain">-&gt;</span><span class="identifier">ix</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">val</span><span class="plain"> = #</span><span class="identifier">dictionary_table</span><span class="plain"> + </span><span class="identifier">WORDSIZE</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">binarysearch</span><span class="plain"> </span><span class="identifier">gg_tokenbuf</span><span class="plain"> </span><span class="identifier">DICT_WORD_SIZE</span><span class="plain"> </span><span class="identifier">val</span><span class="plain"> </span><span class="identifier">entrylen</span><span class="plain"> </span><span class="identifier">dictlen</span><span class="plain"> </span><span class="constant">1</span><span class="plain"> </span><span class="constant">1</span><span class="plain"> </span><span class="identifier">res</span><span class="plain">;</span>
<span class="identifier">tab</span><span class="plain">--&gt;(</span><span class="identifier">wx</span><span class="plain">*3+1) = </span><span class="identifier">res</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">LTI_Insert</span><span class="plain"> </span><span class="identifier">i</span><span class="plain"> </span><span class="identifier">ch</span><span class="plain"> </span><span class="identifier">b</span><span class="plain"> </span><span class="identifier">y</span><span class="plain">;</span>
<span class="comment">! Protect us from strict mode, as this isn't an array in quite the</span>
<span class="comment">! sense it expects</span>
<span class="identifier">b</span><span class="plain"> = </span><span class="identifier">buffer</span><span class="plain">;</span>
<span class="comment">! Insert character ch into buffer at point i.</span>
<span class="comment">! Being careful not to let the buffer possibly overflow:</span>
<span class="identifier">y</span><span class="plain"> = </span><span class="identifier">b</span><span class="plain">--&gt;0;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">y</span><span class="plain"> &gt; </span><span class="identifier">INPUT_BUFFER_LEN</span><span class="plain">) </span><span class="identifier">y</span><span class="plain"> = </span><span class="identifier">INPUT_BUFFER_LEN</span><span class="plain">;</span>
<span class="comment">! Move the subsequent text along one character:</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">y</span><span class="plain">=</span><span class="identifier">y</span><span class="plain">+</span><span class="identifier">WORDSIZE</span><span class="plain"> : </span><span class="identifier">y</span><span class="plain">&gt;</span><span class="identifier">i</span><span class="plain"> : </span><span class="identifier">y</span><span class="plain">--) </span><span class="identifier">b</span><span class="plain">-&gt;</span><span class="identifier">y</span><span class="plain"> = </span><span class="identifier">b</span><span class="plain">-&gt;(</span><span class="identifier">y</span><span class="plain">-1);</span>
<span class="identifier">b</span><span class="plain">-&gt;</span><span class="identifier">i</span><span class="plain"> = </span><span class="identifier">ch</span><span class="plain">;</span>
<span class="comment">! And the text is now one character longer:</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">b</span><span class="plain">--&gt;0 &lt; </span><span class="identifier">INPUT_BUFFER_LEN</span><span class="plain">) (</span><span class="identifier">b</span><span class="plain">--&gt;0)++;</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP12"></a><b>&#167;12. Dictionary Functions. </b>Again, the dictionary structure is differently arranged on the different VMs.
This is a data structure containing, in compressed form, the text of all the
words to be recognised by tokenisation (above). In I6 for Glulx, a dictionary
word is represented at run-time by its record's address in the dictionary.
</p>
<p class="inwebparagraph"><code class="display"><span class="extract">VM_InvalidDictionaryAddress(A)</span></code> tests whether <code class="display"><span class="extract">A</span></code> is a valid record address
in the dictionary data structure. In Glulx, dictionary records might in
theory be anywhere in the 2 GB or so of possible memory, but we can rule
out negative addresses. (This allows -1, say, to be used as a value meaning
"not a valid dictionary word".)
</p>
<p class="inwebparagraph"><code class="display"><span class="extract">VM_DictionaryAddressToNumber(A)</span></code> and <code class="display"><span class="extract">VM_NumberToDictionaryAddress(N)</span></code>
convert between word addresses and their run-time representations:
since, on Glulx, they are the same, these are each the identity function.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_InvalidDictionaryAddress</span><span class="plain"> </span><span class="identifier">addr</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">addr</span><span class="plain"> &lt; </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">rtrue</span><span class="plain">;</span>
<span class="reserved">rfalse</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">VM_DictionaryAddressToNumber</span><span class="plain"> </span><span class="identifier">w</span><span class="plain">; </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">w</span><span class="plain">; ];</span>
<span class="plain">[ </span><span class="identifier">VM_NumberToDictionaryAddress</span><span class="plain"> </span><span class="identifier">n</span><span class="plain">; </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">n</span><span class="plain">; ];</span>
<span class="reserved">Array</span><span class="plain"> </span><span class="identifier">gg_tokenbuf</span><span class="plain"> </span><span class="constant">-</span><span class="plain">&gt; </span><span class="identifier">DICT_WORD_SIZE</span><span class="plain">;</span>
<span class="plain">[ </span><span class="identifier">GGWordCompare</span><span class="plain"> </span><span class="identifier">str1</span><span class="plain"> </span><span class="identifier">str2</span><span class="plain"> </span><span class="identifier">ix</span><span class="plain"> </span><span class="identifier">jx</span><span class="plain">;</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">ix</span><span class="plain">=0 : </span><span class="identifier">ix</span><span class="plain">&lt;</span><span class="identifier">DICT_WORD_SIZE</span><span class="plain"> : </span><span class="identifier">ix</span><span class="plain">++) {</span>
<span class="identifier">jx</span><span class="plain"> = (</span><span class="identifier">str1</span><span class="plain">-&gt;</span><span class="identifier">ix</span><span class="plain">) </span><span class="constant">-</span><span class="plain"> (</span><span class="identifier">str2</span><span class="plain">-&gt;</span><span class="identifier">ix</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">jx</span><span class="plain"> ~= </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">jx</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP13"></a><b>&#167;13. SHOWVERB support. </b>Further VM-specific tables cover actions and attributes, and these are
used by the SHOWVERB testing command.
</p>
<pre class="display">
<span class="plain">#</span><span class="identifier">Ifdef</span><span class="plain"> </span><span class="identifier">DEBUG</span><span class="plain">;</span>
<span class="plain">[ </span><span class="identifier">DebugAction</span><span class="plain"> </span><span class="identifier">a</span><span class="plain"> </span><span class="identifier">str</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">a</span><span class="plain"> &gt;= </span><span class="constant">4096</span><span class="plain">) { </span><span class="reserved">print</span><span class="plain"> </span><span class="string">"&lt;fake action "</span><span class="plain">, </span><span class="identifier">a</span><span class="plain">-4096, </span><span class="string">"&gt;"</span><span class="plain">; </span><span class="reserved">return</span><span class="plain">; }</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">a</span><span class="plain"> &lt; </span><span class="constant">0</span><span class="plain"> || </span><span class="identifier">a</span><span class="plain"> &gt;= #</span><span class="identifier">identifiers_table</span><span class="plain">--&gt;7) </span><span class="reserved">print</span><span class="plain"> </span><span class="string">"&lt;invalid action "</span><span class="plain">, </span><span class="identifier">a</span><span class="plain">, </span><span class="string">"&gt;"</span><span class="plain">;</span>
<span class="reserved">else</span><span class="plain"> {</span>
<span class="identifier">str</span><span class="plain"> = #</span><span class="identifier">identifiers_table</span><span class="plain">--&gt;6;</span>
<span class="identifier">str</span><span class="plain"> = </span><span class="identifier">str</span><span class="plain">--&gt;</span><span class="identifier">a</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">str</span><span class="plain">) </span><span class="reserved">print</span><span class="plain"> (</span><span class="reserved">string</span><span class="plain">) </span><span class="identifier">str</span><span class="plain">; </span><span class="reserved">else</span><span class="plain"> </span><span class="reserved">print</span><span class="plain"> </span><span class="string">"&lt;unnamed action "</span><span class="plain">, </span><span class="identifier">a</span><span class="plain">, </span><span class="string">"&gt;"</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">DebugAttribute</span><span class="plain"> </span><span class="identifier">a</span><span class="plain"> </span><span class="identifier">str</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">a</span><span class="plain"> &lt; </span><span class="constant">0</span><span class="plain"> || </span><span class="identifier">a</span><span class="plain"> &gt;= </span><span class="identifier">NUM_ATTR_BYTES</span><span class="plain">*8) </span><span class="reserved">print</span><span class="plain"> </span><span class="string">"&lt;invalid attribute "</span><span class="plain">, </span><span class="identifier">a</span><span class="plain">, </span><span class="string">"&gt;"</span><span class="plain">;</span>
<span class="reserved">else</span><span class="plain"> {</span>
<span class="identifier">str</span><span class="plain"> = #</span><span class="identifier">identifiers_table</span><span class="plain">--&gt;4;</span>
<span class="identifier">str</span><span class="plain"> = </span><span class="identifier">str</span><span class="plain">--&gt;</span><span class="identifier">a</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">str</span><span class="plain">) </span><span class="reserved">print</span><span class="plain"> (</span><span class="reserved">string</span><span class="plain">) </span><span class="identifier">str</span><span class="plain">; </span><span class="reserved">else</span><span class="plain"> </span><span class="reserved">print</span><span class="plain"> </span><span class="string">"&lt;unnamed attribute "</span><span class="plain">, </span><span class="identifier">a</span><span class="plain">, </span><span class="string">"&gt;"</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">];</span>
<span class="plain">#</span><span class="identifier">Endif</span><span class="plain">;</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP14"></a><b>&#167;14. Command Tables. </b>The VM is also generated containing a data structure for the grammar
produced by I6's <code class="display"><span class="extract">Verb</span></code> and <code class="display"><span class="extract">Extend</span></code> directives: this is essentially a
list of command verbs such as DROP or PUSH, together with a list of
synonyms, and then the grammar for the subsequent commands to be
recognised by the parser.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_CommandTableAddress</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> (#</span><span class="identifier">grammar_table</span><span class="plain">)--&gt;(</span><span class="identifier">i</span><span class="plain">+1);</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">VM_PrintCommandWords</span><span class="plain"> </span><span class="identifier">i</span><span class="plain"> </span><span class="identifier">wd</span><span class="plain"> </span><span class="identifier">j</span><span class="plain"> </span><span class="identifier">dictlen</span><span class="plain"> </span><span class="identifier">entrylen</span><span class="plain">;</span>
<span class="identifier">dictlen</span><span class="plain"> = #</span><span class="identifier">dictionary_table</span><span class="plain">--&gt;0;</span>
<span class="identifier">entrylen</span><span class="plain"> = </span><span class="identifier">DICT_WORD_SIZE</span><span class="plain"> + </span><span class="constant">7</span><span class="plain">;</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">j</span><span class="plain">=0 : </span><span class="identifier">j</span><span class="plain">&lt;</span><span class="identifier">dictlen</span><span class="plain"> : </span><span class="identifier">j</span><span class="plain">++) {</span>
<span class="identifier">wd</span><span class="plain"> = #</span><span class="identifier">dictionary_table</span><span class="plain"> + </span><span class="identifier">WORDSIZE</span><span class="plain"> + </span><span class="identifier">entrylen</span><span class="plain">*</span><span class="identifier">j</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">DictionaryWordToVerbNum</span><span class="plain">(</span><span class="identifier">wd</span><span class="plain">) == </span><span class="identifier">i</span><span class="plain">)</span>
<span class="reserved">print</span><span class="plain"> </span><span class="string">"'"</span><span class="plain">, (</span><span class="identifier">address</span><span class="plain">) </span><span class="identifier">wd</span><span class="plain">, </span><span class="string">"' "</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP15"></a><b>&#167;15. Random Number Generator. </b>No routine is needed for extracting a random number, since I6's built-in
<code class="display"><span class="extract">random</span></code> function does that, but it's useful to abstract the process of
seeding the RNG so that it produces a repeatable sequence of "random"
numbers from here on: the necessary opcodes are different for the two VMs.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_Seed_RNG</span><span class="plain"> </span><span class="identifier">n</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">setrandom</span><span class="plain"> </span><span class="identifier">n</span><span class="plain">;</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP16"></a><b>&#167;16. Memory Allocation. </b>This is dynamic memory allocation: something which is never practicable in
the Z-machine, because the whole address range is already claimed, but which
is viable on recent revisions of Glulx.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_AllocateMemory</span><span class="plain"> </span><span class="identifier">amount</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">gestalt</span><span class="plain"> </span><span class="constant">7</span><span class="plain"> </span><span class="constant">0</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">i</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">malloc</span><span class="plain"> </span><span class="identifier">amount</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">VM_FreeMemory</span><span class="plain"> </span><span class="identifier">address</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">gestalt</span><span class="plain"> </span><span class="constant">7</span><span class="plain"> </span><span class="constant">0</span><span class="plain"> </span><span class="identifier">i</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">i</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">mfree</span><span class="plain"> </span><span class="identifier">address</span><span class="plain">;</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP17"></a><b>&#167;17. Audiovisual Resources. </b>The Z-machine only barely supports figures and sound effects, so Glulx is
the preferred VM to choose if they are wanted. Properly speaking, it's not
Glulx which supports these, but its I/O layer Glk, and implementations
of Glk are free to support them or not as they please: "cheapglk", a
dumb terminal version, does not, for instance. We therefore have to
investigate the "gestalt" to find out.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_Picture</span><span class="plain"> </span><span class="identifier">resource_ID</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">glk_gestalt</span><span class="plain">(</span><span class="identifier">gestalt_Graphics</span><span class="plain">, </span><span class="constant">0</span><span class="plain">)) {</span>
<span class="identifier">glk_image_draw</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">, </span><span class="identifier">resource_ID</span><span class="plain">, </span><span class="identifier">imagealign_InlineCenter</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="reserved">print</span><span class="plain"> </span><span class="string">"[Picture number "</span><span class="plain">, </span><span class="identifier">resource_ID</span><span class="plain">, </span><span class="string">" here.]^"</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">VM_SoundEffect</span><span class="plain"> </span><span class="identifier">resource_ID</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">glk_gestalt</span><span class="plain">(</span><span class="identifier">gestalt_Sound</span><span class="plain">, </span><span class="constant">0</span><span class="plain">)) {</span>
<span class="identifier">glk_schannel_play</span><span class="plain">(</span><span class="identifier">gg_foregroundchan</span><span class="plain">, </span><span class="identifier">resource_ID</span><span class="plain">);</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="reserved">print</span><span class="plain"> </span><span class="string">"[Sound effect number "</span><span class="plain">, </span><span class="identifier">resource_ID</span><span class="plain">, </span><span class="string">" here.]^"</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP18"></a><b>&#167;18. Typography. </b>Glk makes an attempt to present typographic styles as being a matter of
semantic markup rather than controlling the actual appearance of text:
the idea is that the story file should want to print something in a
heading kind of way, and then the interpreter &mdash; guided by the player's
reading preferences &mdash; might set that in bold, or larger type, or red ink,
or any combination of the three, or with other effects entirely. This is
not the place to discuss whether that was a wise decision for Glk to take
(it really, really, really wasn't): we can only play along.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_Style</span><span class="plain"> </span><span class="identifier">sty</span><span class="plain">;</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">sty</span><span class="plain">) {</span>
<span class="identifier">NORMAL_VMSTY</span><span class="plain">: </span><span class="identifier">glk_set_style</span><span class="plain">(</span><span class="identifier">style_Normal</span><span class="plain">);</span>
<span class="identifier">HEADER_VMSTY</span><span class="plain">: </span><span class="identifier">glk_set_style</span><span class="plain">(</span><span class="identifier">style_Header</span><span class="plain">);</span>
<span class="identifier">SUBHEADER_VMSTY</span><span class="plain">: </span><span class="identifier">glk_set_style</span><span class="plain">(</span><span class="identifier">style_Subheader</span><span class="plain">);</span>
<span class="identifier">NOTE_VMSTY</span><span class="plain">: </span><span class="identifier">glk_set_style</span><span class="plain">(</span><span class="identifier">style_Note</span><span class="plain">);</span>
<span class="identifier">ALERT_VMSTY</span><span class="plain">: </span><span class="identifier">glk_set_style</span><span class="plain">(</span><span class="identifier">style_Alert</span><span class="plain">);</span>
<span class="identifier">BLOCKQUOTE_VMSTY</span><span class="plain">: </span><span class="identifier">glk_set_style</span><span class="plain">(</span><span class="identifier">style_BlockQuote</span><span class="plain">);</span>
<span class="identifier">INPUT_VMSTY</span><span class="plain">: </span><span class="identifier">glk_set_style</span><span class="plain">(</span><span class="identifier">style_Input</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP19"></a><b>&#167;19. Character Casing. </b>The following are the equivalent of <code class="display"><span class="extract">tolower</span></code> and <code class="display"><span class="extract">toupper</span></code>, the traditional
C library functions for forcing letters into lower and upper case form, for
the ZSCII character set. Note that Glulx can also use Unicode characters for
some purposes (Unicode was a relatively late addition to the Glulx standard),
and we make good use of this when storing text.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_UpperToLowerCase</span><span class="plain"> </span><span class="identifier">c</span><span class="plain">; </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">glk_char_to_lower</span><span class="plain">(</span><span class="identifier">c</span><span class="plain">); ];</span>
<span class="plain">[ </span><span class="identifier">VM_LowerToUpperCase</span><span class="plain"> </span><span class="identifier">c</span><span class="plain">; </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">glk_char_to_upper</span><span class="plain">(</span><span class="identifier">c</span><span class="plain">); ];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP20"></a><b>&#167;20. Glulx-Only Printing Routines. </b>Partly because of the smallness of the range of representable values in
the Z-machine, there is little run-time type-checking that can be done:
for instance a dictionary address cannot be distinguished from a function
address because they are encoded differently, so that a function address
(which is packed) could well coincide with that of a dictionary word (which
is not). On Glulx these restrictions are somewhat lifted, so that it's
possible to write a routine which can look at a value, work out what it
must mean, and print it suitably. This is only possible up to a point &mdash;
for instance, it can't distinguish an integer from a function address &mdash;
and in I7 the use of this sort of trick is much less important because
type-checking in the NI compiler handles the problem much better. Still,
we retain some Glulx-only features because they are convenient for writing
external files to disc, for instance, something which the Z-machine can't
do in any case.
</p>
<p class="inwebparagraph"><code class="display"><span class="extract">Glulx_PrintAnything</span></code> handles strings, functions (with optional arguments),
objects, object properties (with optional arguments), and dictionary words.
</p>
<p class="inwebparagraph"><code class="display"><span class="extract">Glulx_PrintAnyToArray</span></code> does the same, but the output is sent to a byte
array in memory. The first two arguments must be the array address and
length; subsequent arguments are as for <code class="display"><span class="extract">Glulx_PrintAnything</span></code>. The return
value is the number of characters output. If the output is longer than the
array length given, the extra characters are discarded, so the array does
not overflow. (However, the return value is the total length of the output,
including discarded characters.) The character set stored here is ZSCII,
not Unicode.
</p>
<p class="inwebparagraph"><code class="display"><span class="extract">Glulx_ChangeAnyToCString</span></code> calls <code class="display"><span class="extract">Glulx_PrintAnyToArray</span></code> on a particular
array, then amends the result to make it a C-style string &mdash; that is, a
sequence of byte-sized characters which are null terminated. The character
set stored here is once again ZSCII, not Unicode.
</p>
<pre class="display">
<span class="comment">! Glulx_PrintAnything() &lt;nothing printed&gt;</span>
<span class="comment">! Glulx_PrintAnything(0) &lt;nothing printed&gt;</span>
<span class="comment">! Glulx_PrintAnything("string"); print (string) "string";</span>
<span class="comment">! Glulx_PrintAnything('word') print (address) 'word';</span>
<span class="comment">! Glulx_PrintAnything(obj) print (name) obj;</span>
<span class="comment">! Glulx_PrintAnything(obj, prop) obj.prop();</span>
<span class="comment">! Glulx_PrintAnything(obj, prop, args...) obj.prop(args...);</span>
<span class="comment">! Glulx_PrintAnything(func) func();</span>
<span class="comment">! Glulx_PrintAnything(func, args...) func(args...);</span>
<span class="plain">[ </span><span class="identifier">Glulx_PrintAnything</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">obj</span><span class="plain"> </span><span class="identifier">mclass</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">_vararg_count</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">copy</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain"> </span><span class="identifier">obj</span><span class="plain">;</span>
<span class="identifier">_vararg_count</span><span class="plain">--;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">obj</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">obj</span><span class="plain">-&gt;0 == </span><span class="constant">$60</span><span class="plain">) {</span>
<span class="comment">! Dictionary word. Metaclass() can't catch this case, so we do it manually</span>
<span class="reserved">print</span><span class="plain"> (</span><span class="identifier">address</span><span class="plain">) </span><span class="identifier">obj</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="identifier">mclass</span><span class="plain"> = </span><span class="reserved">metaclass</span><span class="plain">(</span><span class="identifier">obj</span><span class="plain">);</span>
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">mclass</span><span class="plain">) {</span>
<span class="reserved">nothing</span><span class="plain">:</span>
<span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">String</span><span class="plain">:</span>
<span class="reserved">print</span><span class="plain"> (</span><span class="reserved">string</span><span class="plain">) </span><span class="identifier">obj</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">Routine</span><span class="plain">:</span>
<span class="comment">! Call the function with all the arguments which are already</span>
<span class="comment">! on the stack.</span>
<span class="plain">@</span><span class="identifier">call</span><span class="plain"> </span><span class="identifier">obj</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">Object</span><span class="plain">:</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">_vararg_count</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) {</span>
<span class="reserved">print</span><span class="plain"> (</span><span class="identifier">name</span><span class="plain">) </span><span class="identifier">obj</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">else</span><span class="plain"> {</span>
<span class="comment">! Push the object back onto the stack, and call the</span>
<span class="comment">! veneer routine that handles obj.prop() calls.</span>
<span class="plain">@</span><span class="identifier">copy</span><span class="plain"> </span><span class="identifier">obj</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain">;</span>
<span class="identifier">_vararg_count</span><span class="plain">++;</span>
<span class="plain">@</span><span class="identifier">call</span><span class="plain"> </span><span class="identifier">CA__Pr</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">return</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">Glulx_PrintAnyToArray</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">arr</span><span class="plain"> </span><span class="identifier">arrlen</span><span class="plain"> </span><span class="identifier">str</span><span class="plain"> </span><span class="identifier">oldstr</span><span class="plain"> </span><span class="identifier">len</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">copy</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain"> </span><span class="identifier">arr</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">copy</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain"> </span><span class="identifier">arrlen</span><span class="plain">;</span>
<span class="identifier">_vararg_count</span><span class="plain"> = </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">-</span><span class="plain"> </span><span class="constant">2</span><span class="plain">;</span>
<span class="identifier">oldstr</span><span class="plain"> = </span><span class="identifier">glk_stream_get_current</span><span class="plain">();</span>
<span class="identifier">str</span><span class="plain"> = </span><span class="identifier">glk_stream_open_memory</span><span class="plain">(</span><span class="identifier">arr</span><span class="plain">, </span><span class="identifier">arrlen</span><span class="plain">, </span><span class="constant">1</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">str</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">glk_stream_set_current</span><span class="plain">(</span><span class="identifier">str</span><span class="plain">);</span>
<span class="plain">@</span><span class="identifier">call</span><span class="plain"> </span><span class="identifier">Glulx_PrintAnything</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="identifier">glk_stream_set_current</span><span class="plain">(</span><span class="identifier">oldstr</span><span class="plain">);</span>
<span class="plain">@</span><span class="identifier">copy</span><span class="plain"> </span><span class="constant">$ffffffff</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">copy</span><span class="plain"> </span><span class="identifier">str</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">glk</span><span class="plain"> </span><span class="constant">$0044</span><span class="plain"> </span><span class="constant">2</span><span class="plain"> </span><span class="constant">0</span><span class="plain">; </span><span class="comment">! stream_close</span>
<span class="plain">@</span><span class="identifier">copy</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain"> </span><span class="identifier">len</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">copy</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">len</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="reserved">Constant</span><span class="plain"> </span><span class="identifier">GG_ANYTOSTRING_LEN</span><span class="plain"> </span><span class="constant">66</span><span class="plain">;</span>
<span class="reserved">Array</span><span class="plain"> </span><span class="identifier">AnyToStrArr</span><span class="plain"> </span><span class="constant">-</span><span class="plain">&gt; </span><span class="identifier">GG_ANYTOSTRING_LEN</span><span class="plain">+1;</span>
<span class="plain">[ </span><span class="identifier">Glulx_ChangeAnyToCString</span><span class="plain"> </span><span class="identifier">_vararg_count</span><span class="plain"> </span><span class="identifier">ix</span><span class="plain"> </span><span class="identifier">len</span><span class="plain">;</span>
<span class="identifier">ix</span><span class="plain"> = </span><span class="identifier">GG_ANYTOSTRING_LEN</span><span class="plain">-2;</span>
<span class="plain">@</span><span class="identifier">copy</span><span class="plain"> </span><span class="identifier">ix</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain">;</span>
<span class="identifier">ix</span><span class="plain"> = </span><span class="identifier">AnyToStrArr</span><span class="plain">+1;</span>
<span class="plain">@</span><span class="identifier">copy</span><span class="plain"> </span><span class="identifier">ix</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain">;</span>
<span class="identifier">ix</span><span class="plain"> = </span><span class="identifier">_vararg_count</span><span class="plain">+2;</span>
<span class="plain">@</span><span class="identifier">call</span><span class="plain"> </span><span class="identifier">Glulx_PrintAnyToArray</span><span class="plain"> </span><span class="identifier">ix</span><span class="plain"> </span><span class="identifier">len</span><span class="plain">;</span>
<span class="identifier">AnyToStrArr</span><span class="plain">-&gt;0 = </span><span class="constant">$E0</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">len</span><span class="plain"> &gt;= </span><span class="identifier">GG_ANYTOSTRING_LEN</span><span class="plain">)</span>
<span class="identifier">len</span><span class="plain"> = </span><span class="identifier">GG_ANYTOSTRING_LEN</span><span class="plain">-1;</span>
<span class="identifier">AnyToStrArr</span><span class="plain">-&gt;(</span><span class="identifier">len</span><span class="plain">+1) = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">AnyToStrArr</span><span class="plain">;</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP21"></a><b>&#167;21. The Screen. </b>Our generic screen model is that the screen is made up of windows: we tend
to refer only to two of these, the main window and the status line, but
others may also exist from time to time. Windows have unique ID numbers:
the special window ID -1 means "all windows" or "the entire screen",
which usually amounts to the same thing.
</p>
<p class="inwebparagraph">Screen height and width are measured in characters, with respect to the
fixed-pitch font used for the status line. The main window normally contains
variable-pitch text which may even have been kerned, and character dimensions
make little sense there.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_ClearScreen</span><span class="plain"> </span><span class="identifier">window</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">window</span><span class="plain"> == </span><span class="identifier">WIN_ALL</span><span class="plain"> </span><span class="reserved">or</span><span class="plain"> </span><span class="identifier">WIN_MAIN</span><span class="plain">) {</span>
<span class="identifier">glk_window_clear</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_quotewin</span><span class="plain">) {</span>
<span class="identifier">glk_window_close</span><span class="plain">(</span><span class="identifier">gg_quotewin</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="identifier">gg_quotewin</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_statuswin</span><span class="plain"> &amp;&amp; </span><span class="identifier">window</span><span class="plain"> == </span><span class="identifier">WIN_ALL</span><span class="plain"> </span><span class="reserved">or</span><span class="plain"> </span><span class="identifier">WIN_STATUS</span><span class="plain">) </span><span class="identifier">glk_window_clear</span><span class="plain">(</span><span class="identifier">gg_statuswin</span><span class="plain">);</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">VM_ScreenWidth</span><span class="plain"> </span><span class="identifier">id</span><span class="plain">;</span>
<span class="identifier">id</span><span class="plain">=</span><span class="identifier">gg_mainwin</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_statuswin</span><span class="plain"> &amp;&amp; </span><span class="identifier">statuswin_current</span><span class="plain">) </span><span class="identifier">id</span><span class="plain"> = </span><span class="identifier">gg_statuswin</span><span class="plain">;</span>
<span class="identifier">glk_window_get_size</span><span class="plain">(</span><span class="identifier">id</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">VM_ScreenHeight</span><span class="plain">;</span>
<span class="identifier">glk_window_get_size</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">, </span><span class="constant">0</span><span class="plain">, </span><span class="identifier">gg_arguments</span><span class="plain">);</span>
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">gg_arguments</span><span class="plain">--&gt;0;</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP22"></a><b>&#167;22. Window Colours. </b>Our generic screen model is that the screen is made up of windows, each of
which can have its own foreground and background colours.
</p>
<p class="inwebparagraph">The colour of individual letters or words of type is not controllable in
Glulx, to the frustration of many, and so the template layer of I7 has no
framework for handling this (even though it is controllable on the Z-machine,
which is greatly superior in this respect).
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_SetWindowColours</span><span class="plain"> </span><span class="identifier">f</span><span class="plain"> </span><span class="identifier">b</span><span class="plain"> </span><span class="identifier">window</span><span class="plain"> </span><span class="identifier">doclear</span><span class="plain"> </span><span class="identifier">i</span><span class="plain"> </span><span class="identifier">fwd</span><span class="plain"> </span><span class="identifier">bwd</span><span class="plain"> </span><span class="identifier">swin</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">clr_on</span><span class="plain"> &amp;&amp; </span><span class="identifier">f</span><span class="plain"> &amp;&amp; </span><span class="identifier">b</span><span class="plain">) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">window</span><span class="plain">) </span><span class="identifier">swin</span><span class="plain"> = </span><span class="constant">5-</span><span class="identifier">window</span><span class="plain">; </span><span class="comment">! 4 for TextGrid, 3 for TextBuffer</span>
<span class="identifier">fwd</span><span class="plain"> = </span><span class="identifier">MakeColourWord</span><span class="plain">(</span><span class="identifier">f</span><span class="plain">);</span>
<span class="identifier">bwd</span><span class="plain"> = </span><span class="identifier">MakeColourWord</span><span class="plain">(</span><span class="identifier">b</span><span class="plain">);</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">i</span><span class="plain">=0 : </span><span class="identifier">i</span><span class="plain">&lt;</span><span class="identifier">style_NUMSTYLES</span><span class="plain">: </span><span class="identifier">i</span><span class="plain">++) {</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">f</span><span class="plain"> == </span><span class="identifier">CLR_DEFAULT</span><span class="plain"> || </span><span class="identifier">b</span><span class="plain"> == </span><span class="identifier">CLR_DEFAULT</span><span class="plain">) { </span><span class="comment">! remove style hints</span>
<span class="identifier">glk_stylehint_clear</span><span class="plain">(</span><span class="identifier">swin</span><span class="plain">, </span><span class="identifier">i</span><span class="plain">, </span><span class="identifier">stylehint_TextColor</span><span class="plain">);</span>
<span class="identifier">glk_stylehint_clear</span><span class="plain">(</span><span class="identifier">swin</span><span class="plain">, </span><span class="identifier">i</span><span class="plain">, </span><span class="identifier">stylehint_BackColor</span><span class="plain">);</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="identifier">glk_stylehint_set</span><span class="plain">(</span><span class="identifier">swin</span><span class="plain">, </span><span class="identifier">i</span><span class="plain">, </span><span class="identifier">stylehint_TextColor</span><span class="plain">, </span><span class="identifier">fwd</span><span class="plain">);</span>
<span class="identifier">glk_stylehint_set</span><span class="plain">(</span><span class="identifier">swin</span><span class="plain">, </span><span class="identifier">i</span><span class="plain">, </span><span class="identifier">stylehint_BackColor</span><span class="plain">, </span><span class="identifier">bwd</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="comment">! Now re-open the windows to apply the hints</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_statuswin</span><span class="plain">) </span><span class="identifier">glk_window_close</span><span class="plain">(</span><span class="identifier">gg_statuswin</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="identifier">gg_statuswin</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">doclear</span><span class="plain"> || ( </span><span class="identifier">window</span><span class="plain"> ~= </span><span class="constant">1</span><span class="plain"> &amp;&amp; (</span><span class="identifier">clr_fg</span><span class="plain"> ~= </span><span class="identifier">f</span><span class="plain"> || </span><span class="identifier">clr_bg</span><span class="plain"> ~= </span><span class="identifier">b</span><span class="plain">) ) ) {</span>
<span class="identifier">glk_window_close</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="identifier">gg_mainwin</span><span class="plain"> = </span><span class="identifier">glk_window_open</span><span class="plain">(0, </span><span class="constant">0</span><span class="plain">, </span><span class="constant">0</span><span class="plain">, </span><span class="identifier">wintype_TextBuffer</span><span class="plain">, </span><span class="identifier">GG_MAINWIN_ROCK</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_scriptstr</span><span class="plain"> ~= </span><span class="constant">0</span><span class="plain">)</span>
<span class="identifier">glk_window_set_echo_stream</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">, </span><span class="identifier">gg_scriptstr</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="identifier">gg_statuswin</span><span class="plain"> =</span>
<span class="identifier">glk_window_open</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">, </span><span class="identifier">winmethod_Fixed</span><span class="plain"> + </span><span class="identifier">winmethod_Above</span><span class="plain">,</span>
<span class="identifier">statuswin_cursize</span><span class="plain">, </span><span class="identifier">wintype_TextGrid</span><span class="plain">, </span><span class="identifier">GG_STATUSWIN_ROCK</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">statuswin_current</span><span class="plain"> &amp;&amp; </span><span class="identifier">gg_statuswin</span><span class="plain">) </span><span class="identifier">VM_MoveCursorInStatusLine</span><span class="plain">(); </span><span class="reserved">else</span><span class="plain"> </span><span class="identifier">VM_MainWindow</span><span class="plain">();</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">window</span><span class="plain"> ~= </span><span class="constant">2</span><span class="plain">) {</span>
<span class="identifier">clr_fgstatus</span><span class="plain"> = </span><span class="identifier">f</span><span class="plain">;</span>
<span class="identifier">clr_bgstatus</span><span class="plain"> = </span><span class="identifier">b</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">window</span><span class="plain"> ~= </span><span class="constant">1</span><span class="plain">) {</span>
<span class="identifier">clr_fg</span><span class="plain"> = </span><span class="identifier">f</span><span class="plain">;</span>
<span class="identifier">clr_bg</span><span class="plain"> = </span><span class="identifier">b</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="plain">}</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">VM_RestoreWindowColours</span><span class="plain">; </span><span class="comment">! used after UNDO: compare I6 patch L61007</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">clr_on</span><span class="plain">) { </span><span class="comment">! check colour has been used</span>
<span class="identifier">VM_SetWindowColours</span><span class="plain">(</span><span class="identifier">clr_fg</span><span class="plain">, </span><span class="identifier">clr_bg</span><span class="plain">, </span><span class="constant">2</span><span class="plain">); </span><span class="comment">! make sure both sets of variables are restored</span>
<span class="identifier">VM_SetWindowColours</span><span class="plain">(</span><span class="identifier">clr_fgstatus</span><span class="plain">, </span><span class="identifier">clr_bgstatus</span><span class="plain">, </span><span class="constant">1</span><span class="plain">, </span><span class="reserved">true</span><span class="plain">);</span>
<span class="identifier">VM_ClearScreen</span><span class="plain">();</span>
<span class="plain">}</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">MakeColourWord</span><span class="plain"> </span><span class="identifier">c</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">c</span><span class="plain"> &gt; </span><span class="constant">9</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">c</span><span class="plain">;</span>
<span class="identifier">c</span><span class="plain"> = </span><span class="identifier">c</span><span class="plain">-2;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">$ff0000</span><span class="plain">*(</span><span class="identifier">c</span><span class="plain">&amp;1) + </span><span class="constant">$ff00</span><span class="plain">*(</span><span class="identifier">c</span><span class="plain">&amp;2 ~= </span><span class="constant">0</span><span class="plain">) + </span><span class="constant">$ff</span><span class="plain">*(</span><span class="identifier">c</span><span class="plain">&amp;4 ~= </span><span class="constant">0</span><span class="plain">);</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP23"></a><b>&#167;23. Main Window. </b>The part of the screen on which commands and responses are printed, which
ordinarily occupies almost all of the screen area.
</p>
<p class="inwebparagraph"><code class="display"><span class="extract">VM_MainWindow()</span></code> switches printing back from another window, usually the
status line, to the main window.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_MainWindow</span><span class="plain">;</span>
<span class="identifier">glk_set_window</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">); </span><span class="comment">! set_window</span>
<span class="identifier">statuswin_current</span><span class="plain">=0;</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP24"></a><b>&#167;24. Status Line. </b>Despite the name, the status line need not be a single line at the top of
the screen: that's only the conventional default arrangement. It can expand
to become the equivalent of an old-fashioned VT220 terminal, with menus
and grids and mazes displayed lovingly in character graphics, or it can
close up to invisibility.
</p>
<p class="inwebparagraph"><code class="display"><span class="extract">VM_StatusLineHeight(n)</span></code> sets the status line to have a height of <code class="display"><span class="extract">n</span></code> lines
of type. (The width of the status line is always the width of the whole
screen, and the position is always at the top, so the height is the only
controllable aspect.) The n=0 case makes the status line disappear.
</p>
<p class="inwebparagraph"><code class="display"><span class="extract">VM_MoveCursorInStatusLine(x, y)</span></code> switches printing to the status line,
positioning the "cursor" &mdash; the position at which printing will begin &mdash;
at the given character grid position (x, y). Line 1 represents the top
line; line 2 is underneath, and so on; columns are similarly numbered from
1 at the left.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">VM_StatusLineHeight</span><span class="plain"> </span><span class="identifier">hgt</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_statuswin</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">hgt</span><span class="plain"> == </span><span class="identifier">statuswin_cursize</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">glk_window_set_arrangement</span><span class="plain">(</span><span class="identifier">glk_window_get_parent</span><span class="plain">(</span><span class="identifier">gg_statuswin</span><span class="plain">), </span><span class="constant">$12</span><span class="plain">, </span><span class="identifier">hgt</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="identifier">statuswin_cursize</span><span class="plain"> = </span><span class="identifier">hgt</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">VM_MoveCursorInStatusLine</span><span class="plain"> </span><span class="identifier">line</span><span class="plain"> </span><span class="identifier">column</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_statuswin</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) </span><span class="reserved">return</span><span class="plain">;</span>
<span class="identifier">glk_set_window</span><span class="plain">(</span><span class="identifier">gg_statuswin</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">line</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) { </span><span class="identifier">line</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">; </span><span class="identifier">column</span><span class="plain"> = </span><span class="constant">1</span><span class="plain">; }</span>
<span class="identifier">glk_window_move_cursor</span><span class="plain">(</span><span class="identifier">gg_statuswin</span><span class="plain">, </span><span class="identifier">column</span><span class="plain">-1, </span><span class="identifier">line</span><span class="plain">-1);</span>
<span class="identifier">statuswin_current</span><span class="plain">=1;</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP25"></a><b>&#167;25. Quotation Boxes. </b>On the Z-machine, quotation boxes are produced by stretching the status line,
but on Glulx they usually occupy windows of their own. If it isn't possible
to create such a window, so that <code class="display"><span class="extract">gg_quotewin</span></code> is zero below, the quotation
text just appears in the main window.
</p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">Box__Routine</span><span class="plain"> </span><span class="identifier">maxwid</span><span class="plain"> </span><span class="identifier">arr</span><span class="plain"> </span><span class="identifier">ix</span><span class="plain"> </span><span class="identifier">lines</span><span class="plain"> </span><span class="identifier">lastnl</span><span class="plain"> </span><span class="identifier">parwin</span><span class="plain">;</span>
<span class="identifier">maxwid</span><span class="plain"> = </span><span class="constant">0</span><span class="plain">; </span><span class="comment">! squash compiler warning</span>
<span class="identifier">lines</span><span class="plain"> = </span><span class="identifier">arr</span><span class="plain">--&gt;0;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_quotewin</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">) {</span>
<span class="identifier">gg_arguments</span><span class="plain">--&gt;0 = </span><span class="identifier">lines</span><span class="plain">;</span>
<span class="identifier">ix</span><span class="plain"> = </span><span class="identifier">InitGlkWindow</span><span class="plain">(</span><span class="identifier">GG_QUOTEWIN_ROCK</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">ix</span><span class="plain"> == </span><span class="constant">0</span><span class="plain">)</span>
<span class="identifier">gg_quotewin</span><span class="plain"> =</span>
<span class="identifier">glk_window_open</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">, </span><span class="identifier">winmethod_Fixed</span><span class="plain"> + </span><span class="identifier">winmethod_Above</span><span class="plain">,</span>
<span class="identifier">lines</span><span class="plain">, </span><span class="identifier">wintype_TextBuffer</span><span class="plain">, </span><span class="identifier">GG_QUOTEWIN_ROCK</span><span class="plain">);</span>
<span class="plain">} </span><span class="reserved">else</span><span class="plain"> {</span>
<span class="identifier">parwin</span><span class="plain"> = </span><span class="identifier">glk_window_get_parent</span><span class="plain">(</span><span class="identifier">gg_quotewin</span><span class="plain">);</span>
<span class="identifier">glk_window_set_arrangement</span><span class="plain">(</span><span class="identifier">parwin</span><span class="plain">, </span><span class="constant">$12</span><span class="plain">, </span><span class="identifier">lines</span><span class="plain">, </span><span class="constant">0</span><span class="plain">);</span>
<span class="plain">}</span>
<span class="identifier">lastnl</span><span class="plain"> = </span><span class="reserved">true</span><span class="plain">;</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_quotewin</span><span class="plain">) {</span>
<span class="identifier">glk_window_clear</span><span class="plain">(</span><span class="identifier">gg_quotewin</span><span class="plain">);</span>
<span class="identifier">glk_set_window</span><span class="plain">(</span><span class="identifier">gg_quotewin</span><span class="plain">);</span>
<span class="identifier">lastnl</span><span class="plain"> = </span><span class="reserved">false</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="identifier">VM_Style</span><span class="plain">(</span><span class="identifier">BLOCKQUOTE_VMSTY</span><span class="plain">);</span>
<span class="reserved">for</span><span class="plain"> (</span><span class="identifier">ix</span><span class="plain">=0 : </span><span class="identifier">ix</span><span class="plain">&lt;</span><span class="identifier">lines</span><span class="plain"> : </span><span class="identifier">ix</span><span class="plain">++) {</span>
<span class="reserved">print</span><span class="plain"> (</span><span class="reserved">string</span><span class="plain">) </span><span class="identifier">arr</span><span class="plain">--&gt;(</span><span class="identifier">ix</span><span class="plain">+1);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">ix</span><span class="plain"> &lt; </span><span class="identifier">lines</span><span class="plain">-1 || </span><span class="identifier">lastnl</span><span class="plain">) </span><span class="reserved">new_line</span><span class="plain">;</span>
<span class="plain">}</span>
<span class="identifier">VM_Style</span><span class="plain">(</span><span class="identifier">NORMAL_VMSTY</span><span class="plain">);</span>
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">gg_quotewin</span><span class="plain">) </span><span class="identifier">glk_set_window</span><span class="plain">(</span><span class="identifier">gg_mainwin</span><span class="plain">);</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP26"></a><b>&#167;26. Veneer. </b></p>
<pre class="display">
<span class="plain">[ </span><span class="identifier">Unsigned__Compare</span><span class="plain"> </span><span class="identifier">x</span><span class="plain"> </span><span class="identifier">y</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">jleu</span><span class="plain"> </span><span class="identifier">x</span><span class="plain"> </span><span class="identifier">y</span><span class="plain"> ?</span><span class="identifier">lesseq</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">1</span><span class="plain">;</span>
<span class="plain">.</span><span class="identifier">lesseq</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">jeq</span><span class="plain"> </span><span class="identifier">x</span><span class="plain"> </span><span class="identifier">y</span><span class="plain"> ?</span><span class="identifier">equal</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">-1</span><span class="plain">;</span>
<span class="plain">.</span><span class="identifier">equal</span><span class="plain">;</span>
<span class="reserved">return</span><span class="plain"> </span><span class="constant">0</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">RT__ChLDW</span><span class="plain"> </span><span class="identifier">x</span><span class="plain"> </span><span class="identifier">y</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">aload</span><span class="plain"> </span><span class="identifier">x</span><span class="plain"> </span><span class="identifier">y</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain">;</span>
<span class="plain">@</span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain">;</span>
<span class="plain">];</span>
<span class="plain">[ </span><span class="identifier">RT__ChLDB</span><span class="plain"> </span><span class="identifier">x</span><span class="plain"> </span><span class="identifier">y</span><span class="plain">;</span>
<span class="plain">@</span><span class="identifier">aloadb</span><span class="plain"> </span><span class="identifier">x</span><span class="plain"> </span><span class="identifier">y</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain">;</span>
<span class="plain">@</span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">sp</span><span class="plain">;</span>
<span class="plain">];</span>
</pre>
<p class="inwebparagraph"></p>
<p class="inwebparagraph"><a id="SP27"></a><b>&#167;27. End Glulx-only matter. </b></p>
<pre class="display">
<span class="plain">#</span><span class="identifier">Endif</span><span class="plain">;</span>
</pre>
<p class="inwebparagraph"></p>
<hr class="tocbar">
<ul class="toc"><li><a href="S-ut.html">Back to 'Utilities Template'</a></li><li><a href="S-zt.html">Continue with 'ZMachine Template'</a></li></ul><hr class="tocbar">
<!--End of weave-->
</main>
</body>
</html>
Reference in a new issue View git blame Copy permalink