From 58ed8b00ee6f37cea60b99fe544b4e30f627af36 Mon Sep 17 00:00:00 2001
From: Shigeyuki Fukushima <shige@FreeBSD.org>
Date: Sat, 15 Jan 2000 14:28:27 +0000
Subject: Add patches for supporting IPv6.

Obtained from:	sumikawa@ebina.hitachi.co.jp
---
 editors/emacs20-dl/files/patch-cg | 149 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 149 insertions(+)
 create mode 100644 editors/emacs20-dl/files/patch-cg

(limited to 'editors/emacs20-dl')

diff --git a/editors/emacs20-dl/files/patch-cg b/editors/emacs20-dl/files/patch-cg
new file mode 100644
index 000000000000..c0d8ff436c75
--- /dev/null
+++ b/editors/emacs20-dl/files/patch-cg
@@ -0,0 +1,149 @@
+--- src/process.c-dist	Fri Aug 14 22:51:44 1998
++++ src/process.c	Fri Jul 30 12:21:11 1999
+@@ -1,7 +1,18 @@
++/*
++ * Locally hacked process.c to add ipv6 support. -wsr
++ *
++ * The configure.in file should define "HAVE_GETADDRINFO" if it is found 
++ * in libc.
++ * 
++ */
++
+ /* Asynchronous subprocess control for GNU Emacs.
+    Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 96, 1998
+       Free Software Foundation, Inc.
+ 
++   ipv6 changes are
++   Copyright (C) 1999 Wolfgang S. Rupprecht
++
+ This file is part of GNU Emacs.
+ 
+ GNU Emacs is free software; you can redistribute it and/or modify
+@@ -1808,15 +1819,22 @@
+ {
+   Lisp_Object proc;
+   register int i;
++
++#ifndef HAVE_GETADDRINFO
+   struct sockaddr_in address;
+   struct servent *svc_info;
+   struct hostent *host_info_ptr, host_info;
+   char *(addr_list[2]);
+   IN_ADDR numeric_addr;
+-  int s, outch, inch;
+-  char errstring[80];
+-  int port;
+   struct hostent host_info_fixed;
++  int port;
++#else /* HAVE_GETADDRINFO */
++  struct addrinfo hints, *res, *lres;
++  int ret = 0;
++  int xerrno = 0;
++  char *portstring, portbuf [128];
++#endif /* HAVE_GETADDRINFO */
++  int s = -1, outch, inch;
+   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
+   int retry = 0;
+   int count = specpdl_ptr - specpdl;
+@@ -1829,6 +1847,22 @@
+   GCPRO4 (name, buffer, host, service);
+   CHECK_STRING (name, 0);
+   CHECK_STRING (host, 0);
++
++#ifdef HAVE_GETADDRINFO
++  /*
++   * caution: service can either be a string or int.
++   * Convert to a C string for later use by getaddrinfo.
++   */
++  if (INTEGERP (service)) {
++      snprintf (portbuf, sizeof (portbuf), "%d", XINT (service));
++      portstring = portbuf;
++  }
++  else
++    {
++      CHECK_STRING (service, 0);
++      portstring = XSTRING (service)->data;
++    }
++#else /* HAVE_GETADDRINFO */
+   if (INTEGERP (service))
+     port = htons ((unsigned short) XINT (service));
+   else
+@@ -1839,6 +1873,8 @@
+ 	error ("Unknown service \"%s\"", XSTRING (service)->data);
+       port = svc_info->s_port;
+     }
++#endif /* HAVE_GETADDRINFO */
++
+ 
+   /* Slow down polling to every ten seconds.
+      Some kernels have a bug which causes retrying connect to fail
+@@ -1848,6 +1884,62 @@
+ #endif
+ 
+ #ifndef TERM
++#ifdef HAVE_GETADDRINFO		/* We have a modern OS. -wsr */
++  {
++      immediate_quit = 1;
++      QUIT;
++      memset(&hints, 0, sizeof(hints));
++      hints.ai_flags = 0;
++      hints.ai_family = AF_UNSPEC;
++      hints.ai_socktype = SOCK_STREAM;
++      hints.ai_protocol = 0;
++      ret = getaddrinfo(XSTRING (host)->data, portstring, &hints, &res);
++      if (ret){
++	  error("%s/%s %s", XSTRING (host)->data, portstring,
++		gai_strerror(ret));
++      }
++      immediate_quit = 0;
++  }
++
++  for (lres = res; lres ; lres = lres->ai_next) { /* address loop */
++      s = socket(lres->ai_family, lres->ai_socktype, lres->ai_protocol);
++      if (s < 0) 
++	  continue;
++
++      /* Kernel bugs (on Ultrix at least) cause lossage (not just EINTR)
++	 when connect is interrupted.  So let's not let it get interrupted.
++	 Note we do not turn off polling, because polling is only used
++	 when not interrupt_input, and thus not normally used on the systems
++	 which have this bug.  On systems which use polling, there's no way
++	 to quit if polling is turned off.  */
++      if (interrupt_input)
++	  unrequest_sigio ();
++
++      immediate_quit = 1;
++      QUIT;
++
++      ret = connect(s, lres->ai_addr, lres->ai_addrlen);
++      if (ret){
++	  close(s);
++	  s= -1;
++	  continue;
++      }
++
++      break;
++  } /* address loop */
++
++  freeaddrinfo(res);
++  if (s < 0)
++  {
++      if (interrupt_input)
++	  request_sigio ();
++
++      errno = xerrno;
++      report_file_error ("connection failed",
++			 Fcons (host, Fcons (name, Qnil)));
++  }
++#else /* HAVE_GETADDRINFO */
++
+   while (1)
+     {
+ #ifdef TRY_AGAIN
+@@ -1938,6 +2030,7 @@
+       report_file_error ("connection failed",
+ 			 Fcons (host, Fcons (name, Qnil)));
+     }
++#endif /* HAVE_GETADDRINFO */
+ 
+   immediate_quit = 0;
-- 
cgit v1.2.3