hg/stx-libbasic2: Socket.st@b71ab9e436cb (annotated)

0 1cf8d1747859 Initial revision claus parents: diff changeset	1	"
4 1f66800df351 * empty log message * claus parents: 3 diff changeset	2	COPYRIGHT (c) 1992 by Claus Gittinger
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	3	All Rights Reserved
0 1cf8d1747859 Initial revision claus parents: diff changeset	4
1cf8d1747859 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
1cf8d1747859 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
1cf8d1747859 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
1cf8d1747859 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
1cf8d1747859 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
1cf8d1747859 Initial revision claus parents: diff changeset	10	hereby transferred.
1cf8d1747859 Initial revision claus parents: diff changeset	11	"
1cf8d1747859 Initial revision claus parents: diff changeset	12
63 7dd3d5b7877e * empty log message * claus parents: 58 diff changeset	13	NonPositionableExternalStream subclass:#Socket
206 77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	14	instanceVariableNames:'domain socketType protocol port serviceName peerName'
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	15	classVariableNames:''
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	16	poolDictionaries:''
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	17	category:'Streams-External'
0 1cf8d1747859 Initial revision claus parents: diff changeset	18	!
1cf8d1747859 Initial revision claus parents: diff changeset	19
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	20	!Socket primitiveDefinitions!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	21	%{
444 9ba31a1fba38 always unbuffered on linux Claus Gittinger <cg@exept.de> parents: 430 diff changeset	22
9ba31a1fba38 always unbuffered on linux Claus Gittinger <cg@exept.de> parents: 430 diff changeset	23	#ifdef LINUX
9ba31a1fba38 always unbuffered on linux Claus Gittinger <cg@exept.de> parents: 430 diff changeset	24	# define BUGGY_STDIO_LIB
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	25	# include <linux/version.h>
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	26
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	27	# ifndef KERNEL_VERSION
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	28	# define KERNEL_VERSION(a,b,c) (((a) << 16) + ((b) << 8) + (c))
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	29	# endif
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	30	#endif /* LINUX */
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	31
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	32	#include <stdio.h>
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	33	#include <errno.h>
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	34
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	35	#define UNIX_LIKE
ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	36
ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	37	#if defined(transputer)
ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	38	# undef UNIX_LIKE
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	39	# define NO_SOCKET
317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	40	#endif
317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	41
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	42	/*
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	43	* which protocols can we support ?
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	44	*/
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	45	#ifndef NO_SOCKET
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	46	# define WANT__AF_INET
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	47	#endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	48
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	49	#ifdef UNIX_LIKE
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	50	# define WANT__AF_UNIX
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	51	#endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	52
563 23a6b265bdd0 VMS stuff Claus Gittinger <cg@exept.de> parents: 559 diff changeset	53	#ifdef __VMS__
23a6b265bdd0 VMS stuff Claus Gittinger <cg@exept.de> parents: 559 diff changeset	54	# undef WANT__AF_UNIX
571 191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	55	# define WANT_AF_DECnet
563 23a6b265bdd0 VMS stuff Claus Gittinger <cg@exept.de> parents: 559 diff changeset	56	#endif
23a6b265bdd0 VMS stuff Claus Gittinger <cg@exept.de> parents: 559 diff changeset	57
527 f48fd11817e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 526 diff changeset	58	#ifdef LINUX
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	59	# ifndef LINUX_VERSION_CODE
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	60	/* PRE 2.0 Linux kernel. */
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	61	# else
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	62	# if LINUX_VERSION_CODE < KERNEL_VERSION(2,0,0)
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	63	/* PRE 2.0 Linux kernel. */
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	64	# else
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	65	# if LINUX_VERSION_CODE >= KERNEL_VERSION(2,1,0)
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	66	# define WANT__AF_APPLETALK
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	67	# define xxWANT__AF_X25
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	68	# define xxWANT__AF_AX25
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	69	# define xxWANT__AF_IPX
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	70	# define WANT__AF_INET6 */
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	71	# endif /* >= 2.1.0 */
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	72	# endif /* pre 2.0.0 */
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	73	# endif /* pre 2.0.0 */
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	74	#endif /* LINIX */
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	75
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	76	#ifdef solaris2_0
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	77	# define xxxWANT__AF_DECNET
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	78	#endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	79
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	80	#ifdef LINUX
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	81	/* kludge to avoid some redefines ... */
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	82	# define _ARPA_NAMESER_H
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	83	# define _NETINET_TCP_H
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	84	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	85
739 eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	86	#if !defined(NO_SOCKET)
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	87	# include <fcntl.h>
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	88	# include <sys/types.h>
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	89	# define _SYS_TYPES_H_INCLUDED_
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	90
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	91	# if defined(IRIS) && !defined(IRIX5)
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	92	/* no socket.h on 4.0.5h ?!?!? */
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	93	# ifndef AF_UNIX
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	94	# define AF_UNIX 1
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	95	# endif
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	96	# ifndef AF_INET
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	97	# define AF_INET 2
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	98	# endif
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	99
739 eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	100	# ifndef SOCK_STREAM
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	101	# define SOCK_STREAM 1
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	102	# endif
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	103	# ifndef SOCK_DGRAM
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	104	# define SOCK_DGRAM 2
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	105	# endif
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	106	# ifndef SOCK_RAW
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	107	# define SOCK_RAW 3
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	108	# endif
656 fcd2139d83a5 borland-C support Claus Gittinger <cg@exept.de> parents: 653 diff changeset	109	# else
739 eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	110	# include <sys/socket.h>
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	111	# endif
739 eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	112
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	113	# ifdef NEXT3
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	114	# include <netinet/in_systm.h>
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	115	# endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	116	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	117
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	118
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	119	/*
528 928f68d9c080 * empty log message * Claus Gittinger <cg@exept.de> parents: 527 diff changeset	120	* see what we want ...
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	121	*/
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	122	#ifdef WANT__AF_UNIX
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	123	# ifdef AF_UNIX
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	124	# ifndef PF_UNIX
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	125	# define PF_UNIX AF_UNIX
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	126	# endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	127	# endif
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	128	#else
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	129	# undef AF_UNIX
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	130	#endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	131
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	132	#ifdef WANT__AF_INET
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	133	# ifdef AF_INET
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	134	# ifndef PF_INET
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	135	# define PF_INET AF_INET
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	136	# endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	137	# endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	138	#else
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	139	# undef AF_INET
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	140	#endif
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	141
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	142	#ifdef WANT__AF_INET6
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	143	# ifdef AF_INET6
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	144	# ifndef PF_INET6
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	145	# define PF_INET6 AF_INET6
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	146	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	147	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	148	#else
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	149	# undef AF_INET6
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	150	#endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	151
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	152	#ifdef WANT__AF_DECnet
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	153	# ifdef AF_DECnet
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	154	# ifndef PF_DECnet
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	155	# define PF_DECnet AF_DECnet
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	156	# endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	157	# endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	158	#else
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	159	# undef AF_DECnet
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	160	#endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	161
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	162	#ifdef WANT__AF_APPLETALK
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	163	# ifdef AF_APPLETALK
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	164	# ifndef PF_APPLETALK
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	165	# define PF_APPLETALK AF_APPLETALK
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	166	# endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	167	# endif
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	168	#else
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	169	# undef AF_APPLETALK
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	170	#endif
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	171
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	172	#ifdef WANT__AF_X25 /* X.25 */
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	173	# ifdef AF_X25
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	174	# ifndef PF_X25
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	175	# define PF_X25 AF_X25
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	176	# endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	177	# endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	178	#else
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	179	# undef AF_X25
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	180	#endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	181
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	182	#ifdef WANT__AF_NS /* Xerox XNS */
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	183	# ifdef AF_NS
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	184	# ifndef PF_NS
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	185	# define PF_NS AF_NS
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	186	# endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	187	# endif
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	188	#else
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	189	# undef AF_NS
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	190	#endif
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	191
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	192	#ifdef WANT__AF_SNA /* IBM SNA */
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	193	# ifdef AF_SNA
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	194	# ifndef PF_SNA
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	195	# define PF_SNA AF_SNA
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	196	# endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	197	# endif
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	198	#else
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	199	# undef AF_SNA
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	200	#endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	201
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	202	#ifdef WANT__AF_RAW /* RAW packets */
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	203	# ifdef AF_RAW
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	204	# ifndef PF_RAW
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	205	# define PF_RAW AF_RAW
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	206	# endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	207	# endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	208	#else
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	209	# undef AF_RAW
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	210	#endif
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	211
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	212	#ifdef WANT__AF_ISO /* ? */
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	213	# ifdef AF_ISO
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	214	# ifndef PF_ISO
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	215	# define PF_ISO AF_ISO
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	216	# endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	217	# endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	218	#else
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	219	# undef AF_ISO
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	220	#endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	221
823 85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	222	#ifdef WANT__AF_NETBIOS /* NETBIOS */
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	223	# ifdef AF_NETBIOS
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	224	# ifndef PF_NETBIOS
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	225	# define PF_NETBIOS AF_NETBIOS
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	226	# endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	227	# endif
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	228	#else
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	229	# undef AF_NETBIOS
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	230	#endif
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	231
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	232	#ifdef WANT__AF_CCITT /* ? */
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	233	# if defined(AF_CCITT) && (AF_CCITT != AF_X25)
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	234	# ifndef PF_CCITT
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	235	# define PF_CCITT AF_CCITT
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	236	# endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	237	# endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	238	#else
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	239	# undef AF_CCITT
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	240	#endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	241
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	242	#ifdef WANT__AF_IPX /* Novell IPX */
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	243	# ifdef AF_IPX
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	244	# ifndef PF_IPX
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	245	# define PF_IPX AF_IPX
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	246	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	247	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	248	#else
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	249	# undef AF_IPX
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	250	#endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	251
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	252	#ifdef WANT__AF_AX25 /* Amateur Radio AX.25 */
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	253	# ifdef AF_AX25
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	254	# ifndef PF_AX25
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	255	# define PF_AX25 AF_AX25
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	256	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	257	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	258	#else
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	259	# undef AF_AX25
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	260	#endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	261
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	262	#ifdef WANT__AF_NETROM /* Amateur Radio NET/ROM */
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	263	# ifdef AF_NETROM
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	264	# ifndef PF_NETROM
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	265	# define PF_NETROM AF_NETROM
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	266	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	267	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	268	#else
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	269	# undef AF_NETROM
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	270	#endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	271
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	272	#ifdef WANT__AF_BRIDGE /* multiprotocol bridge */
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	273	# ifdef AF_BRIDGE
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	274	# ifndef PF_BRIDGE
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	275	# define PF_BRIDGE AF_BRIDGE
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	276	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	277	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	278	#else
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	279	# undef AF_BRIDGE
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	280	#endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	281
571 191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	282	#ifdef WANT__AF_BSC /* BISYNC 2780/3780 */
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	283	# ifdef AF_BSC
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	284	# ifndef PF_BSC
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	285	# define PF_BSC AF_BSC
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	286	# endif
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	287	# endif
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	288	#else
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	289	# undef AF_BSC
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	290	#endif
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	291
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	292	#ifdef WANT__AF_ROSE /* Amateur Radio X.25 PLP */
814 d0e45218532d * empty log message * Claus Gittinger <cg@exept.de> parents: 812 diff changeset	293	# ifdef AF_ROSE
d0e45218532d * empty log message * Claus Gittinger <cg@exept.de> parents: 812 diff changeset	294	# ifndef PF_ROSE
d0e45218532d * empty log message * Claus Gittinger <cg@exept.de> parents: 812 diff changeset	295	# define PF_ROSE AF_ROSE
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	296	# endif
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	297	# endif
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	298	#else
814 d0e45218532d * empty log message * Claus Gittinger <cg@exept.de> parents: 812 diff changeset	299	# undef AF_ROSE
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	300	#endif
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	301
823 85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	302	#ifdef WANT__AF_ATM /* ATM Services */
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	303	# ifdef AF_ATM
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	304	# ifndef PF_ATM
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	305	# define PF_ATM AF_ATM
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	306	# endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	307	# endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	308	#else
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	309	# undef AF_ATM
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	310	#endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	311
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	312	#ifdef WANT__AF_BAN /* BAN / VINES IP Services */
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	313	# ifdef AF_BAN
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	314	# ifndef PF_BAN
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	315	# define PF_BAN AF_BAN
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	316	# endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	317	# endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	318	#else
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	319	# undef AF_BAN
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	320	#endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	321
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	322	#ifdef WANT__AF_VOICEVIEW /* VoiceView Services W95 only */
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	323	# ifdef AF_VOICEVIEW
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	324	# ifndef PF_VOICEVIEW
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	325	# define PF_VOICEVIEW AF_VOICEVIEW
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	326	# endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	327	# endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	328	#else
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	329	# undef AF_VOICEVIEW
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	330	#endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	331
571 191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	332
528 928f68d9c080 * empty log message * Claus Gittinger <cg@exept.de> parents: 527 diff changeset	333	/*
928f68d9c080 * empty log message * Claus Gittinger <cg@exept.de> parents: 527 diff changeset	334	* now, include what we have to ...
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	335	* undef support, if no include file is present
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	336	* (or I dont know yet, where to find it)
528 928f68d9c080 * empty log message * Claus Gittinger <cg@exept.de> parents: 527 diff changeset	337	*/
739 eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	338
823 85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	339	#ifdef AF_UNIX
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	340	# ifdef UNIX
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	341	# include <sys/un.h>
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	342	# else
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	343	# undef AF_UNIX
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	344	# endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	345	#endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	346
739 eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	347	#ifdef AF_INET
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	348	# include <netdb.h>
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	349	# if defined(LINUX) && defined(AF_INET6)
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	350	# include <linux/in.h>
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	351	# else
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	352	# include <netinet/in.h>
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	353	# endif
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	354	# if ! (defined(SYSV3) && defined(mc88k))
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	355	# include <netinet/tcp.h>
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	356	# endif
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	357	#endif
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	358
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	359	#ifdef AF_INET6
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	360	# if defined(LINUX) && defined(__GLIBC__)
739 eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	361	# include <linux/in6.h>
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	362	# else
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	363	# undef AF_INET6
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	364	# endif
739 eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	365	#endif
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	366
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	367	#ifdef AF_APPLETALK
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	368	# ifdef LINUX
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	369	# include <asm/types.h>
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	370	# include <linux/atalk.h>
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	371	# else
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	372	# undef AF_APPLETALK
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	373	# endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	374	#endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	375
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	376	#ifdef AF_DECNET
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	377	# ifdef solaris2_0
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	378	# include <X11/dni8.h>
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	379	# else
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	380	# undef AF_DECNET
465 3673e44dbd2f remove windows ^M characters Claus Gittinger <cg@exept.de> parents: 464 diff changeset	381	# endif
739 eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	382	#endif
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	383
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	384	#ifdef AF_X25
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	385	# ifdef LINUX
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	386	# include <linux/x25.h>
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	387	# else
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	388	# undef AF_X25
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	389	# endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	390	#endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	391
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	392	#ifdef AF_AX25
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	393	# ifdef LINUX
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	394	# include <linux/ax25.h>
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	395	# else
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	396	# undef AF_AX25
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	397	# endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	398	#endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	399
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	400	#ifdef AF_IPX
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	401	# ifdef LINUX
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	402	# include <linux/ipx.h>
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	403	# else
823 85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	404	# ifdef WIN32
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	405	# include <wsipx.h>
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	406	# else
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	407	# undef AF_IPX
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	408	# endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	409	# endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	410	#endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	411
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	412	#ifdef AF_NETBIOS
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	413	# ifdef WIN32
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	414	# include <wsnetbs.h>
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	415	# else
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	416	# undef AF_NETBIOS
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	417	# endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	418	#endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	419
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	420	#ifdef AF_ATM
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	421	# ifdef WIN32
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	422	# include <ws2atm.h>
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	423	# else
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	424	# undef AF_ATM
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	425	# endif
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	426	#endif
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	427
823 85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	428	#ifdef AF_BAN
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	429	# ifdef WIN32
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	430	# include <wsvns.h>
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	431	# else
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	432	# undef AF_BAN
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	433	# endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	434	#endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	435
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	436	#ifdef AF_VOICEVIEW
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	437	# ifdef WIN32
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	438	# include <wsvv.h>
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	439	# else
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	440	# undef AF_VOICEVIEW
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	441	# endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	442	#endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	443
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	444	#undef AF_SNA /* not yet implemented */
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	445	#undef AF_RAW /* not yet implemented */
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	446	#undef AF_NETROM /* not yet implemented */
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	447	#undef AF_BRIDGE /* not yet implemented */
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	448	#undef AF_BSC /* not yet implemented */
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	449
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	450
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	451	/*
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	452	* see what is leftOver
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	453	*/
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	454	union sockaddr_u {
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	455	#ifdef AF_UNIX
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	456	struct sockaddr_un un;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	457	#endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	458	#ifdef AF_INET
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	459	struct sockaddr_in in;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	460	#endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	461	#ifdef AF_INET6
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	462	struct sockaddr_in6 in6;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	463	#endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	464	#ifdef AF_APPLETALK
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	465	struct sockaddr_at at;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	466	#endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	467	#ifdef AF_DECNET
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	468	struct sockaddr_dn dn;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	469	#endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	470	#ifdef AF_X25
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	471	struct sockaddr_x25 x25;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	472	#endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	473	#ifdef AF_AX25
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	474	struct sockaddr_ax25 ax25;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	475	#endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	476	#ifdef AF_IPX
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	477	struct sockaddr_ipx ipx;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	478	#endif
823 85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	479	#ifdef AF_NETBIOS
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	480	struct sockaddr_nb nb;
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	481	#endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	482	#ifdef AF_ATM
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	483	struct sockaddr_atm atm;
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	484	#endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	485	#ifdef AF_BAN
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	486	struct sockaddr_vns vns;
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	487	#endif
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	488	#ifdef AF_VOICEVIEW
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	489	struct sockaddr_vv vv;
85c20f9e71de * empty log message * Claus Gittinger <cg@exept.de> parents: 822 diff changeset	490	#endif
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	491	};
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	492
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	493
739 eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	494	#if defined(TRY_AGAIN) \|\| defined(HOST_NOT_FOUND)
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	495	# define USE_H_ERRNO
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	496	#endif
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	497
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	498
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	499
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	500	/*
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	501	* on some systems errno is a macro ... check for it here
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	502	*/
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	503	#ifndef errno
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	504	extern errno;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	505	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	506
648 58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	507	#ifdef USE_H_ERRNO
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	508	# ifndef h_errno
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	509	extern h_errno;
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	510	# endif
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	511	#endif
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	512
720 967fad20a8f1 newest stdio uses __new Claus Gittinger <cg@exept.de> parents: 711 diff changeset	513	#ifdef xxLINUX
967fad20a8f1 newest stdio uses __new Claus Gittinger <cg@exept.de> parents: 711 diff changeset	514	/* use inline string macros ... */
967fad20a8f1 newest stdio uses __new Claus Gittinger <cg@exept.de> parents: 711 diff changeset	515	# define __STRINGDEFS__
967fad20a8f1 newest stdio uses __new Claus Gittinger <cg@exept.de> parents: 711 diff changeset	516	# include <linuxIntern.h>
967fad20a8f1 newest stdio uses __new Claus Gittinger <cg@exept.de> parents: 711 diff changeset	517	#endif
967fad20a8f1 newest stdio uses __new Claus Gittinger <cg@exept.de> parents: 711 diff changeset	518
648 58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	519	/*
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	520	* gethostbyname seems to have trouble
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	521	* sometimes, if interrupted while a request
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	522	* is on its way the name server.
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	523	* (although specified in the man-page,
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	524	* a check on TRY_AGAIN fails on iris)
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	525	*/
692 85d64f84be0c oops - do not make gethostbyaddr / byname interruptable; Claus Gittinger <cg@exept.de> parents: 672 diff changeset	526	#ifdef LINUX
85d64f84be0c oops - do not make gethostbyaddr / byname interruptable; Claus Gittinger <cg@exept.de> parents: 672 diff changeset	527
85d64f84be0c oops - do not make gethostbyaddr / byname interruptable; Claus Gittinger <cg@exept.de> parents: 672 diff changeset	528	# define GETHOSTBYNAME(hp, name) \
85d64f84be0c oops - do not make gethostbyaddr / byname interruptable; Claus Gittinger <cg@exept.de> parents: 672 diff changeset	529	hp = gethostbyname((char *) name);
85d64f84be0c oops - do not make gethostbyaddr / byname interruptable; Claus Gittinger <cg@exept.de> parents: 672 diff changeset	530
85d64f84be0c oops - do not make gethostbyaddr / byname interruptable; Claus Gittinger <cg@exept.de> parents: 672 diff changeset	531	# define GETHOSTBYADDR(hp, addr, alen, af) \
85d64f84be0c oops - do not make gethostbyaddr / byname interruptable; Claus Gittinger <cg@exept.de> parents: 672 diff changeset	532	hp = gethostbyaddr(addr, alen, af);
85d64f84be0c oops - do not make gethostbyaddr / byname interruptable; Claus Gittinger <cg@exept.de> parents: 672 diff changeset	533
85d64f84be0c oops - do not make gethostbyaddr / byname interruptable; Claus Gittinger <cg@exept.de> parents: 672 diff changeset	534	#else
85d64f84be0c oops - do not make gethostbyaddr / byname interruptable; Claus Gittinger <cg@exept.de> parents: 672 diff changeset	535
693 c7a1bf49dcf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 692 diff changeset	536	# ifdef IRIX5_3
c7a1bf49dcf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 692 diff changeset	537	# define GETHOSTBYNAME(hp, name) \
648 58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	538	do { \
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	539	__BEGIN_INTERRUPTABLE__ \
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	540	hp = gethostbyname((char *) name); \
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	541	__END_INTERRUPTABLE__ \
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	542	} while ((hp == NULL) && \
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	543	((h_errno == TRY_AGAIN) \|\| (errno == ECONNREFUSED)));
650 8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	544
693 c7a1bf49dcf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 692 diff changeset	545	# define GETHOSTBYADDR(hp, addr, alen, af) \
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	546	do { \
650 8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	547	__BEGIN_INTERRUPTABLE__ \
8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	548	hp = gethostbyaddr(addr, alen, af); \
8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	549	__END_INTERRUPTABLE__ \
8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	550	} while ((hp == NULL) && \
8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	551	((h_errno == TRY_AGAIN) \|\| (errno == ECONNREFUSED)));
693 c7a1bf49dcf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 692 diff changeset	552	# else
c7a1bf49dcf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 692 diff changeset	553	# ifdef USE_H_ERRNO
c7a1bf49dcf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 692 diff changeset	554	# define GETHOSTBYNAME(hp, name) \
648 58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	555	do { \
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	556	__BEGIN_INTERRUPTABLE__ \
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	557	hp = gethostbyname((char *) name); \
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	558	__END_INTERRUPTABLE__ \
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	559	} while ((hp == NULL) && (h_errno == TRY_AGAIN));
650 8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	560
693 c7a1bf49dcf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 692 diff changeset	561	# define GETHOSTBYADDR(hp, addr, alen, af) \
650 8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	562	do { \
8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	563	__BEGIN_INTERRUPTABLE__ \
8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	564	hp = gethostbyaddr(addr, alen, af); \
8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	565	__END_INTERRUPTABLE__ \
8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	566	} while ((hp == NULL) && (h_errno == TRY_AGAIN));
693 c7a1bf49dcf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 692 diff changeset	567	# else
c7a1bf49dcf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 692 diff changeset	568	# define GETHOSTBYNAME(hp, name) \
648 58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	569	__BEGIN_INTERRUPTABLE__ \
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	570	hp = gethostbyname((char *) name); \
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	571	__END_INTERRUPTABLE__
650 8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	572
693 c7a1bf49dcf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 692 diff changeset	573	# define GETHOSTBYADDR(hp, addr, alen, af) \
650 8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	574	__BEGIN_INTERRUPTABLE__ \
8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	575	hp = gethostbyaddr(addr, alen, af); \
8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	576	__END_INTERRUPTABLE__
693 c7a1bf49dcf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 692 diff changeset	577	# endif
648 58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	578	# endif
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	579	#endif
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	580
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	581	#ifdef DEBUG
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	582	# define DBGPRINTF(x) { if (__debugging__) printf x; }
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	583	# define DBGFPRINTF(x) { if (__debugging__) fprintf x; }
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	584	#else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	585	# define DBGPRINTF(x) /* as nothing */
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	586	# define DBGFPRINTF(x) /* as nothing */
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	587	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	588
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	589	%}
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	590	! !
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	591
511 c071e228cb24 * empty log message * Claus Gittinger <cg@exept.de> parents: 510 diff changeset	592	!Socket primitiveVariables!
c071e228cb24 * empty log message * Claus Gittinger <cg@exept.de> parents: 510 diff changeset	593	%{
c071e228cb24 * empty log message * Claus Gittinger <cg@exept.de> parents: 510 diff changeset	594	static int __debugging__ = 0;
c071e228cb24 * empty log message * Claus Gittinger <cg@exept.de> parents: 510 diff changeset	595	%}
c071e228cb24 * empty log message * Claus Gittinger <cg@exept.de> parents: 510 diff changeset	596	! !
c071e228cb24 * empty log message * Claus Gittinger <cg@exept.de> parents: 510 diff changeset	597
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	598	!Socket class methodsFor:'documentation'!
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	599
31 e223f3cf2995 * empty log message * claus parents: 28 diff changeset	600	copyright
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	601	"
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	602	COPYRIGHT (c) 1992 by Claus Gittinger
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	603	All Rights Reserved
31 e223f3cf2995 * empty log message * claus parents: 28 diff changeset	604
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	605	This software is furnished under a license and may be used
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	606	only in accordance with the terms of that license and with the
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	607	inclusion of the above copyright notice. This software may not
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	608	be provided or otherwise made available to, or used by, any
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	609	other person. No title to or ownership of the software is
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	610	hereby transferred.
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	611	"
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	612	!
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	613
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	614	documentation
996051271ce9 * empty log message * claus parents: 21 diff changeset	615	"
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	616	This class provides access to sockets for interprocess communication.
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	617	The message protocol is preliminary, until someone tells me how
31 e223f3cf2995 * empty log message * claus parents: 28 diff changeset	618	other smalltalk's socket interfaces look like.
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	619
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	620	Currently, only IP and UNIX domain sockets are supported.
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	621	Code for appletalk is included, but was never tested ...
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	622	More may be added in the future.
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	623	(the code is prepared for things like SNA or decNet;
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	624	however, right now, this code is empty and needs a little work.
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	625	Implementing those is pretty straight forward, once the address
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	626	data structures are known.)
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	627
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	628	Due to historic reasons (I started this class, before I got hold of some
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	629	code using ST-80 Sockets i.e. RemoteInvocation), there is some old interface
71 632e2cc151c9 . claus parents: 63 diff changeset	630	still provided.
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	631	This will vanish; use the #family:type: or #newTCPxxx and #newUDPxxx interfaces,
71 632e2cc151c9 . claus parents: 63 diff changeset	632	together with the bind/listen and accept calls,
632e2cc151c9 . claus parents: 63 diff changeset	633	which are meant to be compatible to ST-80's UnixSocketAccessor interface.
632e2cc151c9 . claus parents: 63 diff changeset	634
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	635	ST/X does not use IPSocketAddress, UDSocketAddress etc; all addressing
71 632e2cc151c9 . claus parents: 63 diff changeset	636	is done by passing appropriate string- or byteArray objects containing
632e2cc151c9 . claus parents: 63 diff changeset	637	the addresses. This may change, too.
632e2cc151c9 . claus parents: 63 diff changeset	638
632e2cc151c9 . claus parents: 63 diff changeset	639	TODO: cleanup historic leftovers, implement other than inet domain stuff.
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	640	(mhmh - how can I test those ?)
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	641	change to raise more signals on errors.
529 fc7ec265717b * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	642	Help - could someone who has a linux machine connected to an appletalk
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	643	net please test this (and send bug fixes ...)
259 6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 220 diff changeset	644
6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 220 diff changeset	645	[author:]
425 eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	646	Claus Gittinger
48 18b9353c9d07 * empty log message * claus parents: 44 diff changeset	647	"
18b9353c9d07 * empty log message * claus parents: 44 diff changeset	648	!
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	649
48 18b9353c9d07 * empty log message * claus parents: 44 diff changeset	650	examples
18b9353c9d07 * empty log message * claus parents: 44 diff changeset	651	"
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	652	example (get help info from an nntp server):
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	653	[exBegin]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	654	\|sock host\|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	655
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	656	host := OperatingSystem getEnvironment:'NNTPSERVER'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	657
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	658	sock := Socket newTCPclientToHost:host port:'nntp'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	659	Transcript showCR:sock nextLine.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	660	sock buffered:false.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	661
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	662	sock nextPutAll:'HELP'; cr.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	663	[:exit \|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	664	\|line\|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	665
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	666	line := sock nextLine.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	667	line = '.' ifTrue:[exit value:nil].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	668	Transcript showCR:line.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	669	] loopWithExit.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	670	sock close
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	671	[exEnd]
209 2152fceba563 finger example Claus Gittinger <cg@exept.de> parents: 208 diff changeset	672
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	673
209 2152fceba563 finger example Claus Gittinger <cg@exept.de> parents: 208 diff changeset	674	example (connect to finger daemon, get users entry):
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	675	[exBegin]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	676	\|sock host entry\|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	677
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	678	host := OperatingSystem getHostName.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	679
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	680	sock := Socket newTCPclientToHost:host port:'finger'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	681	sock isNil ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	682	self warn:'no finger daemon is running'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	683	^ self
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	684	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	685	sock useCRLF:true.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	686	sock buffered:false.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	687	sock isNil ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	688	Transcript showCR:'cannot connect to local finger daemon'
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	689	] ifFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	690	sock nextPutAll:(OperatingSystem getLoginName).
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	691	sock cr.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	692
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	693	entry := sock nextLine.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	694	Transcript showCR:entry.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	695
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	696	sock close
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	697	]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	698	[exEnd]
99 7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	699
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	700	example (connect to an ftp server):
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	701	[exBegin]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	702	\|sock host\|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	703
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	704	host := OperatingSystem getHostName.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	705	sock := Socket newTCPclientToHost:host port:'ftp'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	706
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	707	sock buffered:false.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	708	Transcript showCR:sock nextLine.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	709	sock nextPutAll:('USER ' , 'anonymous'); cr.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	710	Transcript showCR:sock nextLine.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	711	sock nextPutAll:('PASS ' , 'fooBar'); cr.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	712	Transcript showCR:sock nextLine.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	713	sock nextPutAll:'LIST'; cr.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	714	Transcript showCR:sock nextLine.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	715	sock close.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	716
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	717	'dont know enough of the ftp protocol to continue here ...'
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	718	[exEnd]
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	719
99 7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	720
93 8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	721	example (connect to an snmp server [UDP]):
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	722	[exBegin]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	723	\|sock port\|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	724
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	725	sock := Socket newUDP.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	726	port := Socket portOfService:'snmp'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	727	sock connectTo:(OperatingSystem getHostName) port:port.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	728	sock buffered:false.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	729	Transcript showCR:'got it'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	730	sock close.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	731	[exEnd]
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	732
99 7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	733
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	734	example (await connection from a client and read some data):
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	735	\|connectSock sock\|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	736
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	737	connectSock := Socket newTCPserverAtPort:9998.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	738	connectSock isNil ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	739	Transcript showCR:'socket setup failed.'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	740	] ifFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	741	Transcript showCR:'listen ..'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	742	(connectSock listenFor:5) ifFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	743	Transcript showCR:'listen failed.'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	744	] ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	745	Transcript showCR:'wait'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	746	connectSock readWait.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	747	Transcript showCR:'accept'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	748	sock := connectSock accept.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	749	sock isNil ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	750	Transcript showCR:'accept failed.'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	751	] ifFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	752	sock buffered:false.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	753	Transcript showCR:'server: got it'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	754	'can now do transfer via sock'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	755	Transcript showCR:'read'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	756	Transcript showCR:('got: ' , sock nextLine).
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	757
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	758	Transcript showCR:'close'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	759	sock close
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	760	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	761	connectSock close.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	762	]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	763	]
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	764
99 7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	765
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	766	example (connect to above server and send some data):
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	767	\|sock\|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	768
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	769	sock := Socket newTCPclientToHost:(OperatingSystem getHostName) port:9998.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	770	sock isNil ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	771	Transcript showCR:'nope'
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	772	] ifFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	773	sock buffered:false.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	774	Transcript showCR:'client: got it'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	775	'can now do transfer via sock'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	776	Transcript showCR:'sending <hello>'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	777	sock nextPutLine:'hello'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	778	sock close
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	779	]
117 03cefad7e40b UD socket example & interruptable bind Claus Gittinger <cg@exept.de> parents: 116 diff changeset	780
03cefad7e40b UD socket example & interruptable bind Claus Gittinger <cg@exept.de> parents: 116 diff changeset	781	example: UNIX domain socket (await connection from a client and read some data):
03cefad7e40b UD socket example & interruptable bind Claus Gittinger <cg@exept.de> parents: 116 diff changeset	782
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	783	\|connectSock sock\|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	784
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	785	'/tmp/ud_socket' asFilename remove.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	786	connectSock := Socket newUNIXserverAt:'/tmp/ud_socket'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	787	connectSock isNil ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	788	Transcript showCR:'socket setup failed.'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	789	] ifFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	790	Transcript showCR:'listen ..'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	791	(connectSock listenFor:5) ifFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	792	Transcript showCR:'listen failed.'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	793	] ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	794	Transcript showCR:'wait'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	795	connectSock buffered:false.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	796	connectSock readWait.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	797	Transcript showCR:'accept'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	798	sock := connectSock accept.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	799	sock isNil ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	800	Transcript showCR:'accept failed.'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	801	] ifFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	802	sock buffered:false.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	803	Transcript showCR:'server: got it'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	804	'can now do transfer via sock'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	805	Transcript showCR:'read'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	806	Transcript showCR:('got: ' , sock nextLine).
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	807
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	808	Transcript showCR:'close'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	809	sock close
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	810	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	811	connectSock close.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	812	]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	813	]
117 03cefad7e40b UD socket example & interruptable bind Claus Gittinger <cg@exept.de> parents: 116 diff changeset	814
03cefad7e40b UD socket example & interruptable bind Claus Gittinger <cg@exept.de> parents: 116 diff changeset	815
118 142d5c273454 * empty log message * Claus Gittinger <cg@exept.de> parents: 117 diff changeset	816	example (connect to above server and send some data;
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	817	Notice, this fails, if above server code is executed in the same ST/X image
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	818	(at least on LINUX), since the OS does not correctly handle
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	819	a connect from within an interrupted accept system call
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	820	On SGI's SVR4, this works ok
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	821
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	822	\|sock\|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	823
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	824	sock := Socket newUNIXclientTo:'/tmp/ud_socket'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	825	sock isNil ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	826	Transcript showCR:'nope'
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	827	] ifFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	828	sock buffered:false.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	829	Transcript showCR:'client: got it'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	830	'can now do transfer via sock'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	831	Transcript showCR:'sending <hello>'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	832	sock nextPutLine:'hello'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	833	sock close
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	834	]
99 7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	835
7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	836
7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	837	example: pingWalk (try to ping hosts on the local network)
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	838	[exBegin]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	839	\|myName myAddress list top hosts walkProcess port\|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	840
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	841	myName := OperatingSystem getHostName.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	842	myAddress := Socket ipAddressOfHost:myName.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	843
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	844	port := Socket portOfService:'echo'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	845	port isNil ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	846	self error:'dont know echo port'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	847	^ self
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	848	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	849
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	850	top := StandardSystemView new.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	851	top label:'PING net walk'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	852
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	853	list := ScrollableView for:ListView in:top.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	854	list origin:0.0@0.0 corner:1.0@1.0.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	855
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	856	top openAndWait.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	857
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	858	walkProcess := [
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	859	\|l low hi direction tryHostID dottedName hostName conn addr\|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	860
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	861	l := SortedCollection new.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	862
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	863	' only works with type C-net
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	864	the code below could simply do 1 to:254 do:[:hostID }
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	865	but, to probe likely hosts earlier, the probing is done
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	866	ping-pong like around my ip-address (assuming, that other machines
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	867	have numbers around my own)'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	868
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	869	low := hi := (myAddress at:4).
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	870	direction := 1.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	871
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	872	[low > 0 or:[hi < 255]] whileTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	873	direction > 0 ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	874	hi := hi + 1.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	875	tryHostID := hi.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	876	direction := -1.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	877	] ifFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	878	low := low - 1.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	879	tryHostID := low.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	880	direction := 1.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	881	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	882	(tryHostID between:1 and:254) ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	883	dottedName := (myAddress at:1) printString
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	884	, '.' , (myAddress at:2) printString
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	885	, '.' , (myAddress at:3) printString
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	886	, '.' , tryHostID printString.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	887
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	888	top label:'PING net walk - trying ' , dottedName.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	889
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	890	top windowGroup withCursor:Cursor wait do:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	891	conn := Socket newTCPclientToHost:dottedName port:port withTimeout:1000.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	892	conn notNil ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	893	addr := Socket ipAddressOfHost:dottedName.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	894	hostName := Socket hostWithIpAddress:addr.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	895	hostName isNil ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	896	hostName :='?'
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	897	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	898	l add:(dottedName paddedTo:15 with:Character space)
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	899	, ' '
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	900	, (hostName paddedTo:15 with:Character space)
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	901	, ' up & reachable'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	902	list list:l.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	903	conn close.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	904	]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	905	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	906	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	907	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	908	top label:'PING reachable hosts'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	909	] forkAt:(Processor userBackgroundPriority).
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	910	walkProcess name:'ping net walker'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	911	[exEnd]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	912
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	913
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	914	This example creates a simple UDP server that accepts
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	915	single packets from anybody and broadcasts them to all
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	916	clients that have connected so far.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	917
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	918	[exBegin]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	919	\| socket address buffer msgSize clients \|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	920	clients := Set new.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	921	address := IPSocketAddress new.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	922	buffer := String new: 1024.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	923
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	924	socket := self newUDPserverAtPort: 6666.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	925
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	926	Transcript showCR: 'server starting'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	927
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	928	[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	929	[true] whileTrue: [
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	930	(socket readWaitWithTimeoutMs: 200) ifFalse: [
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	931	msgSize := socket
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	932	receiveFrom: address
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	933	buffer: buffer
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	934	start: 1
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	935	for: buffer size.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	936
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	937	clients add: address copy.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	938	clients do: [ :clientAddress \|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	939	socket
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	940	sendTo: clientAddress
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	941	buffer: buffer
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	942	start: 1
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	943	for: msgSize]]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	944	]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	945	] valueNowOrOnUnwindDo:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	946	Transcript showCR: 'server shutting down'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	947	socket close
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	948	]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	949	[exEnd]
817 eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	950
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	951	send a datagram to above server:
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	952	[exBegin]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	953
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	954	\| socket address buffer host msg \|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	955
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	956	host := Dialog
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	957	request: 'What is the name of the server''s host?'
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	958	initialAnswer: 'localhost'.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	959
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	960	socket := self newUDP.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	961
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	962	address := IPSocketAddress hostName: host port: 6666.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	963
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	964	buffer := ByteArray new: 1000.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	965	[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	966	[(msg := Dialog request: 'Say something') isEmpty] whileFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	967	\| replySize stream \|
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	968
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	969	socket writeWait.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	970	stream := buffer writeStream.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	971	stream nextPutAll: msg.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	972	socket sendTo:address buffer:buffer start:1 for:stream position.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	973	socket readWait.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	974
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	975	replySize := socket receiveFrom:address buffer:buffer.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	976	replySize > 0 ifTrue: [
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	977	Transcript cr; nextPutAll: 'Server acknowledged: '.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	978	Transcript show: ((buffer copyFrom: 1 to: replySize) asString)
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	979	]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	980	]
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	981	] valueNowOrOnUnwindDo: [socket close].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	982	Transcript cr
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	983	[exEnd]
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	984	"
817 eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	985
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	986	! !
996051271ce9 * empty log message * claus parents: 21 diff changeset	987
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	988	!Socket class methodsFor:'ST80 instance creation'!
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	989
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	990	family:domainSymbol type:typeSymbol
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	991	"create a socket for domain and type - ST80 simply uses a different name.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	992	Domain must be one of the symbols: #inet, #unix, #ns, #appletalk or #ns;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	993	Type must be #stream, #datagram or #raw
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	994
811 72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	995	XXX: currently only the #inet and #unix domains is supported"
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	996
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	997	^ self domain:domainSymbol type:typeSymbol
51 24f978f1d849 * empty log message * claus parents: 48 diff changeset	998
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	999	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1000	Socket family:#inet type:#stream
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1001	Socket family:#inet type:#datagram
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1002	Socket family:#unix type:#stream
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1003	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1004	! !
93 8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	1005
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	1006	!Socket class methodsFor:'ST80 queries'!
115 a9d85df931c4 added Unix domain support Claus Gittinger <cg@exept.de> parents: 112 diff changeset	1007
617 6ccbaa111a74 added #getHostname (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 604 diff changeset	1008	getHostname
6ccbaa111a74 added #getHostname (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 604 diff changeset	1009	"return the computers hostname string"
6ccbaa111a74 added #getHostname (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 604 diff changeset	1010
6ccbaa111a74 added #getHostname (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 604 diff changeset	1011	^ OperatingSystem getHostName
6ccbaa111a74 added #getHostname (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 604 diff changeset	1012
6ccbaa111a74 added #getHostname (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 604 diff changeset	1013	"Created: / 27.2.1998 / 02:32:17 / cg"
6ccbaa111a74 added #getHostname (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 604 diff changeset	1014	!
6ccbaa111a74 added #getHostname (ST80 compatibility) Claus Gittinger <cg@exept.de> parents: 604 diff changeset	1015
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1016	sockStream
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1017	"return the type code for stream sockets"
51 24f978f1d849 * empty log message * claus parents: 48 diff changeset	1018
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1019	^ #stream
44 b4db396f9255 EINTR stuff claus parents: 42 diff changeset	1020	! !
b4db396f9255 EINTR stuff claus parents: 42 diff changeset	1021
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	1022	!Socket class methodsFor:'Signal constants'!
21 33eb5ffad09d * empty log message * claus parents: 8 diff changeset	1023
33eb5ffad09d * empty log message * claus parents: 8 diff changeset	1024	brokenConnectionSignal
33eb5ffad09d * empty log message * claus parents: 8 diff changeset	1025	"return the signal used to tell broken connections.
33eb5ffad09d * empty log message * claus parents: 8 diff changeset	1026	Since in unix, this is the same as the broken pipe signal,
33eb5ffad09d * empty log message * claus parents: 8 diff changeset	1027	return that one.
33eb5ffad09d * empty log message * claus parents: 8 diff changeset	1028	(for other Operatingsystems, this may change ..)"
33eb5ffad09d * empty log message * claus parents: 8 diff changeset	1029
33eb5ffad09d * empty log message * claus parents: 8 diff changeset	1030	^ PipeStream brokenPipeSignal
33eb5ffad09d * empty log message * claus parents: 8 diff changeset	1031	! !
33eb5ffad09d * empty log message * claus parents: 8 diff changeset	1032
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	1033	!Socket class methodsFor:'debugging'!
71 632e2cc151c9 . claus parents: 63 diff changeset	1034
632e2cc151c9 . claus parents: 63 diff changeset	1035	debug:aBoolean
632e2cc151c9 . claus parents: 63 diff changeset	1036	"turn on/off internal debugprints.
632e2cc151c9 . claus parents: 63 diff changeset	1037	This method is for ST/X debugging only and
632e2cc151c9 . claus parents: 63 diff changeset	1038	may be removed in later versions"
632e2cc151c9 . claus parents: 63 diff changeset	1039
632e2cc151c9 . claus parents: 63 diff changeset	1040	%{ /* NOCONTEXT */
632e2cc151c9 . claus parents: 63 diff changeset	1041
632e2cc151c9 . claus parents: 63 diff changeset	1042	__debugging__ = (aBoolean == true);
632e2cc151c9 . claus parents: 63 diff changeset	1043	%}
93 8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	1044	"
8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	1045	Socket debug:true
8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	1046	Socket debug:false
8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	1047	"
71 632e2cc151c9 . claus parents: 63 diff changeset	1048	! !
632e2cc151c9 . claus parents: 63 diff changeset	1049
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	1050	!Socket class methodsFor:'easy tcp/ip instance creation'!
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1051
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1052	connectTo:service on:host
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1053	"standard & easy client setup:
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1054	create new client tcp socket, bind and connect;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1055	return the socket.
811 72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1056	The thread block (interruptable), until the connection is
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1057	established."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1058
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1059	^ (self new) for:host port:(self portOfService:service).
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1060
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1061	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1062	Socket connectTo:9995 on:'clam'
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1063	Socket connectTo:'finger' on:'clam'
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1064	Socket connectTo:'ftp' on:'clam'
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1065	Socket connectTo:'nntp' on:(OperatingSystem getEnvironment:'NNTPSERVER')
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1066	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1067	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1068
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1069	provide:service
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1070	"standard & easy server setup:
811 72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1071	create a new TCP server socket providing a service."
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1072
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1073	\|newSock\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1074
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1075	newSock := (self new) for:nil port:(self portOfService:service).
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1076	newSock notNil ifTrue:[
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1077	newSock listenFor:5.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1078	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1079	^ newSock
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1080
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1081	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1082	Socket provide:9995
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1083	(Socket provide:9996) accept
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1084	Socket provide:'nntp'
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1085	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1086	! !
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1087
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	1088	!Socket class methodsFor:'general instance creation'!
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1089
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1090	domain:domainSymbol type:type
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1091	"create a socket for domain and type -
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1092	neither any connect nor binding is done.
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1093	Domain must be one of the symbols:
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1094	#inet, #unix, #appletalk, #decnet, #xns, ...;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1095	Type must be:
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1096	#stream, #datagram or #raw
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1097
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1098	XXX: currently only the #inet domain is supported"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1099
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1100	^ self new domain:domainSymbol type:type
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1101
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1102	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1103	Socket domain:#inet type:#stream
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1104	Socket domain:#inet type:#datagram
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1105	Socket domain:#unix type:#stream
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1106	Socket domain:#appletalk type:#stream
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1107	Socket domain:#decnet type:#stream
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1108	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1109	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1110
576 13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1111	new
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1112	"create a TCP socket"
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1113
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1114	^ super new buffered:false
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1115	!
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1116
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1117	newTCP
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1118	"create a TCP socket - no binding or other setup is done,
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1119	neither connect nor connect-wait is done."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1120
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1121	^ self new domain:#inet type:#stream
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1122
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1123	"Socket newUDP"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1124	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1125
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1126	newTCP:aServiceOrNil
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1127	"create a TCP socket for a service -
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1128	neither connect nor connect-wait is done."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1129
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1130	\|newSock\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1131
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1132	newSock := self newTCP.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1133	(newSock notNil and:[aServiceOrNil notNil]) ifTrue:[
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1134	(newSock bindTo:(self portOfService:aServiceOrNil) address:nil) ifFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1135	^ nil
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1136	]
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1137	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1138	^ newSock
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1139
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1140
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1141	"Socket newTCP:'nntp'"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1142	"Socket newTCP:9995"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1143	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1144
576 13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1145	newTCPclientToAddress:aHostAddress port:aService
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1146	"create a new TCP client socket connecting to a service.
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1147	Return a socket instance if ok, nil on failure.
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1148	Block until a connection is established (but only the current thread;
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1149	not the whole smalltalk).
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1150	See also: #newTCPclientToAddress:port:withTimeout:"
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1151
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1152	^ self newTCPclientToAddress:aHostAddress port:aService withTimeout:nil
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1153	!
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1154
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1155	newTCPclientToAddress:aHostAddress port:aService withTimeout:millis
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1156	"create a new TCP client socket connecting to a service.
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1157	Return a socket instance if ok, nil on failure.
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1158	If the millis arg is nonNil, stop trying to connect after that many milliseconds
811 72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1159	and return nil."
576 13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1160
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1161	^ self newTCPclientToHost:aHostAddress port:aService withTimeout:millis
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1162	!
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1163
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1164	newTCPclientToHost:hostname port:aService
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1165	"create a new TCP client socket connecting to a service.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1166	Return a socket instance if ok, nil on failure.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1167	Block until a connection is established (but only the current thread;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1168	not the whole smalltalk).
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1169	See also: #newTCPclientToHost:port:withTimeout:"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1170
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1171	^ self newTCPclientToHost:hostname port:aService withTimeout:nil
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1172
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1173	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1174	Socket newTCPclientToHost:'localhost' port:'nntp'
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1175	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1176
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1177	"Created: 31.10.1995 / 18:54:11 / cg"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1178	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1179
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1180	newTCPclientToHost:hostname port:aService withTimeout:millis
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1181	"create a new TCP client socket connecting to a service.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1182	Return a socket instance if ok, nil on failure.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1183	If the millis arg is nonNil, stop trying to connect after that many milliseconds
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1184	and return nil.."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1185
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1186	\|newSock\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1187
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1188	newSock := self newTCP.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1189	newSock notNil ifTrue:[
648 58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1190	(newSock connectTo:hostname
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1191	port:(self portOfService:aService protocol:'tcp')
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1192	withTimeout:millis
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1193	) ifFalse:[
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1194	newSock close.
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1195	^ nil
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1196	]
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1197	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1198	^ newSock
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1199	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1200	same as:
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1201	^ (self new) for:hostname port:(self portOfService:aPort).
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1202	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1203	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1204	Socket newTCPclientToHost:'slsv6bt' port:'nntp'
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1205	Socket newTCPclientToHost:'localhost' port:'nntp' withTimeout:1000
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1206	"
604 b302a21afece Remove redundant code. Stefan Vogel <sv@exept.de> parents: 589 diff changeset	1207
b302a21afece Remove redundant code. Stefan Vogel <sv@exept.de> parents: 589 diff changeset	1208	"Modified: / 16.1.1998 / 09:47:06 / stefan"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1209	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1210
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	1211	newTCPserverAtAnonymousPort
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	1212	"create a new TCP server socket providing service on
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	1213	a new anonymous port. The portNr is assigned by the OS."
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	1214
811 72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1215	^ self newTCPserverAtPort:0
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	1216
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	1217	!
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	1218
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1219	newTCPserverAtPort:aService
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1220	"create a new TCP server socket providing service."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1221
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1222	\|newSock\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1223
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1224	newSock := self newTCP.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1225	newSock notNil ifTrue:[
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1226	(newSock bindTo:(self portOfService:aService) address:nil) ifFalse:[
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1227	^ nil
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1228	]
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1229	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1230	^ newSock
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1231	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1232	same as:
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1233	^ (self new) for:nil port:aPort
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1234	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1235	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1236
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1237	newUDP
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1238	"create a UDP socket - no binding or other setup is done,
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1239	neither connect nor connect-wait is done."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1240
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1241	^ self new domain:#inet type:#datagram
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1242
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1243	"Socket newUDP"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1244	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1245
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1246	newUDP:aServiceOrNil
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1247	"create a UDP socket for a service -
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1248	neither connect nor connect-wait is done."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1249
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1250	\|newSock\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1251
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1252	newSock := self newUDP.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1253	(newSock notNil and:[aServiceOrNil notNil]) ifTrue:[
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1254	(newSock bindTo:(self portOfService:aServiceOrNil) address:nil) ifFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1255	^ nil
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1256	]
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1257	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1258	^ newSock
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1259
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1260	"Socket newUDP:nil"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1261	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1262
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1263	newUDPserverAtPort:aService
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1264	"create a new UDP server socket providing service."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1265
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1266	\|newSock\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1267
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1268	newSock := self newUDP.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1269	newSock notNil ifTrue:[
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1270	(newSock bindTo:(self portOfService:aService) address:nil) ifFalse:[
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1271	^ nil
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1272	]
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1273	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1274	^ newSock
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1275	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1276	same as:
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1277	^ (self new) for:nil udpPort:aPort
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1278	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1279	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1280
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1281	newUNIX
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1282	"create a UNIX domain socket - no binding or other setup is done,
811 72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1283	neither connect nor connect-wait is done.
72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1284	If the system does not support unix domain sockets (i.e. VMS or MSDOS),
72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1285	return nil."
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1286
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1287	^ self new domain:#unix type:#stream
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1288
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1289	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1290	Socket newUNIX
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1291	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1292	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1293
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1294	newUNIXclientTo:pathName
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1295	"create a new UNIX client socket connecting to a pathname.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1296	Return a socket instance if ok, nil on failure.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1297	Block until a connection is established (but only the current thread;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1298	not the whole smalltalk).
811 72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1299	If the system does not support unix domain sockets (i.e. VMS or MSDOS),
72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1300	return nil.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1301	See also: #newUNIXclientTo:withTimeout:"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1302
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1303	^ self newUNIXclientTo:pathName withTimeout:nil
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1304
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1305	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1306
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1307	newUNIXclientTo:pathName withTimeout:millis
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1308	"create a new UNIX client socket connecting to a pathname.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1309	Return a socket instance if ok, nil on failure.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1310	If the millis arg is nonNil, stop trying to connect after that many milliseconds
811 72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1311	and return nil.
72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1312	If the system does not support unix domain sockets (i.e. VMS or MSDOS),
72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1313	return nil."
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1314
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1315	\|newSock\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1316
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1317	newSock := self newUNIX.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1318	newSock notNil ifTrue:[
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1319	(newSock connectTo:pathName port:nil withTimeout:millis) ifFalse:[
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1320	newSock close.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1321	^ nil
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1322	]
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1323	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1324	^ newSock
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1325
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1326	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1327	\|s\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1328
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1329	s := Socket newUNIXclientTo:'/tmp/foo'
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1330	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1331	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1332
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1333	newUNIXserverAt:pathName
811 72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1334	"create a new UNIX server socket providing service at a pathname.
72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1335	If the system does not support unix domain sockets (i.e. VMS or MSDOS),
72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	1336	return nil."
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1337
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1338	\|newSock\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1339
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1340	newSock := self newUNIX.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1341	newSock notNil ifTrue:[
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1342	(newSock bindTo:pathName address:nil) ifFalse:[
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1343	^ nil
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1344	]
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1345	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1346	^ newSock
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1347
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1348	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1349	\|s s2\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1350
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1351	s := Socket newUNIXserverAt:'/tmp/foo'.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1352	s listenFor:5.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1353	s2 := s accept.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1354	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1355	! !
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1356
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1357	!Socket class methodsFor:'host queries'!
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1358
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1359	appletalkAddressOfHost:aHostName
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1360	"return the APPLETALK address for a hostname as a byteArray,
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1361	where the network bytes come first (no matter what the local byteorder is)
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1362	followed by the node byte.
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1363	If the host is unknown, return nil.
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1364	This is the reverse operation to #hostWithAppletalkAddress:.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1365	WARNING: untested code - I have no appletalk to test this."
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1366
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1367	%{
526 1748ab3892a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 525 diff changeset	1368	#if !defined(NO_SOCKET) && defined(AF_APPLETALK)
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1369	struct sockaddr_at sa;
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1370	struct hostent *hp ;
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1371	long addr;
653 219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	1372	OBJ rslt;
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1373
529 fc7ec265717b * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1374	sa.sat_family = -1;
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1375
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1376	if (__isString(aHostName)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1377	bzero(&sa, sizeof(sa)) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1378
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1379	/* do we know the host's address? */
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1380	GETHOSTBYNAME(hp, __stringVal(aHostName))
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1381	if (hp == NULL) {
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1382	DBGPRINTF(("SOCKET: unknown appletalk host: %s\n", __stringVal(aHostName)));
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1383	RETURN ( nil );
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1384	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1385	bcopy(hp->h_addr, (char *) &sa.sat_addr, hp->h_length) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1386	sa.sat_family = hp->h_addrtype;
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1387	}
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1388
752 c4176e236d83 * empty log message * Claus Gittinger <cg@exept.de> parents: 741 diff changeset	1389	/* if the addressing family is not AF_APPLETALK, Return nil */
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1390	if (sa.sat_family != AF_APPLETALK) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1391	DBGPRINTF(("SOCKET: not an appletalk host\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1392	RETURN ( nil );
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1393	}
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1394
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1395	sa.sat_addr.s_net = ntohs(sa.sat_addr.s_net);
653 219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	1396	rslt = __BYTEARRAY_NEW_INT(3);
219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	1397	if (rslt != nil) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1398	__ByteArrayInstPtr(rslt)->ba_element[0] = (sa.sat_addr.s_net >> 8) & 0xFF;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1399	__ByteArrayInstPtr(rslt)->ba_element[1] = (sa.sat_addr.s_net) & 0xFF;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	1400	__ByteArrayInstPtr(rslt)->ba_element[2] = (sa.sat_addr.s_node) & 0xFF;
653 219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	1401	RETURN (rslt);
219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	1402	}
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1403	#endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1404	%}.
653 219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	1405	^ nil
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1406
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1407	!
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1408
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1409	hostWithAppletalkAddress:anAddress
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1410	"return the hostname for an APPLETALK address.
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1411	The address is supposed to be a byteArray consisting of 3 bytes,
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1412	the network bytes come first (no matter what the local byteorder is).
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1413	The last byte is the node number.
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1414	Nil is returned for an unknown host or if its not an appletalk host.
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1415	This is is the reverse operation to #appletalkAddressOfHost:.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1416	WARNING: untested code - I have no appletalk to test this."
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1417
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1418	\|b1 b2 b3 b4\|
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1419
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1420	b1 := anAddress at:1. "/ net-hi
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1421	b2 := anAddress at:2. "/ net-low
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1422	b3 := anAddress at:3. "/ node
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1423	%{
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1424	#if !defined(NO_SOCKET) && defined(AF_APPLETALK)
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1425	struct sockaddr_at sa ;
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1426	struct hostent *hp ;
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1427
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1428	sa.sat_family = -1;
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1429
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1430	if (__bothSmallInteger(b1, b2) && __bothSmallInteger(b3, b4)) {
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1431	bzero(&sa, sizeof(sa)) ;
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1432
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1433	sa.sat_addr.s_net = _intVal(b1) & 0xFF;
529 fc7ec265717b * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1434	sa.sat_addr.s_net = (sa.sat_addr.s_net << 8) \| (_intVal(b2) & 0xFF);
fc7ec265717b * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1435	sa.sat_addr.s_net = htons(sa.sat_addr.s_net);
fc7ec265717b * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1436	sa.sat_addr.s_node = _intVal(b3) & 0xFF;
fc7ec265717b * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1437	sa.sat_family = AF_APPLETALK;
fc7ec265717b * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	1438
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1439	/* do we know the host's address? */
650 8c5616f17ed6 made gethostbyaddr interruptable Claus Gittinger <cg@exept.de> parents: 649 diff changeset	1440	GETHOSTBYADDR(hp, (char *) &sa.sat_addr, sizeof(sa.sat_addr), AF_APPLETALK);
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1441	if (hp != NULL) {
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1442	sa.sat_family = hp->h_addrtype;
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1443	} else {
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1444	DBGPRINTF(("SOCKET: unknown appletalk address: %d.%d.%d.%d\n",
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1445	_intVal(b1), _intVal(b2), _intVal(b3)));
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1446	}
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1447	}
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1448
752 c4176e236d83 * empty log message * Claus Gittinger <cg@exept.de> parents: 741 diff changeset	1449	/* if the addressing family is not AF_APPLETALK, Return nil */
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1450	if (sa.sat_family != AF_APPLETALK) {
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1451	DBGPRINTF(("SOCKET: not an appletalk host\n"));
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1452	RETURN ( nil );
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1453	}
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1454
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1455	if (hp != NULL) {
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1456	RETURN (__MKSTRING(hp->h_name));
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1457	}
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1458	#endif
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1459	RETURN (nil);
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1460	%}.
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1461	"
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1462	Socket appletalkAddressOfHost:'clam'
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1463	Socket hostWithAppletalkAddress:#[1 2 3]
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1464	"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1465	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1466
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1467	hostWithIpAddress:anAddress
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1468	"return the hostname for an IP (internet-) address.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1469	The address is supposed to be a byteArray consisting of 4 bytes,
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1470	the network bytes come first (no matter what the local byteorder is).
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1471	Nil is returned for an unknown host or if its not an internet host.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1472	This is the reverse operation to #ipAddressOfHost:."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1473
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1474	\|b1 b2 b3 b4\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1475
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1476	b1 := anAddress at:1.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1477	b2 := anAddress at:2.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1478	b3 := anAddress at:3.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1479	b4 := anAddress at:4.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1480	%{
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1481	#if !defined(NO_SOCKET) && defined(AF_INET)
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1482	struct sockaddr_in sa ;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1483	struct hostent *hp ;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1484
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1485	sa.sin_family = -1;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1486	if (__bothSmallInteger(b1, b2) && __bothSmallInteger(b3, b4)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1487	bzero(&sa, sizeof(sa)) ;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1488	sa.sin_addr.s_addr = _intVal(b1) & 0xFF;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1489	sa.sin_addr.s_addr = (sa.sin_addr.s_addr << 8) \| (_intVal(b2) & 0xFF);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1490	sa.sin_addr.s_addr = (sa.sin_addr.s_addr << 8) \| (_intVal(b3) & 0xFF);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1491	sa.sin_addr.s_addr = (sa.sin_addr.s_addr << 8) \| (_intVal(b4) & 0xFF);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1492	sa.sin_addr.s_addr = htonl(sa.sin_addr.s_addr);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1493	sa.sin_family = AF_INET;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1494	/* do we know the host's address? */
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1495	GETHOSTBYADDR(hp, (char *) &sa.sin_addr, sizeof(sa.sin_addr), AF_INET);
820 b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1496
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1497	if (hp == NULL) {
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1498	DBGPRINTF(("SOCKET: unknown ip address: %d.%d.%d.%d\n",
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1499	_intVal(b1), _intVal(b2), _intVal(b3), _intVal(b4)));
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1500	} else {
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1501	sa.sin_family = hp->h_addrtype;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1502	}
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1503	}
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1504
752 c4176e236d83 * empty log message * Claus Gittinger <cg@exept.de> parents: 741 diff changeset	1505	/* if the addressing family is not AF_INET, Return nil */
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1506	if (sa.sin_family != AF_INET) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1507	RETURN ( nil );
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1508	}
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1509
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1510	if (hp != NULL) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	1511	RETURN (__MKSTRING(hp->h_name));
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1512	}
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1513
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1514	/*
752 c4176e236d83 * empty log message * Claus Gittinger <cg@exept.de> parents: 741 diff changeset	1515	* Return it in dot-notation
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1516	*/
448 2203a4bb620d removed all COMMA_CON / CON_COMMA uses Claus Gittinger <cg@exept.de> parents: 444 diff changeset	1517	RETURN (__MKSTRING(inet_ntoa(sa.sin_addr)));
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1518	#else
317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1519	RETURN (nil);
317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1520	#endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1521	%}
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1522
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1523	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1524	Socket ipAddressOfHost:'clam'
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1525	Socket hostWithIpAddress:(Socket ipAddressOfHost:'clam')
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1526	Socket ipAddressOfHost:'porty'
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1527	Socket hostWithIpAddress:(Socket ipAddressOfHost:'porty')
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1528	Socket hostWithIpAddress:#[1 2 3 4]
796 c9f6b3b667fb Fix ipAddressOfHost Stefan Vogel <sv@exept.de> parents: 790 diff changeset	1529	Socket hostWithIpAddress:#[127 0 0 1]
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1530	Socket hostWithIpAddress:(Socket ipAddressOfHost:'1.2.3.4')
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1531	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1532	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1533
820 b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1534	hostWithIpV6Address:anAddress
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1535	"return the hostname for an IPv6 (internet-) address.
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1536	The address is supposed to be a byteArray consisting ??? bytes,
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1537	the network bytes come first (no matter what the local byteorder is).
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1538	Nil is returned for an unknown host or if its not an internet host.
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1539	This is the reverse operation to #ipV6AddressOfHost:."
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1540
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1541	%{
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1542	#if !defined(NO_SOCKET) && defined(AF_INET6)
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1543	struct sockaddr_in6 sa ;
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1544	struct hostent *hp ;
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1545
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1546	sa.sin6_family = -1;
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1547	if (__isByteArray(anAddress)) {
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1548	bzero(&sa, sizeof(sa)) ;
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1549	if (__byteArraySize(anAddress) <= sizeof(sa.sin6_addr.s6_addr))
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1550	goto bad;
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1551	bcopy(sa.sin6_addr.s6_addr, __ByteArrayInstPtr(anAddress)->ba_element, sizeof(sa.sin6_addr.s6_addr));
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1552
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1553	sa.sin6_family = AF_INET6;
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1554	/* do we know the host's address? */
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1555	GETHOSTBYADDR(hp, (char *) &sa.sin6_addr, sizeof(sa.sin6_addr), AF_INET6);
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1556	if (hp == NULL) {
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1557	DBGPRINTF(("SOCKET: unknown ipv6 address: %d.%d.%d.%d...\n",
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1558	sa.sin6_addr.s6_addr[0],
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1559	sa.sin6_addr.s6_addr[1],
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1560	sa.sin6_addr.s6_addr[2],
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1561	sa.sin6_addr.s6_addr[3] ));
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1562	} else {
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1563	sa.sin6_family = hp->h_addrtype;
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1564	}
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1565	}
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1566	bad: ;
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1567	/* if the addressing family is not AF_INET6, Return nil */
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1568	if (sa.sin6_family != AF_INET6) {
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1569	DBGPRINTF(("SOCKET: not an ipv6 host\n"));
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1570	RETURN ( nil );
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1571	}
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1572
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1573	if (hp != NULL) {
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1574	RETURN (__MKSTRING(hp->h_name));
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1575	}
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1576
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1577	/*
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1578	* Return it in dot-notation
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1579	*/
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1580	RETURN (__MKSTRING(inet_ntoa(sa.sin6_addr)));
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1581	#else
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1582	RETURN (nil);
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1583	#endif
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1584	%}
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1585
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1586	"
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1587	Socket ipV6AddressOfHost:'clam'
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1588	Socket hostWithIpV6Address:(Socket ipAddressOfHost:'clam')
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1589	Socket ipV6AddressOfHost:'porty'
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1590	Socket hostWithIpV6Address:(Socket ipAddressOfHost:'porty')
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1591	Socket hostWithIpV6Address:#[1 2 3 4 5 6 7 8 9 10 11 12 13 14]
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1592	"
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1593	!
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1594
6 96ce41566060 2.8.1 claus parents: 4 diff changeset	1595	ipAddressOfHost:aHostName
98 5e787ba2cb31 use common byteOrder when representing IP numbers as byteArrays (always network-first) Claus Gittinger <cg@exept.de> parents: 96 diff changeset	1596	"return the IP (internet-) number for a hostname as a byteArray,
5e787ba2cb31 use common byteOrder when representing IP numbers as byteArrays (always network-first) Claus Gittinger <cg@exept.de> parents: 96 diff changeset	1597	where the network bytes come first (no matter what the cpus byteOrder is).
5e787ba2cb31 use common byteOrder when representing IP numbers as byteArrays (always network-first) Claus Gittinger <cg@exept.de> parents: 96 diff changeset	1598	If the host is unknown, return nil.
5e787ba2cb31 use common byteOrder when representing IP numbers as byteArrays (always network-first) Claus Gittinger <cg@exept.de> parents: 96 diff changeset	1599	This is the reverse operation to #hostWithIpAddress:."
6 96ce41566060 2.8.1 claus parents: 4 diff changeset	1600
96ce41566060 2.8.1 claus parents: 4 diff changeset	1601	%{
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1602	#if !defined(NO_SOCKET) && defined(AF_INET)
6 96ce41566060 2.8.1 claus parents: 4 diff changeset	1603	struct sockaddr_in sa ;
96ce41566060 2.8.1 claus parents: 4 diff changeset	1604	struct hostent *hp ;
96ce41566060 2.8.1 claus parents: 4 diff changeset	1605	long addr;
653 219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	1606	OBJ rslt;
6 96ce41566060 2.8.1 claus parents: 4 diff changeset	1607
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1608	sa.sin_family = -1;
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1609
21 33eb5ffad09d * empty log message * claus parents: 8 diff changeset	1610	if (__isString(aHostName)) {
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1611	bzero(&sa, sizeof(sa)) ;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1612	if ((addr = inet_addr((char *) __stringVal(aHostName))) != -1) {
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1613	/* is Internet addr in octet notation */
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1614	bcopy(&addr, (char *) &sa.sin_addr, sizeof(addr));
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1615	sa.sin_family = AF_INET;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1616	} else {
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1617	/* do we know the host's address? */
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1618	GETHOSTBYNAME(hp, __stringVal(aHostName))
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1619	if (hp == NULL) {
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1620	DBGPRINTF(("SOCKET: unknown ip host: %s\n", __stringVal(aHostName)));
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1621	RETURN ( nil );
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1622	}
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1623	bcopy(hp->h_addr, (char *) &sa.sin_addr, hp->h_length) ;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1624	sa.sin_family = hp->h_addrtype;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1625	}
6 96ce41566060 2.8.1 claus parents: 4 diff changeset	1626	}
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1627
752 c4176e236d83 * empty log message * Claus Gittinger <cg@exept.de> parents: 741 diff changeset	1628	/* if the addressing family is not AF_INET, Return nil */
6 96ce41566060 2.8.1 claus parents: 4 diff changeset	1629	if (sa.sin_family != AF_INET) {
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1630	DBGPRINTF(("SOCKET: not an ip host\n"));
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1631	RETURN ( nil );
6 96ce41566060 2.8.1 claus parents: 4 diff changeset	1632	}
98 5e787ba2cb31 use common byteOrder when representing IP numbers as byteArrays (always network-first) Claus Gittinger <cg@exept.de> parents: 96 diff changeset	1633
5e787ba2cb31 use common byteOrder when representing IP numbers as byteArrays (always network-first) Claus Gittinger <cg@exept.de> parents: 96 diff changeset	1634	sa.sin_addr.s_addr = ntohl(sa.sin_addr.s_addr);
653 219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	1635	rslt = __BYTEARRAY_NEW_INT(4);
219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	1636	if (rslt != nil) {
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1637	__ByteArrayInstPtr(rslt)->ba_element[0] = (sa.sin_addr.s_addr >> 24) & 0xFF;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1638	__ByteArrayInstPtr(rslt)->ba_element[1] = (sa.sin_addr.s_addr >> 16) & 0xFF;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1639	__ByteArrayInstPtr(rslt)->ba_element[2] = (sa.sin_addr.s_addr >> 8) & 0xFF;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1640	__ByteArrayInstPtr(rslt)->ba_element[3] = (sa.sin_addr.s_addr >> 0) & 0xFF;
653 219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	1641	RETURN (rslt);
219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	1642	}
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1643	#endif
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1644	%}.
653 219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	1645	^ nil
21 33eb5ffad09d * empty log message * claus parents: 8 diff changeset	1646
71 632e2cc151c9 . claus parents: 63 diff changeset	1647	"
796 c9f6b3b667fb Fix ipAddressOfHost Stefan Vogel <sv@exept.de> parents: 790 diff changeset	1648	Socket ipAddressOfHost:'localhost'
c9f6b3b667fb Fix ipAddressOfHost Stefan Vogel <sv@exept.de> parents: 790 diff changeset	1649	Socket ipAddressOfHost:'exept'
98 5e787ba2cb31 use common byteOrder when representing IP numbers as byteArrays (always network-first) Claus Gittinger <cg@exept.de> parents: 96 diff changeset	1650	Socket ipAddressOfHost:'1.2.3.4'
5e787ba2cb31 use common byteOrder when representing IP numbers as byteArrays (always network-first) Claus Gittinger <cg@exept.de> parents: 96 diff changeset	1651	Socket ipAddressOfHost:'193.15.16.17'
5e787ba2cb31 use common byteOrder when representing IP numbers as byteArrays (always network-first) Claus Gittinger <cg@exept.de> parents: 96 diff changeset	1652	Socket ipAddressOfHost:'josef'
5e787ba2cb31 use common byteOrder when representing IP numbers as byteArrays (always network-first) Claus Gittinger <cg@exept.de> parents: 96 diff changeset	1653	Socket ipAddressOfHost:'styx.com'
5e787ba2cb31 use common byteOrder when representing IP numbers as byteArrays (always network-first) Claus Gittinger <cg@exept.de> parents: 96 diff changeset	1654	Socket hostWithIpAddress:(Socket ipAddressOfHost:'localhost')
5e787ba2cb31 use common byteOrder when representing IP numbers as byteArrays (always network-first) Claus Gittinger <cg@exept.de> parents: 96 diff changeset	1655	Socket ipAddressOfHost:(Socket hostWithIpAddress:'127.0.0.1')
71 632e2cc151c9 . claus parents: 63 diff changeset	1656	"
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1657	!
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1658
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1659	ipV6AddressOfHost:aHostName
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1660	"return the IPv6 (internet-) number for a hostname as a byteArray,
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1661	where the network bytes come first (no matter what the cpus byteOrder is).
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1662	If the host is unknown, return nil.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1663	This is the reverse operation to #hostWithIpV6Address:."
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1664
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1665	%{
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1666	#if !defined(NO_SOCKET) && defined(AF_INET6)
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1667	struct sockaddr_in6 sa;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1668	struct hostent *hp ;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1669	long addr;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1670	OBJ rslt;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1671
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1672	sa.sin6_family = -1;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1673
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1674	if (__isString(aHostName)) {
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1675	bzero(&sa, sizeof(sa)) ;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1676	#if 0
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1677	if ((addr = inet_addr((char *) __stringVal(aHostName))) != -1) {
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1678	/* is Internet addr in octet notation */
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1679	bcopy(&addr, (char *) &sa.sin_addr, sizeof(addr));
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1680	sa.sin_family = AF_INET;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1681	} else
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1682	#endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1683	{
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1684	/* do we know the host's address? */
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1685	GETHOSTBYNAME(hp, __stringVal(aHostName))
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1686	if (hp == NULL) {
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1687	DBGPRINTF(("SOCKET: unknown host: %s\n", __stringVal(aHostName)));
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1688	RETURN ( nil );
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1689	}
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1690	bcopy(hp->h_addr, (char *) &sa.sin6_addr, hp->h_length) ;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1691	sa.sin6_family = hp->h_addrtype;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1692	}
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1693	}
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1694
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1695	/* if the addressing family is not AF_INET, Return nil */
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1696	if (sa.sin6_family != AF_INET) {
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1697	DBGPRINTF(("SOCKET: not an ipv6 host\n"));
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1698	RETURN ( nil );
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1699	}
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1700
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1701	rslt = __BYTEARRAY_NEW_INT(hp->h_length);
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1702	if (rslt != nil) {
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1703	bcopy(sa.sin6_addr.s6_addr, __ByteArrayInstPtr(rslt)->ba_element, hp->h_length);
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1704	RETURN (rslt);
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1705	}
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1706	#endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1707	%}.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1708	^ nil
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1709
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1710	"
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1711	Socket ipV6AddressOfHost:'localhost'
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1712	Socket ipV6AddressOfHost:'exept'
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1713	Socket ipV6AddressOfHost:'1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16'
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1714	Socket ipV6AddressOfHost:'193.15.16.17'
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1715	Socket ipV6AddressOfHost:'josef'
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1716	Socket ipV6AddressOfHost:'styx.com'
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1717	Socket hostWithIpV6Address:(Socket ipV6AddressOfHost:'localhost')
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1718	Socket ipV6AddressOfHost:(Socket hostV6WithIpAddress:'127.0.0.1')
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1719	"
531 ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1720	! !
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1721
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1722	!Socket class methodsFor:'queries'!
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1723
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1724	domainOfProtocol:aProtocol
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1725	"given a protocols name (i.e. tcp, udp etc) return the domain.
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1726	This method needs more ... - or is there a way to get this from the system ?"
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1727
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1728	"
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1729	tcp/ip stuff
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1730	"
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1731	(aProtocol = 'tcp') ifTrue:[^ #inet].
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1732	(aProtocol = 'udp') ifTrue:[^ #inet].
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1733	(aProtocol = 'ip') ifTrue:[^ #inet].
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1734	"
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1735	unix domain
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1736	"
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1737	(aProtocol = 'ud') ifTrue:[^ #unix].
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1738
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1739	"
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1740	add x25 stuff (if any) here ...
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1741	"
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1742	"
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1743	add appletalk stuff (if any) here ...
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1744	"
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1745	"
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1746	add other stuff (if any) here ...
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1747	"
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1748	^ nil
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1749
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1750	"
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1751	Socket domainOfProtocol:'tcp'
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1752	Socket domainOfProtocol:'ucp'
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1753	Socket domainOfProtocol:(Socket protocolOfService:'nntp')
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1754	Socket domainOfProtocol:(Socket protocolOfService:'echo')
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1755	"
6 96ce41566060 2.8.1 claus parents: 4 diff changeset	1756	!
96ce41566060 2.8.1 claus parents: 4 diff changeset	1757
206 77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1758	networkLongOrderIsMSB
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1759	"return true, if the network-byte-order of longs is MSB.
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1760	To be used as in:
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1761	'aStream nextPutLong:someValue MSB:(Socket networkLongOrderIsMSB)'."
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1762
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1763	%{ /* NOCONTEXT */
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1764	#ifndef NO_SOCKET
206 77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1765	/*
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1766	* mhmh - do c-compilers optimize this away ?
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1767	*/
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1768	if (htonl(0x76543210) == 0x76543210) {
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1769	RETURN (true);
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1770	}
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1771	#endif
206 77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1772	%}.
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1773	^ false
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1774
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1775	"
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1776	Socket networkLongOrderIsMSB
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1777	"
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1778	!
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1779
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1780	networkShortOrderIsMSB
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1781	"return true, if the network-byte-order of shorts is MSB.
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1782	To be used as in:
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1783	'aStream nextPutShort:someValue MSB:(Socket networkShortOrderIsMSB)'."
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1784
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1785	%{ /* NOCONTEXT */
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1786	#ifndef NO_SOCKET
206 77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1787	/*
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1788	* mhmh - do c-compilers optimize this away ?
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1789	*/
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1790	if (htons(0x3210) == 0x3210) {
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1791	RETURN (true);
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1792	}
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1793	#endif
206 77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1794	%}.
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1795	^ false
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1796
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1797	"
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1798	Socket networkShortOrderIsMSB
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1799	"
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1800	!
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	1801
0 1cf8d1747859 Initial revision claus parents: diff changeset	1802	portOfService:aNameOrNumber
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1803	"returns the port-number for a given IP-service
0 1cf8d1747859 Initial revision claus parents: diff changeset	1804	or nil if no such service exists;
1cf8d1747859 Initial revision claus parents: diff changeset	1805	- used to convert service names to portNumbers"
1cf8d1747859 Initial revision claus parents: diff changeset	1806
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1807	^ self portOfService:aNameOrNumber protocol:nil
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1808
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1809	"
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1810	Socket portOfService:'finger'
74 79b7f6a5bbce . claus parents: 71 diff changeset	1811	Socket portOfService:'nntp'
79b7f6a5bbce . claus parents: 71 diff changeset	1812	Socket portOfService:'echo'
79b7f6a5bbce . claus parents: 71 diff changeset	1813	Socket portOfService:'snmp'
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1814	"
0 1cf8d1747859 Initial revision claus parents: diff changeset	1815	!
1cf8d1747859 Initial revision claus parents: diff changeset	1816
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1817	portOfService:aNameOrNumber protocol:aProtocol
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1818	"returns the port-number for a given IP-service
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1819	or nil if no such service exists;
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1820	- used to convert service names to portNumbers"
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1821
604 b302a21afece Remove redundant code. Stefan Vogel <sv@exept.de> parents: 589 diff changeset	1822	%{ /* NOCONTEXT */
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1823	#ifndef NO_SOCKET
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1824	struct servent *servent = NULL;
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1825	char *protocol;
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1826	int tryBoth = 0;
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	1827	short portNo;
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1828
604 b302a21afece Remove redundant code. Stefan Vogel <sv@exept.de> parents: 589 diff changeset	1829	if (__isSmallInteger(aNameOrNumber)) {
648 58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1830	RETURN ( aNameOrNumber );
92 13061190c6e7 . Claus Gittinger <cg@exept.de> parents: 91 diff changeset	1831	}
13061190c6e7 . Claus Gittinger <cg@exept.de> parents: 91 diff changeset	1832
604 b302a21afece Remove redundant code. Stefan Vogel <sv@exept.de> parents: 589 diff changeset	1833	if (__isString(aProtocol)) {
648 58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1834	protocol = (char *)__stringVal(aProtocol);
604 b302a21afece Remove redundant code. Stefan Vogel <sv@exept.de> parents: 589 diff changeset	1835	} else {
648 58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1836	protocol = "tcp";
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1837	tryBoth = 1;
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1838	}
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	1839
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	1840	if (__isString(aNameOrNumber) \|\| __isSymbol(aNameOrNumber)) {
648 58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1841	servent = getservbyname((char *) __stringVal(aNameOrNumber), protocol);
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1842	if (servent != NULL) {
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1843	RETURN ( __MKSMALLINT(ntohs(servent->s_port)) );
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1844	}
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1845	if (tryBoth) {
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1846	servent = getservbyname((char *) __stringVal(aNameOrNumber), "udp");
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1847	if (servent != NULL) {
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1848	RETURN ( __MKSMALLINT(ntohs(servent->s_port)) );
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1849	}
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1850	}
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	1851	RETURN ( nil );
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1852	}
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1853	#endif
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1854	RETURN ( nil );
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1855	%}
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1856	"
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1857	Socket portOfService:'echo' protocol:'udp'
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1858	Socket portOfService:'echo' protocol:'tcp'
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1859	"
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1860	!
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1861
0 1cf8d1747859 Initial revision claus parents: diff changeset	1862	protocolOfService:aNameOrNumber
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1863	"returns the protocol (as string) for a given IP-service
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1864	or nil if no such service exists."
0 1cf8d1747859 Initial revision claus parents: diff changeset	1865	%{
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1866	#ifndef NO_SOCKET
0 1cf8d1747859 Initial revision claus parents: diff changeset	1867	struct servent *servent = NULL;
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	1868	short portNo;
0 1cf8d1747859 Initial revision claus parents: diff changeset	1869
58 bd6753bf0401 * empty log message * claus parents: 51 diff changeset	1870	if (__isSmallInteger(aNameOrNumber)) {
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	1871	portNo = __intVal(aNameOrNumber);
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	1872	servent = getservbyport(htons(portNo), "tcp") ;
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	1873	if (servent == NULL) {
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	1874	servent = getservbyport(htons(portNo), "udp") ;
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	1875	if (servent == NULL) {
506596f9a1a8 * empty log message * claus parents: 38 diff changeset	1876	RETURN ( nil );
506596f9a1a8 * empty log message * claus parents: 38 diff changeset	1877	}
506596f9a1a8 * empty log message * claus parents: 38 diff changeset	1878	}
0 1cf8d1747859 Initial revision claus parents: diff changeset	1879	} else {
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	1880	if (__isString(aNameOrNumber)) {
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	1881	servent = getservbyname((char *) __stringVal(aNameOrNumber), "tcp");
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	1882	if (servent == NULL) {
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	1883	servent = getservbyname((char *) __stringVal(aNameOrNumber), "udp");
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	1884	if (servent == NULL) {
506596f9a1a8 * empty log message * claus parents: 38 diff changeset	1885	RETURN ( nil );
506596f9a1a8 * empty log message * claus parents: 38 diff changeset	1886	}
506596f9a1a8 * empty log message * claus parents: 38 diff changeset	1887	}
506596f9a1a8 * empty log message * claus parents: 38 diff changeset	1888	}
0 1cf8d1747859 Initial revision claus parents: diff changeset	1889	}
1cf8d1747859 Initial revision claus parents: diff changeset	1890	if (servent) {
448 2203a4bb620d removed all COMMA_CON / CON_COMMA uses Claus Gittinger <cg@exept.de> parents: 444 diff changeset	1891	RETURN ( __MKSTRING(servent->s_proto) );
0 1cf8d1747859 Initial revision claus parents: diff changeset	1892	}
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1893	#endif
0 1cf8d1747859 Initial revision claus parents: diff changeset	1894	RETURN ( nil );
1cf8d1747859 Initial revision claus parents: diff changeset	1895	%}
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1896	"
74 79b7f6a5bbce . claus parents: 71 diff changeset	1897	Socket protocolOfService:'finger'
79b7f6a5bbce . claus parents: 71 diff changeset	1898	Socket protocolOfService:'nntp'
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1899	Socket protocolOfService:'xxx'
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1900	Socket protocolOfService:79
74 79b7f6a5bbce . claus parents: 71 diff changeset	1901	Socket protocolOfService:'snmp'
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1902	"
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1903	!
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1904
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1905	supportedProtocolFamilies
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1906	"return a collection of supported protocol families.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1907	This list specifies what the Socket class supports -
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1908	socket creation may still fail, if your system was built
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1909	without it."
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1910
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1911	\|list hasIt\|
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1912
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1913	list := OrderedCollection new.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1914
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1915	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1916	#ifdef AF_INET
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1917	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1918	list add:#inet.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1919	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1920	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1921	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1922
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1923	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1924	#ifdef AF_UNIX
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1925	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1926	list add:#unix.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1927	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1928	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1929	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1930
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1931	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1932	#ifdef AF_INET6
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1933	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1934	list add:#inet6. "/ internet v6
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1935	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1936	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1937	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1938
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1939	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1940	#ifdef AF_APPLETALK
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1941	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1942	list add:#appletalk. "/ appletalk
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1943	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1944	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1945	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1946
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1947	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1948	#ifdef AF_DECnet
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1949	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1950	list add:#decnet. "/ dec net
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1951	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1952	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1953	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1954
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1955	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1956	#ifdef AF_NS
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1957	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1958	list add:#xns. "/ Xerox XNS
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1959	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1960	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1961	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1962
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1963	%{
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1964	#ifdef AF_X25
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1965	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1966	list add:#x25. "/ X.25
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1967	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1968	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1969	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1970
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1971	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1972	#ifdef AF_SNA
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1973	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1974	list add:#sna. "/ IBM SNA
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1975	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1976	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1977	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1978
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1979	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1980	#ifdef AF_RAW
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1981	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1982	list add:#raw. "/ ?? RAW packets
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1983	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1984	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1985	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1986
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1987	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1988	#ifdef AF_ISO
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1989	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1990	list add:#iso. "/ ??
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1991	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1992	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1993	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1994
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1995	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1996	#ifdef AF_NETBIOS
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1997	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1998	list add:#netbios. "/ ??
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1999	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2000	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2001	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2002
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2003	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2004	#ifdef AF_IPX
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2005	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2006	list add:#ipx. "/ Novell IPX
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2007	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2008	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2009	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2010
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2011	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2012	#ifdef AF_AX25
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2013	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2014	list add:#ax25. "/ Amateur Radio AX.25
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2015	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2016	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2017	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2018
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2019	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2020	#ifdef AF_NETROM
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2021	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2022	list add:#netrom. "/ Amateur Radio NET/ROM
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2023	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2024	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2025	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2026
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2027	%{
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2028	#ifdef AF_BRIDGE
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2029	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2030	list add:#bridge. "/ multiprotocol bridge
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2031	%{
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2032	#endif
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2033	%}.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2034
571 191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	2035	%{
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	2036	#ifdef AF_BSC
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2037	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2038	list add:#bsc. "/ BISYNC 2780/3780
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2039	%{
571 191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	2040	#endif
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	2041	%}.
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2042
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2043	%{
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2044	#ifdef AF_ROSE
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2045	%}.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2046	list add:#rose. "/ Amateur Radio X.25 PLP
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2047	%{
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2048	#endif
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2049	%}.
571 191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	2050
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	2051
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2052	^ list
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2053
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2054	"
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2055	Socket supportedProtocolFamilies
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2056	"
559 61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2057	!
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2058
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2059	typeOfProtocol:aProtocol
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2060	"given a protocols name (i.e. tcp, udp etc) return the connection type.
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2061	This method needs more ... - or is there a way to get this from the system ?"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2062
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2063	(aProtocol = 'tcp') ifTrue:[^ #stream].
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2064	(aProtocol = 'udp') ifTrue:[^ #datagram].
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2065	(aProtocol = 'ip') ifTrue:[^ #raw].
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2066	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2067	unix domain
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2068	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2069	(aProtocol = 'ud') ifTrue:[^ #stream].
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2070	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2071	add x25 stuff (if any) here ...
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2072	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2073	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2074	add appletalk stuff (if any) here ...
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2075	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2076	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2077	add other stuff (if any) here ...
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2078	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2079	^ nil
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2080
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2081	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2082	Socket typeOfProtocol:'tcp'
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2083	Socket typeOfProtocol:'ucp'
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2084	Socket typeOfProtocol:(Socket protocolOfService:'nntp')
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2085	Socket typeOfProtocol:(Socket protocolOfService:'echo')
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	2086	"
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2087	! !
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2088
827 006dc4fe9dbd * empty log message * Claus Gittinger <cg@exept.de> parents: 823 diff changeset	2089	!Socket methodsFor:'Compatibility - ST-80'!
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2090
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2091	errorReporter
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2092	"ST-80 mimicry."
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2093
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2094	^ self
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2095	!
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2096
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2097	notReadySignal
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2098	"ST-80 mimicry.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2099	for now - this is not yet raised"
71 632e2cc151c9 . claus parents: 63 diff changeset	2100
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2101	^ Signal new
486 ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2102	!
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2103
576 13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	2104	readAppendStream
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2105	"ST-80 mimicry.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2106	In ST-80, socket is not a stream, but referes to one.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2107	ST-80 code therefore uses 'Socket readWriteStream' to access
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2108	the actual stream.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2109	In ST/X, sockets inherit from stream, so
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2110	this method returns the receiver, for transparency"
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2111
576 13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	2112	^ self
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	2113	!
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	2114
486 ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2115	readStream
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2116	"ST-80 mimicry.
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2117	In ST-80, socket is not a stream, but referes to one.
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2118	ST-80 code therefore uses 'Socket readStream' to access
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2119	the actual stream.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2120	In ST/X, sockets inherit from stream, so
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2121	this method returns the receiver, for transparency"
486 ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2122
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2123	^ self
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2124
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2125	"Created: 24.1.1997 / 23:52:57 / cg"
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2126	!
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2127
576 13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	2128	shutdown:how
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	2129	"ST-80 compatibility"
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	2130
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	2131	self shutDown
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	2132	!
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	2133
486 ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2134	writeStream
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2135	"ST-80 mimicry.
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2136	In ST-80, socket is not a stream, but referes to one.
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2137	ST-80 code therefore uses 'Socket writeStream' to access
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2138	the actual stream.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2139	In ST/X, sockets inherit from stream, so
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	2140	this method returns the receiver, for transparency"
486 ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2141
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2142	^ self
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2143
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2144	"Created: 24.1.1997 / 10:34:35 / cg"
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	2145	"Modified: 24.1.1997 / 23:52:52 / cg"
71 632e2cc151c9 . claus parents: 63 diff changeset	2146	! !
632e2cc151c9 . claus parents: 63 diff changeset	2147
827 006dc4fe9dbd * empty log message * Claus Gittinger <cg@exept.de> parents: 823 diff changeset	2148	!Socket methodsFor:'Compatibility - Squeak'!
771 74abb04ef57c checkin from browser Claus Gittinger <cg@exept.de> parents: 752 diff changeset	2149
74abb04ef57c checkin from browser Claus Gittinger <cg@exept.de> parents: 752 diff changeset	2150	peerName
74abb04ef57c checkin from browser Claus Gittinger <cg@exept.de> parents: 752 diff changeset	2151	"return my peer (i.e. ipAddr + port);
74abb04ef57c checkin from browser Claus Gittinger <cg@exept.de> parents: 752 diff changeset	2152	May return nil if not yet setup completely."
74abb04ef57c checkin from browser Claus Gittinger <cg@exept.de> parents: 752 diff changeset	2153
74abb04ef57c checkin from browser Claus Gittinger <cg@exept.de> parents: 752 diff changeset	2154	^ self getPeer
74abb04ef57c checkin from browser Claus Gittinger <cg@exept.de> parents: 752 diff changeset	2155	! !
74abb04ef57c checkin from browser Claus Gittinger <cg@exept.de> parents: 752 diff changeset	2156
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2157	!Socket methodsFor:'datagram transmission'!
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2158
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2159	receiveFrom:anAddressBuffer buffer:aDataBuffer
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2160	"receive datagramm data - put address of originating host into
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2161	anAddressBuffer, data into aBuffer.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2162	Both must be ByteArray-like. The addressBuffer must
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2163	provide space for a valid address for my domain (i.e. for inet, a 4-byte byteArray).
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2164	Return the number of bytes received, or a negative number on error.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2165	On error, the unix error code is left in the lastErrorNumber
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2166	instance variable."
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2167
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2168	^ self receiveFrom:anAddressBuffer buffer:aDataBuffer start:1 for:(aDataBuffer size)
99 7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	2169	!
7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	2170
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2171	receiveFrom:anAddressBuffer buffer:aDataBuffer start:startIndex for:nBytes
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2172	"receive datagramm data - put address of originating host into
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2173	anAddressBuffer, data into aBuffer. For ST-80 compatibility,
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2174	the addressBuffer may be a non-ByteArray; then, it must understand
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2175	the addressBytes-message (i.e. be a SocketAddress instance).
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2176	Return the number of bytes received, or a negative number on error.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2177	On error, the unix error code is left in the lastErrorNumber
513 b8042ff0f82c udp receive: translate received address according to the domain Claus Gittinger <cg@exept.de> parents: 511 diff changeset	2178	instance variable.
b8042ff0f82c udp receive: translate received address according to the domain Claus Gittinger <cg@exept.de> parents: 511 diff changeset	2179	The thread blocks until data arrives - you may want to wait before
b8042ff0f82c udp receive: translate received address according to the domain Claus Gittinger <cg@exept.de> parents: 511 diff changeset	2180	receiving, using #readWait or #readWaitWithTimeout:."
b8042ff0f82c udp receive: translate received address according to the domain Claus Gittinger <cg@exept.de> parents: 511 diff changeset	2181
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2182
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2183	\|addrBytes addrLen nReceived\|
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2184
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2185	addrBytes := ByteArray new:100.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2186	%{
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	2187	#ifndef NO_SOCKET
513 b8042ff0f82c udp receive: translate received address according to the domain Claus Gittinger <cg@exept.de> parents: 511 diff changeset	2188	OBJ oClass, myDomain;
217 fcfbc9f71048 underscore cleanup Claus Gittinger <cg@exept.de> parents: 209 diff changeset	2189	OBJ fp = __INST(filePointer);
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2190	int nInstVars, nInstBytes, objSize;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2191	int sock;
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2192	union sockaddr_u sa;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2193	int alen;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2194	int n;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2195	char *cp;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2196	int flags = 0;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2197
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2198	if (fp != nil) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2199	sock = fileno(__FILEVal(fp));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2200
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2201	oClass = __Class(aDataBuffer);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2202	switch (_intVal(_ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2203	case BYTEARRAY:
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2204	case WORDARRAY:
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2205	case SWORDARRAY:
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2206	case LONGARRAY:
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2207	case SLONGARRAY:
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2208	case FLOATARRAY:
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2209	case DOUBLEARRAY:
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2210	break;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2211	default:
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2212	goto bad;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2213	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2214
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2215	nInstVars = _intVal(_ClassInstPtr(oClass)->c_ninstvars);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2216	nInstBytes = OHDR_SIZE + nInstVars * sizeof(OBJ);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2217	objSize = _Size(aDataBuffer) - nInstBytes;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2218	cp = (char *)__InstPtr(aDataBuffer) + nInstBytes;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2219	if (__isSmallInteger(startIndex)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2220	cp += __intVal(startIndex);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2221	objSize -= __intVal(startIndex);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2222	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2223	if (__isSmallInteger(nBytes)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2224	if (__intVal(nBytes) < objSize) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2225	objSize = __intVal(nBytes);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2226	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2227	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2228
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2229	__BEGIN_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2230	do {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2231	if (addrBytes == nil) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2232	n = recvfrom(sock, cp, objSize, flags, (struct sockaddr *) 0, 0);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2233	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2234	n = recvfrom(sock, cp, objSize, flags, (struct sockaddr *) &sa, &alen);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2235	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2236	} while ((n < 0) && (errno == EINTR));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2237	__END_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2238
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2239	if (n >= 0) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2240	if (addrBytes != nil) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2241	oClass = __Class(addrBytes);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2242	if ((_intVal(_ClassInstPtr(oClass)->c_flags) & ARRAYMASK) != BYTEARRAY)
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2243	goto bad;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2244	nInstVars = _intVal(_ClassInstPtr(oClass)->c_ninstvars);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2245	nInstBytes = OHDR_SIZE + nInstVars * sizeof(OBJ);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2246	objSize = _Size(addrBytes) - nInstBytes;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2247	cp = (char *)__InstPtr(addrBytes) + nInstBytes;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2248	if (objSize < alen)
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2249	goto bad;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2250
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2251	myDomain = __INST(domain);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2252
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2253	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2254	* extract the datagrams address
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2255	*/
653 219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	2256	# ifdef AF_INET
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2257	if (myDomain == @symbol(inet)) {
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2258	if (objSize < 4)
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2259	goto bad;
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2260	cp[0] = (sa.in.sin_addr.s_addr >> 24) & 0xFF;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2261	cp[2] = (sa.in.sin_addr.s_addr >> 16) & 0xFF;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2262	cp[3] = (sa.in.sin_addr.s_addr >> 8) & 0xFF;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2263	cp[4] = (sa.in.sin_addr.s_addr >> 0) & 0xFF;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2264	alen = 4;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2265	}
653 219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	2266	# endif /* AF_INET */
219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	2267
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2268	# ifdef AF_INET6
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2269	if (myDomain == @symbol(inet6)) {
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2270	if (objSize < sizeof(sa.in6.sin6_addr.s6_addr))
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2271	goto bad;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2272	bcopy(sa.in6.sin6_addr.s6_addr, cp, sizeof(sa.in6.sin6_addr.s6_addr));
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2273	alen = sizeof(sa.in6.sin6_addr.s6_addr);
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2274	}
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2275	# endif /* AF_INET6 */
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2276
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2277	# ifdef AF_APPLETALK
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2278	if (myDomain == @symbol(appletalk)) {
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2279	if (objSize < 3)
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2280	goto bad;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2281	cp[0] = (sa.at.sat_addr.s_net >> 8) & 0xFF;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2282	cp[2] = (sa.at.sat_addr.s_net) & 0xFF;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2283	cp[3] = (sa.at.sat_addr.s_node) & 0xFF;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2284	alen = 3;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2285	}
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2286	# endif /* AF_APPLETALK */
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2287
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2288	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2289	* XXXX add addressing stuff for other domains here ...
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2290	*/
513 b8042ff0f82c udp receive: translate received address according to the domain Claus Gittinger <cg@exept.de> parents: 511 diff changeset	2291	# ifdef AF_X25
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2292	if (myDomain == @symbol(x25)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2293	}
513 b8042ff0f82c udp receive: translate received address according to the domain Claus Gittinger <cg@exept.de> parents: 511 diff changeset	2294	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2295
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2296	# ifdef AF_AX25
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2297	if (myDomain == @symbol(ax25)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2298	}
513 b8042ff0f82c udp receive: translate received address according to the domain Claus Gittinger <cg@exept.de> parents: 511 diff changeset	2299	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2300
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2301	# ifdef AF_NS
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2302	if ((myDomain == @symbol(ns))
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2303	\|\| (myDomain == @symbol(xns))) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2304	}
513 b8042ff0f82c udp receive: translate received address according to the domain Claus Gittinger <cg@exept.de> parents: 511 diff changeset	2305	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2306
513 b8042ff0f82c udp receive: translate received address according to the domain Claus Gittinger <cg@exept.de> parents: 511 diff changeset	2307	# ifdef AF_SNA
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2308	if (myDomain == @symbol(sna)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2309	}
513 b8042ff0f82c udp receive: translate received address according to the domain Claus Gittinger <cg@exept.de> parents: 511 diff changeset	2310	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2311
513 b8042ff0f82c udp receive: translate received address according to the domain Claus Gittinger <cg@exept.de> parents: 511 diff changeset	2312	# ifdef AF_RAW
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2313	if (myDomain == @symbol(raw)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2314	}
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2315	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2316
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2317	# ifdef AF_ISO
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2318	if (myDomain == @symbol(iso)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2319	}
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2320	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2321
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2322	# ifdef AF_DECnet
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2323	if (myDomain == @symbol(decnet)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2324	}
513 b8042ff0f82c udp receive: translate received address according to the domain Claus Gittinger <cg@exept.de> parents: 511 diff changeset	2325	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2326
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2327	# ifdef AF_NETBIOS
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2328	if (myDomain == @symbol(netbios)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2329	}
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2330	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2331
653 219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	2332	# ifdef AF_IPX
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2333	if (myDomain == @symbol(ipx)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2334	}
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2335	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2336
653 219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	2337	# ifdef AF_BRIDGE
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2338	if (myDomain == @symbol(bridge)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2339	}
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2340	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2341
653 219b89f62113 checkin from browser Claus Gittinger <cg@exept.de> parents: 650 diff changeset	2342	# ifdef AF_BSC
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2343	if (myDomain == @symbol(bsc)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2344	}
571 191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	2345	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2346
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2347	# ifdef AF_ROSE
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2348	if (myDomain == @symbol(rose)) {
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2349	}
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2350	# endif
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2351
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2352	# if defined(AF_CCITT) && (AF_CCITT != AF_X25)
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2353	if (myDomain == @symbol(ccitt)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2354	}
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2355	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2356
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2357	addrLen = __MKSMALLINT(alen);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2358	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2359	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2360	if (n < 0) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2361	__INST(lastErrorNumber) = __MKSMALLINT(errno);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2362	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2363	nReceived = __MKSMALLINT(n);
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2364	}
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	2365	#endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2366	bad: ;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2367	%}.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2368	nReceived notNil ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2369	nReceived < 0 ifTrue:[
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2370	'Socket [warning]: ' infoPrint.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2371	(OperatingSystem errorTextForNumber:lastErrorNumber) infoPrintCR.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2372	].
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2373	addrLen notNil ifTrue:[
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2374	anAddressBuffer class isBytes ifTrue:[
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2375	"/ can be a ByteArray for ST/X compatibility
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2376	anAddressBuffer replaceFrom:1 to:addrLen with:addrBytes
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2377	] ifFalse:[
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2378	"/ can be a SocketAddress for ST-80 compatibility
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2379	anAddressBuffer hostAddress:(addrBytes copyTo:addrLen)
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2380	].
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2381	].
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2382	^ nReceived
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2383	].
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2384	"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2385	arrive here if you try to receive into an invalid buffer
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2386	(i.e. not ByteArray-like),
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2387	or if the addressBuffer is nonNil AND not a ByteArray/String
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2388	or if the addressBuffer is nonNil AND too small.
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2389	"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2390	self primitiveFailed
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2391	!
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2392
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2393	sendTo:anAddressBuffer buffer:buffer
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2394	"send datagramm data - fetch address of destination host from
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2395	anAddressBuffer, data from aDataBuffer.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2396	Both must be ByteArray-like. The bytes in the addressBuffer must
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2397	be a valid address for my domain (i.e. for inet, a 4-byte byteArray).
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2398	Return the number of bytes transmitted, or a negative number on error.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2399	On error, the unix error code is left in the lastErrorNumber
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2400	instance variable.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2401	Flags is currently ignored; it is there for ST-80 compatibility."
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2402
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2403	^ self sendTo:anAddressBuffer buffer:buffer start:1 for:buffer size flags:0
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2404	!
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2405
817 eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2406	sendTo:anAddressBuffer buffer:buffer start:startIndex for:count
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2407	"send datagramm data - fetch address of destination host from
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2408	anAddressBuffer, data from aDataBuffer.
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2409	Both must be ByteArray-like. The bytes in the addressBuffer must
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2410	be a valid address for my domain (i.e. for inet, a 4-byte byteArray).
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2411	Return the number of bytes transmitted, or a negative number on error.
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2412	On error, the unix error code is left in the lastErrorNumber
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2413	instance variable.
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2414	Flags is currently ignored; it is there for ST-80 compatibility."
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2415
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2416	^ self sendTo:anAddressBuffer buffer:buffer start:startIndex for:count flags:0
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2417	!
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2418
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2419	sendTo:anAddressBuffer buffer:aDataBuffer start:startIndex for:count flags:flags
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2420	"send datagramm data - fetch address of destination host from
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2421	anAddressBuffer, data from aDataBuffer starting at startIndex,
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2422	sending count bytes.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2423	Both must be ByteArray-like. The bytes in the addressBuffer must
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2424	be a valid address for my domain (i.e. for inet, a 4-byte byteArray).
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2425	Return the number of bytes transmitted, or a negative number on error.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2426	On error, the unix error code is left in the lastErrorNumber
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2427	instance variable."
0 1cf8d1747859 Initial revision claus parents: diff changeset	2428
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2429	\|addrBytes addrLen nReceived portNo\|
93 8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	2430
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2431	"/ addressBuffer can be a byteArray (last 2 bytes are portNo, msb-first)
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2432	"/ or (better) an instance of SocketAddress
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2433	"/
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2434	anAddressBuffer class isBytes ifTrue:[
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2435	domain == #inet ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2436	addrBytes := anAddressBuffer copyFrom:1 to:4.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2437	portNo := ((anAddressBuffer at:5) bitShift:8)
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2438	+ (anAddressBuffer at:6).
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2439	] ifFalse:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2440	domain == #appletalk ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2441	addrBytes := anAddressBuffer copyFrom:1 to:3.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2442	portNo := ((anAddressBuffer at:5) bitShift:8)
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2443	+ (anAddressBuffer at:6).
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2444	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2445	].
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2446	] ifFalse:[
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2447	addrBytes := anAddressBuffer hostAddress.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2448	portNo := anAddressBuffer port.
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2449	].
0 1cf8d1747859 Initial revision claus parents: diff changeset	2450	%{
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	2451	#ifndef NO_SOCKET
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2452	OBJ oClass;
217 fcfbc9f71048 underscore cleanup Claus Gittinger <cg@exept.de> parents: 209 diff changeset	2453	OBJ fp = __INST(filePointer);
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2454	int nInstVars, nInstBytes, objSize;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2455	int sock;
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2456	union sockaddr_u sa;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2457	struct sockaddr saPtr = (struct sockaddr )&sa;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2458	int alen = sizeof(sa);
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2459	int n;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2460	char *cp;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2461	int _flags = 0;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2462	int offs, nBytes;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2463	unsigned long norder;
21 33eb5ffad09d * empty log message * claus parents: 8 diff changeset	2464
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2465	_flags = __longIntVal(flags);
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2466
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2467	if ((fp != nil)
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2468	&& __isSmallInteger(startIndex)
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2469	&& __isSmallInteger(count)) {
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2470	sock = fileno(__FILEVal(fp));
0 1cf8d1747859 Initial revision claus parents: diff changeset	2471
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2472	if (addrBytes == nil) {
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2473	alen = 0;
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2474	saPtr = (struct sockaddr *)0;
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2475	} else {
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2476	if (! __isByteArray(addrBytes)) goto bad;
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2477
551 b2d6e4d86e77 avoid warnings (signed char vs. unsigned char) Claus Gittinger <cg@exept.de> parents: 537 diff changeset	2478	cp = (char *)__ByteArrayInstPtr(addrBytes)->ba_element;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2479	n = __byteArraySize(addrBytes);
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2480	if (alen < n) n = alen;
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2481	# ifdef DGRAM_DEBUG
526 1748ab3892a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 525 diff changeset	2482	printf("address is %d bytes ... %d.%d.%d.%d", n, cp[0], cp[1], cp[2], cp[3]);
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2483	# endif
526 1748ab3892a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 525 diff changeset	2484	bcopy(cp, &sa.in.sin_addr.s_addr, n);
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2485
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2486	# ifdef AF_INET
526 1748ab3892a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 525 diff changeset	2487	if (__INST(domain) == @symbol(inet)) {
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	2488	sa.in.sin_family = AF_INET;
ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	2489	sa.in.sin_port = htons((u_short) __intVal(portNo));
526 1748ab3892a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 525 diff changeset	2490	}
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2491	# endif
6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2492	# ifdef AF_INET6
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	2493	if (__INST(domain) == @symbol(inet6)) {
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2494	sa.in6.sin6_family = AF_INET6;
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	2495	sa.in6.sin6_port = htons((u_short) __intVal(portNo));
ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	2496	}
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2497	# endif
6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2498	# ifdef AF_APPLETALK
526 1748ab3892a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 525 diff changeset	2499	if (__INST(domain) == @symbol(appletalk)) {
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2500	sa.at.sat_family = AF_APPLETALK;
533 ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	2501	sa.at.sat_port = __intVal(portNo);
ced9950b551f added query about which protocols are supported Claus Gittinger <cg@exept.de> parents: 532 diff changeset	2502	}
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2503	# endif
93 8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	2504	}
6 96ce41566060 2.8.1 claus parents: 4 diff changeset	2505
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2506	oClass = __Class(aDataBuffer);
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2507	switch (_intVal(_ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2508	case BYTEARRAY:
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2509	offs = __intVal(startIndex) - 1;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2510	break;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2511	case WORDARRAY:
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2512	case SWORDARRAY:
6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2513	offs = (__intVal(startIndex) - 1) * 2;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2514	break;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2515	case LONGARRAY:
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2516	case SLONGARRAY:
6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2517	offs = (__intVal(startIndex) - 1) * 4;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2518	break;
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2519	case LONGLONGARRAY:
6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2520	case SLONGLONGARRAY:
6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2521	offs = (__intVal(startIndex) - 1) * 8;
6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2522	# ifdef __NEED_LONGLONG_ALIGN
6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2523	offs += 4;
6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2524	# endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2525	case FLOATARRAY:
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2526	offs = (__intVal(startIndex) - 1) * sizeof(float);
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2527	break;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2528	case DOUBLEARRAY:
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2529	offs = (__intVal(startIndex) - 1) * sizeof(double);
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2530	# ifdef __NEED_DOUBLE_ALIGN
6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2531	offs += 4;
6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2532	# endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2533	break;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2534	default:
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2535	goto bad;
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	2536	}
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2537	nBytes = __intVal(count);
71 632e2cc151c9 . claus parents: 63 diff changeset	2538
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2539	nInstVars = _intVal(_ClassInstPtr(oClass)->c_ninstvars);
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2540	nInstBytes = OHDR_SIZE + nInstVars * sizeof(OBJ);
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2541	objSize = __qSize(aDataBuffer) - nInstBytes;
217 fcfbc9f71048 underscore cleanup Claus Gittinger <cg@exept.de> parents: 209 diff changeset	2542	cp = (char *)__InstPtr(aDataBuffer) + nInstBytes;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2543	cp += offs;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2544	if ((offs + nBytes) > objSize) {
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2545	# ifdef DGRAM_DEBUG
526 1748ab3892a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 525 diff changeset	2546	printf("cut off ...\n");
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2547	# endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2548	nBytes = objSize - offs;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2549	}
0 1cf8d1747859 Initial revision claus parents: diff changeset	2550
526 1748ab3892a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 525 diff changeset	2551	norder = htonl(sa.in.sin_addr.s_addr);
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2552	# ifdef DGRAM_DEBUG
526 1748ab3892a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 525 diff changeset	2553	printf("sending %d bytes ... to ", nBytes);
1748ab3892a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 525 diff changeset	2554	printf("%d.%d.%d.%d\n",
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2555	(norder >> 24) & 0xFF,
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2556	(norder >> 16) & 0xFF,
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2557	(norder >> 8) & 0xFF,
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2558	norder & 0xFF);
790 6f58d65fac5e * empty log message * Claus Gittinger <cg@exept.de> parents: 789 diff changeset	2559	# endif
0 1cf8d1747859 Initial revision claus parents: diff changeset	2560
81 f385f13d22df . claus parents: 79 diff changeset	2561	__BEGIN_INTERRUPTABLE__
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2562	do {
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2563	n = sendto(sock, cp, nBytes, _flags, saPtr, alen);
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2564	} while ((n < 0) && (errno == EINTR));
81 f385f13d22df . claus parents: 79 diff changeset	2565	__END_INTERRUPTABLE__
0 1cf8d1747859 Initial revision claus parents: diff changeset	2566
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2567	if (n < 0) {
217 fcfbc9f71048 underscore cleanup Claus Gittinger <cg@exept.de> parents: 209 diff changeset	2568	__INST(lastErrorNumber) = __MKSMALLINT(errno);
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	2569	}
217 fcfbc9f71048 underscore cleanup Claus Gittinger <cg@exept.de> parents: 209 diff changeset	2570	RETURN (__MKSMALLINT(n));
0 1cf8d1747859 Initial revision claus parents: diff changeset	2571	}
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	2572	#endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2573	bad: ;
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	2574	%}.
506596f9a1a8 * empty log message * claus parents: 38 diff changeset	2575	"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2576	arrive here if you try to send from an invalid buffer
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2577	(i.e. not ByteArray-like),
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2578	or if the addressBuffer is nonNil AND not a ByteArray/String
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2579	or if the addressBuffer is nonNil AND too small.
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	2580	"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2581	self primitiveFailed
0 1cf8d1747859 Initial revision claus parents: diff changeset	2582	! !
1cf8d1747859 Initial revision claus parents: diff changeset	2583
1cf8d1747859 Initial revision claus parents: diff changeset	2584	!Socket methodsFor:'low level'!
1cf8d1747859 Initial revision claus parents: diff changeset	2585
507 91fb3dfd91a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 506 diff changeset	2586	bindAnonymously
91fb3dfd91a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 506 diff changeset	2587	^ self
91fb3dfd91a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 506 diff changeset	2588	bindTo:0
91fb3dfd91a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 506 diff changeset	2589	address:nil
509 eb5a2d5bab0b * empty log message * Claus Gittinger <cg@exept.de> parents: 508 diff changeset	2590	reuseAddress:false
eb5a2d5bab0b * empty log message * Claus Gittinger <cg@exept.de> parents: 508 diff changeset	2591	!
eb5a2d5bab0b * empty log message * Claus Gittinger <cg@exept.de> parents: 508 diff changeset	2592
eb5a2d5bab0b * empty log message * Claus Gittinger <cg@exept.de> parents: 508 diff changeset	2593	bindAnonymouslyToAddress:addressString
eb5a2d5bab0b * empty log message * Claus Gittinger <cg@exept.de> parents: 508 diff changeset	2594	^ self
eb5a2d5bab0b * empty log message * Claus Gittinger <cg@exept.de> parents: 508 diff changeset	2595	bindTo:0
eb5a2d5bab0b * empty log message * Claus Gittinger <cg@exept.de> parents: 508 diff changeset	2596	address:addressString
eb5a2d5bab0b * empty log message * Claus Gittinger <cg@exept.de> parents: 508 diff changeset	2597	reuseAddress:false
507 91fb3dfd91a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 506 diff changeset	2598	!
91fb3dfd91a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 506 diff changeset	2599
71 632e2cc151c9 . claus parents: 63 diff changeset	2600	bindTo:aSocketAddress
425 eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2601	"ST80 compatible bind, expecting a socketAddress argument.
eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2602	The socketAddress object (an instance of SocketAddress)
eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2603	is supposed to respond to #portOrName and #address requests."
71 632e2cc151c9 . claus parents: 63 diff changeset	2604
632e2cc151c9 . claus parents: 63 diff changeset	2605	^ self bindTo:(aSocketAddress portOrName)
632e2cc151c9 . claus parents: 63 diff changeset	2606	address:(aSocketAddress address)
425 eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2607	reuseAddress:true
71 632e2cc151c9 . claus parents: 63 diff changeset	2608	!
632e2cc151c9 . claus parents: 63 diff changeset	2609
425 eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2610	bindTo:portNrOrNameString address:addressString
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2611	"low level bind - returns true if ok, false otherwise.
71 632e2cc151c9 . claus parents: 63 diff changeset	2612	Currently only non-address binding is supported;
425 eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2613	i.e. the address must always be nil.
71 632e2cc151c9 . claus parents: 63 diff changeset	2614
632e2cc151c9 . claus parents: 63 diff changeset	2615	The interpretation of portNrOrName depends on the domain:
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2616	inet domain uses (4byte) byteArray like internet numbers,
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2617	unix domain uses pathname strings,
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2618	others use whatever will come up in the future
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2619	"
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2620
425 eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2621	^ self
eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2622	bindTo:portNrOrNameString
eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2623	address:addressString
eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2624	reuseAddress:true
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2625	!
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2626
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2627	bindTo:portNrOrName address:address reuseAddress:reuse
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2628	"low level bind - returns true if ok, false otherwise.
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2629	Currently only non-address binding is supported;
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2630	i.e. address must always be nil.
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2631
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2632	The interpretation of portNrOrName depends on the domain:
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2633	inet domain uses (4byte) byteArray like internet numbers,
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2634	unix domain uses pathname strings,
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2635	others use whatever will come up in the future
425 eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2636
eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2637	The reuse boolean argument controls if the SO_REUSEADDR socket option
eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2638	is to be set (to avoid the 'bind: address in use' error).
eb8198e9f1b0 comment Claus Gittinger <cg@exept.de> parents: 421 diff changeset	2639	"
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2640
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2641	filePointer isNil ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2642	^ self errorNotOpen
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2643	].
0 1cf8d1747859 Initial revision claus parents: diff changeset	2644	%{
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	2645	#ifndef NO_SOCKET
217 fcfbc9f71048 underscore cleanup Claus Gittinger <cg@exept.de> parents: 209 diff changeset	2646	OBJ t = __INST(filePointer);
71 632e2cc151c9 . claus parents: 63 diff changeset	2647	OBJ myDomain;
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2648	int sock;
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2649	union sockaddr_u sa;
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2650	int sockaddr_size;
6 96ce41566060 2.8.1 claus parents: 4 diff changeset	2651	int ret;
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	2652	int on = 1;
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2653	int ok;
0 1cf8d1747859 Initial revision claus parents: diff changeset	2654
217 fcfbc9f71048 underscore cleanup Claus Gittinger <cg@exept.de> parents: 209 diff changeset	2655	if (!__isString(__INST(domain)) && !__isSymbol(__INST(domain))) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2656	DBGPRINTF(("SOCKET: invalid domain arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2657	RETURN (false);
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2658	}
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2659
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2660	ok = 0;
217 fcfbc9f71048 underscore cleanup Claus Gittinger <cg@exept.de> parents: 209 diff changeset	2661	myDomain = __INST(domain);
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2662
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2663	# ifdef AF_INET
71 632e2cc151c9 . claus parents: 63 diff changeset	2664	if (myDomain == @symbol(inet)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2665	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2666	* INET addresses - port must be a smallinteger or nil
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2667	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2668	sa.in.sin_family = AF_INET;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2669
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2670	if (portNrOrName == nil) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2671	sa.in.sin_port = 0;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2672	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2673	if (! __isSmallInteger(portNrOrName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2674	DBGPRINTF(("SOCKET: invalid port arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2675	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2676	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2677	sa.in.sin_port = htons((u_short) _intVal(portNrOrName));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2678	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2679
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2680	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2681	* INET addresses - addr must be nil, integer or byteArray
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2682	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2683	if (address == nil) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2684	sa.in.sin_addr.s_addr = htonl(INADDR_ANY);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2685	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2686	if (__isInteger(address)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2687	sa.in.sin_addr.s_addr = htonl(__longIntVal(address));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2688	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2689	if (__isByteArray(address)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2690	unsigned char *cp;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2691	int n;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2692
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2693	cp = __ByteArrayInstPtr(address)->ba_element;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2694	n = __byteArraySize(address);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2695	if (n > 4) n = 4;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2696	bcopy(cp, &sa.in.sin_addr.s_addr, n);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2697	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2698	unsigned addr;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2699	struct hostent *hp ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2700
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2701	if (! __isString(address)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2702	DBGPRINTF(("SOCKET: invalid address arg in bind\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2703	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2704	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2705
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2706	if ((addr = inet_addr(__stringVal(address))) != -1) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2707	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2708	* is Internet addr in octet notation
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2709	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2710	bcopy(&addr, (char ) &sa.in.sin_addr, sizeof(addr)) ; / set address */
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2711	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2712	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2713	* do we know the host's address?
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2714	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2715	GETHOSTBYNAME(hp, __stringVal(address))
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2716	if (hp == NULL) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2717	DBGPRINTF(("SOCKET: unknown host:%s\n", __stringVal(address)));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2718	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2719	}
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2720	if (hp->h_addrtype != AF_INET) {
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2721	DBGPRINTF(("SOCKET: host:%s is not an inet host\n", __stringVal(address)));
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2722	RETURN (false);
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2723	}
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2724	bcopy(hp->h_addr, (char *) &sa.in.sin_addr, hp->h_length) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2725	sa.in.sin_family = hp->h_addrtype;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2726	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2727	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2728	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2729	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2730	DBGPRINTF(("SOCKET: bind addr: %x port: %x\n", sa.in.sin_addr.s_addr, sa.in.sin_port));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2731	sockaddr_size = sizeof(struct sockaddr_in);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2732	ok = 1;
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2733	}
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2734	# endif /* AF_INET */
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2735
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2736	# ifdef AF_INET6
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2737	if (myDomain == @symbol(inet6)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2738	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2739	* INET6 addresses - port must be a smallinteger or nil
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2740	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2741	sa.in6.sin6_family = AF_INET6;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2742
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2743	if (portNrOrName == nil) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2744	sa.in6.sin6_port = 0;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2745	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2746	if (! __isSmallInteger(portNrOrName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2747	DBGPRINTF(("SOCKET: invalid port arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2748	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2749	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2750	sa.in6.sin6_port = htons((u_short) _intVal(portNrOrName));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2751	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2752
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2753	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2754	* INET6 addresses - addr must be nil or byteArray or string
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2755	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2756	if (address == nil) {
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2757	bzero(sa.in6.sin6_addr.s6_addr, sizeof(sa.in6.sin6_addr.s6_addr));
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2758	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2759	if (__isByteArray(address)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2760	unsigned char *cp;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2761	int n;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2762
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2763	cp = __ByteArrayInstPtr(address)->ba_element;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2764	n = __byteArraySize(address);
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2765	if (n > sizeof(sa.in6.sin6_addr.s6_addr)) n = sizeof(sa.in6.sin6_addr.s6_addr);
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2766	bcopy(cp, sa.in6.sin6_addr.s6_addr, n);
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2767	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2768	unsigned addr;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2769	struct hostent *hp ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2770
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2771	if (! __isString(address)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2772	DBGPRINTF(("SOCKET: invalid address arg in bind\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2773	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2774	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2775
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2776	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2777	* do we know the host's address?
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2778	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2779	GETHOSTBYNAME(hp, __stringVal(address))
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2780	if (hp == NULL) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2781	DBGPRINTF(("SOCKET: unknown host:%s\n", __stringVal(address)));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2782	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2783	}
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2784	if (hp->h_addrtype != AF_INET6) {
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2785	DBGPRINTF(("SOCKET: host:%s is not an ipv6 host\n", __stringVal(address)));
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2786	RETURN (false);
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2787	}
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2788	bcopy(hp->h_addr, (char *) &sa.in6.sin6_addr, hp->h_length) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2789	sa.in.sin_family = hp->h_addrtype;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2790	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2791	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2792
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2793	DBGPRINTF(("SOCKET: bind addr: %x.%x.%x.%x.%x.%x... port: %x\n",
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2794	sa.in6.sin6_addr.s6_addr[0],
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2795	sa.in6.sin6_addr.s6_addr[1],
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2796	sa.in6.sin6_addr.s6_addr[2],
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2797	sa.in6.sin6_addr.s6_addr[3],
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2798	sa.in6.sin6_addr.s6_addr[4],
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2799	sa.in6.sin6_addr.s6_addr[5],
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2800	sa.in6.sin6_port));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2801	sockaddr_size = sizeof(struct sockaddr_in6);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2802	ok = 1;
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2803	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2804	# endif /* AF_INET6 */
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2805
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2806	# ifdef AF_UNIX
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2807	/*
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2808	* UNIX domain - port is ignored; address must be a string (path)
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2809	*/
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2810	if (myDomain == @symbol(unix)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2811	char *pathName;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2812	int l;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2813
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2814	if (! __isString(portNrOrName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2815	DBGPRINTF(("SOCKET: invalid port (pathname) arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2816	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2817	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2818	pathName = (char *)__stringVal(portNrOrName);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2819	l = strlen(pathName);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2820	if ((l + sizeof ( sa.un.sun_family )) > sizeof(struct sockaddr_un)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2821	DBGPRINTF(("SOCKET: pathname too long\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2822	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2823	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2824
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2825	strcpy(sa.un.sun_path, pathName);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2826	sa.un.sun_family = AF_UNIX;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2827	sockaddr_size = l + sizeof ( sa.un.sun_family );
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2828	ok = 1;
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2829	}
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2830	# endif /* AF_UNIX */
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2831
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2832	# ifdef AF_APPLETALK
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2833	/*
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2834	* this has never been tested ....
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2835	*/
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2836	if (myDomain == @symbol(appletalk)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2837	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2838	* APPLETALK addresses - port must be a smallinteger or nil
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2839	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2840	sa.at.sat_family = AF_APPLETALK;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2841
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2842	if (portNrOrName == nil) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2843	sa.at.sat_port = 0;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2844	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2845	if (! __isSmallInteger(portNrOrName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2846	DBGPRINTF(("SOCKET: invalid port arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2847	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2848	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2849	sa.at.sat_port = __intVal(portNrOrName);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2850	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2851
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2852	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2853	* APPLETALK addresses - addr must be nil, integer or byteArray
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2854	* if integer, the first byte are the hi net bits, next byte are low net bits,
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2855	* last byte is node.
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2856	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2857	if (address == nil) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2858	sa.at.sat_addr.s_net = ATADDR_ANYNET;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2859	sa.at.sat_addr.s_node = ATADDR_ANYNODE;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2860	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2861	if (__isInteger(address)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2862	unsigned a = __longIntVal(address);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2863	sa.at.sat_addr.s_net = htons((a >> 8) & 0xFFFF);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2864	sa.at.sat_addr.s_node = htons(a & 0xFF);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2865	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2866	if (__isByteArray(address)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2867	unsigned char *cp;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2868	int n;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2869
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2870	cp = __ByteArrayInstPtr(address)->ba_element;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2871	n = __byteArraySize(address);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2872	if (n > 3) n = 3;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2873	bcopy(cp, &sa.at.sat_addr, n);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2874	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2875	unsigned addr;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2876	struct hostent *hp ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2877
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2878	if (! __isString(address)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2879	DBGPRINTF(("SOCKET: invalid address arg in bind\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2880	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2881	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2882
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2883	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2884	* do we know the host's address?
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2885	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2886	GETHOSTBYNAME(hp, __stringVal(address))
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2887	if (hp == NULL) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2888	DBGPRINTF(("SOCKET: unknown host: %s\n", __stringVal(address)));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2889	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2890	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2891	if (hp->h_addrtype != AF_APPLETALK) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2892	DBGPRINTF(("SOCKET: host:%s is not an appletalk host\n", __stringVal(address)));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2893	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2894	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2895	bcopy(hp->h_addr, (char *) &sa.at.sat_addr, hp->h_length) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2896	sa.at.sat_family = hp->h_addrtype;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2897	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2898	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2899	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2900	DBGPRINTF(("SOCKET: bind addr: %x port: %x\n", sa.in.sin_addr.s_addr, sa.in.sin_port));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2901	sockaddr_size = sizeof(struct sockaddr_at);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2902	ok = 1;
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2903	}
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2904	# endif /* AF_APPLETALK */
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	2905
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2906	/*
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2907	* XXXX add addressing stuff for other domains here ...
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2908	*/
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2909	# ifdef AF_X25
71 632e2cc151c9 . claus parents: 63 diff changeset	2910	if (myDomain == @symbol(x25)) {
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2911	}
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2912	# endif
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2913	# ifdef AF_AX25
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2914	if (myDomain == @symbol(ax25)) {
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2915	}
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	2916	# endif
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2917	# ifdef AF_NS
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2918	if ((myDomain == @symbol(ns))
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2919	\|\| (myDomain == @symbol(xns))) {
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2920	}
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2921	# endif
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2922	# ifdef AF_DECnet
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2923	if (myDomain == @symbol(decnet)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2924	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2925	# endif
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2926	# ifdef AF_SNA
93 8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	2927	if (myDomain == @symbol(sna)) {
8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	2928	}
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2929	# endif
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2930	# ifdef AF_RAW
93 8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	2931	if (myDomain == @symbol(raw)) {
8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	2932	}
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2933	# endif
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2934	# ifdef AF_ISO
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2935	if (myDomain == @symbol(iso)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2936	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2937	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2938	# ifdef AF_NETBIOS
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2939	if (myDomain == @symbol(netbios)) {
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2940	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2941	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2942	# ifdef AF_IPX
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2943	if (myDomain == @symbol(ipx)) {
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2944	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2945	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2946	# ifdef AF_BRIDGE
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	2947	if (myDomain == @symbol(bridge)) {
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2948	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2949	# endif
571 191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	2950	# ifdef AF_BSC
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	2951	if (myDomain == @symbol(bsc)) {
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	2952	}
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	2953	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2954	# ifdef AF_ROSE
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2955	if (myDomain == @symbol(rose)) {
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2956	}
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	2957	# endif
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2958	# if defined(AF_CCITT) && (AF_CCITT != AF_X25)
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2959	if (myDomain == @symbol(ccitt)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2960	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	2961	# endif
0 1cf8d1747859 Initial revision claus parents: diff changeset	2962
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2963	if (! ok) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2964	DBGPRINTF(("SOCKET: unsupported domain\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2965	RETURN (false);
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2966	}
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2967
110 7af19ae8693b use new FILE* wrapper macros (based on externalAddress) Claus Gittinger <cg@exept.de> parents: 106 diff changeset	2968	sock = fileno(__FILEVal(t));
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2969
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2970	# ifdef SO_REUSEADDR
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2971	if (reuse == true) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2972	if (setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, (char *) &on, sizeof (on)) < 0) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2973	DBGPRINTF(("SOCKET: setsockopt - SO_REUSEADDR failed\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2974	}
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2975	}
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2976	# endif /* SO_REUSEADDR */
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2977
117 03cefad7e40b UD socket example & interruptable bind Claus Gittinger <cg@exept.de> parents: 116 diff changeset	2978	__BEGIN_INTERRUPTABLE__
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2979	do {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2980	ret = bind(sock, (struct sockaddr *)&sa, sockaddr_size);
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2981	} while ((ret < 0) && (errno == EINTR));
117 03cefad7e40b UD socket example & interruptable bind Claus Gittinger <cg@exept.de> parents: 116 diff changeset	2982	__END_INTERRUPTABLE__
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2983
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2984	if (ret < 0) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2985	DBGPRINTF(("SOCKET: bind failed errno=%d\n", errno));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2986	__INST(lastErrorNumber) = __MKSMALLINT(errno);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2987	RETURN (false);
0 1cf8d1747859 Initial revision claus parents: diff changeset	2988	}
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2989
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2990	__INST(port) = portNrOrName; __STORE(self, portNrOrName);
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2991
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2992	# ifdef AF_INET
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	2993	if (myDomain == @symbol(inet)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2994	if (! __isSmallInteger(portNrOrName)
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2995	\|\| (portNrOrName == __MKSMALLINT(0))) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2996	int p;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2997
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2998	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	2999	* INET anonymous port - get the actual portNr
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3000	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3001	if (getsockname(sock, (struct sockaddr *)&sa, &sockaddr_size) < 0) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3002	DBGPRINTF(("SOCKET: cannot get peername\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3003	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3004	DBGPRINTF(("SOCKET: anon port=%x\n", sa.in.sin_port));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3005	p = ntohs(sa.in.sin_port);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3006	__INST(port) = __MKSMALLINT(p);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3007	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3008	}
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	3009	}
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	3010	# endif
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3011
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3012	# ifdef AF_INET6
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3013	if (myDomain == @symbol(inet6)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3014	if (! __isSmallInteger(portNrOrName)
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3015	\|\| (portNrOrName == __MKSMALLINT(0))) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3016	int p;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3017
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3018	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3019	* INET6 anonymous port - get the actual portNr
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3020	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3021	if (getsockname(sock, (struct sockaddr *)&sa, &sockaddr_size) < 0) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3022	DBGPRINTF(("SOCKET: cannot get peername\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3023	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3024	DBGPRINTF(("SOCKET: anon port=%x\n", sa.in.sin_port));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3025	p = ntohs(sa.in6.sin6_port);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3026	__INST(port) = __MKSMALLINT(p);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3027	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3028	}
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3029	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3030	# endif
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3031
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3032	# ifdef AF_APPLETALK
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3033	if (myDomain == @symbol(appletalk)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3034	if (! __isSmallInteger(portNrOrName)
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3035	\|\| (portNrOrName == __MKSMALLINT(0))) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3036	int p;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3037
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3038	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3039	* APPLETALK anonymous port - get the actual portNr
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3040	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3041	if (getsockname(sock, (struct sockaddr *)&sa, &sockaddr_size) < 0) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3042	DBGPRINTF(("SOCKET: cannot get peername\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3043	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3044	DBGPRINTF(("SOCKET: anon port=%x\n", sa.in.sin_port));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3045	p = sa.at.sat_port;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3046	__INST(port) = __MKSMALLINT(p);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3047	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3048	}
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3049	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3050	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3051
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	3052	#else /* NO_SOCKET */
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	3053	RETURN (false);
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	3054	#endif /* NO_SOCKET */
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	3055	%}.
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3056	^ true
0 1cf8d1747859 Initial revision claus parents: diff changeset	3057
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3058	"
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3059	(Socket domain:#inet type:#stream)
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3060	bindTo:9999
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3061	address:nil
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3062	"
0 1cf8d1747859 Initial revision claus parents: diff changeset	3063	!
1cf8d1747859 Initial revision claus parents: diff changeset	3064
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3065	closeFile
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3066	"low level close"
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3067
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3068	%{ /* NOCONTEXT */
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3069	#ifndef NO_SOCKET
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3070
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3071	OBJ t;
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3072
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3073	t = __INST(filePointer);
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3074	if (t != nil) {
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3075	FILE *fp;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3076
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3077	fp = __FILEVal(t);
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	3078	DBGFPRINTF((stderr, "socket fclose %x (%d)\n", fp, fileno(fp)));
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3079	fflush(fp);
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3080	/* shutdown(fileno(fp), 2); */
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3081	fclose(fp);
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3082	__INST(filePointer) = nil;
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3083	}
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3084	#endif
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3085	%}
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3086	!
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3087
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3088	listenFor:aNumber
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3089	"same as listenWithBacklog: - for ST-80 compatibility"
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3090
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3091	^ self listenWithBacklog:aNumber
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3092	!
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3093
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3094	listenWithBacklog:aNumber
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3095	"start listening; return true if ok, false on error"
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3096
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3097	filePointer isNil ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3098	^ self errorNotOpen
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3099	].
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3100	%{
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3101	#ifndef NO_SOCKET
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3102	OBJ fp = __INST(filePointer);
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3103	int sock;
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3104	int ret;
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3105
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3106	if (! __isSmallInteger(aNumber)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3107	DBGPRINTF(("SOCKET: invalid arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3108	RETURN (false);
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3109	}
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3110
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3111	sock = fileno(__FILEVal(fp));
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3112
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3113	__BEGIN_INTERRUPTABLE__
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3114	do {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3115	ret = listen(sock, _intVal(aNumber));
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3116	} while ((ret < 0) && (errno == EINTR));
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3117	__END_INTERRUPTABLE__
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3118
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3119	if (ret < 0) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3120	DBGPRINTF(("SOCKET: listen call failed errno=%d\n", errno));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3121	__INST(lastErrorNumber) = __MKSMALLINT(errno);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3122	RETURN (false);
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3123	}
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3124	#else
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3125	RETURN (false);
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3126	#endif
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3127	%}.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3128	^ true
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3129	!
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3130
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3131	shutDown
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3132	"shutDown without flushing "
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3133
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3134	filePointer isNil ifTrue:[^ self].
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3135	Lobby unregister:self.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3136
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3137	%{
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3138	#ifndef NO_SOCKET
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3139
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3140	OBJ fp;
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3141
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3142	fp = __INST(filePointer);
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3143	if (fp != nil) {
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3144	FILE *f;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3145	int fd;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3146
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3147	__INST(filePointer) = nil;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3148	f = __FILEVal(fp);
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3149	fd = fileno(f);
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3150	__BEGIN_INTERRUPTABLE__
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3151	shutdown(fd, 2);
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	3152	DBGFPRINTF((stderr, "socket fclose %x (%d)\n", fp, fd));
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3153	fclose(f);
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3154	/* close(fd); */
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3155	__END_INTERRUPTABLE__
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3156	}
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3157	#endif
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3158	%}
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3159	! !
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3160
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3161	!Socket methodsFor:'low level-accepting'!
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3162
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3163	accept
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3164	"create a new TCP socket from accepting on the receiver.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3165	This method will suspend the current process if no connection is waiting.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3166	For ST-80 compatibility"
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3167
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3168	\|newSock\|
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3169
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3170	newSock := self class new.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3171	(newSock acceptOn:self) ifFalse:[^ nil].
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3172	^ newSock
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3173
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3174	"
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3175	\|sock newSock\|
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3176
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3177	sock := Socket provide:8004.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3178	sock listenFor:5.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3179	newSock := sock accept.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3180	"
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3181	!
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3182
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3183	acceptOn:aSocket
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3184	"accept a connection on a server port (created with:'Socket>>onIPPort:')
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3185	usage is: (Socket basicNew acceptOn:(Socket onIPPort:9999)).
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3186	This method will suspend the current process if no connection is waiting.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3187	Return the true if ok; false if not."
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3188
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3189	aSocket readWriteWait.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3190	^ self blockingAcceptOn:aSocket
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3191
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3192	"Modified: / 11.3.1996 / 14:21:31 / stefan"
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3193	"Modified: / 1.8.1998 / 23:39:10 / cg"
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3194	!
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3195
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3196	blockingAcceptOn:aSocket
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3197	"accept a connection on a server port (created with:'Socket>>onIPPort:')
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3198	usage is: (Socket basicNew acceptOn:(Socket onIPPort:9999)).
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3199	Return the true if ok; false if not.
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3200
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3201	NOTICE: this method will block, if no connection is already pending.
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3202	use readWait or Socket>>accept."
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3203
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3204	\|serverSocketFd\|
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3205
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3206	filePointer notNil ifTrue:[
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3207	^ self errorAlreadyOpen
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3208	].
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3209
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3210	domain := aSocket domain.
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3211	socketType := aSocket type.
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3212	serverSocketFd := aSocket fileDescriptor.
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3213	serverSocketFd isNil ifTrue:[
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3214	^ self error:'invalid server socket'
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3215	].
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3216	(serverSocketFd isMemberOf:SmallInteger) ifFalse:[
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3217	^ self error:'invalid server socket'
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3218	].
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3219	%{
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	3220	#ifndef NO_SOCKET
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3221	FILE *fp;
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3222	int flags;
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3223	int sock, newSock;
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3224	union sockaddr_u sa;
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	3225	int alen, alen0;
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3226	struct hostent *he ;
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3227	char dotted[20] ;
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3228
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3229	sock = _intVal(serverSocketFd);
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3230
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3231	#if defined(O_NDELAY) && defined(SET_NDELAY)
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3232	flags = ioctl(sock, F_GETFL, 0);
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3233	ioctl(sock, F_SETFL, flags \| O_NDELAY);
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3234	#endif
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	3235
600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	3236	#ifdef AF_INET
600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	3237	if (__INST(domain) == @symbol(inet)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3238	alen0 = sizeof(sa.in);
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	3239	}
600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	3240	#endif
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3241	#ifdef AF_INET6
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3242	if (__INST(domain) == @symbol(inet6)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3243	alen0 = sizeof(sa.in6);
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3244	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3245	#endif
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	3246	#ifdef AF_UNIX
600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	3247	if (__INST(domain) == @symbol(unix)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3248	alen0 = sizeof(sa.un);
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	3249	}
600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	3250	#endif
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3251	# ifdef AF_APPLETALK
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3252	if (__INST(domain) == @symbol(appletalk)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3253	alen0 = sizeof(sa.at);
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3254	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3255	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3256
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3257	/*
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3258	* XXXX add addressing stuff for other domains here ...
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3259	*/
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3260	# ifdef AF_X25
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3261	if (__INST(domain) == @symbol(x25)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3262	alen0 = sizeof(sa.x25);
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3263	}
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3264	# endif
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3265	# ifdef AF_AX25
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3266	if (__INST(domain) == @symbol(ax25)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3267	alen0 = sizeof(sa.ax25);
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3268	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3269	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3270	# ifdef AF_NS
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3271	if ((__INST(domain) == @symbol(ns))
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3272	\|\| (__INST(domain) == @symbol(xns))) {
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3273	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3274	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3275	# ifdef AF_DECnet
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3276	if (__INST(domain) == @symbol(decnet)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3277	alen0 = sizeof(sa.dn);
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3278	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3279	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3280	# ifdef AF_SNA
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3281	if (__INST(domain) == @symbol(sna)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3282	alen0 = sizeof(sa.sna);
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3283	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3284	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3285	# ifdef AF_RAW
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3286	if (__INST(domain) == @symbol(raw)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3287	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3288	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3289	# ifdef AF_ISO
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3290	if (__INST(domain) == @symbol(iso)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3291	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3292	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3293	# ifdef AF_NETBIOS
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3294	if (__INST(domain) == @symbol(netbios)) {
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3295	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3296	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3297	# ifdef AF_IPX
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3298	if (__INST(domain) == @symbol(ipx)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3299	alen0 = sizeof(sa.ipx);
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3300	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3301	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3302	# ifdef AF_BRIDGE
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3303	if (__INST(domain) == @symbol(bridge)) {
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3304	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3305	# endif
571 191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	3306	# ifdef AF_BSC
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	3307	if (__INST(domain) == @symbol(bsc)) {
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	3308	}
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	3309	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3310	# ifdef AF_ROSE
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3311	if (__INST(domain) == @symbol(rose)) {
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3312	}
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3313	# endif
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3314	# if defined(AF_CCITT) && (AF_CCITT != AF_X25)
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3315	if (__INST(domain) == @symbol(ccitt)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3316	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3317	# endif
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	3318
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3319	__BEGIN_INTERRUPTABLE__
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3320	do {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3321	alen = alen0;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3322	newSock = accept(sock, (struct sockaddr *) &sa, &alen);
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3323	} while ((newSock < 0) && (errno == EINTR));
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3324	__END_INTERRUPTABLE__
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	3325	DBGFPRINTF((stderr, "socket accept newSock=%d\n", newSock));
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3326
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3327	#if defined(O_NDELAY) && defined(SET_NDELAY)
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3328	ioctl(sock, F_SETFL, flags);
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3329	#endif
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3330
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3331	if (newSock < 0) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3332	DBGPRINTF(("SOCKET: accept call failed errno=%d\n", errno));
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3333	__INST(lastErrorNumber) = __MKSMALLINT(errno);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3334	RETURN (false);
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3335	}
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3336
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3337	/*
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3338	* extract the partners address
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3339	*/
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3340	#ifdef AF_INET
217 fcfbc9f71048 underscore cleanup Claus Gittinger <cg@exept.de> parents: 209 diff changeset	3341	if (__INST(domain) == @symbol(inet)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3342	GETHOSTBYADDR(he, (char *) &sa.in.sin_addr, sizeof(sa.in.sin_addr), AF_INET);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3343	if (! he) {
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3344	unsigned long norder;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3345
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3346	norder = htonl(sa.in.sin_addr.s_addr) ;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3347	sprintf(dotted, "%d.%d.%d.%d",
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3348	(norder >> 24) & 0xFF,
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3349	(norder >> 16) & 0xFF,
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3350	(norder >> 8) & 0xFF,
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3351	norder & 0xFF);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3352	}
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3353	DBGPRINTF(("SOCKET: accepted connection from host %s\n", (he ? he->h_name : dotted))) ;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3354	__INST(peerName) = __MKSTRING((he ? he->h_name : dotted));
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3355	__STORESELF(peerName);
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3356	}
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3357	#endif
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3358
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3359	#ifdef AF_INET6
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3360	if (__INST(domain) == @symbol(inet6)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3361	GETHOSTBYADDR(he, (char *) &sa.in6.sin6_addr, sizeof(sa.in6.sin6_addr), AF_INET6);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3362	if (! he) {
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3363	unsigned long norder;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3364
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3365	/*
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3366	* XXX: what is inet6's naming convention ?
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3367	*/
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3368	norder = htonl(sa.in.sin_addr.s_addr) ;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3369	sprintf(dotted, "%d.%d.%d.%d.%d.%d...",
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3370	sa.in6.sin6_addr.s6_addr[0],
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3371	sa.in6.sin6_addr.s6_addr[1],
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3372	sa.in6.sin6_addr.s6_addr[2],
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3373	sa.in6.sin6_addr.s6_addr[3],
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3374	sa.in6.sin6_addr.s6_addr[4],
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3375	sa.in6.sin6_addr.s6_addr[5]);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3376	}
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3377	DBGPRINTF(("SOCKET: accepted connection from host %s\n", (he ? he->h_name : dotted))) ;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3378	__INST(peerName) = __MKSTRING((he ? he->h_name : dotted));
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3379	__STORESELF(peerName);
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3380	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3381	#endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3382
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3383	#ifdef AF_UNIX
217 fcfbc9f71048 underscore cleanup Claus Gittinger <cg@exept.de> parents: 209 diff changeset	3384	if (__INST(domain) == @symbol(unix)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3385	DBGPRINTF(("SOCKET: accepted connection on unix socket\n")) ;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3386	/* nothing to be done here */
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3387	}
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3388	#endif
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3389
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3390	#ifdef AF_APPLETALK
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3391	if (__INST(domain) == @symbol(appletalk)) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3392	GETHOSTBYADDR(he, (char *) &sa.at.sat_addr, sizeof(sa.at.sat_addr), AF_APPLETALK);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3393	if (! he) {
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3394	unsigned net;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3395
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3396	/*
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3397	* XXX: what is apples naming convention ?
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3398	*/
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3399	net = htons(sa.at.sat_addr.s_net) ;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3400	sprintf(dotted, "%d.%d",
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3401	net,
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3402	sa.at.sat_addr.s_node);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3403	}
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3404	DBGPRINTF(("SOCKET: accepted connection from host %s\n", (he ? he->h_name : dotted))) ;
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3405	__INST(peerName) = __MKSTRING((he ? he->h_name : dotted));
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3406	__STORESELF(peerName);
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3407	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3408	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3409
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3410	/*
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3411	* XXXX add addressing stuff for other domains here ...
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3412	*/
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3413	# ifdef AF_X25
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3414	if (__INST(domain) == @symbol(x25)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3415	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3416	# endif
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3417	# ifdef AF_AX25
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3418	if (__INST(domain) == @symbol(ax25)) {
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3419	}
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3420	# endif
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3421	# ifdef AF_NS
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3422	if ((__INST(domain) == @symbol(ns))
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3423	\|\| (__INST(domain) == @symbol(xns))) {
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3424	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3425	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3426	# ifdef AF_DECnet
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3427	if (__INST(domain) == @symbol(decnet)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3428	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3429	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3430	# ifdef AF_SNA
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3431	if (__INST(domain) == @symbol(sna)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3432	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3433	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3434	# ifdef AF_RAW
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3435	if (__INST(domain) == @symbol(raw)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3436	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3437	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3438	# ifdef AF_ISO
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3439	if (__INST(domain) == @symbol(iso)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3440	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3441	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3442	# ifdef AF_NETBIOS
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3443	if (__INST(domain) == @symbol(netbios)) {
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3444	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3445	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3446	# ifdef AF_IPX
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3447	if (__INST(domain) == @symbol(ipx)) {
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3448	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3449	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3450	# ifdef AF_BRIDGE
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3451	if (__INST(domain) == @symbol(bridge)) {
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3452	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3453	# endif
571 191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	3454	# ifdef AF_BSC
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	3455	if (__INST(domain) == @symbol(bsc)) {
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	3456	}
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	3457	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3458	# ifdef AF_ROSE
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3459	if (__INST(domain) == @symbol(rose)) {
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3460	}
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3461	# endif
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3462	# if defined(AF_CCITT) && (AF_CCITT != AF_X25)
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3463	if (__INST(domain) == @symbol(ccitt)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3464	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3465	# endif
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3466
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3467	/*
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3468	* make it a FILE *
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3469	*/
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3470	fp = fdopen(newSock, "r+");
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3471	if (! fp) {
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3472	DBGPRINTF(("SOCKET: fdopen call failed\n"));
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3473	__INST(lastErrorNumber) = __MKSMALLINT(errno);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3474	close(newSock);
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	3475	DBGFPRINTF((stderr, "socket close (fdopen failed) (%d)\n", newSock));
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3476	RETURN (false);
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3477	} else {
444 9ba31a1fba38 always unbuffered on linux Claus Gittinger <cg@exept.de> parents: 430 diff changeset	3478	#ifdef BUGGY_STDIO_LIB
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3479	setbuf(fp, NULL);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3480	__INST(buffered) = false;
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3481	#endif
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3482	__INST(filePointer) = __MKOBJ(fp);
a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	3483	__STORESELF(filePointer);
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3484	}
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	3485	#endif
208 c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3486	%}.
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3487	mode := #readwrite.
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3488	Lobby register:self.
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3489	binary := false.
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3490	port := aSocket port.
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3491	^ true
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3492	!
c3eca2cc16dc accept: do not wait for input on non-connected socket. Stefan Vogel <sv@exept.de> parents: 207 diff changeset	3493
858 0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3494	waitForNewConnectionWithTimeout:timeoutSeconds
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3495	"suspend the current process, until a new connection comes
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3496	in at the receiver or a timeout occurs.
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3497	For a new connection, an accept is performed and the new socket is returned.
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3498	Returns nil, if a timeout occured.
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3499	This method implements the inner wait-primitive of a single-connection
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3500	server application."
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3501
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3502	\|newConnection\|
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3503
859 b71ab9e436cb * empty log message * Claus Gittinger <cg@exept.de> parents: 858 diff changeset	3504	(self readWaitWithTimeout:timeoutSeconds) ifTrue:[
858 0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3505	"/ a timeout occurred - no connection within timeout
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3506	^ nil
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3507	].
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3508	^ self accept.
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3509	!
0ab7917a48f0 * empty log message * Claus Gittinger <cg@exept.de> parents: 827 diff changeset	3510
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3511	waitForNewConnectionOrDataOnAny:otherConnections timeout:timeoutSeconds
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3512	"suspend the current process, until either a new connection comes
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3513	in at the receiver, or data arrives on any of the otherConnections.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3514	For a new connection, an accept is performed and the new socket is returned.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3515	For an old connection, that socket is returned.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3516	In any case, the caller gets a socket to operate on as return value,
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3517	or nil, if a timeout occured.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3518	This method implements the inner wait-primitive of a multi-connection
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3519	server application."
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3520
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3521	"/ first, a quick check if data is already available
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3522
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3523	\|connection wasBlocked sema\|
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3524
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3525	self canReadWithoutBlocking ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3526	^ self accept.
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3527	].
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3528	otherConnections do:[:aConnection \|
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3529	aConnection canReadWithoutBlocking ifTrue:[
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3530	^ aConnection
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3531	]
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3532	].
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3533
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3534	[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3535	"/ check again - prevent incoming interrupts from disturbing our setup
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3536	wasBlocked := OperatingSystem blockInterrupts.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3537
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3538	self canReadWithoutBlocking ifTrue:[
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3539	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3540	^ self accept.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3541	].
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3542	otherConnections do:[:aConnection \|
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3543	aConnection canReadWithoutBlocking ifTrue:[
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3544	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3545	^ aConnection
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3546	]
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3547	].
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3548
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3549	"/ nope - must wait.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3550
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3551	sema := Semaphore new name:'multiReadWait'.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3552	otherConnections do:[:aConnection \|
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3553	Processor signal:sema onInput:(aConnection fileDescriptor).
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3554	].
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3555	Processor signal:sema onInput:(self fileDescriptor).
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3556	timeoutSeconds notNil ifTrue:[
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3557	Processor signal:sema afterSeconds:timeoutSeconds
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3558	].
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3559	Processor activeProcess state:#ioWait.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3560	sema wait.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3561	Processor disableSemaphore:sema.
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3562
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3563	] valueOnUnwindDo:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3564	Processor disableSemaphore:sema.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3565	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3566	].
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3567
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3568	"/ see who it was ...
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3569
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3570	self canReadWithoutBlocking ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3571	^ self accept.
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3572	].
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3573	otherConnections do:[:aConnection \|
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3574	aConnection canReadWithoutBlocking ifTrue:[
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3575	^ aConnection
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3576	]
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3577	].
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3578
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3579	"/ none - a timeout
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3580	^ nil
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3581	! !
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3582
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3583	!Socket methodsFor:'low level-connecting'!
99 7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	3584
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	3585	connectTo:hostOrPathName port:portNrOrName
71 632e2cc151c9 . claus parents: 63 diff changeset	3586	"low level connect; connect to port, portNrOrName on host, hostName.
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	3587	For unix-domain sockets, the port argument is ignored and pathName is taken.
115 a9d85df931c4 added Unix domain support Claus Gittinger <cg@exept.de> parents: 112 diff changeset	3588	Other sockets are not yet implemented.
71 632e2cc151c9 . claus parents: 63 diff changeset	3589	Return true if ok, false otherwise.
99 7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	3590	Hostname must be a string, portNrOrName an integer port number (in inet domain).
7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	3591	The current process will block (but not the whole Smalltalk) until the connection
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	3592	is established.
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	3593	See also: #connectTo:port:withTimeout: for a somewhat nicer interface."
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3594
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3595	^ self connectTo:hostOrPathName port:portNrOrName blocking:false
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3596	!
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3597
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3598	connectTo:hostOrPathName port:portNrOrName blocking:blocking
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3599	"low level connect; connect to port, portNrOrName on host, hostName.
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3600	For unix-domain sockets, the port argument is ignored and pathName is taken.
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3601	Other sockets are not yet implemented.
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3602	Return true if ok, false otherwise.
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3603	Hostname must be a string, portNrOrName an integer port number (in inet domain).
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3604	The current process will block (but not the whole Smalltalk) until the connection
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3605	is established.
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3606	See also: #connectTo:port:withTimeout: for a somewhat nicer interface."
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3607
430 12d736316f69 Fix #connectTo:port: Do not call connect() when we get EINPROGRESS Stefan Vogel <sv@exept.de> parents: 429 diff changeset	3608	\|isAsync\|
12d736316f69 Fix #connectTo:port: Do not call connect() when we get EINPROGRESS Stefan Vogel <sv@exept.de> parents: 429 diff changeset	3609
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3610	filePointer isNil ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3611	^ self errorNotOpen
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3612	].
0 1cf8d1747859 Initial revision claus parents: diff changeset	3613	%{
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3614
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	3615	#ifndef NO_SOCKET
217 fcfbc9f71048 underscore cleanup Claus Gittinger <cg@exept.de> parents: 209 diff changeset	3616	OBJ t = __INST(filePointer);
71 632e2cc151c9 . claus parents: 63 diff changeset	3617	OBJ myDomain;
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3618	union sockaddr_u sa;
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3619	struct hostent *hp ;
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3620	int a, sock ;
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3621	long addr;
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3622	FILE *fp;
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3623	int ret, oldFlags;
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3624	int on = 1;
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3625	int ok;
115 a9d85df931c4 added Unix domain support Claus Gittinger <cg@exept.de> parents: 112 diff changeset	3626	int sockaddr_size;
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3627
217 fcfbc9f71048 underscore cleanup Claus Gittinger <cg@exept.de> parents: 209 diff changeset	3628	if (!__isString(__INST(domain)) && !__isSymbol(__INST(domain))) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3629	DBGPRINTF(("SOCKET: invalid domain arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3630	RETURN (false);
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3631	}
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3632
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3633	ok = 0;
217 fcfbc9f71048 underscore cleanup Claus Gittinger <cg@exept.de> parents: 209 diff changeset	3634	myDomain = __INST(domain);
115 a9d85df931c4 added Unix domain support Claus Gittinger <cg@exept.de> parents: 112 diff changeset	3635	bzero((char *) &sa, sizeof(sa)) ;
508 55d1e49c7157 * empty log message * Claus Gittinger <cg@exept.de> parents: 507 diff changeset	3636
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3637	#ifdef AF_INET
71 632e2cc151c9 . claus parents: 63 diff changeset	3638	if (myDomain == @symbol(inet)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3639	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3640	* INET addressing: port must be a smallInteger;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3641	* hostOrPathName the name of the host (dot notation allowed)
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3642	* or a byteArray containing the 4 address bytes.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3643	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3644	if (! __isSmallInteger(portNrOrName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3645	DBGPRINTF(("SOCKET: invalid port arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3646	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3647	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3648
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3649	sa.in.sin_family = AF_INET;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3650	sa.in.sin_port = htons((u_short) _intVal(portNrOrName)) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3651
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3652	if (__isByteArray(hostOrPathName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3653	unsigned char *cp;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3654	int n;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3655
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3656	cp = __ByteArrayInstPtr(hostOrPathName)->ba_element;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3657	n = __byteArraySize(hostOrPathName);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3658	if (n > 4) n = 4;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3659	bcopy(cp, &sa.in.sin_addr.s_addr, n);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3660	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3661	if (! __isString(hostOrPathName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3662	DBGPRINTF(("SOCKET: invalid hostname arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3663	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3664	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3665
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3666	if ((addr = inet_addr(__stringVal(hostOrPathName))) != -1) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3667	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3668	* is Internet addr in octet notation
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3669	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3670	bcopy(&addr, (char ) &sa.in.sin_addr, sizeof(addr)) ; / set address */
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3671	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3672	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3673	* do we know the host's address?
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3674	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3675	GETHOSTBYNAME(hp, __stringVal(hostOrPathName))
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3676	if (hp == NULL) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3677	DBGPRINTF(("SOCKET: unknown host:%s\n", __stringVal(hostOrPathName)));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3678	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3679	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3680	bcopy(hp->h_addr, (char *) &sa.in.sin_addr, hp->h_length) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3681	sa.in.sin_family = hp->h_addrtype;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3682	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3683	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3684
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3685	DBGPRINTF(("SOCKET: connect addr: %x port: %d\n", sa.in.sin_addr, sa.in.sin_port));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3686
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3687	sockaddr_size = sizeof(struct sockaddr_in);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3688	ok = 1;
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	3689	}
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	3690	#endif /* AF_INET */
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	3691
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3692	#ifdef AF_INET6
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3693	if (myDomain == @symbol(inet6)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3694	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3695	* INET6 addressing: port must be a smallInteger;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3696	* hostOrPathName the name of the host
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3697	* or a byteArray containing the address bytes.
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3698	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3699	if (! __isSmallInteger(portNrOrName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3700	DBGPRINTF(("SOCKET: invalid port arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3701	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3702	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3703
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3704	sa.in6.sin6_family = AF_INET6;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3705	sa.in6.sin6_port = htons((u_short) _intVal(portNrOrName)) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3706
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3707	if (__isByteArray(hostOrPathName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3708	unsigned char *cp;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3709	int n;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3710
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3711	cp = __ByteArrayInstPtr(hostOrPathName)->ba_element;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3712	n = __byteArraySize(hostOrPathName);
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3713	if (n > sizeof(sa.in6.sin6_addr.s6_addr)) n = sizeof(sa.in6.sin6_addr.s6_addr);
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3714	bcopy(cp, sa.in6.sin6_addr.s6_addr, n);
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3715	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3716	if (! __isString(hostOrPathName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3717	DBGPRINTF(("SOCKET: invalid hostname arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3718	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3719	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3720
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3721	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3722	* do we know the host's address?
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3723	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3724	GETHOSTBYNAME(hp, __stringVal(hostOrPathName))
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3725	if (hp == NULL) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3726	DBGPRINTF(("SOCKET: unknown host:%s\n", __stringVal(hostOrPathName)));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3727	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3728	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3729	bcopy(hp->h_addr, (char *) &sa.in.sin_addr, hp->h_length) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3730	sa.in.sin_family = hp->h_addrtype;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3731	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3732
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3733	DBGPRINTF(("SOCKET: connect addr: %x.%x.%x.%x.%x.%x... port: %d\n",
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3734	sa.in6.sin6_addr.s6_addr[0],
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3735	sa.in6.sin6_addr.s6_addr[1],
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3736	sa.in6.sin6_addr.s6_addr[2],
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3737	sa.in6.sin6_addr.s6_addr[3],
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3738	sa.in6.sin6_addr.s6_addr[4],
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3739	sa.in6.sin6_addr.s6_addr[5],
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3740	sa.in6.sin6_port));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3741
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3742	sockaddr_size = sizeof(struct sockaddr_in6);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3743	ok = 1;
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3744	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3745	#endif /* AF_INET6 */
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3746
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	3747	#ifdef AF_UNIX
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	3748	if (myDomain == @symbol(unix)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3749	char *pathName;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3750	int l;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3751
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3752	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3753	* UNIX domain: port is ignored;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3754	* hostOrPathName is a pathName
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3755	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3756	if (! __isString(hostOrPathName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3757	DBGPRINTF(("SOCKET: invalid port (pathname) arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3758	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3759	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3760	pathName = (char *) __stringVal(hostOrPathName);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3761	l = strlen(pathName);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3762	if ((l + sizeof ( sa.un.sun_family )) > sizeof(struct sockaddr_un)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3763	DBGPRINTF(("SOCKET: pathname too long\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3764	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3765	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3766
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3767	strcpy(sa.un.sun_path, pathName);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3768	sa.un.sun_family = AF_UNIX;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3769	sockaddr_size = l + sizeof ( sa.un.sun_family );
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3770	ok = 1;
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3771	}
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	3772	#endif /* AF_UNIX */
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	3773
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	3774	#ifdef AF_APPLETALK
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	3775	if (myDomain == @symbol(appletalk)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3776	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3777	* APPLETALK addressing: port must be a smallInteger;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3778	* hostOrPathName the name of the host
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3779	* or a byteArray containing the 3 address bytes.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3780	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3781	if (! __isSmallInteger(portNrOrName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3782	DBGPRINTF(("SOCKET: invalid port arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3783	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3784	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3785
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3786	sa.at.sat_family = AF_APPLETALK;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3787	sa.at.sat_port = __intVal(portNrOrName);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3788
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3789	if (__isByteArray(hostOrPathName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3790	unsigned char *cp;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3791	int n;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3792
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3793	cp = __ByteArrayInstPtr(hostOrPathName)->ba_element;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3794	n = __byteArraySize(hostOrPathName);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3795	if (n > 3) n = 3;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3796	bcopy(cp, &sa.at.sat_addr, n);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3797	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3798	if (! __isString(hostOrPathName)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3799	DBGPRINTF(("SOCKET: invalid hostname arg\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3800	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3801	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3802
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3803	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3804	* do we know the host's address?
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3805	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3806	GETHOSTBYNAME(hp, __stringVal(hostOrPathName))
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3807	if (hp == NULL) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3808	DBGPRINTF(("SOCKET: unknown host:%s\n", __stringVal(hostOrPathName)));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3809	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3810	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3811	if (hp->h_addrtype != AF_APPLETALK) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3812	DBGPRINTF(("SOCKET: host:%s is not an appletalk host\n", __stringVal(hostOrPathName)));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3813	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3814	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3815
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3816	bcopy(hp->h_addr, (char *) &sa.at.sat_addr, hp->h_length) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3817	sa.at.sat_family = hp->h_addrtype;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3818	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3819
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3820	DBGPRINTF(("SOCKET: connect addr: %x port: %d\n", sa.in.sin_addr, sa.in.sin_port));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3821
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3822	sockaddr_size = sizeof(struct sockaddr_at);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3823	ok = 1;
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	3824	}
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	3825	#endif /* APPLETALK */
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	3826
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3827	/*
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3828	* XXXX add addressing stuff for other domains here ...
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3829	*/
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3830	#ifdef AF_X25
71 632e2cc151c9 . claus parents: 63 diff changeset	3831	if (myDomain == @symbol(x25)) {
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3832	}
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3833	#endif
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3834	#ifdef AF_AX25
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3835	if (myDomain == @symbol(ax25)) {
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3836	}
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	3837	#endif
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3838	#ifdef AF_NS
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3839	if ((myDomain == @symbol(ns))
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3840	\|\| (myDomain == @symbol(xns))) {
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3841	}
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3842	#endif
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3843	# ifdef AF_DECnet
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3844	if (myDomain == @symbol(decnet)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3845	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3846	# endif
93 8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	3847	#ifdef AF_SNA
8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	3848	if (myDomain == @symbol(sna)) {
8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	3849	}
8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	3850	#endif
8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	3851	#ifdef AF_RAW
8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	3852	if (myDomain == @symbol(raw)) {
8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	3853	}
8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	3854	#endif
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3855	# ifdef AF_ISO
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3856	if (myDomain == @symbol(iso)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3857	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3858	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3859	# ifdef AF_NETBIOS
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3860	if (myDomain == @symbol(netbios)) {
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3861	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3862	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3863	# ifdef AF_IPX
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3864	if (myDomain == @symbol(ipx)) {
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3865	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3866	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3867	# ifdef AF_BRIDGE
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	3868	if (myDomain == @symbol(bridge)) {
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3869	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3870	# endif
571 191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	3871	# ifdef AF_BSC
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	3872	if (myDomain == @symbol(bsc)) {
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	3873	}
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	3874	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3875	# ifdef AF_ROSE
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3876	if (myDomain == @symbol(rose)) {
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3877	}
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	3878	# endif
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3879	# if defined(AF_CCITT) && (AF_CCITT != AF_X25)
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3880	if (myDomain == @symbol(ccitt)) {
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3881	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	3882	# endif
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3883
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3884	if (! ok) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3885	DBGPRINTF(("SOCKET: unsupported domain\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3886	RETURN (false);
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3887	}
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3888
110 7af19ae8693b use new FILE* wrapper macros (based on externalAddress) Claus Gittinger <cg@exept.de> parents: 106 diff changeset	3889	sock = fileno(__FILEVal(t));
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3890
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3891	#if defined(O_NONBLOCK)
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3892	if (blocking != true) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3893	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3894	* set to non-blocking and wait later
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3895	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3896	oldFlags = fcntl(sock, F_GETFL, 0);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3897	/* on SUNOS4.x, would use fcntl(osfd, F_SETFL, flags \| FNDELAY); */
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3898	fcntl(sock, F_SETFL, oldFlags \| O_NONBLOCK);
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3899	}
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3900	#endif
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3901
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3902	/*
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3903	* connect
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3904	*/
81 f385f13d22df . claus parents: 79 diff changeset	3905	__BEGIN_INTERRUPTABLE__
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3906	do {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3907	ret = connect(sock, (struct sockaddr *)&sa, sockaddr_size);
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	3908	} while ((ret < 0)
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3909	&& ((errno == EINTR)
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	3910	#ifdef EAGAIN
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3911	\|\| (errno == EAGAIN)
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	3912	#endif
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3913	));
81 f385f13d22df . claus parents: 79 diff changeset	3914	__END_INTERRUPTABLE__
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3915
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3916	if (ret < 0) {
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3917	#if defined(EINPROGRESS) \|\| defined(EALREADY)
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3918	if (0
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3919	# ifdef EINPROGRESS
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3920	\|\| (errno == EINPROGRESS)
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3921	# endif
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3922	# ifdef EALREADY
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3923	\|\| (errno == EALREADY)
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3924	# endif
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3925	) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3926	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3927	* We were interrupted. Do not call connect again
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3928	* (we will get an EALREADY.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3929	* Do a select on write instead.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3930	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3931
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3932	isAsync = true;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3933	} else
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3934	#endif /* EINPROGRESS or EALREADY */
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3935	{
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3936	DBGPRINTF(("SOCKET: connect failed errno=%d\n", errno));
117 03cefad7e40b UD socket example & interruptable bind Claus Gittinger <cg@exept.de> parents: 116 diff changeset	3937	#ifdef DUMP_ADDRESS
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3938	{
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3939	char cp = (char )(&sa);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3940	int i;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3941
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3942	printf("address data:\n");
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3943	for (i=0; i<sockaddr_size; i++) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3944	printf(" %02x\n", *cp++);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3945	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3946	}
117 03cefad7e40b UD socket example & interruptable bind Claus Gittinger <cg@exept.de> parents: 116 diff changeset	3947	#endif
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3948	__INST(lastErrorNumber) = __MKSMALLINT(errno);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3949	RETURN (false);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3950	}
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3951	}
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3952
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3953	#if defined(O_NONBLOCK)
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3954	if (blocking != true) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3955	fcntl(sock, F_SETFL, oldFlags);
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3956	}
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3957	#endif
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3958
430 12d736316f69 Fix #connectTo:port: Do not call connect() when we get EINPROGRESS Stefan Vogel <sv@exept.de> parents: 429 diff changeset	3959	#else /* NO_SOCKET */
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	3960	RETURN (false);
430 12d736316f69 Fix #connectTo:port: Do not call connect() when we get EINPROGRESS Stefan Vogel <sv@exept.de> parents: 429 diff changeset	3961	#endif /* NO_SOCKET */
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	3962	%}.
430 12d736316f69 Fix #connectTo:port: Do not call connect() when we get EINPROGRESS Stefan Vogel <sv@exept.de> parents: 429 diff changeset	3963	isAsync == true ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3964	self readWriteWait.
430 12d736316f69 Fix #connectTo:port: Do not call connect() when we get EINPROGRESS Stefan Vogel <sv@exept.de> parents: 429 diff changeset	3965	].
71 632e2cc151c9 . claus parents: 63 diff changeset	3966	port := portNrOrName.
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	3967	peerName := hostOrPathName.
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3968	^ true
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3969	!
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3970
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	3971	connectTo:hostOrPathName port:portNrOrName blocking:blocking withTimeout:millis
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3972	"connect to port, portNrOrName on host, hostName.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3973	Or path (UNIX socket), where portNrOrName is ignored.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3974	Return true if ok, false otherwise.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3975	Hostname must be a string, portNrOrName an integer port number (in inet domain).
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3976	If a non-nil timeout is given, stop trying after that time and return false as well."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3977
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3978	\|stopSignal stopMe connection\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3979
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3980	millis isNil ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3981	^ self connectTo:hostOrPathName port:portNrOrName
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3982	].
559 61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	3983
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3984	stopSignal := Signal new.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3985	stopMe := [stopSignal raise].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3986	stopSignal handle:[:ex \|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3987	"/ 'timeout on connect' infoPrintNL.
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3988	^ false
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3989	] do:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3990	Processor addTimedBlock:stopMe afterMilliseconds:millis.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3991	[
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3992	connection := self connectTo:hostOrPathName port:portNrOrName blocking:blocking.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3993	] valueNowOrOnUnwindDo:[
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3994	Processor removeTimedBlock:stopMe.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	3995	]
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3996	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3997	^ connection
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3998
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3999	"Created: 31.10.1995 / 18:52:49 / cg"
559 61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	4000	"Modified: 16.8.1997 / 02:11:21 / cg"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4001	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4002
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4003	connectTo:hostOrPathName port:portNrOrName withTimeout:millis
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4004	"connect to port, portNrOrName on host, hostName.
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4005	Or path (UNIX socket), where portNrOrName is ignored.
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4006	Return true if ok, false otherwise.
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4007	Hostname must be a string, portNrOrName an integer port number (in inet domain).
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4008	If a non-nil timeout is given, stop trying after that time and return false as well."
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4009
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4010	^ self connectTo:hostOrPathName port:portNrOrName blocking:false withTimeout:millis
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	4011	! !
996051271ce9 * empty log message * claus parents: 21 diff changeset	4012
996051271ce9 * empty log message * claus parents: 21 diff changeset	4013	!Socket methodsFor:'queries'!
996051271ce9 * empty log message * claus parents: 21 diff changeset	4014
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4015	domain
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4016	"return the sockets addressing domain (i.e. #inet, #unix, #x25, #appletalk)"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4017
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4018	^ domain
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4019	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4020
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4021	getName
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4022	"return the name; here, we return the ports name"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4023
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4024	^ port printString
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4025	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4026
102 5dc264007513 added getPeer for ST-80 compatibility Claus Gittinger <cg@exept.de> parents: 99 diff changeset	4027	getPeer
5dc264007513 added getPeer for ST-80 compatibility Claus Gittinger <cg@exept.de> parents: 99 diff changeset	4028	"ST-80 compatibility: return an IPSocketAddress instance representing
5dc264007513 added getPeer for ST-80 compatibility Claus Gittinger <cg@exept.de> parents: 99 diff changeset	4029	my hostname/port combination.
155 fcf846c707b7 interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	4030	If you are interested in the hostname, use getPeerName directly."
102 5dc264007513 added getPeer for ST-80 compatibility Claus Gittinger <cg@exept.de> parents: 99 diff changeset	4031
116 7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	4032	domain == #unix ifTrue:[
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	4033	^ UDSocketAddress name:peerName
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	4034	].
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4035	domain == #inet ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4036	^ IPSocketAddress hostAddress:(self class ipAddressOfHost:peerName) port:port
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4037	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4038	domain == #inet6 ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4039	^ IPv6SocketAddress hostAddress:(self class ipV6AddressOfHost:peerName) port:port
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4040	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4041	domain == #appletalk ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4042	^ AppletalkSocketAddress hostAddress:(self class appletalkAddressOfHost:peerName) port:port
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4043	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4044	domain == #decnet ifTrue:[
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4045	^ DecNetSocketAddress hostAddress:(self class decnetAddressOfHost:peerName) port:port
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4046	].
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4047	self error:'unsupported domain'.
102 5dc264007513 added getPeer for ST-80 compatibility Claus Gittinger <cg@exept.de> parents: 99 diff changeset	4048
5dc264007513 added getPeer for ST-80 compatibility Claus Gittinger <cg@exept.de> parents: 99 diff changeset	4049	"Created: 2.11.1995 / 11:22:39 / cg"
5dc264007513 added getPeer for ST-80 compatibility Claus Gittinger <cg@exept.de> parents: 99 diff changeset	4050	!
5dc264007513 added getPeer for ST-80 compatibility Claus Gittinger <cg@exept.de> parents: 99 diff changeset	4051
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	4052	getPeerName
996051271ce9 * empty log message * claus parents: 21 diff changeset	4053	"return the peer name; thats the hostname (or dotted name) of the
996051271ce9 * empty log message * claus parents: 21 diff changeset	4054	partners host after an accept."
996051271ce9 * empty log message * claus parents: 21 diff changeset	4055
996051271ce9 * empty log message * claus parents: 21 diff changeset	4056	^ peerName
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4057	!
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4058
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4059	isActive
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4060	"return true, if the receiver has a connection"
81 f385f13d22df . claus parents: 79 diff changeset	4061
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4062	^ filePointer notNil
81 f385f13d22df . claus parents: 79 diff changeset	4063	!
f385f13d22df . claus parents: 79 diff changeset	4064
71 632e2cc151c9 . claus parents: 63 diff changeset	4065	port
632e2cc151c9 . claus parents: 63 diff changeset	4066	"return the port number (or name for unix-sockets) to which the socket is bound"
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4067
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	4068	\|p\|
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	4069
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	4070	port == 0 ifTrue:[
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	4071	p := self getPort.
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	4072	p notNil ifTrue:[
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	4073	port := p
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	4074	]
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	4075	].
71 632e2cc151c9 . claus parents: 63 diff changeset	4076	^ port
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4077	!
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4078
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4079	type
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4080	"return the sockets connection type (i.e. #datagram, #stream etc)"
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4081
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4082	^ socketType
81 f385f13d22df . claus parents: 79 diff changeset	4083	! !
f385f13d22df . claus parents: 79 diff changeset	4084
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4085	!Socket methodsFor:'socket setup'!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4086
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4087	domain:domainArg type:typeArg
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4088	"set up socket with domain and type.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4089	This is a low level entry; no binding, listening or connect
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4090	is done. Both arguments must be symbols from one of
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4091	#inet,#unix, #appletalk, #x25 .. and #stream, #datagram, #raw resp."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4092
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4093	^ self domain:domainArg type:typeArg protocol:0 reuseAddress:true
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4094	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4095
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4096	domain:domainArg type:typeArg protocol:protocolNumber
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4097	"set up socket with domain, type and protocol number.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4098	This is a low level entry; no binding, listening or connect
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4099	is done. Both arguments must be symbols from one of
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4100	#inet,#unix, #appletalk, #x25 .. and #stream, #datagram, #raw resp."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4101
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4102	^ self domain:domainArg type:typeArg protocol:protocolNumber reuseAddress:true
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4103
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4104	"
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4105	Socket new domain:#inet type:#stream
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4106	Socket new domain:#unix type:#stream
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4107	"
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4108	!
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4109
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4110	domain:domainArg type:typeArg protocol:protocolNumber reuseAddress:reuse
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4111	"set up socket with domain, type and protocol number.
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4112	This is a low level entry; no binding, listening or connect
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4113	is done. Both arguments must be symbols from one of
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4114	#inet,#unix, #appletalk, #x25 .. and #stream, #datagram, #raw resp.
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4115
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4116	The reuse boolean argument controls if the SO_REUSEADDR socket option
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4117	is to be set (to avoid the 'bind: address in use' error)."
1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4118
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4119	\|errorNr\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4120
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4121	filePointer notNil ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4122	^ self errorAlreadyOpen
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4123	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4124	%{
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4125
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	4126	#ifndef NO_SOCKET
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4127	FILE *fp;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4128	int dom, typ, pf, proto = 0, sock;
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4129	int on = 1;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4130
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4131	if (! __isSymbol(domainArg)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4132	DBGPRINTF(("SOCKET: bad domain\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4133	RETURN ( nil );
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4134	}
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4135	if (! __isSymbol(typeArg)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4136	DBGPRINTF(("SOCKET: bad type\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4137	RETURN ( nil );
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4138	}
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4139	if (protocolNumber != nil) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4140	if (!__isSmallInteger(protocolNumber)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4141	DBGPRINTF(("SOCKET: bad protocol\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4142	RETURN ( nil );
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4143	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4144	proto = __intVal(protocolNumber);
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4145	}
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4146
81 f385f13d22df . claus parents: 79 diff changeset	4147
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4148	/*
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4149	* get address and protocol-family
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4150	*/
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4151	#ifdef AF_UNIX
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4152	if (domainArg == @symbol(unix)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4153	dom = AF_UNIX;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4154	} else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4155	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4156	#ifdef AF_INET
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4157	if (domainArg == @symbol(inet)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4158	dom = AF_INET;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4159	} else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4160	#endif
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	4161	#ifdef AF_INET6
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	4162	if (domainArg == @symbol(inet6)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4163	dom = AF_INET6;
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	4164	} else
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	4165	#endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4166	#ifdef AF_DECnet
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4167	if (domainArg == @symbol(decnet)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4168	dom = AF_DECnet;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4169	} else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4170	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4171	#ifdef AF_APPLETALK
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4172	if (domainArg == @symbol(appletalk)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4173	dom = AF_APPLETALK;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4174	} else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4175	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4176	#ifdef AF_X25
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4177	if (domainArg == @symbol(x25)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4178	dom = AF_X25;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4179	} else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4180	#endif
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4181	#ifdef AF_AX25
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4182	if (domainArg == @symbol(ax25)) {
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4183	dom = AF_AX25;
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4184	} else
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	4185	#endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4186	#ifdef AF_NS
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	4187	if ((domainArg == @symbol(xns))
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	4188	\|\| (domainArg == @symbol(ns))) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4189	dom = AF_NS;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4190	} else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4191	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4192	#ifdef AF_SNA
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4193	if (domainArg == @symbol(sna)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4194	dom = AF_SNA;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4195	} else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4196	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4197	#ifdef AF_RAW
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4198	if (domainArg == @symbol(raw)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4199	dom = AF_RAW;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4200	} else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4201	#endif
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	4202	# ifdef AF_ISO
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	4203	if (domainArg == @symbol(iso)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4204	dom = AF_ISO;
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	4205	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	4206	# endif
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	4207	# ifdef AF_NETBIOS
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	4208	if (domainArg == @symbol(netbios)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4209	dom = AF_NETBIOS;
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	4210	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	4211	# endif
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	4212	# ifdef AF_IPX
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	4213	if (domainArg == @symbol(ipx)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4214	dom = AF_IPX;
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	4215	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	4216	# endif
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	4217	# ifdef AF_BRIDGE
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	4218	if (domainArg == @symbol(bridge)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4219	dom = AF_BRIDGE;
530 067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	4220	}
067797c15b77 added support for 6-byte internet addresses (untested) Claus Gittinger <cg@exept.de> parents: 529 diff changeset	4221	# endif
571 191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	4222	# ifdef AF_BSC
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	4223	if (domainArg == @symbol(bsc)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4224	dom = AF_BSC;
571 191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	4225	}
191b37534643 * empty log message * Claus Gittinger <cg@exept.de> parents: 563 diff changeset	4226	# endif
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	4227	# ifdef AF_ROSE
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	4228	if (domainArg == @symbol(rose)) {
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	4229	dom = AF_ROSE;
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	4230	}
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	4231	# endif
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	4232	# if defined(AF_CCITT) && (AF_CCITT != AF_X25)
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	4233	if (domainArg == @symbol(ccitt)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4234	dom = AF_CCITT;
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	4235	}
8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	4236	# endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4237	{
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4238	DBGPRINTF(("SOCKET: unknown domain <%s>\n", __stringVal(domainArg)));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4239	RETURN ( nil );
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4240	}
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4241
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4242	#ifdef SOCK_STREAM
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4243	if (typeArg == @symbol(stream)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4244	typ = SOCK_STREAM;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4245	} else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4246	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4247	#ifdef SOCK_DGRAM
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4248	if (typeArg == @symbol(datagram)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4249	typ = SOCK_DGRAM;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4250	} else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4251	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4252	#ifdef SOCK_RAW
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4253	if (typeArg == @symbol(raw))
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4254	typ = SOCK_RAW;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4255	else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4256	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4257	#ifdef SOCK_SEQPACKET
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4258	if (typeArg == @symbol(seqPacket))
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4259	typ = SOCK_SEQPACKET;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4260	else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4261	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4262	{
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4263	DBGPRINTF(("SOCKET: bad type <%s>\n", __stringVal(typeArg)));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4264	RETURN ( nil );
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4265	}
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4266
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4267	__BEGIN_INTERRUPTABLE__
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4268	do {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4269	DBGPRINTF(("SOCKET: opening socket domain=%d type=%d proto=%d\n", dom, typ, proto));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4270	sock = socket(dom, typ, proto);
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4271	#if defined(EPROTONOSUPPORT) /* for SGI */
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4272	if ((proto != 0) && (sock < 0) && (errno == EPROTONOSUPPORT)) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4273	DBGPRINTF(("SOCKET: retry with UNSPEC protocol\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4274	proto = 0;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4275	sock = socket(dom, typ, 0);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4276	}
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4277	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4278	} while ((sock < 0) && (errno == EINTR));
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4279	__END_INTERRUPTABLE__
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	4280	DBGFPRINTF((stderr, "socket create newSock=%d\n", sock));
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4281
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4282	if (sock < 0) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4283	DBGPRINTF(("SOCKET: socket(dom=%d typ=%d proto=%d) call failed errno=%d\n", dom, typ, proto, errno));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4284	__INST(lastErrorNumber) = __MKSMALLINT(errno);
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4285	} else {
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4286	# ifdef SO_REUSEADDR
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4287	if (reuse == true) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4288	DBGPRINTF(("SOCKET: setsockopt - SO_REUSEADDR\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4289	if (setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, (char *) &on, sizeof (on)) < 0) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4290	DBGPRINTF(("SOCKET: setsockopt - SO_REUSEADDR failed\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4291	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4292	}
649 1bc56594db85 fixed connect for sun/irix Claus Gittinger <cg@exept.de> parents: 648 diff changeset	4293	# endif /* SO_REUSEADDR */
711 487b2bff9d31 * empty log message * Claus Gittinger <cg@exept.de> parents: 693 diff changeset	4294
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4295	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4296	* make it a FILE *
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4297	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4298	fp = fdopen(sock, "r+");
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4299	if (! fp) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4300	DBGPRINTF(("SOCKET: fdopen call failed\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4301	__INST(lastErrorNumber) = __MKSMALLINT(errno);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4302	__BEGIN_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4303	close(sock);
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	4304	DBGFPRINTF((stderr, "socket close (fdopen failed) (%d)\n", sock));
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4305	__END_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4306	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4307	__INST(filePointer) = __MKOBJ(fp);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4308	__STORESELF(filePointer);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4309	}
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4310	}
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	4311	#endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4312	%}.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4313
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4314	"all ok?"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4315	filePointer notNil ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4316	domain := domainArg.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4317	socketType := typeArg.
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4318	Lobby register:self.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4319	] ifFalse:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4320	^ nil
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4321	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4322
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4323	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4324	Socket new domain:#inet type:#stream
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4325	Socket new domain:#unix type:#stream
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4326	"
81 f385f13d22df . claus parents: 79 diff changeset	4327	!
f385f13d22df . claus parents: 79 diff changeset	4328
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4329	for:hostName port:portNr
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4330	"setup for a TCP socket (i.e. inet domain, stream type)
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4331	If hostname is nil, a server port is opened,
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4332	otherwise a client port to the server on host.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4333
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4334	HISTORIC LEFTOVER:
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4335	This method will vanish, as soon as the low level
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4336	connect/bind works,"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4337
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4338	self obsoleteMethodWarning.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4339
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4340	filePointer notNil ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4341	^ self errorAlreadyOpen
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4342	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4343	(portNr isMemberOf:SmallInteger) ifFalse:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4344	self error:'invalid portNr'
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4345	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4346	%{
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	4347	#ifndef NO_SOCKET
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4348	struct sockaddr_in sa ;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4349	struct hostent *hp ;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4350	int a, sock ;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4351	long addr;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4352	FILE *fp;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4353	int ret;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4354	int on = 1;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4355
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4356	bzero((char *) &sa, sizeof(sa)) ;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4357	sa.sin_family = AF_INET;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4358	sa.sin_addr.s_addr = htonl(INADDR_ANY);
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4359
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4360	if ((hostName != nil) && __isString(hostName)){
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4361	bzero(&sa, sizeof(sa)) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4362	if ((addr = inet_addr((char *) __stringVal(hostName))) != -1) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4363	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4364	* is Internet addr in octet notation
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4365	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4366	bcopy(&addr, (char ) &sa.sin_addr, sizeof(addr)) ; / set address */
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4367	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4368	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4369	* do we know the host's address?
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4370	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4371	GETHOSTBYNAME(hp, __stringVal(hostName))
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4372	if (hp == NULL) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4373	DBGPRINTF(("SOCKET: unknown host: %s\n", __stringVal(hostName)));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4374	RETURN ( nil );
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4375	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4376	bcopy(hp->h_addr, (char *) &sa.sin_addr, hp->h_length) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4377	sa.sin_family = hp->h_addrtype;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4378	}
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4379	}
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4380
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4381	/*
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4382	* create the socket
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4383	*/
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4384	__BEGIN_INTERRUPTABLE__
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4385	do {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4386	sock = socket(sa.sin_family, SOCK_STREAM, 0);
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4387	} while ((sock < 0) && (errno == EINTR));
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4388	__END_INTERRUPTABLE__
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	4389	DBGFPRINTF((stderr, "socket create newSock=%d\n", sock));
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4390
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4391	if (sock < 0) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4392	DBGPRINTF(("SOCKET: socket(dom=%d typ=%d proto=0) call failed errno=%d\n", sa.sin_family, SOCK_STREAM, errno));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4393	__INST(lastErrorNumber) = __MKSMALLINT(errno);
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4394	} else {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4395	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4396	* connect/bind
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4397	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4398	sa.sin_port = htons((u_short) _intVal(portNr)) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4399
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4400	__BEGIN_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4401	if (hostName != nil) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4402	do {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4403	ret = connect(sock, (struct sockaddr *)&sa, sizeof(sa));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4404	} while ((ret < 0) && (errno == EINTR));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4405	} else {
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4406	#ifdef SO_REUSEADDR
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4407	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4408	* should I also do this for DGRAM sockets ?
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4409	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4410	if (setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, (char *) &on, sizeof (on)) < 0) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4411	DBGPRINTF(("SOCKET: setsockopt - SO_REUSEADDR failed\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4412	}
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4413	#endif /* SO_REUSEADDR */
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4414	sa.sin_addr.s_addr = htonl(INADDR_ANY);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4415	do {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4416	ret = bind(sock, (struct sockaddr *)&sa, sizeof(sa));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4417	} while ((ret < 0) && (errno == EINTR));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4418	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4419	__END_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4420
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4421	if (ret < 0) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4422	DBGPRINTF(("SOCKET: bind/connect call failed errno=%d\n", errno));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4423	__INST(lastErrorNumber) = __MKSMALLINT(errno);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4424	__BEGIN_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4425	close(sock) ;
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	4426	DBGFPRINTF((stderr, "socket close (fdopen failed) (%d)\n", sock));
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4427	__END_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4428	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4429	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4430	* make it a FILE *
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4431	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4432	fp = fdopen(sock, "r+");
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4433	if (! fp) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4434	DBGPRINTF(("SOCKET: fdopen failed\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4435	__INST(lastErrorNumber) = __MKSMALLINT(errno);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4436	__BEGIN_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4437	close(sock);
822 a08e230988fe * empty log message * Claus Gittinger <cg@exept.de> parents: 821 diff changeset	4438	DBGFPRINTF((stderr, "socket close (fdopen failed) (%d)\n", sock));
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4439	__END_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4440	} else {
444 9ba31a1fba38 always unbuffered on linux Claus Gittinger <cg@exept.de> parents: 430 diff changeset	4441	#ifdef BUGGY_STDIO_LIB
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4442	setbuf(fp, NULL);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4443	__INST(buffered) = false;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4444	#endif
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4445	__INST(filePointer) = __MKOBJ(fp);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4446	__STORESELF(filePointer);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4447	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4448	}
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4449	}
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	4450	#endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4451	%}.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4452	filePointer isNil ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4453	^ nil
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4454	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4455	mode := #readwrite.
169 ba5dac089c64 * empty log message * Claus Gittinger <cg@exept.de> parents: 168 diff changeset	4456	Lobby register:self.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4457	binary := false.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4458
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4459	domain := #inet.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4460	socketType := #stream.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4461	protocol := portNr.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4462	peerName := hostName.
81 f385f13d22df . claus parents: 79 diff changeset	4463
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4464	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4465	Socket new for:'clam' port:(Socket portOfService:'echo')
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4466
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4467	Socket new for:nil port:9999
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4468	Socket new for:(OperatingSystem getHostName) port:9999
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4469	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4470	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4471
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4472	for:hostName udpPort:portNr
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4473	"setup for a UDP socket (i.e. inet domain, datagram type)
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4474	if hostname is nil, a server port is opened;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4475	otherwise a client port to the server on host.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4476
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4477	HISTORIC LEFTOVER:
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4478	This method will vanish, as soon as the low level
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4479	connect/bind works,"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4480
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4481	self obsoleteMethodWarning.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4482
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4483	filePointer notNil ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4484	^ self errorAlreadyOpen
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4485	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4486	(portNr isMemberOf:SmallInteger) ifFalse:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4487	self error:'invalid portNr'
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4488	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4489	%{
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	4490	#ifndef NO_SOCKET
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4491	struct sockaddr_in sa ;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4492	struct hostent *hp ;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4493	int a, sock ;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4494	long addr;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4495	FILE *fp;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4496	int ret;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4497
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4498	if (hostName != nil) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4499	bzero(&sa, sizeof(sa)) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4500	if ((addr = inet_addr((char *) __stringVal(hostName))) != -1) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4501	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4502	* is Internet addr in octet notation
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4503	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4504	bcopy(&addr, (char ) &sa.sin_addr, sizeof(addr)) ; / set address */
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4505	sa.sin_family = AF_INET ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4506	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4507	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4508	* is hostname -
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4509	* do we know the host's address?
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4510	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4511	GETHOSTBYNAME(hp, __stringVal(hostName))
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4512	if (hp == NULL) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4513	DBGPRINTF(("SOCKET: unknown host: %s\n", __stringVal(hostName)));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4514	RETURN ( nil );
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4515	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4516	bcopy(hp->h_addr, (char *) &sa.sin_addr, hp->h_length) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4517	sa.sin_family = hp->h_addrtype ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4518	}
526 1748ab3892a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 525 diff changeset	4519	} else {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4520	sa.sin_family = AF_INET;
526 1748ab3892a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 525 diff changeset	4521	}
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4522
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4523	/*
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4524	* create the socket
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4525	*/
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4526	__BEGIN_INTERRUPTABLE__
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4527	do {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4528	sock = socket(sa.sin_family, SOCK_DGRAM, 0);
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4529	} while ((sock < 0) && (errno == EINTR));
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4530	__END_INTERRUPTABLE__
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	4531	DBGFPRINTF((stderr, "socket create newSock=%d\n", sock));
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4532
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4533	if (sock < 0) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4534	DBGPRINTF(("SOCKET: socket(dom=%d typ=%d proto=0) call failed errno=%d\n", sa.sin_family, SOCK_DGRAM, errno));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4535	__INST(lastErrorNumber) = __MKSMALLINT(errno);
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4536	} else {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4537	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4538	* ok,
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4539	* connect/bind
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4540	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4541	__BEGIN_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4542	if (hostName == nil) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4543	sa.sin_addr.s_addr = htonl(INADDR_ANY);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4544	do {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4545	ret = bind(sock, (struct sockaddr *)&sa, sizeof(sa));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4546	} while ((ret < 0) && (errno == EINTR));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4547	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4548	sa.sin_port = htons((u_short) _intVal(portNr)) ;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4549	do {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4550	ret = connect(sock, (struct sockaddr *)&sa, sizeof(sa));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4551	} while ((ret < 0) && (errno == EINTR));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4552	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4553	__END_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4554
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4555	if (ret < 0) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4556	DBGPRINTF(("SOCKET: bind/connect call failed\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4557	__INST(lastErrorNumber) = __MKSMALLINT(errno);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4558	__BEGIN_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4559	close(sock) ;
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	4560	DBGFPRINTF((stderr, "socket close (fdopen failed) (%d)\n", sock));
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4561	__END_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4562	} else {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4563	/*
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4564	* make it a FILE *
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4565	*/
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4566	fp = fdopen(sock, "r+");
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4567	if (! fp) {
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4568	DBGPRINTF(("SOCKET: fdopen call failed\n"));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4569	__INST(lastErrorNumber) = __MKSMALLINT(errno);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4570	__BEGIN_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4571	close(sock);
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	4572	DBGFPRINTF((stderr, "socket close (fdopen failed) (%d)\n", sock));
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4573	__END_INTERRUPTABLE__
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4574	} else {
444 9ba31a1fba38 always unbuffered on linux Claus Gittinger <cg@exept.de> parents: 430 diff changeset	4575	#ifdef BUGGY_STDIO_LIB
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4576	setbuf(fp, NULL);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4577	__INST(buffered) = false;
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4578	#endif
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4579	__INST(filePointer) = __MKOBJ(fp);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4580	__STORESELF(filePointer);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4581	}
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4582	}
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4583	}
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	4584	#endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4585	%}.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4586	filePointer isNil ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4587	^ nil
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4588	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4589
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4590	mode := #readwrite.
169 ba5dac089c64 * empty log message * Claus Gittinger <cg@exept.de> parents: 168 diff changeset	4591	Lobby register:self.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4592	binary := false.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4593
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4594	domain := #inet.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4595	socketType := #datagram.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4596	protocol := portNr.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4597	peerName := hostName.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4598
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4599	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4600	Socket new for:'clam' udpPort:(Socket portOfService:'echo')
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4601	"
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4602	! !
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4603
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4604	!Socket methodsFor:'specials'!
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4605
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4606	receiveTimeout:seconds
71 632e2cc151c9 . claus parents: 63 diff changeset	4607	"set the receive timeout - for special applications only.
632e2cc151c9 . claus parents: 63 diff changeset	4608	Not all operatingSystems offer this functionality
632e2cc151c9 . claus parents: 63 diff changeset	4609	(returns false, if unsupported)"
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4610
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4611	\|millis\|
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4612
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4613	filePointer isNil ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4614	^ self errorNotOpen
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4615	].
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4616	millis := (seconds * 1000) rounded.
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4617	%{
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4618	#if defined(SO_RCVTIMEO) && defined(SOL_SOCKET) && defined(HZ)
58 bd6753bf0401 * empty log message * claus parents: 51 diff changeset	4619	if (__isSmallInteger(millis)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4620	OBJ fp = __INST(filePointer);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4621	int sock;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4622	int opt;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4623
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4624	sock = fileno(__FILEVal(fp));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4625	opt = _intVal(millis) / (1000 / HZ);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4626	setsockopt(sock, SOL_SOCKET, SO_RCVTIMEO, (char *)&opt, sizeof(int));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4627	RETURN(true);
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4628	}
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4629	#endif
71 632e2cc151c9 . claus parents: 63 diff changeset	4630	%}.
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	4631	^ false
81 f385f13d22df . claus parents: 79 diff changeset	4632	!
f385f13d22df . claus parents: 79 diff changeset	4633
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4634	sendTimeout:seconds
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4635	"set the send timeout - for special applications only.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4636	Not all operatingSystems offer this functionality
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4637	(returns false, if unsupported)"
81 f385f13d22df . claus parents: 79 diff changeset	4638
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4639	\|millis\|
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	4640
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4641	filePointer isNil ifTrue:[
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4642	^ self errorNotOpen
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4643	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4644	millis := (seconds * 1000) rounded.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4645	%{
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4646	#if defined(SO_SNDTIMEO) && defined(SOL_SOCKET) && defined(HZ)
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4647	if (__isSmallInteger(millis)) {
789 3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4648	OBJ fp = __INST(filePointer);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4649	int sock;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4650	int opt;
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4651
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4652	sock = fileno(__FILEVal(fp));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4653	opt = _intVal(millis) / (1000 / HZ);
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4654	setsockopt(sock, SOL_SOCKET, SO_SNDTIMEO, (char *)&opt, sizeof(int));
3c8cac1a92f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 787 diff changeset	4655	RETURN(true);
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4656	}
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4657	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4658	%}.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4659	^ false
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4660	! !
82 3b0854e2a3bb . claus parents: 81 diff changeset	4661
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	4662	!Socket class methodsFor:'documentation'!
206 77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	4663
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	4664	version
859 b71ab9e436cb * empty log message * Claus Gittinger <cg@exept.de> parents: 858 diff changeset	4665	^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.139 1999-12-15 11:13:45 cg Exp $'
206 77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	4666	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 15 Dec 1999 12:13:45 +0100
changeset 859	b71ab9e436cb
parent 858	0ab7917a48f0
child 867	56ca0cc52fa7
permissions	-rw-r--r--