system/setup/3.1/src/setup eumel -1: mini eumel dummies

Raw file
Back to index

 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
PACKET setup eumel mini eumel dummies    (* Stand : 08.04.88 *)
DEFINES FILE, 
        sequentialfile, 
        output, 
        putline, 
        :=,
        run : 
 
TYPE FILE = INT;
 
INT CONST output :: 0; 

OP := (FILE VAR a, FILE CONST b):

END OP :=;
FILE PROC sequentialfile (INT CONST a, TEXT CONST b) : 
  FILE : (0).
END PROC sequentialfile; 
 
PROC putline (FILE CONST a, TEXT CONST b): 
END PROC putline; 
 
PROC run (TEXT CONST a): 
END PROC run; 
 
END PACKET setup eumel mini eumel dummies;