(* File mosml/src/dynlibs/msocket/testserver.sml
   This is a collect of socket examples, not a systematic test suite.
 *)

val inetaddr = "127.0.0.1"
val portno   = 3000;

val _ = app load ["FileSys", "Socket", "Byte", "Int"];

fun buff v = { buf=v, ofs=0, size=NONE}

fun inetserver ipno port =
    let val sock = Socket.inetStream ()
	val addr = Socket.inetAddr ipno port
	val _    = Socket.bind(sock, addr)
	val _    = Socket.listen(sock, 150);
	val c    = ref 7;
    in
	((while !c > 0 do
	    let
		val (n,a) = Socket.accept sock
		val vec = Socket.recvVec(n,20)
		(* Reverse the bytes in the vector *)
		val ls = Word8Vector.foldl op:: nil vec
		val s  = String.implode (map Byte.byteToChar ls)
	    in
		Socket.sendVec(n, buff(Byte.stringToBytes s));
		print ("Server: sent response " ^ s ^ " to client\n");
		Socket.close n;
		c := !c - 1
	    end)
	    handle Interrupt => print "Server terminated by user.\n\n");
	Socket.close sock
    end 

val _ = 
    print 
    ("\nSimple client/server example with sockets\n\
       \-----------------------------------------\n\
     \Starting example inetserver on IP address " 
     ^ inetaddr ^ " port " ^ Int.toString portno 
     ^ "\n\nIn another terminal, start a mosml session by typing\n\
     \    mosml testclient.sml\n\
     \and in that session, execute e.g.\n\
     \    val f = inetclient \"" ^ inetaddr ^ "\" " ^ Int.toString portno 
     ^ ";\n\
     \    f \"Test\";\n\
     \    f \"madam, I'm adam\";\n\n\
     \or similar\n\n")

val _ = inetserver inetaddr portno;