All pastes #923566 Raw Edit

Someone

public text v1 · immutable
#923566 ·published 2008-02-29 17:41 UTC
rendered paste body
fichier 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