autotests/reference/test.mod.ref

0001 <Comment>(* ISO Modula-2 Syntax highlighting test *)</Comment><br/>
0002 <Plain Source></Plain Source><br/>
0003 <Comment>(* dialect tags *)</Comment><br/>
0004 <Plain Source></Plain Source><br/>
0005 <DialectTag>(*!m2iso*)</DialectTag><br/>
0006 <Plain Source></Plain Source><br/>
0007 <Plain Source></Plain Source><br/>
0008 <Comment>(* pragmas *)</Comment><br/>
0009 <Plain Source></Plain Source><br/>
0010 <Pragma><*foo*></Pragma><br/>
0011 <Plain Source></Plain Source><br/>
0012 <Plain Source></Plain Source><br/>
0013 <Comment>(* foldable comments *)</Comment><br/>
0014 <Plain Source></Plain Source><br/>
0015 <Comment>(* foo bar baz</Comment><br/>
0016 <Comment>   (* nested comment *)</Comment><br/>
0017 <Comment>   bam boo bee bop *)</Comment><br/>
0018 <Plain Source></Plain Source><br/>
0019 <Plain Source></Plain Source><br/>
0020 <Comment>(* built-in constants *)</Comment><br/>
0021 <Plain Source></Plain Source><br/>
0022 <Const>FALSE</Const><Plain Source> </Plain Source><Const>INTERRUPTIBLE</Const><Plain Source> </Plain Source><Const>NIL</Const><Plain Source> </Plain Source><Const>TRUE</Const><Plain Source> </Plain Source><Const>UNINTERRUPTIBLE</Const><br/>
0023 <Plain Source></Plain Source><br/>
0024 <Plain Source></Plain Source><br/>
0025 <Comment>(* built-in types *)</Comment><br/>
0026 <Plain Source></Plain Source><br/>
0027 <Type>BOOLEAN</Type><Plain Source> </Plain Source><Type>BITSET</Type><Plain Source> </Plain Source><Type>CARDINAL</Type><Plain Source> </Plain Source><Type>COMPLEX</Type><Plain Source> </Plain Source><Type>CHAR</Type><Plain Source> </Plain Source><Type>INTEGER</Type><Plain Source> </Plain Source><Type>LONGCOMPLEX</Type><Plain Source> </Plain Source><Type>LONGREAL</Type><br/>
0028 <Type>PROC</Type><Plain Source> </Plain Source><Type>PROTECTION</Type><Plain Source> </Plain Source><Type>REAL</Type><br/>
0029 <Plain Source></Plain Source><br/>
0030 <Plain Source></Plain Source><br/>
0031 <Comment>(* built-in procedures *)</Comment><br/>
0032 <Plain Source></Plain Source><br/>
0033 <Builtin>ABS</Builtin><Plain Source> </Plain Source><Builtin>ALLOCATE</Builtin><Plain Source> </Plain Source><Builtin>CAP</Builtin><Plain Source> </Plain Source><Builtin>CHR</Builtin><Plain Source> </Plain Source><Builtin>CMPLX</Builtin><Plain Source> </Plain Source><Builtin>DEALLOCATE</Builtin><Plain Source> </Plain Source><Builtin>DEC</Builtin><Plain Source> </Plain Source><Builtin>DISPOSE</Builtin><Plain Source> </Plain Source><Builtin>EXCL</Builtin><Plain Source> </Plain Source><Builtin>FLOAT</Builtin><Plain Source> </Plain Source><Builtin>HALT</Builtin><Plain Source> </Plain Source><Builtin>HIGH</Builtin><br/>
0034 <Builtin>INC</Builtin><Plain Source> </Plain Source><Builtin>INCL</Builtin><Plain Source> </Plain Source><Builtin>INT</Builtin><Plain Source> </Plain Source><Builtin>LENGTH</Builtin><Plain Source> </Plain Source><Builtin>LFLOAT</Builtin><Plain Source> </Plain Source><Builtin>MAX</Builtin><Plain Source> </Plain Source><Builtin>MIN</Builtin><Plain Source> </Plain Source><Builtin>NEW</Builtin><Plain Source> </Plain Source><Builtin>ODD</Builtin><Plain Source> </Plain Source><Builtin>ORD</Builtin><Plain Source> </Plain Source><Builtin>RE</Builtin><Plain Source> </Plain Source><Builtin>SIZE</Builtin><Plain Source> </Plain Source><Builtin>TRUNC</Builtin><Plain Source> </Plain Source><Builtin>VAL</Builtin><br/>
0035 <Plain Source></Plain Source><br/>
0036 <Plain Source></Plain Source><br/>
0037 <Comment>(* reserved words *)</Comment><br/>
0038 <Plain Source></Plain Source><br/>
0039 <Keyword>AND</Keyword><Plain Source> </Plain Source><Keyword>ARRAY</Keyword><Plain Source> </Plain Source><Keyword>BEGIN</Keyword><Plain Source> </Plain Source><Keyword>BY</Keyword><Plain Source> </Plain Source><Keyword>CASE</Keyword><Plain Source> </Plain Source><Keyword>CONST</Keyword><Plain Source> </Plain Source><Keyword>DEFINITION</Keyword><Plain Source> </Plain Source><Keyword>DIV</Keyword><Plain Source> </Plain Source><Keyword>DO</Keyword><Plain Source> </Plain Source><Keyword>ELSE</Keyword><Plain Source> </Plain Source><Keyword>ELSIF</Keyword><Plain Source> </Plain Source><Keyword>END</Keyword><Plain Source> </Plain Source><Keyword>EXIT</Keyword><Plain Source> </Plain Source><Keyword>EXPORT</Keyword><br/>
0040 <Keyword>FINALLY</Keyword><Plain Source> </Plain Source><Keyword>FOR</Keyword><Plain Source> </Plain Source><Keyword>FORWARD</Keyword><Plain Source> </Plain Source><Keyword>FROM</Keyword><Plain Source> </Plain Source><Keyword>IF</Keyword><Plain Source> </Plain Source><Keyword>IMPLEMENTATION</Keyword><Plain Source> </Plain Source><Keyword>IMPORT</Keyword><Plain Source> </Plain Source><Keyword>IN</Keyword><Plain Source> </Plain Source><Keyword>LOOP</Keyword><Plain Source> </Plain Source><Keyword>MOD</Keyword><Plain Source> </Plain Source><Keyword>MODULE</Keyword><Plain Source> </Plain Source><Keyword>NOT</Keyword><Plain Source> </Plain Source><Keyword>OF</Keyword><Plain Source> </Plain Source><Keyword>OR</Keyword><br/>
0041 <Keyword>PACKEDSET</Keyword><Plain Source> </Plain Source><Keyword>POINTER</Keyword><Plain Source> </Plain Source><Keyword>PROCEDURE</Keyword><Plain Source> </Plain Source><Keyword>QUALIFIED</Keyword><Plain Source> </Plain Source><Keyword>RECORD</Keyword><Plain Source> </Plain Source><Keyword>REM</Keyword><Plain Source> </Plain Source><Keyword>REPEAT</Keyword><Plain Source> </Plain Source><Keyword>RETRY</Keyword><Plain Source> </Plain Source><Keyword>RETURN</Keyword><Plain Source> </Plain Source><Keyword>SET</Keyword><Plain Source> </Plain Source><Keyword>THEN</Keyword><br/>
0042 <Keyword>TO</Keyword><Plain Source> </Plain Source><Keyword>TYPE</Keyword><Plain Source> </Plain Source><Keyword>UNTIL</Keyword><Plain Source> </Plain Source><Keyword>VAR</Keyword><Plain Source> </Plain Source><Keyword>WHILE</Keyword><Plain Source> </Plain Source><Keyword>WITH</Keyword><br/>
0043 <Plain Source></Plain Source><br/>
0044 <Plain Source></Plain Source><br/>
0045 <Comment>(* unsafe facilities *)</Comment><br/>
0046 <Plain Source></Plain Source><br/>
0047 <Comment>(* module *)</Comment><br/>
0048 <Plain Source></Plain Source><br/>
0049 <Unsafe>SYSTEM</Unsafe><br/>
0050 <Plain Source></Plain Source><br/>
0051 <Comment>(* constants *)</Comment><br/>
0052 <Plain Source></Plain Source><br/>
0053 <Unsafe>BITSPERLOC</Unsafe><Plain Source> </Plain Source><Unsafe>BITSPERWORD</Unsafe><br/>
0054 <Plain Source></Plain Source><br/>
0055 <Comment>(* types *)</Comment><br/>
0056 <Plain Source></Plain Source><br/>
0057 <Unsafe>ADDRESS</Unsafe><Plain Source> </Plain Source><Unsafe>LOC</Unsafe><Plain Source> </Plain Source><Unsafe>WORD</Unsafe><br/>
0058 <Plain Source></Plain Source><br/>
0059 <Comment>(* procedures *)</Comment><br/>
0060 <Plain Source></Plain Source><br/>
0061 <Unsafe>ADDADR</Unsafe><Plain Source> </Plain Source><Unsafe>ADR</Unsafe><Plain Source> </Plain Source><Unsafe>CAST</Unsafe><Plain Source> </Plain Source><Unsafe>DIFADR</Unsafe><Plain Source> </Plain Source><Unsafe>MAKEADR</Unsafe><Plain Source> </Plain Source><Unsafe>ROTATE</Unsafe><Plain Source> </Plain Source><Unsafe>SHIFT</Unsafe><Plain Source> </Plain Source><Unsafe>SUBADR</Unsafe><Plain Source> </Plain Source><Unsafe>TSIZE</Unsafe><br/>
0062 <Plain Source></Plain Source><br/>
0063 <Plain Source></Plain Source><br/>
0064 <Comment>(* number literals *)</Comment><br/>
0065 <Plain Source></Plain Source><br/>
0066 <Keyword>CONST</Keyword><br/>
0067 <Plain Source>  n = </Plain Source><Number>1000</Number><Plain Source>; r = </Plain Source><Number>1.234</Number><Plain Source>; x = </Plain Source><Number>0FFFFH</Number><Plain Source>; c = </Plain Source><Number>077C</Number><Plain Source>;</Plain Source><br/>
0068 <Plain Source></Plain Source><br/>
0069 <Plain Source></Plain Source><br/>
0070 <Comment>(* quoted literals *)</Comment><br/>
0071 <Plain Source></Plain Source><br/>
0072 <Keyword>CONST</Keyword><br/>
0073 <Plain Source>  apostrophe = </Plain Source><String>"'"</String><Plain Source>; doublequote = </Plain Source><String>'"'</String><Plain Source>;</Plain Source><br/>
0074 <Plain Source>  single =</Plain Source><String>'foobar'</String><Plain Source>; double = </Plain Source><String>"bazbam"</String><Plain Source>;</Plain Source><br/>
0075 <Plain Source></Plain Source><br/>
0076 <Plain Source></Plain Source><br/>
0077 <Comment>(* sample code *)</Comment><br/>
0078 <Plain Source></Plain Source><br/>
0079 <Keyword>TYPE</Keyword><Plain Source> Foo = </Plain Source><Keyword>RECORD</Keyword><br/>
0080 <Plain Source>  bar : Baz;</Plain Source><br/>
0081 <Plain Source>  bam : Boo</Plain Source><br/>
0082 <Keyword>END</Keyword><Plain Source>; </Plain Source><Comment>(* Foobar *)</Comment><br/>
0083 <Plain Source></Plain Source><br/>
0084 <Plain Source></Plain Source><br/>
0085 <Keyword>VAR</Keyword><br/>
0086 <Plain Source>  foo, bar, baz : </Plain Source><Type>CARDINAL</Type><Plain Source>;</Plain Source><br/>
0087 <Plain Source></Plain Source><br/>
0088 <Plain Source></Plain Source><br/>
0089 <Keyword>IF</Keyword><Plain Source> foo > bar </Plain Source><Keyword>THEN</Keyword><br/>
0090 <Plain Source>  baz := bam</Plain Source><br/>
0091 <Keyword>ELSE</Keyword><br/>
0092 <Plain Source>  baz := boo</Plain Source><br/>
0093 <Keyword>END</Keyword><Plain Source>;</Plain Source><br/>
0094 <Plain Source></Plain Source><br/>
0095 <Plain Source></Plain Source><br/>
0096 <Comment>(* EOF *)</Comment><br/>