all tasks

Task/Sockets/Haskell/sockets-1.hs

@@ -0,0 +1,3 @@
+import Network
+
+main = withSocketsDo $ sendTo "localhost" (PortNumber $ toEnum 256) "hello socket world"

Task/Sockets/Haskell/sockets-2.hs

@@ -0,0 +1,8 @@
+link cfunc
+procedure main ()
+   hello("localhost", 1024)
+end
+
+procedure hello (host, port)
+   write(tconnect(host, port) | stop("unable to connect to", host, ":", port) ,  "hello socket world")
+end

Task/Sockets/Haskell/sockets-3.hs

@@ -0,0 +1,16 @@
+procedure main(arglist)       #: usage socket port hostname or socket port
+    hello(arglist[2]|"",arglist[1])
+end
+
+procedure hello(host,port)
+   local s
+   /host := ""
+   host ||:= ":"
+   host ||:= 0 < 65536 > port | runerr(103,port)
+   if s := open(host,"n") then {
+      write(s, "hello socket world.")
+      close(s)
+      }
+   else  stop("Unable to connect to ",host,":",port)
+   return
+end