emacs: src/process.c comparison

comparison src/process.c @ 90261:7beb78bc1f8e

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-97 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 616-696) - Add lisp/mh-e/.arch-inventory - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: lisp/smerge-mode.el: Add 'tools' to file keywords. - lisp/gnus/ChangeLog: Remove duplicate entry * gnus--rel--5.10 (patch 147-181) - Update from CVS - Merge from emacs--cvs-trunk--0 - Update from CVS: lisp/mml.el (mml-preview): Doc fix. - Update from CVS: texi/message.texi: Fix default values. - Update from CVS: texi/gnus.texi (RSS): Addition.

author	Miles Bader <miles@gnu.org>
date	Mon, 16 Jan 2006 08:37:27 +0000
parents	aa89c814f853 e5c85a134e67
children	c5406394f567

comparison

equal deleted inserted replaced

-:0ca0d9181b5e
+:7beb78bc1f8e
 #include <errno.h>
 #include <setjmp.h>
 #include <sys/types.h>		/* some typedefs are used in sys/file.h */
 #include <sys/file.h>
 #include <sys/stat.h>
+#ifdef HAVE_INTTYPES_H
+#include <inttypes.h>
+#endif
 #ifdef HAVE_UNISTD_H
 #include <unistd.h>
 #endif
 #if defined(WINDOWSNT) || defined(UNIX98_PTYS)
 #include <sys/sysmacros.h>	/* for "minor" */
 #endif /* not IRIS */
 #ifdef HAVE_SYS_WAIT
 #include <sys/wait.h>
+#endif
+/* Disable IPv6 support for w32 until someone figures out how to do it
+properly.  */
+#ifdef WINDOWSNT
+# ifdef AF_INET6
+#  undef AF_INET6
+# endif
 #endif
 #include "lisp.h"
 #include "systime.h"
 #include "systty.h"
 #include "atimer.h"
 Lisp_Object Qprocessp;
 Lisp_Object Qrun, Qstop, Qsignal;
 Lisp_Object Qopen, Qclosed, Qconnect, Qfailed, Qlisten;
