SaffronContext.Mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Sturgis, July 15, 1987 12:56:40 pm PDT
Bill Jackson (bj) August 11, 1987 4:54:35 pm PDT
DIRECTORY
IO USING [ STREAM ],
SaffronBaseDef USING [ ContextTreeNode, EnvironmentNode, FieldListNode, FieldNode, FrozenFieldListNode, LocalContextNode ];
SaffronContext: CEDAR DEFINITIONS ~ {
OPEN SaffronBaseDef;
Various base functions
not in SaffronBaseDecls because unused by Saffron generated code.
PrependFieldToFieldList: PROC [ f: FieldNode, fl: FieldListNode ]
RETURNS [ flp: FieldListNode ];
PrependFFLToFieldList: PROC [ ffl: FrozenFieldListNode, fl: FieldListNode ]
RETURNS [ flp: FieldListNode ];
AppendFFLToFieldList: PROC [ fl: FieldListNode, ffl: FrozenFieldListNode ]
RETURNS [ flp: FieldListNode ];
(all damage fl, produces no Sharing)
ConcatFieldLists: PROC [ fl1, fl2: FieldListNode ] RETURNS [ fl: FieldListNode ];
(damages fl1, shares <fl2, fl> )
misc stuff
ErrorSignal: ERROR;
ShowLocalContext: PROC [ on: IO.STREAM, nest: INT, lc: LocalContextNode ];
ShowContextTree: PROC [ on: IO.STREAM, nest: INT, ct: ContextTreeNode ];
ShowEnvironment: PROC[on: IO.STREAM, nest: INT, env: EnvironmentNode];
}.