Stub out chown on Eio_windows

Author: patricoferris

lib_eio_windows/fs.ml

@@ -164,6 +164,10 @@ end = struct
     with_parent_dir t path @@ fun dirfd path ->
     Err.run (Low_level.read_link ?dirfd) path
 
+  let chown ~follow ~uid ~gid t path =
+    with_parent_dir t path @@ fun dirfd path ->
+    Err.run (fun () -> Low_level.chown ?dirfd ~follow ~uid ~gid path) ()
+
   let rename t old_path new_dir new_path =
     match Handler.as_posix_dir new_dir with
     | None -> invalid_arg "Target is not an eio_windows directory!"

lib_eio_windows/low_level.ml

@@ -138,6 +138,10 @@ let read_link ?dirfd path =
   in_worker_thread @@ fun () ->
   Eio_unix.Private.read_link dirfd path
 
+let chown ?dirfd ~follow:_ ~uid ~gid path =
+  in_worker_thread @@ fun () ->
+  Eio_unix.Private.chown ~flags:0 ~uid ~gid dirfd path
+
 external eio_readv : Unix.file_descr -> Cstruct.t array -> int = "caml_eio_windows_readv"
 
 external eio_preadv : Unix.file_descr -> Cstruct.t array -> Optint.Int63.t -> int = "caml_eio_windows_preadv"

lib_eio_windows/low_level.mli

@@ -43,6 +43,7 @@ val lstat : string -> Unix.LargeFile.stats
 
 val realpath : string -> string
 val read_link : ?dirfd:fd -> string -> string
+val chown : ?dirfd:fd -> follow:bool -> uid:int64 -> gid:int64 -> string -> unit
 
 val mkdir : ?dirfd:fd -> ?nofollow:bool -> mode:int -> string -> unit
 val unlink : ?dirfd:fd -> dir:bool -> string -> unit