package posix-unistd

  1. Overview
  2. Docs
Bindings for posix unistd.h functions

Install 

dune-project
 Dependency

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

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-unistd.stubs_unlocked/posix_unistd_stubs_unlocked.ml.html

Source file posix_unistd_stubs_unlocked.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
35
36
37
38
39
40
41
42
43
44
45
46
47
open Ctypes

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

  (* Type alias to fix const char ** vs char *const * mismatch *)
  let argv_t = typedef (ptr string) "char*const*"

  (* Basic I/O operations *)
  let read = foreign "read" (int @-> ptr char @-> int @-> returning int)
  let write = foreign "write" (int @-> ptr char @-> int @-> returning int)

  (* Positioned I/O *)
  let pread =
    foreign "pread" (int @-> ptr char @-> int @-> int @-> returning int)

  let pwrite =
    foreign "pwrite" (int @-> ptr char @-> int @-> int @-> returning int)

  let readlink =
    foreign "readlink" (string @-> ptr char @-> int @-> returning int)

  (* File positioning *)
  let lseek = foreign "lseek" (int @-> int @-> int @-> returning int)

  (* Process operations *)
  let fork = foreign "fork" (void @-> returning int)

  (* Process priority *)
  let nice = foreign "nice" (int @-> returning int)

  (* Sleep operations *)
  let sleep = foreign "sleep" (int @-> returning int)
  let usleep = foreign "usleep" (int @-> returning int)

  (* Signal/timer *)
  let pause = foreign "pause" (void @-> returning int)
  let alarm = foreign "alarm" (int @-> returning int)

  (* Program execution *)
  let execv = foreign "execv" (string @-> argv_t @-> returning int)
  let execve = foreign "execve" (string @-> argv_t @-> argv_t @-> returning int)
  let execvp = foreign "execvp" (string @-> argv_t @-> returning int)

  (* Process termination *)
  let _exit = foreign "_exit" (int @-> returning void)
end