-Lisp_Object Qlocal, Qdatagram;
+Lisp_Object Qlocal, Qipv4, Qdatagram;
+#ifdef AF_INET6
+Lisp_Object Qipv6;
+#endif
 Lisp_Object QCname, QCbuffer, QChost, QCservice, QCtype;
 Lisp_Object QClocal, QCremote, QCcoding;
 Lisp_Object QCserver, QCnowait, QCnoquery, QCstop;
 Lisp_Object QCsentinel, QClog, QCoptions, QCplist;
 Lisp_Object QCfilter_multibyte;
 #ifdef HAVE_SOCKETS
 DEFUN ("format-network-address", Fformat_network_address, Sformat_network_address,
 1, 2, 0,
 doc: /* Convert network ADDRESS from internal format to a string.
+A 4 or 5 element vector represents an IPv4 address (with port number).
+An 8 or 9 element vector represents an IPv6 address (with port number).
 If optional second argument OMIT-PORT is non-nil, don't include a port
-number in the string; in this case, interpret a 4 element vector as an
+number in the string, even when present in ADDRESS.
-IP address.  Returns nil if format of ADDRESS is invalid.  */)
+Returns nil if format of ADDRESS is invalid.  */)
 (address, omit_port)
 Lisp_Object address, omit_port;
 {
 if (NILP (address))
 return Qnil;
 if (STRINGP (address))  /* AF_LOCAL */
 return address;
-if (VECTORP (address))  /* AF_INET */
+if (VECTORP (address))  /* AF_INET or AF_INET6 */
 {
 register struct Lisp_Vector *p = XVECTOR (address);
 Lisp_Object args[6];
 int nargs, i;
-if (!NILP (omit_port) && (p->size == 4 || p->size == 5))
+if (p->size == 4 || (p->size == 5 && !NILP (omit_port)))
 	{
 	  args[0] = build_string ("%d.%d.%d.%d");
 	  nargs = 4;
 	}
 else if (p->size == 5)
 	{
 	  args[0] = build_string ("%d.%d.%d.%d:%d");
 	  nargs = 5;
+	}
+else if (p->size == 8 || (p->size == 9 && !NILP (omit_port)))
+	{
+	  args[0] = build_string ("%x:%x:%x:%x:%x:%x:%x:%x");
+	  nargs = 8;
+	}
+else if (p->size == 9)
+	{
+	  args[0] = build_string ("[%x:%x:%x:%x:%x:%x:%x:%x]:%d");
+	  nargs = 9;
 	}
 else
 	return Qnil;
 for (i = 0; i < nargs; i++)
 	p = XVECTOR (address);
 	p->contents[--len] = make_number (ntohs (sin->sin_port));
 	cp = (unsigned char *)&sin->sin_addr;
 	break;
 }
+#ifdef AF_INET6
+case AF_INET6:
+{
+	struct sockaddr_in6 *sin6 = (struct sockaddr_in6 *) sa;
+	uint16_t *ip6 = (uint16_t *)&sin6->sin6_addr;
+	len = sizeof (sin6->sin6_addr)/2 + 1;
+	address = Fmake_vector (make_number (len), Qnil);
+	p = XVECTOR (address);
+	p->contents[--len] = make_number (ntohs (sin6->sin6_port));
+	for (i = 0; i < len; i++)
+	  p->contents[i] = make_number (ntohs (ip6[i]));
+	return address;
+}
+#endif
 #ifdef HAVE_LOCAL_SOCKETS
 case AF_LOCAL:
 {
 	struct sockaddr_un *sockun = (struct sockaddr_un *) sa;
 	for (i = 0; i < sizeof (sockun->sun_path); i++)
 if (p->size == 5)
 	{
 	  *familyp = AF_INET;
 	  return sizeof (struct sockaddr_in);
 	}
+#ifdef AF_INET6
+else if (p->size == 9)
+	{
+	  *familyp = AF_INET6;
+	  return sizeof (struct sockaddr_in6);
+	}
+#endif
 }
 #ifdef HAVE_LOCAL_SOCKETS
 else if (STRINGP (address))
 {
 *familyp = AF_LOCAL;
 	  len = sizeof (sin->sin_addr) + 1;
 	  i = XINT (p->contents[--len]);
 	  sin->sin_port = htons (i);
 	  cp = (unsigned char *)&sin->sin_addr;
 	}
+#ifdef AF_INET6
+else if (family == AF_INET6)
+	{
+	  struct sockaddr_in6 *sin6 = (struct sockaddr_in6 *) sa;
+	  uint16_t *ip6 = (uint16_t *)&sin6->sin6_addr;
+	  len = sizeof (sin6->sin6_addr) + 1;
+	  i = XINT (p->contents[--len]);
+	  sin6->sin6_port = htons (i);
+	  for (i = 0; i < len; i++)
+	    if (INTEGERP (p->contents[i]))
+	      {
+		int j = XFASTINT (p->contents[i]) & 0xffff;
+		ip6[i] = ntohs (j);
+	      }
+	  return;
+	}
+#endif
 }
 else if (STRINGP (address))
 {
 #ifdef HAVE_LOCAL_SOCKETS
 if (family == AF_LOCAL)
 :type TYPE -- TYPE is the type of connection.  The default (nil) is a
 stream type connection, `datagram' creates a datagram type connection.
 :family FAMILY -- FAMILY is the address (and protocol) family for the
-service specified by HOST and SERVICE.  The default address family is
+service specified by HOST and SERVICE.  The default (nil) is to use
-Inet (or IPv4) for the host and port number specified by HOST and
+whatever address family (IPv4 or IPv6) that is defined for the host
-SERVICE.  Other address families supported are:
+and port number specified by HOST and SERVICE.  Other address families
+supported are:
 local -- for a local (i.e. UNIX) address specified by SERVICE.
+ipv4  -- use IPv4 address family only.
+ipv6  -- use IPv6 address family only.
 :local ADDRESS -- ADDRESS is the local address used for the connection.
 This parameter is ignored when opening a client process. When specified
 for a server process, the FAMILY, HOST and SERVICE args are ignored.
 Lisp_Object proc;
 Lisp_Object contact;
 struct Lisp_Process *p;
 #ifdef HAVE_GETADDRINFO
 struct addrinfo ai, *res, *lres;
 struct addrinfo hints;
 char *portstring, portbuf[128];
 #else /* HAVE_GETADDRINFO */
 struct _emacs_addrinfo
 {
 int ai_family;
 int ai_socktype;
 goto open_socket;
 }
 /* :family FAMILY -- nil (for Inet), local, or integer.  */
 tem = Fplist_get (contact, QCfamily);
-if (INTEGERP (tem))
+if (NILP (tem))
+{
+#if defined(HAVE_GETADDRINFO) && defined(AF_INET6)
+family = AF_UNSPEC;
+#else
+family = AF_INET;
+#endif
+}
+#ifdef HAVE_LOCAL_SOCKETS
+else if (EQ (tem, Qlocal))
+family = AF_LOCAL;
+#endif
+#ifdef AF_INET6
+else if (EQ (tem, Qipv6))
+family = AF_INET6;
+#endif
+else if (EQ (tem, Qipv4))
+family = AF_INET;
+else if (INTEGERP (tem))
 family = XINT (tem);
 else
-{
-if (NILP (tem))
-	family = AF_INET;
-#ifdef HAVE_LOCAL_SOCKETS
-else if (EQ (tem, Qlocal))
-	family = AF_LOCAL;
-#endif
-}
-if (family < 0)
 error ("Unknown address family");
 ai.ai_family = family;
 /* :service SERVICE -- string, integer (port number), or t (random port).  */
 service = Fplist_get (contact, QCservice);
 immediate_quit = 1;
 QUIT;
 memset (&hints, 0, sizeof (hints));
 hints.ai_flags = 0;
-hints.ai_family = NILP (Fplist_member (contact, QCfamily)) ? AF_UNSPEC : family;
+hints.ai_family = family;
 hints.ai_socktype = socktype;
 hints.ai_protocol = 0;
 ret = getaddrinfo (SDATA (host), portstring, &hints, &res);
 if (ret)
 #ifdef HAVE_GAI_STRERROR
 { IFF_AUTOMEDIA,	"automedia" },
 #endif
 #ifdef IFF_DYNAMIC
 { IFF_DYNAMIC,	"dynamic" },
 #endif
+#ifdef IFF_OACTIVE
+{ IFF_OACTIVE,	"oactive" },	/* OpenBSD: transmission in progress */
+#endif
+#ifdef IFF_SIMPLEX
+{ IFF_SIMPLEX,	"simplex" },	/* OpenBSD: can't hear own transmissions */
+#endif
+#ifdef IFF_LINK0
+{ IFF_LINK0,		"link0" },	/* OpenBSD: per link layer defined bit */
+#endif
+#ifdef IFF_LINK1
+{ IFF_LINK1,		"link1" },	/* OpenBSD: per link layer defined bit */
+#endif
+#ifdef IFF_LINK2
+{ IFF_LINK2,		"link2" },	/* OpenBSD: per link layer defined bit */
+#endif
 { 0, 0 }
 };
 DEFUN ("network-interface-info", Fnetwork_interface_info, Snetwork_interface_info, 1, 1, 0,
 doc: /* Return information about network interface named IFNAME.
 int flags = rq.ifr_flags;
 struct ifflag_def *fp;
 int fnum;
 any++;
-for (fp = ifflag_table; flags != 0 && fp; fp++)
+for (fp = ifflag_table; flags != 0 && fp->flag_sym; fp++)
 	{
 	  if (flags & fp->flag_bit)
 	    {
 	      elt = Fcons (intern (fp->flag_sym), elt);
 	      flags -= fp->flag_bit;
 }
 #endif
 res = Fcons (elt, res);
 elt = Qnil;
-#if defined(SIOCGIFNETMASK) && defined(ifr_netmask)
+#if defined(SIOCGIFNETMASK) && (defined(HAVE_STRUCT_IFREQ_IFR_NETMASK) || defined(HAVE_STRUCT_IFREQ_IFR_ADDR))
 if (ioctl (s, SIOCGIFNETMASK, &rq) == 0)
 {
 any++;
+#ifdef HAVE_STRUCT_IFREQ_IFR_NETMASK
 elt = conv_sockaddr_to_lisp (&rq.ifr_netmask, sizeof (rq.ifr_netmask));
+#else
+elt = conv_sockaddr_to_lisp (&rq.ifr_addr, sizeof (rq.ifr_addr));
+#endif
 }
 #endif
 res = Fcons (elt, res);
 elt = Qnil;
 struct Lisp_Process *p;
 int s;
 union u_sockaddr {
 struct sockaddr sa;
 struct sockaddr_in in;
+#ifdef AF_INET6
+struct sockaddr_in6 in6;
+#endif
 #ifdef HAVE_LOCAL_SOCKETS
 struct sockaddr_un un;
 #endif
 } saddr;
 int len = sizeof saddr;
 	args[1] = host;
 	args[2] = service;
 	caller = Fformat (3, args);
 }
 break;
+#ifdef AF_INET6
+case AF_INET6:
+{
+	Lisp_Object args[9];
+	uint16_t *ip6 = (uint16_t *)&saddr.in6.sin6_addr;
+	int i;
+	args[0] = build_string ("%x:%x:%x:%x:%x:%x:%x:%x");
+	for (i = 0; i < 8; i++)
+	  args[i+1] = make_number (ntohs(ip6[i]));
+	host = Fformat (9, args);
+	service = make_number (ntohs (saddr.in.sin_port));
+	args[0] = build_string (" <[%s]:%d>");
+	args[1] = host;
+	args[2] = service;
+	caller = Fformat (3, args);
+}
+break;
+#endif
 #ifdef HAVE_LOCAL_SOCKETS
 case AF_LOCAL:
 #endif
 default:
 unsigned char *name;
 CHECK_SYMBOL (sigcode);
 name = SDATA (SYMBOL_NAME (sigcode));
+if (!strncmp(name, "SIG", 3))
+	name += 3;
 if (0)
 	;
 #ifdef SIGHUP
-handle_signal ("SIGHUP", SIGHUP);
+handle_signal ("HUP", SIGHUP);
 #endif
 #ifdef SIGINT
-handle_signal ("SIGINT", SIGINT);
+handle_signal ("INT", SIGINT);
 #endif
 #ifdef SIGQUIT
-handle_signal ("SIGQUIT", SIGQUIT);
+handle_signal ("QUIT", SIGQUIT);
 #endif
 #ifdef SIGILL
-handle_signal ("SIGILL", SIGILL);
+handle_signal ("ILL", SIGILL);
 #endif
 #ifdef SIGABRT
-handle_signal ("SIGABRT", SIGABRT);
+handle_signal ("ABRT", SIGABRT);
 #endif
 #ifdef SIGEMT
-handle_signal ("SIGEMT", SIGEMT);
+handle_signal ("EMT", SIGEMT);
 #endif
 #ifdef SIGKILL
-handle_signal ("SIGKILL", SIGKILL);
+handle_signal ("KILL", SIGKILL);
 #endif
 #ifdef SIGFPE
-handle_signal ("SIGFPE", SIGFPE);
+handle_signal ("FPE", SIGFPE);
 #endif
 #ifdef SIGBUS
-handle_signal ("SIGBUS", SIGBUS);
+handle_signal ("BUS", SIGBUS);
 #endif
 #ifdef SIGSEGV
-handle_signal ("SIGSEGV", SIGSEGV);
+handle_signal ("SEGV", SIGSEGV);
 #endif
 #ifdef SIGSYS
-handle_signal ("SIGSYS", SIGSYS);
+handle_signal ("SYS", SIGSYS);
 #endif
 #ifdef SIGPIPE
-handle_signal ("SIGPIPE", SIGPIPE);
+handle_signal ("PIPE", SIGPIPE);
 #endif
 #ifdef SIGALRM
-handle_signal ("SIGALRM", SIGALRM);
+handle_signal ("ALRM", SIGALRM);
 #endif
 #ifdef SIGTERM
-handle_signal ("SIGTERM", SIGTERM);
+handle_signal ("TERM", SIGTERM);
 #endif
 #ifdef SIGURG
-handle_signal ("SIGURG", SIGURG);
+handle_signal ("URG", SIGURG);
 #endif
 #ifdef SIGSTOP
-handle_signal ("SIGSTOP", SIGSTOP);
+handle_signal ("STOP", SIGSTOP);
 #endif
 #ifdef SIGTSTP
-handle_signal ("SIGTSTP", SIGTSTP);
+handle_signal ("TSTP", SIGTSTP);
 #endif
 #ifdef SIGCONT
-handle_signal ("SIGCONT", SIGCONT);
+handle_signal ("CONT", SIGCONT);
 #endif
 #ifdef SIGCHLD
-handle_signal ("SIGCHLD", SIGCHLD);
+handle_signal ("CHLD", SIGCHLD);
 #endif
 #ifdef SIGTTIN
-handle_signal ("SIGTTIN", SIGTTIN);
+handle_signal ("TTIN", SIGTTIN);
 #endif
 #ifdef SIGTTOU
-handle_signal ("SIGTTOU", SIGTTOU);
+handle_signal ("TTOU", SIGTTOU);
 #endif
 #ifdef SIGIO
-handle_signal ("SIGIO", SIGIO);
+handle_signal ("IO", SIGIO);
 #endif
 #ifdef SIGXCPU
-handle_signal ("SIGXCPU", SIGXCPU);
+handle_signal ("XCPU", SIGXCPU);
 #endif
 #ifdef SIGXFSZ
-handle_signal ("SIGXFSZ", SIGXFSZ);
+handle_signal ("XFSZ", SIGXFSZ);
 #endif
 #ifdef SIGVTALRM
-handle_signal ("SIGVTALRM", SIGVTALRM);
+handle_signal ("VTALRM", SIGVTALRM);
 #endif
 #ifdef SIGPROF
-handle_signal ("SIGPROF", SIGPROF);
+handle_signal ("PROF", SIGPROF);
 #endif
 #ifdef SIGWINCH
-handle_signal ("SIGWINCH", SIGWINCH);
+handle_signal ("WINCH", SIGWINCH);
 #endif
 #ifdef SIGINFO
-handle_signal ("SIGINFO", SIGINFO);
+handle_signal ("INFO", SIGINFO);
 #endif
 #ifdef SIGUSR1
-handle_signal ("SIGUSR1", SIGUSR1);
+handle_signal ("USR1", SIGUSR1);
 #endif
 #ifdef SIGUSR2
-handle_signal ("SIGUSR2", SIGUSR2);
+handle_signal ("USR2", SIGUSR2);
 #endif
 else
 	error ("Undefined signal name %s", name);
 }
 ADD_SUBFEATURE (QCtype, Qdatagram);
 #endif
 #ifdef HAVE_LOCAL_SOCKETS
 ADD_SUBFEATURE (QCfamily, Qlocal);
 #endif
+ADD_SUBFEATURE (QCfamily, Qipv4);
+#ifdef AF_INET6
+ADD_SUBFEATURE (QCfamily, Qipv6);
+#endif
 #ifdef HAVE_GETSOCKNAME
 ADD_SUBFEATURE (QCservice, Qt);
 #endif
 #if !defined(TERM) && (defined(O_NONBLOCK) || defined(O_NDELAY))
 ADD_SUBFEATURE (QCserver, Qt);
 staticpro (&Qfailed);
 Qlisten = intern ("listen");
 staticpro (&Qlisten);
 Qlocal = intern ("local");
 staticpro (&Qlocal);
+Qipv4 = intern ("ipv4");
+staticpro (&Qipv4);
+#ifdef AF_INET6
+Qipv6 = intern ("ipv6");
+staticpro (&Qipv6);
+#endif
 Qdatagram = intern ("datagram");
 staticpro (&Qdatagram);
 QCname = intern (":name");
 staticpro (&QCname);

Mercurial > emacs

comparison src/process.c @ 90261:7beb78bc1f8e