File: ObjectRef.m3 Last Modified On Fri Jun 24 09:44:26 PDT 1994 By kalsow Modified On Fri May 11 11:49:51 1990 By muller
MODULE; IMPORT M3ID, ObjectType, Tipe, Scope; PROCEDURE ObjectRef Initialize () = VAR s: Scope.T; BEGIN s := Scope.PushNew (FALSE, M3ID.NoID); Scope.PopNew (); T := NIL; (* the value is used by ObjectType.New ! *) T := ObjectType.New (NIL, TRUE, NIL, s, s); Tipe.Define ("ROOT", T, TRUE); END Initialize; BEGIN END ObjectRef.