301 wdvarput(struct shf *shf, const char *wp, int quotelevel, int opmode)  in wdvarput()  argument
317 		switch (*wp++) {  in wdvarput()
319 			return (--wp);  in wdvarput()
321 			if (*wp == /*{*/'}') {  in wdvarput()
322 				++wp;  in wdvarput()
326 			c = *wp++;  in wdvarput()
332 			c = *wp++;  in wdvarput()
349 			while ((c = *wp++) != 0)  in wdvarput()
383 			if (*wp++ == '{')  in wdvarput()
385 			while ((c = *wp++) != 0)  in wdvarput()
387 			wp = wdvarput(shf, wp, 0, opmode);  in wdvarput()
390 			if (*wp++ == '}') {  in wdvarput()
394 			return (wp);  in wdvarput()
396 			shf_putchar(*wp++, shf);  in wdvarput()
571 wdcopy(const char *wp, Area *ap)  in wdcopy()  argument
575 	len = wdscan(wp, EOS) - wp;  in wdcopy()
576 	return (memcpy(alloc(len, ap), wp, len));  in wdcopy()
581 wdscan(const char *wp, int c)  in wdscan()  argument
586 		switch (*wp++) {  in wdscan()
588 			return (wp);  in wdscan()
591 				return (wp + 1);  in wdscan()
592 			if (*wp == /*{*/'}')  in wdscan()
597 			wp++;  in wdscan()
603 			while (*wp++ != 0)  in wdscan()
611 			while (*wp++ != '\0')  in wdscan()
616 			wp++;  in wdscan()
618 				return (wp);  in wdscan()
623 			wp++;  in wdscan()
627 			if (c == wp[-1] && nest == 0)  in wdscan()
628 				return (wp);  in wdscan()
629 			if (wp[-1] == CPAT)  in wdscan()
635 			    wp[-1]);  in wdscan()
644 wdstrip(const char *wp, int opmode)  in wdstrip()  argument
649 	wdvarput(&shf, wp, 0, opmode);  in wdstrip()
809 dumpwdvar_i(struct shf *shf, const char *wp, int quotelevel)  in dumpwdvar_i()  argument
814 		switch(*wp++) {  in dumpwdvar_i()
817 			return (--wp);  in dumpwdvar_i()
819 			if (*wp == /*{*/'}') {  in dumpwdvar_i()
821 				return (wp + 1);  in dumpwdvar_i()
827 			dumpchar(shf, *wp++);  in dumpwdvar_i()
831 			c = *wp++;  in dumpwdvar_i()
840 			while ((c = *wp++) != 0)  in dumpwdvar_i()
866 			dumpchar(shf, *wp++);  in dumpwdvar_i()
868 			while ((c = *wp++) != 0)  in dumpwdvar_i()
871 			wp = dumpwdvar_i(shf, wp, 0);  in dumpwdvar_i()
875 			dumpchar(shf, *wp++);  in dumpwdvar_i()
877 			return (wp);  in dumpwdvar_i()
880 			dumpchar(shf, *wp++);  in dumpwdvar_i()
889 			shf_fprintf(shf, "INVAL<%u>", (uint8_t)wp[-1]);  in dumpwdvar_i()
896 dumpwdvar(struct shf *shf, const char *wp)  in dumpwdvar()  argument
898 	dumpwdvar_i(shf, wp, 0);  in dumpwdvar()