MODULE; IMPORT M3, M3ID, EnumType, Tipe, Scope; PROCEDURE WCharr Initialize () = VAR elts: Scope.T; cs := M3.OuterCheckState; BEGIN elts := Scope.PushNew (FALSE, M3ID.Add ("WIDECHAR")); T := EnumType.New (16_10000, elts); Scope.PopNew (); Scope.TypeCheck (elts, cs); Tipe.Define ("WIDECHAR", T, TRUE); END Initialize; BEGIN END WCharr.