module Fd:sig
..end
Fd.t
is a wrapper around a Unix file descriptor, with additional information
about the kind of file descriptor and logic to ensure that we don't use a file
descriptor that has been closed, or close a file descriptor that is in use. Since
Async uses multiple threads to make read/write and other system calls on file
descriptors, and Unix reuses descriptors after they are closed, Async has to be very
careful that the file descriptor passed to a system call is referring to the file it
intends, and not some other completely unrelated file that Unix has decided to assign
to the same descriptor.
Provided that one only accesses a file descriptor within the context of the functions
below, Fd
guarantees that the file descriptor will not have been closed/reused and
will correspond to the same file that it did when the Fd.t
was created:
with_file_descr with_file_descr_deferred syscall syscall_exn syscall_in_thread syscall_in_thread_exn
The Fd
module keeps track of which of these functions that are currently accessing
the file descriptor, and ensures that any close happens after they complete. Also,
once close has been called, it refuses to provide further access to the file
descriptor, either by returning a variant, `Already_closed, or raising an exception.
Some of the above functions take an optional ?nonblocking:bool
argument. The
default is false, but if it is set to true, then before supplying the underlying
file_descr
, the Fd
module will first call Unix.set_nonblock file_descr
, if it
hasn't previously done so on that file descriptor. This is intended to support making
nonblocking system calls (e.g. connect, read, write) directly within async, without
releasing the OCaml lock or the async lock, and without using another thread.
module Kind:sig
..end
type
t
val info : t -> Core.Std.Info.t
val to_string : t -> string
to_string t
returns a pretty sexp of the representation of t
val create : Kind.t -> Core.Std.Unix.File_descr.t -> Core.Std.Info.t -> t
create kind file_descr
creates a new t
of the underlying kind and file
descriptor.
We thought about using fstat()
rather than requiring the user to supply the kind.
But fstat
can block, which would require putting this in a thread, which has some
consequences, and it isn't clear that it gets us that much. Also, create
is mostly
used within the Async implementation -- clients shouldn't need it unless they are
mixing Async and non-Async code.
val kind : t -> Kind.t
kind t
returns the kind of file descriptor that t
is.val supports_nonblock : t -> bool
supports_nonblock t
returns true if t
supports nonblocking system calls.val clear_nonblock : t -> unit
clear_nonblock t
clears the ``non-blocking'' flag on t
and causes and causes async
to treat the fd as though it doesn't support nonblocking I/O. This is useful for
applications that want to share a file descriptor between async and non-async code and
want to avoid EWOULDBLOCK
or EAGAIN
being seen by the non-async code, which would
then cause a Sys_blocked_io
exception.
clear_nonblock t
has no effect if not (supports_nonblock t)
.
val close : ?should_close_file_descriptor:bool -> t -> unit Import.Deferred.t
close t
prevents further use of t
, and closes the underlying file descriptor once
all the current uses are finished. The result of close
becomes determined once the
underlying file descriptor has been closed, i.e. once the close()
system call
returns. It is ok to call close
multiple times on the same t
; calls subsequent to
the initial call will have no effect, but will return the same deferred as the
original call.
In some situations, one may need to cause async to release an fd that it is managing
without closing the underlying file descriptor. In that case, one should supply
~should_close_file_descriptor:false
, which will skip the underlying close()
system
call.
close_finished t
becomes determined after the close()
system call on t
's
underlying file descriptor returns. close_finished
differs from close
in that it
does not have the side effect of initiating a close.
is_closed t
returns true
iff close t
has been called.
val close_finished : t -> unit Import.Deferred.t
val is_closed : t -> bool
val with_close : t -> f:(t -> 'a Import.Deferred.t) -> 'a Import.Deferred.t
with_close t f
applies f
to t
, returns the result of f
, and closes t
.val is_open : t -> bool
is_open t
is not (is_closed t
)val stdin : unit -> t
stdin
, stdout
, and stderr
are wrappers around the standard Unix file
descriptors.val stdout : unit -> t
val stderr : unit -> t
val with_file_descr : ?nonblocking:bool ->
t ->
(Core.Std.Unix.File_descr.t -> 'a) ->
[ `Already_closed | `Error of exn | `Ok of 'a ]
with_file_descr t f
runs f
on the file descriptor underlying t
, if is_open t
,
and returns `Ok
or `Error
according to f
. If is_closed t
, then it does not
call f
and returns `Already_closed
.val with_file_descr_exn : ?nonblocking:bool -> t -> (Core.Std.Unix.File_descr.t -> 'a) -> 'a
with_file_descr_exn
is like with_file_descr
except that it raises rather than
return `Already_closed
or `Error
.val with_file_descr_deferred : t ->
(Core.Std.Unix.File_descr.t -> 'a Import.Deferred.t) ->
[ `Already_closed | `Error of exn | `Ok of 'a ] Import.Deferred.t
with_file_descr_deferred t f
runs f
on the file descriptor underlying t
, if
is_open t
, and returns `Ok
or `Error
according to f
. If is_closed t
, then
it does not call f
and returns `Already_closed
. It ensures that the file
descriptor underlying t
is not closed until the result of f
becomes determined (or
f
raises).val ready_to_interruptible : t ->
[ `Read | `Write ] ->
interrupt:unit Import.Deferred.t ->
[ `Bad_fd | `Closed | `Interrupted | `Ready ] Import.Deferred.t
ready_to_interruptible t read_write ~interrupt
returns a deferred that will become
determined when the file descriptor underlying t
can be read from or written to
without blocking, or when interrupt
becomes determined.val ready_to : t ->
[ `Read | `Write ] -> [ `Bad_fd | `Closed | `Ready ] Import.Deferred.t
ready_to t read_write
is like ready_to_interruptible
, but without the possibility
of interruption.val syscall : ?nonblocking:bool ->
t ->
(Core.Std.Unix.File_descr.t -> 'a) ->
[ `Already_closed | `Error of exn | `Ok of 'a ]
syscall t f
runs Async_unix.syscall
with f
on the file descriptor underlying
t
, if is_open t
, and returns `Ok
or `Error
according to f
. If
is_closed t
, it does not call f
and returns `Already_closed
.val syscall_exn : ?nonblocking:bool -> t -> (Core.Std.Unix.File_descr.t -> 'a) -> 'a
syscall_exn t f
is like syscall
, except it raises rather than return
`Already_closed
or `Error
.val syscall_in_thread : t ->
name:string ->
(Core.Std.Unix.File_descr.t -> 'a) ->
[ `Already_closed | `Error of exn | `Ok of 'a ] Import.Deferred.t
syscall_in_thread t f
runs In_thread.syscall
with f
on the file descriptor
underlying t
, if is_open t
, and returns a deferred that becomes determined with
`Ok
or `Error
when the system call completes. If is_closed t
, it does not call
f
and returns `Already_closed
.val syscall_in_thread_exn : t ->
name:string -> (Core.Std.Unix.File_descr.t -> 'a) -> 'a Import.Deferred.t
syscall_in_thread_exn
is like syscall_in_thread
, except it raises rather than
return `Already_closed
or `Error
.val of_in_channel : Core.Std.In_channel.t -> Kind.t -> t
of_in_channel
and of_out_channel
create an fd from their underlying file
descriptor.val of_out_channel : Core.Std.Out_channel.t -> Kind.t -> t
val of_in_channel_auto : Core.Std.In_channel.t -> t Import.Deferred.t
of_in_channel_auto ic
is just like of_in_channel, but uses fstat
to determine the
kind. It makes some assumptions about sockets, specifically it assumes that a socket
is either listening, or connected to something (and it uses getsockopt to find out
which). Don't pass an in_channel containing an unconnected non-listening socket.val of_out_channel_auto : Core.Std.Out_channel.t -> t Import.Deferred.t
of_out_channel_auto ic
is just like of_out_channel, but uses fstat
to determine
the kind. It makes some assumptions about sockets, specifically it assumes that a
socket is either listening, or connected to something (and it uses getsockopt to find
out which). Don't pass an in_channel containing an unconnected non listening
socket.val file_descr_exn : t -> Core.Std.Unix.File_descr.t
file_descr_exn t
returns the file descriptor underlying t
, unless is_closed t
,
in which case it raises. One must be very careful when using this function, and
should try not to, since any uses of the resulting file descriptor are unknown to
the Fd
module, and hence can violate the guarantee it is trying to enforce.val to_int_exn : t -> int
to_int_exn t
returns the the underlying file descriptor as an int. It has the same
caveats as file_descr_exn
.val replace : t -> Kind.t -> Core.Std.Info.t -> unit
replace t kind
is for internal use only, by Unix_syscalls
. It is used when one
wants to reuse a file descriptor in an fd with a new kind.val sexp_of_t : t -> Sexplib.Sexp.t
to_string t
returns a pretty sexp of the representation of t
create kind file_descr
creates a new t
of the underlying kind and file
descriptor.
We thought about using fstat()
rather than requiring the user to supply the kind.
But fstat
can block, which would require putting this in a thread, which has some
consequences, and it isn't clear that it gets us that much. Also, create
is mostly
used within the Async implementation -- clients shouldn't need it unless they are
mixing Async and non-Async code.
kind t
returns the kind of file descriptor that t
is.
supports_nonblock t
returns true if t
supports nonblocking system calls.
clear_nonblock t
clears the ``non-blocking'' flag on t
and causes and causes async
to treat the fd as though it doesn't support nonblocking I/O. This is useful for
applications that want to share a file descriptor between async and non-async code and
want to avoid EWOULDBLOCK
or EAGAIN
being seen by the non-async code, which would
then cause a Sys_blocked_io
exception.
clear_nonblock t
has no effect if not (supports_nonblock t)
.
close t
prevents further use of t
, and closes the underlying file descriptor once
all the current uses are finished. The result of close
becomes determined once the
underlying file descriptor has been closed, i.e. once the close()
system call
returns. It is ok to call close
multiple times on the same t
; calls subsequent to
the initial call will have no effect, but will return the same deferred as the
original call.
In some situations, one may need to cause async to release an fd that it is managing
without closing the underlying file descriptor. In that case, one should supply
~should_close_file_descriptor:false
, which will skip the underlying close()
system
call.
close_finished t
becomes determined after the close()
system call on t
's
underlying file descriptor returns. close_finished
differs from close
in that it
does not have the side effect of initiating a close.
is_closed t
returns true
iff close t
has been called.
with_close t f
applies f
to t
, returns the result of f
, and closes t
.
is_open t
is not (is_closed t
)
stdin
, stdout
, and stderr
are wrappers around the standard Unix file
descriptors.
with_file_descr t f
runs f
on the file descriptor underlying t
, if is_open t
,
and returns `Ok
or `Error
according to f
. If is_closed t
, then it does not
call f
and returns `Already_closed
.
with_file_descr_exn
is like with_file_descr
except that it raises rather than
return `Already_closed
or `Error
.
with_file_descr_deferred t f
runs f
on the file descriptor underlying t
, if
is_open t
, and returns `Ok
or `Error
according to f
. If is_closed t
, then
it does not call f
and returns `Already_closed
. It ensures that the file
descriptor underlying t
is not closed until the result of f
becomes determined (or
f
raises).
ready_to_interruptible t read_write ~interrupt
returns a deferred that will become
determined when the file descriptor underlying t
can be read from or written to
without blocking, or when interrupt
becomes determined.
ready_to t read_write
is like ready_to_interruptible
, but without the possibility
of interruption.
syscall t f
runs Async_unix.syscall
with f
on the file descriptor underlying
t
, if is_open t
, and returns `Ok
or `Error
according to f
. If
is_closed t
, it does not call f
and returns `Already_closed
.
syscall_exn t f
is like syscall
, except it raises rather than return
`Already_closed
or `Error
.
syscall_in_thread t f
runs In_thread.syscall
with f
on the file descriptor
underlying t
, if is_open t
, and returns a deferred that becomes determined with
`Ok
or `Error
when the system call completes. If is_closed t
, it does not call
f
and returns `Already_closed
.
syscall_in_thread_exn
is like syscall_in_thread
, except it raises rather than
return `Already_closed
or `Error
.
of_in_channel
and of_out_channel
create an fd from their underlying file
descriptor.
of_in_channel_auto ic
is just like of_in_channel, but uses fstat
to determine the
kind. It makes some assumptions about sockets, specifically it assumes that a socket
is either listening, or connected to something (and it uses getsockopt to find out
which). Don't pass an in_channel containing an unconnected non-listening socket.
of_out_channel_auto ic
is just like of_out_channel, but uses fstat
to determine
the kind. It makes some assumptions about sockets, specifically it assumes that a
socket is either listening, or connected to something (and it uses getsockopt to find
out which). Don't pass an in_channel containing an unconnected non listening
socket.
file_descr_exn t
returns the file descriptor underlying t
, unless is_closed t
,
in which case it raises. One must be very careful when using this function, and
should try not to, since any uses of the resulting file descriptor are unknown to
the Fd
module, and hence can violate the guarantee it is trying to enforce.
to_int_exn t
returns the the underlying file descriptor as an int. It has the same
caveats as file_descr_exn
.
replace t kind
is for internal use only, by Unix_syscalls
. It is used when one
wants to reuse a file descriptor in an fd with a new kind.