grap/grap.h

   1 extern  char    errbuf[200];
   2 #define ERROR   sprintf(errbuf,
   3 #define FATAL   ), yyerror(errbuf), exit(1)
   4 #define WARNING ), yyerror(errbuf)
   5
   6 #define dprintf if(dbg)printf
   7
   8 #define String  01
   9 #define Macro   02
  10 #define File    04
  11 #define Char    010
  12 #define Thru    020
  13 #define Free    040
  14
  15 #define MARGIN  0.07    /* default margin around data */
  16 #define SLOP    1.001   /* slop for limits of for loops */
  17 #define FRAMEWID 3      /* default width for boxes and ellipses */
  18 #define FRAMEHT 2       /* default height and line length */
  19 #define TICKLEN 0.1
  20
  21 #define MAXNUM  200
  22
  23 #define XFLAG   01
  24 #define YFLAG   02
  25
  26 #define INTICK  01
  27 #define OUTICK  02
  28
  29 #define BOT     01
  30 #define TOP     02
  31 #define RIGHT   04
  32 #define LEFT    010
  33
  34 #define RJUST   01
  35 #define LJUST   02
  36 #define ABOVE   04
  37 #define BELOW   010
  38
  39 typedef struct infile {
  40         FILE    *fin;
  41         char    *fname;
  42         int     lineno;
  43 } Infile;
  44
  45 typedef struct {        /* input source */
  46         int     type;   /* Macro, String, File */
  47         char    *sp;    /* if String or Macro */
  48 } Src;
  49
  50 extern  Src     src[], *srcp;   /* input source stack */
  51
  52 #define MAXARGS 100
  53 typedef struct {        /* argument stack */
  54         char    *argstk[MAXARGS];       /* pointers to args */
  55         char    *argval;        /* points to space containing args */
  56 } Arg;
  57
  58 extern  Infile  infile[10];
  59 extern  Infile  *curfile;
  60
  61 typedef struct {
  62         struct obj *obj;
  63         double  x, y;
  64 } Point;
  65
  66 typedef struct attr {   /* e.g., DASH 1.1 or "..." rjust size *.5 */
  67         int     type;
  68         double  fval;
  69         char    *sval;
  70         int     just;   /* justification, for STRING type */
  71         int     op;     /* optional operator, ditto */
  72         struct attr *next;
  73 } Attr;
  74
  75 typedef struct obj {    /* a name and its properties */
  76         char    *name;
  77         char    *val;   /* body of define, etc. */
  78         double  fval;   /* if a numeric variable */
  79         Point   pt;     /* usually for max and min */
  80         Point   pt1;
  81         int     type;   /* NAME, DEFNAME, ... */
  82         int     first;  /* 1 after 1st item seen */
  83         int     coord;  /* 1 if coord system specified for this name */
  84         int     log;    /* x, y, or z (= x+y) */
  85         Attr    *attr;  /* DASH, etc., for now */
  86         struct obj *next;
  87 } Obj;
  88
  89 typedef union {         /* the yacc stack type */
  90         int     i;
  91         char    *p;
  92         double  f;
  93         Point   pt;
  94         Obj     *op;
  95         Attr    *ap;
  96 } YYSTYPE;
  97
  98 extern  YYSTYPE yylval, yyval;
  99
 100 extern  int     dbg;
 101
 102 extern  int     ntext;
 103 extern  double  num[MAXNUM];
 104 extern  int     nnum;
 105 extern  int     ntick, tside;
 106
 107 extern  char    *tostring(char *);
 108 extern char *grow(char *, char *, int, int);
 109
 110 extern  int     lineno;
 111 extern  int     synerr;
 112 extern  int     codegen;
 113 extern  char    tempfile[];
 114 extern  FILE    *tfd;
 115
 116 extern  Point   ptmin, ptmax;
 117
 118 extern  char    *dflt_coord;
 119 extern  char    *curr_coord;
 120 extern  int     ncoord;
 121 extern  int     auto_x;
 122 extern  double  margin;
 123 extern  int     autoticks;
 124 extern  int     pointsize, ps_set;
 125
 126
 127 #define logit(x) (x) = log10(x)
 128 #define Log10(x) errcheck(log10(x), "log")
 129 #define Exp(x)  errcheck(exp(x), "exp")
 130 #define Sqrt(x) errcheck(sqrt(x), "sqrt")
 131
 132 #define min(x,y)        (((x) <= (y)) ? (x) : (y))
 133 #define max(x,y)        (((x) >= (y)) ? (x) : (y))
 134
 135 extern  void    yyerror(char *);
 136 extern void coord_x(Point);
 137 extern void coord_y(Point);
 138 extern void coordlog(int);
 139 extern void coord(Obj *);
 140 extern void resetcoord(Obj *);
 141 extern void savenum(int, double);
 142 extern void setjust(int);
 143 extern void setsize(int, double);
 144 extern void range(Point);
 145 extern void halfrange(Obj *, int, double);
 146 extern Obj *lookup(char *, int);
 147 extern double getvar(Obj *);
 148 extern double setvar(Obj *, double);
 149 extern Point makepoint(Obj *, double, double);
 150 extern Attr *makefattr(int, double);
 151 extern Attr *makesattr(char *);
 152 extern Attr *makeattr(int, double, char *, int, int);
 153 extern Attr *addattr(Attr *, Attr *);
 154 extern void freeattr(Attr *);
 155 extern char *slprint(Attr *);
 156 extern char *juststr(int);
 157 extern char *sprntf(char *, Attr *);
 158 extern void forloop(Obj *, double, double, int, double, char *);
 159 extern void nextfor(void);
 160 extern void endfor(void);
 161 extern char *ifstat(double, char *, char *);
 162 extern void frame(void);
 163 extern void frameht(double);
 164 extern void framewid(double);
 165 extern void frameside(int, Attr *);
 166 extern void pushsrc(int, char *);
 167 extern void popsrc(void);
 168 extern void definition(char *);
 169 extern char *delimstr(char *);
 170 extern int baldelim(int, char *);
 171 extern void dodef(Obj *);
 172 extern int getarg(char *);
 173 extern int input(void);
 174 extern int nextchar(void);
 175 extern void do_thru(void);
 176 extern int unput(int);
 177 extern void pbstr(char *);
 178 extern double errcheck(double, char *);
 179 extern void yyerror(char *);
 180 extern void eprint(void);
 181 extern int yywrap(void);
 182 extern void copyfile(char *);
 183 extern void copydef(Obj *);
 184 extern Obj *copythru(char *);
 185 extern char *addnewline(char *);
 186 extern void copyuntil(char *);
 187 extern void copy(void);
 188 extern void shell_init(void);
 189 extern void shell_text(char *);
 190 extern void shell_exec(void);
 191 extern void labelwid(double);
 192 extern void labelmove(int, double);
 193 extern void label(int, Attr *);
 194 extern void lab_adjust(void);
 195 extern char *sizeit(Attr *);
 196 extern void line(int, Point, Point, Attr *);
 197 extern void circle(double, Point);
 198 extern char *xyname(Point);
 199 extern void pic(char *);
 200 extern void numlist(void);
 201 extern void plot(Attr *, Point);
 202 extern void plotnum(double, char *, Point);
 203 extern void drawdesc(int, Obj *, Attr *, char *);
 204 extern void next(Obj *, Point, Attr *);
 205 extern void print(void);
 206 extern void endstat(void);
 207 extern void graph(char *);
 208 extern void setup(void);
 209 extern void do_first(void);
 210 extern void reset(void);
 211 extern void opentemp(void);
 212 extern void savetick(double, char *);
 213 extern void dflt_tick(double);
 214 extern void tickside(int);
 215 extern void tickoff(int);
 216 extern void gridtickoff(void);
 217 extern void setlist(void);
 218 extern void tickdir(int, double, int);
 219 extern void ticks(void);
 220 extern double modfloor(double, double);
 221 extern double modceil(double, double);
 222 extern void do_autoticks(Obj *);
 223 extern void logtick(double, double, double);
 224 extern Obj *setauto(void);
 225 extern void autoside(Obj *, int);
 226 extern void autolog(Obj *, int);
 227 extern void iterator(double, double, int, double, char *);
 228 extern void ticklist(Obj *, int);
 229 extern void print_ticks(int, int, Obj *, char *, char *);
 230 extern void maketick(int, char *, int, int, double, char *, char *, char *);
 231 extern void griddesc(Attr *);
 232 extern void gridlist(Obj *);
 233 extern char *desc_str(Attr *);
 234 extern int sidelog(int, int);
 235
 236 extern  Obj     *objlist;