Changeset 3561


Ignore:
Timestamp:
Feb 20, 2013, 2:42:42 AM (3 years 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.