ExampleBaseDef.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Generated by BJackson.pa at April 22, 1987 2:16:53 am PDT
using ThreeCasabaFour [1.1] of April 14, 1987 6:34:07 pm PDT
DIRECTORY
Rope,
ExampleGenericDef;
ExampleBaseDef: CEDAR DEFINITIONS =
BEGIN
OPEN Rope, ExampleGenericDef;
Op: TYPE = {plus, minus, mult, div};
ValueOf: PROC[numberNode] RETURNS[INT];
EqualOp: PROC[Op, Op] RETURNS[BOOLEAN];
Add: PROC[INT, INT] RETURNS[INT];
Subtract: PROC[INT, INT] RETURNS[INT];
Multipy: PROC[INT, INT] RETURNS[INT];
Divide: PROC[INT, INT] RETURNS[INT];
Signal: PROC RETURNS[INT];
Error: PROC[ROPE] RETURNS[INT];
END..