1 2Itslib: module { 3 4 PATH: con "/dis/lib/itslib.dis"; 5 6 init: fn(): ref Tconfig; 7 S_INFO: con 0; 8 S_WARN: con 1; 9 S_ERROR: con 2; 10 S_FATAL: con 3; 11 S_STIME: con 4; 12 S_ETIME: con 5; 13 ENV_VERBOSITY: con "ITS_VERBOSITY"; 14 ENV_MFD: con "ITS_MFD"; 15 16 17 Tconfig: adt { 18 verbosity: int; 19 mfd: ref Sys->FD; 20 report: fn(t: self ref Tconfig, sev: int, verb: int, msg: string); 21 done: fn(t: self ref Tconfig); 22 }; 23 24}; 25