ref: df03eca7e7cbfadf1cf8c8c5a94390eaa5013a8b
dir: /appl/lib/itslib.b/
implement Itslib; include "sys.m"; sys: Sys; include "itslib.m"; include "env.m"; env: Env; init(): ref Tconfig { sys = load Sys Sys->PATH; tc := ref Tconfig(-1, sys->fildes(2)); env = load Env Env->PATH; if (env == nil) sys->fprint(sys->fildes(2), "Failed to load %s\n", Env->PATH); else { vstr := env->getenv(ENV_VERBOSITY); mstr := env->getenv(ENV_MFD); if (vstr != nil && mstr != nil) { tc.verbosity = int vstr; tc.mfd = sys->fildes(int mstr); } } if (tc.verbosity >= 0) tc.report(S_STIME, 0, sys->sprint("%d", sys->millisec())); else sys->fprint(sys->fildes(2), "Test is running standalone\n"); return tc; } Tconfig.report(tc: self ref Tconfig, sev: int, verb: int, msg: string) { if (sev < 0 || sev > S_ETIME) { sys->fprint(sys->fildes(2), "Tconfig.report: Bad severity code: %d\n", sev); sev = 0; } if (tc.mfd != nil && sys->fprint(tc.mfd, "%d%d%s\n", sev, verb, msg) <=0) tc.mfd = nil; # Master test process was probably killed } Tconfig.done(tc: self ref Tconfig) { tc.report(S_ETIME, 0, sys->sprint("%d", sys->millisec())); }