blob: 3ce451aba426c34786dc36b614f0f9c05728db29 (
plain)
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
|
#include <caml/mlvalues.h>
#include <caml/custom.h>
#include <caml/alloc.h>
#include <caml/memory.h>
#include <caml/fail.h>
#include <caml/callback.h>
#include <gmp.h>
#include <stdio.h>
#include "config.h"
#define MODULE "Gmp.Random."
/*** Allocation functions */
void _mlgmp_random_finalize(value r)
{
gmp_randclear(Data_custom_val(r));
}
struct custom_operations _mlgmp_custom_random =
{
field(identifier) "Gmp.Random.randstate_t",
field(finalize) &_mlgmp_random_finalize,
field(compare) custom_compare_default,
field(hash) custom_hash_default,
field(serialize) custom_serialize_default,
field(deserialize) custom_deserialize_default
};
#undef field
value _mlgmp_randinit_lc(value n)
{
CAMLparam1(n);
CAMLlocal1(r);
r = alloc_custom(&_mlgmp_custom_random,
sizeof(gmp_randstate_t),
4,
1000000);
gmp_randinit(*((gmp_randstate_t*) Data_custom_val(r)),
GMP_RAND_ALG_LC,
Int_val(n));
CAMLreturn(r);
}
|
