diff options
Diffstat (limited to 'ghc/misc/examples/net002/Main.hs')
-rw-r--r-- | ghc/misc/examples/net002/Main.hs | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/ghc/misc/examples/net002/Main.hs b/ghc/misc/examples/net002/Main.hs new file mode 100644 index 0000000000..7ae6cdc2b6 --- /dev/null +++ b/ghc/misc/examples/net002/Main.hs @@ -0,0 +1,42 @@ +{- client + +Client side to net001/Main.hs. + +Note that the machine IP numbers have been hard coded into this +program so it is unlikely that you will be able to run this test if +you are not at dcs.gla.ac.uk :-( + +The reason for this is to aviod using the BSD module at this stage of +testing. + + +TESTS: + socket + connect + writeSocket + shutdown + inet_addr +-} + + +module Main where + +import SocketPrim + + +starbuck = "130.209.240.81" -- SunOS 4.1.3 1 sun4c +marcus = "130.209.247.2" -- SunOS 4.1.3 6 sun4m +avon = "130.209.247.4" -- OSF1 V2.0 240 alpha +karkar = "130.209.247.3" -- OSF1 V2.0 240 alpha + +message = "Hello World" + + +main = + socket AF_INET Stream 6 >>= \ s -> + connect s (SockAddrInet 5000 (inet_addr avon)) >> + + writeSocket s message >> + shutdown s 2 >> + sClose s + |