45 	register char*		k;  in pathkey()  local
65 		k = key;  in pathkey()
67 			*k++ = let[n & 0xf];  in pathkey()
68 		*k = 0;  in pathkey()
106 		if (k = getenv(PR_BASE))  in pathkey()
108 			if (s = strrchr(k, '/'))  in pathkey()
109 				k = s + 1;  in pathkey()
110 			n = memsum(k, strlen(k), n);  in pathkey()
115 		if ((k = getenv("VIRTUAL_ROOT")) && *k == '/')  in pathkey()
117 			n = memsum(k, strlen(k), n);  in pathkey()
119 				attr = strcopy(attr, k);  in pathkey()
129 		if (k = astconf("UNIVERSE", NiL, NiL))  in pathkey()
131 			n = memsum(k, strlen(k), n);  in pathkey()
133 				attr = strcopy(attr, k);  in pathkey()
151 		if (!(k = getenv("PROBE_ATTRIBUTES")))  in pathkey()
152 			k = getenv("VERSION_ENVIRONMENT");  in pathkey()
153 		if (k)  in pathkey()
156 				while (*k && (*k == ':' || *k == ' '))  in pathkey()
157 					k++;  in pathkey()
158 				if (!*k)  in pathkey()
160 				usr[c++] = k;  in pathkey()
161 				while (*k && *k != ':' && *k != ' ')  in pathkey()
162 					k++;  in pathkey()
166 		ver[1] = k = (s = strrchr(path, '/')) ? s + 1 : path;  in pathkey()
168 		if (isdigit(*k))  in pathkey()
170 			if (*k == '3' && *(k + 1) == 'b')  in pathkey()
176 				k += 2;  in pathkey()
184 		for (; (c = *k) && s < &buf[sizeof(buf) - 1]; k++)  in pathkey()
196 			for (k = *p; *k && *k == *s; k++, s++);  in pathkey()
197 			if (*k && !*s)  in pathkey()
202 						for (t = k; *t && *t != '=' && *t++ == *s; s++);  in pathkey()
213 				for (k = *p; *k && *s++ == *k; k++);  in pathkey()
214 				if ((s - buf) > 2 && k[0] == 'V' && k[1] == 'E' && k[2] == 'R' && k[3] == '=')  in pathkey()
223 					for (k = *p; *k && *k == *s; k++, s++);  in pathkey()
224 					if (*k == '=' && (!*s || *s == ':' || *s == ' '))  in pathkey()
233 			if (k = env[c])  in pathkey()
238 					while ((*attr++ = *k++) != '=');  in pathkey()
240 					attr = strcopy(attr, k);  in pathkey()
244 					while (*k && *k++ != '=');  in pathkey()
245 				n = memsum(k, strlen(k), n);  in pathkey()
251 				if (k = env[c])  in pathkey()
254 					while ((*attr = *k++) != '=')  in pathkey()
269 		k = key + 14;  in pathkey()
270 		*k = 0;  in pathkey()
286 				*--k = *s;  in pathkey()
287 				if (k <= key + 8)  in pathkey()
291 		while (k > key + 8)  in pathkey()
292 			*--k = '.';  in pathkey()