File: mlgmp_misc.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 (53 lines) | stat: -rw-r--r-- 1,057 bytes parent folder | download | duplicates (11)
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
48
49
50
51
52
53
#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 <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "config.h"
#include "conversions.c"

#define MODULE "Gmp."

value _mlgmp_get_runtime_version(value dummy)
{
  CAMLparam0();
  CAMLlocal1(r);
  r = alloc_string(strlen(gmp_version));
  strcpy(String_val(r), gmp_version);
  CAMLreturn(r);
}

value _mlgmp_get_compile_version(value dummy)
{
  CAMLparam0();
  CAMLlocal1(r);
  r = alloc_tuple(3);
  Store_field(r, 0, Val_int(__GNU_MP_VERSION));
  Store_field(r, 1, Val_int(__GNU_MP_VERSION_MINOR));
  Store_field(r, 2, Val_int(__GNU_MP_VERSION_PATCHLEVEL));
  CAMLreturn(r);
}

value _mlgmp_is_mpfr_available(value dummy)
{
#ifdef USE_MPFR
  return Val_true;
#else
  return Val_false;
#endif
}

void division_by_zero(void)
{
  raise_constant(*caml_named_value("Gmp.Division_by_zero"));
}

void raise_unimplemented(char *s)
{
  raise_with_string(*caml_named_value("Gmp.Unimplemented"), s);
}