SMBcd.mesa
Copyright
© 1985 by Xerox Corporation. All rights reserved.
last edit by Satterthwaite, May 12, 1986 11:57:31 am PDT
DIRECTORY
IO:
TYPE
USING [
STREAM],
Rope:
TYPE
USING [
ROPE],
SMOps:
TYPE
USING [
MS],
SMTree:
TYPE Tree
USING [Link];
SMBcd:
CEDAR
DEFINITIONS~{
OPEN Tree~~SMTree;
ReadModelBcdPrefix:
PROC[ms: SMOps.
MS, input:
IO.
STREAM];
leaves input stream positioned to be read as a model
WriteModelBcd:
PROC[ms: SMOps.
MS, t: Tree.Link, bcdFileName: Rope.
ROPE];
}.