Source file `posix_errno_stubs.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
open Ctypes

module Def (F : Cstubs.FOREIGN) = struct
  open F

  (* Errno access functions *)
  let posix_errno_get_errno =
    foreign "posix_errno_get_errno" (void @-> returning nativeint)

  let posix_errno_set_errno =
    foreign "posix_errno_set_errno" (nativeint @-> returning void)

  (* strerror function - returns OCaml string (cross-platform, not thread-safe) *)
  let strerror = foreign "strerror" (nativeint @-> returning string)

  (* strerror_r function - POSIX version returns int (0 on success) *)
  (* Raises Invalid_argument on Windows *)
  let strerror_r =
    foreign "posix_errno_strerror_r"
      (nativeint @-> ptr char @-> int @-> returning nativeint)

  (* strlen function to get string length *)
  let strlen = foreign "strlen" (ptr char @-> returning int)
end