DIRECTORY CedarBaseContext, SaffronAG6Def, ThreeC4Support, SaffronATDef, CedarBaseType; SaffronMakeFieldListImpl: CEDAR PROGRAM IMPORTS CedarBaseContext, ThreeC4Support, CedarBaseType EXPORTS SaffronAG6Def= BEGIN OPEN CedarBaseContext, SaffronAG6Def, ThreeC4Support, SaffronATDef, CedarBaseType; RecListemptyProdMakeFieldList: PUBLIC PROC[ref: REF ANY, localContext: LocalContext, ribContext: RibContext, typeGraph: TypeGraph] RETURNS[temp0: FieldList, temp1: LocalContext, temp2: TypeGraph] = BEGIN tree: RecListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp2 _ XTypeGraph[typeGraph]; temp1 _ XLocalContext[localContext]; temp0 _ BuildNullFieldList[]; END END; RecListpairlistProdMakeFieldList: PUBLIC PROC[ref: REF ANY, localContext: LocalContext, ribContext: RibContext, typeGraph: TypeGraph] RETURNS[temp0: FieldList, temp1: LocalContext, temp2: TypeGraph] = BEGIN tree: RecListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: RecListpairlistProdData _ NARROW[tree.data]; BEGIN namedFieldList: NamedFieldList; localContext1: LocalContext; typeGraph1: TypeGraph; [namedFieldList, localContext1, typeGraph1] _ treeData.PairList.procs.MakeNamedFieldList[treeData.PairList, CreateNamedFieldList[], localContext, ribContext, typeGraph]; temp2 _ typeGraph1; temp1 _ localContext1; temp0 _ BuildNamedFieldList[namedFieldList]; END; END END; RecListtypelistProdMakeFieldList: PUBLIC PROC[ref: REF ANY, localContext: LocalContext, ribContext: RibContext, typeGraph: TypeGraph] RETURNS[temp0: FieldList, temp1: LocalContext, temp2: TypeGraph] = BEGIN tree: RecListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: RecListtypelistProdData _ NARROW[tree.data]; BEGIN unnamedFieldList: UnnamedFieldList; localContext1: LocalContext; typeGraph1: TypeGraph; [unnamedFieldList, localContext1, typeGraph1] _ treeData.TypeList.procs.MakeUnnamedFieldList[treeData.TypeList, CreateUnnamedFieldList[], localContext, ribContext, typeGraph]; temp2 _ typeGraph1; temp1 _ localContext1; temp0 _ BuildUnnamedFieldList[unnamedFieldList]; END; END END; END.. ÚSaffronMakeFieldListImpl.mesa Copyright Ó 1987 by Xerox Corporation. All rights reserved. Generated by BJackson.pa at April 27, 1987 11:24:12 pm PDT using ThreeCasabaFour [1.1] of April 14, 1987 6:34:07 pm PDT Ęú˜šœ™Jšœ<™