49 static wchar_t	prev_char;
54 static void expand(wchar_t **, int);
57 static void puttok(wchar_t *);
59 static wchar_t itochr(int);
61 static wchar_t *chkbltin(wchar_t *);
62 static wchar_t *inpmatch(wchar_t *);
67 static void sputchr(wchar_t, FILE *);
68 static void putchr(wchar_t);
71 static wint_t myfputwc(wchar_t, FILE *);
77 	wchar_t t;  in main()
161 			wchar_t	*tp = token+1;  in main()
177 			*Ap = (wchar_t *)macadd;  in main()
179 				if ((wchar_t *)(++Ap) >= astklm) {  in main()
286 			if ((wchar_t *)(++Ap) >= astklm) {  in main()
310 static wchar_t *
311 inpmatch(wchar_t *s)  in inpmatch()
313 	wchar_t	*tp = token+1;  in inpmatch()
334 	wchar_t *s[3];  in getflags()
461 	Ap = argstk = xcalloc(stksize+3, sizeof (wchar_t *));  in initalloc()
462 	ipstk[0] = ipflr = ip = ibuf = xcalloc(bufsize+1, sizeof (wchar_t));  in initalloc()
463 	op = obuf = xcalloc(bufsize+1, sizeof (wchar_t));  in initalloc()
464 	token = xcalloc(toksize+1, sizeof (wchar_t));  in initalloc()
466 	astklm = (wchar_t *)(&argstk[stksize]);  in initalloc()
472 		wchar_t	p[2] = {0, EOS};  in initalloc()
481 install(wchar_t *nam, wchar_t *val, int mode)  in install()
484 	wchar_t	*cp;  in install()
507 lookup(wchar_t *str)  in lookup()
509 	wchar_t	*s1;  in lookup()
528 expand(wchar_t **a1, int c)  in expand()
530 	wchar_t	*dp;  in expand()
570 				wchar_t **a = a1;  in expand()
677 puttok(wchar_t *tp)  in puttok()
690 pbstr(wchar_t *str)  in pbstr()
692 	wchar_t *p;  in pbstr()
715 				sputchr((wchar_t)c, cf);  in undiv()
718 				sputchr((wchar_t)c, cf);  in undiv()
774 static wchar_t
778 		return ((wchar_t)(i-10+'A'));  in itochr()
780 		return ((wchar_t)(i+'0'));  in itochr()
784 ctol(wchar_t *str)  in ctol()
918 			wchar_t	**aptr, **lim;  in error3()
942 static wchar_t *
943 chkbltin(wchar_t *s)  in chkbltin()
945 	static wchar_t buf[24];  in chkbltin()
948 		(void) swprintf(buf, sizeof (buf)/sizeof (wchar_t), L"<%ls>",  in chkbltin()
955 wchar_t
958 	static wchar_t C;  in getchr()
964 		C = (wchar_t)(myfeof(ifx) ? WEOF : myfgetwc(NULL, ifx));  in getchr()
966 		C = (wchar_t)(feof(ifile[ifx]) ?  in getchr()
996 sputchr(wchar_t c, FILE *f)  in sputchr()
1013 putchr(wchar_t c)  in putchr()
1036 wchar_t *
1037 wstrdup(wchar_t *p)  in wstrdup()
1040 	wchar_t *ret;  in wstrdup()
1042 	ret = xmalloc((len + 1) * sizeof (wchar_t));  in wstrdup()
1048 wstoi(wchar_t *p)  in wstoi()
1054 wstr2str(wchar_t *from, int alloc)  in wstr2str()
1097 wchar_t *
1100 	static wchar_t *retbuf;  in str2wstr()
1102 	wchar_t *p, *ret;  in str2wstr()
1105 		ret = p = xmalloc((strlen(from) + 1) * sizeof (wchar_t));  in str2wstr()
1109 			    (bsiz + 256) * sizeof (wchar_t))) == NULL) {  in str2wstr()
1121 			wchar_t wc;  in str2wstr()
1143 	wchar_t wc;  in myfgetwc()
1181 myfputwc(wchar_t wc, FILE *fp)  in myfputwc()