From b6d98463b416e9d95bc88f948b4abdff6b24aede Mon Sep 17 00:00:00 2001 From: rsc Date: Fri, 14 Apr 2006 00:04:03 +0000 Subject: tpic --- src/cmd/tpic/pic.h | 285 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 285 insertions(+) create mode 100644 src/cmd/tpic/pic.h (limited to 'src/cmd/tpic/pic.h') diff --git a/src/cmd/tpic/pic.h b/src/cmd/tpic/pic.h new file mode 100644 index 00000000..50e58009 --- /dev/null +++ b/src/cmd/tpic/pic.h @@ -0,0 +1,285 @@ +#include +#include +#include + +#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 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 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 int PEseen; +extern double deltx, delty; +extern int lineno; +extern int synerr; + +extern double xmin, ymin, xmax, ymax; + +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; + + +#define Log10(x) errcheck(log10(x), "log") +#define Exp(x) errcheck(exp(x), "exp") +#define Sqrt(x) errcheck(sqrt(x), "sqrt") + + +char* addnewline(char *p) /* add newline to end of p */; +obj* addpos(obj *p, obj *q); +void addtattr(int sub) /* add text attrib to existing item */; +void arc(double xc, double yc, double x0, double y0, double x1, double y1) /* draw arc with center xc,yc */; +void arc_extreme(double x0, double y0, double x1, double y1, double xc, double yc); +obj* arcgen(int type) /* handles circular and (eventually) elliptical arcs */; +void arrow(double x0, double y0, double x1, double y1, double w, double h, double ang, int nhead) /* draw arrow (without shaft) */ /* head wid w, len h, rotated ang */ /* and drawn with nhead lines */; +int baldelim(int c, char *s) /* replace c by balancing entry in s */; +void blockadj(obj *p) /* adjust coords in block starting at p */; +obj* blockgen(obj *p, obj *q) /* handles [...] */; +obj* boxgen(void); +void checkscale(char *s) /* if s is "scale", adjust default variables */; +obj* circgen(int type); +void copy(void) /* begin input from file, etc. */; +void copydef(struct symtab *p) /* remember macro symtab ptr */; +void copyfile(char *s) /* remember file to start reading from */; +struct symtab* copythru(char *s) /* collect the macro name or body for thru */; +void copyuntil(char *s) /* string that terminates a thru */; +int curdir(void) /* convert current dir (hvmode) to RIGHT, LEFT, etc. */; +void definition(char *s) /* collect definition for s and install */ /* definitions picked up lexically */; +char* delimstr(char *s) /* get body of X ... X */ /* message if too big */; +void do_thru(void) /* read one line, make into a macro expansion */; +void dodef(struct symtab *stp) /* collect args and switch input to defn */; +void dot(void); +void dotbox(double x0, double y0, double x1, double y1, int ddtype, double ddval) /* dotted or dashed box */; +void dotext(obj *p) /* print text strings of p in proper vertical spacing */; +void dotline(double x0, double y0, double x1, double y1, int ddtype, double ddval); +void dotline(double x0, double y0, double x1, double y1, int ddtype, double ddval) /* dotted line */; +void ellipse(double x, double y, double r1, double r2); +void endfor(void) /* end one iteration of for loop */; +void eprint(void) /* try to print context around error */; +double errcheck(double x, char *s); +void exprsave(double f); +void extreme(double x, double y) /* record max and min x and y values */; +void fillend(void); +void fillstart(double v) /* only choose black, light grey (.75), or white, for now */; +obj* fixpos(obj *p, double x, double y); +void forloop(char *, double, double, int, double, char *) /* set up a for loop */; +void fpecatch(int arg); +void freedef(char *s) /* free definition for string s */; +void freesymtab(struct symtab *p) /* free space used by symtab at p */; +int getarg(char *p) /* pick up single argument, store in p, return length */; +YYSTYPE getblk(obj *p, char *s) /* find union type for s in p */; +double getblkvar(obj *p, char *s) /* find variable s2 in block p */; +obj* getblock(obj *p, char *s) /* find variable s in block p */; +double getcomp(obj *p, int t) /* return component of a position */; +void getdata(void); +obj* getfirst(int n, int t) /* find n-th occurrence of type t */; +double getfval(char *s) /* return float value of variable s */; +obj* gethere(void) /* make a place for curx,cury */; +obj* getlast(int n, int t) /* find n-th previous occurrence of type t */; +obj* getpos(obj *p, int corner) /* find position of point */; +YYSTYPE getvar(char *s) /* return value of variable s (usually pointer) */; +char * grow(char *ptr, char *name, int num, int size) /* make array bigger */; +char* ifstat(double expr, char *thenpart, char *elsepart); +int input(void); +void label(char *s, int t, int nh) /* text s of type t nh half-lines up */; +obj* leftthing(int c) /* called for {... or [... */ /* really ought to be separate functions */; +obj* linegen(int type); +struct symtab* lookup(char *s) /* find s in symtab */; +int main(int argc, char **argv); +void makeattr(int type, int sub, YYSTYPE val) /* add attribute type and val */; +obj* makebetween(double f, obj *p1, obj* p2) /* make position between p1 and p2 */; +void makefattr(int type, int sub, double f) /* double attr */; +void makeiattr(int type, int i) /* int attr */; +obj* makenode(int type, int n); +void makeoattr(int type, obj *o) /* obj* attr */; +obj* makepos(double x, double y) /* make a position cell */; +void maketattr(int sub, char *p) /* text attribute: takes two */; +struct symtab* makevar(char *s, int t, YYSTYPE v) /* make variable named s in table */ /* assumes s is static or from tostring */; +void makevattr(char *p) /* varname attribute */; +obj* movegen(void); +int nextchar(void); +void nextfor(void) /* do one iteration of a for loop */; +void pbstr(char *s); +void popsrc(void) /* restore an old one */; +void print(void); +void printexpr(double f) /* print expression for debugging */; +void printlf(int line, char *name); +void printpos(obj *p) /* print position for debugging */; +void pushsrc(int type, char *ptr) /* new input source */; +int quadrant(double x, double y); +void reset(void); +void resetvar(void) /* reset variables listed */; +obj* rightthing(obj *p, int c) /* called for ... ] or ... } */; +void savetext(int t, char *s) /* record text elements for current object */; +void setdefaults(void) /* set default sizes for variables like boxht */; +int setdir(int n) /* set direction (hvmode) from LEFT, RIGHT, etc. */; +void setfval(char *s, double f) /* set variable s to f */; +void shell_exec(void) /* do it */; +void shell_init(void) /* set up to interpret a shell command */; +void shell_text(char *s) /* add string to command being collected */; +void space(double x0, double y0, double x1, double y1) /* set limits of page */; +void spline(double x, double y, double/*sic*/ n, float *p, int dashed, double ddval); +char* sprintgen(char *fmt); +obj* subpos(obj *p, obj *q); +obj* textgen(void); +char* tostring(char *s); +void troff(char *s); +obj* troffgen(char *s) /* save away a string of troff commands */; +void undefine(char *s) /* undefine macro */; +int unput(int c); +int whatpos(obj *p, int corner, double *px, double *py) /* what is the position (no side effect) */; +void yyerror(char *s); +int yyparse(void); + +#include "tex.h" + -- cgit v1.2.3