do-send ( packet sockaddr len socket datagram -- )

Vocabulary

io.sockets.unix

Inputs

packet	an object
sockaddr	an object
len	an object
socket	an object
datagram	an object

Outputs

None

Definition

USING: combinators io.backend.unix io.files io.ports kernel libc
math sequences unix.ffi ;

IN: io.sockets.unix

:: do-send ( packet sockaddr len socket datagram -- )
    socket handle-fd packet dup length 0 sockaddr len sendto 0 < 
    [
        errno {
            {
                EINTR
                [ packet sockaddr len socket datagram do-send ]
            }
            {
                EAGAIN
                [
                    datagram +output+ wait-for-port
                    packet sockaddr len socket datagram do-send
                ]
            }
            [ (throw-errno) ]
        } case
    ] when ; inline recursive