#ifndef PI

#ifndef PI
#define PI 3.1415926535897932384626433832795028841971693993751
#endif

#define MAXWID 8.5 /* default limits max picture to 8.5 x 11; */
#define MAXHT 11 /* change to taste without peril */

#define dprintf if(dbg)printf

extern void yyerror(char *);

extern char errbuf[200];
#define ERROR sprintf(errbuf,
#define FATAL ), yyerror(errbuf), exit(1)
#define WARNING ), yyerror(errbuf)

#define DEFAULT 0

#define HEAD1 1
#define HEAD2 2
#define HEAD12 (HEAD1+HEAD2)
#define INVIS 4
#define CW_ARC 8 /* clockwise arc */
#define DOTBIT 16 /* line styles */
#define DASHBIT 32
#define FILLBIT 64 /* gray-fill on boxes, etc. */
#define NOEDGEBIT 128 /* no edge on filled object */

#define CENTER 01 /* text attributes */
#define LJUST 02
#define RJUST 04
#define ABOVE 010
#define BELOW 020
#define SPREAD 040

#define SCALE 1.0 /* default scale: units/inch */
#define WID 0.75 /* default width for boxes and ellipses */
#define WID2 0.375
#define HT 0.5 /* default height and line length */
#define HT2 (HT/2)
#define HT5 (HT/5)
#define HT10 (HT/10)

/* these have to be like so, so that we can write */
/* things like R & V, etc. */
#define H 0
#define V 1
#define R_DIR 0
#define U_DIR 1
#define L_DIR 2
#define D_DIR 3
#define ishor(n) (((n) & V) == 0)
#define isvert(n) (((n) & V) != 0)
#define isright(n) ((n) == R_DIR)
#define isleft(n) ((n) == L_DIR)
#define isdown(n) ((n) == D_DIR)
#define isup(n) ((n) == U_DIR)

typedef float ofloat; /* for o_val[] in obj; could be double */

typedef struct obj { /* stores various things in variable length */
int o_type;
int o_count; /* number of things */
int o_nobj; /* index in objlist */
int o_mode; /* hor or vert */
float o_x; /* coord of "center" */
float o_y;
int o_nt1; /* 1st index in text[] for this object */
int o_nt2; /* 2nd; difference is #text strings */
int o_attr; /* HEAD, CW, INVIS, etc., go here */
int o_size; /* linesize */
int o_nhead; /* arrowhead style */
struct symtab *o_symtab; /* symtab for [...] */
float o_ddval; /* value of dot/dash expression */
float o_fillval; /* gray scale value */
ofloat o_val[1]; /* actually this will be > 1 in general */
/* type is not always FLOAT!!!! */
} obj;

typedef union { /* the yacc stack type */
int i;
char *p;
obj *o;
double f;
struct symtab *st;
} YYSTYPE;

extern YYSTYPE yylval, yyval;

struct symtab {
char *s_name;
int s_type;
YYSTYPE s_val;
struct symtab *s_next;
};

typedef struct { /* attribute of an object */
int a_type;
int a_sub;
YYSTYPE a_val;
} Attr;

typedef struct {
int t_type; /* CENTER, LJUST, etc. */
char t_op; /* optional sign for size changes */
char t_size; /* size, abs or rel */
char *t_val;
} Text;

#define String 01
#define Macro 02
#define File 04
#define Char 010
#define Thru 020
#define Free 040

typedef struct { /* input source */
int type; /* Macro, String, File */
char *sp; /* if String or Macro */
} Src;

extern Src src[], *srcp; /* input source stack */

typedef struct {
FILE *fin;
char *fname;
int lineno;
} Infile;

extern Infile infile[], *curfile;

#define MAXARGS 20
typedef struct { /* argument stack */
char *argstk[MAXARGS]; /* pointers to args */
char *argval; /* points to space containing args */
} Arg;

extern int dbg;
extern obj **objlist;
extern int nobj, nobjlist;
extern Attr *attr;
extern int nattr, nattrlist;
extern Text *text;
extern int ntextlist;
extern int ntext;
extern int ntext1;
extern double curx, cury;
extern int hvmode;
extern int codegen;
extern char *PEstring;

char *tostring(char *);
char *grow(char *, char *, int, int);
double getfval(char *), getcomp(obj *, int), getblkvar(obj *, char *);
YYSTYPE getvar(char *);
struct symtab *lookup(char *), *makevar(char *, int, YYSTYPE);
char *ifstat(double, char *, char *), *delimstr(char *), *sprintgen(char *);
void forloop(char *var, double from, double to, int op, double by, char *_str);
int setdir(int), curdir(void);
void resetvar(void);
void checkscale(char *);
void pushsrc(int, char *);
void copy(void);
void copyuntil(char *);
void copyfile(char *);
void copydef(struct symtab *);
void definition(char *);
struct symtab *copythru(char *);
int input(void);
int unput(int);
void extreme(double, double);

extern double deltx, delty;
extern int lineno;
extern int synerr;

extern double xmin, ymin, xmax, ymax;

obj *leftthing(int), *boxgen(void), *circgen(int), *arcgen(int);
obj *linegen(int), *splinegen(void), *movegen(void);
obj *textgen(void), *plotgen(void);
obj *troffgen(char *), *rightthing(obj *, int), *blockgen(obj *, obj *);
obj *makenode(int, int), *makepos(double, double);
obj *fixpos(obj *, double, double);
obj *addpos(obj *, obj *), *subpos(obj *, obj *);
obj *makebetween(double, obj *, obj *);
obj *getpos(obj *, int), *gethere(void), *getfirst(int, int);
obj *getlast(int, int), *getblock(obj *, char *);
void savetext(int, char *);
void makeiattr(int, int);
void makevattr(char *);
void makefattr(int type, int sub, double f);
void maketattr(int, char *);
void makeoattr(int, obj *);
void makeattr(int type, int sub, YYSTYPE val);
void printexpr(double);
void printpos(obj *);
void exprsave(double);
void addtattr(int);
void printlf(int, char *);

struct pushstack {
double p_x;
double p_y;
int p_hvmode;
double p_xmin;
double p_ymin;
double p_xmax;
double p_ymax;
struct symtab *p_symtab;
};
extern struct pushstack stack[];
extern int nstack;
extern int cw;

extern double errcheck(double, char *);
#define Log10(x) errcheck(log10(x), "log")
#define Exp(x) errcheck(exp(x), "exp")
#define Sqrt(x) errcheck(sqrt(x), "sqrt")