Copyright (C) 1994, Digital Equipment Corp.File: Addr.m3 Last Modified On Fri Jun 24 09:42:33 PDT 1994 By kalsow Modified On Fri Feb 9 06:19:03 1990 By muller
MODULE; IMPORT M3String, RefType, Tipe, TextExpr; PROCEDURE Addr Initialize () = BEGIN T := RefType.New (NIL, FALSE, TextExpr.New (M3String.Add ("$address$"))); Tipe.Define ("ADDRESS", T, TRUE); END Initialize; BEGIN END Addr.