DIRECTORY SaffronBaseDef USING [MakeTrash], SaffronContextPrivateTypes, SaffronErrorHandling USING [Warning]; SaffronInitialValueImpl: CEDAR PROGRAM IMPORTS SaffronBaseDef, SaffronErrorHandling EXPORTS SaffronBaseDef = BEGIN OPEN BD: SaffronBaseDef, EH: SaffronErrorHandling, PT: SaffronContextPrivateTypes; TypeGraphNodeNode: TYPE = REF TypeGraphNodeNodeBody; TypeGraphNodeNodeBody: PUBLIC TYPE = PT.TypeGraphNodeNodeBody; ValueNode: TYPE = REF ValueNodeBody; ValueNodeBody: PUBLIC TYPE = PT.ValueNodeBody; CompileDefaultInitialization: PUBLIC PROC [tgn: TypeGraphNodeNode] RETURNS [ValueNode] = BEGIN WITH tgn.body SELECT FROM u: PT.RealTGN => RETURN [BD.MakeTrash[tgn]]; ENDCASE => { SIGNAL EH.Warning[0, "Default initialization not yet implemented!!!"]; RETURN [BD.MakeTrash[tgn]]; }; END; END. PSaffronInitialValueImpl.Mesa James Rauen, August 24, 1988 5:09:34 pm PDT Êj˜™Jšœ(Ïk™+J™—š ˜ Jšœœ ˜!Jšœ˜Jšœœ ˜%J˜—šÏnœœ˜&Jšœ%˜,Jšœ˜Jšœ˜J˜šœ˜Jšœ˜Jšœ˜Jšœ˜—J˜Jšœœœ˜4Jšœœœœ˜>J˜Jšœ œœ˜$Jšœœœœ˜.J˜š žœœœœ˜^šœ œ˜Jšœœ œœ˜,šœ˜Jšœœ=˜FJšœœ˜J˜——Jšœ˜J˜—Jšœ˜——…—*ä