383 	Char *p, *q;  in dgoto()  local
386 	for (p = dcwd->di_name; *p++;)  in dgoto()
388 	if ((cwdlen = (size_t)(p - dcwd->di_name - 1)) == 1)	/* root */  in dgoto()
390 	for (p = cp; *p++;)  in dgoto()
392 	dp = xmalloc((size_t)(cwdlen + (size_t)(p - cp) + 1) * sizeof(Char));  in dgoto()
393 	for (p = dp, q = dcwd->di_name; (*p++ = *q++) != '\0';)  in dgoto()
396 	    p[-1] = '/';  in dgoto()
398 	    p--;		/* don't add a / after root */  in dgoto()
399 	for (q = cp; (*p++ = *q++) != '\0';)  in dgoto()
442 	Char *p;  in dfollow()  local
446 	    for (dp = buf, p = *cdp; (*dp++ = *p++) != '\0';)  in dfollow()
449 	    for (p = cp; (*dp++ = *p++) != '\0';)  in dfollow()
560     struct directory *dp, *p = NULL;  in dopopd()  local
575 	if ((p = dp->di_prev) == &dhead)  in dopopd()
576 	    p = dhead.di_prev;  in dopopd()
577 	if (chdir(tmp = short2str(p->di_name)) < 0)  in dopopd()
583 	dnewcwd(p);  in dopopd()
612 dcanon(Char *cp, Char *p)  in dcanon()  argument
638 	cp = p = Strsave(tmpdir);  in dcanon()
641     while (*p) {		/* for each component */  in dcanon()
642 	sp = p;			/* save slash address */  in dcanon()
643 	while (*++p == '/')	/* flush extra slashes */  in dcanon()
645 	if (p != ++sp)  in dcanon()
646 	    for (p1 = sp, p2 = p; (*p1++ = *p2++) != '\0';)  in dcanon()
648 	p = sp;			/* save start of component */  in dcanon()
650 	while (*++p)		/* find next slash or end of path */  in dcanon()
651 	    if (*p == '/') {  in dcanon()
653 		*p = 0;  in dcanon()
664 		for (p1 = sp, p2 = p + 1; (*p1++ = *p2++) != '\0';)  in dcanon()
666 		p = --sp;  in dcanon()
686 		    *p = '/';  in dcanon()
690 		*(p = sp) = '/';  in dcanon()
694 		for (p1 = p; *p1++;)  in dcanon()
709 		        (size_t)((sp - cp) + cc + (p1 - p)) * sizeof(Char));  in dcanon()
717 		    for (p1--, p2 = p; (*p1++ = *p2++) != '\0';)  in dcanon()
722 		    p = sp - cp - 1 + newcp;  in dcanon()
729 		        (size_t)(cc + (p1 - p)) * sizeof(Char));  in dcanon()
735 		    for (p1--, p2 = p; (*p1++ = *p2++) != '\0';)  in dcanon()
740 		    p = newcp;  in dcanon()
751 		for (p1 = sp + 1, p2 = p + 1; (*p1++ = *p2++) != '\0';)  in dcanon()
753 		p = sp;  in dcanon()
772 		    *p = '/';  in dcanon()
777 		sp = p;  in dcanon()
782 		for (p1 = p; *p1++;)  in dcanon()
798 		        (size_t)((sp - cp) + cc + (p1 - p)) * sizeof(Char));  in dcanon()
806 		    for (p1--, p2 = p; (*p1++ = *p2++) != '\0';)  in dcanon()
811 		    p = sp - cp - 1 + newcp;  in dcanon()
818 		        (size_t)(cc + (p1 - p)) * sizeof(Char));  in dcanon()
824 		    for (p1--, p2 = p; (*p1++ = *p2++) != '\0';)  in dcanon()
829 		    p = newcp;  in dcanon()
836 		*p = '/';  in dcanon()