From 71e2b36ccd05ea678e62e32ee6245df2b8d6ac17 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Thu, 7 Feb 2019 10:05:49 +0100
Subject: Move spooler into its own package

I *think* these parts belong together.
---
 system/spooler/1.8.7-std.zusatz/src/printer server | 99 ++++++++++++++++++++++
 1 file changed, 99 insertions(+)
 create mode 100644 system/spooler/1.8.7-std.zusatz/src/printer server

(limited to 'system/spooler/1.8.7-std.zusatz/src/printer server')

diff --git a/system/spooler/1.8.7-std.zusatz/src/printer server b/system/spooler/1.8.7-std.zusatz/src/printer server
new file mode 100644
index 0000000..b1a30bc
--- /dev/null
+++ b/system/spooler/1.8.7-std.zusatz/src/printer server	
@@ -0,0 +1,99 @@
+PACKET multi user printer :                      (* Autor : Rudolf Ruland  *)
+                                                 (* Stand : 24.03.86       *)
+ 
+INT VAR c;
+put ("gib Druckerkanal : "); get (c);
+
+  server channel (c);
+  station only (FALSE) ;
+  spool duty ("Ausgabe mit dem Drucker");
+  spool control task (myself);
+ 
+LET ack              = 0 ,
+ 
+    fetch code       = 11 ,
+    param fetch code = 21 ,
+    file type        = 1003 ;
+
+INT VAR reply, old heap size, sender station;
+TEXT VAR file name, userid, password, sendername;
+FILE VAR file ;
+
+DATASPACE VAR ds, file ds;
+ 
+BOUND STRUCT (TEXT file name, userid, password, sendername, INT station) VAR msg;
+BOUND TEXT VAR error msg ;
+ 
+spool manager (PROC printer);
+ 
+PROC printer :
+
+  disable stop ;
+  command dialogue (FALSE);
+  ds := nilspace; file ds := nilspace; 
+  continue (server channel) ;
+    check error ("Kanal belegt");
+ 
+  old heap size := heap size ;
+  REP
+    execute print ;
+ 
+    IF is error
+      THEN put error;
+           clear error;
+    FI ;
+ 
+    IF heap size > old heap size + 4
+      THEN collect heap garbage ;
+           old heap size := heap size
+    FI
+  PER 
+ 
+ENDPROC printer ;
+
+ 
+PROC execute print :
+
+  enable stop ;
+  forget (file ds) ; file ds := nilspace ;
+  call (father, fetch code, file ds, reply) ;
+  IF reply = ack CAND type (file ds) = file type
+     THEN get file params;
+          print file
+  FI ;
+ 
+. get file params :
+    forget (ds); ds := nilspace;
+    call (father, param fetch code, ds, reply);
+    IF reply <> ack
+       THEN error msg := ds; errorstop (error msg);
+       ELSE msg := ds;
+            file name      := msg. file name;
+            userid         := msg. userid;
+            password       := msg. password;
+            sendername     := msg. sender name;
+            sender station := msg. station;
+    FI;
+ 
+. print file :
+    file := sequential file (input, file ds);
+    print (file,
+           PROC (INT CONST, INT VAR, INT VAR) open,
+           PROC (INT CONST, INT CONST) close,
+           PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);
+ 
+ENDPROC execute print ;
+ 
+ 
+PROC check error (TEXT CONST message) :
+    IF is error
+       THEN clear error;
+            rename myself (message);
+            IF is error THEN clear error; end (myself) FI;
+            pause (18000);
+            end (myself);
+    FI;
+END PROC check error;
+ 
+ENDPACKET multi user printer ;
+
-- 
cgit v1.2.3