Re: Socket library ghc 5.02.1
From: Sigbjorn Finne [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Date: Tue, 27 Nov 2001 09:30:04 -0800
Conclusion: you're hosed with ghc-5.02.1 and its socket libs under
Win32. Sorry.
If you don't mind getting your hands a (little) bit dirty, here's a story
that will work ghc-5.02.1:
* edit SocketPrim.hi (and SocketPrim.p_hi), to instead of saying
Socket in its __export section it says Socket{MkSocket}
(you'll find the .hi file in imports/net/ inside your 5.02.1
tree).
* compile up the attached NetExtra.hs as follows:
foo$ ghc -c NetExtra.hs -fvia-C -fglasgow-exts
-package net
* import and include NetExtra with your socket code, e.g.,
Thanks Danke Mercie, this works (although I did not fully understand,
what I was doing).
Sven Eric
___
Glasgow-haskell-users mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/glasgow-haskell-users
Re: Socket library ghc 5.02.1
From: Sigbjorn Finne [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] References: [EMAIL PROTECTED] Date: Mon, 26 Nov 2001 12:30:47 -0800 Sven Eric Panitz [EMAIL PROTECTED] writes: It seems that the Socket library does still not work with ghc 5.02.1. I tried the simple test: main = do d - connectTo localhost (PortNumber 80) hPutStr d GET / HTTP/1.0\n\n hFlush d c - hGetContents d putStr c On Windows2000 I get the known error: *** Exception: does not exist Action: getProtocolByName Reason: no such protocol entry (You, of course, need to wrap up that code with Socket.withSocketDo to start up WinSock first). FYI, in case you're planning on doing socket programming with GHC-5.02 on a Win32 platform, stay away from using the higher-level Socket module, since its IO.Handle based view of sockets is just broken. Stick with the lower-level SocketPrim interface instead. Specifically, stay away from using the following: * Socket. connectTo * Socket.accept * Socket.sendTo * Socket. recvFrom * SocketPrim.socketToHandle --sigbjorn Thanks for the help and valuable information. I tried the following little test, which stays away from above functions: module Main where import BSD import SocketPrim import Socket (withSocketsDo) main = Socket.withSocketsDo (do protNum - getProtocolNumber tcp s - socket AF_INET Stream protNum hostAddr - inet_addr 157.189.164.68 let sAddr = (SockAddrInet (toEnum 8080) hostAddr) connect s sAddr i - sendTo s GET / HTTP/1.0\r\n\r\n sAddr (str,l,imsAddr) - recvFrom s 1000 putStr str ) But something I seem to be doing wrong. During evaluation of 'recvFrom s 1000' I get the following error message (consistently for unix and windows): Fail: SocketPrim.hsc:241: Non-exhaustive patterns in case As the log of the webserver reveals the sendTo works fine. Any idea what could be my problem? Sven Eric ___ Glasgow-haskell-users mailing list [EMAIL PROTECTED] http://www.haskell.org/mailman/listinfo/glasgow-haskell-users
Re: Socket library ghc 5.02.1
Conclusion: you're hosed with ghc-5.02.1 and its socket libs under
Win32. Sorry.
If you don't mind getting your hands a (little) bit dirty, here's a story
that will work ghc-5.02.1:
* edit SocketPrim.hi (and SocketPrim.p_hi), to instead of saying
Socket in its __export section it says Socket{MkSocket}
(you'll find the .hi file in imports/net/ inside your 5.02.1 tree).
* compile up the attached NetExtra.hs as follows:
foo$ ghc -c NetExtra.hs -fvia-C -fglasgow-exts -package net
* import and include NetExtra with your socket code, e.g.,
main = Socket.withSocketsDo $ do
protNum - getProtocolNumber tcp
s - socket AF_INET Stream protNum
hostAddr - inet_addr 127.0.0.1
let sAddr = (SockAddrInet 80 hostAddr)
connect s sAddr
send s GET / HTTP/1.0\r\n\r\n
str - recvAll s
putStr str
recvAll :: Socket - IO String
recvAll sock = do
str - catch (recv s 100) (\ _ - return )
case str of
- return str
_ - do
ls - recvAll sock
return (str ++ ls)
hth
--sigbjorn
NetExtra.hs
Description: Binary data
Re: Socket library ghc 5.02.1
Sven Eric Panitz [EMAIL PROTECTED] writes: It seems that the Socket library does still not work with ghc 5.02.1. I tried the simple test: main = do d - connectTo localhost (PortNumber 80) hPutStr d GET / HTTP/1.0\n\n hFlush d c - hGetContents d putStr c On Windows2000 I get the known error: *** Exception: does not exist Action: getProtocolByName Reason: no such protocol entry (You, of course, need to wrap up that code with Socket.withSocketDo to start up WinSock first). FYI, in case you're planning on doing socket programming with GHC-5.02 on a Win32 platform, stay away from using the higher-level Socket module, since its IO.Handle based view of sockets is just broken. Stick with the lower-level SocketPrim interface instead. Specifically, stay away from using the following: * Socket. connectTo * Socket.accept * Socket.sendTo * Socket. recvFrom * SocketPrim.socketToHandle --sigbjorn ___ Glasgow-haskell-users mailing list [EMAIL PROTECTED] http://www.haskell.org/mailman/listinfo/glasgow-haskell-users
Re: Socket library ghc 5.02.1
In local.glasgow-haskell-users, you wrote: main = do d - connectTo localhost (PortNumber 80) hPutStr d GET / HTTP/1.0\n\n hFlush d c - hGetContents d putStr c whereas on Linux I get the following error: *** Exception: failed Action: connect Reason: Unknown error 142731264 Please run the program with 'strace', e.g. strace -o log ./a.out and post the log when it fails. Be aware that 'hGetContents' is broken on 5.02.1 if you use it extensively (the GC will close already-reused fds and cause your program to crash!), the patch was recently postet to -bugs by Simon Marlow and works. OTOH, this is not the bug you're seeing. -- Volker Stolz * [EMAIL PROTECTED] * PGP + S/MIME ___ Glasgow-haskell-users mailing list [EMAIL PROTECTED] http://www.haskell.org/mailman/listinfo/glasgow-haskell-users
Re: Socket library ghc 5.02.1
In local.glasgow-haskell-users, you wrote:
It seems that the Socket library does still not work
with ghc 5.02.1.
[ghci clarification]
There, it crashes for me even on the 2nd invocation:
connect(13, {sin_family=AF_INET, sin_port=htons(80),
sin_addr=inet_addr(137.226.194.33)}}, 16) = -1 EINPROGRESS (Operation now in
progress)
gettimeofday({1006436761, 219035}, NULL) = 0
select(14, [], [13], NULL, {134, 217727}) = 1 (out [13], left {134, 22})
getsockopt(13, SOL_SOCKET, SO_ERROR, [1835091456], [1]) = 0
write(1, *, 1)= 1
whereas on the first, succeeding call to 'connect' it says;
select(14, [], [13], NULL, {134, 217727}) = 1 (out [13], left {134, 21})
getsockopt(13, SOL_SOCKET, SO_ERROR, [0], [1]) = 0
This looks like some on-the-fly bitrotting in ghci :-/
--
Volker Stolz * [EMAIL PROTECTED] * PGP + S/MIME
___
Glasgow-haskell-users mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/glasgow-haskell-users
RE: Socket library ghc 5.02.1
Am 22. Nov 2001 um 16:22 MET schrieb Simon Marlow: I'm sad to say there was another bug in SocketPrim.getSocketOption in 5.02.1. Please try the enclosed patch. How does this explain the two differing behaviours? And why didn't it happen in a compiled version? Because the 'optlen' parameter to getsockopt was wrong (1 instead of sizeof(int)), which means that the other 3 bytes would be garbage. If the other 3 bytes happened to be zero, you probably wouldn't notice. Anyway, I've tested this with the latest sources and it seems to work, whereas I can repro the bug with 5.02.1 in GHCi. Cheers, Simon ___ Glasgow-haskell-users mailing list [EMAIL PROTECTED] http://www.haskell.org/mailman/listinfo/glasgow-haskell-users
