[MLton-commit] r7015

[Wesley Terpstra]

Make it possible to get the network byte-order representation of an IP address.
For IPv4 this means a four byte value corresponding to the dotted quad representation.
decimal "W.X.Y.Z" = byte string "WXYZ"


----------------------------------------------------------------------

U   mlton/trunk/basis-library/mlton/socket.sig
U   mlton/trunk/basis-library/mlton/socket.sml

----------------------------------------------------------------------

Modified: mlton/trunk/basis-library/mlton/socket.sig
===================================================================
--- mlton/trunk/basis-library/mlton/socket.sig	2009-01-27 14:42:53 UTC (rev 7014)
+++ mlton/trunk/basis-library/mlton/socket.sig	2009-01-27 15:18:05 UTC (rev 7015)
@@ -11,6 +11,7 @@
       structure Address:
          sig
             type t = NetHostDB.in_addr
+            val toVector : t -> Word8Vector.vector
          end
 
       structure Ctl:

Modified: mlton/trunk/basis-library/mlton/socket.sml
===================================================================
--- mlton/trunk/basis-library/mlton/socket.sml	2009-01-27 14:42:53 UTC (rev 7014)
+++ mlton/trunk/basis-library/mlton/socket.sml	2009-01-27 15:18:05 UTC (rev 7015)
@@ -17,6 +17,7 @@
 structure Address =
    struct
       type t = NetHostDB.in_addr
+      fun toVector x = x
    end
 
 structure Host =