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


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

PACKET setup eumel multiuserspecials       (* Copyright (C) 1985, 1988 *)
DEFINES terminal setup,                    (* Martin Schönbeck, Spenge *)
        indirect list,                     (* Lutz Prechelt, Karlsruhe *)
        setup testing :                    (* Stand: 07.05.88   2.1    *)

LET sysout file = "sysout";

BOOL VAR setup test version :: FALSE;

PROC terminal setup: 
  (* It took about 2 manmonths to debug this procedure ! *)
END PROC terminal setup; 
 
PROC indirect list (BOOL CONST make indirection) :
  IF make indirection
  THEN sysout (sysout file);
  ELSE sysout ("");
       print (sysout file);
       forget (sysout file, quiet)
  FI.
END PROC indirect list;

PROC setup testing (BOOL CONST new ):
   setup test version := new;
END PROC setup testing;

BOOL PROC setup testing :
  setup test version.
END PROC setup testing;

END PACKET setup eumel multiuserspecials;