ocaml/testsuite/tests/lib-dynlink-native/plugin_ext.ml

18 lines
939 B
OCaml

(***********************************************************************)
(* *)
(* OCaml *)
(* *)
(* Alain Frisch, LexiFi *)
(* *)
(* Copyright 2007 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *)
(* under the terms of the Q Public License version 1.0. *)
(* *)
(***********************************************************************)
external fact: int -> string = "factorial"
let () =
Api.reg_mod "plugin_ext";
Printf.printf "fact 10 = %s\n" (fact 10)