X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=augeas-c.c;fp=augeas-c.c;h=64fe99b36f795ab3628947bd38396560a52aa162;hb=a2adf57c2cde07976bf343b51c2d1217ed45540e;hp=59a3ef4f02bc54008c0fe6a69374abbe2090be9d;hpb=8e1cf339a7d6deae00e668da01ee2bce3031b6cc;p=ocaml-augeas.git 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 #include +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. */