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;