autotests/reference/test-pim.mod.ref

0001 <Comment>(* PIM 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>(*!m2pim*)</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>(* reserved words *)</Comment><br/>
0021 <Plain Source></Plain Source><br/>
0022 <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><Plain Source> </Plain Source><Keyword>FOR</Keyword><br/>
0023 <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><Plain Source> </Plain Source><Keyword>POINTER</Keyword><Plain Source> </Plain Source><Keyword>PROCEDURE</Keyword><br/>
0024 <Keyword>QUALIFIED</Keyword><Plain Source> </Plain Source><Keyword>RECORD</Keyword><Plain Source> </Plain Source><Keyword>REPEAT</Keyword><Plain Source> </Plain Source><Keyword>RETURN</Keyword><Plain Source> </Plain Source><Keyword>SET</Keyword><Plain Source> </Plain Source><Keyword>THEN</Keyword><Plain Source> </Plain Source><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/>
0025 <Plain Source></Plain Source><br/>
0026 <Plain Source></Plain Source><br/>
0027 <Comment>(* built-in constants *)</Comment><br/>
0028 <Plain Source></Plain Source><br/>
0029 <Const>FALSE</Const><Plain Source> </Plain Source><Const>NIL</Const><Plain Source> </Plain Source><Const>TRUE</Const><br/>
0030 <Plain Source></Plain Source><br/>
0031 <Plain Source></Plain Source><br/>
0032 <Comment>(* built-in types *)</Comment><br/>
0033 <Plain Source></Plain Source><br/>
0034 <Type>BOOLEAN</Type><Plain Source> </Plain Source><Type>BITSET</Type><Plain Source> </Plain Source><Type>CARDINAL</Type><Plain Source> </Plain Source><Type>CHAR</Type><Plain Source> </Plain Source><Type>INTEGER</Type><Plain Source> </Plain Source><Type>LONGINT</Type><Plain Source> </Plain Source><Type>LONGREAL</Type><Plain Source> </Plain Source><Type>PROC</Type><Plain Source> </Plain Source><Type>REAL</Type><br/>
0035 <Plain Source></Plain Source><br/>
0036 <Plain Source></Plain Source><br/>
0037 <Comment>(* built-in procedures *)</Comment><br/>
0038 <Plain Source></Plain Source><br/>
0039 <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>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/>
0040 <Builtin>INC</Builtin><Plain Source> </Plain Source><Builtin>INCL</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>SIZE</Builtin><Plain Source> </Plain Source><Builtin>TRUNC</Builtin><Plain Source> </Plain Source><Builtin>VAL</Builtin><br/>
0041 <Plain Source></Plain Source><br/>
0042 <Plain Source></Plain Source><br/>
0043 <Comment>(* unsafe facilities *)</Comment><br/>
0044 <Plain Source></Plain Source><br/>
0045 <Comment>(* module *)</Comment><br/>
0046 <Plain Source></Plain Source><br/>
0047 <Unsafe>SYSTEM</Unsafe><br/>
0048 <Plain Source></Plain Source><br/>
0049 <Comment>(* types *)</Comment><br/>
0050 <Plain Source></Plain Source><br/>
0051 <Unsafe>ADDRESS</Unsafe><Plain Source> </Plain Source><Unsafe>WORD</Unsafe><Plain Source> </Plain Source><Unsafe>PROCESS</Unsafe><br/>
0052 <Plain Source></Plain Source><br/>
0053 <Comment>(* procedures *)</Comment><br/>
0054 <Plain Source></Plain Source><br/>
0055 <Unsafe>ADR</Unsafe><Plain Source> </Plain Source><Unsafe>NEWPROCESS</Unsafe><Plain Source> </Plain Source><Unsafe>TRANSFER</Unsafe><Plain Source> </Plain Source><Unsafe>TSIZE</Unsafe><br/>
0056 <Plain Source></Plain Source><br/>
0057 <Plain Source></Plain Source><br/>
0058 <Comment>(* number literals *)</Comment><br/>
0059 <Plain Source></Plain Source><br/>
0060 <Keyword>CONST</Keyword><br/>
0061 <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/>
0062 <Plain Source></Plain Source><br/>
0063 <Plain Source></Plain Source><br/>
0064 <Comment>(* quoted literals *)</Comment><br/>
0065 <Plain Source></Plain Source><br/>
0066 <Keyword>CONST</Keyword><br/>
0067 <Plain Source>  apostrophe = </Plain Source><String>"'"</String><Plain Source>; doublequote = </Plain Source><String>'"'</String><Plain Source>;</Plain Source><br/>
0068 <Plain Source>  single =</Plain Source><String>'foobar'</String><Plain Source>; double = </Plain Source><String>"bazbam"</String><Plain Source>;</Plain Source><br/>
0069 <Plain Source></Plain Source><br/>
0070 <Plain Source></Plain Source><br/>
0071 <Comment>(* sample code *)</Comment><br/>
0072 <Plain Source></Plain Source><br/>
0073 <Keyword>TYPE</Keyword><Plain Source> Foo = </Plain Source><Keyword>RECORD</Keyword><br/>
0074 <Plain Source>  bar : Baz;</Plain Source><br/>
0075 <Plain Source>  bam : Boo</Plain Source><br/>
0076 <Keyword>END</Keyword><Plain Source>; </Plain Source><Comment>(* Foobar *)</Comment><br/>
0077 <Plain Source></Plain Source><br/>
0078 <Plain Source></Plain Source><br/>
0079 <Keyword>VAR</Keyword><br/>
0080 <Plain Source>  foo, bar, baz : </Plain Source><Type>CARDINAL</Type><Plain Source>;</Plain Source><br/>
0081 <Plain Source></Plain Source><br/>
0082 <Plain Source></Plain Source><br/>
0083 <Keyword>IF</Keyword><Plain Source> foo > bar </Plain Source><Keyword>THEN</Keyword><br/>
0084 <Plain Source>  baz := bam</Plain Source><br/>
0085 <Keyword>ELSE</Keyword><br/>
0086 <Plain Source>  baz := boo</Plain Source><br/>
0087 <Keyword>END</Keyword><Plain Source>;</Plain Source><br/>
0088 <Plain Source></Plain Source><br/>
0089 <Plain Source></Plain Source><br/>
0090 <Comment>(* EOF *)</Comment><br/>