"

 COPYRIGHT (c) 1992 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

NonPositionableExternalStream subclass:#Socket

	instanceVariableNames:'domain socketType protocol port serviceName peerName'

	classVariableNames:''

	poolDictionaries:''

	category:'Streams-External'

!

!Socket primitiveDefinitions!

%{

#ifdef LINUX

# define BUGGY_STDIO_LIB

#endif

#include <stdio.h>

#include <errno.h>

#define UNIX_LIKE

#if defined(transputer)

# undef UNIX_LIKE

# define NO_SOCKET

#endif

/*

 * which protocols can we support ?

 */

#ifndef NO_SOCKET

# define WANT__AF_INET

#endif

#ifdef UNIX_LIKE

# define WANT__AF_UNIX

#endif

#ifdef __VMS__

# undef WANT__AF_UNIX

# define WANT_AF_DECnet

#endif

#ifdef LINUX

# define WANT__AF_APPLETALK

/* # define WANT__AF_INET6 */

#endif

#ifdef LINUX

/* kludge to avoid some redefines ... */

# define _ARPA_NAMESER_H

# define _NETINET_TCP_H

#endif

#if !defined(NO_SOCKET)

# include <fcntl.h>

# include <sys/types.h>

# define _SYS_TYPES_H_INCLUDED_

# if defined(IRIS) && !defined(IRIX5)

   /* no socket.h on 4.0.5h ?!?!? */

#  ifndef AF_UNIX

#   define AF_UNIX 1

#  endif

#  ifndef AF_INET

#   define AF_INET 2

#  endif

#  ifndef SOCK_STREAM

#   define SOCK_STREAM 1

#  endif

#  ifndef SOCK_DGRAM

#   define SOCK_DGRAM  2

#  endif

#  ifndef SOCK_RAW

#   define SOCK_RAW    3

#  endif

# else

#  include <sys/socket.h>

# endif

# ifdef NEXT3

#  include <netinet/in_systm.h>

# endif

#endif

/*

 * see what we want ...

 */

#ifdef WANT__AF_UNIX

# ifdef AF_UNIX

#  ifndef PF_UNIX

#   define PF_UNIX AF_UNIX

#  endif

# endif

#else

# undef AF_UNIX

#endif

#ifdef WANT__AF_INET

# ifdef AF_INET

#  ifndef PF_INET

#   define PF_INET AF_INET

#  endif

# endif

#else

# undef AF_INET

#endif

#ifdef WANT__AF_INET6

# ifdef AF_INET6

#  ifndef PF_INET6

#   define PF_INET6 AF_INET6

#  endif

# endif

#else

# undef AF_INET6

#endif

#ifdef WANT__AF_DECnet

# ifdef AF_DECnet

#  ifndef PF_DECnet

#   define PF_DECnet AF_DECnet

#  endif

# endif

#else

# undef AF_DECnet

#endif

#ifdef WANT__AF_APPLETALK

# ifdef AF_APPLETALK

#  ifndef PF_APPLETALK

#   define PF_APPLETALK AF_APPLETALK

#  endif

# endif

#else

# undef AF_APPLETALK

#endif

#ifdef WANT__AF_X25     /* X.25 */

# ifdef AF_X25

#  ifndef PF_X25

#   define PF_X25 AF_X25

#  endif

# endif

#else

# undef AF_X25

#endif

#ifdef WANT__AF_NS      /* Xerox XNS */

# ifdef AF_NS

#  ifndef PF_NS

#   define PF_NS AF_NS

#  endif

# endif

#else

# undef AF_NS

#endif

#ifdef WANT__AF_SNA     /* IBM SNA */

# ifdef AF_SNA

#  ifndef PF_SNA

#   define PF_SNA AF_SNA

#  endif

# endif

#else

# undef AF_SNA

#endif

#ifdef WANT__AF_RAW     /* RAW packets */

# ifdef AF_RAW

#  ifndef PF_RAW

#   define PF_RAW AF_RAW

#  endif

# endif

#else

# undef AF_RAW

#endif

#ifdef WANT__AF_ISO     /* ? */

# ifdef AF_ISO

#  ifndef PF_ISO

#   define PF_ISO AF_ISO

#  endif

# endif

#else

# undef AF_ISO

#endif

#ifdef WANT__AF_NETBIOS /* ? */

# ifdef AF_NETBIOS

#  ifndef PF_NETBIOS

#   define PF_NETBIOS AF_NETBIOS

#  endif

# endif

#else

# undef AF_NETBIOS

#endif

#ifdef WANT__AF_CCITT /* ? */

# if defined(AF_CCITT) && (AF_CCITT != AF_X25)

#  ifndef PF_CCITT

#   define PF_CCITT AF_CCITT

#  endif

# endif

#else

# undef AF_CCITT

#endif

#ifdef WANT__AF_IPX /* Novell IPX */

# ifdef AF_IPX

#  ifndef PF_IPX

#   define PF_IPX AF_IPX

#  endif

# endif

#else

# undef AF_IPX

#endif

#ifdef WANT__AF_AX25 /* Amateur radio ax25 */

# ifdef AF_AX25

#  ifndef PF_AX25

#   define PF_AX25 AF_AX25

#  endif

# endif

#else

# undef AF_AX25

#endif

#ifdef WANT__AF_NETROM /* Amateur radio NETROM */

# ifdef AF_NETROM

#  ifndef PF_NETROM

#   define PF_NETROM AF_NETROM

#  endif

# endif

#else

# undef AF_NETROM

#endif

#ifdef WANT__AF_BRIDGE /* multiprotocol bridge */

# ifdef AF_BRIDGE

#  ifndef PF_BRIDGE

#   define PF_BRIDGE AF_BRIDGE

#  endif

# endif

#else

# undef AF_BRIDGE

#endif

#ifdef WANT__AF_BSC /* BISYNC 2780/3780 */

# ifdef AF_BSC

#  ifndef PF_BSC

#   define PF_BSC AF_BSC

#  endif

# endif

#else

# undef AF_BSC

#endif

/*

 * now, include what we have to ...

 */

#ifdef AF_INET

# include <netdb.h>

# if defined(LINUX) && defined(AF_INET6)

#  include <linux/in.h>

# else

#  include <netinet/in.h>

# endif

# if ! (defined(SYSV3) && defined(mc88k))

#  include <netinet/tcp.h>

# endif

#endif

#ifdef AF_INET6

# ifdef __GLIBC__

#  include <linux/in6.h>

# endif

#endif

#ifdef AF_UNIX

# include <sys/un.h>

#endif

#ifdef AF_APPLETALK

# ifdef LINUX

#  include <asm/types.h>

#  include <linux/atalk.h>

# endif

#endif

#if defined(TRY_AGAIN) || defined(HOST_NOT_FOUND)

# define USE_H_ERRNO

#endif

/*

 * on some systems errno is a macro ... check for it here

 */

#ifndef errno

 extern errno;

#endif

#ifdef USE_H_ERRNO

# ifndef h_errno

 extern h_errno;

# endif

#endif

#ifdef xxLINUX

/* use inline string macros ... */

# define __STRINGDEFS__

# include <linuxIntern.h>

#endif

/*

 * gethostbyname seems to have trouble

 * sometimes, if interrupted while a request

 * is on its way the name server.

 * (although specified in the man-page, 

 * a check on TRY_AGAIN fails on iris)

 */

#ifdef LINUX

# define GETHOSTBYNAME(hp, name) \

	hp = gethostbyname((char *) name);

# define GETHOSTBYADDR(hp, addr, alen, af) \

	hp = gethostbyaddr(addr, alen, af);

#else

# ifdef IRIX5_3

#  define GETHOSTBYNAME(hp, name) \

	do { \

	    __BEGIN_INTERRUPTABLE__  \

	    hp = gethostbyname((char *) name); \

	    __END_INTERRUPTABLE__ \

	} while ((hp == NULL) && \

		 ((h_errno == TRY_AGAIN) || (errno == ECONNREFUSED)));

#  define GETHOSTBYADDR(hp, addr, alen, af) \

        do { \

	    __BEGIN_INTERRUPTABLE__ \

	    hp = gethostbyaddr(addr, alen, af); \

	    __END_INTERRUPTABLE__ \

	} while ((hp == NULL) && \

		((h_errno == TRY_AGAIN) || (errno == ECONNREFUSED)));

# else

#  ifdef USE_H_ERRNO

#   define GETHOSTBYNAME(hp, name) \

	do { \

	    __BEGIN_INTERRUPTABLE__  \

	    hp = gethostbyname((char *) name); \

	    __END_INTERRUPTABLE__ \

	} while ((hp == NULL) && (h_errno == TRY_AGAIN));

#   define GETHOSTBYADDR(hp, addr, alen, af) \

	do { \

	    __BEGIN_INTERRUPTABLE__  \

	    hp = gethostbyaddr(addr, alen, af); \

	    __END_INTERRUPTABLE__ \

	} while ((hp == NULL) && (h_errno == TRY_AGAIN));

#  else

#   define GETHOSTBYNAME(hp, name) \

	__BEGIN_INTERRUPTABLE__  \

	hp = gethostbyname((char *) name); \

	__END_INTERRUPTABLE__ 

#   define GETHOSTBYADDR(hp, addr, alen, af) \

	__BEGIN_INTERRUPTABLE__ \

	hp = gethostbyaddr(addr, alen, af); \

	__END_INTERRUPTABLE__

#  endif

# endif

#endif

#ifdef DEBUG

# define DBGPRINTF(x)    { if (__debugging__) printf x; }

#else

# define DBGPRINTF(x)    /* as nothing */

#endif

%}

