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/std.zusatz/1.8.7/src/spool cmd | 178 ---------------------------------- 1 file changed, 178 deletions(-) delete mode 100644 system/std.zusatz/1.8.7/src/spool cmd (limited to 'system/std.zusatz/1.8.7/src/spool cmd') diff --git a/system/std.zusatz/1.8.7/src/spool cmd b/system/std.zusatz/1.8.7/src/spool cmd deleted file mode 100644 index 9b43d36..0000000 --- a/system/std.zusatz/1.8.7/src/spool cmd +++ /dev/null @@ -1,178 +0,0 @@ -PACKET spool cmd (* Autor : R. Ruland *) - (* Stand : 13.08.87 *) - DEFINES - spool control password, - - kill spool, - first spool, - start spool, - stop spool, - halt spool, - 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, TEXT actual entries, password) VAR control msg; -BOUND TEXT VAR error msg; -INT VAR reply; - -INITFLAG VAR in this task := FALSE; -BOOL VAR dialogue; -TEXT VAR control password, password; - -control password := ""; - -PROC spool control password (TEXT CONST new password): - - IF on line THEN say (""3""13""5"") FI; - disable stop; - do ("enter spool control password (""" + new password + """)"); - clear error; - no do again; - cover tracks; - cover tracks (control password); - control password := new password; - -END PROC spool control password; - - -PROC call spool (INT CONST op code, TEXT CONST name, TASK CONST spool) : - - dialogue := command dialogue; - password := write password; - password CAT "/"; - password CAT read password; - disable stop; - command dialogue (FALSE); - enter password (control password); - command dialogue (dialogue); - call (op code, name, spool); - command dialogue (FALSE); - enter password (password); - command dialogue (dialogue); - -END PROC call spool; - - -PROC start spool (TASK CONST spool) : - - enable stop; - call spool (halt code, "", spool); - call spool (start code, "", spool); - -END PROC start spool; - - -PROC start spool (TASK CONST spool, INT CONST new channel) : - - enable stop; - call spool (halt code, "", spool); - call spool (start code, text (new channel), spool); - -END PROC start spool; - - -PROC stop spool (TASK CONST spool) : - - call spool (stop code, "", spool); - -END PROC stop spool; - -PROC stop spool (TASK CONST spool, TEXT CONST deactive msg) : - - call spool (stop code, deactive msg, spool); - -END PROC stop spool; - - -PROC halt spool (TASK CONST spool) : - - call spool (halt code, "", spool); - -END PROC halt spool; - -PROC halt spool (TASK CONST spool, TEXT CONST deactive msg) : - - call spool (halt code, deactive msg, spool); - -END PROC halt spool; - - -PROC wait for halt (TASK CONST spool) : - - call spool (wait for halt code, "", spool); - -END PROC wait for halt; - -PROC wait for halt (TASK CONST spool, TEXT CONST deactive msg) : - - call spool (wait for halt code, deactive msg, spool); - -END PROC wait for halt; - - -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. password := control password; - 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 kill spool (TASK CONST spool) : - - control spool (spool, killer code, " loeschen", FALSE) - -END PROC kill spool; - - -PROC first spool (TASK CONST spool) : - - control spool (spool, first code, " als erstes", TRUE) - -END PROC first spool; - - -END PACKET spool cmd; - -- cgit v1.2.3