Created by Susan Owicki Last modified on Mon Feb 28 16:48:21 PST 1994 by wobber modified on Mon May 17 13:37:22 PDT 1993 by mjordan modified on Wed Feb 10 09:51:33 PST 1993 by owicki
MODULE; IMPORT Atom, Fmt, Thread, Stdio, Protocol, Process, Wr; <* FATAL Thread.Alerted, Wr.Failure *> PROCEDURE StubUtils Message (text: TEXT) = BEGIN Wr.PutText(stubchatter, "stubgen: " & text & Wr.EOL) END Message; PROCEDUREDie (text: TEXT) = BEGIN Message ("INTERNAL ERROR: " & text); Process.Exit (1); END Die; PROCEDURESetPerfMon (flag: BOOLEAN) = BEGIN perfMon := flag; END SetPerfMon; PROCEDUREFileName (typeName: Atom.T): TEXT = BEGIN RETURN Atom.ToText(typeName) & "_v" & Fmt.Int(Protocol.version); END FileName; BEGIN stubchatter := Stdio.stderr; END StubUtils.