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

Parent Directory | 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