mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 07:30:32 +02:00
Code Activity

* socket.c: Check for HAVE_UNIX_DOMAIN_SOCKETS instead of

Browse source 
UNIX_DOMAIN_SOCKETS.  (Thanks to Lauri Alanko.)
This commit is contained in:
Mikael Djurfeldt 1998-04-12 16:27:48 +00:00
parent 6f3067f1e0
commit 1ba8c23aca
3 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/socket.c
View file

@ -57,7 +57,7 @@
#endif
#include <sys/types.h>
#include <sys/socket.h>
#ifdef UNIX_DOMAIN_SOCKETS
#ifdef HAVE_UNIX_DOMAIN_SOCKETS
#include <sys/un.h>
#endif
#include <netinet/in.h>
@ -355,7 +355,7 @@ scm_fill_sockaddr (fam, address, args, which_arg, proc, size)
*size = sizeof (struct sockaddr_in);
return (struct sockaddr *) soka;
}
#ifdef UNIX_DOMAIN_SOCKETS
#ifdef HAVE_UNIX_DOMAIN_SOCKETS
case AF_UNIX:
{
struct sockaddr_un *soka;
@ -458,7 +458,7 @@ scm_addr_vector (address, proc)
short int fam = address->sa_family;
SCM result;
SCM *ve;
#ifdef UNIX_DOMAIN_SOCKETS
#ifdef HAVE_UNIX_DOMAIN_SOCKETS
if (fam == AF_UNIX)
{
struct sockaddr_un *nad = (struct sockaddr_un *) address;
@ -496,7 +496,7 @@ static void
scm_init_addr_buffer ()
{
scm_addr_buffer_size =
#ifdef UNIX_DOMAIN_SOCKETS
#ifdef HAVE_UNIX_DOMAIN_SOCKETS
(int) sizeof (struct sockaddr_un)
#else
0