Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/system/Basis/Implementation/Sockets/inet-sock.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/Sockets/inet-sock.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1393, Fri Sep 26 17:00:32 2003 UTC revision 1394, Fri Sep 26 19:56:20 2003 UTC
# Line 24  Line 24 
24        val fromInetAddr : Socket.addr -> (Socket.addr * int) = sockFn "fromInetAddr"        val fromInetAddr : Socket.addr -> (Socket.addr * int) = sockFn "fromInetAddr"
25        val inetAny  : int -> Socket.addr = sockFn "inetany"        val inetAny  : int -> Socket.addr = sockFn "inetany"
26      in      in
27      fun toAddr (Socket.INADDR a, port) = Socket.ADDR(toInetAddr(a, port))      fun toAddr (ina, port) =
28            Socket.ADDR(toInetAddr(NetHostDBInternal.unINADDR ina, port))
29      fun fromAddr (Socket.ADDR addr) = let      fun fromAddr (Socket.ADDR addr) = let
30            val (a, port) = fromInetAddr addr            val (a, port) = fromInetAddr addr
31            in            in
32              (Socket.INADDR a, port)              (NetHostDBInternal.INADDR a, port)
33            end            end
34      fun any port = Socket.ADDR(inetAny port)      fun any port = Socket.ADDR(inetAny port)
35      end      end

Legend:
Removed from v.1393  
changed lines
  Added in v.1394

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0