/*
**
** EVAL.H Master include file for Eval.
** Contains function definitions and global definitions
** and typecasts
**
** originally written 5/89
**
** Eval is a floating point expression evaluator.
** This is version 1.13
** Copyright (C) 1993 Will Menninger
**
** This program is free software; you can redistribute it and/or modify it
** under the terms of the GNU General Public License as published by the
** Free Software Foundation; either version 2 of the License, or any
** later version.
**
** This program is distributed in the hope that it will be useful, but
** WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
** General Public License for more details.
**
** You should have received a copy of the GNU General Public License along
** with this program; if not, write to the Free Software Foundation, Inc.,
** 675 Mass Ave, Cambridge, MA 02139, USA.
**
** The author until 9/93 can be contacted at:
** e-mail: willus@ilm.pfc.mit.edu
** U.S. mail: Will Menninger, 45 River St., #2, Boston, MA 02108-1124
**
*/
/* Global includes */
#include <stdio.h>
#include <math.h>
#include <string.h>
#include <ctype.h>
#include <stdlib.h>
#include <float.h>
/* For math functions */
#define SGN(x) ((x)<0 ? -1 : ((x)>0 ? 1 : 0))
#define ABS(x) ((x)<0 ? -(x) : (x))
#define SWAP(a,b) {float temp=(a);(a)=(b);(b)=temp;}
/* Global definitions */
#define VERSION "1.13"
#define TRUE 1
#define FALSE 0
#define MAXC 56
#define MAXV 100
#define MAXNAMELEN 16
#define MAXINPUT 160
#define NUMFUNCS 30
#define MAXFLEN 6
#define MAXALEN 3
#define MAXDLEN 80
#define SCRWIDTH 80
#define MAXARGS 10
#define EOS '\0'
#define NLINES 21
#define PROMPT "Ex>"
#define MAXOUTLEN 1100
/* I removed the original definition of MAXOUTLEN because it was
too big on some compilers */
/*
#define MAXOUTLEN (DBL_MAX_EXP+100)
*/
/* types of tokens */
#define BINARY 1
#define UNARY 2
#define FUNCTION 3
#define VARIABLE 4
#define NUMBER 5
#define LEFT_PAREN 6
#define RIGHT_PAREN 7
#define COMMA 8
#define ILLEGAL 9
#define CONSTANT 10
#define VOID 11
#define QUOTE 12
/* binary operators */
#define ADD 1
#define SUBTRACT 2
#define MULTIPLY 3
#define DIVIDE 4
#define POWER 5
#define AND 6
#define OR 7
#define XOR 8
#define MOD 9
#define SHLEFT 10
#define SHRIGHT 11
#define BSTRING "+-*/^&|?%"
/* unary operators */
#define POSITIVE 1
#define NEGATIVE 2
#define NOT 3
#define USTRING "+-~"
/* Global typecasts */
typedef int BOOLEAN;
typedef struct {
char name[MAXNAMELEN+1];
double value;
} VAR, *VARPTR;
typedef struct {
double value;
char type;
int code;
} TOKEN, *TOKENPTR;
typedef struct {
int id;
char name[MAXFLEN+1];
char argspec[MAXALEN+1];
char desc[MAXDLEN+1];
} FUNC, *FUNCPTR;
/* Function definitions */
/* ----- EVAL.C functions ---------------------------------------------- */
BOOLEAN insert_var (VARPTR new,VARPTR vlist);
BOOLEAN search_varlist (VARPTR var,VARPTR vlist,int *n,int max);
void fixup (char *s);
/* ----- FUNCS.C functions --------------------------------------------- */
int func_code (char *);
BOOLEAN func_eval (int,double *,double *);
char *func_name (int);
int func_nargs (int);
int print_funclist (FILE *s,char *input,int d);
extern FUNC flist[];
/* ----- PARSE.C functions -------------------------------------------- */
void evaluate (char *,int,VARPTR,VARPTR);
BOOLEAN eerror (char *message);
void tokcpy (TOKENPTR dest,TOKENPTR source);
/* ----- ESTACK.C functions ------------------------------------------- */
void clear_stack (void);
BOOLEAN pop_token (TOKENPTR);
BOOLEAN push_token (TOKENPTR);
BOOLEAN top_of_stack (TOKENPTR);
/* ----- ETABLE.C functions ------------------------------------------- */
BOOLEAN add_token (TOKENPTR);
void clear_table (void);
BOOLEAN result (int,int,double *,double *);
BOOLEAN table_value (double *);
/* ----- BASE.C functions --------------------------------------------- */
void baseconv (double val,char *buf);
void set_scinote (int val);
void set_sigfig (int val);
void set_dplace (int val);
void set_maxexp (int val);
void set_fix (int val);
void setobase (int base);
void setibase (int base);
int getobase (void);
int getibase (void);
int get_scinote (void);
int get_fix (void);
int precision (int base);
void print_outtype (void);
double asciiconv (int base,char *s);
/* ----- BITWISE.C functions --------------------------------------------- */
double not (double val);
double or (double val1,double val2);
double and (double val1,double val2);
double xor (double val1,double val2);
/* ----- EMATH.C functions ----------------------------------------------- */
double bessi (int,double);
double bessj (int,double);
double bessk (int,double);
double dbessi (int,double);
double dbessj (int,double);
double dbessk (int,double);
double jroot (int,int);
double djroot (int,int);
double factorial (int);
double root (double(*F)(double),double,double,double,int *);
double root2 (double(*F)(int,double),int,double,double,double,
int *);
double atanh (double x);
double asinh (double x);
double acosh (double x);
syntax highlighted by Code2HTML, v. 0.9.1