<> <> <> <<>> DIRECTORY IO, RedBlackTree, Rope, VM; SunADotOut: CEDAR DEFINITIONS ~ { Error: ERROR [ msg: Rope.ROPE ]; -- generic catch all for catastropies Module: TYPE ~ REF ModuleObject; ModuleObject: TYPE; ModuleFromFile: PROC [ filename: Rope.ROPE ] RETURNS [ m: Module ]; ModuleFromStream: PROC [ s: IO.STREAM ] RETURNS [ m: Module ]; WriteModule: PROC [ s: IO.STREAM, m: Module ]; ItemProc: TYPE ~ PROC [ text: Rope.ROPE, data: REF ]; UndefinedNames: PROC [ m: Module, itemProc: ItemProc ]; }.