44 #define	length(p) ((p)->wt-(p)->beg)  argument
45 #define	rewind(p) ((p)->rd = (p)->beg)  argument
46 #define	create(p)	((p)->rd = (p)->wt = (p)->beg)  argument
47 #define	fsfile(p)	((p)->rd = (p)->wt)  argument
48 #define	truncate(p)	((p)->wt = (p)->rd)  argument
49 #define	sfeof(p)	(((p)->rd >= (p)->wt) ? 1 : 0)  argument
50 #define	sfbeg(p)	(((p)->rd == (p)->beg) ? 1 : 0)  argument
51 #define	sungetc(p, c)	(*(--(p)->rd) = c)  argument
52 #define	sgetc(p)	(((p)->rd == (p)->wt) ? EOF: ctoint((int)*(p)->rd++))  argument
53 #define	slookc(p)	(((p)->rd == (p)->wt) ? EOF: ctoint((int)*(p)->rd))  argument
54 #define	sbackc(p)	(((p)->rd == (p)->beg) ? EOF: ctoint((int)*(--(p)->rd)))  argument
55 #define	sputc(p, c)	{if ((p)->wt == (p)->last) more(p); *(p)->wt++ = c; }  argument
56 #define	salterc(p, c)	{if ((p)->rd == (p)->last) more(p); *(p)->rd++ = c;\  argument
58 #define	sunputc(p)	(*((p)->rd = --(p)->wt))  argument
59 #define	zero(p)		for (pp = (p)->beg; pp < (p)->last; ) *pp++ = '\0'  argument
74 #define	error(p)	{printf(p); continue; }  argument
75 #define	errorrt(p)	{printf(p); return (1); }  argument