! !

!Socket primitiveVariables!

%{

static int __debugging__ = 0;

%}

! !

!Socket class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1992 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    This class provides access to sockets for interprocess communication.

    The message protocol is preliminary, until someone tells me how

    other smalltalk's socket interfaces look like.

    Currently, only IP and UNIX domain sockets are supported.

    Code for appletalk is included, but was never tested ...

    More may be added in the future.

    (the code is prepared for things like SNA or decNet;

     however, right now, this code is empty and needs a little work.

     Implementing those is pretty straight forward, once the address

     data structures are known.)

    Due to historic reasons (I started this class, before I got hold of some

    code using ST-80 Sockets i.e. RemoteInvocation), there is some old interface

    still provided. 

    This will vanish; use the #family:type: or #newTCPxxx and #newUDPxxx interfaces,

    together with the bind/listen and accept calls,

    which are meant to be compatible to ST-80's UnixSocketAccessor interface.

    ST/X does not use IPSocketAddress, UDSocketAddress etc; all addressing

    is done by passing appropriate string- or byteArray objects containing

    the addresses. This may change, too.

    TODO: cleanup historic leftovers, implement other than inet domain stuff.

	  (mhmh - how can I test those ?)

	  change to raise more signals on errors.

	  Help - could someone who has a linux machine connected to an appletalk

		 net please test this (and send bug fixes ...)

    [author:]

	Claus Gittinger

"

!

examples

"

    example (get help info from an nntp server):

									[exBegin]

	|sock host|

	host := OperatingSystem getEnvironment:'NNTPSERVER'.

	sock := Socket newTCPclientToHost:host port:'nntp'.

	Transcript showCR:sock nextLine.

	sock buffered:false.

	sock nextPutAll:'HELP'; cr.

	[:exit |

	    |line|

	    line := sock nextLine.

	    line = '.' ifTrue:[exit value:nil].

	    Transcript showCR:line.

	] loopWithExit.

	sock close

									[exEnd]

    example (connect to finger daemon, get users entry):

									[exBegin]

	|sock host entry|

	host := OperatingSystem getHostName.

	sock := Socket newTCPclientToHost:host port:'finger'.

	sock isNil ifTrue:[