<> <> <> <<>> DIRECTORY TiogaAccess USING [Reader, Writer], ViewerClasses USING [Viewer]; TiogaAccessViewer: CEDAR DEFINITIONS ~ BEGIN Reader: TYPE ~ TiogaAccess.Reader; Writer: TYPE ~ TiogaAccess.Writer; Viewer: TYPE ~ ViewerClasses.Viewer; FromViewer: PROC [viewer: Viewer] RETURNS [Reader]; <> <> WriteViewer: PROC [writer: Writer, viewer: Viewer]; <> <> <<>> END.