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;