-- JaMMathDefs.mesa
-- Written by: John Warnock, February 27, 1979
-- Last changed by Doug Wyatt, March 29, 1980 1:36 PM

DIRECTORY
JaMMasterDefs: FROM "JaMMasterDefs" USING [Object];

JaMMathDefs: DEFINITIONS =
BEGIN OPEN JaMMasterDefs;

JaMMath: PROGRAM;

MixedMode: PROCEDURE[ob1,ob2: POINTER TO Object,
PInt: PROCEDURE[i,j: INTEGER, o: POINTER TO Object],
PLongInt:PROCEDURE[i,j: LONG INTEGER, o: POINTER TO Object],
PReal:PROCEDURE[i,j: REAL, o: POINTER TO Object]]
RETURNS[rs: Object];

Add: PROCEDURE;
Sub: PROCEDURE;
Mul: PROCEDURE;
Div: PROCEDURE;
Neg: PROCEDURE;
Sin: PROCEDURE;
Cos: PROCEDURE;
ATan: PROCEDURE;
Exp: PROCEDURE;
Log: PROCEDURE;
Equal: PROCEDURE;
LessThan: PROCEDURE;
GreaterThan: PROCEDURE;
Not: PROCEDURE;
And: PROCEDURE;
Or: PROCEDURE;
Xor: PROCEDURE;
BitNot: PROCEDURE;
BitAnd: PROCEDURE;
BitOr: PROCEDURE;
BitXor: PROCEDURE;
BitShift: PROCEDURE;

END.