270 wdvarput(struct shf *shf, const char *wp, int quotelevel, int opmode)  in wdvarput()  argument
285 		switch (*wp++) {  in wdvarput()
287 			return (--wp);  in wdvarput()
290 			c = *wp++;  in wdvarput()
300 			c = *wp++;  in wdvarput()
316 			while ((c = *wp++) != 0)  in wdvarput()
322 			while ((c = *wp++) != 0)  in wdvarput()
341 			if (*wp++ == '{')  in wdvarput()
343 			while ((c = *wp++) != 0)  in wdvarput()
345 			wp = wdvarput(shf, wp, 0, opmode);  in wdvarput()
348 			if (*wp++ == '}')  in wdvarput()
350 			return (wp);  in wdvarput()
354 				shf_putchar(*wp++ | 0x80, shf);  in wdvarput()
356 				shf_putchar(*wp++, shf);  in wdvarput()
534 wdcopy(const char *wp, Area *ap)  in wdcopy()  argument
538 	len = wdscan(wp, EOS) - wp;  in wdcopy()
539 	return (memcpy(alloc(len, ap), wp, len));  in wdcopy()
544 wdscan(const char *wp, int c)  in wdscan()  argument
549 		switch (*wp++) {  in wdscan()
551 			return (wp);  in wdscan()
554 				return (wp + 1);  in wdscan()
558 			wp++;  in wdscan()
562 			while (*wp++ != 0)  in wdscan()
570 			while (*wp++ != '\0')  in wdscan()
574 			wp++;  in wdscan()
576 				return (wp);  in wdscan()
581 			wp++;  in wdscan()
585 			if (c == wp[-1] && nest == 0)  in wdscan()
586 				return (wp);  in wdscan()
587 			if (wp[-1] == CPAT)  in wdscan()
593 			    wp[-1]);  in wdscan()
602 wdstrip(const char *wp, int opmode)  in wdstrip()  argument
607 	wdvarput(&shf, wp, 0, opmode);  in wdstrip()
750 dumpwdvar_(struct shf *shf, const char *wp, int quotelevel)  in dumpwdvar_()  argument
755 		switch(*wp++) {  in dumpwdvar_()
758 			return (--wp);  in dumpwdvar_()
764 			dumpchar(shf, *wp++);  in dumpwdvar_()
768 			c = *wp++;  in dumpwdvar_()
777 			while ((c = *wp++) != 0)  in dumpwdvar_()
797 			dumpchar(shf, *wp++);  in dumpwdvar_()
799 			while ((c = *wp++) != 0)  in dumpwdvar_()
802 			wp = dumpwdvar_(shf, wp, 0);  in dumpwdvar_()
806 			dumpchar(shf, *wp++);  in dumpwdvar_()
808 			return (wp);  in dumpwdvar_()
811 			dumpchar(shf, *wp++);  in dumpwdvar_()
820 			shf_fprintf(shf, "INVAL<%u>", (uint8_t)wp[-1]);  in dumpwdvar_()
827 dumpwdvar(struct shf *shf, const char *wp)  in dumpwdvar()  argument
829 	dumpwdvar_(shf, wp, 0);  in dumpwdvar()