From 8fa4a53f97f229f7e078bf4d301051456c3b8895 Mon Sep 17 00:00:00 2001 From: Prashanth Mundkur Date: Wed, 13 May 2009 19:32:43 -0700 Subject: [PATCH] add a fdset create api --- libs/stdext/unixext.ml | 1 + libs/stdext/unixext.mli | 1 + 2 files changed, 2 insertions(+) diff --git a/libs/stdext/unixext.ml b/libs/stdext/unixext.ml index d396627..c34b274 100644 --- a/libs/stdext/unixext.ml +++ b/libs/stdext/unixext.ml @@ -424,6 +424,7 @@ external get_major_minor : string -> int * int = "stub_unixext_get_major_minor" module Fdset = struct type t external of_list : Unix.file_descr list -> t = "stub_fdset_of_list" + let create () = of_list [] external is_set : t -> Unix.file_descr -> bool = "stub_fdset_is_set" external set : t -> Unix.file_descr -> unit = "stub_fdset_set" external clear : t -> Unix.file_descr -> unit = "stub_fdset_clear" diff --git a/libs/stdext/unixext.mli b/libs/stdext/unixext.mli index 300fa1b..b6dc96f 100644 --- a/libs/stdext/unixext.mli +++ b/libs/stdext/unixext.mli @@ -73,6 +73,7 @@ val get_major_minor : string -> int * int module Fdset : sig type t + val create : unit -> t external of_list : Unix.file_descr list -> t = "stub_fdset_of_list" external is_set : t -> Unix.file_descr -> bool = "stub_fdset_is_set" external set : t -> Unix.file_descr -> unit = "stub_fdset_set" -- 2.39.5