"

 COPYRIGHT (c) 1992 by Claus Gittinger

 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.

"

       instanceVariableNames:'domain socketType protocol portNr serviceName

       classVariableNames:''

       poolDictionaries:''

       category:'Streams-External'

!

Socket comment:'

COPYRIGHT (c) 1992 by Claus Gittinger

'!

%{

#include <stdio.h>

#include <errno.h>

#ifdef LINUX

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

# define _ARPA_NAMESER_H

# define _NETINET_TCP_H

#endif

#ifndef transputer

# include <fcntl.h>

# include <sys/types.h>

# ifdef IRIS

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

#  define AF_UNIX 1

#  define AF_INET 2

#  define SOCK_STREAM 1

#  define SOCK_DGRAM  2

#  define SOCK_RAW    3

# else

#  include <sys/socket.h>

# endif

# include <netdb.h>

# include <netinet/in.h>

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

#  include <netinet/tcp.h>

# endif

#endif

%}

!Socket class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1992 by Claus Gittinger

 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.

"

!

version

"

"

!

documentation

"

    This class provides access to (unix-)sockets for interprocess communication.

    The message protocol is preliminary, until someone tells me how

    other smalltalk's socket interfaces look like.

    Also, currently there is almost no support for other than IP 

    sockets - this will be added in the future.

    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 newTCPxxx and newUDPxxx interface,

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

    example (get help info from an nntp server):

		    newTCPclientToHost:(OperatingSystem 

					    getEnvironment:'NNTPSERVER') 

				  port:'nntp'.

    example (connect to an ftp server):

		    newTCPclientToHost:(OperatingSystem getHostName) 

				  port:'ftp'.

    example (connect to an snmp server):

"

! !

!Socket class methodsFor:'signal access'!

brokenConnectionSignal

    "return the signal used to tell broken connections.

     Since in unix, this is the same as the broken pipe signal,

     return that one.

     (for other Operatingsystems, this may change ..)"

    ^ PipeStream brokenPipeSignal

! !

!Socket class methodsFor:'queries'!

ipAddressOfHost:aHostName

    "return the IP (internet-) number for a hostname"

    |b1 b2 b3 b4|

%{

    struct sockaddr_in sa ;

    struct hostent *hp ;

    long addr;

    if (__isString(aHostName)) {

    }

    /* if the addressing family is not AF_INET, return nil */

    if (sa.sin_family != AF_INET) {

    }

    b1 = _MKSMALLINT((sa.sin_addr.s_addr >> 24) & 0xFF);

    b2 = _MKSMALLINT((sa.sin_addr.s_addr >> 16) & 0xFF);

    b3 = _MKSMALLINT((sa.sin_addr.s_addr >> 8) & 0xFF);

    b4 = _MKSMALLINT((sa.sin_addr.s_addr >> 0) & 0xFF);

%}

.

    ^ ByteArray with:b1 with:b2 with:b3 with:b4

    "Socket ipAddressOfHost:'clam'"

    "Socket ipAddressOfHost:'porty'"

    "Socket ipAddressOfHost:'josef'"

!

hostWithIpAddress:anAddress

    "return the hostname for an IP (internet-) address"

    |b1 b2 b3 b4|

    b1 := anAddress at:1.

    b2 := anAddress at:2.

    b3 := anAddress at:3.

    b4 := anAddress at:4.

%{

    struct sockaddr_in sa ;

    struct hostent *hp ;

    if (_isSmallInteger(b1)

     && _isSmallInteger(b2)

     && _isSmallInteger(b3)

     && _isSmallInteger(b4)) {

    }

    /* if the addressing family is not AF_INET, return nil */

    if (sa.sin_family != AF_INET) {

    }

    if (hp != NULL)

    RETURN (_MKSTRING(inet_ntoa(sa.sin_addr) COMMA_CON));

%}

    "

     Socket ipAddressOfHost:'clam'

     Socket hostWithIpAddress:(Socket ipAddressOfHost:'clam')

     Socket ipAddressOfHost:'porty'

     Socket hostWithIpAddress:(Socket ipAddressOfHost:'porty')

     Socket hostWithIpAddress:#[1 2 3 4]

    "

!

portOfService:aNameOrNumber

    "returns the port-number for a given service

     or nil if no such service exists;

     - used to convert service names to portNumbers"

%{

    struct servent *servent = NULL;

    if (_isSmallInteger(aNameOrNumber)) {

    }

    if (__isString(aNameOrNumber)) {

    }

    RETURN ( nil );

%}

    "

     Socket portOfService:'finger'

     Socket portOfService:'nntp'

     Socket portOfService:'echo'

    "

