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.7.5/src/net report-M | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 system/net/1.7.5/src/net report-M

(limited to 'system/net/1.7.5/src/net report-M')

diff --git a/system/net/1.7.5/src/net report-M b/system/net/1.7.5/src/net report-M
new file mode 100644
index 0000000..3ce67ff
--- /dev/null
+++ b/system/net/1.7.5/src/net report-M	
@@ -0,0 +1,29 @@
+PACKET net report DEFINES report: 
+
+LET reportcode = 99;
+
+PROC report (TEXT CONST x):
+  report(x,"") 
+END PROC report;
+
+PROC report (TEXT CONST txt, info): 
+  IF storage (old("report")) > 20 THEN forget ("report",quiet) FI;
+  reportfile := sequential file (output, "report");
+  put (reportfile, date);
+  put (reportfile, time of day);
+  put (reportfile, txt); 
+  INT VAR i; 
+  FOR i FROM 1 UPTO length (info) REP 
+    INT VAR z :=  code (infoSUBi)  ;
+    IF z < 32 OR z > 126 
+      THEN put (reportfile,"%"+text(z)) 
+      ELSE put (reportfile,infoSUBi)
+    FI
+  PER; 
+  line (reportfile); 
+  DATASPACE VAR net report := old ("report"); 
+  send (father, report code , net report)
+END PROC report; 
+FILE VAR reportfile; 
+ 
+END PACKET net report;
-- 
cgit v1.2.3