===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/io/sio.c,v
retrieving revision 1.7
retrieving revision 1.9.2.2
diff -u -p -r1.7 -r1.9.2.2
--- OpenXM_contrib2/asir2000/io/sio.c	2000/09/23 00:57:43	1.7
+++ OpenXM_contrib2/asir2000/io/sio.c	2000/11/08 08:31:55	1.9.2.2
@@ -44,7 +44,7 @@
  * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
- * $OpenXM: OpenXM_contrib2/asir2000/io/sio.c,v 1.6 2000/08/22 05:04:18 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/io/sio.c,v 1.9.2.1 2000/11/08 08:18:14 maekawa Exp $ 
 */
 #if INET
 #include "ca.h"
@@ -65,6 +65,7 @@
 
 extern int little_endian;
 
+int I_am_server;
 struct IOFP iofp[MAXIOFP];
 
 #if !defined(_PA_RISC1_1)
@@ -85,17 +86,21 @@ void getremotename(s,name)
 int s;
 char *name;
 {
-	struct sockaddr_in peer;
-	struct hostent *hp;
-	int peerlen;
+	union {
+		struct sockaddr sa;
+		char data[SOCK_MAXADDRLEN];
+	} dummy;
+	struct sockaddr *sa;
+	socklen_t len;
+	char host[NI_MAXHOST];
+	int rs;
 
-	peerlen = sizeof(peer);
-	getpeername(getremotesocket(s),(struct sockaddr *)&peer,&peerlen);
-	hp = gethostbyaddr((char *)&peer.sin_addr,sizeof(struct in_addr),AF_INET);
-	if ( hp )
-		strcpy(name,hp->h_name);
-	else
-		strcpy(name,(char *)inet_ntoa(peer.sin_addr));
+	rs = getremotesocket(s);
+	len = SOCK_MAXADDRLEN;
+	getpeername(rs, (struct sockaddr *)dummy.data, &len);
+	sa = &(dummy.sa);
+	getnameinfo(sa, sa->sa_len, host, sizeof(host), NULL, 0, 0);
+	strcpy(name, host);
 }
 
 int generate_port(use_unix,port_str)
@@ -107,11 +112,14 @@ char *port_str;
 	unsigned int port;
 	static int count=0;
 
