Mercurial > emacs

changeset 44073:9984126a7008

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(init_process): Only provide make-network-process feature and subfeatures if HAVE_SOCKETS.
author Kim F. Storm <storm@cua.dk>
date Thu, 21 Mar 2002 13:01:14 +0000
parents 434c70e973e8
children e1637a1c9023
files src/process.c
diffstat 1 files changed, 20 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/src/process.c	Thu Mar 21 12:41:49 2002 +0000
+++ b/src/process.c	Thu Mar 21 13:01:14 2002 +0000
@@ -6011,7 +6011,6 @@
 init_process ()
 {
   register int i;
-  Lisp_Object subfeatures;
 
 #ifdef SIGCHLD
 #ifndef CANNOT_DUMP
@@ -6039,50 +6038,54 @@
   bzero (datagram_address, sizeof datagram_address);
 #endif
 
+#ifdef HAVE_SOCKETS
+ {
+   Lisp_Object subfeatures = Qnil;
 #define ADD_SUBFEATURE(key, val) \
   subfeatures = Fcons (Fcons (key, Fcons (val, Qnil)), subfeatures)
 
-  subfeatures = Qnil;
 #ifdef NON_BLOCKING_CONNECT
-  ADD_SUBFEATURE (QCnowait, Qt);
+   ADD_SUBFEATURE (QCnowait, Qt);
 #endif
 #ifdef DATAGRAM_SOCKETS
-  ADD_SUBFEATURE (QCtype, Qdatagram);
+   ADD_SUBFEATURE (QCtype, Qdatagram);
 #endif
 #ifdef HAVE_LOCAL_SOCKETS
-  ADD_SUBFEATURE (QCfamily, Qlocal);
+   ADD_SUBFEATURE (QCfamily, Qlocal);
 #endif
 #ifdef HAVE_GETSOCKNAME
-  ADD_SUBFEATURE (QCservice, Qt);
+   ADD_SUBFEATURE (QCservice, Qt);
 #endif
 #ifndef TERM
-  ADD_SUBFEATURE (QCserver, Qt);
+   ADD_SUBFEATURE (QCserver, Qt);
 #endif
 #ifdef SO_BINDTODEVICE
-  ADD_SUBFEATURE (QCoptions, intern ("bindtodevice"));
+   ADD_SUBFEATURE (QCoptions, intern ("bindtodevice"));
 #endif
 #ifdef SO_BROADCAST
-  ADD_SUBFEATURE (QCoptions, intern ("broadcast"));
+   ADD_SUBFEATURE (QCoptions, intern ("broadcast"));
 #endif
 #ifdef SO_DONTROUTE
-  ADD_SUBFEATURE (QCoptions, intern ("dontroute"));
+   ADD_SUBFEATURE (QCoptions, intern ("dontroute"));
 #endif
 #ifdef SO_KEEPALIVE
-  ADD_SUBFEATURE (QCoptions, intern ("keepalive"));
+   ADD_SUBFEATURE (QCoptions, intern ("keepalive"));
 #endif
 #ifdef SO_LINGER
-  ADD_SUBFEATURE (QCoptions, intern ("linger"));
+   ADD_SUBFEATURE (QCoptions, intern ("linger"));
 #endif
 #ifdef SO_OOBINLINE
-  ADD_SUBFEATURE (QCoptions, intern ("oobinline"));
+   ADD_SUBFEATURE (QCoptions, intern ("oobinline"));
 #endif
 #ifdef SO_PRIORITY
-  ADD_SUBFEATURE (QCoptions, intern ("priority"));
+   ADD_SUBFEATURE (QCoptions, intern ("priority"));
 #endif
 #ifdef SO_REUSEADDR
-  ADD_SUBFEATURE (QCoptions, intern ("reuseaddr"));
-#endif
-  Fprovide (intern ("make-network-process"), subfeatures);
+   ADD_SUBFEATURE (QCoptions, intern ("reuseaddr"));
+#endif
+   Fprovide (intern ("make-network-process"), subfeatures);
+ }
+#endif /* HAVE_SOCKETS */
 }
 
 void