SaffronTreeDecls.ThreeC4
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Shoup, August 8, 1986 5:34:38 pm PDT
Bill Jackson (bj) April 27, 1987 3:51:50 pm PDT
Lucy Hederman July 17, 1987 5:12:07 pm PDT
Include [ MyBaseDecls ];
SaffronTreeDecls: Module = Begin
DoTop:
TreeRecursiveFunction [ Tree ]
Returns [ BOOLEAN ];
MakeType:
TreeRecursiveFunction [ Tree, PaintRecords, LocalContext.a ]
Returns [ LocalContext.b, TypeGraphNode ]
DamagedReps [ LocalContext.a ];
MakeFieldList:
TreeRecursiveFunction [ Tree, PaintRecords, LocalContext.a ]
Returns [ LocalContext.b, FieldList ]
DamagedReps [ LocalContext.a ];
AddToFieldList:
TreeRecursiveFunction [ Tree, FieldList.a, PaintRecords, LocalContext.a ]
Returns [ LocalContext.b, FieldList.b ]
DamagedReps [ LocalContext.a, FieldList.a ];
AddPairsToFieldList:
TreeRecursiveFunction [ Tree, FieldList.a, PaintRecords, LocalContext.a ]
Returns [ LocalContext.b, FieldList.b ]
DamagedReps [ LocalContext.a, FieldList.a ];
AddNamesToFieldList:
TreeRecursiveFunction [ Tree, TypeGraphNode, FieldList.a ]
Returns [ FieldList.b ]
DamagedReps [ FieldList.a ];
MakeElementList:
TreeRecursiveFunction [ Tree, LocalContext.a ]
Returns [ LocalContext.b, TypeGraphNode ]
DamagedReps [ LocalContext.a ];
ElementName:
TreeRecursiveFunction [ Tree ]
Returns [ Id ]
DamagedReps [ ];
End.
eof...