-- SaffronAddPairsToFieldListImpl.mesa
 -- Copyright Ó 1987 by Xerox Corporation.  All rights reserved.
 -- Generated by hederman.pa at August 17, 1987 6:59:32 pm PDT
 --  using ThreeCasabaFour [1.2] of June 1, 1987 6:00:00 pm PDT

DIRECTORY
	SaffronAG7Def,
	SaffronAG6Def,
	ThreeC4Support,
	SaffronBaseDef,
	SaffronATDef;

SaffronAddPairsToFieldListImpl: CEDAR PROGRAM IMPORTS ThreeC4Support, SaffronBaseDef EXPORTS SaffronAG7Def, SaffronAG6Def= 
BEGIN
OPEN SaffronAG7Def, SaffronAG6Def, ThreeC4Support, SaffronBaseDef, SaffronATDef;
PairListmanyProdAddPairsToFieldList:	PUBLIC PROC[ref: REF ANY, localContext: LocalContextNode, fieldList: FieldListNode, paintRecords: BOOLEAN] RETURNS[temp0: LocalContextNode, temp1: FieldListNode] =
BEGIN
tree:	PairListNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	PairListmanyProdData _ NARROW[tree.data];
BEGIN
localContext1:	LocalContextNode;
fieldList1:	FieldListNode;
[localContext1, fieldList1] _ treeData.PairListhead.procs.AddPairsToFieldList[treeData.PairListhead, localContext, fieldList, paintRecords];
[temp0, temp1] _ treeData.PairListtail.procs.AddPairsToFieldList[treeData.PairListtail, localContext1, fieldList1, paintRecords];
END;
END
END;

PairListoneProdAddPairsToFieldList:	PUBLIC PROC[ref: REF ANY, localContext: LocalContextNode, fieldList: FieldListNode, paintRecords: BOOLEAN] RETURNS[temp0: LocalContextNode, temp1: FieldListNode] =
BEGIN
tree:	PairListNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	PairListoneProdData _ NARROW[tree.data];
[temp0, temp1] _ treeData.PairItem.procs.AddPairsToFieldList[treeData.PairItem, localContext, fieldList, paintRecords];
END
END;

PairItemProdAddPairsToFieldList:	PUBLIC PROC[ref: REF ANY, localContext: LocalContextNode, fieldList: FieldListNode, paintRecords: BOOLEAN] RETURNS[temp0: LocalContextNode, temp1: FieldListNode] =
BEGIN
tree:	PairItemNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	PairItemProdData _ NARROW[tree.data];
BEGIN
localContext1:	LocalContextNode;
tgn:	TypeGraphNodeNode;
accessVal:	AccessValNode;
defaultExp:	DefaultExpNode;
defaultExp _ treeData.Default.procs.GetDefaultExpVal[treeData.Default];
accessVal _ treeData.Access.procs.GetAccessVal[treeData.Access];
[localContext1, tgn] _ treeData.TypeExp.procs.MakeType[treeData.TypeExp, localContext, paintRecords];
temp1 _ treeData.IdentList.procs.AddNamesToFieldList[treeData.IdentList, accessVal, tgn, defaultExp, fieldList];
temp0 _ localContext1;
END;
END
END;

AccessemptyProdGetAccessVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: AccessValNode] =
BEGIN
tree:	AccessNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 _ AccessValConst["empty"];
END
END;

AccesspublicProdGetAccessVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: AccessValNode] =
BEGIN
tree:	AccessNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 _ AccessValConst["public"];
END
END;

AccessprivateProdGetAccessVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: AccessValNode] =
BEGIN
tree:	AccessNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 _ AccessValConst["private"];
END
END;

END..