[openfirmware] [commit] r3561 - ofw/inet
repository service
svn at openfirmware.info
Wed Feb 20 03:42:43 CET 2013
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
More information about the openfirmware
mailing list