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. β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 eof... Κͺ– "cedar" style˜codešœ™K™;Kšœ$™$K™/K™*—K˜K˜K˜šΟnœ˜ K˜šΟbœ˜KšΠizœ ˜KšŸœΟkœ˜—K˜šžœ˜ KšŸœ'˜