!

protocolOfService:aNameOrNumber

    "returns the protocol (as string) for a given service

     or nil if no such service exists."

%{

    struct servent *servent = NULL;

    if (_isSmallInteger(aNameOrNumber)) {

    } else {

    }

    if (servent) {

    }

    RETURN ( nil );

%}

    "

     Socket protocolOfService:'finger'

     Socket protocolOfService:'nntp'

     Socket protocolOfService:'xxx'

     Socket protocolOfService:79

    "

!

domainOfProtocol:aProtocol

    "given a protocols name (i.e. tcp, udp etc) return the domain.

     This method needs more ... - or is there a way to get this from the system ?"

    "

     tcp/ip stuff

    "

    (aProtocol = 'tcp') ifTrue:[^ #inet].

    (aProtocol = 'udp') ifTrue:[^ #inet].

    (aProtocol = 'ip')  ifTrue:[^ #inet].

    "

     x25 stuff (if any)

     appletalk stuff (if any)

     other stuff (if any)

    "

    ^ nil

    "

     Socket domainOfProtocol:'tcp'

     Socket domainOfProtocol:'ucp'

     Socket domainOfProtocol:(Socket protocolOfService:'nntp')

     Socket domainOfProtocol:(Socket protocolOfService:'echo')

    "

!

typeOfProtocol:aProtocol

    "given a protocols name (i.e. tcp, udp etc) return the connection type.

     This method needs more ... - or is there a way to get this from the system ?"

    (aProtocol = 'tcp') ifTrue:[^ #stream].

    (aProtocol = 'udp') ifTrue:[^ #datagram].

    (aProtocol = 'ip')  ifTrue:[^ #raw].

    "

     x25 stuff (if any)

     appletalk stuff (if any)

     other stuff (if any)

    "

    ^ nil

    "

     Socket typeOfProtocol:'tcp'

     Socket typeOfProtocol:'ucp'

     Socket typeOfProtocol:(Socket protocolOfService:'nntp')

     Socket typeOfProtocol:(Socket protocolOfService:'echo')

    "

! !

!Socket class methodsFor:'tcp/ip instance creation'!

connectTo:service on:host

    "standard setup: create new client tcp socket, bind and connect; 

     return the socket.

     The system will block (interruptable), until the connection is 

     established."

    ^ (self new) for:host port:(self portOfService:service).

    "

     Socket connectTo:9995 on:'clam'

     Socket connectTo:'finger' on:'clam'

     Socket connectTo:'nntp' on:(OperatingSystem getEnvironment:'NNTPSERVER')

    "

!

provide:service

    "standard setup: create a new TCP server socket providing a service."

    |newSock|

    newSock := (self new) for:nil port:(self portOfService:service).

    newSock notNil ifTrue:[

    ].

    ^ newSock

    "

     Socket provide:9995

     (Socket provide:9996) accept

     Socket provide:'nntp'

    "

! !

!Socket class methodsFor:'general instance creation'!

domain:domainSymbol type:type

    "create a socket for domain and type -

     neither any connect nor binding is done.

     Domain must be one of the symbols: #inet, #unix, #ns, #appletalk or #ns;

     Type must be #stream, #datagram or #raw

     XXX: currently only the #inet domain is supported"

    ^ self new domain:domainSymbol type:type

    "Socket domain:#inet type:#stream"

    "Socket domain:#inet type:#datagram"

    "Socket domain:#appletalk type:#stream"

    "Socket domain:#DECnet type:#stream"

!

newUDP

    "create a UDP socket - no binding or other setup is done,

     neither connect nor connect-wait is done."

    ^ self new domain:#inet type:#datagram

    "Socket newUDP"

!

newUDP:aServiceOrNil

    "create a UDP socket for a service -

     neither connect nor connect-wait is done."

    |newSock|

    newSock := self newUDP.

    (newSock notNil and:[aServiceOrNil notNil]) ifTrue:[

    ].

    ^ newSock

    "Socket newUDP:nil"

!

newTCP

    "create a TCP socket - no binding or other setup is done,

     neither connect nor connect-wait is done."

    ^ self new domain:#inet type:#stream 

    "Socket newUDP"

!

newTCP:aServiceOrNil

    "create a TCP socket for a service -

     neither connect nor connect-wait is done."

    |newSock|

    newSock := self newTCP.

    (newSock notNil and:[aServiceOrNil notNil]) ifTrue:[