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/net/1.8.7/src/net report | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 system/net/1.8.7/src/net report

(limited to 'system/net/1.8.7/src/net report')

diff --git a/system/net/1.8.7/src/net report b/system/net/1.8.7/src/net report
new file mode 100644
index 0000000..ddc19d2
--- /dev/null
+++ b/system/net/1.8.7/src/net report	
@@ -0,0 +1,41 @@
+PACKET net report DEFINES report, abgleich: 
+(* Version   3 (!) *)
+ 
+LET reportcode = 99, abgleichcode = 98; 
+
+PROC abgleich (INT CONST ende, zwischen): 
+  DATASPACE VAR ds := nilspace; 
+  BOUND STRUCT (INT ende, zwischen) VAR x := ds; 
+  x.ende := ende; 
+  x.zwischen := zwischen; 
+  call (father, abgleichcode, ds, rep);
+  INT VAR rep;
+  forget (ds) 
+END PROC abgleich;
+
+PROC report (TEXT CONST x):
+  report(x,"") 
+END PROC report;
+ 
+PROC report (TEXT CONST txt, info): 
+  DATASPACE VAR net report := nilspace;
+  BOUND TEXT VAR rinfo := net report;
+  rinfo := date;
+  rinfo CAT " "+time of day +" "; 
+  rinfo CAT name(myself)+":";
+  rinfo CAT txt;
+  INT VAR i; 
+  FOR i FROM 1 UPTO length (info) REP 
+    INT VAR z :=  code (infoSUBi)  ;
+    IF z < 32 OR z > 126 
+      THEN rinfo CAT "%"+text(z)+" " 
+      ELSE rinfo CAT (infoSUBi)+" "
+    FI
+  PER; 
+  call (father, report code , net report, reply);
+  INT VAR reply;
+  forget (net report);
+END PROC report; 
+ 
+END PACKET net report;
+
-- 
cgit v1.2.3