Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

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

Diff of /sml/trunk/src/system/Basis/Implementation/Sockets/win32-socket.sml

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

revision 1349, Wed Sep 3 22:22:18 2003 UTC revision 1350, Fri Sep 5 21:34:27 2003 UTC
# Line 107  Line 107 
107          fun setDONTROUTE x = setOpt ctlDONTROUTE x          fun setDONTROUTE x = setOpt ctlDONTROUTE x
108          fun getLINGER sock = (case (getOpt ctlLINGER sock)          fun getLINGER sock = (case (getOpt ctlLINGER sock)
109                 of NONE => NONE                 of NONE => NONE
110                  | (SOME t) => SOME(PreBasis.TIME{sec= Int.toLarge t, usec=0})                  | (SOME t) => SOME (TimeImp.fromSeconds (Int.toLarge t))
111                (* end case *))                (* end case *))
112  (* NOTE: probably shoud do some range checking on the argument *)  (* NOTE: probably shoud do some range checking on the argument *)
113          fun setLINGER (sock, NONE) = setOpt ctlLINGER (sock, NONE)          fun setLINGER (sock, NONE) = setOpt ctlLINGER (sock, NONE)
114            | setLINGER (sock, SOME(PreBasis.TIME{sec, ...})) =            | setLINGER (sock, SOME t) =
115                setOpt ctlLINGER (sock, SOME(Int.fromLarge  sec))                setOpt ctlLINGER (sock,SOME(Int.fromLarge(TimeImp.toSeconds t)))
116          fun getBROADCAST x = getOpt ctlBROADCAST x          fun getBROADCAST x = getOpt ctlBROADCAST x
117          fun setBROADCAST x = setOpt ctlBROADCAST x          fun setBROADCAST x = setOpt ctlBROADCAST x
118          fun getOOBINLINE x = getOpt ctlOOBINLINE x          fun getOOBINLINE x = getOpt ctlOOBINLINE x

Legend:
Removed from v.1349  
changed lines
  Added in v.1350

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