Warning, /frameworks/syntax-highlighting/autotests/input/test.mod is written in an unsupported language. File is not indexed.

 (* ISO Modula-2 Syntax highlighting test *)
 
 (* dialect tags *)
 
 (*!m2iso*)
 
 
 (* pragmas *)
 
 <*foo*>
 
 
 (* foldable comments *)
 
 (* foo bar baz
    (* nested comment *)
    bam boo bee bop *)
 
 
 (* built-in constants *)
 
 FALSE INTERRUPTIBLE NIL TRUE UNINTERRUPTIBLE
 
 
 (* built-in types *)
 
 BOOLEAN BITSET CARDINAL COMPLEX CHAR INTEGER LONGCOMPLEX LONGREAL
 PROC PROTECTION REAL
 
 
 (* built-in procedures *)
 
 ABS ALLOCATE CAP CHR CMPLX DEALLOCATE DEC DISPOSE EXCL FLOAT HALT HIGH
 INC INCL INT LENGTH LFLOAT MAX MIN NEW ODD ORD RE SIZE TRUNC VAL
 
 
 (* reserved words *)
 
 AND ARRAY BEGIN BY CASE CONST DEFINITION DIV DO ELSE ELSIF END EXIT EXPORT
 FINALLY FOR FORWARD FROM IF IMPLEMENTATION IMPORT IN LOOP MOD MODULE NOT OF OR
 PACKEDSET POINTER PROCEDURE QUALIFIED RECORD REM REPEAT RETRY RETURN SET THEN
 TO TYPE UNTIL VAR WHILE WITH
 
 
 (* unsafe facilities *)
 
 (* module *)
 
 SYSTEM
 
 (* constants *)
 
 BITSPERLOC BITSPERWORD
 
 (* types *)
 
 ADDRESS LOC WORD
 
 (* procedures *)
 
 ADDADR ADR CAST DIFADR MAKEADR ROTATE SHIFT SUBADR TSIZE
 
 
 (* number literals *)
 
 CONST
   n = 1000; r = 1.234; x = 0FFFFH; c = 077C;
 
 
 (* quoted literals *)
 
 CONST
   apostrophe = "'"; doublequote = '"';
   single ='foobar'; double = "bazbam";
 
 
 (* sample code *)
 
 TYPE Foo = RECORD
   bar : Baz;
   bam : Boo
 END; (* Foobar *)
 
 
 VAR
   foo, bar, baz : CARDINAL;
 
 
 IF foo > bar THEN
   baz := bam
 ELSE
   baz := boo
 END;
 
 
 (* EOF *)