fish/eval/eval.h

   1 /*
   2 **
   3 ** EVAL.H  Master include file for Eval.
   4 **         Contains function definitions and global definitions
   5 **         and typecasts
   6 **
   7 ** originally written 5/89
   8 **
   9 ** Eval is a floating point expression evaluator.
  10 ** This is version 1.12
  11 ** Copyright (C) 1993  Will Menninger
  12 **
  13 ** This program is free software; you can redistribute it and/or modify it
  14 ** under the terms of the GNU General Public License as published by the
  15 ** Free Software Foundation; either version 2 of the License, or any
  16 ** later version.
  17 **
  18 ** This program is distributed in the hope that it will be useful, but
  19 ** WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 ** General Public License for more details.
  22 **
  23 ** You should have received a copy of the GNU General Public License along
  24 ** with this program; if not, write to the Free Software Foundation, Inc.,
  25 ** 675 Mass Ave, Cambridge, MA 02139, USA.
  26 **
  27 ** The author until 9/93 can be contacted at:
  28 ** e-mail:     willus@ilm.pfc.mit.edu
  29 ** U.S. mail:  Will Menninger, 45 River St., #2, Boston, MA 02108-1124
  30 **
  31 */
  32
  33 /* Global includes */
  34
  35 #include   <stdio.h>
  36 #include   <math.h>
  37 #include   <string.h>
  38 #include   <ctype.h>
  39 #include   <stdlib.h>
  40 #include   <float.h>
  41
  42 /* For math functions */
  43 #define    SGN(x)      ((x)<0 ? -1 : ((x)>0 ? 1 : 0))
  44 #define    ABS(x)      ((x)<0 ? -(x) : (x))
  45 #define    SWAP(a,b)   {float temp=(a);(a)=(b);(b)=temp;}
  46
  47
  48 /* Global definitions */
  49 #define    VERSION     "1.12"
  50 #define    TRUE        1
  51 #define    FALSE       0
  52 #define    MAXC        56
  53 #define    MAXV        100
  54 #define    MAXNAMELEN  16
  55 #define    MAXINPUT    160
  56 #define    NUMFUNCS    30
  57 #define    MAXFLEN     6
  58 #define    SCRWIDTH    80
  59 #define    MAXARGS     10
  60 #define    EOS          '\0'
  61 #define    NLINES      21
  62 #define    PROMPT      "Ex>"
  63
  64 #define    MAXOUTLEN   1100
  65 /* I removed the original definition of MAXOUTLEN because it was
  66    too big on some compilers */
  67 /*
  68 #define    MAXOUTLEN   (DBL_MAX_EXP+100)
  69 */
  70
  71 /* types of tokens */
  72 #define    BINARY      1
  73 #define    UNARY       2
  74 #define    FUNCTION    3
  75 #define    VARIABLE    4
  76 #define    NUMBER      5
  77 #define    LEFT_PAREN  6
  78 #define    RIGHT_PAREN 7
  79 #define    COMMA       8
  80 #define    ILLEGAL     9
  81 #define    CONSTANT    10
  82 #define    VOID        11
  83 #define    QUOTE       12
  84
  85 /* binary operators */
  86 #define    ADD         1
  87 #define    SUBTRACT    2
  88 #define    MULTIPLY    3
  89 #define    DIVIDE      4
  90 #define    POWER       5
  91 #define    AND         6
  92 #define    OR          7
  93 #define    XOR         8
  94 #define    MOD         9
  95 #define    SHLEFT      10
  96 #define    SHRIGHT     11
  97 #define    BSTRING     "+-*/^&|?%"
  98
  99 /* unary operators */
 100 #define    POSITIVE    1
 101 #define    NEGATIVE    2
 102 #define    NOT         3
 103 #define    USTRING     "+-~"
 104
 105
 106 /* Global typecasts */
 107
 108 typedef int    BOOLEAN;
 109 typedef struct {
 110                char    name[MAXNAMELEN+1];
 111                double  value;
 112                } VAR, *VARPTR;
 113 typedef struct {
 114                double  value;
 115                char    type;
 116                int     code;
 117                } TOKEN, *TOKENPTR;
 118
 119 /* Function definitions */
 120
 121 /* ----- EVAL.C functions ---------------------------------------------- */
 122
 123 BOOLEAN insert_var      (VARPTR new,VARPTR vlist);
 124 BOOLEAN search_varlist  (VARPTR var,VARPTR vlist,int *n,int max);
 125 void    fixup           (char *s);
 126
 127 /* ----- FUNCS.C functions --------------------------------------------- */
 128
 129 int     func_code       (char *);
 130 BOOLEAN func_eval       (int,double *,double *);
 131 char   *func_name       (int);
 132 int     func_nargs      (int);
 133 int     print_funclist  (FILE *s,char *input,int d);
 134
 135 /* ----- PARSE.C functions -------------------------------------------- */
 136
 137 void    evaluate        (char *,int,VARPTR,VARPTR);
 138 BOOLEAN eerror          (char *message);
 139 void    tokcpy          (TOKENPTR dest,TOKENPTR source);
 140
 141 /* ----- ESTACK.C functions ------------------------------------------- */
 142
 143 void    clear_stack     (void);
 144 BOOLEAN pop_token       (TOKENPTR);
 145 BOOLEAN push_token      (TOKENPTR);
 146 BOOLEAN top_of_stack    (TOKENPTR);
 147
 148 /* ----- ETABLE.C functions ------------------------------------------- */
 149
 150 BOOLEAN add_token       (TOKENPTR);
 151 void    clear_table     (void);
 152 BOOLEAN result          (int,int,double *,double *);
 153 BOOLEAN table_value     (double *);
 154
 155 /* ----- BASE.C functions --------------------------------------------- */
 156
 157 void    baseconv        (double val,char *buf);
 158 void    set_scinote     (int val);
 159 void    set_sigfig      (int val);
 160 void    set_dplace      (int val);
 161 void    set_maxexp      (int val);
 162 void    set_fix         (int val);
 163 void    setobase        (int base);
 164 void    setibase        (int base);
 165 int     getobase        (void);
 166 int     getibase        (void);
 167 int     get_scinote     (void);
 168 int     get_fix         (void);
 169 int     precision       (int base);
 170 void    print_outtype   (void);
 171 double  asciiconv       (int base,char *s);
 172
 173 /* ----- BITWISE.C functions --------------------------------------------- */
 174
 175 double  not             (double val);
 176 double  or              (double val1,double val2);
 177 double  and             (double val1,double val2);
 178 double  xor             (double val1,double val2);
 179
 180 /* ----- EMATH.C functions ----------------------------------------------- */
 181
 182 double  bessi           (int,double);
 183 double  bessj           (int,double);
 184 double  bessk           (int,double);
 185 double  dbessi          (int,double);
 186 double  dbessj          (int,double);
 187 double  dbessk          (int,double);
 188 double  jroot           (int,int);
 189 double  djroot          (int,int);
 190 double  factorial       (int);
 191 double  root            (double(*F)(double),double,double,double,int *);
 192 double  root2           (double(*F)(int,double),int,double,double,double,
 193                          int *);
 194 double  atanh           (double x);
 195 double  asinh           (double x);
 196 double  acosh           (double x);