"

 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

#ifdef WIN32

# undef INT

# undef Array

# undef Number

# undef Method

# undef Point

# undef Rectangle

# undef Block

# undef Context

# undef String

# undef Message

# undef Object

#endif

#include <stdio.h>

#include <errno.h>

#if defined(transputer) || defined(MSDOS_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 LINUX

# define WANT__AF_APPLETALK

#endif

#ifdef LINUX

/* use inline string macros ... */

# define __STRINGDEFS__

# include <linuxIntern.h>

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

# define _ARPA_NAMESER_H

# define _NETINET_TCP_H

#endif

#ifdef WIN32

# include <WINSOCK.H>

# undef NO_SOCKET

# define WANT__AF_INET

# ifdef __DEF_Array

#  define Array __DEF_Array

# endif

# ifdef __DEF_Number

#  define Number __DEF_Number

# endif

# ifdef __DEF_Method

#  define Method __DEF_Method

# endif

# ifdef __DEF_Point

#  define Point __DEF_Point

# endif

# ifdef __DEF_Block

#  define Block __DEF_Block

# endif

# ifdef __DEF_Context

#  define Context __DEF_Context

# endif

# ifdef __DEF_String

#  define String __DEF_String

# endif

# ifdef __DEF_Message

#  define Message __DEF_Message

# endif

# ifdef __DEF_Object

#  define Object __DEF_Object

# endif

#else

# if !defined(NO_SOCKET)

#  include <fcntl.h>

#  include <sys/types.h>

#  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

#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_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 AF_X25

#  ifndef PF_X25

#   define PF_X25 AF_X25

#  endif

# endif

#else

# undef AF_X25

#endif

# ifdef AF_NS

#  ifndef PF_NS

#   define PF_NS AF_NS

#  endif

# endif

#else

# undef AF_NS

#endif

# ifdef AF_SNA

#  ifndef PF_SNA

#   define PF_SNA AF_SNA

#  endif

# endif

#else

# undef AF_SNA

#endif

# ifdef AF_RAW

#  ifndef PF_RAW

#   define PF_RAW AF_RAW

#  endif

# endif

#else

# undef AF_RAW

#endif

# ifdef AF_ISO

#  ifndef PF_ISO

#   define PF_ISO AF_ISO

#  endif

# endif

#else

# undef AF_ISO

#endif

# ifdef AF_NETBIOS

#  ifndef PF_NETBIOS

#   define PF_NETBIOS AF_NETBIOS

#  endif

# endif

#else

# undef WANT_AF_NETBIOS

#endif

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

#  ifndef PF_CCITT

#   define PF_CCITT AF_CCITT

#  endif

# endif

#else

# undef AF_CCITT

#endif

/*

 * now, include what we have to ...

 */

# ifdef AF_INET

#  include <netdb.h>

#  include <netinet/in.h>

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

#   include <netinet/tcp.h>

#  endif

# endif

# ifdef AF_UNIX

#  include <sys/un.h>

# endif

# ifdef AF_APPLETALK

#  ifdef LINUX

#   include <linux/atalk.h>

#  endif

# endif

#endif /* WIN32 */

/*

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

 */

#ifndef errno

 extern errno;

#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 ?)

	  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 useCRLF:true.

	sock buffered:false.

	sock isNil ifTrue:[

	    Transcript showCR:'cannot connect to local finger daemon'

	] ifFalse:[

	    sock nextPutAll:(OperatingSystem getLoginName).

	    sock cr.

	    entry := sock nextLine.

	    Transcript showCR:entry.

	    sock close

	]

									[exEnd]

    example (connect to an ftp server):

									[exBegin]

	|sock host|

	host := OperatingSystem getHostName.

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

	sock buffered:false.

	Transcript showCR:sock nextLine.

	sock nextPutAll:('USER ' , 'anonymous'); cr.

	Transcript showCR:sock nextLine.

	sock nextPutAll:('PASS ' , 'fooBar'); cr.

	Transcript showCR:sock nextLine.

	sock nextPutAll:'LIST'; cr.

	Transcript showCR:sock nextLine.

	sock close.

	'dont know enough of the ftp protocol to continue here ...'

									[exEnd]

    example (connect to an snmp server [UDP]):

									[exBegin]

	|sock port|

	sock := Socket newUDP.

	port := Socket portOfService:'snmp'.

	sock connectTo:(OperatingSystem getHostName) port:port.

	sock buffered:false.

	Transcript showCR:'got it'.

	sock close.

									[exEnd]

    example (await connection from a client and read some data):

	|connectSock sock|

	connectSock := Socket newTCPserverAtPort:9998.  

	connectSock isNil ifTrue:[