package posix-getopt

  1. Overview
  2. Docs
Bindings for posix getopt/getopt_long

Install 

dune-project
 Dependency

github.com Readme Changelog Edit opam file Versions (8)

Authors

  1. R
    Romain Beauxis

Maintainers

  1. R
    romain.beauxis@gmail.com

Sources

v4.0.2.tar.gz
md5=2e05f3e890206138c4ebd09878359a2f
sha512=79a786c299b5d9f7f5ff0c3cf289539e8ea257b2068f75cd9faca9450679e5cd7de6b0fc5b77c9ddbbb5857d4f64119837a61a22d277e6e2a8ab4b3c4d5911c0

doc/src/posix-getopt.stubs/posix_getopt_stubs.ml.html

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
31
32
33
34
open Ctypes

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

  let const_string_ptr = typedef (ptr string) "char * const *"

  let getopt =
    foreign "getopt" (int @-> const_string_ptr @-> string @-> returning int)

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

  let getopt_long =
    foreign "getopt_long"
      (int @-> const_string_ptr @-> 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 @-> const_string_ptr @-> 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 int))
  let getoptreset = foreign "getoptreset" (void @-> returning (ptr int))
  let strlen = foreign "strlen" (ptr char @-> returning int)
end