302 wdvarput(struct shf *shf, const char *wp, int quotelevel, int opmode)  in wdvarput()  argument
318 		switch (*wp++) {  in wdvarput()
320 			return (--wp);  in wdvarput()
323 			c = *wp++;  in wdvarput()
333 			c = *wp++;  in wdvarput()
351 			while ((c = *wp++) != 0)  in wdvarput()
385 			if (*wp++ == '{')  in wdvarput()
387 			while ((c = *wp++) != 0)  in wdvarput()
389 			wp = wdvarput(shf, wp, 0, opmode);  in wdvarput()
392 			if (*wp++ == '}')  in wdvarput()
394 			return (wp);  in wdvarput()
398 				shf_putchar(*wp++ | 0x80, shf);  in wdvarput()
400 				shf_putchar(*wp++, shf);  in wdvarput()
578 wdcopy(const char *wp, Area *ap)  in wdcopy()  argument
582 	len = wdscan(wp, EOS) - wp;  in wdcopy()
583 	return (memcpy(alloc(len, ap), wp, len));  in wdcopy()
588 wdscan(const char *wp, int c)  in wdscan()  argument
593 		switch (*wp++) {  in wdscan()
595 			return (wp);  in wdscan()
598 				return (wp + 1);  in wdscan()
602 			wp++;  in wdscan()
608 			while (*wp++ != 0)  in wdscan()
616 			while (*wp++ != '\0')  in wdscan()
620 			wp++;  in wdscan()
622 				return (wp);  in wdscan()
627 			wp++;  in wdscan()
631 			if (c == wp[-1] && nest == 0)  in wdscan()
632 				return (wp);  in wdscan()
633 			if (wp[-1] == CPAT)  in wdscan()
639 			    wp[-1]);  in wdscan()
648 wdstrip(const char *wp, int opmode)  in wdstrip()  argument
653 	wdvarput(&shf, wp, 0, opmode);  in wdstrip()
815 dumpwdvar_i(struct shf *shf, const char *wp, int quotelevel)  in dumpwdvar_i()  argument
820 		switch(*wp++) {  in dumpwdvar_i()
823 			return (--wp);  in dumpwdvar_i()
829 			dumpchar(shf, *wp++);  in dumpwdvar_i()
833 			c = *wp++;  in dumpwdvar_i()
842 			while ((c = *wp++) != 0)  in dumpwdvar_i()
868 			dumpchar(shf, *wp++);  in dumpwdvar_i()
870 			while ((c = *wp++) != 0)  in dumpwdvar_i()
873 			wp = dumpwdvar_i(shf, wp, 0);  in dumpwdvar_i()
877 			dumpchar(shf, *wp++);  in dumpwdvar_i()
879 			return (wp);  in dumpwdvar_i()
882 			dumpchar(shf, *wp++);  in dumpwdvar_i()
891 			shf_fprintf(shf, "INVAL<%u>", (uint8_t)wp[-1]);  in dumpwdvar_i()
898 dumpwdvar(struct shf *shf, const char *wp)  in dumpwdvar()  argument
900 	dumpwdvar_i(shf, wp, 0);  in dumpwdvar()