aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Family Day update

Browse source
This commit is contained in:
Ingy döt Net 2020-02-17 23:21:07 -08:00
parent aac6731f2c
commit 9ad63ea473
2442 changed files with 39761 additions and 8255 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Call-a-foreign-language-function/OCaml/call-a-foreign-language-function-1.ocaml
View file

@ -1,3 +1,3 @@
void myfunc_a();
float myfunc_b(int, float);
char *myfunc_c(int *);
char *myfunc_c(int *, int);

4
Task/Call-a-foreign-language-function/OCaml/call-a-foreign-language-function-3.ocaml
View file

@ -9,7 +9,7 @@ caml_myfunc_a(value unit) {
}
CAMLprim value
caml_myfunc_b(value a; value b) {
caml_myfunc_b(value a, value b) {
float c = myfunc_b(Int_val(a), Double_val(b));
return caml_copy_double(c);
}
@ -24,7 +24,7 @@ caml_myfunc_c(value ml_array) {
for (i=0; i < len; i++) {
arr[i] = Int_val(Field(ml_array, i));
}
s = myfunc_c(arr);
s = myfunc_c(arr, len);
free(arr);
return caml_copy_string(s);
}

11
Task/Call-a-foreign-language-function/OCaml/call-a-foreign-language-function-5.ocaml Normal file
View file

@ -0,0 +1,11 @@
open Ctypes
open Foreign
let myfunc_a = foreign "myfunc_a" (void @-> returning void)
let myfunc_b = foreign "myfunc_b" (int @-> float @-> returning float)
let myfunc_c = foreign "myfunc_c" (ptr void @-> int @-> returning string)
let myfunc_c lst =
let arr = CArray.of_list int lst in
myfunc_c (to_voidp (CArray.start arr)) (CArray.length arr)
;;