From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 system/std.zusatz/1.8.7/src/std analysator | 68 ++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100644 system/std.zusatz/1.8.7/src/std analysator

(limited to 'system/std.zusatz/1.8.7/src/std analysator')

diff --git a/system/std.zusatz/1.8.7/src/std analysator b/system/std.zusatz/1.8.7/src/std analysator
new file mode 100644
index 0000000..7e14722
--- /dev/null
+++ b/system/std.zusatz/1.8.7/src/std analysator	
@@ -0,0 +1,68 @@
+PACKET std analysator                             (* Autor : Rudolf Ruland *)
+                                                  (* Stand : 06.11.86      *)
+       DEFINES std analysator :
+ 
+ 
+LET text code                      =  1, 
+    error code                     =  2, 
+    token code                     =  3; 
+ 
+INT VAR instruction begin;
+TEXT VAR unknown instruction := "";
+     
+PROC std analysator (INT CONST op code, TEXT VAR string,
+                     INT VAR par1, par2, par3, par4, par5, par6, par7) :
+ 
+  SELECT op code OF 
+   
+    CASE text code   :  analyse text 
+    CASE error code  :  report errors 
+    CASE token code  :  report tokens 
+ 
+  END SELECT ;
+ 
+  . record     :  string
+  . record pos :  par1
+  . width      :  par4
+  . height     :  par5
+  . depth      :  par6
+ 
+  . analyse text : 
+      instruction begin := record pos + 1;
+      record pos := pos (record, "#", instruction begin) + 1;
+      width      := 0;
+      height     := 0;
+      depth      := 0;
+      unknown instruction := subtext (record, instruction begin, instruction end);
+ 
+      . instruction end : record pos - 2
+ 
+ 
+. error msg  :  string 
+. error nr   :  par1
+.
+  report errors :
+    IF error nr = 0
+       THEN error msg := "unbekannte Anweisung (ignoriert): ";
+            error msg CAT unknown instruction;
+            error nr  := 1;
+       ELSE error msg := "";
+            error nr  := 0;
+    FI;
+ 
+ 
+. token text           :  string
+. token nr             :  par1
+. token font nr        :  par2
+. token modifications  :  par3
+. token width          :  par4
+. token x pos          :  par5
+. token y pos          :  par6
+. token type           :  par7
+. 
+  report tokens :
+ 
+END PROC std analysator;
+ 
+END PACKET std analysator;
+
-- 
cgit v1.2.3