package hdr_histogram

  1. Overview
  2. Docs

Source file stdio_description.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open Ctypes

(* This Types_generated module is an instantiation of the Types
   functor defined in the type_description.ml file. It's generated by
   a C program that Dune creates and runs behind the scenes. *)
module Types = Types_generated

module Functions (F : Ctypes.FOREIGN) = struct
  open F

  let fopen = foreign "fopen" (string @-> string @-> returning (ptr Types.file))
  let fclose = foreign "fclose" (ptr Types.file @-> returning int)
  let unix_error_of_code errno = Unix.EUNKNOWNERR errno
end