hg/stx-libbasic2: Socket.st@c75a006f9a7a (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	"
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	12	'From Smalltalk/X, Version:6.2.3.0 on 18-04-2014 at 00:46:01' !
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	13
888 a868b0e54a2b ipAddress stuff Claus Gittinger <cg@exept.de> parents: 887 diff changeset	14	"{ Package: 'stx:libbasic2' }"
a868b0e54a2b ipAddress stuff Claus Gittinger <cg@exept.de> parents: 887 diff changeset	15
63 7dd3d5b7877e * empty log message * claus parents: 58 diff changeset	16	NonPositionableExternalStream subclass:#Socket
1505 5f65beb4aedd BUGFIX Stefan Vogel <sv@exept.de> parents: 1504 diff changeset	17	instanceVariableNames:'domain socketType protocol port serviceName peer peerName
5f65beb4aedd BUGFIX Stefan Vogel <sv@exept.de> parents: 1504 diff changeset	18	listening'
206 77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	19	classVariableNames:''
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	20	poolDictionaries:''
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	21	category:'Streams-External'
0 1cf8d1747859 Initial revision claus parents: diff changeset	22	!
1cf8d1747859 Initial revision claus parents: diff changeset	23
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	24	!Socket primitiveDefinitions!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	25	%{
1009 e0839f923a3c double underlines; Claus Gittinger <cg@exept.de> parents: 1007 diff changeset	26	/* #define DGRAM_DEBUG /* */
e0839f923a3c double underlines; Claus Gittinger <cg@exept.de> parents: 1007 diff changeset	27
1343 cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	28	#include "stxOSDefs.h"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	29
1503 4d97e4191d04 * empty log message * Claus Gittinger <cg@exept.de> parents: 1499 diff changeset	30	#ifdef WIN32
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	31	//#define DEBUG 1
2818 94d67df5c00d compilable with tcc Claus Gittinger <cg@exept.de> parents: 2773 diff changeset	32	/* this is to catch uses of those - there should be none */
1503 4d97e4191d04 * empty log message * Claus Gittinger <cg@exept.de> parents: 1499 diff changeset	33	# undef __BEGIN_INTERRUPTABLE__
4d97e4191d04 * empty log message * Claus Gittinger <cg@exept.de> parents: 1499 diff changeset	34	# undef __END_INTERRUPTABLE__
2818 94d67df5c00d compilable with tcc Claus Gittinger <cg@exept.de> parents: 2773 diff changeset	35	# ifdef __TCC__
94d67df5c00d compilable with tcc Claus Gittinger <cg@exept.de> parents: 2773 diff changeset	36	# define __BEGIN_INTERRUPTABLE__ xxxx
94d67df5c00d compilable with tcc Claus Gittinger <cg@exept.de> parents: 2773 diff changeset	37	# define __END_INTERRUPTABLE__ yyyy
94d67df5c00d compilable with tcc Claus Gittinger <cg@exept.de> parents: 2773 diff changeset	38	# else
94d67df5c00d compilable with tcc Claus Gittinger <cg@exept.de> parents: 2773 diff changeset	39	# define __BEGIN_INTERRUPTABLE__ ..
94d67df5c00d compilable with tcc Claus Gittinger <cg@exept.de> parents: 2773 diff changeset	40	# define __END_INTERRUPTABLE__ ..
94d67df5c00d compilable with tcc Claus Gittinger <cg@exept.de> parents: 2773 diff changeset	41	# endif
1503 4d97e4191d04 * empty log message * Claus Gittinger <cg@exept.de> parents: 1499 diff changeset	42
1504 92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	43	# define WRAP_STDIO
2823 10179ccfae5d Default for close - linger in background instead 30s in foreground Stefan Vogel <sv@exept.de> parents: 2818 diff changeset	44	// The default is linger until all data is sent in background
10179ccfae5d Default for close - linger in background instead 30s in foreground Stefan Vogel <sv@exept.de> parents: 2818 diff changeset	45	// so the close on the socket is non-blocking
10179ccfae5d Default for close - linger in background instead 30s in foreground Stefan Vogel <sv@exept.de> parents: 2818 diff changeset	46	// linger.onoff=off linger.time= irrelevant
10179ccfae5d Default for close - linger in background instead 30s in foreground Stefan Vogel <sv@exept.de> parents: 2818 diff changeset	47	//# define SET_LINGER_WHEN_CREATING_SOCKET
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	48
2909 aacef77a1697 64bit fixes Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	49	# ifdef __MINGW__
aacef77a1697 64bit fixes Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	50	extern HANDLE _get_osfhandle();
1845 df4d79bfba9d closesocket is still tricky Claus Gittinger <cg@exept.de> parents: 1844 diff changeset	51	# endif
df4d79bfba9d closesocket is still tricky Claus Gittinger <cg@exept.de> parents: 1844 diff changeset	52
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	53	# if 0 && (defined( __BORLANDC__ ) \|\| defined( __MINGW__ ))
2915 896fffb0f02e mingw64 Claus Gittinger <cg@exept.de> parents: 2909 diff changeset	54	# define SOCKET_FROM_FD(fd) (SOCKET)(_get_osfhandle(fd))
2909 aacef77a1697 64bit fixes Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	55	# else
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	56	# define SOCKET_FROM_FD(fd) (SOCKET)(fd)
2909 aacef77a1697 64bit fixes Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	57	# endif
1504 92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	58	#else /* not WIN32 */
3215 342d793d938c class: Socket Stefan Vogel <sv@exept.de> parents: 3214 diff changeset	59	# define SOCKET_FROM_FD(fd) (fd)
342d793d938c class: Socket Stefan Vogel <sv@exept.de> parents: 3214 diff changeset	60	# define closesocket(sock) close(sock)
342d793d938c class: Socket Stefan Vogel <sv@exept.de> parents: 3214 diff changeset	61	# define SOCKET int
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	62	#endif /* ! WIN32 */
1503 4d97e4191d04 * empty log message * Claus Gittinger <cg@exept.de> parents: 1499 diff changeset	63
1843 8ee90d243b49 closeSocket after fclose: no longer (Q: is this the right thing) Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	64	#define SOCKET_FROM_FILE(f) (SOCKET_FROM_FD(fileno(f)))
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	65	#define SOCKET_FROM_FILE_OBJECT(f) (__INST(handleType) == @symbol(socketHandle) ? SOCKET_FROM_FD(__FILEVal(f)) : SOCKET_FROM_FILE(__FILEVal(f)))
1539 c0e89dcb58b3 non blocking stuff done right here; Claus Gittinger <cg@exept.de> parents: 1538 diff changeset	66
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	67	#include <stdio.h>
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	68	#include <errno.h>
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	69
1343 cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	70	#ifdef WANT__TCP_DOT_H
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	71	# include <netinet/tcp.h>
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	72	#endif
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	73
1344 70d73917ac78 * empty log message * Claus Gittinger <cg@exept.de> parents: 1343 diff changeset	74	#ifdef WANT__NETDB_DOT_H
70d73917ac78 * empty log message * Claus Gittinger <cg@exept.de> parents: 1343 diff changeset	75	# include <netdb.h>
1343 cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	76	#endif
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	77
739 eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	78	#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	79	# define USE_H_ERRNO
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	80	#endif
eb3878300c3b removed WIN32 ifdef's - win32 uses Socket_win32.st anyway. Claus Gittinger <cg@exept.de> parents: 726 diff changeset	81
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	82	/*
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	83	* on some systems errno is a macro ... check for it here
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	84	*/
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	85	#ifndef errno
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	86	extern errno;
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	87	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	88
648 58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	89	#ifdef USE_H_ERRNO
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	90	# ifndef h_errno
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	91	extern h_errno;
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	92	# endif
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	93	#endif
58e11a70ddaf gethostbyname behaves strange, if a name-server lookup is involved. Claus Gittinger <cg@exept.de> parents: 617 diff changeset	94
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	95	#ifdef DEBUG
1839 c10cd58ec334 * empty log message * Claus Gittinger <cg@exept.de> parents: 1781 diff changeset	96	# define DBGPRINTF(x) { if (__debugging__) console_printf x; }
c10cd58ec334 * empty log message * Claus Gittinger <cg@exept.de> parents: 1781 diff changeset	97	# define DBGFPRINTF(x) { if (__debugging__) console_fprintf x; }
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	98	#else
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	99	# define DBGPRINTF(x) /* as nothing */
821 40b0b69bf4b5 more debugs; fixed at-addresses Claus Gittinger <cg@exept.de> parents: 820 diff changeset	100	# define DBGFPRINTF(x) /* as nothing */
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	101	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	102
1531 ec98158988ca compilable under unix Claus Gittinger <cg@exept.de> parents: 1529 diff changeset	103	#ifndef TRUE
1535 f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	104	# define TRUE 1
1531 ec98158988ca compilable under unix Claus Gittinger <cg@exept.de> parents: 1529 diff changeset	105	#endif
ec98158988ca compilable under unix Claus Gittinger <cg@exept.de> parents: 1529 diff changeset	106	#ifndef FALSE
1535 f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	107	# define FALSE 0
1531 ec98158988ca compilable under unix Claus Gittinger <cg@exept.de> parents: 1529 diff changeset	108	#endif
ec98158988ca compilable under unix Claus Gittinger <cg@exept.de> parents: 1529 diff changeset	109	#ifndef WIN32
ec98158988ca compilable under unix Claus Gittinger <cg@exept.de> parents: 1529 diff changeset	110	typedef int BOOL;
ec98158988ca compilable under unix Claus Gittinger <cg@exept.de> parents: 1529 diff changeset	111	#endif
ec98158988ca compilable under unix Claus Gittinger <cg@exept.de> parents: 1529 diff changeset	112
1843 8ee90d243b49 closeSocket after fclose: no longer (Q: is this the right thing) Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	113	#ifdef WIN32
8ee90d243b49 closeSocket after fclose: no longer (Q: is this the right thing) Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	114	# undef stdout
8ee90d243b49 closeSocket after fclose: no longer (Q: is this the right thing) Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	115	# undef stderr
8ee90d243b49 closeSocket after fclose: no longer (Q: is this the right thing) Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	116	# define stdout __win32_stdout()
8ee90d243b49 closeSocket after fclose: no longer (Q: is this the right thing) Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	117	# define stderr __win32_stderr()
8ee90d243b49 closeSocket after fclose: no longer (Q: is this the right thing) Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	118	#endif
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	119	%}
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	120	! !
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	121
511 c071e228cb24 * empty log message * Claus Gittinger <cg@exept.de> parents: 510 diff changeset	122	!Socket primitiveVariables!
c071e228cb24 * empty log message * Claus Gittinger <cg@exept.de> parents: 510 diff changeset	123	%{
1844 decc9d62520d oops - debug Claus Gittinger <cg@exept.de> parents: 1843 diff changeset	124	static int __debugging__ = 0;
511 c071e228cb24 * empty log message * Claus Gittinger <cg@exept.de> parents: 510 diff changeset	125	%}
c071e228cb24 * empty log message * Claus Gittinger <cg@exept.de> parents: 510 diff changeset	126	! !
c071e228cb24 * empty log message * Claus Gittinger <cg@exept.de> parents: 510 diff changeset	127
1504 92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	128	!Socket primitiveFunctions!
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	129	%{
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	130
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	131	static int
1504 92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	132	setupBufferParameters(aDataBuffer, startIndex, p_extPtr, p_offs, p_objSize)
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	133	OBJ aDataBuffer, startIndex;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	134	char **p_extPtr;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	135	int *p_offs;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	136	int *p_objSize;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	137	{
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	138	char *extPtr = 0;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	139	int sIdx = 0, objSize = 0, offs = 0;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	140
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	141	sIdx = 0;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	142	if (__isSmallInteger(startIndex)) {
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	143	sIdx = __intVal(startIndex) - 1;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	144	}
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	145
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	146	if (__isExternalBytesLike(aDataBuffer)) {
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	147	OBJ sz;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	148
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	149	extPtr = (char *)(__externalBytesAddress(aDataBuffer));
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	150	sz = __externalBytesSize(aDataBuffer);
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	151	if (__isSmallInteger(sz)) {
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	152	objSize = __intVal(sz);
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	153	} else {
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	154	objSize = 0; /* unknown */
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	155	}
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	156	offs = sIdx;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	157	} else {
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	158	OBJ oClass;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	159	int nInstVars, nInstBytes;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	160
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	161	extPtr = (char *)0;
1504 92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	162	oClass = __Class(aDataBuffer);
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	163	switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	164	case BYTEARRAY:
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	165	offs = sIdx;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	166	break;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	167	case WORDARRAY:
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	168	case SWORDARRAY:
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	169	offs = sIdx * 2;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	170	break;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	171	case LONGARRAY:
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	172	case SLONGARRAY:
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	173	offs = sIdx * 4;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	174	break;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	175	case LONGLONGARRAY:
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	176	case SLONGLONGARRAY:
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	177	offs = sIdx * 8;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	178	# ifdef __NEED_LONGLONG_ALIGN
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	179	offs += 4;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	180	# endif
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	181	break;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	182	case FLOATARRAY:
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	183	offs = sIdx * sizeof(float);
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	184	break;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	185	case DOUBLEARRAY:
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	186	offs = sIdx * sizeof(double);
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	187	# ifdef __NEED_DOUBLE_ALIGN
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	188	offs += 4;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	189	# endif
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	190	break;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	191	default:
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	192	*p_objSize = -1;
911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	193	return 0;
1504 92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	194	}
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	195	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	196	nInstBytes = OHDR_SIZE + nInstVars * sizeof(OBJ);
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	197	offs = offs + nInstBytes;
2998 f3b0c290b01b stx macros begin with 2 underlines Claus Gittinger <cg@exept.de> parents: 2953 diff changeset	198	objSize = __Size(aDataBuffer) - offs;
1504 92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	199	}
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	200	*p_extPtr = extPtr;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	201	*p_objSize = objSize;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	202	*p_offs = offs;
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	203	return 1;
1504 92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	204	}
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	205	%}
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	206	! !
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	207
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	208	!Socket class methodsFor:'documentation'!
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	209
31 e223f3cf2995 * empty log message * claus parents: 28 diff changeset	210	copyright
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	211	"
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	212	COPYRIGHT (c) 1992 by Claus Gittinger
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	213	All Rights Reserved
31 e223f3cf2995 * empty log message * claus parents: 28 diff changeset	214
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	215	This software is furnished under a license and may be used
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	216	only in accordance with the terms of that license and with the
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	217	inclusion of the above copyright notice. This software may not
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	218	be provided or otherwise made available to, or used by, any
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	219	other person. No title to or ownership of the software is
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	220	hereby transferred.
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	221	"
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	222	!
e223f3cf2995 * empty log message * claus parents: 28 diff changeset	223
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	224	documentation
996051271ce9 * empty log message * claus parents: 21 diff changeset	225	"
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	226	This class provides access to sockets for interprocess communication.
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	227	The message protocol is preliminary, until someone tells me how
31 e223f3cf2995 * empty log message * claus parents: 28 diff changeset	228	other smalltalk's socket interfaces look like.
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	229
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	230	Currently, only IP and UNIX domain sockets are really fully
911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	231	tested and supported.
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	232	Code for appletalk is included, but was never tested ...
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	233	More may be added in the future.
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	234	(the code is prepared for things like SNA or decNet;
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	235	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	236	Implementing those is pretty straight forward, once the address
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	237	data structures are known.)
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	238
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	239	Due to historic reasons (I started this class, before I got hold of some
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	240	code using ST-80 Sockets i.e. RemoteInvocation), there is some old interface
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	241	still provided.
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	242	This will vanish; use the #family:type: or #newTCPxxx and #newUDPxxx interfaces,
71 632e2cc151c9 . claus parents: 63 diff changeset	243	together with the bind/listen and accept calls,
632e2cc151c9 . claus parents: 63 diff changeset	244	which are meant to be compatible to ST-80's UnixSocketAccessor interface.
632e2cc151c9 . claus parents: 63 diff changeset	245
632e2cc151c9 . claus parents: 63 diff changeset	246	TODO: cleanup historic leftovers, implement other than inet domain stuff.
2825 e5b7d2005351 fixed for compilability Claus Gittinger <cg@exept.de> parents: 2824 diff changeset	247	(mhmh - how can I test those ?)
e5b7d2005351 fixed for compilability Claus Gittinger <cg@exept.de> parents: 2824 diff changeset	248	change to raise more signals on errors.
259 6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 220 diff changeset	249
6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 220 diff changeset	250	[author:]
2825 e5b7d2005351 fixed for compilability Claus Gittinger <cg@exept.de> parents: 2824 diff changeset	251	Claus Gittinger
48 18b9353c9d07 * empty log message * claus parents: 44 diff changeset	252	"
18b9353c9d07 * empty log message * claus parents: 44 diff changeset	253	!
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	254
48 18b9353c9d07 * empty log message * claus parents: 44 diff changeset	255	examples
18b9353c9d07 * empty log message * claus parents: 44 diff changeset	256	"
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	257	example (get help info from an nntp server):
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	258	[exBegin]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	259	\|sock\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	260
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	261	sock := Socket newTCPclientToHost:'smtp.exept.de' port:'smtp'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	262	sock isNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	263	self warn:'no smtp daemon is running'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	264	^ self
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	265	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	266	Transcript showCR:sock nextLine.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	267
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	268	sock nextPutAll:'HELO STX socket test'; cr.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	269	Transcript showCR:sock nextLine.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	270	sock close
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	271	[exEnd]
209 2152fceba563 finger example Claus Gittinger <cg@exept.de> parents: 208 diff changeset	272
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	273
209 2152fceba563 finger example Claus Gittinger <cg@exept.de> parents: 208 diff changeset	274	example (connect to finger daemon, get users entry):
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	275	[exBegin]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	276	\|sock entry\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	277
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	278	sock := Socket newTCPclientToHost:'localhost' port:'finger'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	279	sock isNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	280	self warn:'no finger daemon is running'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	281	^ self
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	282	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	283	sock useCRLF:true.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	284	sock buffered:false.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	285	sock isNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	286	Transcript showCR:'cannot connect to local finger daemon'
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	287	] ifFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	288	sock nextPutAll:(OperatingSystem getLoginName).
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	289	sock cr.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	290
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	291	entry := sock nextLine.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	292	Transcript showCR:entry.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	293
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	294	sock close
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	295	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	296	[exEnd]
99 7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	297
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	298	example (connect to an ftp server):
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	299	[exBegin]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	300	\|sock\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	301
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	302	sock := Socket newTCPclientToHost:'www.exept.de' port:'ftp'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	303
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	304	sock buffered:false.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	305	Transcript showCR:sock nextLine.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	306	sock nextPutAll:('USER ' , 'anonymous'); cr.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	307	Transcript showCR:sock nextLine.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	308	sock nextPutAll:('PASS ' , 'fooBar'); cr.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	309	Transcript showCR:sock nextLine.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	310	sock nextPutAll:'HELP'; cr.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	311	[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	312	\|line\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	313	line := sock nextLine.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	314	Transcript showCR:line.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	315	(line at:4) = $-
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	316	] whileTrue.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	317	sock close.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	318
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	319	'dont know enough of the ftp protocol to continue here ...'
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	320	[exEnd]
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	321
99 7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	322
93 8d1a86bd642c . Claus Gittinger <cg@exept.de> parents: 92 diff changeset	323	example (connect to an snmp server [UDP]):
2824 b00dc482dd03 comment/format in: #examples Stefan Vogel <sv@exept.de> parents: 2823 diff changeset	324	Note: this is not a real connection, only the destination adress is
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	325	being fixed.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	326	[exBegin]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	327	\|sock port\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	328
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	329	sock := Socket newUDP.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	330	port := Socket portOfService:'snmp'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	331	sock connectTo:'localhost' port:port.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	332	sock buffered:false.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	333	Transcript showCR:'got it'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	334	sock close.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	335	[exEnd]
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	336
99 7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	337
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	338	example (await connection from a client and read some data):
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	339	[exBegin]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	340	\|connectSock sock\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	341
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	342	connectSock := Socket newTCPserverAtPort:9998.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	343	connectSock isNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	344	Transcript showCR:'socket setup failed.'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	345	] ifFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	346	Transcript showCR:'listen ..'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	347	(connectSock listenFor:5) ifFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	348	Transcript showCR:'listen failed.'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	349	] ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	350	Transcript showCR:'wait'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	351	connectSock readWait.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	352	Transcript showCR:'accept'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	353	sock := connectSock accept.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	354	sock isNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	355	Transcript showCR:'accept failed.'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	356	] ifFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	357	sock buffered:false.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	358	Transcript showCR:'server: got it'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	359	'can now do transfer via sock'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	360	Transcript showCR:'read'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	361	Transcript showCR:('got: ' , sock nextLine).
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	362
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	363	Transcript showCR:'close'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	364	sock close
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	365	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	366	connectSock close.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	367	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	368	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	369	[exEnd]
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	370
99 7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	371
42 506596f9a1a8 * empty log message * claus parents: 38 diff changeset	372	example (connect to above server and send some data):
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	373	[exBegin]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	374	\|sock\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	375
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	376	sock := Socket newTCPclientToHost:'localhost' port:9998.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	377	sock isNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	378	Transcript showCR:'nope'
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	379	] ifFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	380	sock buffered:false.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	381	Transcript showCR:'client: got it'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	382	'can now do transfer via sock'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	383	Transcript showCR:'sending <hello>'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	384	sock nextPutLine:'hello'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	385	sock close
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	386	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	387	[exEnd]
117 03cefad7e40b UD socket example & interruptable bind Claus Gittinger <cg@exept.de> parents: 116 diff changeset	388
03cefad7e40b UD socket example & interruptable bind Claus Gittinger <cg@exept.de> parents: 116 diff changeset	389	example: UNIX domain socket (await connection from a client and read some data):
1009 e0839f923a3c double underlines; Claus Gittinger <cg@exept.de> parents: 1007 diff changeset	390
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	391	\|connectSock sock\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	392
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	393	'/tmp/ud_socket' asFilename remove.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	394	connectSock := Socket newUNIXserverAt:'/tmp/ud_socket'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	395	connectSock isNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	396	Transcript showCR:'socket setup failed.'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	397	] ifFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	398	Transcript showCR:'listen ..'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	399	(connectSock listenFor:5) ifFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	400	Transcript showCR:'listen failed.'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	401	] ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	402	Transcript showCR:'wait'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	403	connectSock buffered:false.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	404	connectSock readWait.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	405	Transcript showCR:'accept'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	406	sock := connectSock accept.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	407	sock isNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	408	Transcript showCR:'accept failed.'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	409	] ifFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	410	sock buffered:false.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	411	Transcript showCR:'server: got it'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	412	'can now do transfer via sock'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	413	Transcript showCR:'read'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	414	Transcript showCR:('got: ' , sock nextLine).
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	415
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	416	Transcript showCR:'close'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	417	sock close
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	418	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	419	connectSock close.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	420	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	421	]
117 03cefad7e40b UD socket example & interruptable bind Claus Gittinger <cg@exept.de> parents: 116 diff changeset	422
03cefad7e40b UD socket example & interruptable bind Claus Gittinger <cg@exept.de> parents: 116 diff changeset	423
118 142d5c273454 * empty log message * Claus Gittinger <cg@exept.de> parents: 117 diff changeset	424	example (connect to above server and send some data;
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	425	Notice, this fails, if above server code is executed in the same ST/X image
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	426	(at least on LINUX), since the OS does not correctly handle
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	427	a connect from within an interrupted accept system call
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	428	On SGI's SVR4, this works ok
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	429	[exBegin]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	430	\|sock\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	431
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	432	sock := Socket newUNIXclientTo:'/tmp/ud_socket'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	433	sock isNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	434	Transcript showCR:'nope'
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	435	] ifFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	436	sock buffered:false.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	437	Transcript showCR:'client: got it'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	438	'can now do transfer via sock'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	439	Transcript showCR:'sending <hello>'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	440	sock nextPutLine:'hello'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	441	sock close
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	442	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	443	[exEnd]
1007 5267b5738779 UDP examples Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	444
5267b5738779 UDP examples Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	445
5267b5738779 UDP examples Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	446	example (UDP await packet from a client and read some data):
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	447	[exBegin]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	448	\|udpSock sock addr n dataBuffer\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	449
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	450	udpSock := Socket newUDPserverAtPort:9999.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	451	udpSock isNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	452	Transcript showCR:'socket setup failed.'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	453	] ifFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	454	Transcript showCR:'wait'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	455	udpSock readWait.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	456
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	457	addr := IPSocketAddress new.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	458	dataBuffer := ByteArray new:1000.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	459	n := udpSock receiveFrom:addr buffer:dataBuffer start:1 for:dataBuffer size.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	460	n > 0 ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	461	Transcript showCR:('got: ' , n printString , 'bytes from ' , addr printString).
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	462	Transcript showCR:('data: ' , (dataBuffer copyTo:n) printString).
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	463	] ifFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	464	Transcript showCR:'read failed'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	465	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	466
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	467	Transcript showCR:'close'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	468	udpSock close
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	469	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	470	[exEnd]
1007 5267b5738779 UDP examples Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	471	example (connect to above UDP server and send some data;
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	472	[exBegin]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	473	\|sock\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	474
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	475	sock := Socket newUDP.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	476	sock isNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	477	Transcript showCR:'nope'
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	478	] ifFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	479	sock sendTo:(IPSocketAddress new hostName:'localhost' port:9999) buffer:'hello world'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	480	sock close
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	481	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	482	[exEnd]
99 7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	483
7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	484	example: pingWalk (try to ping hosts on the local network)
2824 b00dc482dd03 comment/format in: #examples Stefan Vogel <sv@exept.de> parents: 2823 diff changeset	485	Note: it dosen't use ICMP ping, but tries to reache the echo service,
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	486	which is disabled on most OS.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	487	[exBegin]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	488	\|myAddress list top hosts walkProcess port\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	489
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	490	myAddress := OperatingSystem getNetworkAddresses
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	491	keysAndValuesSelect:[:eachIFName :eachAddress\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	492	eachAddress isLocal not
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	493	and:[eachIFName = 'wlan0']
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	494	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	495	myAddress := myAddress first hostAddress.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	496
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	497	port := Socket portOfService:'echo'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	498	port isNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	499	self error:'dont know echo port'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	500	^ self
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	501	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	502
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	503	top := StandardSystemView new.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	504	top label:'PING net walk'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	505
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	506	list := ScrollableView for:ListView in:top.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	507	list origin:0.0@0.0 corner:1.0@1.0.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	508
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	509	top openAndWait.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	510
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	511	walkProcess := [
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	512	\|l low hi direction tryHostID dottedName hostName conn addr\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	513
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	514	l := SortedCollection new.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	515
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	516	' only works with type C-net
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	517	the code below could simply do 1 to:254 do:[:hostID }
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	518	but, to probe likely hosts earlier, the probing is done
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	519	ping-pong like around my ip-address (assuming, that other machines
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	520	have numbers around my own)'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	521
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	522	low := hi := (myAddress at:4).
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	523	direction := 1.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	524
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	525	[low > 0 or:[hi < 255]] whileTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	526	direction > 0 ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	527	hi := hi + 1.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	528	tryHostID := hi.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	529	direction := -1.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	530	] ifFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	531	low := low - 1.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	532	tryHostID := low.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	533	direction := 1.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	534	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	535	(tryHostID between:1 and:254) ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	536	dottedName := (myAddress at:1) printString
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	537	, '.' , (myAddress at:2) printString
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	538	, '.' , (myAddress at:3) printString
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	539	, '.' , tryHostID printString.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	540
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	541	top label:'PING net walk - trying ' , dottedName.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	542
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	543	top windowGroup withCursor:Cursor wait do:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	544	conn := Socket newTCPclientToHost:dottedName port:port withTimeout:1000.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	545	conn notNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	546	addr := Socket ipAddressOfHost:dottedName.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	547	hostName := Socket hostWithIpAddress:addr.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	548	hostName isNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	549	hostName :='?'
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	550	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	551	l add:(dottedName paddedTo:15 with:Character space)
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	552	, ' '
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	553	, (hostName paddedTo:15 with:Character space)
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	554	, ' up & reachable'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	555	list list:l.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	556	conn close.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	557	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	558	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	559	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	560	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	561	top label:'PING reachable hosts'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	562	] forkAt:(Processor userBackgroundPriority).
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	563	walkProcess name:'ping net walker'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	564	[exEnd]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	565
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	566
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	567	This example creates a simple UDP server that accepts
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	568	single packets from anybody and broadcasts them to all
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	569	clients that have connected so far.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	570
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	571	[exBegin]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	572	\| socket address buffer msgSize clients \|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	573	clients := Set new.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	574	address := IPSocketAddress new.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	575	buffer := String new: 1024.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	576
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	577	socket := self newUDPserverAtPort: 6666.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	578
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	579	Transcript showCR: 'server starting'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	580
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	581	[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	582	[true] whileTrue: [
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	583	(socket readWaitWithTimeoutMs: 200) ifFalse: [
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	584	msgSize := socket
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	585	receiveFrom: address
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	586	buffer: buffer
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	587	start: 1
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	588	for: buffer size.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	589
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	590	clients add: address copy.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	591	clients do: [ :clientAddress \|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	592	socket
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	593	sendTo: clientAddress
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	594	buffer: buffer
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	595	start: 1
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	596	for: msgSize]]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	597	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	598	] ensure:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	599	Transcript showCR: 'server shutting down'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	600	socket close
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	601	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	602	[exEnd]
817 eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	603
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	604	send a datagram to above server:
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	605	[exBegin]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	606
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	607	\| socket address buffer host msg \|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	608
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	609	host := Dialog
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	610	request: 'What is the name of the server''s host?'
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	611	initialAnswer: 'localhost'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	612
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	613	socket := self newUDP.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	614
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	615	address := IPSocketAddress hostName: host port: 6666.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	616
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	617	buffer := ByteArray new: 1000.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	618	[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	619	[(msg := Dialog request: 'Say something') isEmpty] whileFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	620	\| replySize stream \|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	621
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	622	socket writeWait.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	623	stream := buffer writeStream.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	624	stream nextPutAll: msg.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	625	socket sendTo:address buffer:buffer start:1 for:stream position.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	626	socket readWait.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	627
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	628	replySize := socket receiveFrom:address buffer:buffer.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	629	replySize > 0 ifTrue: [
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	630	Transcript cr; nextPutAll: 'Server acknowledged: '.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	631	Transcript show: ((buffer copyFrom: 1 to: replySize) asString)
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	632	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	633	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	634	] ensure: [socket close].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	635	Transcript cr
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	636	[exEnd]
1316 ffe05bfee9b5 example Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	637
ffe05bfee9b5 example Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	638
ffe05bfee9b5 example Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	639	loopBack:
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	640	[exBegin]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	641
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	642	\|readerTask readingSocket writingSocket\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	643
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	644	readingSocket := self newTCPserverAtPort:9999.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	645	readerTask :=
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	646	[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	647	\|connection\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	648
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	649	readingSocket listenFor:1.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	650	connection := readingSocket accept.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	651	readingSocket close.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	652	[connection atEnd] whileFalse:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	653	Transcript showCR:(connection nextLine).
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	654	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	655	connection close.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	656	] fork.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	657
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	658	Delay waitForSeconds:1.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	659	writingSocket := self newTCPclientToHost:'localhost' port:9999.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	660	writingSocket nextPutLine:'Hello'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	661	writingSocket nextPutLine:'World'.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	662	writingSocket close.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	663	[exEnd]
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	664	"
996051271ce9 * empty log message * claus parents: 21 diff changeset	665	! !
996051271ce9 * empty log message * claus parents: 21 diff changeset	666
1462 5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	667	!Socket class methodsFor:'instance creation'!
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	668
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	669	bindTo:aSocketAddress type:aTypeSymbol
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	670	"create a socket for a specific type
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	671	and bind it to aSocketAddress.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	672	Type must be:
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	673	#stream, #datagram or #raw
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	674
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	675	Neither connect nor connect-wait is done."
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	676
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	677	\|newSock\|
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	678
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	679	newSock := self domain:aSocketAddress domain type:aTypeSymbol.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	680	[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	681	newSock bindTo:aSocketAddress reuseAddress:true.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	682	] ifCurtailed:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	683	newSock close.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	684	].
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	685	^ newSock
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	686
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	687
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	688	"
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	689	Socket bindTo:(IPSocketAddress anyHost port:8081) type:#stream.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	690	Socket bindTo:(IPv6SocketAddress anyHost port:8081) type:#datagram.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	691	"
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	692	!
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	693
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	694	domain:domainSymbol type:type
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	695	"create a socket for domain and type -
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	696	neither any connect nor binding is done.
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	697	Domain must be one of the symbols:
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	698	#inet, #unix, #appletalk, #decnet, #xns, ...;
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	699	Type must be:
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	700	#stream, #datagram or #raw
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	701
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	702	XXX: currently only the #AF_INET and #AF_INET6 and #AF_UNIX domains are supported"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	703
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	704	^ self new domain:domainSymbol type:type
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	705
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	706	"
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	707	Socket domain:#AF_INET type:#stream
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	708	Socket domain:#AF_INET type:#datagram
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	709	Socket domain:#AF_INET6 type:#stream
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	710	Socket domain:#AF_INET6 type:#datagram
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	711	Socket domain:#AF_UNIX type:#stream
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	712	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	713	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	714
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	715	newTCP
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	716	"create a TCP socket - no binding or other setup is done,
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	717	neither connect nor connect-wait is done."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	718
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	719	^ self new domain:#'AF_INET' type:#stream
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	720
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	721	"
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	722	Socket newTCP
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	723	"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	724	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	725
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	726	newTCP:aServiceOrNil
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	727	"create a TCP socket for a service -
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	728	neither connect nor connect-wait is done."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	729
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	730	\|newSock socketAddress socketAddressClass\|
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	731
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	732	newSock := self newTCP.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	733	(newSock notNil and:[aServiceOrNil notNil]) ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	734	[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	735	socketAddressClass := newSock socketAddressClass.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	736	socketAddress := socketAddressClass hostName:nil serviceName:aServiceOrNil type:#stream.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	737	socketAddress hostAddress:socketAddressClass anyAddress.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	738	newSock bindTo:socketAddress reuseAddress:true.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	739	] ifCurtailed:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	740	newSock close.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	741	]
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	742	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	743	^ newSock
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	744
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	745
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	746	"
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	747	Socket newTCP:'http-alt'.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	748	Socket newTCP:9996.
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	749	"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	750	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	751
576 13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	752	newTCPclientToAddress:aHostAddress port:aService
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	753	"create a new TCP client socket connecting to a service.
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	754	Return a socket instance if ok, nil on failure.
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	755	Block until a connection is established (but only the current thread;
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	756	not the whole smalltalk).
576 13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	757	See also: #newTCPclientToAddress:port:withTimeout:"
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	758
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	759	^ self newTCPclientToAddress:aHostAddress port:aService withTimeout:nil
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	760	!
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	761
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	762	newTCPclientToAddress:aSocketAddressOrByteArray port:aService withTimeout:millis
576 13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	763	"create a new TCP client socket connecting to a service.
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	764	Return a socket instance if ok, nil on failure.
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	765	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	766	and return nil."
576 13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	767
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	768	\|port socketAddress\|
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	769
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	770	aService isString ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	771	port := self portOfService:aService protocol:#tcp.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	772	] ifFalse:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	773	port := aService.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	774	].
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	775	socketAddress := aSocketAddressOrByteArray isSocketAddress
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	776	ifTrue:[aSocketAddressOrByteArray]
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	777	ifFalse:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	778	"Passing ByteArrays is obsolete and only supported for IPv4"
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	779	IPSocketAddress hostAddress:aSocketAddressOrByteArray
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	780	].
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	781	port notNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	782	socketAddress port:port.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	783	].
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	784	^ self newTCPclientToAddress:socketAddress withTimeout:millis
576 13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	785	!
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	786
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	787	newTCPclientToAddress:aSocketAddress withTimeout:millis
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	788	"create a new TCP client socket connecting to a service.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	789	Return a socket instance if ok, nil on failure.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	790	If the millis arg is nonNil, stop trying to connect after that many milliseconds
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	791	and return nil."
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	792
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	793	\|socket\|
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	794
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	795	socket := self domain:aSocketAddress domain type:#stream.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	796	(socket connectTo:aSocketAddress withTimeout:millis) ifFalse:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	797	socket close.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	798	^ nil
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	799	].
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	800	^ socket.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	801
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	802	"
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	803	self newTCPclientToAddress:(IPv6SocketAddress hostName:'www.exept.de' port:80) withTimeout:nil
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	804	"
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	805	!
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	806
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	807	newTCPclientToHost:hostNameOrAddress port:aPortOrServiceName
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	808	"create a new TCP client socket connecting to a service.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	809	If hostNameOrAddress is a string, try all the resolved adresses regardless
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	810	whether fpr IPv4 or IPv6.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	811	Return a socket instance if ok, nil on failure.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	812	Block until a connection is established (but only the current thread;
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	813	not the whole smalltalk).
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	814	See also: #newTCPclientToHost:port:withTimeout:"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	815
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	816	^ self newTCPclientToHost:hostNameOrAddress port:aPortOrServiceName domain:nil withTimeout:nil
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	817
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	818	"
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	819	Socket newTCPclientToHost:'www.exept.de' port:'http'
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	820	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	821
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	822	"Created: 31.10.1995 / 18:54:11 / cg"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	823	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	824
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	825	newTCPclientToHost:hostNameOrAddress port:aPortOrServiceName domain:aDomainSymbolOrNil withTimeout:millis
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	826	"create a new TCP client socket connecting to a service on hostNameOrAddress.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	827	If hostNameOrAddress is a string, try all the resolved adresses.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	828	Return a socket instance if ok, nil on failure.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	829	Set aDomainSymbolOrNil to #AF_INET of #AF_INET6 to connect via a defined protocol.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	830	Set aDomainSymbolOrNil to nil, to try all protocols.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	831	If the millis arg is nonNil, stop trying to connect after that many milliseconds
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	832	and return nil."
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	833
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	834	\|socket addressInfoList\|
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	835
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	836	hostNameOrAddress isString ifFalse:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	837	^ self newTCPclientToAddress:hostNameOrAddress port:aPortOrServiceName withTimeout:millis.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	838	].
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	839
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	840	addressInfoList := SocketAddress
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	841	getAddressInfo:hostNameOrAddress
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	842	serviceName:aPortOrServiceName
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	843	domain:aDomainSymbolOrNil
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	844	type:#stream
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	845	protocol:nil
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	846	flags:0.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	847
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	848	addressInfoList do:[:eachAddressInfo\|
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	849	\|domainSymbol lastDomainSymbol\|
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	850
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	851	domainSymbol := eachAddressInfo domain.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	852	domainSymbol ~~ lastDomainSymbol ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	853	socket notNil ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	854	socket close.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	855	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	856	socket := self new domain:domainSymbol type:#stream.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	857	lastDomainSymbol := domainSymbol.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	858	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	859	(socket connectTo:eachAddressInfo socketAddress withTimeout:millis) ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	860	^ socket.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	861	].
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	862	].
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	863	socket notNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	864	socket close.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	865	].
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	866	^ nil.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	867
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	868	"
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	869	Socket newTCPclientToHost:'www.exept.de' port:80 domain:#'AF_INET' withTimeout:1000.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	870	Socket newTCPclientToHost:'www.exept.de' port:80 domain:#'AF_INET6' withTimeout:1000.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	871	Socket newTCPclientToHost:'www.exept.de' port:80 domain:nil withTimeout:1000.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	872	Socket newTCPclientToHost:'localhost' port:'nntp' withTimeout:1000
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	873	"
604 b302a21afece Remove redundant code. Stefan Vogel <sv@exept.de> parents: 589 diff changeset	874
b302a21afece Remove redundant code. Stefan Vogel <sv@exept.de> parents: 589 diff changeset	875	"Modified: / 16.1.1998 / 09:47:06 / stefan"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	876	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	877
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	878	newTCPclientToHost:hostNameOrAddress port:aPortOrServiceName withTimeout:millis
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	879	"create a new TCP client socket connecting to a service on hostNameOrAddress.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	880	If hostNameOrAddress is a string, try all the resolved adresses regardless
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	881	whether fpr IPv4 or IPv6.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	882	Return a socket instance if ok, nil on failure.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	883	If the millis arg is nonNil, stop trying to connect after that many milliseconds
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	884	and return nil."
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	885
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	886	^ self
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	887	newTCPclientToHost:hostNameOrAddress
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	888	port:aPortOrServiceName
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	889	domain:self defaultIpDomainForConnect
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	890	withTimeout:millis
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	891	!
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	892
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	893	newTCPserverAtAnonymousPort
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	894	"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	895	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	896
811 72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	897	^ self newTCPserverAtPort:0
506 11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	898
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	899	!
11ef93d12870 support anonymous (OS_specified) ports. (for FTP-protocol) Claus Gittinger <cg@exept.de> parents: 486 diff changeset	900
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	901	newTCPserverAtPort:aService
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	902	"create a new TCP server socket providing service."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	903
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	904	^ self newTCP:aService
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	905	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	906
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	907	newUDP
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	908	"create a UDP socket - no binding or other setup is done,
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	909	neither connect nor connect-wait is done."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	910
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	911	^ self new domain:#'AF_INET' type:#datagram
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	912
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	913	"Socket newUDP"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	914	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	915
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	916	newUDP:aServiceOrNil
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	917	"create a UDP socket for a service -
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	918	neither connect nor connect-wait is done."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	919
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	920	\|newSock socketAddressClass socketAddress\|
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	921
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	922	newSock := self newUDP.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	923	(newSock notNil and:[aServiceOrNil notNil]) ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	924	[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	925	socketAddressClass := newSock socketAddressClass.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	926	socketAddress := socketAddressClass hostName:nil serviceName:aServiceOrNil type:#stream.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	927	socketAddress hostAddress:socketAddressClass anyAddress.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	928	newSock bindTo:socketAddress reuseAddress:true.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	929	] ifCurtailed:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	930	newSock close.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	931	]
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	932	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	933	^ newSock
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	934
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	935	"
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	936	Socket newUDP:4444.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	937	Socket newUDP:'activesync'.
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	938	"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	939	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	940
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	941	newUDPserverAtPort:aService
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	942	"create a new UDP server socket providing service."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	943
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	944	^ self newUDP:aService
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	945	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	946
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	947	newUNIX
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	948	"create a UNIX domain socket - no binding or other setup is done,
811 72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	949	neither connect nor connect-wait is done.
72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	950	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	951	return nil."
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	952
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	953	^ self new domain:#'AF_UNIX' type:#stream
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	954
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	955	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	956	Socket newUNIX
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	957	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	958	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	959
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	960	newUNIXclientTo:pathName
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	961	"create a new UNIX client socket connecting to a pathname.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	962	Return a socket instance if ok, nil on failure.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	963	Block until a connection is established (but only the current thread;
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	964	not the whole smalltalk).
811 72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	965	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	966	return nil.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	967	See also: #newUNIXclientTo:withTimeout:"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	968
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	969	^ self newUNIXclientTo:pathName withTimeout:nil
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	970
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	971	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	972
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	973	newUNIXclientTo:pathName withTimeout:millis
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	974	"create a new UNIX client socket connecting to a pathname.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	975	Return a socket instance if ok, nil on failure.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	976	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	977	and return nil.
72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	978	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	979	return nil."
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	980
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	981	\|newSock\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	982
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	983	newSock := self newUNIX.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	984	newSock notNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	985	(newSock connectTo:(UDSocketAddress name:pathName) withTimeout:millis) ifFalse:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	986	newSock close.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	987	^ nil
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	988	]
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	989	].
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	990	^ newSock
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	991
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	992	"
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	993	Socket newUNIXclientTo:'/tmp/foo'
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	994	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	995	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	996
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	997	newUNIXserverAt:pathName
811 72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	998	"create a new UNIX server socket providing service at a pathname.
72d9ac1a7f95 comments Claus Gittinger <cg@exept.de> parents: 809 diff changeset	999	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	1000	return nil."
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1001
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1002	^ self bindTo:(UDSocketAddress name:pathName) type:#stream.
126 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	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1005	\|s s2\|
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1006
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1007	'/tmp/foo' asFilename remove.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1008	s := Socket newUNIXserverAt:'/tmp/foo'.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1009	s listenFor:5.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1010	s2 := s accept.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1011	"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1012	! !
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1013
1462 5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1014	!Socket class methodsFor:'Compatibility-ST80'!
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1015
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1016	family:domainSymbol type:typeSymbol
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1017	"create a socket for domain and type - ST80 simply uses a different name.
1504 92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	1018	Domain must be one of the symbols: #inet, #unix, #appletalk or #ns;
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	1019	Type must be #stream, #datagram or #raw."
1462 5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1020
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1021	^ self domain:domainSymbol type:typeSymbol
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1022
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1023	"
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1024	Socket family:#AF_INET type:#stream
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1025	Socket family:#AF_INET type:#datagram
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1026	Socket family:#AF_UNIX type:#stream
1462 5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1027	"
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1028	!
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1029
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1030	getHostname
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1031	"return the computers hostname string"
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1032
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1033	^ OperatingSystem getHostName
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1034
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1035	"Created: / 27.2.1998 / 02:32:17 / cg"
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1036	!
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1037
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1038	sockStream
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1039	"return the type code for stream sockets"
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1040
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1041	^ #stream
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1042	! !
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1043
1600 f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1044	!Socket class methodsFor:'Compatibility-Squeak'!
f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1045
2900 0e8b305e9a98 class: Socket Claus Gittinger <cg@exept.de> parents: 2899 diff changeset	1046	deadlineSecs:seconds
0e8b305e9a98 class: Socket Claus Gittinger <cg@exept.de> parents: 2899 diff changeset	1047	^ Timestamp now addSeconds:seconds
0e8b305e9a98 class: Socket Claus Gittinger <cg@exept.de> parents: 2899 diff changeset	1048	!
0e8b305e9a98 class: Socket Claus Gittinger <cg@exept.de> parents: 2899 diff changeset	1049
1600 f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1050	initializeNetwork
f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1051	"/ intentionally left blank here
f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1052	!
f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1053
2292 c4b0b901278e added: #standardTimeout Claus Gittinger <cg@exept.de> parents: 1940 diff changeset	1054	standardTimeout
c4b0b901278e added: #standardTimeout Claus Gittinger <cg@exept.de> parents: 1940 diff changeset	1055	^ 30
c4b0b901278e added: #standardTimeout Claus Gittinger <cg@exept.de> parents: 1940 diff changeset	1056	!
c4b0b901278e added: #standardTimeout Claus Gittinger <cg@exept.de> parents: 1940 diff changeset	1057
1600 f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1058	wildcardPort
f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1059	^ nil
f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1060	! !
f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1061
1462 5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1062	!Socket class methodsFor:'Compatibility-VW'!
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1063
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1064	AF_INET
1462 5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1065	^ #AF_INET
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1066	!
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1067
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1068	SOCK_STREAM
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1069	^ #SOCK_STREAM
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1070	! !
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1071
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1072	!Socket class methodsFor:'Signal constants'!
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1073
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1074	brokenConnectionSignal
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1075	"return the signal used to tell broken connections.
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1076	Since in unix, this is the same as the broken pipe signal,
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1077	return that one.
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1078	(for other Operatingsystems, this may change ..)"
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1079
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1080	^ PipeStream brokenPipeSignal
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1081	!
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1082
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1083	invalidArgumentsSignal
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1084	"dummy for compatibility"
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1085
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1086	^ self errorSignal
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1087	! !
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1088
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1089	!Socket class methodsFor:'debugging'!
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1090
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1091	debug:aBoolean
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1092	"turn on/off internal debugprints.
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1093	This method is for ST/X debugging only and
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1094	may be removed in later versions"
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1095
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1096	%{ /* NOCONTEXT */
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1097
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1098	__debugging__ = (aBoolean == true);
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1099	%}
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1100	"
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1101	Socket debug:true
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1102	Socket debug:false
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1103	"
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1104	! !
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1105
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1106	!Socket class methodsFor:'defaults'!
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1107
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1108	defaultIpDomainForConnect
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1109	"answer the domain used to look up host names for connect:
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1110	#AF_INET use only IPv4
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1111	#AF_INET6 use only IPv6
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1112	nil use both IPv4 and IPv6"
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1113
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1114	^ #AF_INET
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1115	! !
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1116
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1117	!Socket class methodsFor:'obsolete'!
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1118
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1119	connectTo:service on:host
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1120	<resource: #obsolete>
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1121	"standard & easy client setup:
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1122	create new client tcp socket, bind and connect;
6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1123	return the socket.
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1124	The thread blocks (interruptable), until the connection is established."
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1125
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1126	^ self newTCPclientToHost:host port:(self portOfService:service).
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1127
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1128	"
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1129	Socket connectTo:9995 on:'clam'
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1130	Socket connectTo:4711 on:'exept'
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1131	Socket connectTo:'finger' on:'clam'
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1132	Socket connectTo:'ftp' on:'exept'
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1133	Socket connectTo:'nntp' on:(OperatingSystem getEnvironment:'NNTPSERVER')
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1134	"
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1135	!
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1136
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1137	networkLongOrderIsMSB
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1138	"return the well known fact, that network byte order is most significant byte first"
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1139
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1140	<resource: #obsolete>
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1141
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1142	^ true
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1143	!
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1144
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1145	networkShortOrderIsMSB
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1146	"return the well known fact, that network byte order is most significant byte first"
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1147
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1148	<resource: #obsolete>
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1149
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1150	^ true
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1151	!
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1152
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1153	provide:aService
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1154	"standard & easy server setup:
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1155	create a new TCP server socket providing a service."
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1156
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1157	<resource:#obsolete>
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1158
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1159	\|newSock\|
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1160
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1161	self obsoleteMethodWarning:'use #newTCPserverAtPort: / #listen'.
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1162
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1163	newSock := self newTCPserverAtPort:(self portOfService:aService).
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1164	newSock notNil ifTrue:[
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1165	newSock listenFor:5.
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1166	].
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1167	^ newSock
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1168
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1169	"
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1170	Socket provide:9995
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1171	(Socket provide:9996) accept
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1172	Socket provide:'nntp'
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1173	"
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1174	! !
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1175
cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1176	!Socket class methodsFor:'obsolete host queries'!
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1177
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1178	appletalkAddressOfHost:aHostName
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1179	<resource: #obsolete>
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1180	"return the APPLETALK address for a hostname as a byteArray,
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1181	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	1182	followed by the node byte.
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1183	If the host is unknown, return nil.
812 c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1184	This is the reverse operation to #hostWithAppletalkAddress:.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1185	WARNING: untested code - I have no appletalk to test this."
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1186
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1187	NameLookupError
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1188	handle:[:ex \|
1343 cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1189	^ nil
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1190	]
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1191	do:[
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1192	^ (AppletalkSocketAddress hostName:aHostName) address
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1193	]
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1194	!
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1195
1278 7251c65b8d38 use nameLookup from SocketAddress for all addr-families Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	1196	hostWithAppletalkAddress:addrByteArray
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1197	<resource: #obsolete>
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1198	"return the hostname for an APPLETALK address.
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1199	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	1200	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	1201	The last byte is the node number.
5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1202	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	1203	This is is the reverse operation to #appletalkAddressOfHost:.
c8101ea70e6c * empty log message * Claus Gittinger <cg@exept.de> parents: 811 diff changeset	1204	WARNING: untested code - I have no appletalk to test this."
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1205
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1206	NameLookupError
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1207	handle:[:ex \|
1343 cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1208	^ nil
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1209	]
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1210	do:[
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1211	^ (AppletalkSocketAddress hostAddress:addrByteArray) hostName
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1212	]
1278 7251c65b8d38 use nameLookup from SocketAddress for all addr-families Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	1213
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1214	"
1278 7251c65b8d38 use nameLookup from SocketAddress for all addr-families Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	1215	Socket appletalkAddressOfHost:'yourAppleHere'
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1216	Socket hostWithAppletalkAddress:#[1 2 3]
525 5891518d17a3 appletalk support - untested Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1217	"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1218	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1219
1278 7251c65b8d38 use nameLookup from SocketAddress for all addr-families Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	1220	hostWithIpAddress:addrByteArray
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1221	<resource: #obsolete>
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1222	"return the hostname for an IP (internet-) address.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1223	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	1224	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	1225	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	1226	This is the reverse operation to #ipAddressOfHost:."
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1227
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1228	NameLookupError
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1229	handle:[:ex \|
1343 cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1230	^ nil
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1231	]
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1232	do:[
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1233	^ (IPSocketAddress hostAddress:addrByteArray) hostName
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1234	]
126 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	"
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1237	Socket ipAddressOfHost:'clam'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1238	Socket hostWithIpAddress:(Socket ipAddressOfHost:'clam')
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1239	Socket ipAddressOfHost:'porty'
1278 7251c65b8d38 use nameLookup from SocketAddress for all addr-families Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	1240	Socket hostWithIpAddress:(Socket ipAddressOfHost:'porty')
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1241	Socket hostWithIpAddress:#[1 2 3 4]
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1242	Socket hostWithIpAddress:#[127 0 0 1]
1278 7251c65b8d38 use nameLookup from SocketAddress for all addr-families Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	1243	Socket hostWithIpAddress:(Socket ipAddressOfHost:'1.2.3.4')
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1244	Socket hostWithIpAddress:(Socket ipAddressOfHost:'www.altavista.com')
126 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	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1247
1278 7251c65b8d38 use nameLookup from SocketAddress for all addr-families Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	1248	hostWithIpV6Address:addrByteArray
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1249	<resource: #obsolete>
820 b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1250	"return the hostname for an IPv6 (internet-) address.
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1251	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	1252	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	1253	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	1254	This is the reverse operation to #ipV6AddressOfHost:."
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1255
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1256	NameLookupError
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1257	handle:[:ex \|
1343 cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1258	^ nil
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1259	]
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1260	do:[
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1261	^ (IPv6SocketAddress hostAddress:addrByteArray) hostName
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1262	]
820 b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1263
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1264	"
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1265	Socket ipV6AddressOfHost:'clam'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1266	Socket hostWithIpV6Address:(Socket ipAddressOfHost:'clam')
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1267	Socket ipV6AddressOfHost:'porty'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1268	Socket hostWithIpV6Address:(Socket ipAddressOfHost:'porty')
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1269	Socket hostWithIpV6Address:#[1 2 3 4 5 6 7 8 9 10 11 12 13 14]
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1270	Socket ipV6AddressOfHost:'www.exept.de'
820 b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1271	"
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1272	!
b6860c3660c8 Fix address sizes when calling gethostbyaddr Stefan Vogel <sv@exept.de> parents: 819 diff changeset	1273
6 96ce41566060 2.8.1 claus parents: 4 diff changeset	1274	ipAddressOfHost:aHostName
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1275	<resource: #obsolete>
98 5e787ba2cb31 use common byteOrder when representing IP numbers as byteArrays (always network-first) Claus Gittinger <cg@exept.de> parents: 96 diff changeset	1276	"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	1277	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	1278	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	1279	This is the reverse operation to #hostWithIpAddress:."
6 96ce41566060 2.8.1 claus parents: 4 diff changeset	1280
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1281	NameLookupError
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1282	handle:[:ex \|
1343 cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1283	^ nil
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1284	]
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1285	do:[
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1286	^ (IPSocketAddress hostName:aHostName) address
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1287	]
21 33eb5ffad09d * empty log message * claus parents: 8 diff changeset	1288
71 632e2cc151c9 . claus parents: 63 diff changeset	1289	"
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1290	Socket ipAddressOfHost:'localhost'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1291	Socket ipAddressOfHost:'exept'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1292	Socket ipAddressOfHost:'1.2.3.4'
1274 f257a1b16b4d use naemLookup from SocketAddress for ipv6 Claus Gittinger <cg@exept.de> parents: 1263 diff changeset	1293	Socket ipAddressOfHost:'193.15.16.17'
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1294	Socket ipAddressOfHost:'josef'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1295	Socket ipAddressOfHost:'styx.com'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1296	Socket hostWithIpAddress:(Socket ipAddressOfHost:'localhost')
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1297	Socket ipAddressOfHost:(Socket hostWithIpAddress:'127.0.0.1')
71 632e2cc151c9 . claus parents: 63 diff changeset	1298	"
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1299	!
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1300
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1301	ipV6AddressOfHost:aHostName
1911 cb6a52d6944a Mark obsolete methods. Stefan Vogel <sv@exept.de> parents: 1887 diff changeset	1302	<resource: #obsolete>
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1303	"return the IPv6 (internet-) number for a hostname as a byteArray,
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1304	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	1305	If the host is unknown, return nil.
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1306	This is the reverse operation to #hostWithIpV6Address:."
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1307
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1308	NameLookupError
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1309	handle:[:ex \|
1343 cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1310	^ nil
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1311	]
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1312	do:[
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1313	^ (IPv6SocketAddress hostName:aHostName) address
cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	1314	]
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1315
4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1316	"
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1317	Socket ipV6AddressOfHost:'localhost'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1318	Socket ipV6AddressOfHost:'exept'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1319	Socket ipV6AddressOfHost:'exept.exept.de'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1320	Socket ipV6AddressOfHost:'www.google.de'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1321	Socket ipV6AddressOfHost:'1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1322	Socket ipV6AddressOfHost:'josef'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1323	Socket ipV6AddressOfHost:'styx.com'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1324	Socket hostWithIpV6Address:(Socket ipV6AddressOfHost:'localhost')
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1325	Socket ipV6AddressOfHost:(Socket hostV6WithIpAddress:'127.0.0.1')
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1326	"
531 ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1327	! !
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1328
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1329	!Socket class methodsFor:'queries'!
ca4c73813531 category changes Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1330
1260 9a8fb2391174 instance creation of peer refactored Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	1331	peerFromDomain:domain name:peerName port:port
9a8fb2391174 instance creation of peer refactored Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	1332	\|addrClass\|
9a8fb2391174 instance creation of peer refactored Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	1333
9a8fb2391174 instance creation of peer refactored Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	1334	addrClass := self socketAddressClassForDomain:domain.
1263 23161346a162 no longer callBack into sockets getHostName/getAddress code. Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	1335	^ addrClass hostName:peerName serviceName:port type:nil
1187 7e5f2f6b177d getHostByAddr - call is now done lazy, when the socket is asked for the peer Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1336	!
7e5f2f6b177d getHostByAddr - call is now done lazy, when the socket is asked for the peer Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1337
7e5f2f6b177d getHostByAddr - call is now done lazy, when the socket is asked for the peer Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1338	peerNameFromDomain:domain peer:peer
1260 9a8fb2391174 instance creation of peer refactored Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	1339	\|addrClass\|
9a8fb2391174 instance creation of peer refactored Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	1340
9a8fb2391174 instance creation of peer refactored Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	1341	addrClass := self socketAddressClassForDomain:domain.
9a8fb2391174 instance creation of peer refactored Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	1342	^ addrClass peerNameFromPeer:peer
1187 7e5f2f6b177d getHostByAddr - call is now done lazy, when the socket is asked for the peer Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1343	!
7e5f2f6b177d getHostByAddr - call is now done lazy, when the socket is asked for the peer Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1344
0 1cf8d1747859 Initial revision claus parents: diff changeset	1345	portOfService:aNameOrNumber
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1346	"returns the port-number for a given IP-service
0 1cf8d1747859 Initial revision claus parents: diff changeset	1347	or nil if no such service exists;
1cf8d1747859 Initial revision claus parents: diff changeset	1348	- used to convert service names to portNumbers"
1cf8d1747859 Initial revision claus parents: diff changeset	1349
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1350	^ self portOfService:aNameOrNumber protocol:nil
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1351
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1352	"
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1353	Socket portOfService:'finger'
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1354	Socket portOfService:'nntp'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1355	Socket portOfService:'echo'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1356	Socket portOfService:'snmp'
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1357	"
0 1cf8d1747859 Initial revision claus parents: diff changeset	1358	!
1cf8d1747859 Initial revision claus parents: diff changeset	1359
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1360	portOfService:aNameOrNumber protocol:aProtocol
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1361	"returns the port-number for a given IP-service
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1362	or nil if no such service exists;
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1363	- used to convert service names to portNumbers"
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1364
2909 aacef77a1697 64bit fixes Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	1365	%{ /* UNLIMITEDSTACK(noWIN32) */
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1366	#ifndef NO_SOCKET
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1367	struct servent *servent = NULL;
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1368	char *protocol;
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1369	int tryBoth = 0;
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	1370	short portNo;
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1371
604 b302a21afece Remove redundant code. Stefan Vogel <sv@exept.de> parents: 589 diff changeset	1372	if (__isSmallInteger(aNameOrNumber)) {
2340 2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1373	RETURN ( aNameOrNumber );
92 13061190c6e7 . Claus Gittinger <cg@exept.de> parents: 91 diff changeset	1374	}
13061190c6e7 . Claus Gittinger <cg@exept.de> parents: 91 diff changeset	1375
2331 b5280e1b3b9f changed: Stefan Vogel <sv@exept.de> parents: 2327 diff changeset	1376	if (__isStringLike(aProtocol)) {
2340 2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1377	protocol = (char *)__stringVal(aProtocol);
604 b302a21afece Remove redundant code. Stefan Vogel <sv@exept.de> parents: 589 diff changeset	1378	} else {
2340 2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1379	protocol = "tcp";
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1380	tryBoth = 1;
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1381	}
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	1382
2331 b5280e1b3b9f changed: Stefan Vogel <sv@exept.de> parents: 2327 diff changeset	1383	if (__isStringLike(aNameOrNumber)) {
2340 2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1384	servent = getservbyname((char *) __stringVal(aNameOrNumber), protocol);
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1385	if (servent != NULL) {
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1386	RETURN ( __MKSMALLINT(ntohs(servent->s_port)) );
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1387	}
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1388	if (tryBoth) {
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1389	servent = getservbyname((char *) __stringVal(aNameOrNumber), "udp");
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1390	if (servent != NULL) {
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1391	RETURN ( __MKSMALLINT(ntohs(servent->s_port)) );
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1392	}
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1393	}
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1394	RETURN ( nil );
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1395	}
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1396	#endif
91 01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1397	RETURN ( nil );
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1398	%}
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1399	"
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1400	Socket portOfService:'echo' protocol:'udp'
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1401	Socket portOfService:'echo' protocol:'tcp'
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1402	"
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1403	!
01e72b1e93de . Claus Gittinger <cg@exept.de> parents: 85 diff changeset	1404
0 1cf8d1747859 Initial revision claus parents: diff changeset	1405	protocolOfService:aNameOrNumber
819 4cc15700d123 * empty log message * Claus Gittinger <cg@exept.de> parents: 817 diff changeset	1406	"returns the protocol (as string) for a given IP-service
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1407	or nil if no such service exists."
1504 92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	1408
92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	1409	%{ /* UNLIMITEDSTACK(noWIN32) */
418 317e55c6c281 * empty log message * Claus Gittinger <cg@exept.de> parents: 403 diff changeset	1410	#ifndef NO_SOCKET
0 1cf8d1747859 Initial revision claus parents: diff changeset	1411	struct servent *servent = NULL;
524 8287da54eccf more empty code for other domains; Claus Gittinger <cg@exept.de> parents: 513 diff changeset	1412	short portNo;
0 1cf8d1747859 Initial revision claus parents: diff changeset	1413
58 bd6753bf0401 * empty log message * claus parents: 51 diff changeset	1414	if (__isSmallInteger(aNameOrNumber)) {
2340 2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1415	portNo = __intVal(aNameOrNumber);
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1416	servent = getservbyport(htons(portNo), "tcp") ;
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1417	if (servent == NULL) {
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1418	servent = getservbyport(htons(portNo), "udp") ;
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1419	if (servent == NULL) {
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1420	RETURN ( nil );
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1421	}
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1422	}
0 1cf8d1747859 Initial revision claus parents: diff changeset	1423	} else {
2340 2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1424	if (__isStringLike(aNameOrNumber)) {
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1425	servent = getservbyname((char *) __stringVal(aNameOrNumber), "tcp");
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1426	if (servent == NULL) {
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1427	servent = getservbyname((char *) __stringVal(aNameOrNumber), "udp");
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1428	if (servent == NULL) {
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1429	RETURN ( nil );
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1430	}
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1431	}
2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1432	}
0 1cf8d1747859 Initial revision claus parents: diff changeset	1433	}
1cf8d1747859 Initial revision claus parents: diff changeset	1434	if (servent) {
2340 2dc6e31f0142 handleType Claus Gittinger <cg@exept.de> parents: 2331 diff changeset	1435	RETURN ( __MKSTRING(servent->s_proto) );
0 1cf8d1747859 Initial revision claus parents: diff changeset	1436	}
1504 92005eec5c9d fixed moving-object-when-interrupted-with-scavenge bugs; Claus Gittinger <cg@exept.de> parents: 1503 diff changeset	1437	#endif /* !NO_SOCKET */
0 1cf8d1747859 Initial revision claus parents: diff changeset	1438	RETURN ( nil );
1cf8d1747859 Initial revision claus parents: diff changeset	1439	%}
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1440	"
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1441	Socket protocolOfService:'finger'
d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1442	Socket protocolOfService:'nntp'
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1443	Socket protocolOfService:'xxx'
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1444	Socket protocolOfService:79
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1445	Socket protocolOfService:'snmp'
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1446	"
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1447	!
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1448
1187 7e5f2f6b177d getHostByAddr - call is now done lazy, when the socket is asked for the peer Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1449	socketAddressClassForDomain:domain
1230 2cfb8c270cb5 more functionality moved to SocketAccessor Claus Gittinger <cg@exept.de> parents: 1224 diff changeset	1450	^ SocketAddress knownClassFromCode:domain
2cfb8c270cb5 more functionality moved to SocketAccessor Claus Gittinger <cg@exept.de> parents: 1224 diff changeset	1451
2cfb8c270cb5 more functionality moved to SocketAccessor Claus Gittinger <cg@exept.de> parents: 1224 diff changeset	1452	"
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1453	self socketAddressClassForDomain:#AF_INET
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1454	self socketAddressClassForDomain:#AF_UNIX
1230 2cfb8c270cb5 more functionality moved to SocketAccessor Claus Gittinger <cg@exept.de> parents: 1224 diff changeset	1455	"
1187 7e5f2f6b177d getHostByAddr - call is now done lazy, when the socket is asked for the peer Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1456	!
7e5f2f6b177d getHostByAddr - call is now done lazy, when the socket is asked for the peer Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	1457
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1458	supportedProtocolFamilies
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1459	"return a collection of supported protocol families.
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1460	This list specifies what the Socket class supports -
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1461	socket creation may still fail, if your system was built
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1462	without it."
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1463
1280 b973855bfe74 moved all socket constant queries from SocketHandle Claus Gittinger <cg@exept.de> parents: 1278 diff changeset	1464	^ OperatingSystem supportedProtocolFamilies
532 f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1465
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1466	"
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1467	Socket supportedProtocolFamilies
f997c3873602 * empty log message * Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1468	"
559 61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1469	!
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1470
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1471	typeOfProtocol:aProtocol
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1472	"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	1473	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	1474
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1475	(aProtocol = 'tcp') ifTrue:[^ #stream].
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1476	(aProtocol = 'udp') ifTrue:[^ #datagram].
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1477	(aProtocol = 'ip') ifTrue:[^ #raw].
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1478	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1479	unix domain
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1480	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1481	(aProtocol = 'ud') ifTrue:[^ #stream].
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1482	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1483	add x25 stuff (if any) here ...
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1484	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1485	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1486	add appletalk stuff (if any) here ...
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1487	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1488	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1489	add other stuff (if any) here ...
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1490	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1491	^ nil
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1492
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1493	"
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1494	Socket typeOfProtocol:'tcp'
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1495	Socket typeOfProtocol:'ucp'
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1496	Socket typeOfProtocol:(Socket protocolOfService:'nntp')
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1497	Socket typeOfProtocol:(Socket protocolOfService:'echo')
61012867ebed cleanup if #connect is interrupted Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1498	"
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1499	! !
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1500
1202 c52279df60d8 method category rename Claus Gittinger <cg@exept.de> parents: 1187 diff changeset	1501	!Socket methodsFor:'Compatibility-Dolphin'!
1110 0876a3d30fd2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	1502
0876a3d30fd2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	1503	setReceiveTimeout: milliseconds
0876a3d30fd2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	1504	self receiveTimeout:(milliseconds / 1000)
0876a3d30fd2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	1505	!
0876a3d30fd2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	1506
0876a3d30fd2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	1507	setSendTimeout: milliseconds
0876a3d30fd2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	1508	self sendTimeout:(milliseconds / 1000)
0876a3d30fd2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	1509	! !
0876a3d30fd2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	1510
1202 c52279df60d8 method category rename Claus Gittinger <cg@exept.de> parents: 1187 diff changeset	1511	!Socket methodsFor:'Compatibility-ST80'!
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1512
887 2b2dc6b59b5a more VW compatibility Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1513	acceptNonBlock
2b2dc6b59b5a more VW compatibility Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1514	^ self accept
2b2dc6b59b5a more VW compatibility Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1515	!
2b2dc6b59b5a more VW compatibility Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1516
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1517	errorReporter
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	1518	"ST-80 mimicry."
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	1519
1535 f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1520	^ self class
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1521	!
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	1522
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1523	ioConnection
887 2b2dc6b59b5a more VW compatibility Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1524	^ self
2b2dc6b59b5a more VW compatibility Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1525	!
2b2dc6b59b5a more VW compatibility Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1526
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1527	notReadySignal
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	1528	"ST-80 mimicry.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	1529	for now - this is not yet raised"
71 632e2cc151c9 . claus parents: 63 diff changeset	1530
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	1531	^ Signal new
486 ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1532	!
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1533
576 13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1534	readAppendStream
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	1535	"ST-80 mimicry.
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	1536	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	1537	ST-80 code therefore uses 'Socket readWriteStream' to access
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1538	the actual stream.
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	1539	In ST/X, sockets inherit from stream, so
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	1540	this method returns the receiver, for transparency"
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	1541
576 13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1542	^ self
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1543	!
13acab81fad0 more ST80 compatibility ca parents: 572 diff changeset	1544
486 ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1545	readStream
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1546	"ST-80 mimicry.
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1547	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	1548	ST-80 code therefore uses 'Socket readStream' to access
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1549	the actual stream.
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	1550	In ST/X, sockets inherit from stream, so
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	1551	this method returns the receiver, for transparency"
486 ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1552
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1553	^ self
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1554
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1555	"Created: 24.1.1997 / 23:52:57 / cg"
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1556	!
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1557
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1558	writeStream
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1559	"ST-80 mimicry.
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1560	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	1561	ST-80 code therefore uses 'Socket writeStream' to access
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	1562	the actual stream.
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	1563	In ST/X, sockets inherit from stream, so
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	1564	this method returns the receiver, for transparency"
486 ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1565
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1566	^ self
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1567
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1568	"Created: 24.1.1997 / 10:34:35 / cg"
ed4e215e83ef ST-80 mimicry Claus Gittinger <cg@exept.de> parents: 470 diff changeset	1569	"Modified: 24.1.1997 / 23:52:52 / cg"
71 632e2cc151c9 . claus parents: 63 diff changeset	1570	! !
632e2cc151c9 . claus parents: 63 diff changeset	1571
1202 c52279df60d8 method category rename Claus Gittinger <cg@exept.de> parents: 1187 diff changeset	1572	!Socket methodsFor:'Compatibility-Squeak'!
771 74abb04ef57c checkin from browser Claus Gittinger <cg@exept.de> parents: 752 diff changeset	1573
1462 5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1574	address
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1575	^ self getSocketAddress
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1576	!
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1577
2308 d8b410a4f38b added: #connectToHostNamed:port: Claus Gittinger <cg@exept.de> parents: 2292 diff changeset	1578	connectToHostNamed:hostName port:portNr
d8b410a4f38b added: #connectToHostNamed:port: Claus Gittinger <cg@exept.de> parents: 2292 diff changeset	1579	self connectTo:hostName port:portNr
d8b410a4f38b added: #connectToHostNamed:port: Claus Gittinger <cg@exept.de> parents: 2292 diff changeset	1580	!
d8b410a4f38b added: #connectToHostNamed:port: Claus Gittinger <cg@exept.de> parents: 2292 diff changeset	1581
1462 5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1582	dataAvailable
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1583	^ self canReadWithoutBlocking
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1584	!
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1585
1886 e0d23764c809 * empty log message * Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1586	destroy
e0d23764c809 * empty log message * Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1587	self close
e0d23764c809 * empty log message * Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1588
e0d23764c809 * empty log message * Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1589	"Created: / 04-06-2007 / 21:29:03 / cg"
e0d23764c809 * empty log message * Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1590	!
e0d23764c809 * empty log message * Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1591
1462 5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1592	listenOn:aPortNr
1882 6f818f33c85a * empty log message * Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1593	self listenOn:aPortNr backlogSize:5
6f818f33c85a * empty log message * Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1594
6f818f33c85a * empty log message * Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1595	"Modified: / 31-05-2007 / 17:59:53 / cg"
6f818f33c85a * empty log message * Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1596	!
6f818f33c85a * empty log message * Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1597
6f818f33c85a * empty log message * Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1598	listenOn:aPortNr backlogSize:aNumber
1462 5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1599	self bindTo:aPortNr address:nil.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1600	self listenFor:aNumber
1882 6f818f33c85a * empty log message * Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1601
6f818f33c85a * empty log message * Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1602	"Created: / 31-05-2007 / 17:59:47 / cg"
1462 5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1603	!
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1604
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	1605	peerName
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	1606	"return my peer (i.e. ipAddr + port);
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	1607	May return nil if not yet setup completely."
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	1608
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	1609	^ self getPeer
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	1610	!
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	1611
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	1612	primSocketLocalPort:aSocket
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1613	^ self port
1600 f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1614	!
f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1615
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	1616	sendData: aStringOrByteArray
3155 d1884a37375c Initialize in instance initialize method insted in #new Stefan Vogel <sv@exept.de> parents: 3152 diff changeset	1617	"Send all of the data in the given array, even if it requires multiple calls to send it all.
d1884a37375c Initialize in instance initialize method insted in #new Stefan Vogel <sv@exept.de> parents: 3152 diff changeset	1618	Return the number of bytes sent."
d1884a37375c Initialize in instance initialize method insted in #new Stefan Vogel <sv@exept.de> parents: 3152 diff changeset	1619
d1884a37375c Initialize in instance initialize method insted in #new Stefan Vogel <sv@exept.de> parents: 3152 diff changeset	1620	^ self nextPutBytes:aStringOrByteArray size from:aStringOrByteArray startingAt:1.
1600 f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1621	!
f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1622
1462 5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	1623	setOption: optionName value: optionValue
2899 a1f9a142d49b class: Socket Claus Gittinger <cg@exept.de> parents: 2891 diff changeset	1624	^ self setSocketOption:(optionName asSymbol) argument:optionValue argument:nil
1887 f26d9b04244d changed #setOption:value: Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1625
f26d9b04244d changed #setOption:value: Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	1626	"Modified: / 04-06-2007 / 21:23:19 / cg"
1600 f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1627	!
f3acd5382fa1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1584 diff changeset	1628
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	1629	socketHandle
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	1630	^ self
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	1631	!
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	1632
2904 d2e1eead2bfb class: Socket Claus Gittinger <cg@exept.de> parents: 2900 diff changeset	1633	waitForConnectionUntil:aTimestamp
d2e1eead2bfb class: Socket Claus Gittinger <cg@exept.de> parents: 2900 diff changeset	1634	"return true if connected"
d2e1eead2bfb class: Socket Claus Gittinger <cg@exept.de> parents: 2900 diff changeset	1635
d2e1eead2bfb class: Socket Claus Gittinger <cg@exept.de> parents: 2900 diff changeset	1636	self readWaitWithTimeoutMs: (aTimestamp millisecondDeltaFrom:Timestamp now).
d2e1eead2bfb class: Socket Claus Gittinger <cg@exept.de> parents: 2900 diff changeset	1637	^ self isConnected
1886 e0d23764c809 * empty log message * Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1638	!
e0d23764c809 * empty log message * Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1639
e0d23764c809 * empty log message * Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1640	waitForData
e0d23764c809 * empty log message * Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1641	self readWait
e0d23764c809 * empty log message * Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1642
e0d23764c809 * empty log message * Claus Gittinger <cg@exept.de> parents: 1885 diff changeset	1643	"Created: / 04-06-2007 / 21:28:40 / cg"
771 74abb04ef57c checkin from browser Claus Gittinger <cg@exept.de> parents: 752 diff changeset	1644	! !
74abb04ef57c checkin from browser Claus Gittinger <cg@exept.de> parents: 752 diff changeset	1645
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1646	!Socket methodsFor:'accepting connections'!
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1647
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1648	accept
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1649	"create a new TCP socket from accepting on the receiver.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1650	This method will suspend the current process if no connection is waiting.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1651	For ST-80 compatibility"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1652
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1653	\|newSock\|
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1654
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1655	self readWait.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1656	newSock := self class new.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1657	(newSock primAcceptOn:self blocking:false) ifFalse:[
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1658	"should raise an error here"
6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1659	^ nil
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1660	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1661	^ newSock
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1662
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1663	"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1664	\|sock newSock\|
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1665
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1666	sock := Socket provide:8004.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1667	sock listenFor:5.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1668	newSock := sock accept.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1669	"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1670	!
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1671
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1672	blockingAccept
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1673	"create a new TCP socket from accepting on the receiver.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1674	This method will suspend the smalltalk image with all smalltalk processes if no connection is waiting.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1675	For ST-80 compatibility"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1676
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1677	\|newSock\|
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1678
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1679	newSock := self class new.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1680	(newSock primAcceptOn:self blocking:true) ifFalse:[
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1681	"should raise an error here"
6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1682	^ nil
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1683	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1684	^ newSock
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1685	! !
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1686
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1687	!Socket methodsFor:'binding'!
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1688
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1689	bindAnonymously
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1690	"bind to any address. A free port will be allocated.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1691	Our own socket address will be determined after conection set up.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1692	This is the default after the socket has been created"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1693
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1694	^ self bindTo:nil reuseAddress:false
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1695
6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1696	"
1938 831af28cc848 comments Stefan Vogel <sv@exept.de> parents: 1935 diff changeset	1697	self newTCP bindAnonymously; listenFor:1; yourself
831af28cc848 comments Stefan Vogel <sv@exept.de> parents: 1935 diff changeset	1698	"
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1699	!
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1700
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1701	bindAnonymouslyToAddress:aSocketAddress
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1702	"bind to address addressString.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1703	A free port will be allocated"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1704
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1705	^ self
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1706	bindTo:0
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1707	address:aSocketAddress
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1708	reuseAddress:false
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1709
6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1710	"
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1711	self newTCP bindAnonymouslyToAddress:IPSocketAddress localHost; listenFor:1; yourself
1938 831af28cc848 comments Stefan Vogel <sv@exept.de> parents: 1935 diff changeset	1712	"
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1713	!
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1714
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1715	bindTo:aSocketAddress
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1716	"ST80 compatible bind, expecting a socketAddress argument.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1717	The socketAddress object (an instance of SocketAddress)
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1718	is supposed to respond to #portOrName and #address requests."
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1719
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1720	^ self bindTo:aSocketAddress reuseAddress:true
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1721	!
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1722
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1723	bindTo:portNrOrNameString address:addressString
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1724	"Old interface: bind the socket to an address
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1725	- returns true if ok, false otherwise.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1726
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1727	The interpretation of hostOrPathNameOrSocketAddrOrNil portNrOrName depends on the domain:
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1728	Best use a SocketAddress
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1729	For backward compatibility:
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1730	AF_INET domain can also use (4byte) byteArray like internet numbers,
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1731	AF_UNIX domain cab use pathname strings."
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1732
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1733	^ self
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1734	bindTo:portNrOrNameString
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1735	address:addressString
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1736	reuseAddress:true
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1737	!
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1738
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1739	bindTo:portNrOrNameOrNil address:hostOrPathNameOrSocketAddrOrNil reuseAddress:reuse
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1740	"Old interface: bind the socket to an address
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1741	- returns true if ok, false otherwise.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1742
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1743	The interpretation of hostOrPathNameOrSocketAddrOrNil portNrOrName depends on the domain:
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1744	Best use a SocketAddress
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1745	For backward compatibility:
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1746	AF_INET domain can also use (4byte) byteArray like internet numbers,
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1747	AF_UNIX domain can use pathname strings.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1748
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1749	The reuse boolean argument controls if the SO_REUSEADDR socket option
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1750	is to be set (to avoid the 'bind: address in use' error).
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1751	"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1752
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1753	\|socketAddress\|
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1754
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1755	handle isNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1756	^ self errorNotOpen
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1757	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1758
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1759	hostOrPathNameOrSocketAddrOrNil isNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1760	socketAddress := self socketAddressClass anyHost.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1761	] ifFalse:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1762	(hostOrPathNameOrSocketAddrOrNil isSocketAddress) ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1763	socketAddress := hostOrPathNameOrSocketAddrOrNil.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1764	] ifFalse:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1765	"backward compatibility: support for byteArray and string arg"
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1766	hostOrPathNameOrSocketAddrOrNil isString ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1767	socketAddress := self socketAddressClass hostName:hostOrPathNameOrSocketAddrOrNil.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1768	] ifFalse:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1769	hostOrPathNameOrSocketAddrOrNil isByteCollection ifFalse:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1770	^ self error:'bindTo: bad host (socketAddress) argument'
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1771	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1772	socketAddress := self socketAddressClass hostAddress:hostOrPathNameOrSocketAddrOrNil.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1773	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1774	].
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1775	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1776	portNrOrNameOrNil notNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1777	socketAddress port:portNrOrNameOrNil.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1778	].
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1779
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1780	^ self bindTo:socketAddress reuseAddress:reuse.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1781
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1782	"
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1783	(Socket domain:#'AF_INET' type:#stream)
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1784	bindTo:2144 address:nil; yourself
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1785	"
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1786	!
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1787
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1788	bindTo:aSocketAddress reuseAddress:reuse
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1789	"Bind the socket to aSocketAddress - returns true if ok, false otherwise.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1790
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1791	The reuse boolean argument controls if the SO_REUSEADDR socket option
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1792	is to be set (to avoid the 'bind: address in use' error).
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1793
3137 df3e9cebf52c class: Socket Stefan Vogel <sv@exept.de> parents: 3127 diff changeset	1794	You can bind to nil to bind to anyHost and assign a random port."
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1795
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1796	\|ok error socketAddress\|
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1797
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1798	handle isNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1799	^ self errorNotOpen
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1800	].
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1801	socketAddress := aSocketAddress.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1802	socketAddress isNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1803	"ok, get a all zero socket address, so it is for anyHost
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1804	and the port will be assigned"
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1805	socketAddress := self socketAddressClass new.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1806	].
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1807	ok := false.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1808
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1809	%{ /* STACK: 100000 */
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1810	#ifndef NO_SOCKET
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1811	OBJ fp = __INST(handle);
6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1812	SOCKET sock;
6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1813	union sockaddr_u sa;
6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1814	int sockaddr_size;
2909 aacef77a1697 64bit fixes Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	1815	INT ret;
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1816	int sockAddrOffs;
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1817
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1818	if (fp == nil) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1819	goto getOutOfHere;
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1820	}
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1821
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1822	if (! __isBytes(socketAddress)) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1823	error = __mkSmallInteger(-1);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1824	goto getOutOfHere;
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1825	}
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1826	/* get the socket-address */
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1827	if (__isNonNilObject(socketAddress)){
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1828	int nIndex;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1829	OBJ cls = __qClass(socketAddress);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1830
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1831	sockAddrOffs = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1832	nIndex = __qSize(socketAddress) - OHDR_SIZE;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1833	sockaddr_size = nIndex - sockAddrOffs;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1834	if (sockaddr_size > sizeof(sa)) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1835	error=__mkSmallInteger(-2);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1836	goto getOutOfHere;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1837	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1838	memcpy(&sa, __byteArrayVal(socketAddress) + sockAddrOffs, sockaddr_size);
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1839	}
6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1840
6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1841	sock = SOCKET_FROM_FILE_OBJECT(fp);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1842
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1843	# ifdef SO_REUSEADDR
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1844	if (reuse == true) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1845	int on = 1;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1846	if (setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, (char *) &on, sizeof (on)) < 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1847	DBGPRINTF(("SOCKET: setsockopt - SO_REUSEADDR failed\n"));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1848	}
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1849	}
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1850	# endif /* SO_REUSEADDR */
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1851
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1852	# ifdef BIND_BLOCKS
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1853	# ifdef DO_WRAP_CALLS
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1854	do {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1855	__threadErrno = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1856	ret = STX_WSA_NOINT_CALL3("bind", bind, sock, &sa, sockaddr_size);
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1857	} while ((ret < 0) && (__threadErrno == EINTR));
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	1858	if (ret < 0) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1859	errno = __threadErrno;
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	1860	}
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1861	# else
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1862	__BEGIN_INTERRUPTABLE__
6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1863	do {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1864	ret = bind(sock, (struct sockaddr *)&sa, sockaddr_size);
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1865	} while ((ret < 0) && (errno == EINTR));
6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1866	__END_INTERRUPTABLE__
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1867	# endif
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1868	# else
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	1869	errno = 0;
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1870	ret = bind(sock, (struct sockaddr *)&sa, sockaddr_size);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1871	# endif
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1872	if (ret < 0) {
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	1873	# ifdef WIN32
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1874	if (errno == 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1875	errno = WSAGetLastError();
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1876	}
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	1877	# endif
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1878	DBGPRINTF(("SOCKET: bind failed errno=%d\n", errno));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1879	error = __INST(lastErrorNumber) = __MKSMALLINT(errno);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1880	goto getOutOfHere;
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1881	} else {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1882	ok = true;
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1883	}
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1884	#endif /* NO_SOCKET */
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1885
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1886	getOutOfHere: ;
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1887	%}.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1888	ok ~~ true ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1889	\|errorHolder errorString\|
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1890
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1891	error isInteger ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1892	errorHolder := OperatingSystem errorHolderForNumber:error.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1893	errorString := errorHolder errorString.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1894	] ifFalse:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1895	errorString := error.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1896	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1897	OpenError newException
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1898	errorString:('cannot bind socket to address: %1 (%2)'
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1899	bindWith:socketAddress
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1900	with:errorString);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1901	errorCode:error;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1902	osErrorHolder:errorHolder;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1903	parameter:self;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1904	raiseRequest.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1905	"maybe someone catches the error and binds to some other port..."
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1906	^ true.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1907	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1908
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1909	port := socketAddress port.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1910	port == 0 ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1911	"this is a bind to a random port, now we can get the real port"
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1912	port := self getFullSocketAddress port.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1913	].
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1914	^ true
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1915
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1916	"
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1917	(Socket domain:#'AF_INET' type:#stream)
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1918	bindTo:(IPSocketAddress anyHost port:445) reuseAddress:false;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1919	yourself.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1920
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1921	(Socket domain:#'AF_INET' type:#stream)
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1922	bindTo:139 reuseAddress:false;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1923	yourself.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1924
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1925	(Socket domain:#'AF_INET6' type:#stream)
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1926	bindTo:nil reuseAddress:false;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1927	yourself.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1928
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1929	(Socket domain:#'AF_INET' type:#stream)
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1930	bindTo:(IPSocketAddress localHost port:2122) reuseAddress:false;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1931	yourself.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1932
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	1933	(Socket domain:#'AF_UNIX' type:#stream)
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1934	bindTo:nil reuseAddress:false;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1935	yourself.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1936	"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1937	!
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1938
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1939	listenFor:aNumber
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1940	"start listening; return true if ok, false on error
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1941	aNumber is the number of connect requests, that may be queued on the socket"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1942
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1943	handle isNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1944	^ self errorNotOpen
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1945	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1946	%{
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1947	#ifndef NO_SOCKET
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	1948	OBJ fp = __INST(handle);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1949	SOCKET sock;
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1950	int ret;
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1951
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1952	if (! __isSmallInteger(aNumber)) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1953	DBGPRINTF(("SOCKET: invalid arg\n"));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1954	RETURN (false);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1955	}
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1956
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1957	sock = SOCKET_FROM_FILE_OBJECT(fp);
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1958
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1959	#ifdef LISTEN_BLOCKS
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1960	# ifdef DO_WRAP_CALLS
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1961	do {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1962	__threadErrno = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1963	ret = STX_WSA_NOINT_CALL2("listen", listen, sock, __intVal(aNumber));
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1964	} while ((ret < 0) && (__threadErrno == EINTR));
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	1965	if (ret < 0) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1966	errno = __threadErrno;
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	1967	}
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1968	# else
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1969	__BEGIN_INTERRUPTABLE__
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1970	do {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1971	ret = listen(sock, __intVal(aNumber));
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1972	} while ((ret < 0) && (errno == EINTR));
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1973	__END_INTERRUPTABLE__
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1974	# endif
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1975	#else
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	1976	errno = 0;
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1977	ret = listen(sock, __intVal(aNumber));
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1978	#endif
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1979
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1980	if (ret < 0) {
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	1981	# ifdef WIN32
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1982	if (errno == 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1983	errno = WSAGetLastError();
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1984	}
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	1985	# endif
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1986	DBGPRINTF(("SOCKET: listen call failed errno=%d\n", errno));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1987	__INST(lastErrorNumber) = __MKSMALLINT(errno);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	1988	RETURN (false);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1989	}
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1990	#else
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1991	RETURN (false);
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1992	#endif
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1993	%}.
3157 44f5f9f79256 initialize methods Stefan Vogel <sv@exept.de> parents: 3155 diff changeset	1994	listening := aNumber.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1995	^ true
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1996	! !
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	1997
1576 a2ffb22c5f5e New: #shutDownInput #shutDownOutput Stefan Vogel <sv@exept.de> parents: 1568 diff changeset	1998	!Socket methodsFor:'closing'!
a2ffb22c5f5e New: #shutDownInput #shutDownOutput Stefan Vogel <sv@exept.de> parents: 1568 diff changeset	1999
3224 bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	2000	finalize
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	2001	self linger:0. "/ discard buffered data
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	2002	super finalize.
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	2003	!
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	2004
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2005	shutDown
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2006	"shutDown and close the socket"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2007
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2008	self shutdown:2.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2009	self close
1576 a2ffb22c5f5e New: #shutDownInput #shutDownOutput Stefan Vogel <sv@exept.de> parents: 1568 diff changeset	2010	!
a2ffb22c5f5e New: #shutDownInput #shutDownOutput Stefan Vogel <sv@exept.de> parents: 1568 diff changeset	2011
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2012	shutDownInput
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2013	"shutDown the input side of the socket.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2014	Any read on the socket will signal end-of-file from now on.
1839 c10cd58ec334 * empty log message * Claus Gittinger <cg@exept.de> parents: 1781 diff changeset	2015	The other side MAY be informed, that no more data will be accepted
1576 a2ffb22c5f5e New: #shutDownInput #shutDownOutput Stefan Vogel <sv@exept.de> parents: 1568 diff changeset	2016	(e.g. setting the TCP-Windowsize to 0)"
a2ffb22c5f5e New: #shutDownInput #shutDownOutput Stefan Vogel <sv@exept.de> parents: 1568 diff changeset	2017
a2ffb22c5f5e New: #shutDownInput #shutDownOutput Stefan Vogel <sv@exept.de> parents: 1568 diff changeset	2018	self shutdown:0.
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2019	!
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2020
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2021	shutDownOutput
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2022	"shutDown the output side of the socket.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2023	Any write to the socket will signal end-of-file from now on.
2825 e5b7d2005351 fixed for compilability Claus Gittinger <cg@exept.de> parents: 2824 diff changeset	2024	An orderly realease (TCP FIN) will be initiated after the last buffered data
2823 10179ccfae5d Default for close - linger in background instead 30s in foreground Stefan Vogel <sv@exept.de> parents: 2818 diff changeset	2025	has been sent, so the other side will get a end-of-file condition eventually."
1343 cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	2026
1884 ee0d640a25a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 1882 diff changeset	2027	self shutdown:1.
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2028	! !
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2029
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2030	!Socket methodsFor:'connecting'!
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2031
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2032	connectTo:aSocketAddress
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2033	^ self connectTo:aSocketAddress withTimeout:nil
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2034	!
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2035
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2036	connectTo:hostOrPathName port:portNrOrName
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2037	"Backward compatibility connect; connect to port, portNrOrNameOrNil on host, hostOrPathNameOrSocketAddr.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2038	For backward compatibility, hostOrPathNameOrSocketAddr may be also a string or a byteArray,
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2039	but it is recommended to pass SocketAddress instances.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2040
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2041	Return true if ok, false otherwise.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2042	The current process will block (but not the whole Smalltalk) until the connection is established.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2043	See also: #connectTo:port:withTimeout: for a somewhat nicer interface."
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2044
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2045	^ self connectTo:hostOrPathName port:portNrOrName withTimeout:nil
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2046	!
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2047
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2048	connectTo:hostOrPathNameOrSocketAddr port:portNrOrNameOrNil withTimeout:timeout
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2049	"Backward compatibility connect; connect to port, portNrOrNameOrNil on host, hostOrPathNameOrSocketAddr.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2050	For backward compatibility, hostOrPathNameOrSocketAddr may be also a string or a byteArray,
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2051	but it is recommended to pass SocketAddress instances.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2052
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2053	Return true if ok, false otherwise.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2054	The current process will block (but not the whole Smalltalk) until the connection is established,
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2055	or timeout millliseconds have passed."
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2056
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2057	\|domainClass socketAddress\|
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2058
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2059	(hostOrPathNameOrSocketAddr isSocketAddress) ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2060	socketAddress := hostOrPathNameOrSocketAddr.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2061	portNrOrNameOrNil notNil ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2062	socketAddress port:portNrOrNameOrNil.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2063	].
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2064	] ifFalse:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2065	"backward compatibility: support for byteArray and string arg"
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2066	domainClass := self class socketAddressClassForDomain:domain.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2067	domainClass isNil ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2068	^ self error:'invalid (unsupported) domain'.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2069	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2070
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2071	hostOrPathNameOrSocketAddr isString ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2072	socketAddress := domainClass hostName:hostOrPathNameOrSocketAddr serviceName:portNrOrNameOrNil type:#SOCK_STREAM.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2073	peerName := hostOrPathNameOrSocketAddr.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2074	] ifFalse:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2075	hostOrPathNameOrSocketAddr isByteCollection ifFalse:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2076	^ self error:'connectTo: bad host (socketAddress) argument'
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2077	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2078	socketAddress := domainClass hostAddress:hostOrPathNameOrSocketAddr port:portNrOrNameOrNil.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2079	].
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2080	].
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2081
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2082	^ self connectTo:socketAddress withTimeout:timeout.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2083
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2084	"
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2085	\|sock\|
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2086	sock := Socket newTCP.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2087	sock connectTo:'localhost' port:21 withTimeout:1000.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2088	sock
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2089
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2090	\|sock\|
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2091	sock := Socket newTCP.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2092	sock connectTo:'localhost' port:9876 withTimeout:2000.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2093	sock
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2094	"
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2095	!
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2096
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2097	connectTo:aSocketAddress withTimeout:timeout
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2098	"Connect to a SocketAddress.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2099
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2100	Return true if ok, false otherwise.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2101	The current process will block (but not the whole Smalltalk) until the connection is established,
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2102	or timeout millliseconds have passed."
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2103
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2104	\|isAsync err\|
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2105
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	2106	handle isNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2107	^ self errorNotOpen
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2108	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2109
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2110	%{ /* STACK: 100000 */
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2111	#ifndef NO_SOCKET
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	2112	//#define DUMP_ADDRESS 1
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	2113	OBJ fp = __INST(handle);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2114	union sockaddr_u sa;
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2115	SOCKET sock;
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2116	int a;
2909 aacef77a1697 64bit fixes Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	2117	INT ret;
aacef77a1697 64bit fixes Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	2118	int oldFlags;
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2119	int on = 1;
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2120	int sockaddr_size;
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2121
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2122	if (!__isNonNilObject(aSocketAddress) \|\| !__isBytes(aSocketAddress)) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2123	DBGPRINTF(("SOCKET: invalid socketAddress\n"));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2124	err = @symbol(argumentError);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2125	goto out;
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2126	}
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2127
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2128	{
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2129	int sockAddrOffs = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2130	int nIndex =__byteArraySize(aSocketAddress);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2131	OBJ cls = __qClass(aSocketAddress);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2132
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2133	//if (cls != @global(ByteArray))
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2134	// sockAddrOffs = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2135	sockaddr_size = nIndex - sockAddrOffs;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2136	if (sockaddr_size > sizeof(sa)) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2137	DBGPRINTF(("SOCKET: invalid (short) socketAddress\n"));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2138	err = @symbol(argumentError);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2139	goto out;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2140	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2141	memcpy(&sa, __byteArrayVal(aSocketAddress) + sockAddrOffs, sockaddr_size);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2142	}
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2143
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2144	sock = SOCKET_FROM_FILE_OBJECT(fp);
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2145
3077 032905ddd57a class: Socket Claus Gittinger <cg@exept.de> parents: 3072 diff changeset	2146	# if defined(O_NONBLOCK) && !defined(WIN32)
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2147	/*
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2148	* set to non-blocking and wait later
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2149	*/
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2150	oldFlags = fcntl(sock, F_GETFL, 0);
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2151	/* on SUNOS4.x, would use fcntl(osfd, F_SETFL, flags \| FNDELAY); */
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2152	fcntl(sock, F_SETFL, oldFlags \| O_NONBLOCK);
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2153	# endif
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2154
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2155	/*
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2156	* connect
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2157	*/
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	2158
3077 032905ddd57a class: Socket Claus Gittinger <cg@exept.de> parents: 3072 diff changeset	2159	# if defined(DO_WRAP_CALLS)
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2160	// __setWrapCallDebugging(1,1);
2414 886ecf4b36cd changed: ab parents: 2340 diff changeset	2161
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	2162
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2163	do {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2164	DBGFPRINTF((stderr, "SOCKET: (sock=%d) connect...\n", sock));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2165	ret = STX_WSA_NOINT_CALL3("connect", connect, sock, &sa, (INT)sockaddr_size);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2166	DBGFPRINTF((stderr, "SOCKET: connect(%d) -> %"_ld_" (%d)\n", sock, (INT)ret, __threadErrno));
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2167	} while ((ret < 0) && (__threadErrno == EINTR));
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	2168
3077 032905ddd57a class: Socket Claus Gittinger <cg@exept.de> parents: 3072 diff changeset	2169	if (ret < 0) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2170	int optLen = sizeof(errno);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2171	errno = __threadErrno;
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	2172	#if 0
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2173	if (getsockopt(sock, SOL_SOCKET, SO_ERROR, &errno, &optLen) == SOCKET_ERROR) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2174	DBGFPRINTF((stderr, "SOCKET: getsockopt(SO_ERROR) failed: %d\n", WSAGetLastError()));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2175	}
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	2176	#endif
3077 032905ddd57a class: Socket Claus Gittinger <cg@exept.de> parents: 3072 diff changeset	2177	}
032905ddd57a class: Socket Claus Gittinger <cg@exept.de> parents: 3072 diff changeset	2178
032905ddd57a class: Socket Claus Gittinger <cg@exept.de> parents: 3072 diff changeset	2179	// __setWrapCallDebugging(1,0);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2180	# else
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2181	__BEGIN_INTERRUPTABLE__
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2182	do {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2183	ret = connect(sock, (struct sockaddr *)&sa, sockaddr_size);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2184	} while ((ret < 0)
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2185	&& ((errno == EINTR)
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2186	# ifdef EAGAIN
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2187	\|\| (errno == EAGAIN)
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2188	# endif
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2189	));
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2190	__END_INTERRUPTABLE__
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2191	#endif
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2192
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2193	if (ret < 0) {
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2194	# if defined(EINPROGRESS) \|\| defined(EALREADY)
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2195	if (0
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2196	# ifdef EINPROGRESS
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2197	\|\| (errno == EINPROGRESS)
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2198	# endif
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2199	# ifdef EALREADY
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2200	\|\| (errno == EALREADY)
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2201	# endif
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2202	) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2203	/*
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2204	* This was a nonblocking operation that will take some time.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2205	* Do a select on read to get informed when the operation is ready.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2206	*/
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2207	DBGFPRINTF((stderr, "SOCKET: isAsync is true\n"));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2208	isAsync = true;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2209	} else
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2210	# endif /* EINPROGRESS or EALREADY */
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2211	{
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2212	DBGFPRINTF((stderr, "SOCKET: connect failed ret=%"_ld_" errno=%d __threadErrno=%d\n",
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2213	(INT)ret, errno, __threadErrno ));
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2214	# ifdef DUMP_ADDRESS
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2215	{
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2216	unsigned char cp = (unsigned char )(&sa);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2217	int i;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2218
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2219	console_printf("address data:\n");
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2220	for (i=0; i<sockaddr_size; i++) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2221	console_printf(" %02x\n", *cp++);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2222	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2223	}
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2224	# endif
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2225	err = __MKSMALLINT(errno);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2226	}
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2227	}
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2228
3077 032905ddd57a class: Socket Claus Gittinger <cg@exept.de> parents: 3072 diff changeset	2229	# if defined(O_NONBLOCK) && !defined(WIN32)
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2230	fcntl(sock, F_SETFL, oldFlags);
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2231	# endif
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2232
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2233	# else /* NO_SOCKET */
3077 032905ddd57a class: Socket Claus Gittinger <cg@exept.de> parents: 3072 diff changeset	2234	err = @symbol(notSupported);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2235	# endif /* NO_SOCKET */
3077 032905ddd57a class: Socket Claus Gittinger <cg@exept.de> parents: 3072 diff changeset	2236	out:;
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2237	%}.
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2238
3077 032905ddd57a class: Socket Claus Gittinger <cg@exept.de> parents: 3072 diff changeset	2239	err notNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2240	err isSymbol ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2241	self primitiveFailed:err.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2242	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2243	lastErrorNumber := err.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2244	^ false.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2245	"/ Once we will raise an exception instead of returning false (and have to change some code above):
3077 032905ddd57a class: Socket Claus Gittinger <cg@exept.de> parents: 3072 diff changeset	2246	"/ (OperatingSystem errorHolderForNumber:err) reportError.
032905ddd57a class: Socket Claus Gittinger <cg@exept.de> parents: 3072 diff changeset	2247	].
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2248	isAsync == true ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2249	(self writeWaitWithTimeoutMs:timeout) ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2250	"/ a timeout occured
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2251	"/ should I cancel the connect?
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2252	^ false.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2253	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2254	err := self getSocketError.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2255	err ~~ 0 ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2256	lastErrorNumber := err.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2257	^ false.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2258	].
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2259	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2260
1940 2ea7d2c1a2e6 changed #connectTo:port:withTimeout: - add commented code tah may be used in the future Stefan Vogel <sv@exept.de> parents: 1939 diff changeset	2261
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2262	peer := aSocketAddress.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2263	port isNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2264	"socket has not been explicitly bound,
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2265	after connect it has been bound implicitly - fetch the port"
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2266	port := self getFullSocketAddress port.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2267	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2268	^ true
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2269
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2270	"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2271	\|sock\|
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2272	sock := Socket newTCP.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2273	sock connectTo:(IPSocketAddress localHost port:21) withTimeout:1000.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2274	sock
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2275
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2276	\|sock\|
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2277	sock := Socket newTCP.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2278	sock connectTo:(IPSocketAddress localHost port:9876) withTimeout:2000.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2279	sock
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2280	"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2281	! !
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2282
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2283	!Socket methodsFor:'datagram transmission'!
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2284
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2285	receiveBuffer:aDataBuffer start:startIndex for:nBytes
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2286	"receive data
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2287	Return the number of bytes received, or a negative number on error.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2288	On error, the unix error code is left in the lastErrorNumber
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2289	instance variable.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2290	The thread blocks until data arrives - you may want to wait before
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2291	receiving, using #readWait or #readWaitWithTimeout:."
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2292
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2293	\|nReceived error\|
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2294
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2295	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2296	#ifndef NO_SOCKET
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	2297	OBJ fp = __INST(handle);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2298
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2299	if (fp != nil) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2300	SOCKET sock;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2301	INT objSize, offs;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2302	INT n;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2303	char *extPtr;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2304	unsigned char *buffer;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2305	unsigned char *allocatedBuffer = NULL;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2306	INT flags = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2307
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2308	sock = SOCKET_FROM_FILE_OBJECT(fp);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2309
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2310	if (! setupBufferParameters(aDataBuffer, startIndex, &extPtr, &offs, &objSize)) goto bad;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2311	if (__isSmallInteger(nBytes)) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2312	if (__intVal(nBytes) < objSize) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2313	objSize = __intVal(nBytes);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2314	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2315	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2316
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2317	# ifdef DO_WRAP_CALLS
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2318	if (extPtr) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2319	buffer = extPtr + offs;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2320	} else {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2321	allocatedBuffer = buffer = (char *)malloc(objSize);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2322	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2323
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2324	do {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2325	__threadErrno = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2326	n = (INT)STX_WSA_NOINT_CALL4("recv", recv, sock, buffer, objSize, flags);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2327	} while ((n < 0) && (__threadErrno == EINTR));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2328	if (n < 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2329	errno = __threadErrno;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2330	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2331
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2332	if (allocatedBuffer) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2333	if (n > 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2334	bcopy(allocatedBuffer, (char *)__InstPtr(aDataBuffer) + offs, n);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2335	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2336	free(allocatedBuffer);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2337	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2338	# else
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2339	__BEGIN_INTERRUPTABLE__
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2340	do {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2341	if (extPtr) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2342	n = recv(sock, extPtr + offs, objSize, flags);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2343	} else {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2344	n = recv(sock, (char *)__InstPtr(aDataBuffer) + offs, objSize, flags);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2345	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2346	} while ((n < 0) && (errno == EINTR));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2347	__END_INTERRUPTABLE__
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2348	# endif
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2349
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2350	if (n < 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2351	error = __INST(lastErrorNumber) = __MKSMALLINT(errno);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2352	} else {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2353	RETURN(__MKSMALLINT(n));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2354	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2355	}
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2356	#endif
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2357	bad: ;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2358	%}.
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2359	error notNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2360	^ ReadError
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2361	raiseRequestWith:self
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2362	errorString:(' : ' , OperatingSystem errorTextForNumber:error)
915 3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2363	].
3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2364	"
1282 7e4ffdfd19f6 remove historic leftover Claus Gittinger <cg@exept.de> parents: 1280 diff changeset	2365	arrive here if you try to receive into an invalid buffer (i.e. not ByteArray-like)
915 3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2366	"
3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2367	self primitiveFailed
3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2368	!
3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2369
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2370	receiveFrom:anAddressBuffer buffer:aDataBuffer
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2371	"receive datagramm data - put address of originating host into
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2372	anAddressBuffer, data into aBuffer.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2373	Both must be ByteArray-like. The addressBuffer must
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2374	provide space for a valid address for my domain (i.e. for inet, a 4-byte byteArray).
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2375	Return the number of bytes received, or a negative number on error.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2376	On error, the unix error code is left in the lastErrorNumber
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2377	instance variable."
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	2378
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2379	^ 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	2380	!
7d016cc30052 fixed & moved pingWalk from SNMPSession to here; Claus Gittinger <cg@exept.de> parents: 98 diff changeset	2381
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2382	receiveFrom:anAddressBuffer buffer:aDataBuffer start:startIndex for:nBytes
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2383	"receive datagramm data
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2384	- put address of originating host into anAddressBuffer, data into aBuffer.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2385	For backward compatibility, the addressBuffer may be a non-SocketAddress;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2386	then, it must be a byteArray with appropriate size for the addressBytes.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2387
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2388	Return the number of bytes received, or a negative number on error.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2389	On error, the unix error code is left in the lastErrorNumber
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2390	instance variable.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2391	The thread blocks until data arrives - you may want to wait before
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2392	receiving, using #readWait or #readWaitWithTimeout:."
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2393
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2394	\|domainClass addr addrLen nReceived error\|
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2395
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2396	domainClass := self class socketAddressClassForDomain:domain.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2397	domainClass isNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2398	^ self error:'invalid (unsupported) domain'.
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2399	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2400	(anAddressBuffer isKindOf:SocketAddress) ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2401	anAddressBuffer class == domainClass ifFalse:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2402	^ self error:'addressBuffer class mismatch (domain)'.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2403	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2404	addr := anAddressBuffer.
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2405	] ifFalse:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2406	anAddressBuffer notNil ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2407	addr := domainClass new.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2408	].
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2409	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2410
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2411	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2412	#ifndef NO_SOCKET
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	2413	OBJ fp = __INST(handle);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2414
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2415	if (fp != nil) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2416	SOCKET sock;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2417	INT objSize;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2418	union sockaddr_u sa;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2419	unsigned INT alen = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2420	INT n, offs;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2421	INT flags = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2422	char *extPtr;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2423	unsigned char *allocatedBuffer = NULL;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2424	unsigned char *buffer = NULL;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2425
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2426	sock = SOCKET_FROM_FILE_OBJECT(fp);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2427
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2428	if (! setupBufferParameters(aDataBuffer, startIndex, &extPtr, &offs, &objSize)) goto bad;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2429	if (__isSmallInteger(nBytes)) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2430	if (__intVal(nBytes) < objSize) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2431	objSize = __intVal(nBytes);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2432	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2433	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2434	# ifdef DO_WRAP_CALLS
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2435	if (extPtr) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2436	buffer = extPtr + offs;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2437	} else {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2438	allocatedBuffer = buffer = (char *)malloc(objSize);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2439	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2440
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2441	do {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2442	__threadErrno = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2443	alen = sizeof(sa);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2444	n = (INT)STX_WSA_NOINT_CALL6("recvfrom", recvfrom, sock, buffer, objSize, flags, (struct sockaddr *)&sa, &alen);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2445	} while ((n < 0) && (__threadErrno == EINTR));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2446	if (n < 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2447	errno = __threadErrno;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2448	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2449
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2450	if (allocatedBuffer) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2451	if (n > 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2452	memcpy((char *)__InstPtr(aDataBuffer) + offs, allocatedBuffer, n);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2453	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2454	free(allocatedBuffer);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2455	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2456	# else
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2457	__BEGIN_INTERRUPTABLE__
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2458	do {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2459	alen = sizeof(sa);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2460	if (extPtr) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2461	n = recvfrom(sock, extPtr + offs, objSize, flags, (struct sockaddr *) &sa, &alen);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2462	} else {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2463	n = recvfrom(sock, (char )__InstPtr(aDataBuffer) + offs, objSize, flags, (struct sockaddr ) &sa, &alen);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2464	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2465	} while ((n < 0) && (errno == EINTR));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2466	__END_INTERRUPTABLE__
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2467	# endif
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2468
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2469	if (n >= 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2470	if (__isNonNilObject(addr)) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2471	char *addrPtr;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2472	OBJ oClass;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2473	int nInstVars, nInstBytes, objSize;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2474
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2475	oClass = __qClass(addr);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2476	if (! __isBytes(addr) )
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2477	goto bad;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2478	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2479	nInstBytes = OHDR_SIZE + (nInstVars * sizeof(OBJ));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2480	objSize = __qSize(addr) - nInstBytes;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2481	addrPtr = (char *)__InstPtr(addr) + nInstBytes;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2482	if (objSize < alen)
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2483	goto bad;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2484
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2485	/*
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2486	* extract the datagrams address
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2487	*/
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2488	memcpy(addrPtr, (char *)&sa, alen);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2489	addrLen = __MKSMALLINT(alen);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2490	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2491	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2492	if (n < 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2493	error = __INST(lastErrorNumber) = __MKSMALLINT(errno);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2494	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2495	nReceived = __MKSMALLINT(n);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2496	}
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2497	#endif
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2498	bad: ;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2499	%}.
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2500	error notNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2501	^ ReadError
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2502	raiseRequestWith:self
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2503	errorString:(' : ' , OperatingSystem errorTextForNumber:error)
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2504	].
d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2505
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2506	nReceived notNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2507	addrLen notNil ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2508	(addr == anAddressBuffer) ifFalse:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2509	self obsoleteFeatureWarning:'please use a socketAddress argument'.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2510
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2511	"can be a ByteArray for backward compatibility"
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2512	anAddressBuffer replaceFrom:1 to:addrLen with:(addr hostAddress).
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2513	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2514	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2515	^ nReceived
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2516	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2517	"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2518	arrive here if you try to receive into an invalid buffer
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2519	(i.e. not ByteArray-like),
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	2520	or if the addressBuffer is nonNil AND not a SocketAddress/ByteArray
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2521	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	2522	"
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2523	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	2524	!
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2525
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2526	sendBuffer:aDataBuffer start:startIndex for:nBytes flags:flags
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2527	"send data.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2528	Both must be ByteArray-like. The bytes in the addressBuffer must
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2529	be a valid address for my domain (i.e. for inet, a 4-byte byteArray).
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2530	Return the number of bytes transmitted, or a negative number on error.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2531	On error, the unix error code is left in the lastErrorNumber
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2532	instance variable."
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2533
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2534	\|error\|
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2535
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2536	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2537	#ifndef NO_SOCKET
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	2538	OBJ fp = __INST(handle);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2539
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2540	if ((fp != nil)
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2541	&& __isSmallInteger(startIndex)
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2542	&& __isSmallInteger(nBytes)) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2543	SOCKET sock;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2544	INT objSize;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2545	INT n;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2546	char *extPtr;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2547	INT _flags = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2548	INT offs;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2549	unsigned long norder;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2550	unsigned char *buffer;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2551	unsigned char *allocatedBuffer = NULL;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2552
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2553	_flags = __longIntVal(flags);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2554
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2555	sock = SOCKET_FROM_FILE_OBJECT(fp);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2556
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2557	if (! setupBufferParameters(aDataBuffer, startIndex, &extPtr, &offs, &objSize)) goto bad;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2558	if (__isSmallInteger(nBytes)) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2559	if (__intVal(nBytes) < objSize) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2560	objSize = __intVal(nBytes);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2561	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2562	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2563
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2564	# ifdef DGRAM_DEBUG
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2565	console_printf("sending %d bytes ...\n", nBytes);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2566	# endif
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2567
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2568	#ifdef DO_WRAP_CALLS
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2569	if (extPtr) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2570	buffer = extPtr + offs;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2571	} else {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2572	allocatedBuffer = buffer = (char *)malloc(objSize);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2573	bcopy((char *)__InstPtr(aDataBuffer) + offs, allocatedBuffer, objSize);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2574	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2575
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2576	do {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2577	__threadErrno = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2578	n = (INT)STX_WSA_NOINT_CALL4("send", send, sock, buffer, objSize, _flags);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2579	} while ((n < 0) && (__threadErrno == EINTR));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2580	if (n < 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2581	errno = __threadErrno;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2582	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2583
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2584	if (allocatedBuffer) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2585	free(allocatedBuffer);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2586	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2587	#else
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2588	__BEGIN_INTERRUPTABLE__
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2589	do {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2590	if (extPtr) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2591	n = send(sock, extPtr + offs, objSize, _flags);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2592	} else {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2593	n = send(sock, (char *)__InstPtr(aDataBuffer) + offs, objSize, _flags);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2594	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2595	} while ((n < 0) && (errno == EINTR));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2596	__END_INTERRUPTABLE__
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2597	#endif
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2598
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2599	if (n < 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2600	error = __INST(lastErrorNumber) = __MKSMALLINT(errno);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2601	} else {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2602	RETURN (__MKSMALLINT(n));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2603	}
915 3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2604	}
3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2605	#endif
3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2606	bad: ;
3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2607	%}.
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2608	error notNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2609	self writeError:error.
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2610	].
d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2611
915 3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2612	"
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	2613	arrive here if you try to send from an invalid buffer (i.e. not ByteArray-like),
915 3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2614	"
3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2615	self primitiveFailed
3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2616	!
3dc0e3cd838a added interface to send() and recv() Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2617
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2618	sendTo:anAddressBuffer buffer:buffer
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2619	"send datagramm data - fetch address of destination host from
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2620	anAddressBuffer, data from aDataBuffer.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2621	Both must be ByteArray-like. The bytes in the addressBuffer must
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2622	be a valid address for my domain (i.e. for inet, a 4-byte byteArray).
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2623	Return the number of bytes transmitted, or a negative number on error.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2624	On error, the unix error code is left in the lastErrorNumber
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2625	instance variable.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	2626	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	2627
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	2628	^ 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	2629	!
7789fb1c9fa2 more UD socket fixes (at least client side seems to work now) Claus Gittinger <cg@exept.de> parents: 115 diff changeset	2630
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2631	sendTo:anAddressBuffer buffer:buffer start:startIndex for:count
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2632	"send datagramm data - fetch address of destination host from
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2633	anAddressBuffer, data from aDataBuffer.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2634	Both must be ByteArray-like. The bytes in the addressBuffer must
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2635	be a valid address for my domain (i.e. for inet, a 4-byte byteArray).
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2636	Return the number of bytes transmitted, or a negative number on error.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2637	On error, the unix error code is left in the lastErrorNumber
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2638	instance variable.
817 eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2639	Flags is currently ignored; it is there for ST-80 compatibility."
eda0065cbd47 checkin from browser Claus Gittinger <cg@exept.de> parents: 814 diff changeset	2640
1485 d8578cf3504b gcc3.3.1 insn-scheduler bug workaround Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	2641	^ self sendTo:anAddressBuffer buffer:buffer start:startIndex for:count flags:0
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2642	!
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2643
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2644	sendTo:anAddressBuffer buffer:aDataBuffer start:startIndex for:nBytes flags:flags
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2645	"send datagramm data - fetch address of destination host from
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2646	anAddressBuffer, data from aDataBuffer starting at startIndex,
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2647	sending count bytes.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2648	Both must be ByteArray-like. The bytes in the addressBuffer must
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2649	be a valid address for my domain (i.e. for inet, a 4-byte byteArray).
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2650	Return the number of bytes transmitted, or a negative number on error.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2651	On error, the unix error code is left in the lastErrorNumber
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2652	instance variable."
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2653
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2654	\|domainClass addr error\|
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2655
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2656	(anAddressBuffer isKindOf:SocketAddress) ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2657	addr := anAddressBuffer.
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2658	] ifFalse:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2659	anAddressBuffer isByteArray ifFalse:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2660	^ self error:'bad socketAddress argument'
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2661	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2662	domainClass := self class socketAddressClassForDomain:domain.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2663	domainClass isNil ifTrue:[
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2664	^ self error:'invalid (unsupported) domain'.
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2665	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2666	addr := domainClass hostAddress:anAddressBuffer.
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2667	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2668	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2669	#ifndef NO_SOCKET
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	2670	OBJ fp = __INST(handle);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2671
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2672	if ((fp != nil)
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2673	&& __isSmallInteger(startIndex)
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2674	&& __isSmallInteger(nBytes)) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2675	SOCKET sock;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2676	INT objSize;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2677	struct sockaddr *sockaddr_ptr;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2678	union sockaddr_u sa;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2679	INT alen = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2680	INT sockAddrOffs, sockaddr_size;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2681	INT n;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2682	char *extPtr;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2683	INT _flags = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2684	INT offs;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2685	unsigned long norder;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2686	unsigned char *buffer;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2687	unsigned char *allocatedBuffer = NULL;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2688
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2689	_flags = __longIntVal(flags);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2690	sock = SOCKET_FROM_FILE_OBJECT(fp);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2691
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2692	if (! __isBytes(addr)) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2693	sockaddr_size = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2694	sockaddr_ptr = (struct sockaddr *)0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2695	} else {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2696	int nIndex;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2697	OBJ cls;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2698
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2699	sockAddrOffs = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2700	if ((cls = __qClass(addr)) != @global(ByteArray))
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2701	sockAddrOffs += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2702	nIndex = __qSize(addr) - OHDR_SIZE;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2703	sockaddr_size = nIndex - sockAddrOffs;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2704	if (sockaddr_size > sizeof(sa)) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2705	console_fprintf(stderr, "Socket [warning]: bad socketAddr\n");
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2706	goto bad;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2707	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2708	memcpy(&sa, (__byteArrayVal(addr) + sockAddrOffs), sockaddr_size);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2709	sockaddr_ptr = (struct sockaddr *)(&sa);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2710	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2711
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2712	if (! setupBufferParameters(aDataBuffer, startIndex, &extPtr, &offs, &objSize)) goto bad;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2713	if (__isSmallInteger(nBytes)) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2714	if (__intVal(nBytes) < objSize) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2715	objSize = __intVal(nBytes);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2716	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2717	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2718
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2719	#ifdef DO_WRAP_CALLS
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2720	if (extPtr) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2721	buffer = extPtr + offs;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2722	} else {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2723	allocatedBuffer = buffer = (char *)malloc(objSize);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2724	bcopy((char *)__InstPtr(aDataBuffer) + offs, allocatedBuffer, objSize);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2725	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2726
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2727	do {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2728	__threadErrno = 0;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2729	n = (INT)STX_WSA_NOINT_CALL6("sendto", sendto, sock, buffer, objSize, _flags, sockaddr_ptr, sockaddr_size);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2730	} while ((n < 0) && (__threadErrno == EINTR));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2731	if (n < 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2732	errno = __threadErrno;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2733	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2734
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2735	if (allocatedBuffer) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2736	free(allocatedBuffer);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2737	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2738	#else
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2739	__BEGIN_INTERRUPTABLE__
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2740	do {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2741	if (extPtr) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2742	n = sendto(sock, extPtr + offs, objSize, _flags, sockaddr_ptr, sockaddr_size);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2743	} else {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2744	n = sendto(sock, (char *)__InstPtr(aDataBuffer) + offs, objSize, _flags, sockaddr_ptr, sockaddr_size);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2745	}
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2746	} while ((n < 0) && (errno == EINTR));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2747	__END_INTERRUPTABLE__
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2748	#endif
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2749
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2750	if (n < 0) {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2751	error = __INST(lastErrorNumber) = __MKSMALLINT(errno);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2752	} else {
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2753	RETURN (__MKSMALLINT(n));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2754	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2755	}
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2756	#endif
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2757	bad: ;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2758	%}.
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2759	error notNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	2760	self writeError:error.
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2761	].
d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2762
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2763	"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2764	arrive here if you try to send from an invalid buffer
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2765	(i.e. not ByteArray-like),
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2766	or if the addressBuffer is nonNil AND not a ByteArray/String
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2767	or if the addressBuffer is nonNil AND too small.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2768	"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2769	self primitiveFailed
0 1cf8d1747859 Initial revision claus parents: diff changeset	2770	! !
1cf8d1747859 Initial revision claus parents: diff changeset	2771
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2772	!Socket protectedMethodsFor:'low level'!
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2773
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2774	closeFile
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2775	"low level close - may be redefined in subclasses
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2776	Don't send this message, send #close instead"
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2777
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2778	\|fp error\|
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2779
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2780	fp := handle.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2781
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2782	%{
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2783	int rslt;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2784
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2785	if (fp == nil) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2786	error = @symbol(errorNotOpen);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2787	goto out;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2788	}
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2789
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2790	if (__INST(handleType) == @symbol(socketHandle)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2791	SOCKET socket = SOCKET_FROM_FILE_OBJECT(fp);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2792
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2793	if (@global(FileOpenTrace) == true) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2794	fprintf(stderr, "close socket [ExternalStream] %"_lx_"\n", socket);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2795	}
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2796
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2797	// whether the close() will be successful or not - the handle is invalid now!
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2798	__INST(handle) = nil;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2799	do {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2800	#ifdef WIN32
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2801	rslt = __STX_WSA_NOINT_CALL1("closesocket", closesocket, socket);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2802	#else
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2803	rslt = close(socket);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2804	#endif
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2805	} while((rslt < 0) && (__threadErrno == EINTR));
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2806	if (rslt == 0) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2807	RETURN(self);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2808	}
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2809	error = __mkSmallInteger(__threadErrno);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2810	}
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2811
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2812	out:;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2813	%}.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2814
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2815	error notNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2816	error == #errorNotOpen ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2817	self errorNotOpen.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2818	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2819	error isInteger ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2820	lastErrorNumber := error.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2821	self writeError:error.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2822	^ self.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2823	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2824	self primitiveFailed:error.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2825	^ self.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2826	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2827
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2828	super closeFile.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2829
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2830	"/ fallback for rel5
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2831
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2832	fp := handle.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2833	fp notNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2834	handle := nil.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2835	self closeFile:fp
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2836	]
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2837	! !
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2838
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	2839	!Socket methodsFor:'low level'!
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2840
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2841	getSocketAdress
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2842	"BAD SPELLING, of #getSocketAddress, kept for compatibility with swazoo"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2843
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2844	<resource: #obsolete>
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2845
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2846	^ self getSocketAddress
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2847	!
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2848
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2849	getSocketError
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2850	"get the SO_ERROR form the socket, which indicates the
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2851	result of an asynchronous operation"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2852
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2853	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2854	#ifndef NO_SOCKET
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2855	OBJ fp;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2856	int err;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2857
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	2858	fp = __INST(handle);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2859	if (fp == nil) {
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2860	err = EBADF;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2861	} else {
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2862	unsigned int sz;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2863	SOCKET sock;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2864
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2865	sock = SOCKET_FROM_FILE_OBJECT(fp);
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2866	sz = sizeof(err);
2909 aacef77a1697 64bit fixes Claus Gittinger <cg@exept.de> parents: 2904 diff changeset	2867	if (getsockopt(sock, SOL_SOCKET, SO_ERROR, (char *)(&err), &sz) < 0) {
1558 a563aac90660 No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is Stefan Vogel <sv@exept.de> parents: 1542 diff changeset	2868	# ifdef WIN32
1568 3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2869	errno = WSAGetLastError();
1558 a563aac90660 No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is Stefan Vogel <sv@exept.de> parents: 1542 diff changeset	2870	# endif
1568 3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2871	err = errno;
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2872	}
1558 a563aac90660 No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is Stefan Vogel <sv@exept.de> parents: 1542 diff changeset	2873	}
a563aac90660 No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is Stefan Vogel <sv@exept.de> parents: 1542 diff changeset	2874
a563aac90660 No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is Stefan Vogel <sv@exept.de> parents: 1542 diff changeset	2875	RETURN(__MKSMALLINT(err));
a563aac90660 No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is Stefan Vogel <sv@exept.de> parents: 1542 diff changeset	2876	#endif
a563aac90660 No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is Stefan Vogel <sv@exept.de> parents: 1542 diff changeset	2877	%}
a563aac90660 No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is Stefan Vogel <sv@exept.de> parents: 1542 diff changeset	2878	!
a563aac90660 No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is Stefan Vogel <sv@exept.de> parents: 1542 diff changeset	2879
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2880	listenWithBacklog:aNumber
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2881	<resource: #obsolete>
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2882	"same as listenFor: - backward compatibility with old ST/X"
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2883	self obsoleteMethodWarning.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2884	^ self listenFor:aNumber
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2885	!
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2886
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2887	primAcceptOn:aServerSocket blocking:blocking
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2888	"accept a connection on a server port (created with:'Socket>>newTCP:')
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2889	usage is: (Socket basicNew acceptOn:(Socket newTCP:9999)).
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2890	Return the true if ok; false if not.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2891	If blocking is true, the accept() syscall (and the whole smalltalk image)
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2892	will block, until a connection is accepted.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2893	If blocking is false, this call will return immediately, if there is no connection pending."
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2894
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2895	\|serverSocketHandle addr domainClass newHandle\|
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2896
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	2897	handle notNil ifTrue:[
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2898	^ self errorAlreadyOpen
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2899	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2900
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2901	domain := aServerSocket domain.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2902	socketType := aServerSocket type.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2903	handleType := aServerSocket handleType.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2904	serverSocketHandle := aServerSocket fileHandle.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2905	serverSocketHandle isNil ifTrue:[
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2906	^ self error:'invalid server socket'
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2907	].
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2908	"unix domain sockets do not return a valid peer name on accept"
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2909	domainClass := self class socketAddressClassForDomain:domain.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2910	domainClass isNil ifTrue:[
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2911	^ self error:'invalid (unsupported) domain'.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2912	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2913	addr := domainClass new.
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2914	newHandle := OperatingSystem socketAccessor new.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2915
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2916	%{ /* STACK: 100000 */
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2917	#ifndef NO_SOCKET
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2918	FILE *fp;
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2919	int flags;
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2920	SOCKET serverSocket, newSock;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2921	int _fd;
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2922	union sockaddr_u sa;
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2923	unsigned int alen;
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	2924
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2925	serverSocket = SOCKET_FROM_FILE_OBJECT(serverSocketHandle);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2926
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2927	# if defined(O_NONBLOCK) && defined(SET_NDELAY)
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2928	if (blocking == false) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2929	flags = fcntl(serverSocket, F_GETFL);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2930	fcntl(serverSocket, F_SETFL, flags \| O_NONBLOCK);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2931	}
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2932	# endif
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2933
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2934	# ifdef DO_WRAP_CALLS
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2935	do {
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2936	__threadErrno = 0;
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2937	alen = sizeof(sa);
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2938	newSock = (SOCKET)STX_WSA_CALL3("accept", accept, serverSocket, &sa, &alen);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2939	} while ((newSock < 0) && (__threadErrno == EINTR));
3127 333e87ba225a class: Socket Stefan Vogel <sv@exept.de> parents: 3126 diff changeset	2940	if (newSock < 0) {
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2941	errno = __threadErrno;
3126 d95cc55a4fb5 class: Socket Stefan Vogel <sv@exept.de> parents: 3123 diff changeset	2942	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2943	# else
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2944	__BEGIN_INTERRUPTABLE__
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2945	do {
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2946	alen = sizeof(sa);
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2947	newSock = accept(serverSocket, (struct sockaddr *) &sa, &alen);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2948	} while ((newSock < 0) && (errno == EINTR));
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2949	__END_INTERRUPTABLE__
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	2950	# endif
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2951	DBGFPRINTF((stderr, "SOCKET: accept newSock=%d\n", newSock));
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2952
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2953	# if defined(O_NDELAY) && defined(SET_NDELAY)
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2954	if (blocking == false) {
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2955	fcntl(serverSocket, F_SETFL, flags);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2956	}
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2957	# endif
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2958
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2959	if (newSock == -1) {
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2960	DBGPRINTF(("SOCKET: accept call failed errno=%d\n", errno));
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2961	__INST(lastErrorNumber) = __MKSMALLINT(errno);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2962	RETURN (false);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2963	}
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2964
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2965	if (__isNonNilObject(addr)) {
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2966	OBJ oClass = __qClass(addr);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2967	int nInstVars, nInstBytes, objSize;
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2968	char *addrP;
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2969
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2970	if (! __isBytes(addr) ) {
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2971	DBGPRINTF(("SOCKET: bad addr\n"));
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2972	closesocket(newSock);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2973	RETURN (false);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2974	}
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2975
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2976	nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2977	nInstBytes = OHDR_SIZE + (nInstVars * sizeof(OBJ));
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2978	objSize = __qSize(addr) - nInstBytes;
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2979	addrP = (char *)__InstPtr(addr) + nInstBytes;
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2980	if (objSize < alen) {
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2981	DBGPRINTF(("SOCKET: bad addr\n"));
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2982	closesocket(newSock);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2983	RETURN (false);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2984	}
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2985
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2986	/*
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2987	* extract the partners address
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2988	*/
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	2989	memcpy(addrP, (char *)&sa, alen);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2990	}
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2991
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2992	/*
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2993	* make it a FILE *
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2994	*/
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	2995	# ifdef WIN32
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2996	# if 0 && (defined( __BORLANDC__ ) \|\| defined( __MINGW__ ))
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2997	__stxWrapApiEnterCritical();
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2998	_fd = _open_osfhandle((long)newSock, 0);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	2999	__stxWrapApiLeaveCritical();
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3000	DBGPRINTF(("SOCKET: sock=%d fd=%d\n", newSock, _fd));
2773 ab3049f4a351 * empty log message * Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	3001	# else
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3002	_fd = (int)newSock;
2773 ab3049f4a351 * empty log message * Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	3003	# endif
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3004	# else // ! WIN32
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3005	fp = fdopen(newSock, "r+");
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3006	if (! fp) {
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3007	DBGPRINTF(("SOCKET: fdopen call failed\n"));
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3008	__INST(lastErrorNumber) = __MKSMALLINT(errno);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3009	closesocket(newSock);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3010	DBGFPRINTF((stderr, "SOCKET: close (fdopen failed) (%d)\n", newSock));
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3011	RETURN (false);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3012	}
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3013	# endif // ! WIN32
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3014
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3015	if ((@global(FileOpenTrace) == true) \|\| __debugging__) {
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3016	# ifdef WIN32
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3017	console_fprintf(stderr, "fdopen [Socket accept] -> fd: %d (H: %"_lx_")\n", _fd, (INT)newSock);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3018	# else
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3019	console_fprintf(stderr, "fdopen [Socket accept] -> %"_lx_" (fd: %d)\n", (INT)fp, newSock);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3020	# endif
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3021	}
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3022
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3023	# ifdef WIN32
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3024	__externalAddressVal(newHandle) = _fd;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3025	__INST(handleType) = @symbol(socketHandle);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3026	# else
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3027	__externalAddressVal(newHandle) = fp;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3028	__INST(handleType) = @symbol(socketFilePointer);
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3029	# endif
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3030	#endif /* not NO_SOCKET */
1558 a563aac90660 No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is Stefan Vogel <sv@exept.de> parents: 1542 diff changeset	3031	%}.
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3032
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3033	handle := newHandle.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3034	buffered := false.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3035	mode := #readwrite.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3036	binary := false.
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3037	Lobby register:self.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3038	peer := addr.
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3039	port := aServerSocket port.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3040
1558 a563aac90660 No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is Stefan Vogel <sv@exept.de> parents: 1542 diff changeset	3041	^ true
2551 6da1bc89b74a changed: Stefan Vogel <sv@exept.de> parents: 2516 diff changeset	3042	!
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3043
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3044	setSocketOption:option argument:arg1 argument:arg2
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3045	\|ok\|
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3046
2551 6da1bc89b74a changed: Stefan Vogel <sv@exept.de> parents: 2516 diff changeset	3047	handle isNil ifTrue:[
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3048	^ self errorNotOpen
2551 6da1bc89b74a changed: Stefan Vogel <sv@exept.de> parents: 2516 diff changeset	3049	].
6da1bc89b74a changed: Stefan Vogel <sv@exept.de> parents: 2516 diff changeset	3050
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3051	%{ /* STACK: 32000 */
2818 94d67df5c00d compilable with tcc Claus Gittinger <cg@exept.de> parents: 2773 diff changeset	3052	#ifndef NO_SOCKET
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3053	OBJ fp = __INST(handle);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3054
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3055	if (fp != nil) {
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3056	SOCKET sock = SOCKET_FROM_FILE_OBJECT(fp);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3057	int opt = -1;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3058	int level = -1;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3059	int usize = -1;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3060	int ret;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3061	union u {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3062	BOOL u_bool;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3063	int u_int;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3064	struct linger u_linger;
2516 592619f82885 Add setsockopt for Multicast stuff Stefan Vogel <sv@exept.de> parents: 2465 diff changeset	3065	# ifdef IP_ADD_MEMBERSHIP
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3066	struct ip_mreq u_ip_mreq;
2516 592619f82885 Add setsockopt for Multicast stuff Stefan Vogel <sv@exept.de> parents: 2465 diff changeset	3067	# endif
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3068	} u;
2516 592619f82885 Add setsockopt for Multicast stuff Stefan Vogel <sv@exept.de> parents: 2465 diff changeset	3069
592619f82885 Add setsockopt for Multicast stuff Stefan Vogel <sv@exept.de> parents: 2465 diff changeset	3070	# ifdef IP_ADD_MEMBERSHIP
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3071	if (option == @symbol(IP_DROP_MEMBERSHIP)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3072	opt = IP_DROP_MEMBERSHIP;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3073	goto dropOrAdd;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3074	}
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3075	if (option == @symbol(IP_ADD_MEMBERSHIP)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3076	/* add membership to a multicast group */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3077	opt = IP_ADD_MEMBERSHIP;
2516 592619f82885 Add setsockopt for Multicast stuff Stefan Vogel <sv@exept.de> parents: 2465 diff changeset	3078	dropOrAdd:
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3079	level = IPPROTO_IP;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3080	usize = sizeof(u.u_ip_mreq);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3081	if (__isByteArrayLike(arg1) && __isByteArrayLike(arg2)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3082	memcpy(&u.u_ip_mreq.imr_multiaddr, __byteArrayVal(arg1), sizeof(u.u_ip_mreq.imr_multiaddr));
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3083	memcpy(&u.u_ip_mreq.imr_interface, __byteArrayVal(arg2), sizeof(u.u_ip_mreq.imr_interface));
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3084	}
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3085	else
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3086	goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3087	}
2516 592619f82885 Add setsockopt for Multicast stuff Stefan Vogel <sv@exept.de> parents: 2465 diff changeset	3088	# endif /* IP_ADD_MEMBERSHIP */
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3089
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3090	# ifdef SO_BROADCAST
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3091	if (option == @symbol(SO_BROADCAST)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3092	/* Enables transmission and receipt of broadcast messages on the socket. */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3093	opt = SO_BROADCAST;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3094	level = SOL_SOCKET;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3095	usize = sizeof(u.u_bool);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3096	if (arg1 == true) u.u_bool = TRUE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3097	else if (arg1 == false) u.u_bool = FALSE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3098	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3099	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3100	# endif /* SO_BROADCAST */
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3101
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3102	# ifdef SO_CONDITIONAL
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3103	# if 0
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3104	if (option == @symbol(SO_CONDITIONAL)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3105	/* Enables sockets to delay the acknowledgment of a connection until after the WSAAccept condition function is called. */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3106	opt = SO_CONDITIONAL;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3107	level = SOL_SOCKET;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3108	usize = sizeof(u.u_bool);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3109	if (arg1 == true) u.u_bool = TRUE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3110	else if (arg1 == false) u.u_bool = FALSE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3111	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3112	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3113	# endif
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3114	# endif /* SO_CONDITIONAL */
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3115
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3116	# ifdef SO_DEBUG
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3117	if (option == @symbol(SO_DEBUG)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3118	/* Records debugging information. */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3119	opt = SO_DEBUG;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3120	level = SOL_SOCKET;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3121	usize = sizeof(u.u_bool);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3122	if (arg1 == true) u.u_bool = TRUE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3123	else if (arg1 == false) u.u_bool = FALSE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3124	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3125	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3126	# endif /* SO_DEBUG */
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3127
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3128	# ifdef SO_DONTLINGER
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3129	if (option == @symbol(SO_DONTLINGER)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3130	/* Does not block close waiting for unsent data to be sent.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3131	Setting this option is equivalent to setting SO_LINGER with l_onoff set to zero. */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3132	opt = SO_DONTLINGER;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3133	level = SOL_SOCKET;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3134	usize = sizeof(u.u_bool);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3135	if (arg1 == true) u.u_bool = TRUE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3136	else if (arg1 == false) u.u_bool = FALSE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3137	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3138	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3139	# endif /* SO_DONTLINGER */
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3140
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3141	# ifdef SO_DONTROUTE
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3142	if (option == @symbol(SO_DONTROUTE)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3143	/* Does not route: sends directly to interface.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3144	Succeeds but is ignored on AF_INET sockets;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3145	fails on AF_INET6 sockets with WSAENOPROTOOPT.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3146	Not supported on ATM sockets (results in an error). */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3147	opt = SO_DONTROUTE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3148	level = SOL_SOCKET;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3149	usize = sizeof(u.u_bool);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3150	if (arg1 == true) u.u_bool = TRUE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3151	else if (arg1 == false) u.u_bool = FALSE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3152	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3153	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3154	# endif /* SO_DONTROUTE */
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3155
2516 592619f82885 Add setsockopt for Multicast stuff Stefan Vogel <sv@exept.de> parents: 2465 diff changeset	3156	#if defined(IPPROTO_TCP) && defined(TCP_NODELAY)
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3157	if (option == @symbol(TCP_NODELAY)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3158	/* enable/disable TCP_NODELAY (i.e. disable/enable the Nagle algorithm) */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3159	opt = TCP_NODELAY;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3160	level = IPPROTO_TCP;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3161	usize = sizeof(u.u_bool);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3162	if (arg1 == true) u.u_bool = TRUE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3163	else if (arg1 == false) u.u_bool = FALSE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3164	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3165	}
2516 592619f82885 Add setsockopt for Multicast stuff Stefan Vogel <sv@exept.de> parents: 2465 diff changeset	3166	# endif /* TCP_NODELAY */
592619f82885 Add setsockopt for Multicast stuff Stefan Vogel <sv@exept.de> parents: 2465 diff changeset	3167
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3168	# ifdef SO_KEEPALIVE
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3169	if (option == @symbol(SO_KEEPALIVE)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3170	/* Sends keep-alives. Not supported on ATM sockets (results in an error). */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3171	opt = SO_KEEPALIVE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3172	level = SOL_SOCKET;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3173	usize = sizeof(u.u_bool);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3174	if (arg1 == true) u.u_bool = TRUE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3175	else if (arg1 == false) u.u_bool = FALSE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3176	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3177	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3178	# endif /* SO_KEEPALIVE */
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3179
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3180	# ifdef SO_LINGER
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3181	if (option == @symbol(SO_LINGER)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3182	/* Lingers on close if unsent data is present. */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3183	opt = SO_LINGER;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3184	level = SOL_SOCKET;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3185	usize = sizeof(u.u_linger);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3186	if (arg1 == true) u.u_linger.l_onoff = TRUE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3187	else if (arg1 == false) u.u_linger.l_onoff = FALSE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3188	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3189	if (arg2 == nil) u.u_linger.l_linger = 0;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3190	else if (__isSmallInteger(arg2))u.u_linger.l_linger = __intVal(arg2);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3191	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3192	DBGPRINTF(("SOCKET: SO_LINGER %d %d\n", u.u_linger.l_onoff, u.u_linger.l_linger));
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3193	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3194	# endif /* SO_LINGER */
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3195
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3196	# ifdef SO_OOBINLINE
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3197	if (option == @symbol(SO_OOBINLINE)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3198	/* Receives OOB data in the normal data stream. */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3199	opt = SO_OOBINLINE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3200	level = SOL_SOCKET;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3201	usize = sizeof(u.u_bool);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3202	if (arg1 == true) u.u_bool = TRUE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3203	else if (arg1 == false) u.u_bool = FALSE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3204	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3205	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3206	# endif /* SO_OOBINLINE */
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3207
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3208	# ifdef SO_RCVBUF
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3209	if (option == @symbol(SO_RCVBUF)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3210	/* Specifies the total per-socket buffer space reserved for receives.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3211	This is unrelated to SO_MAX_MSG_SIZE or the size of a TCP window. */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3212	opt = SO_RCVBUF;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3213	level = SOL_SOCKET;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3214	usize = sizeof(u.u_int);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3215	if (__isSmallInteger(arg1))u.u_int = __intVal(arg1);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3216	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3217	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3218	# endif /* SO_RCVBUF */
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3219
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3220	# ifdef SO_SNDBUF
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3221	if (option == @symbol(SO_SNDBUF)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3222	/* Specifies the total per-socket buffer space reserved for sends.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3223	This is unrelated to SO_MAX_MSG_SIZE or the size of a TCP window. */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3224	opt = SO_SNDBUF;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3225	level = SOL_SOCKET;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3226	usize = sizeof(u.u_int);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3227	if (__isSmallInteger(arg1))u.u_int = __intVal(arg1);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3228	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3229	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3230	# endif /* SO_SNDBUF */
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3231
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3232	# ifdef SO_REUSEADDR
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3233	if (option == @symbol(SO_REUSEADDR)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3234	/* Allows the socket to be bound to an address that is already in use. */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3235	opt = SO_REUSEADDR;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3236	level = SOL_SOCKET;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3237	usize = sizeof(u.u_bool);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3238	if (arg1 == true) u.u_bool = TRUE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3239	else if (arg1 == false) u.u_bool = FALSE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3240	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3241	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3242	# endif /* SO_OOBINLINE */
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3243
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3244	# ifdef SO_EXCLUSIVEADDRUSE
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3245	if (option == @symbol(SO_EXCLUSIVEADDRUSE)) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3246	/* Enables a socket to be bound for exclusive access.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3247	Does not require administrative privilege. */
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3248	opt = SO_EXCLUSIVEADDRUSE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3249	level = SOL_SOCKET;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3250	usize = sizeof(u.u_bool);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3251	if (arg1 == true) u.u_bool = TRUE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3252	else if (arg1 == false) u.u_bool = FALSE;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3253	else goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3254	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3255	# endif /* SO_OOBINLINE */
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3256
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3257	if (usize == -1) goto argError;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3258
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3259	ok = ( setsockopt( sock, level, opt, (char *)(&u), usize) >= 0) ? true : false;
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3260	}
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3261	argError: ;
2818 94d67df5c00d compilable with tcc Claus Gittinger <cg@exept.de> parents: 2773 diff changeset	3262	#endif /* NO_SOCKET */
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3263	%}.
911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3264	ok isNil ifTrue:[
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3265	self primitiveFailed
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3266	].
911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3267	ok ifFalse:[
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3268	'setsocketoption failed' infoPrintCR.
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3269	].
2551 6da1bc89b74a changed: Stefan Vogel <sv@exept.de> parents: 2516 diff changeset	3270	!
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3271
2823 10179ccfae5d Default for close - linger in background instead 30s in foreground Stefan Vogel <sv@exept.de> parents: 2818 diff changeset	3272	shutdown:howNum
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3273	"shutDown the socket - inform it that no more I/O will be performed.
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3274	0 - read side (no further reads)
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3275	the tcp receive window is closed, so the peer cannot send more data.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3276	1 - write side (no further writes)
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3277	first, all queued data will be delivered to the peer.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3278	Then, an orderly release (TCP FIN) is sent to signal the peer,
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3279	that we will not send more data.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3280	2 - both read side and write side."
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3281
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3282	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3283	#ifndef NO_SOCKET
2823 10179ccfae5d Default for close - linger in background instead 30s in foreground Stefan Vogel <sv@exept.de> parents: 2818 diff changeset	3284	OBJ __handle = __INST(handle);
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3285
2823 10179ccfae5d Default for close - linger in background instead 30s in foreground Stefan Vogel <sv@exept.de> parents: 2818 diff changeset	3286	if ((__handle != nil) && __isSmallInteger(howNum)) {
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3287	SOCKET sock = SOCKET_FROM_FILE_OBJECT(__handle);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3288	INT how = __intVal(howNum);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3289	INT ret;
2823 10179ccfae5d Default for close - linger in background instead 30s in foreground Stefan Vogel <sv@exept.de> parents: 2818 diff changeset	3290
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3291	# ifdef DO_WRAP_CALLS
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3292	do {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3293	__threadErrno = 0;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3294	DBGFPRINTF((stderr, "SOCKET: shutDown...\n"));
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3295	ret = (INT)STX_WSA_NOINT_CALL2("shutdown", shutdown, sock, how);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3296	DBGFPRINTF((stderr, "SOCKET: shutDown -> %d (%d)\n", ret, __threadErrno));
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3297	} while ((ret < 0) && (__threadErrno == EINTR));
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3298	# else
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3299	if (how > 0 && __INST(buffered) == true) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3300	fflush(fp);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3301	}
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3302	__BEGIN_INTERRUPTABLE__
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3303	shutdown(sock, how);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3304	__END_INTERRUPTABLE__
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3305	# endif
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3306	}
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3307	#endif
1339 cc973a42aa54 shutdown: added Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	3308	%}.
781 4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3309	! !
4d61e7588ff3 added #waitForNewConnectionOrDataOnAny:timeout: Claus Gittinger <cg@exept.de> parents: 776 diff changeset	3310
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3311	!Socket methodsFor:'printing & storing'!
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3312
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3313	printOn:aStream
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3314	aStream nextPutAll:self className; nextPutAll:'(protocol='.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3315	protocol printOn:aStream.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3316	aStream nextPutAll:' port='.
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3317	self port printOn:aStream.
1462 5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	3318	aStream nextPutAll:' peer='.
5602fce52b42 squeak stuff Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	3319	peer printOn:aStream.
1842 88c04d1e9e6b changed #printOn: Stefan Vogel <sv@exept.de> parents: 1839 diff changeset	3320	aStream nextPut:$).
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3321	! !
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3322
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3323	!Socket methodsFor:'queries'!
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3324
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3325	domain
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3326	"return the sockets addressing domain (i.e. #AF_INET, #AF_INET6, #AF_UNIX, ...)"
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3327
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3328	^ domain
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3329	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3330
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3331	getFullPeerAddress
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3332	"implemented for swazoo project (primitive code can't be loaded as extension)
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3333	Answer my own address (I am bound to this address).
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3334	Note that this address may change after a connect or accept."
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3335
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3336	\|error domainClass addr\|
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3337
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3338	handle isNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3339	^ self errorNotOpen
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3340	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3341
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3342	domainClass := self class socketAddressClassForDomain:domain.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3343	domainClass isNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3344	^ self error:'invalid (unsupported) domain'.
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3345	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3346	addr := domainClass new.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3347
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3348	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3349	#ifndef NO_SOCKET
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3350	OBJ fp = __INST(handle);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3351	SOCKET sock;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3352	int ret;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3353	union sockaddr_u sa;
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3354	unsigned int alen = sizeof(sa);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3355	char *addrP;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3356	int addrObjSize, nAddrInstBytes;
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3357	OBJ addrClass;
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3358	int nAddrInstVars;
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3359
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3360	if (!__isNonNilObject(addr) \|\| !__isBytes(addr)) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3361	DBGPRINTF(("SOCKET: bad addr\n"));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3362	error = @symbol(badArgument);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3363	goto err;
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3364	}
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3365
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3366	addrClass = __qClass(addr);
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3367	nAddrInstVars = __intVal(__ClassInstPtr(addrClass)->c_ninstvars);
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3368	nAddrInstBytes = OHDR_SIZE + (nAddrInstVars * sizeof(OBJ));
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3369	addrObjSize = __qSize(addr) - nAddrInstBytes;
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3370
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3371	sock = SOCKET_FROM_FILE_OBJECT(fp);
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3372	ret = getpeername(sock, (struct sockaddr *)&sa, &alen);
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3373	if (ret < 0) {
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3374	# ifdef WIN32
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3375	errno = WSAGetLastError();
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3376	# endif
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3377	DBGPRINTF(("SOCKET: getsocketname failed ret=%d errno=%d\n", ret, errno));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3378	error = __MKSMALLINT(errno);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3379	goto err;
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3380	}
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3381
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3382	if (addrObjSize < alen) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3383	DBGPRINTF(("SOCKET: bad addr\n"));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3384	error = @symbol(badArgument);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3385	goto err;
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3386	}
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3387
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3388	addrP = (char *)__InstPtr(addr) + nAddrInstBytes;
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3389	memcpy(addrP, (char *)&sa, alen);
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3390
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3391	err:;
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3392	#else /* NO_SOCKET */
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3393	error = @symbol(notImplemented);
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3394	#endif /* NO_SOCKET */
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3395	%}.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3396	error notNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3397	^ self errorReporter reportOn:error
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3398	].
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3399	^ addr
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3400	!
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3401
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3402	getFullSocketAddress
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3403	"implemented for swazoo project (primitive code can't be loaded as extension)
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3404	Answer my own address (I am bound to this address).
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3405	Note that this address may change after a connect or accept."
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3406
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3407	\|error domainClass addr\|
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3408
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3409	handle isNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3410	^ self errorNotOpen
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3411	].
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3412
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3413	domainClass := self class socketAddressClassForDomain:domain.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3414	domainClass isNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3415	^ self error:'invalid (unsupported) domain'.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3416	].
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3417	addr := domainClass new.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3418
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3419	%{
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3420	#ifndef NO_SOCKET
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3421	OBJ fp = __INST(handle);
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3422	SOCKET sock;
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3423	int ret;
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3424	union sockaddr_u sa;
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3425	unsigned int alen = sizeof(sa);
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3426	char *addrP;
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3427	int addrObjSize, nAddrInstBytes;
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3428
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3429	if (!__isNonNilObject(addr) \|\| !__isBytes(addr)) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3430	DBGPRINTF(("SOCKET: bad addr\n"));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3431	error = @symbol(badArgument);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3432	goto err;
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3433	}
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3434
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3435	{
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3436	OBJ addrClass;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3437	int nAddrInstVars;
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3438
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3439	addrClass = __qClass(addr);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3440	nAddrInstVars = __intVal(__ClassInstPtr(addrClass)->c_ninstvars);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3441	nAddrInstBytes = OHDR_SIZE + (nAddrInstVars * sizeof(OBJ));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3442	addrObjSize = __qSize(addr) - nAddrInstBytes;
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3443	}
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3444
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3445	sock = SOCKET_FROM_FILE_OBJECT(fp);
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3446	ret = getsockname(sock, (struct sockaddr *)&sa, &alen);
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3447	if (ret < 0) {
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3448	# ifdef WIN32
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3449	errno = WSAGetLastError();
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3450	# endif
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3451	DBGPRINTF(("SOCKET: getsocketname failed ret=%d errno=%d\n", ret, errno));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3452	error = __MKSMALLINT(errno);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3453	goto err;
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3454	}
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3455
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3456	if (addrObjSize < alen) {
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3457	DBGPRINTF(("SOCKET: bad addr\n"));
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3458	error = @symbol(badArgument);
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3459	goto err;
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3460	}
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3461
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3462	addrP = (char *)__InstPtr(addr) + nAddrInstBytes;
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3463	memcpy(addrP, (char *)&sa, alen);
1535 f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3464
f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3465	err:;
f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3466	#else /* NO_SOCKET */
f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3467	error = @symbol(notImplemented);
f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3468	#endif /* NO_SOCKET */
f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3469	%}.
f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3470	error notNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3471	^ self errorReporter reportOn:error
1535 f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3472	].
f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3473	^ addr
f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3474	!
f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3475
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3476	getName
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3477	"return the name; here, we return the ports name"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3478
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3479	^ self port printString
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3480	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3481
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3482	getPeer
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3483	"ST-80 compatibility: return an IPSocketAddress instance representing
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3484	my hostname/port combination.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3485	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	3486
1187 7e5f2f6b177d getHostByAddr - call is now done lazy, when the socket is asked for the peer Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	3487	^ peer
102 5dc264007513 added getPeer for ST-80 compatibility Claus Gittinger <cg@exept.de> parents: 99 diff changeset	3488	!
5dc264007513 added getPeer for ST-80 compatibility Claus Gittinger <cg@exept.de> parents: 99 diff changeset	3489
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3490	getPeerName
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3491	"return the peer name; thats the hostname (or dotted name) of the
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	3492	partners host after an accept."
996051271ce9 * empty log message * claus parents: 21 diff changeset	3493
1187 7e5f2f6b177d getHostByAddr - call is now done lazy, when the socket is asked for the peer Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	3494	peerName isNil ifTrue:[
1343 cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	3495	peerName := self class peerNameFromDomain:domain peer:peer.
1187 7e5f2f6b177d getHostByAddr - call is now done lazy, when the socket is asked for the peer Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	3496	].
25 996051271ce9 * empty log message * claus parents: 21 diff changeset	3497	^ peerName
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3498	!
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3499
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3500	getSocketAddress
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3501	"implemented for swazoo project primitive code cant load as extension
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3502	answer my own address (I am bound to this address).
1146 71a9df78ba9e bad spelling Stefan Vogel <sv@exept.de> parents: 1136 diff changeset	3503	Note that this address may change after connect or accept."
1029 5906977e62f0 implement getSocketName for swazoo as primitive cant load as extension penk parents: 1010 diff changeset	3504
1535 f6aa0fc8c3cc getSocketAddress Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3505	^ self getFullSocketAddress hostAddress
1146 71a9df78ba9e bad spelling Stefan Vogel <sv@exept.de> parents: 1136 diff changeset	3506	!
71a9df78ba9e bad spelling Stefan Vogel <sv@exept.de> parents: 1136 diff changeset	3507
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3508	isActive
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3509	"return true, if the receiver has a connection"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3510
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3511	^ handle notNil
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3512	!
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3513
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3514	isConnected
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3515	"return true, if the receiver has a connection"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3516
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3517	^ self isActive
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3518	and:[peer notNil]
1558 a563aac90660 No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is Stefan Vogel <sv@exept.de> parents: 1542 diff changeset	3519	!
a563aac90660 No need to ask Socket>>#networkXXXOrderIsMSB, because the return value is Stefan Vogel <sv@exept.de> parents: 1542 diff changeset	3520
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3521	port
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3522	"return the port number (or name for unix-sockets) to which the socket is bound
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3523	- so this is the local port."
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3524
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3525	"/ port isNil ifTrue:[
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3526	"/ port := self getFullSocketAddress port.
1505 5f65beb4aedd BUGFIX Stefan Vogel <sv@exept.de> parents: 1504 diff changeset	3527	"/ ].
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	3528
71 632e2cc151c9 . claus parents: 63 diff changeset	3529	^ port
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3530	!
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3531
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3532	socketAddressClass
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3533	"get the matchon SocketAddress class for this socket"
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3534
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3535	\|domainClass\|
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3536
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3537	domainClass := self class socketAddressClassForDomain:domain.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3538	domainClass isNil ifTrue:[
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3539	^ self error:'invalid (unsupported) domain'.
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3540	].
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3541	^ domainClass.
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3542	!
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3543
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3544	type
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3545	"return the sockets connection type (i.e. #datagram, #stream etc)"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3546
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3547	^ socketType
81 f385f13d22df . claus parents: 79 diff changeset	3548	! !
f385f13d22df . claus parents: 79 diff changeset	3549
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3550	!Socket methodsFor:'socket setup'!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3551
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3552	domain:domainArg type:typeArg
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3553	"set up socket with domain and type.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3554	This is a low level entry; no binding, listening or connect
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3555	is done. Both arguments must be symbols from one of
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3556	#AF_INET, #AF_INET6, #AF_UNIX ... and #stream, #datagram, #raw resp."
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3557
3137 df3e9cebf52c class: Socket Stefan Vogel <sv@exept.de> parents: 3127 diff changeset	3558	^ self domain:domainArg type:typeArg protocol:nil
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3559	!
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3560
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3561	domain:domainArg type:typeArg protocol:protocolNumber
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3562	"set up socket with domain, type and protocol number.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3563	This is a low level entry; no binding, listening or connect
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3564	is done. Both arguments must be symbols from one of
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3565	#AF_INET, #AF_INET6, #AF_UNIX ... and #stream, #datagram, #raw resp."
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3566
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3567	\|domainName domainCode typeCode error newHandle\|
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3568
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3569	handle notNil ifTrue:[
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3570	^ self errorAlreadyOpen
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3571	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3572	domainName := SocketAddress domainCodeFromName:domainArg.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3573	domainCode := OperatingSystem domainCodeOf:domainName.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3574	typeCode := OperatingSystem socketTypeCodeOf:typeArg.
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3575	newHandle := OperatingSystem socketAccessor new.
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3576	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3577	#ifndef NO_SOCKET
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3578	FILE *fp;
3137 df3e9cebf52c class: Socket Stefan Vogel <sv@exept.de> parents: 3127 diff changeset	3579	int dom, typ, proto = 0;
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3580	int on = 1;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3581	SOCKET sock;
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3582	int _fd;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3583
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3584	# ifdef WIN32
55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3585	# ifndef WSA_FLAG_NO_HANDLE_INHERIT
55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3586	# define WSA_FLAG_NO_HANDLE_INHERIT 0x80
55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3587	# endif
55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3588	static int noInheritFlag = WSA_FLAG_NO_HANDLE_INHERIT;
55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3589	# endif
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3590
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3591	if (! __isSmallInteger(domainCode)) {
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3592	error = @symbol(badArgument1);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3593	goto out;
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3594	}
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3595	if (! __isSmallInteger(typeCode)) {
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3596	error = @symbol(badArgument2);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3597	goto out;
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3598	}
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3599	if (protocolNumber != nil) {
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3600	if (!__isSmallInteger(protocolNumber)) {
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3601	error = @symbol(badArgument3);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3602	goto out;
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3603	}
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3604	proto = __intVal(protocolNumber);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3605	}
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3606
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3607	/*
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3608	* get address and protocol-family
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3609	*/
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3610	dom = __intVal(domainCode);
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3611	typ = __intVal(typeCode);
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3612
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3613	# ifdef WIN32
55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3614	sock = WSASocket(dom, typ, proto, 0, 0, noInheritFlag);
55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3615	if (sock == INVALID_SOCKET && noInheritFlag) {
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3616	// tried to open socket with WSA_FLAG_NO_HANDLE_INHERIT
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3617	// This fails on older windows versions, e.g. Windows XP
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3618	sock = WSASocket(dom, typ, proto, 0, 0, 0);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3619	if (sock != INVALID_SOCKET) {
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3620	// no error without WSA_FLAG_NO_HANDLE_INHERIT,
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3621	// never use this flag again!
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3622	noInheritFlag = 0;
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3623	}
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3624	}
55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3625	if (sock == INVALID_SOCKET) {
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3626	errno = WSAGetLastError();
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3627
55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3628	# else // !WIN32
55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3629
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3630	sock = socket(dom, typ, proto);
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3631	# if defined(EPROTONOSUPPORT) /* for SGI */
55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3632	if ((sock < 0) && (proto != 0) && (errno == EPROTONOSUPPORT)) {
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3633	DBGPRINTF(("SOCKET: retry with UNSPEC protocol\n"));
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3634	proto = 0;
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3635	sock = socket(dom, typ, 0);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3636	}
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3637	# endif
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3638	if (sock < 0) {
55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3639	# endif // !WIN32
55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3640
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3641	DBGPRINTF(("SOCKET: socket(dom=%d typ=%d proto=%d) call failed errno=%d\n", dom, typ, proto, errno));
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3642	error = __MKSMALLINT(errno);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3643	} else {
3123 55ef9ca4f09f class: Socket Stefan Vogel <sv@exept.de> parents: 3077 diff changeset	3644	# if defined(SET_LINGER_WHEN_CREATING_SOCKET) && defined(SO_LINGER)
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3645	{
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3646	struct linger l;
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3647
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3648	l.l_onoff = 1;
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3649	l.l_linger = 30;
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3650	setsockopt( sock, SOL_SOCKET, SO_LINGER, &l, sizeof(l));
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3651	}
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3652	# endif
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3653	# ifdef WIN32
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3654	/*
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3655	* make it blocking
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3656	*/
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3657	{
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3658	unsigned long zero = 0;
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3659	ioctlsocket(sock, FIONBIO, &zero);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3660	}
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3661	{
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3662	# if 0 && (defined( __BORLANDC__ ) \|\| defined( __MINGW__ ))
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3663	/*
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3664	* make it a FILE *
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3665	*/
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3666	__stxWrapApiEnterCritical();
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3667	_fd = _open_osfhandle((long)sock, 0);
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3668	__stxWrapApiLeaveCritical();
2773 ab3049f4a351 * empty log message * Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	3669	# else
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3670	_fd = (int)sock;
2773 ab3049f4a351 * empty log message * Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	3671	# endif
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3672	DBGPRINTF(("SOCKET: sock=%d fd=%d\n", sock, _fd));
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3673	}
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3674	# else // !WIN32
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3675	fp = fdopen(sock, "r+");
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3676	if (! fp) {
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3677	DBGPRINTF(("SOCKET: fdopen call failed\n"));
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3678	error = __MKSMALLINT(errno);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3679	__BEGIN_INTERRUPTABLE__
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3680	closesocket(sock);
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3681	DBGFPRINTF((stderr, "SOCKET: fdopen failed (%d)\n", sock));
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3682	__END_INTERRUPTABLE__
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3683	goto out;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3684	}
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3685	# endif // !WIN32
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3686
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3687	if (@global(FileOpenTrace) == true) {
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3688	# ifdef WIN32
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3689	console_fprintf(stderr, "fdopen [Socket create] -> fd: %d (H: %"_lx_")\n", (INT)_fd, (INT)sock);
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3690	# else
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3691	console_fprintf(stderr, "fdopen [Socket] -> %"_lx_" (fd: %d)\n", (INT)fp, sock);
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3692	# endif
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3693	}
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3694
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3695	# ifdef WIN32
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3696	__externalAddressVal(newHandle) = _fd;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3697	__INST(handleType) = @symbol(socketHandle);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3698	# else
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3699	__externalAddressVal(newHandle) = fp;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3700	__INST(handleType) = @symbol(socketFilePointer);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3701	# endif
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3702	}
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3703	#endif
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3704	out:;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3705	%}.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3706
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3707	"all ok?"
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3708	handleType notNil ifTrue:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3709	handle := newHandle.
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3710	domain := domainArg.
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3711	socketType := typeArg.
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3712	Lobby register:self.
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3713	^ self.
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3714	].
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3715	error isInteger ifTrue:[
3223 b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3716	lastErrorNumber := error.
b126729a904b class: Socket Stefan Vogel <sv@exept.de> parents: 3218 diff changeset	3717	^ self openError:error.
3217 6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3718	].
6950d2d3aecf class: Socket Stefan Vogel <sv@exept.de> parents: 3215 diff changeset	3719	^ self primitiveFailed:error.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3720
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3721	"
3059 8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3722	Socket new domain:#AF_INET type:#stream
8be3c1e8dc05 class: Socket Stefan Vogel <sv@exept.de> parents: 3043 diff changeset	3723	Socket new domain:#AF_UNIX type:#stream
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3724	"
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3725	! !
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3726
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3727	!Socket methodsFor:'special'!
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3728
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3729	reOpenIfPossible
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3730	"If the socket was listening (server-sockets), try to reopen it"
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3731
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3732	listening ifFalse:[ ^ self ].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3733	[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3734	self domain:domain type:socketType protocol:protocol reuseAddress:true.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3735	self bindTo:port address:nil.
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3736	self listenFor: 5
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3737	] on: OpenError do:[
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3738	"Nothing, socket could not be reopened"
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3739	].
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3740
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3741	"Created: / 17-08-2012 / 15:43:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3742	! !
3214 ea8288395d80 class: Socket Stefan Vogel <sv@exept.de> parents: 3157 diff changeset	3743
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3744	!Socket methodsFor:'specials'!
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3745
3224 bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3746	linger:anIntegerOrNil
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3747	"set the linger behavior on close:
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3748	anIntegerOrNil == nil: close returns immediately, socket tries
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3749	to send buffered data in background.
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3750	anIntegerOrNil == 0: close returns immediately, bufferd data is discarded.
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3751	anIntegerOrNil > 0: close waits this many seconds for buffered data
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3752	to be delivered, after this time buffered data is
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3753	discarded and close returns"
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3754
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3755	^ self
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3756	setSocketOption:#'SO_LINGER'
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3757	argument:anIntegerOrNil notNil
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3758	argument:anIntegerOrNil.
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3759	!
bad706c50347 class: Socket Stefan Vogel <sv@exept.de> parents: 3223 diff changeset	3760
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3761	receiveBufferSize
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3762	"get the send buffer size - for special applications only.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3763	Not all operatingSystems offer this functionality
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3764	(returns nil, if unsupported)"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3765
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3766	handle isNil ifTrue:[
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3767	^ self errorNotOpen
1335 0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3768	].
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3769	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3770	#if defined(SO_RCVBUF) && defined(SOL_SOCKET)
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3771	{
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3772	OBJ fp = __INST(handle);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3773	SOCKET sock;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3774	int opt;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3775	unsigned int size;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3776
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3777	sock = SOCKET_FROM_FILE_OBJECT(fp);
1568 3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3778	if (getsockopt(sock, SOL_SOCKET, SO_RCVBUF, (char *)&opt, &size) >= 0) {
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3779	RETURN( __MKSMALLINT(opt) );
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3780	}
1335 0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3781	}
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3782	#endif
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3783	%}.
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3784	^ nil
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3785	!
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3786
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3787	receiveBufferSize:size
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3788	"set the receive buffer size - for special applications only.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3789	Not all operatingSystems offer this functionality
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3790	(returns false, if unsupported)"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3791
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3792	handle isNil ifTrue:[
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3793	^ self errorNotOpen
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3794	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3795	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3796	#if defined(SO_RCVBUF) && defined(SOL_SOCKET)
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3797	if (__isSmallInteger(size)) {
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3798	OBJ fp = __INST(handle);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3799	SOCKET sock;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3800	int opt;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3801
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3802	sock = SOCKET_FROM_FILE_OBJECT(fp);
1343 cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	3803	opt = __intVal(size);
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3804	if (setsockopt(sock, SOL_SOCKET, SO_RCVBUF, (char *)&opt, sizeof(int)) >= 0 ) {
911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3805	RETURN(true);
911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3806	}
1335 0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3807	}
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3808	#endif
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3809	%}.
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3810	^ false
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3811	!
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3812
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3813	receiveTimeout
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3814	"get the receive timeout in millis - for special applications only.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3815	Not all operatingSystems offer this functionality
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3816	(returns nil, if unsupported)"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3817
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3818	\|millis\|
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3819
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3820	handle isNil ifTrue:[
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3821	^ self errorNotOpen
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3822	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3823	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3824	#if defined(SO_RCVTIMEO) && defined(SOL_SOCKET)
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3825	OBJ fp = __INST(handle);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3826	SOCKET sock = SOCKET_FROM_FILE_OBJECT(fp);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3827	int len;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3828	int __millis;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3829	struct timeval tv = {0, 0};
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3830
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3831	len = sizeof(struct timeval);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3832	if (getsockopt(sock, SOL_SOCKET, SO_RCVTIMEO, (void *)&tv, &len) == 0) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3833	__millis = (tv.tv_sec * 1000) + (tv.tv_usec / 1000);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3834	millis = __mkSmallInteger(__millis);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3835	# if 0
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3836	console_fprintf(stderr, "getsockopt -> s:%d us:%d -> millis:%d\n", tv.tv_sec, tv.tv_usec, __millis);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3837	# endif
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3838	} else {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3839	console_fprintf(stderr, "Socket [warning]: getsockopt %d failed; errno=%d\n", sock, errno);
1568 3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3840	}
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3841	#endif
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3842	%}.
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3843	millis notNil ifTrue:[^ millis / 1000 ].
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3844	^ nil
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3845	!
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3846
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3847	receiveTimeout:seconds
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3848	"set the receive timeout - for special applications only.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3849	Not all operatingSystems offer this functionality
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3850	(returns false, if unsupported)"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3851
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3852	\|millis\|
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3853
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3854	handle isNil ifTrue:[
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3855	^ self errorNotOpen
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3856	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3857	millis := (seconds * 1000) rounded.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3858	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3859	#if defined(SO_RCVTIMEO) && defined(SOL_SOCKET)
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3860	if (__isSmallInteger(millis)) {
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3861	OBJ fp = __INST(handle);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3862	SOCKET sock = SOCKET_FROM_FILE_OBJECT(fp);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3863	int __millis = __intVal(millis);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3864	struct timeval tv = {0, 0};
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3865
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3866	tv.tv_sec = __millis / 1000;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3867	tv.tv_usec = (__millis % 1000) * 1000;
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3868	# if 0
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3869	console_fprintf(stderr, "setsockopt -> millis:%d -> s:%d us:%d \n", __millis, tv.tv_sec, tv.tv_usec);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3870	# endif
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3871	if (setsockopt(sock, SOL_SOCKET, SO_RCVTIMEO, (void *)&tv, sizeof(struct timeval)) == 0) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3872	RETURN(true);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3873	}
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3874	console_fprintf(stderr, "Socket [warning]: setsockopt %d failed; errno=%d\n", sock, errno);
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3875	}
350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3876	#endif
71 632e2cc151c9 . claus parents: 63 diff changeset	3877	%}.
28 350f8e9493a4 * empty log message * claus parents: 25 diff changeset	3878	^ false
81 f385f13d22df . claus parents: 79 diff changeset	3879	!
f385f13d22df . claus parents: 79 diff changeset	3880
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3881	sendBufferSize
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3882	"get the send buffer size - for special applications only.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3883	Not all operatingSystems offer this functionality
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3884	(returns nil, if unsupported)"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3885
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3886	handle isNil ifTrue:[
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3887	^ self errorNotOpen
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3888	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3889	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3890	#if defined(SO_SNDBUF) && defined(SOL_SOCKET)
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3891	{
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3892	OBJ fp = __INST(handle);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3893	SOCKET sock;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3894	int opt;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3895	unsigned int size;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3896
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3897	sock = SOCKET_FROM_FILE_OBJECT(fp);
1568 3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3898	if (getsockopt(sock, SOL_SOCKET, SO_SNDBUF, (char *)&opt, &size) >= 0) {
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3899	RETURN( __MKSMALLINT(opt) );
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3900	}
1335 0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3901	}
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3902	#endif
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3903	%}.
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3904	^ nil
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3905	!
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3906
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3907	sendBufferSize:size
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3908	"set the send buffer size - for special applications only.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3909	Not all operatingSystems offer this functionality
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3910	(returns false, if unsupported)"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3911
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3912	handle isNil ifTrue:[
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3913	^ self errorNotOpen
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3914	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3915	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3916	#if defined(SO_SNDBUF) && defined(SOL_SOCKET)
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3917	if (__isSmallInteger(size)) {
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3918	OBJ fp = __INST(handle);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3919	SOCKET sock;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3920	int opt;
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3921
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3922	sock = SOCKET_FROM_FILE_OBJECT(fp);
1343 cc3bed115c0a definitions cleanup with stxOSDefs.h penk parents: 1342 diff changeset	3923	opt = __intVal(size);
1529 911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3924	if (setsockopt(sock, SOL_SOCKET, SO_SNDBUF, (char *)&opt, sizeof(int)) >= 0) {
911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3925	RETURN(true);
911273d090c1 Re-unified Win32 and Unix code into single Socket.st. Claus Gittinger <cg@exept.de> parents: 1505 diff changeset	3926	}
1335 0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3927	}
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3928	#endif
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3929	%}.
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3930	^ false
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3931	!
0fafb78d7a80 sockopt utilities added Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3932
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3933	sendTimeout
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3934	"get the send timeout in millis - for special applications only.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3935	Not all operatingSystems offer this functionality
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3936	(returns nil, if unsupported)"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3937
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3938	\|millis\|
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3939
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3940	handle isNil ifTrue:[
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3941	^ self errorNotOpen
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3942	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3943	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3944	#if defined(SO_SNDTIMEO) && defined(SOL_SOCKET)
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3945	OBJ fp = __INST(handle);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3946	SOCKET sock = SOCKET_FROM_FILE_OBJECT(fp);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3947	int len;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3948	int __millis;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3949	struct timeval tv = {0, 0};
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3950
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3951	len = sizeof(struct timeval);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3952	if (getsockopt(sock, SOL_SOCKET, SO_SNDTIMEO, (void *)&tv, &len) == 0) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3953	__millis = (tv.tv_sec * 1000) + (tv.tv_usec / 1000);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3954	millis = __mkSmallInteger(__millis);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3955	# if 0
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3956	console_fprintf(stderr, "getsockopt -> s:%d us:%d -> millis:%d\n", tv.tv_sec, tv.tv_usec, __millis);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3957	# endif
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3958	} else {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3959	console_fprintf(stderr, "Socket [warning]: getsockopt %d failed; errno=%d\n", sock, errno);
1568 3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3960	}
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3961	#endif
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3962	%}.
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3963	millis notNil ifTrue:[^ millis / 1000 ].
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3964	^ nil
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3965	!
3bca500e0c7a send and receiveTimeout fixed Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3966
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3967	sendTimeout:seconds
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3968	"set the send timeout - for special applications only.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3969	Not all operatingSystems offer this functionality
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3970	(returns false, if unsupported)"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3971
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3972	\|millis\|
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3973
2321 6f4cc7b644db filePointer -> handle migration Claus Gittinger <cg@exept.de> parents: 2308 diff changeset	3974	handle isNil ifTrue:[
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3975	^ self errorNotOpen
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3976	].
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3977	millis := (seconds * 1000) rounded.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3978	%{
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3979	#if defined(SO_SNDTIMEO) && defined(SOL_SOCKET)
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3980	if (__isSmallInteger(millis)) {
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3981	OBJ fp = __INST(handle);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3982	SOCKET sock = SOCKET_FROM_FILE_OBJECT(fp);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3983	int __millis = __intVal(millis);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3984	struct timeval tv = {0, 0};
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3985
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3986	tv.tv_sec = __millis / 1000;
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3987	tv.tv_usec = (__millis % 1000) * 1000;
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3988	# if 0
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3989	console_fprintf(stderr, "setsockopt -> millis:%d -> s:%d us:%d \n", __millis, tv.tv_sec, tv.tv_usec);
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	3990	# endif
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3991	if (setsockopt(sock, SOL_SOCKET, SO_SNDTIMEO, (void *)&tv, sizeof(struct timeval)) == 0) {
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3992	RETURN(true);
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3993	}
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	3994	console_fprintf(stderr, "Socket [warning]: setsockopt %d failed; errno=%d\n", sock, errno);
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3995	}
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3996	#endif
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3997	%}.
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	3998	^ false
1340 eb9b1f1340e5 setTCP_NODELAY Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	3999	!
eb9b1f1340e5 setTCP_NODELAY Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	4000
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4001	setTCPCork:aBoolean
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4002	"enable/disable TCP_CORK (do-not-send-partial-frames)
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4003	For special applications only.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4004	Not all OperatingSystems offer this functionality
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4005	(returns false, if unsupported)"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4006
2551 6da1bc89b74a changed: Stefan Vogel <sv@exept.de> parents: 2516 diff changeset	4007	^ self setSocketOption:#'TCP_CORK' argument:aBoolean argument:nil.
1885 4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4008	!
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4009
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4010	setTCPNoDelay:aBoolean
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4011	"enable/disable TCP_NODELAY (i.e. disable/enable the Nagle algorithm)
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4012	For special applications only.
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4013	Not all OperatingSystems offer this functionality
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4014	(returns false, if unsupported)"
4d424e94093c oops Claus Gittinger <cg@exept.de> parents: 1884 diff changeset	4015
2551 6da1bc89b74a changed: Stefan Vogel <sv@exept.de> parents: 2516 diff changeset	4016	^ self setSocketOption:#'TCP_NODELAY' argument:aBoolean argument:nil.
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 119 diff changeset	4017	! !
82 3b0854e2a3bb . claus parents: 81 diff changeset	4018
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	4019	!Socket methodsFor:'testing'!
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	4020
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	4021	isSocket
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	4022	^true
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	4023
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	4024	"Created: / 17-08-2012 / 15:32:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	4025	! !
3043 8b7ec7116ae3 class: Socket Stefan Vogel <sv@exept.de> parents: 2998 diff changeset	4026
1935 326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4027	!Socket methodsFor:'waiting'!
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4028
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4029	waitForNewConnectionOrDataOnAny:otherConnections timeout:timeoutSeconds
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4030	"suspend the current process, until either a new connection comes
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4031	in at the receiver, or data arrives on any of the otherConnections.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4032	For a new connection, an accept is performed and the new socket is returned.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4033	For an old connection, that socket is returned.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4034	In any case, the caller gets a socket to operate on as return value,
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4035	or nil, if a timeout occured.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4036	This method implements the inner wait-primitive of a multi-connection
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4037	server application."
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4038
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4039
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4040	\|wasBlocked sema\|
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4041
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4042	"first, a quick check if data is already available"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4043	self canReadWithoutBlocking ifTrue:[
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4044	^ self accept.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4045	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4046	otherConnections do:[:aConnection \|
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4047	aConnection canReadWithoutBlocking ifTrue:[
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4048	^ aConnection
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4049	]
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4050	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4051
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4052	[
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4053	"check again - prevent incoming interrupts from disturbing our setup"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4054	wasBlocked := OperatingSystem blockInterrupts.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4055
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4056	self canReadWithoutBlocking ifTrue:[
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4057	^ self accept.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4058	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4059	otherConnections do:[:aConnection \|
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4060	aConnection canReadWithoutBlocking ifTrue:[
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4061	^ aConnection
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4062	]
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4063	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4064
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4065	"nope - must wait"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4066	sema := Semaphore new name:'multiReadWait'.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4067	otherConnections do:[:aConnection \|
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4068	Processor signal:sema onInput:(aConnection fileDescriptor).
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4069	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4070	Processor signal:sema onInput:(self fileDescriptor).
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4071	timeoutSeconds notNil ifTrue:[
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4072	Processor signal:sema afterSeconds:timeoutSeconds
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4073	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4074	Processor activeProcess state:#ioWait.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4075	sema wait.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4076	] ensure:[
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4077	sema notNil ifTrue:[Processor disableSemaphore:sema].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4078	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4079	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4080
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4081	"see who it was ..."
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4082	self canReadWithoutBlocking ifTrue:[
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4083	^ self accept.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4084	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4085	otherConnections do:[:aConnection \|
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4086	aConnection canReadWithoutBlocking ifTrue:[
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4087	^ aConnection
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4088	]
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4089	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4090
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4091	"none - a timeout"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4092	^ nil
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4093	!
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4094
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4095	waitForNewConnectionWithTimeout:timeoutSeconds
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4096	"suspend the current process, until a new connection comes
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4097	in at the receiver or a timeout occurs.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4098	For a new connection, an accept is performed and the new socket is returned.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4099	Returns nil, if a timeout occured.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4100	This method implements the inner wait-primitive of a single-connection
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4101	server application."
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4102
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4103	(self readWaitWithTimeout:timeoutSeconds) ifTrue:[
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4104	"a timeout occurred - no connection within timeout"
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4105	^ nil
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4106	].
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4107	^ self accept.
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4108	! !
326f8d31e7ca Clean up: Stefan Vogel <sv@exept.de> parents: 1911 diff changeset	4109
464 600b101a7035 alen in accept Claus Gittinger <cg@exept.de> parents: 463 diff changeset	4110	!Socket class methodsFor:'documentation'!
206 77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	4111
77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	4112	version
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	4113	^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.303 2014-04-18 13:08:16 stefan Exp $'
2292 c4b0b901278e added: #standardTimeout Claus Gittinger <cg@exept.de> parents: 1940 diff changeset	4114	!
c4b0b901278e added: #standardTimeout Claus Gittinger <cg@exept.de> parents: 1940 diff changeset	4115
c4b0b901278e added: #standardTimeout Claus Gittinger <cg@exept.de> parents: 1940 diff changeset	4116	version_CVS
3246 c75a006f9a7a Win32 sockets use handles instead of file pointers Stefan Vogel <sv@exept.de> parents: 3224 diff changeset	4117	^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.303 2014-04-18 13:08:16 stefan Exp $'
206 77166a6b3ee6 For ST80 style socket creation: register socket in Lobby. Stefan Vogel <sv@exept.de> parents: 203 diff changeset	4118	! !
2953 855e7a58faa0 class: Socket Claus Gittinger <cg@exept.de> parents: 2915 diff changeset	4119

author	Stefan Vogel <sv@exept.de>
	Fri, 18 Apr 2014 15:08:16 +0200
changeset 3246	c75a006f9a7a
parent 3224	bad706c50347
child 3247	259f71b89b6e
permissions	-rw-r--r--