add a fdset create api

diff --git a/libs/stdext/unixext.ml b/libs/stdext/unixext.ml
index d39662723c613c3667157ceae65339faea887ec9..c34b27486ba0276d7b38d23281c8eaffaae3a54c 100644 (file)
--- 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 300fa1b3e3d7a98ba4932950a0bf760b13c8b8aa..b6dc96fe1b529d305025acd4bf76d69ad5d3f84a 100644 (file)
--- 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"