-- SaffronElementNameImpl.mesa
 -- Copyright Ó 1987 by Xerox Corporation.  All rights reserved.
 -- Generated by Rauen.pa at September 1, 1988 2:49:32 pm PDT
 --  using ThreeCasabaFour [1.2] of June 1, 1987 6:00:00 pm PDT

DIRECTORY
	SaffronAG1aDef,
	SaffronAG1bDef,
	SaffronAG6cDef,
	SaffronGenericDef,
	ThreeC4Support,
	SaffronBaseDef,
	SaffronATDef;

SaffronElementNameImpl: CEDAR PROGRAM IMPORTS ThreeC4Support, SaffronBaseDef, SaffronATDef EXPORTS SaffronAG1aDef, SaffronAG1bDef, SaffronAG6cDef= 
BEGIN
OPEN SaffronAG1aDef, SaffronAG1bDef, SaffronAG6cDef, SaffronGenericDef, ThreeC4Support, SaffronBaseDef, SaffronATDef;
ElementidProdElementInfo:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode, temp1: ValueNode] =
BEGIN
tree:	ElementNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ElementidProdData _ NARROW[tree.data];
temp1 _ MakeUnparsedNullValue[];
temp0 _ treeData.Id;
END
END;

ElementidwithrepProdElementInfo:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode, temp1: ValueNode] =
BEGIN
tree:	ElementNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ElementidwithrepProdData _ NARROW[tree.data];
temp1 _ MakeUnparsedValue[treeData.Exp];
temp0 _ treeData.Id;
END
END;

ElementanonymousrepProdElementInfo:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode, temp1: ValueNode] =
BEGIN
tree:	ElementNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ElementanonymousrepProdData _ NARROW[tree.data];
temp1 _ MakeUnparsedValue[treeData.Exp];
temp0 _ NullId[];
END
END;

ExpidProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpidProdData _ NARROW[tree.data];
temp0 _ treeData.Id;
END
END;

ExpsumProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpsumProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpunarysumProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpunarysumProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpproductProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpproductProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExporProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExporProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpandProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpandProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpnotProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpnotProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExprelationProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExprelationProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpifthenelseProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpifthenelseProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpselectProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpselectProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpassignProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpassignProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpmultiassignProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpmultiassignProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpnumProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpnumProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpstringProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpstringProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpflnumProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpflnumProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpcharProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpcharProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpatomProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpatomProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpnarrowProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpnarrowProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExploopholeProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExploopholeProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpapplyProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpapplyProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpqualifierProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpqualifierProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpexplistProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpexplistProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpprefixopProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpprefixopProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpvalProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpvalProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpallProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpallProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpnewProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpnewProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpconsProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpconsProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExplistconsProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExplistconsProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpnilProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExptypeopProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExptypeopProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpsizeProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpsizeProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

Expsize2ProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	Expsize2ProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpbitsProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpbitsProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

Expbits2ProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	Expbits2ProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpbytesProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpbytesProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

Expbytes2ProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	Expbytes2ProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpunitsProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpunitsProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

Expunits2ProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	Expunits2ProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpwordsProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpwordsProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

Expwords2ProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	Expwords2ProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpistypeProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpistypeProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpaddressProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpaddressProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExpdescriptorProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExpdescriptorProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExperrorProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

ExptransferProdIdVal:	PUBLIC PROC[ref: REF ANY] RETURNS[temp0: IdNode] =
BEGIN
tree:	ExpNode_ NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData:	ExptransferProdData _ NARROW[tree.data];
BEGIN
x:	BOOLEAN;
x _ Error["Expected an Id"];
temp0 _ NullId[];
END;
END
END;

END..