ScaldIO.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Barth, June 17, 1986 5:56:31 pm PDT
DIRECTORY
Core;
ScaldIO: CEDAR DEFINITIONS = BEGIN
ROPE: TYPE = Core.ROPE;
SaveCellType: PROC [cellType: Core.CellType, fileName: ROPE ← NIL];
fileName=NIL => fileName ← Rope.Cat[CoreOps.GetCellTypeName[cellType], ".scald"]
RestoreCellType: PROC [cellName: ROPE ← NIL, fileName: ROPE ← NIL] RETURNS [cellType: Core.CellType];
fileName=NIL AND cellName=NIL => ERROR
fileName=NIL => fileName ← Rope.Cat[cellName, ".scald"]
END.