+#if !defined(VISUAL)
 	if ( use_unix ) {
 		sprintf(port_str,"/tmp/ox%02x.XXXXXX",count);
 		count++;
 		mktemp(port_str);
-	} else {
+	} else 
+#endif
+	{
 		port = ((unsigned int)mt_genrand()+(unsigned int)get_current_time())
 			%(65536-1024)+1024;
 		sprintf(port_str,"%d",port);
@@ -122,64 +130,62 @@ int try_bind_listen(use_unix,port_str)
 int use_unix;
 char *port_str;
 {
-	struct sockaddr_in sin;
-	struct sockaddr *saddr;
-	int len;
-	int service;
-#if !defined(VISUAL)
-	struct sockaddr_un s_un;
+	struct addrinfo hints, *res, *ai;
+	int s, error;
+	char *errstr;
 
-	if ( use_unix ) {
-		service = socket(AF_UNIX, SOCK_STREAM, 0);
-		if (service < 0) {
-			perror("in socket");
-			return -1;
-		}
-		s_un.sun_family = AF_UNIX;
-		strcpy(s_un.sun_path,port_str);
-#if defined(__FreeBSD__)
-		len = SUN_LEN(&s_un);
-		s_un.sun_len = len+1; /* XXX */
+	memset(&hints, 0, sizeof(hints));
+#if defined(VISUAL)
+	hints.ai_family = PF_UNSPEC;
 #else
-		len = strlen(s_un.sun_path)+sizeof(s_un.sun_family);
-#endif
-		saddr = (struct sockaddr *)&s_un;
-	} else 
-#endif
-	{
-		service = socket(AF_INET, SOCK_STREAM, 0);
-		if ( service < 0 ) {
-			perror("in socket");
-			return -1;
+	if (use_unix)
+		hints.ai_family = PF_UNIX;
+	else
+		hints.ai_family = PF_UNSPEC;
+#endif /* VISUAL */
+	hints.ai_socktype = SOCK_STREAM;
+
+	error = getaddrinfo(NULL, port_str, &hints, &res);
+	if (error) {
+		warnx("try_bind_listen(): %s", gai_strerror(error));
+		return (-1);
+	}
+
+	for (ai = res ; ai != NULL ; ai = ai->ai_next) {
+		if ((s = socket(ai->ai_family, ai->ai_socktype,
+				ai->ai_protocol)) < 0 ) {
+			errstr = "in socket";
+			continue;
 		}
-		sin.sin_family = AF_INET; sin.sin_addr.s_addr = INADDR_ANY;
-		sin.sin_port = htons(atoi(port_str));
-		len = sizeof(sin);
-		saddr = (struct sockaddr *)&sin;
+
+		if (bind(s, ai->ai_addr, ai->ai_addrlen) < 0) {
+			errstr = "in bind";
+			close(s);
+			s = -1;
+			continue;
+		}
+
+		if (listen(s, SOCKQUEUELENGTH) < 0) {
+			errstr = "in listen";
+			close(s);
+			s = -1;
+			continue;
+		}
+
+		/* established connection */
+		break;
 	}
-	if (bind(service, saddr, len) < 0) {
-		perror("in bind");
-		close(service);
-		return -1;
-	}
-	if (getsockname(service,saddr, &len) < 0) {
-	    perror("in getsockname");
-	    close(service);
-	    return -1;
-	}
-	if (listen(service, SOCKQUEUELENGTH) < 0) {
-		perror("in listen");
-		close(service);
-		return -1;
-	}
-	return service;
+	freeaddrinfo(res);
+
+	if (s < 0)
+		perror(errstr);
+	return (s);
 }
 
 /*
   try to accept a connection request
 
   Input
-    af_unix: s is UNIX domain socket if af_unix is nonzero
     s: socket
 
   Output
@@ -189,99 +195,94 @@ char *port_str;
   the original socket is always closed.
 */
 
-int try_accept(af_unix,s)
-int af_unix,s;
+int try_accept(s)
+int s;
 {
-	int len,c,i;
-	struct sockaddr_in sin;
+	union {
+		struct sockaddr sa;
+		char data[SOCK_MAXADDRLEN];
+	} dummy;
+	socklen_t len;
+	int c, i;
 
-#if !defined(VISUAL)
-	struct sockaddr_un s_un;
-	if ( af_unix ) {
-		len = sizeof(s_un);
-		for ( c = -1, i = 0; (c < 0)&&(i = 10) ; i++ )
-			c = accept(s, (struct sockaddr *) &s_un, &len);
-	} else 
-#endif
-	{
+	len = SOCK_MAXADDRLEN;
+	if (getsockname(s, (struct sockaddr *)dummy.data, &len) < 0) {
+		close(s);
+		return (-1)
+	}
 
-		len = sizeof(sin);
-		for ( c = -1, i = 0; (c < 0)&&(i = 10) ; i++ )
-			c = accept(s, (struct sockaddr *) &sin, &len);
+	for (i = 0 ; i < 10 ; i++) {
+		c = accept(s, &(dummy.sa), &len);
+		if (c >= 0) {
+			close(s);
+			return (c);
+		}
 	}
-	if ( i == 10 )
-		c = -1;
+
 	close(s);
-	return c;
+	return (-1);
 }
 
 int try_connect(use_unix,host,port_str)
 int use_unix;
 char *host,*port_str;
 {
-	struct sockaddr_in sin;
-	struct sockaddr *saddr;
-	struct hostent *hp;
-	int len,s,i;
-#if !defined(VISUAL)
-	struct sockaddr_un s_un;
-#endif
+	struct addrinfo hints, *res, *ai;
+	int s, error, i;
+	char *errstr;
 
-	for ( i = 0; i < 10; i++ ) {
-#if !defined(VISUAL)
-		if ( use_unix ) {
-			if ( (s = socket(AF_UNIX,SOCK_STREAM,0)) < 0 ) {
-				perror("socket");
-				return -1;
-			}
-			bzero(&s_un,sizeof(s_un));
-			s_un.sun_family = AF_UNIX;
-			strcpy(s_un.sun_path,port_str);
-#if defined(__FreeBSD__)
-			len = SUN_LEN(&s_un);
-			s_un.sun_len = len+1; /* XXX */
+	memset(&hints, 0, sizeof(hints));
+#if defined(VISUAL)
+	hints.ai_family = PF_UNSPEC;
 #else
-			len = strlen(s_un.sun_path)+sizeof(s_un.sun_family);
-#endif
-			saddr = (struct sockaddr *)&s_un;
-		} else 
+	if (use_unix)
+		hints.ai_family = PF_UNIX;
+	else
+		hints.ai_family = PF_UNSPEC;
 #endif /* VISUAL */
-		{
-			if ( (s = socket(AF_INET,SOCK_STREAM,0)) < 0 ) {
-				perror("socket");
-				return -1;
+	hints.ai_socktype = SOCK_STREAM;
+
+	error = getaddrinfo(host, port_str, &hints, &res);
+	if (error) {
+		warnx("try_connect: %s", gai_strerror(error));
+		return (-1);
+	}
+	for (i = 0 ; i < 10 ; i++) {
+		for (ai = res ; ai != NULL ; ai = ai->ai_next) {
+			if ((s = socket(ai->ai_family, ai->ai_socktype,
+					ai->ai_protocol)) < 0 ) {
+				errstr = "socket";
+				continue;
 			}
-			bzero(&sin,sizeof(sin));
-			sin.sin_port = htons(atoi(port_str));
-			sin.sin_addr.s_addr = inet_addr(host);
-			if ( sin.sin_addr.s_addr != -1 ) {
-				sin.sin_family = AF_INET;
-			} else {
-				hp = gethostbyname(host);
-				bcopy(hp->h_addr,&sin.sin_addr,hp->h_length);
-				sin.sin_family = hp->h_addrtype;
+			if (connect(s, ai->ai_addr, ai->ai_addrlen) < 0) {
+				errstr = "connect";
+				close(s);
+				s = -1;
+				continue;
 			}
-			len = sizeof(sin);
-			saddr = (struct sockaddr *)&sin;
-		}
-		if ( connect(s,saddr,len) >= 0 )
+
+			/* established a connection */
 			break;
-		else {
-			close(s);
+		}
+
+		if (s >= 0) {
+			freeaddrinfo(res);
+			return (s);
+		}
+
 #if defined(VISUAL)
-			Sleep(100);
+		Sleep(100);
 #else
-			usleep(100000);
+		usleep(100000);
 #endif
-		}
 	}
-	if ( i == 10 ) {
-		perror("connect");
-		return -1;
-	} else
-		return s;
+	freeaddrinfo(res);
+
+	perror(errstr);
+	return (-1);
 }
 
+#if 0
 close_allconnections()
 {
 	int s;
@@ -305,6 +306,12 @@ int s;
 		free_iofp(s);
 	}
 }
+#else
+close_allconnections()
+{
+	shutdown_all();
+}
+#endif
 
 free_iofp(s)
 int s;
@@ -416,4 +423,6 @@ int fd;
 			return i;
 	return -1;
 }
+
 #endif /* INET */
+