Warning, /frameworks/syntax-highlighting/autotests/input/test-pim.mod is written in an unsupported language. File is not indexed.
0001 (* PIM Modula-2 Syntax highlighting test *) 0002 0003 (* dialect tags *) 0004 0005 (*!m2pim*) 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 (* reserved words *) 0021 0022 AND ARRAY BEGIN BY CASE CONST DEFINITION DIV DO ELSE ELSIF END EXIT EXPORT FOR 0023 FROM IF IMPLEMENTATION IMPORT IN LOOP MOD MODULE NOT OF OR POINTER PROCEDURE 0024 QUALIFIED RECORD REPEAT RETURN SET THEN TO TYPE UNTIL VAR WHILE WITH 0025 0026 0027 (* built-in constants *) 0028 0029 FALSE NIL TRUE 0030 0031 0032 (* built-in types *) 0033 0034 BOOLEAN BITSET CARDINAL CHAR INTEGER LONGINT LONGREAL PROC REAL 0035 0036 0037 (* built-in procedures *) 0038 0039 ABS ALLOCATE CAP CHR DEALLOCATE DEC DISPOSE EXCL FLOAT HALT HIGH 0040 INC INCL MAX MIN NEW ODD ORD SIZE TRUNC VAL 0041 0042 0043 (* unsafe facilities *) 0044 0045 (* module *) 0046 0047 SYSTEM 0048 0049 (* types *) 0050 0051 ADDRESS WORD PROCESS 0052 0053 (* procedures *) 0054 0055 ADR NEWPROCESS TRANSFER TSIZE 0056 0057 0058 (* number literals *) 0059 0060 CONST 0061 n = 1000; r = 1.234; x = 0FFFFH; c = 077C; 0062 0063 0064 (* quoted literals *) 0065 0066 CONST 0067 apostrophe = "'"; doublequote = '"'; 0068 single ='foobar'; double = "bazbam"; 0069 0070 0071 (* sample code *) 0072 0073 TYPE Foo = RECORD 0074 bar : Baz; 0075 bam : Boo 0076 END; (* Foobar *) 0077 0078 0079 VAR 0080 foo, bar, baz : CARDINAL; 0081 0082 0083 IF foo > bar THEN 0084 baz := bam 0085 ELSE 0086 baz := boo 0087 END; 0088 0089 0090 (* EOF *)