Initial import

1 files changed, 32 insertions, 0 deletions

diff --git a/system/setup/3.1/src/setup eumel 0: -M b/system/setup/3.1/src/setup eumel 0: -M
new file mode 100644
index 0000000..bad5028
--- /dev/null
+++ b/system/setup/3.1/src/setup eumel 0: -M
@@ -0,0 +1,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;
+