Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

(tye)Re: Win32 Nonblocking Sockets

by tye (Sage)
on Apr 20, 2001 at 22:23 UTC ( [id://74264]=note: print w/replies, xml ) Need Help??


in reply to Re: Win32 Nonblocking Sockets
in thread Win32 Nonblocking Sockets

That calls IO::Handle::blocking whose code (found under ext/IO/IO.xs of the Perl source code distribution) boils down to this: 

static int
io_blocking(InputStream f, int block)
{
    int RETVAL;
    if(!f) {
    errno = EBADF;
    return -1;
    }
#if defined(HAS_FCNTL)
/* ... */
#else
 return -1;
#endif
}

[download]
and HAS_FCNTL isn't defined under Win32 so it just always return -1 under Win32.

I should try to patch that. ):

Anyway, it isn't much help right now.

        - tye (but my friends call me "Tye")

Replies are listed 'Best First'.
Re: (tye)Re: Win32 Nonblocking Sockets
by ncw (Friar) on Apr 21, 2001 at 02:50 UTC
    Windows does have fcntl but doesn't include O_NONBLOCK (according to mingw's headers). However I have coded non blocking sockets in a cross platform program. I used ioctl like this 
        int on = 1;
    int error = IOCTL(server_socket, FIONBIO, &on);
    if (error < 0)
        die("Couldn't set non-blocking");

    [download]
    Note that IOCTL == ioctl under unix and == ioctlsocket under windows.

    I don't know whether this is useful directly from perl under windows or not but it could certainly go in the xs module.

    Non blocking sockets are OK under windows, but it is practically impossible to make anything else non blocking - you have to get into overlapped IO etc shudder!

[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://74264]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others rifling through the Monastery: (4)
As of 2024-04-24 20:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found