[Win32forth-cvs] win32forth/src/lib Sockets.f,1.1,1.2

[Jos v.d.V. <jo...@us...>]

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]