[commit] r3561 - ofw/inet

[repository service]

Author: quozl
Date: Wed Feb 20 03:42:42 2013
New Revision: 3561
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3561

Log:
inet, tcpapp, add support for applications that accept connections.

Modified:
   ofw/inet/tcpapp.fth

Modified: ofw/inet/tcpapp.fth
==============================================================================
--- ofw/inet/tcpapp.fth	Wed Feb 20 00:10:44 2013	(r3560)
+++ ofw/inet/tcpapp.fth	Wed Feb 20 03:42:42 2013	(r3561)
@@ -14,8 +14,9 @@
    dup  if  " $set-host" $call-tcp  else  2drop  then
 ;
 : tcp-connect  ( port# -- )
-   " connect" $call-tcp  0= abort" Connection refused
+   " connect" $call-tcp  0= abort" Connection refused"
 ;
+: tcp-accept  ( port# -- )  begin  dup " accept" $call-tcp  until  drop  ;
 : tcp-disconnect  ( -- )  " disconnect" $call-tcp  ;
 : open-tcp-connection  ( hostname$ port# -- )
    open-tcp  -rot set-tcp-server  tcp-connect