Source file `qrng.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
(* gsl-ocaml - OCaml interface to GSL                       *)
(* Copyright (©) 2002-2012 - Olivier Andrieu                *)
(* Distributed under the terms of the GPL version 3         *)

let () = Error.init ()

type qrng_type = NIEDERREITER_2 | SOBOL
type t

external _alloc : qrng_type -> int -> t = "ml_gsl_qrng_alloc"
external _free : t -> unit = "ml_gsl_qrng_free"
external init : t -> unit = "ml_gsl_qrng_init"

let make t d =
  let qrng = _alloc t d in
  Gc.finalise _free qrng;
  qrng

external dimension : t -> int = "ml_gsl_qrng_dimension"
external name : t -> string = "ml_gsl_qrng_name"
external memcpy : src:t -> dst:t -> unit = "ml_gsl_qrng_memcpy"
external clone : t -> t = "ml_gsl_qrng_clone"
external get : t -> float array -> unit = "ml_gsl_qrng_get"
external sample : t -> float array = "ml_gsl_qrng_sample"