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

SCM Repository

[smlnj] Annotation of /sml/trunk/src/smlnj-lib/INet/unix-sock-util.sml
ViewVC logotype

Annotation of /sml/trunk/src/smlnj-lib/INet/unix-sock-util.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 651 - (view) (download)

1 : monnier 409 (* unix-sock-util.sml
2 :     *
3 :     * COPYRIGHT (c) 1999 Bell Labs, Lucent Technologies.
4 :     *
5 :     * Bind SockUtil structure on Unix systems
6 :     *)
7 :    
8 :     signature UNIX_SOCK_UTIL =
9 :     sig
10 :    
11 :     include SOCK_UTIL
12 :    
13 :     val connectUnixStrm : string -> UnixSock.unix stream_sock
14 :     (* establish a client-side connection to a Unix-domain stream socket *)
15 :    
16 :     end
17 :    
18 :    
19 :     structure UnixSockUtil : UNIX_SOCK_UTIL =
20 :     struct
21 :    
22 :     open SockUtil
23 :    
24 :     (* establish a client-side connection to a Unix-domain stream socket *)
25 :     fun connectUnixStrm path = let
26 :     val sock = UnixSock.Strm.socket ()
27 :     in
28 :     Socket.connect (sock, UnixSock.toAddr path);
29 :     sock
30 :     end
31 :    
32 :     end
33 :    

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