NoopMethods6Impl.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Generated by BJackson.pa at April 28, 1987 0:27:41 am PDT
using ThreeCasabaFour [1.1] of April 14, 1987 6:34:07 pm PDT
DIRECTORY
SaffronAG6Def,
ThreeC4Support,
SaffronATDef;
NoopMethods6Impl: CEDAR PROGRAM IMPORTS ThreeC4Support EXPORTS SaffronAG6Def=
BEGIN
OPEN SaffronAG6Def, ThreeC4Support, SaffronATDef;
TypeExptypeidProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExptypeidProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExpsubrangeProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExpsubrangeProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExpenumProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExpenumProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExprecordProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExprecordProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExppointerProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExppointerProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExpvarProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExpvarProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExprefProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExprefProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExprefanyProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExprefanyProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExprefunspecifiedProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
TypeExplistProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExplistProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExparrayProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExparrayProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExpdescriptorProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExpdescriptorProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExptransferProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExptransferProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExprelativeProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExprelativeProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExpzoneProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExpzoneProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExplongProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExplongProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExpframeProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExpframeProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExppaintedProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExppaintedProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExptypeapplyProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExptypeapplyProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExpunionProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExpunionProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeExpsequenceProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeExpNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeExpsequenceProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeIdidProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeIdNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeIdidProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeIdqualifierProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeIdNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeIdqualifierProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
SubrangenamedProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: SubrangeNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: SubrangenamedProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
SubrangeunnamedProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: SubrangeNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: SubrangeunnamedProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
IntervalccProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: IntervalNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: IntervalccProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
IntervalcoProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: IntervalNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: IntervalcoProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
IntervalocProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: IntervalNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: IntervalocProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
IntervalooProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: IntervalNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: IntervalooProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
BoundsProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: BoundsNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: BoundsProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
BoundProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: BoundNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: BoundProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
MachineDependentyesProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: MachineDependentNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
MachineDependentnoProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: MachineDependentNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
MonitoredyesProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: MonitoredNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
MonitorednoProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: MonitoredNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
ElementListemptyProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: ElementListNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
ElementListmoreProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: ElementListNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: ElementListmoreProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
ElementidProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: ElementNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: ElementidProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
ElementidwithrepProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: ElementNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: ElementidwithrepProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
ElementanonymousrepProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: ElementNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: ElementanonymousrepProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
RecListemptyProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: RecListNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
temp0 ← 0;
END
END;
RecListpairlistProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: RecListNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: RecListpairlistProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
RecListtypelistProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: RecListNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: RecListtypelistProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
PairListoneProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: PairListNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: PairListoneProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
PairListmanyProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: PairListNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: PairListmanyProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
PairItemProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: PairItemNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: PairItemProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeListoneProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeListNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeListoneProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeListmanyProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeListNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeListmanyProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
TypeItemProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] =
BEGIN
tree: TypeItemNode← NARROW[ref];
BEGIN
ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length];
treeData: TypeItemProdData ← NARROW[tree.data];
temp0 ← 0;
END
END;
END..