/* Augeas OCaml bindings
- * Copyright (C) 2008-2012 Red Hat Inc., Richard W.M. Jones
+ * Copyright (C) 2008-2017 Red Hat Inc., Richard W.M. Jones
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
else if (r == -1) /* Error or multiple matches */
raise_error (t, "Augeas.get");
else
- failwith ("Augeas.get: bad return value");
+ caml_failwith ("Augeas.get: bad return value");
CAMLreturn (optv);
}
CAMLprim value
ocaml_augeas_source (value tv, value pathv)
{
+#ifdef HAVE_AUG_SOURCE
CAMLparam2 (tv, pathv);
CAMLlocal2 (optv, v);
augeas_t t = Augeas_t_val (tv);
raise_error (t, "Augeas.source");
CAMLreturn (optv);
+#else
+ caml_failwith ("Augeas.source: function not implemented");
+#endif
}