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