code.delx.au - gnu-emacs/blob - test/indent/modula2.mod

   1 (* -*- mode: modula-2; m2-indent:3 -*- *)
   2
   3 IMPLEMENTATION MODULE Indent ;
   4
   5 (* This is (* a nested comment *) *)
   6 // This is a single-line comment.
   7
   8 FROM SYSTEM IMPORT ADR, TSIZE, SIZE, WORD ;
   9
  10 CONST
  11    c1 = 2;
  12
  13 TYPE
  14    t = POINTER TO ARRAY [0..10] OF LONGINT;
  15
  16 VAR x: t;
  17     y:LONGINT;
  18
  19
  20 PROCEDURE f1 (f: File) : INTEGER ;
  21    VAR
  22       fd: FileDescriptor ;
  23    PROCEDURE foo (a:CARDINAL) : INTEGER;
  24    BEGIN
  25    END foo;
  26 BEGIN
  27    IF f#Error
  28    THEN
  29       fd := GetIndice(FileInfo, f) ;
  30       IF fd#NIL THEN
  31          RETURN( fd^.unixfd )
  32       ELSE
  33          CASE z OF
  34             1: do1();
  35           | 2: do2();
  36                toto(x);
  37           | 3: ;
  38           | 4: do4();
  39          ELSE do5();
  40          END ; (* CASE selection *)
  41
  42       END
  43    END ;
  44    FormatError1('file %d has not been opened or is out of range\n', f) ;
  45    RETURN( -1 )
  46 END f1 ;
  47
  48
  49 BEGIN
  50    init
  51 FINALLY
  52    done
  53 END Indent.