-- NoopMethods2Impl.mesa -- Copyright Ó 1987 by Xerox Corporation. All rights reserved. -- Generated by Rauen.pa at September 1, 1988 6:28:02 pm PDT -- using ThreeCasabaFour [1.2] of June 1, 1987 6:00:00 pm PDT DIRECTORY SaffronAG3Def, SaffronAG2Def, ThreeC4Support, SaffronATDef; NoopMethods2Impl: CEDAR PROGRAM IMPORTS ThreeC4Support EXPORTS SaffronAG3Def, SaffronAG2Def= BEGIN OPEN SaffronAG3Def, SaffronAG2Def, ThreeC4Support, SaffronATDef; RelationnegativeProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: RelationNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: RelationnegativeProdData _ NARROW[tree.data]; temp0 _ 0; END END; RelationpositiveProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: RelationNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: RelationpositiveProdData _ NARROW[tree.data]; temp0 _ 0; END END; RelationTailrangeProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: RelationTailNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: RelationTailrangeProdData _ NARROW[tree.data]; temp0 _ 0; END END; RelationTailrelopProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: RelationTailNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: RelationTailrelopProdData _ NARROW[tree.data]; temp0 _ 0; END END; RelopeqProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: RelopNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; RelopneProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: RelopNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; RelopltProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: RelopNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; RelopleProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: RelopNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; RelopgtProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: RelopNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; RelopgeProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: RelopNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; RangetypeidProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: RangeNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: RangetypeidProdData _ NARROW[tree.data]; temp0 _ 0; END END; RangesubrangeProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: RangeNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: RangesubrangeProdData _ NARROW[tree.data]; temp0 _ 0; END END; CatchProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: CatchNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: CatchProdData _ NARROW[tree.data]; temp0 _ 0; END END; CatchAnyabsentProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: CatchAnyNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; CatchAnypresentProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: CatchAnyNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: CatchAnypresentProdData _ NARROW[tree.data]; temp0 _ 0; END END; CatchCaseListemptyProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: CatchCaseListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; CatchCaseListmoreProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: CatchCaseListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: CatchCaseListmoreProdData _ NARROW[tree.data]; temp0 _ 0; END END; CatchCaseProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: CatchCaseNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: CatchCaseProdData _ NARROW[tree.data]; temp0 _ 0; END END; SignalListoneProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: SignalListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: SignalListoneProdData _ NARROW[tree.data]; temp0 _ 0; END END; SignalListmoreProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: SignalListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: SignalListmoreProdData _ NARROW[tree.data]; temp0 _ 0; END END; ExpListkeylistProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: ExpListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: ExpListkeylistProdData _ NARROW[tree.data]; temp0 _ 0; END END; ExpListorderlistProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: ExpListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: ExpListorderlistProdData _ NARROW[tree.data]; temp0 _ 0; END END; KeyListoneProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: KeyListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: KeyListoneProdData _ NARROW[tree.data]; temp0 _ 0; END END; KeyListmoreProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: KeyListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: KeyListmoreProdData _ NARROW[tree.data]; temp0 _ 0; END END; KeyItemProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: KeyItemNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: KeyItemProdData _ NARROW[tree.data]; temp0 _ 0; END END; OrderListoneProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: OrderListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: OrderListoneProdData _ NARROW[tree.data]; temp0 _ 0; END END; OrderListmoreProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: OrderListNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: OrderListmoreProdData _ NARROW[tree.data]; temp0 _ 0; END END; OptExpemptyProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: OptExpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; OptExptrashProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: OptExpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; OptExpexpProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: OptExpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: OptExpexpProdData _ NARROW[tree.data]; temp0 _ 0; END END; QualifierprefixopProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: QualifierNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: QualifierprefixopProdData _ NARROW[tree.data]; temp0 _ 0; END END; QualifiertypeopProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: QualifierNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: QualifiertypeopProdData _ NARROW[tree.data]; temp0 _ 0; END END; QualifiersizeProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: QualifierNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; QualifierbitsProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: QualifierNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; QualifierbytesProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: QualifierNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; QualifierunitsProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: QualifierNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; QualifierwordsProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: QualifierNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; QualifierapplyProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: QualifierNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: QualifierapplyProdData _ NARROW[tree.data]; temp0 _ 0; END END; QualifierselectProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: QualifierNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; treeData: QualifierselectProdData _ NARROW[tree.data]; temp0 _ 0; END END; QualifierindirectProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: QualifierNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; PrefixOplongProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: PrefixOpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; PrefixOpabsProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: PrefixOpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; PrefixOppredProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: PrefixOpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; PrefixOpsuccProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: PrefixOpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; PrefixOpordProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: PrefixOpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; PrefixOpminProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: PrefixOpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; PrefixOpmaxProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: PrefixOpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; PrefixOpbaseProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: PrefixOpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; PrefixOplengthProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: PrefixOpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; TypeOpcodeProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: TypeOpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; TypeOpfirstProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: TypeOpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; TypeOplastProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: TypeOpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; TypeOpnilProdfoo: PUBLIC PROC[ref: REF ANY] RETURNS[temp0: INT] = BEGIN tree: TypeOpNode_ NARROW[ref]; BEGIN ENABLE ThreeC4Support.GetSourceInfo => RESUME[tree.position, tree.length]; temp0 _ 0; END END; END..