41 static char		*arpafix(char name[], char from[]);
43 static char		*makeremote(char name[], char from[]);
44 static int		mstash(char name[], int attnet);
51 static struct xtrahash	*xlocate(char name[]);
57 static void		optim(char net[], char name[]);
58 static void		optim1(char netstr[], char name[]);
59 static int		optimex(char net[], char name[]);
60 static int		optimimp(char net[], char name[]);
61 static void		prefer(char name[]);
73 netmap(char name[], char from[])  in netmap()  argument
78 	if (debug) fprintf(stderr, "netmap(name '%s', from '%s')\n", name, from);  in netmap()
80 		return(name);	/* "from" is empty - can't do anything */  in netmap()
82 	if (strcmp(from, name) == 0)  in netmap()
83 		return(name);	/* "from" and "name" are the same, do nothing */  in netmap()
89 	if (any('@', name) || any('%', name))  in netmap()
90 		return(arpafix(name, from));  in netmap()
99 		return(unuucp(makeremote(name, from)));  in netmap()
100 	if (value("onehop") && (cp = strchr(name, '!')) && cp > name) {  in netmap()
106 		nstrcpy(nbuf, sizeof (nbuf), name);  in netmap()
110 		name = tackon(lasthost(from), name);  in netmap()
111 		while (((cp = lasthost(from)) != 0) && ishost(cp, name)) {  in netmap()
112 			oname = name;  in netmap()
113 			name = strchr(name, '!') + 1;  in netmap()
116 				if (value("mustbang") && !strchr(name, '!'))  in netmap()
117 					name = oname;  in netmap()
118 				return(unuucp(name));  in netmap()
124 		snprintf(nbuf, sizeof (nbuf), "%s!%s", from, name);  in netmap()
126 	if (debug) fprintf(stderr, "before optim, nbuf '%s'\n", name);  in netmap()
137 	if (debug) fprintf(stderr, "wind up with '%s'\n", name);  in netmap()
138 	if (!icequal(name, cp))  in netmap()
140 	return(unuucp(name));  in netmap()
191 unuucp(char *name)  in unuucp()  argument
199 		return name;  in unuucp()
200 	if (debug) fprintf(stderr, "unuucp(%s)\n", name);  in unuucp()
201 	nstrcpy(tname, sizeof (tname), name);  in unuucp()
204 		return name;  in unuucp()
293 arpafix(char name[], char from[])  in arpafix()  argument
300 		fprintf(stderr, "arpafix(%s, %s)\n", name, from);  in arpafix()
302 	cp = strrchr(name, '@');  in arpafix()
304 		cp = strrchr(name, '%');  in arpafix()
308 		return(name);  in arpafix()
319 			    cp, name);  in arpafix()
320 		return(name);  in arpafix()
325 			    cp, name);  in arpafix()
326 		return(name);  in arpafix()
328 	nstrcpy(newname, sizeof (newname), name);  in arpafix()
343 makeremote(char name[], char from[])  in makeremote()  argument
349 		return(name);  in makeremote()
350 	if (debug) fprintf(stderr, "makeremote(%s, %s) returns ", name, from);  in makeremote()
354 	snprintf(rbuf, sizeof (rbuf), "%s%s", name, cp);  in makeremote()
422 mstash(char name[], int attnet)  in mstash()  argument
427 	xp = xlocate(name);  in mstash()
438 		xp->xh_name = savestr(name);  in mstash()
458 xlocate(char name[])  in xlocate()  argument
464 	for (h = 0, cp = name; *cp; h = (h << 2) + *cp++)  in xlocate()
469 	cp = name;  in xlocate()
546 optim(char net[], char name[])  in optim()  argument
552 	if (debug) fprintf(stderr, "optim(%s, %s) called\n", net, name);  in optim()
573 			nstrcpy(name, BUFSIZ, net);  in optim()
576 		stradd(name, BUFSIZ, c);  in optim()
577 		stradd(name, BUFSIZ, *cp++);  in optim()
598 	*name = '\0';  in optim()
607 		nstrcat(name, BUFSIZ, cp2);  in optim()
608 		stradd(name, BUFSIZ, *cp++);  in optim()
610 	nstrcat(name, BUFSIZ, netcomp);  in optim()
611 	if (debug) fprintf(stderr, "optim returns %s in name\n", name);  in optim()
622 optim1(char netstr[], char name[])  in optim1()  argument
630 	*name  = '\0';  in optim1()
660 			stradd(name, BUFSIZ, *cp2);  in optim1()
661 			stradd(name, BUFSIZ, nc);  in optim1()
664 	optiboth(name);  in optim1()
665 	prefer(name);  in optim1()
711 optimex(char net[], char name[])  in optimex()  argument
716 	nstrcpy(name, STSIZ, net);  in optimex()
717 	cp = name;  in optimex()
721 		name[0] = 0;  in optimex()
724 	for (cp = name; *cp; cp++) {  in optimex()
738 optimimp(char net[], char name[])  in optimimp()  argument
748 		*name = '\0';  in optimimp()
751 	name[0] = m;  in optimimp()
752 	name[1] = 0;  in optimimp()
809 prefer(char name[])  in prefer()  argument
815 	for (cp = name; *cp; cp += 2) {  in prefer()
871 	if (name())  in revarpa()
892 name(void)  in name()  function
910 			if (name())  in name()