新闻动态
NEWS

import Network.Socket



main :: IO （）

main = do

    -- create socket

    sock <- socket AF_INET Stream 0

    -- make socket immediately reusable - eases debugging.

    setSocketOption sock ReuseAddr 1

    -- listen on TCP port 4242

    bindSocket sock （SockAddrInet 4242 iNADDR_ANY）

    -- allow a maximum of 2 outstanding connections

    listen sock 2

    mainLoop sock

 

mainLoop :: Socket -> IO （）

mainLoop sock = do

    -- accept one connection and handle it

    conn <- accept sock

    runConn conn

    mainLoop sock

 

runConn :: （Socket， SockAddr） -> IO （）

runConn （sock， tcp） = do

    sms<-recv sock 1024

    putStr sms

    send sock I recevied the message!\n

    runConn （sock， tcp）

require socket

s = TCPSocket.new localhost，4242

loop do

    sms=gets.chomp

    s.puts sms

    puts s.gets

end