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