Add function prototypes for OCaml APIs
authorPino Toscano <ptoscano@redhat.com>
Mon, 9 Oct 2017 10:52:56 +0000 (12:52 +0200)
committerRichard W.M. Jones <rjones@redhat.com>
Mon, 9 Oct 2017 15:08:26 +0000 (16:08 +0100)
This allows us to add attribute to them, which cannot be done directly
in a function definition.

augeas-c.c

index 59a3ef4..64fe99b 100644 (file)
 #include <caml/callback.h>
 #include <caml/custom.h>
 
+extern CAMLprim value ocaml_augeas_create (value rootv, value loadpathv, value flagsv);
+extern CAMLprim value ocaml_augeas_close (value tv);
+extern CAMLprim value ocaml_augeas_get (value tv, value pathv);
+extern CAMLprim value ocaml_augeas_exists (value tv, value pathv);
+extern CAMLprim value ocaml_augeas_insert (value tv, value beforev, value pathv, value labelv);
+extern CAMLprim value ocaml_augeas_rm (value tv, value pathv);
+extern CAMLprim value ocaml_augeas_match (value tv, value pathv);
+extern CAMLprim value ocaml_augeas_count_matches (value tv, value pathv);
+extern CAMLprim value ocaml_augeas_save (value tv);
+extern CAMLprim value ocaml_augeas_load (value tv);
+extern CAMLprim value ocaml_augeas_set (value tv, value pathv, value valuev);
+extern CAMLprim value ocaml_augeas_transform (value tv, value lensv, value filev, value modev);
+extern CAMLprim value ocaml_augeas_source (value tv, value pathv);
+
 typedef augeas *augeas_t;
 
 /* Map C aug_errcode_t to OCaml error_code. */