File: mlgmp_random.c

package info (click to toggle)
mlgmp 20021123-20
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 512 kB
  • sloc: ansic: 3,257; ml: 3,126; makefile: 167
file content (45 lines) | stat: -rw-r--r-- 1,007 bytes parent folder | download | duplicates (7)
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); 
}