<html><head><meta name="qrichtext" content="1" /></head><body style="font-size:10pt;font-family:Cursor">
<p>On Saturday 08 January 2011 22:59:21 Jan Verhoeven wrote:</p>
<p>> On Saturday 08 January 2011 22:44:00 Duke Normandin wrote:</p>
<p>> > I was merely concerned about including every bloody procedure in</p>
<p>> > every module that happened to be referenced in the IMPORT</p>
<p>> > statement.</p>
<p>></p>
<p>> Better learn to live with it though....</p>
<p></p>
<p>Do a test.</p>
<p></p>
<p>Make something like</p>
<p></p>
<p>MODULE test1;</p>
<p></p>
<p>IMPORT Out;</p>
<p></p>
<p>VAR chr : CHAR;</p>
<p> i : INTEGER;</p>
<p> text : ARRAY 32 OF CHAR;</p>
<p></p>
<p>BEGIN</p>
<p> text := "Hi there, Duke here.";</p>
<p> (* Out.String (text); *)</p>
<p> (* Out.Ln; *)</p>
<p> i := 0;</p>
<p> LOOP</p>
<p> chr := text [i];</p>
<p> IF chr = 0X THEN EXIT END;</p>
<p> (* Out.Char (chr); *)</p>
<p> INC (i)</p>
<p> END;</p>
<p> (* Out.Ln *)</p>
<p>END test1.</p>
<p></p>
<p>Make different versions each with one pair of comments taken out (5 versions) and compile.</p>
<p></p>
<p>jan@Beryllium:~/Oberon/klim$ ls -l</p>
<p>total 5469</p>
<p><span style="font-family:Liberation Mono">4099 tst1* 312 test1.m</span></p>
<p><span style="font-family:Liberation Mono">4131 test2* 306 test2.m</span></p>
<p><span style="font-family:Liberation Mono">4162 test3* 300 test3.m</span></p>
<p><span style="font-family:Liberation Mono">4194 test4* 294 test4.m</span></p>
<p><span style="font-family:Liberation Mono">4218 test5* 288 test5.m</span></p>
<p></p>
<p><span style="font-family:Liberation Mono">The executables grow a little bit but not much. </span></p>
<p></p>
<p><span style="font-family:Liberation Mono">jan@Beryllium:~/Oberon/klim$ ./test1</span></p>
<p><span style="font-family:Liberation Mono">jan@Beryllium:~/Oberon/klim$ ./test2</span></p>
<p><span style="font-family:Liberation Mono">Hi there, Duke here.jan@Beryllium:~/Oberon/klim$ ./test3</span></p>
<p><span style="font-family:Liberation Mono">Hi there, Duke here.Hi there, Duke here.jan@Beryllium:~/Oberon/klim$ ./test4</span></p>
<p><span style="font-family:Liberation Mono">Hi there, Duke here.</span></p>
<p><span style="font-family:Liberation Mono">Hi there, Duke here.jan@Beryllium:~/Oberon/klim$ ./test5</span></p>
<p><span style="font-family:Liberation Mono">Hi there, Duke here.</span></p>
<p><span style="font-family:Liberation Mono">Hi there, Duke here.</span></p>
<p></p>
<p><span style="font-family:Liberation Mono">For the fun, add 'In' to the import list, withoput calling it:</span></p>
<p></p>
<p><span style="font-family:Liberation Mono">5884 test6* 292 test6.m</span></p>
<p></p>
<p>It's clear. The full 'In' is included now. AFAIK this is universal.</p>
<p></p>
<p>-- </p>
<p>Met vriendelijke groeten,</p>
<p></p>
<p>Jan Verhoeven</p>
<p>http://www.verhoeven272.nl</p>
<p></p>
</body></html>