NoopMethods3Impl.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Generated by BJackson.pa at April 28, 1987 0:27:39 am PDT
using ThreeCasabaFour [1.1] of April 14, 1987 6:34:07 pm PDT
DIRECTORY
SaffronAG3Def,
ThreeC4Support,
SaffronATDef;
NoopMethods3Impl: CEDAR PROGRAM IMPORTS ThreeC4Support EXPORTS SaffronAG3Def=
BEGIN
OPEN SaffronAG3Def, ThreeC4Support, SaffronATDef;
NewplainProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: NewNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
NewzonedProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: NewNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: NewzonedProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
ConsplainProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: ConsNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
ConszonedProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: ConsNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: ConszonedProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
ListConsplainProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: ListConsNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
ListConszonedProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: ListConsNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: ListConszonedProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
DescListexplicitlengthProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: DescListNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: DescListexplicitlengthProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
DescListdefaultlengthProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: DescListNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: DescListdefaultlengthProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
InitializationemptyProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: InitializationNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
InitializationbindingProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: InitializationNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: InitializationbindingProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
InitializationassignmentProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: InitializationNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: InitializationassignmentProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
InitialValuetrashProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: InitialValueNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
InitialValuecodeProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: InitialValueNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
InitialValueexpProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: InitialValueNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: InitialValueexpProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
InitialValueblockProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: InitialValueNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: InitialValueblockProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
InitialValuemachinecodeProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: InitialValueNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: InitialValuemachinecodeProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
CheckedemptyProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: CheckedNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
CheckedcheckedProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: CheckedNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
CheckedtrustedProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: CheckedNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
CheckeduncheckedProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: CheckedNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
InlineyesProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: InlineNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
InlinenoProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: InlineNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
CodeListoneProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: CodeListNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: CodeListoneProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
CodeListmoreProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: CodeListNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: CodeListmoreProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TransferOpsignalProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TransferOpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
TransferOperrorProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TransferOpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
TransferOpstartProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TransferOpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
TransferOpjoinProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TransferOpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
TransferOpnewProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TransferOpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
TransferOpforkProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TransferOpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
END..