system/setup/3.1/src/setup eumel 0: -S

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
27
28
29
30
31
32
33
34
PACKET setup eumel singleuserspecials      (* Copyright (C) 1985, 1988 *)
DEFINES terminal setup,                    (* Martin Schönbeck, Spenge *)
        break,                             (* Lutz Prechelt, Karlsruhe *)
        indirect list,                     (* Stand: 07.05.88   2.1    *)
        setup testing :

LET printer channel  = 15,
    screen  channel  =  1;

 
PROC break (QUIET CONST quiet): 
END PROC break; 
 
PROC terminal setup:
  setup
END PROC terminal setup;

PROC indirect list (BOOL CONST make indirection) :
  (* Man beachte, daß es nicht besonders sinnvoll ist, auf einem Drucker
     cout zu machen...
  *)
  IF make indirection
  THEN continue (printer channel)
  ELSE continue (screen channel)  FI.
END PROC indirect list;

PROC setup testing (BOOL CONST new):
END PROC setup testing;

BOOL PROC setup testing :
  FALSE.
END PROC setup testing;

END PACKET setup eumel singleuserspecials;