DIRECTORY RoseTypes; RoseLogging: CEDAR DEFINITIONS = BEGIN OPEN RoseTypes; Row: TYPE = REF RowRep; RowRep: TYPE = RECORD [ to: STREAM, elts: EltList, intro: PROC [row: Row] _ NIL, data: REF ANY _ NIL ]; EltList: TYPE = LIST OF Element; Element: TYPE = RECORD [ n: Node, nFmt: Format, ioFmt: ROPE]; WriteRow: PROC [row: Row]; WriteEverySettle: PROC [row: Row, sim: Simulation]; DontWriteEverySettle: PROC [row: Row, sim: Simulation]; RowFromNames: PROC [to: STREAM, enl: EltNamesList, pathPrefix: LIST OF REF ANY--actually UNION [ROPE, REF TEXT]-- _ NIL, from: Cell _ NIL] RETURNS [row: Row]; EltNamesList: TYPE = LIST OF EltNames; EltNames: TYPE = RECORD [ name: REF ANY, nodeFormat: ROPE _ NIL--means default--, ioFormat: ROPE _ NIL--means IF last THEN "%g\n" ELSE "%g\t"--, from: Cell _ NIL--means start from Cell identified in args from & pathPrefix--]; END. €RoseLogging.Mesa Last Edited by: Spreitzer, October 6, 1984 4:52:05 pm PDT actually UNION [ROPE, REF TEXT, LIST OF REF ANY (actually UNION [ROPE, REF TEXT])] ΚΝ– "cedar" style˜Icode™J™9K˜KšΟk œ ˜K˜KšΠbx œœ œ˜ K˜Kšœœ ˜K˜Kšœœœ˜šœœœ˜Kšœœ˜ Kšœ˜Kšœœœ˜Kšœœœ˜Kšœ˜—K˜Kšœ œœœ ˜ šœ œœ˜K˜K˜ Kšœœ˜ —K˜KšΟnœœ ˜KšŸœœ˜3KšŸœœ˜7K˜šŸ œœœ!œœœΟc#œœœœ ˜žK˜Kšœœœœ ˜&šœ œœ˜šœœœ˜K™R—Kšœ œ œ˜(Kšœ œ )œ˜>Kšœ  >œ˜P—K˜—Kšœ˜—…—jΫ