From 71e2b36ccd05ea678e62e32ee6245df2b8d6ac17 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Thu, 7 Feb 2019 10:05:49 +0100 Subject: Move spooler into its own package I *think* these parts belong together. --- system/net/1.8.7/src/spool cmd | 112 ----------------------------------------- 1 file changed, 112 deletions(-) delete mode 100644 system/net/1.8.7/src/spool cmd (limited to 'system/net/1.8.7/src/spool cmd') diff --git a/system/net/1.8.7/src/spool cmd b/system/net/1.8.7/src/spool cmd deleted file mode 100644 index b44e799..0000000 --- a/system/net/1.8.7/src/spool cmd +++ /dev/null @@ -1,112 +0,0 @@ -PACKET spool cmd (* Autor: R. Ruland *) - (* Stand: 01.04.86 *) - DEFINES killer, - first, - start, - stop, - halt, - wait for halt : - -LET error nak = 2 , - - entry line code = 23 , - killer code = 24 , - first code = 25 , - start code = 26 , - stop code = 27 , - halt code = 28 , - wait for halt code = 29 ; - -DATASPACE VAR ds; - -BOUND STRUCT (TEXT entry line, INT index) VAR control msg; -BOUND TEXT VAR error msg ; - -INT VAR reply; - -INITFLAG VAR in this task := FALSE; - - -PROC control spool (TASK CONST spool, INT CONST control code, - TEXT CONST question, BOOL CONST leave) : - - enable stop; - initialize control msg; - WHILE valid spool entry - REP IF control question THEN control spool entry FI PER; - - . initialize control msg : - IF NOT initialized (in this task) THEN ds := nilspace FI; - forget (ds); ds := nilspace; control msg := ds; - control msg. entry line := ""; - control msg. index := 0; - say (""13""10""); - - . valid spool entry : - call (spool, entry line code, ds, reply); - IF reply = error nak - THEN error msg := ds; - errorstop (error msg); - FI; - control msg. index <> 0 - - . control question : - say (control msg. entry line); - yes (question) - - . control spool entry : - call (spool, control code, ds, reply); - IF reply = error nak - THEN error msg := ds; - errorstop (error msg); - FI; - IF leave THEN LEAVE control spool FI; - -END PROC control spool; - - -PROC killer (TASK CONST spool) : - - control spool (spool, killer code, " loeschen", FALSE) - -END PROC killer; - - -PROC first (TASK CONST spool) : - - control spool (spool, first code, " als erstes", TRUE) - -END PROC first; - - -PROC start (TASK CONST spool) : - - call (stop code, "", spool); - call (start code, "", spool); - -END PROC start; - - -PROC stop (TASK CONST spool) : - - call (stop code, "", spool); - -END PROC stop; - - -PROC halt (TASK CONST spool) : - - call (halt code, "", spool); - -END PROC halt; - - -PROC wait for halt (TASK CONST spool) : - - call (wait for halt code, "", spool); - -END PROC wait for halt; - - -END PACKET spool cmd; - -- cgit v1.2.3