Update comments and stubs

Author: patricoferris

lib_eio/unix/fork/dune

@@ -9,10 +9,10 @@
 
 #include "fork_action.h"
 
+#ifdef _WIN32
+#else
 void eio_unix_run_fork_actions(int errors, value v_actions) {
-  #ifdef _WIN32
   uerror("Unsupported operation on windows", Nothing);
-  #else
   int old_flags = fcntl(errors, F_GETFL, 0);
   fcntl(errors, F_SETFL, old_flags & ~O_NONBLOCK);
   while (Is_block(v_actions)) {
@@ -22,8 +22,8 @@ void eio_unix_run_fork_actions(int errors, value v_actions) {
     v_actions = Field(v_actions, 1);
   }
   _exit(1);
-  #endif
 }
+#endif
 
 static void try_write_all(int fd, char *buf) {
   int len = strlen(buf);

lib_eio/unix/fork_action.c

@@ -51,22 +51,22 @@ CAMLprim value caml_eio_windows_getrandom(value v_ba, value v_off, value v_len)
 
 CAMLprim value caml_eio_windows_readv(value v_fd, value v_bufs)
 {
-  uerror("Readv is not supported on windows yet", Nothing);
+  uerror("readv is not supported on windows yet", Nothing);
 }
 
 CAMLprim value caml_eio_windows_preadv(value v_fd, value v_bufs, value v_offset)
 {
-  uerror("Preadv is not supported on windows yet", Nothing);
+  uerror("preadv is not supported on windows yet", Nothing);
 }
 
 CAMLprim value caml_eio_windows_pwritev(value v_fd, value v_bufs, value v_offset)
 {
-  uerror("Pwritev is not supported on windows yet", Nothing);
+  uerror("pwritev is not supported on windows yet", Nothing);
 }
 
 CAMLprim value caml_eio_windows_openat(value v_dirfd, value v_pathname, value v_flags, value v_mode)
 {
-  uerror("Readv is not supported on windows yet", Nothing);
+  uerror("openat is not supported on windows yet", Nothing);
 }
 
 CAMLprim value caml_eio_windows_mkdirat(value v_fd, value v_path, value v_perm)
@@ -86,5 +86,5 @@ CAMLprim value caml_eio_windows_renameat(value v_old_fd, value v_old_path, value
 
 CAMLprim value caml_eio_windows_spawn(value v_errors, value v_actions)
 {
-  uerror("Processes are not supported on windows yet", Nothing);
+  uerror("processes are not supported on windows yet", Nothing);
 }

lib_eio_windows/eio_windows_stubs.c

@@ -230,7 +230,7 @@ let with_sched fn =
   let run_q = Lf_queue.create () in
   Lf_queue.push run_q IO;
   let sleep_q = Zzz.create () in
-  (* Pipe's on Windows cannot be nonblocking through the OCaml API. *)
+  (* Pipes on Windows cannot be nonblocking through the OCaml API. *)
   let eventfd_r, eventfd_w = Unix.socketpair ~cloexec:true Unix.PF_UNIX Unix.SOCK_STREAM 0 in
   Unix.set_nonblock eventfd_r;
   Unix.set_nonblock eventfd_w;