From 46439007cf417cbd9ac8049bb4122c890097a0fa Mon Sep 17 00:00:00 2001 From: "Charles.Forsyth" Date: Fri, 22 Dec 2006 20:52:35 +0000 Subject: 20060303-partial --- module/itslib.m | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 module/itslib.m (limited to 'module/itslib.m') diff --git a/module/itslib.m b/module/itslib.m new file mode 100644 index 00000000..c1046114 --- /dev/null +++ b/module/itslib.m @@ -0,0 +1,24 @@ + +Itslib: module { + + PATH: con "/dis/lib/itslib.dis"; + + init: fn(): ref Tconfig; + S_INFO: con 0; + S_WARN: con 1; + S_ERROR: con 2; + S_FATAL: con 3; + S_STIME: con 4; + S_ETIME: con 5; + ENV_VERBOSITY: con "ITS_VERBOSITY"; + ENV_MFD: con "ITS_MFD"; + + + Tconfig: adt { + verbosity: int; + mfd: ref Sys->FD; + report: fn(t: self ref Tconfig, sev: int, verb: int, msg: string); + done: fn(t: self ref Tconfig); + }; + +}; -- cgit v1.2.3