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/branches/dbm-type-blame/system/Basis/Implementation/Sockets/socket.sml
ViewVC logotype

Diff of /sml/branches/dbm-type-blame/system/Basis/Implementation/Sockets/socket.sml

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

revision 3593, Wed May 11 03:44:12 2011 UTC revision 3594, Thu May 12 16:06:32 2011 UTC
# Line 1  Line 1 
1  (* unix-socket.sml  (* socket.sml
  *  
  * COPYRIGHT (c) 1995 AT&T Bell Laboratories.  
2   *   *
3     * COPYRIGHT (c) 2011 The Fellowship of SML/NJ (http://www.smlnj.org)
4     * All rights reserved.
5   *)   *)
6    
7  local  local
# Line 164  Line 164 
164      val wrapNB_b = OpsysDetails.wrapNB_b      val wrapNB_b = OpsysDetails.wrapNB_b
165    
166      fun sockB fd = SOCK { fd = fd, nb = ref false }      fun sockB fd = SOCK { fd = fd, nb = ref false }
     fun sockNB fd = SOCK { fd = fd, nb = ref true }  
167    
168      (* socket address operations *)      (* socket address operations *)
169      fun sameAddr (ADDR a1, ADDR a2) = (a1 = a2)      fun sameAddr (ADDR a1, ADDR a2) = (a1 = a2)
# Line 193  Line 192 
192          (sock newFD, ADDR addr)          (sock newFD, ADDR addr)
193      end      end
194      fun accept s = accept0 (sockB, fdB) s      fun accept s = accept0 (sockB, fdB) s
195      fun acceptNB s = wrapNB_o (accept0 (sockNB, fdNB)) s      fun acceptNB s = wrapNB_o (accept0 (sockB, fdNB)) s
196    
197      fun connect0 getfd (s, ADDR addr) = connect' (getfd s, addr)      fun connect0 getfd (s, ADDR addr) = connect' (getfd s, addr)
198      fun connect arg = connect0 fdB arg      fun connect arg = connect0 fdB arg

Legend:
Removed from v.3593  
changed lines
  Added in v.3594

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