GriffinToInterpress.mesa
Copyright (C) 1984, Xerox Corporation. All rights reserved.
Michael Plass, August 23, 1984 11:55:30 am PDT
DIRECTORY
ReadGriffin USING [ConvertFile],
Rope USING [ROPE],
IPOutput USING [Master];
GriffinToInterpress:
CEDAR
DEFINITIONS
IMPORTS ReadGriffin = {
GetClusters:
PROCEDURE [inputFileName: Rope.
ROPE]
~ INLINE {ReadGriffin.ConvertFile[inputFileName]};
The clusters are kept in global state (yuk).
PutClustersToFile:
PROCEDURE [fileName: Rope.
ROPE];
PutClusters:
PROCEDURE [master: IPOutput.Master];
Unimplemented:
SIGNAL [rope: Rope.
ROPE];
}.