178 lines
3.2 KiB
C
178 lines
3.2 KiB
C
/*
|
|
abCOp.c
|
|
By: Jeremy Rand
|
|
*/
|
|
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "abCError.h"
|
|
#include "abCStack.h"
|
|
|
|
#include "expr/abCExpr.h"
|
|
|
|
#include "ops/abCOp.h"
|
|
|
|
#include "ops/abCOpAdd.h"
|
|
#include "ops/abCOpSubtr.h"
|
|
#include "ops/abCOpMult.h"
|
|
#include "ops/abCOpDiv.h"
|
|
#include "ops/abCOpChs.h"
|
|
#include "ops/abCOpInv.h"
|
|
#include "ops/abCOpSq.h"
|
|
#include "ops/abCOpSqrt.h"
|
|
#include "ops/abCOpPower.h"
|
|
|
|
#include "ops/abCOpDrop.h"
|
|
#include "ops/abCOpSwap.h"
|
|
#include "ops/abCOpClear.h"
|
|
|
|
#include "ops/abCOpPi.h"
|
|
#include "ops/abCOpSin.h"
|
|
#include "ops/abCOpCos.h"
|
|
#include "ops/abCOpTan.h"
|
|
#include "ops/abCOpAsin.h"
|
|
#include "ops/abCOpAcos.h"
|
|
#include "ops/abCOpAtan.h"
|
|
|
|
#include "ops/abCOpLog.h"
|
|
#include "ops/abCOpAlog.h"
|
|
#include "ops/abCOpLn.h"
|
|
#include "ops/abCOpExp.h"
|
|
#include "ops/abCOpSinh.h"
|
|
#include "ops/abCOpCosh.h"
|
|
#include "ops/abCOpTanh.h"
|
|
|
|
#include "ops/abCOpR2B.h"
|
|
#include "ops/abCOpB2R.h"
|
|
|
|
#include "ops/abCOpAnd.h"
|
|
#include "ops/abCOpOr.h"
|
|
#include "ops/abCOpXor.h"
|
|
#include "ops/abCOpNot.h"
|
|
#include "ops/abCOpSl.h"
|
|
#include "ops/abCOpRl.h"
|
|
#include "ops/abCOpSr.h"
|
|
#include "ops/abCOpRr.h"
|
|
#include "ops/abCOpAsr.h"
|
|
|
|
#include "ops/abCOpBin.h"
|
|
#include "ops/abCOpOct.h"
|
|
#include "ops/abCOpDec.h"
|
|
#include "ops/abCOpHex.h"
|
|
#include "ops/abCOpStws.h"
|
|
#include "ops/abCOpRcws.h"
|
|
|
|
|
|
#define AB_CALC_MAX_OPS 128
|
|
|
|
|
|
abCalcOp gOps[AB_CALC_MAX_OPS];
|
|
static int gNumOps = 0;
|
|
|
|
|
|
void abCalcOpInit(void)
|
|
{
|
|
gNumOps = 0;
|
|
memset(gOps, 0, sizeof(gOps));
|
|
|
|
abCalcOpAddInit();
|
|
abCalcOpSubtrInit();
|
|
abCalcOpMultInit();
|
|
abCalcOpDivInit();
|
|
abCalcOpChsInit();
|
|
abCalcOpInvInit();
|
|
abCalcOpSqInit();
|
|
abCalcOpSqrtInit();
|
|
abCalcOpPowerInit();
|
|
|
|
abCalcOpDropInit();
|
|
abCalcOpSwapInit();
|
|
abCalcOpClearInit();
|
|
|
|
abCalcOpPiInit();
|
|
abCalcOpSinInit();
|
|
abCalcOpCosInit();
|
|
abCalcOpTanInit();
|
|
abCalcOpAsinInit();
|
|
abCalcOpAcosInit();
|
|
abCalcOpAtanInit();
|
|
|
|
abCalcOpLogInit();
|
|
abCalcOpAlogInit();
|
|
abCalcOpLnInit();
|
|
abCalcOpExpInit();
|
|
abCalcOpSinhInit();
|
|
abCalcOpCoshInit();
|
|
abCalcOpTanhInit();
|
|
|
|
abCalcOpR2BInit();
|
|
abCalcOpB2RInit();
|
|
|
|
abCalcOpAndInit();
|
|
abCalcOpOrInit();
|
|
abCalcOpXorInit();
|
|
abCalcOpNotInit();
|
|
abCalcOpSlInit();
|
|
abCalcOpRlInit();
|
|
abCalcOpSrInit();
|
|
abCalcOpRrInit();
|
|
abCalcOpAsrInit();
|
|
|
|
abCalcOpBinInit();
|
|
abCalcOpOctInit();
|
|
abCalcOpDecInit();
|
|
abCalcOpHexInit();
|
|
abCalcOpStwsInit();
|
|
abCalcOpRcwsInit();
|
|
}
|
|
|
|
|
|
void abCalcOpRegister(char *name, void (*execute)(void))
|
|
{
|
|
if (gNumOps >= AB_CALC_MAX_OPS) {
|
|
fprintf(stderr, "Operation registration overflow");
|
|
return;
|
|
}
|
|
|
|
gOps[gNumOps].name = name;
|
|
gOps[gNumOps].execute = execute;
|
|
gNumOps++;
|
|
}
|
|
|
|
|
|
abCalcOp *abCalcOpLookup(char *name)
|
|
{
|
|
int i;
|
|
|
|
for (i = 0; i < gNumOps; i++) {
|
|
#ifdef ABCALC_GSOS
|
|
if (stricmp(gOps[i].name, name) == 0) {
|
|
#else
|
|
if (strcasecmp(gOps[i].name, name) == 0) {
|
|
#endif
|
|
return &gOps[i];
|
|
}
|
|
}
|
|
|
|
return NULL;
|
|
}
|
|
|
|
|
|
abCalcOp *abCalcOpNth(int n)
|
|
{
|
|
if ((n < 0) ||
|
|
(n >= gNumOps))
|
|
return NULL;
|
|
|
|
return &gOps[n];
|
|
}
|
|
|
|
|
|
int abCalcOpNumOps(void)
|
|
{
|
|
return gNumOps;
|
|
}
|