1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
|
#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")
|