Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
Created on Mon Jan 16 09:30:58 PST 1995 by najork
MODULE; IMPORT WinTrestle; VAR mu := NEW(MUTEX); inited := FALSE; PROCEDURE TrestleOS Init () = BEGIN LOCK mu DO IF NOT inited THEN WinTrestle.Init(); inited := TRUE END END END Init; PROCEDUREUserName (): TEXT = BEGIN RETURN "Unknown user" END UserName; BEGIN END TrestleOS.