44 static char		*arpafix(char name[], char from[]);
46 static char		*makeremote(char name[], char from[]);
47 static int		mstash(char name[], int attnet);
54 static struct xtrahash	*xlocate(char name[]);
60 static void		optim(char net[], char name[]);
61 static void		optim1(char netstr[], char name[]);
62 static int		optimex(char net[], char name[]);
63 static int		optimimp(char net[], char name[]);
64 static void		prefer(char name[]);
76 netmap(char name[], char from[])  in netmap()  argument
81 	if (debug) fprintf(stderr, "netmap(name '%s', from '%s')\n", name, from);  in netmap()
83 		return(name);	/* "from" is empty - can't do anything */  in netmap()
85 	if (strcmp(from, name) == 0)  in netmap()
86 		return(name);	/* "from" and "name" are the same, do nothing */  in netmap()
92 	if (any('@', name) || any('%', name))  in netmap()
93 		return(arpafix(name, from));  in netmap()
102 		return(unuucp(makeremote(name, from)));  in netmap()
103 	if (value("onehop") && (cp = strchr(name, '!')) && cp > name) {  in netmap()
109 		nstrcpy(nbuf, sizeof (nbuf), name);  in netmap()
113 		name = tackon(lasthost(from), name);  in netmap()
114 		while (((cp = lasthost(from)) != 0) && ishost(cp, name)) {  in netmap()
115 			oname = name;  in netmap()
116 			name = strchr(name, '!') + 1;  in netmap()
119 				if (value("mustbang") && !strchr(name, '!'))  in netmap()
120 					name = oname;  in netmap()
121 				return(unuucp(name));  in netmap()
127 		snprintf(nbuf, sizeof (nbuf), "%s!%s", from, name);  in netmap()
129 	if (debug) fprintf(stderr, "before optim, nbuf '%s'\n", name);  in netmap()
140 	if (debug) fprintf(stderr, "wind up with '%s'\n", name);  in netmap()
141 	if (!icequal(name, cp))  in netmap()
143 	return(unuucp(name));  in netmap()
194 unuucp(char *name)  in unuucp()  argument
202 		return name;  in unuucp()
203 	if (debug) fprintf(stderr, "unuucp(%s)\n", name);  in unuucp()
204 	nstrcpy(tname, sizeof (tname), name);  in unuucp()
207 		return name;  in unuucp()
296 arpafix(char name[], char from[])  in arpafix()  argument
303 		fprintf(stderr, "arpafix(%s, %s)\n", name, from);  in arpafix()
305 	cp = strrchr(name, '@');  in arpafix()
307 		cp = strrchr(name, '%');  in arpafix()
311 		return(name);  in arpafix()
322 			    cp, name);  in arpafix()
323 		return(name);  in arpafix()
328 			    cp, name);  in arpafix()
329 		return(name);  in arpafix()
331 	nstrcpy(newname, sizeof (newname), name);  in arpafix()
346 makeremote(char name[], char from[])  in makeremote()  argument
352 		return(name);  in makeremote()
353 	if (debug) fprintf(stderr, "makeremote(%s, %s) returns ", name, from);  in makeremote()
357 	snprintf(rbuf, sizeof (rbuf), "%s%s", name, cp);  in makeremote()
425 mstash(char name[], int attnet)  in mstash()  argument
430 	xp = xlocate(name);  in mstash()
441 		xp->xh_name = savestr(name);  in mstash()
461 xlocate(char name[])  in xlocate()  argument
467 	for (h = 0, cp = name; *cp; h = (h << 2) + *cp++)  in xlocate()
472 	cp = name;  in xlocate()
549 optim(char net[], char name[])  in optim()  argument
555 	if (debug) fprintf(stderr, "optim(%s, %s) called\n", net, name);  in optim()
576 			nstrcpy(name, BUFSIZ, net);  in optim()
579 		stradd(name, BUFSIZ, c);  in optim()
580 		stradd(name, BUFSIZ, *cp++);  in optim()
601 	*name = '\0';  in optim()
610 		nstrcat(name, BUFSIZ, cp2);  in optim()
611 		stradd(name, BUFSIZ, *cp++);  in optim()
613 	nstrcat(name, BUFSIZ, netcomp);  in optim()
614 	if (debug) fprintf(stderr, "optim returns %s in name\n", name);  in optim()
625 optim1(char netstr[], char name[])  in optim1()  argument
633 	*name  = '\0';  in optim1()
663 			stradd(name, BUFSIZ, *cp2);  in optim1()
664 			stradd(name, BUFSIZ, nc);  in optim1()
667 	optiboth(name);  in optim1()
668 	prefer(name);  in optim1()
714 optimex(char net[], char name[])  in optimex()  argument
719 	nstrcpy(name, STSIZ, net);  in optimex()
720 	cp = name;  in optimex()
724 		name[0] = 0;  in optimex()
727 	for (cp = name; *cp; cp++) {  in optimex()
741 optimimp(char net[], char name[])  in optimimp()  argument
751 		*name = '\0';  in optimimp()
754 	name[0] = m;  in optimimp()
755 	name[1] = 0;  in optimimp()
812 prefer(char name[])  in prefer()  argument
818 	for (cp = name; *cp; cp += 2) {  in prefer()
874 	if (name())  in revarpa()
895 name(void)  in name()  function
913 			if (name())  in name()