DIRECTORY ExampleBaseDef, ExampleATDef, ExampleAGDef, ExampleGenericDef; ExampleAGImpl: CEDAR PROGRAM IMPORTS ExampleAGDef EXPORTS ExampleAGDef= BEGIN OPEN ExampleBaseDef, ExampleATDef, ExampleAGDef, ExampleGenericDef; ExpressionbinProdProcs: PUBLIC ExpressionNodeProcs _ NEW[ExpressionNodeProcsBody _ [ExpressionbinProdEvaluate]]; BuildExpressionbinProdNode: PUBLIC PROC[position: INT, length: INT, Expressionleft: ExpressionNode, Opop: Op, Expressionright: ExpressionNode] RETURNS[ExpressionNode] = BEGIN data: ExpressionbinProdData _ NEW[ExpressionbinProdDataBody_[ Expressionleft, Opop, Expressionright]]; RETURN[NEW[ExpressionNodeBody_[position, length, ExpressionbinProdProcs, data]]]; END; ExpressionnumberProdProcs: PUBLIC ExpressionNodeProcs _ NEW[ExpressionNodeProcsBody _ [ExpressionnumberProdEvaluate]]; BuildExpressionnumberProdNode: PUBLIC PROC[position: INT, length: INT, number: numberNode] RETURNS[ExpressionNode] = BEGIN data: ExpressionnumberProdData _ NEW[ExpressionnumberProdDataBody_[ number]]; RETURN[NEW[ExpressionNodeBody_[position, length, ExpressionnumberProdProcs, data]]]; END; ExpressionlocProdProcs: PUBLIC ExpressionNodeProcs _ NEW[ExpressionNodeProcsBody _ [ExpressionlocProdEvaluate]]; BuildExpressionlocProdNode: PUBLIC PROC[position: INT, length: INT] RETURNS[ExpressionNode] = BEGIN RETURN[NEW[ExpressionNodeBody_[position, length, ExpressionlocProdProcs, NIL]]]; END; ExpressionsignalProdProcs: PUBLIC ExpressionNodeProcs _ NEW[ExpressionNodeProcsBody _ [ExpressionsignalProdEvaluate]]; BuildExpressionsignalProdNode: PUBLIC PROC[position: INT, length: INT] RETURNS[ExpressionNode] = BEGIN RETURN[NEW[ExpressionNodeBody_[position, length, ExpressionsignalProdProcs, NIL]]]; END; END.. ExampleAGImpl.mesa Copyright Ó 1987 by Xerox Corporation. All rights reserved. Generated by BJackson.pa at April 22, 1987 2:16:56 am PDT using ThreeCasabaFour [1.1] of April 14, 1987 6:34:07 pm PDT ExpressionbinProd ExpressionnumberProd ExpressionlocProd ExpressionsignalProd Ęh˜šœ™Jšœ<™—J˜š žœœœ œ œ˜Zšœ˜Jš˜˜ Jšœ˜"J˜ —JšœœJ˜TJšœ˜——J˜J˜Jšœ™J˜šžœœ˜4Jšœ8˜;—J˜š žœœœ œ œ˜Cšœ˜Jš˜Jšœœ?œ˜PJšœ˜——J˜J˜Jšœ™J˜šžœœ˜7Jšœ;˜>—J˜š žœœœ œ œ˜Fšœ˜Jš˜JšœœBœ˜SJšœ˜——J˜Jšœ˜J˜—…—Đ T