From: Pino Toscano <ptoscano@redhat.com>
Date: Mon, 9 Oct 2017 10:52:56 +0000 (+0200)
Subject: Add function prototypes for OCaml APIs
X-Git-Tag: v0.6~15
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=a2adf57c2cde07976bf343b51c2d1217ed45540e;p=ocaml-augeas.git

Add function prototypes for OCaml APIs

This allows us to add attribute to them, which cannot be done directly
in a function definition.
---

diff --git a/augeas-c.c b/augeas-c.c
index 59a3ef4..64fe99b 100644
--- a/augeas-c.c
+++ b/augeas-c.c
@@ -29,6 +29,20 @@
 #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. */