-- SaffronAddToFieldListImpl.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
	SaffronAG6Def,
	ThreeC4Support,
	SaffronBaseDef,
	SaffronATDef;

SaffronAddToFieldListImpl: CEDAR PROGRAM IMPORTS ThreeC4Support, SaffronBaseDef EXPORTS SaffronAG6Def= 
BEGIN
OPEN SaffronAG6Def, ThreeC4Support, SaffronBaseDef, SaffronATDef;
TypeListmanyProdAddToFieldList:	PUBLIC PROC[ref: REF ANY, localContext: LocalContextNode, fieldList: FieldListNode, paintRecords: BOOLEAN] RETURNS[temp0: LocalContextNode, temp1: FieldListNode] =
BEGIN
tree:	TypeListNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	TypeListmanyProdData _ NARROW[tree.data];
BEGIN
localContext1:	LocalContextNode;
fieldList1:	FieldListNode;
[localContext1, fieldList1] _ treeData.TypeListhead.procs.AddToFieldList[treeData.TypeListhead, localContext, fieldList, paintRecords];
[temp0, temp1] _ treeData.TypeListtail.procs.AddToFieldList[treeData.TypeListtail, localContext1, fieldList1, paintRecords];
END;
END
END;

TypeListoneProdAddToFieldList:	PUBLIC PROC[ref: REF ANY, localContext: LocalContextNode, fieldList: FieldListNode, paintRecords: BOOLEAN] RETURNS[temp0: LocalContextNode, temp1: FieldListNode] =
BEGIN
tree:	TypeListNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	TypeListoneProdData _ NARROW[tree.data];
[temp0, temp1] _ treeData.TypeItem.procs.AddToFieldList[treeData.TypeItem, localContext, fieldList, paintRecords];
END
END;

TypeItemProdAddToFieldList:	PUBLIC PROC[ref: REF ANY, localContext: LocalContextNode, fieldList: FieldListNode, paintRecords: BOOLEAN] RETURNS[temp0: LocalContextNode, temp1: FieldListNode] =
BEGIN
tree:	TypeItemNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	TypeItemProdData _ NARROW[tree.data];
BEGIN
fieldList1:	FieldListNode;
field:	FieldNode;
localContext1:	LocalContextNode;
tgn:	TypeGraphNodeNode;
defaultExp:	DefaultExpNode;
defaultExp _ treeData.Default.procs.GetDefaultExpVal[treeData.Default];
[localContext1, tgn] _ treeData.TypeExp.procs.MakeType[treeData.TypeExp, localContext, paintRecords];
field _ CreateUnnamedField[tgn, defaultExp];
fieldList1 _ AppendFieldToFieldList[fieldList, field];
temp1 _ fieldList1;
temp0 _ localContext1;
END;
END
END;

END..