Source file `posix_getopt_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
25
26
27
28
29
30
open Ctypes

module Def (F : Cstubs.FOREIGN) = struct
  open F
  module Types = Posix_getopt_types.Def (Posix_getopt_generated_types)
  include Types

  let getopt = foreign "getopt" (int @-> ptr string @-> string @-> returning int)
  let has_getopt_long = foreign "has_getopt_long" (void @-> returning bool)

  let getopt_long =
    foreign "getopt_long"
      (int @-> ptr string @-> string @-> ptr Option.t @-> ptr int
     @-> returning int)

  let has_getopt_long_only =
    foreign "has_getopt_long_only" (void @-> returning bool)

  let getopt_long_only =
    foreign "getopt_long_only"
      (int @-> ptr string @-> string @-> ptr Option.t @-> ptr int
     @-> returning int)

  let getoptarg = foreign "getoptarg" (void @-> returning (ptr char))
  let getoptind = foreign "getoptind" (void @-> returning (ptr int))
  let getopterr = foreign "getopterr" (void @-> returning (ptr int))
  let getoptopt = foreign "getoptopt" (void @-> returning (ptr char))
  let getoptreset = foreign "getoptreset" (void @-> returning (ptr int))
  let strlen = foreign "strlen" (ptr char @-> returning int)
end