retroforth/source/interfaces/io/sockets.forth
crc 37422becc3 retro/unix: more sockets work: add socket:create and socket:close, stubs for calling the i/o functions
FossilOrigin-Name: f5a2154948a021c121477c7b70015b083900bf947d9bf4ba6b94c9d9f984b3c2
2019-06-06 12:48:27 +00:00

26 lines
847 B
Forth

~~~
{{
'io:Sockets var
:identify
@io:Sockets n:zero? [
#7 io:scan-for dup n:negative?
[ drop 'IO_DEVICE_TYPE_0004_NOT_FOUND s:put nl ]
[ !io:Sockets ] choose ] if ;
---reveal---
:io:socket-operation identify @io:Sockets io:invoke ;
}}
~~~
~~~
:socket:gethostbyname (as-) #0 io:socket-operation ;
:socket:create (-n) #1 io:socket-operation ;
:socket:bind (-) #2 io:socket-operation ;
:socket:listen (-) #3 io:socket-operation ;
:socket:accept (-) #4 io:socket-operation ;
:socket:connect (-) #5 io:socket-operation ;
:socket:send (-) #6 io:socket-operation ;
:socket:sendto (-) #7 io:socket-operation ;
:socket:recv (-) #8 io:socket-operation ;
:socket:recvfrom (-) #9 io:socket-operation ;
:socket:close (n-) #10 io:socket-operation ;
~~~