ui/src/winvbt/TrestleOS.m3


Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
                                                                           
       Created on Mon Jan 16 09:30:58 PST 1995 by najork                   

MODULE TrestleOS;

IMPORT WinTrestle;

VAR mu := NEW(MUTEX);
    inited := FALSE;

PROCEDURE Init () =
  BEGIN
    LOCK mu DO
      IF NOT inited THEN
        WinTrestle.Init();
        inited := TRUE
      END
    END
  END Init;

PROCEDURE UserName (): TEXT =
  BEGIN
    RETURN "Unknown user"
  END UserName;

BEGIN
END TrestleOS.