X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fgrammar.ml;fp=src%2Fgrammar.ml;h=6537cb25d542e6011c8ba406fc78281a84f82d87;hb=7166a99542af5ad2f5b53fe9fa9e5164dff7cfe5;hp=0000000000000000000000000000000000000000;hpb=dabbda9e7f33734a3be4125f029b850ea39e2f19;p=SXSI%2Fxpathcomp.git

diff --git a/src/grammar.ml b/src/grammar.ml
new file mode 100644
index 0000000..6537cb2
--- /dev/null
+++ b/src/grammar.ml
@@ -0,0 +1,13 @@
+type t
+
+external load : Unix.file_descr -> bool -> t = "caml_grammar_load"
+
+let load filename bp =
+  let fd = Unix.openfile filename [ Unix.O_RDONLY ] 0o600 in
+  let g =
+    try load fd bp with
+    | e -> (Unix.close fd; raise e)
+  in
+  Unix.close fd;
+  g
+