(* File mosml/src/dynlibs/msocket/testsocket.sml   This is a collect of socket examples, not a systematic test suite. *) val _ = app load ["FileSys", "Socket", "Byte"]; fun buff v = { buf=v, ofs=0, size=NONE} fun inetclient ipno port s =    let val sock = Socket.inetStream ()	val addr = Socket.inetAddr ipno port	val vec  = Byte.stringToBytes s    in	Socket.connect(sock, addr);	Socket.sendVec (sock, buff vec); 	Byte.bytesToString (Socket.recvVec (sock, size s)) before	Socket.close sock    end val _ =     print     "\nSimple client/server example with sockets\n\     \-----------------------------------------\n\     \Loaded inetclient function\n\n\     \You must start the inetclient function with\n\     \    val f = inetclient <ipaddress> <portno>;\n\     \Then evaluate e.g.\n\     \    f \"abcde\";\n\     \    f \"reversed\";\n\     \    f \"12345\";\n\n"