Changeset 3561


Ignore:
Timestamp:
Feb 20, 2013 3:42:42 AM (3 months ago)
Author:
quozl
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ofw/inet/tcpapp.fth

    r1 r3561  
    1515; 
    1616: tcp-connect  ( port# -- ) 
    17    " connect" $call-tcp  0= abort" Connection refused 
     17   " connect" $call-tcp  0= abort" Connection refused" 
    1818; 
     19: tcp-accept  ( port# -- )  begin  dup " accept" $call-tcp  until  drop  ; 
    1920: tcp-disconnect  ( -- )  " disconnect" $call-tcp  ; 
    2021: open-tcp-connection  ( hostname$ port# -- ) 
Note: See TracChangeset for help on using the changeset viewer.