Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17248
Modified Files:
Sockets.f
Log Message:
Jos: CLIENT-OPEN- has the advantage that an application is able to decide what to do.
Index: Sockets.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Sockets.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Sockets.f 6 Jan 2007 12:27:51 -0000 1.1
--- Sockets.f 6 Jan 2007 12:37:12 -0000 1.2
***************
*** 174,177 ****
--- 174,187 ----
;
+ : CLIENT-OPEN- ( addr u port -- s IOR ) \ s IOR-0=OK
+ >r GetHostIP abort" Server not available "
+ r> CreateSocket DROP DUP >r
+ ConnectSocket dup
+ if cr . ." Can't connect " false
+ else drop true
+ then
+ r> swap
+ ;
+
\s
SocketsStartup [if] cr .( SocketsStartup error) abort [then]
|
