Add logger to control debug printing from single point

1 files changed, 22 insertions, 0 deletions

diff --git a/module/sh9log.m b/module/sh9log.m
new file mode 100644
index 0000000..4ed5929
--- /dev/null
+++ b/module/sh9log.m
@@ -0,0 +1,22 @@
+Sh9Log: module
+{
+PATH: con "/dis/lib/sh9log.dis";
+DESCR: con "Log functions for sh9";
+
+LOG_DBG, LOG_INF, LOG_WRN, LOG_ERR: con iota;
+
+Logger: adt
+{
+outf: string;
+level: int;
+format: string;
+
+set_level: fn(m: self ref Logger, level: int);
+dbg: fn(m: self ref Logger, s: string): int;
+inf: fn(m: self ref Logger, s: string): int;
+wrn: fn(m: self ref Logger, s: string): int;
+err: fn(m: self ref Logger, s: string): int;
+};
+
+init: fn();
+};