Someone
public text v1 · immutablefichier C
#include <stdio.h>
#include <caml/mlvalues.h>
#include <caml/bigarray.h>
value sommeC (value x, value y)
{
int cx = Int_val(x);
int cy = Int_val(y);
int res = cx + cy;
printf("=> %d + %d = %d\n",cx,cy,res);
return(res);
}
fichier OCAML
external somme : int -> int -> int = "sommeC";;
print_int (somme 2 23);;
print_newline();;
make
cc -c -I /usr/local/lib/ocaml exC.c
ocamlopt exC.o exOcaml.ml -o ex