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