/* * ACE/vis - Visualization of Flow and Transport * * Paul J. Turner and Antonio M. Baptista * * Copyright 1990-2003 Oregon Health and Science University * All Rights Reserved * */ %{ /* * * evaluate expressions, commands, parameter files * */ #define GRAMMAR #ifndef lint static char RCSid[] = "$Id: gram.y,v 1.31 2008/04/10 18:29:08 pturner Exp $"; #endif #include #include #include #include "defines.h" #include "globals.h" typedef struct _symtab_entry { char *s; int type; } symtab_entry; #ifndef M_PI # define M_PI 3.14159265358979323846 #endif #ifndef TRUE # define TRUE 1 #endif #ifndef FALSE # define FALSE 0 #endif /* for LINUX char *gettxt(char *t, char *s) { return *s; } */ int elcirc_maxlevels; int elcirc_gridno; int elcirc_flowno; int elcircmarker = 0; int curg = 0; int maxboxes = MAXBOXES; int maxlines = MAXLINES; int maxstring = MAXSTR; double result, resx, resy; /* return value if expression */ double nonl_parms[10]; double drand48(void); long lrand48(void); double rnorm(double mean, double sdev), fx(double x), normp(double b, double *s); void yyerror(char *s); static int interr; static double *freelist[100]; /* temporary vectors */ static int fcnt; /* number allocated */ int naxis = 0; /* current axis */ int curline, curbox, curstring, curleg, curobject; int gotbatch, gotparams, gotread; /* these guys attempt to avoid reentrancy problems */ int readtype, readsrc; extern char batchfile[]; char paramfile[256], readfile[256]; static char f_string[512]; /* buffer for string to parse */ static int pos = 0; static double *aa, *bb, *cc, *dd, *xx, *yy; static int setindex, lxy, ls; static int setsetno; static int whichgraph; static int whichset; extern int change_gno; extern int change_type; int checkptr(void *ptr, char *buf); static Isolparms *setisol = NULL; /* pointer to current Isolparms struct */ static DisplayFlow *setflow = NULL; /* pointer to current Isolparms struct */ static Props *setprops = NULL; /* pointer to current Isolparms struct */ static Zoom_box *setzoombox = NULL; static Hist_marker *sethistbox = NULL; static DisplaySlice *setslice = NULL; static Elevmarker *setelevmarker = NULL; static DisplayGrid *setgrid = NULL; static Transect *settrans = NULL; static ADCIRC3D *setadc3d = NULL; static Display3dFlow *setflow3d = NULL; static DisplayParticles *setdrogs = NULL; /* may add these later TODO */ %} %union { double val; int ival; double *ptr; int func; int pset; char *str; } %token VAR %token X %token Y %token CHRSTR %token FITPARM %token NUMBER %token ABS %token ACOS %token ASIN %token ATAN %token ATAN2 %token CEIL %token COS %token DEG %token DX %token DY %token ERF %token ERFC %token EXP %token FLOOR %token HYPOT %token INDEX %token INT %token IRAND %token LGAMMA %token LN %token LOG %token LOGISTIC %token MAXP %token MINP %token MINMAX %token MOD %token NORM %token NORMP %token PI %token RAD %token RAND %token SETNO %token SIN %token SQR %token SQRT %token TAN %token INUM %token ABORT %token ABOVE %token ABSOLUTE %token ACTIVATE %token ACTIVE %token ADCIRC %token ADCIRC3DFLOW %token ALL %token ALT %token ALTERNATE %token ALTXAXIS %token ALTYAXIS %token AMP %token ANGLE %token ANNOTATE %token APPEND %token AREA %token ARROW %token ASCEND %token AT %token ATTACH %token AUTO %token AUTOSCALE %token AUTOTICKS %token AVERAGE %token AVG %token AXES %token AXIS %token BACKBUFFER %token BACKGROUND %token BAR %token BATCH %token BATH %token BATHYMETRY %token COURANT %token BELOW %token BIN %token BINARY %token BOTH %token BOTTOM %token BOUNDARY %token BOX %token CELLS %token CENTER %token CH3D %token CHAR %token CHDIR %token CIRCLE %token CLEAR %token CLICK %token CLOCK %token CLOSE %token CM %token CMAP %token COLOR %token COLORMAP %token COMMENT %token CONC %token CONCENTRATION %token CONCENTRATIONS %token COPY %token CROSS %token CYCLE %token DAYMONTH %token DAYOFWEEKL %token DAYOFWEEKS %token DAYOFYEAR %token DAYS %token DDMMYY %token DDMONTHSYYHHMMSS %token DECIMAL %token DEF %token DEFAULT %token DEGREESLAT %token DEGREESLON %token DEGREESMMLAT %token DEGREESMMLON %token DEGREESMMSSLAT %token DEGREESMMSSLON %token DELAYP %token DELETE %token DEPTH %token DEPTHS %token DESCEND %token DEVICE %token DEVXY %token DFT %token DT %token DIAMOND %token DIFFERENCE %token DISK %token DISPLAY %token DOT %token DOUBLEBUFFER %token DOWN %token DRAW2 %token DROGUE %token DROGUES %token DRY %token DXDX %token DXP %token DYDY %token DYP %token ECHO %token EDIT %token ELA %token ELCIRC %token ELEMENT %token ELEMENTS %token ELEV %token ELEVATION %token ELEVATIONS %token ELEVMARKER %token ELLIPSE %token ELLIPSES %token ELLIPSEZ %token ELSE %token END %token ERRORBAR %token EXIT %token EXPAND %token EXPONENTIAL %token FACTOR %token FALSEP %token FAST %token FEET %token FFT %token FILEP %token FILL %token FIND %token FIXEDPOINT %token FLOW %token FLUSH %token FLUX %token FOCUS %token FOLLOWS %token FONTP %token FOREGROUND %token FORMAT %token FORT14 %token FORT63 %token FORT64 %token FORWARD %token FRAMEP %token FREQ %token FRONTBUFFER %token GENERAL %token GETP %token GOTO %token GRAPH %token GRAPHNO %token GRAPHS %token GRAPHTYPE %token GRID %token HARDCOPY %token HBAR %token HELP %token HGAP %token HIDDEN %token HISTBOX %token HISTO %token HISTORY %token HMS %token HORIZONTAL %token HOURS %token HPGLL %token HPGLP %token IF %token IGNORE %token IHL %token IMAGE %token IMAGES %token IN %token INCLUDE %token INFO %token INIT %token INITGRAPHICS %token INOUT %token INTEGRATE %token INTERP %token INUNDATION %token INVDFT %token INVFFT %token ISOLINE %token ISOLINES %token JUST %token KILL %token KM %token LABEL %token LAYOUT %token LEAVE %token LEAVEGRAPHICS %token LEFT %token LEGEND %token LENGTH %token LEVEL %token LEVELS %token LIMITS %token LINE %token LINES %token LINESTYLE %token LINETO %token LINEW %token LINEWIDTH %token LINK %token LOAD %token LOC %token LOCATE %token LOCATOR %token LOCTYPE %token LOGX %token LOGXY %token LOGY %token M %token MAG %token MAGNITUDE %token MAJOR %token MAPSCALE %token MARKER %token MARKERS %token MAXLEVELS %token METHOD %token MIFL %token MIFP %token MILES %token MINOR %token MINUTES %token MISSINGP %token MM %token MMDD %token MMDDHMS %token MMDDYY %token MMDDYYHMS %token MMSSLAT %token MMSSLON %token MMYY %token MONTHDAY %token MONTHL %token MONTHS %token MOVE %token MOVE2 %token MOVETO %token NEGATE %token NO %token NODE %token NODES %token NONE %token NORMAL %token NORTH %token NXY %token OFF %token OFFSETX %token OFFSETY %token ON %token OP %token OPEN %token ORIENT %token OUT %token PAGE %token PARA %token PARALLEL %token PARAMETERS %token PARAMS %token PARMS %token PATTERN %token PER %token PERIMETER %token PERP %token PERPENDICULAR %token PHASE %token PIE %token PIPE %token PLACE %token PLAN %token PLUS %token POINT %token POLAR %token POLY %token POLYI %token POLYO %token POP %token POWER %token PREC %token PREFIX %token PREPEND %token PRINT %token PROFILE %token PROP %token PS %token PSCOLORL %token PSCOLORP %token PSMONOL %token PSMONOP %token PUSH %token PUTP %token QUIT %token READ %token READBIN %token REDRAW %token REGION %token REGIONS %token REGNUM %token REGRESS %token REMOVE %token RENDER %token REPORT %token RESET %token REVERSE %token REWIND %token RIGHT %token RISER %token ROT %token RUN %token SALINITY %token SAMPLE %token SAVE %token SCALAR %token SCALE %token SCIENTIFIC %token SECONDS %token SET %token SETS %token SHOW %token SHRINK %token SIGMA %token SIGN %token SIZE %token SKIP %token SLAB %token SLEEP %token SLICE %token SOURCE %token SPEC %token SPECIFIED %token SPECTRUM %token SPLITS %token SQUARE %token STACK %token STACKEDBAR %token STACKEDHBAR %token STACKEDLINE %token STAGGER %token STAR %token START %token STARTSTEP %token STARTTYPE %token STATION %token STATUS %token STEP %token STOP %token STREAMLINES %token STRING %token STRINGS %token SUBTITLE %token