src/grammar.ml

   1 type t
   2
   3 external load : Unix.file_descr -> bool -> t = "caml_grammar_load"
   4
   5 let load filename bp =
   6   let fd = Unix.openfile filename [ Unix.O_RDONLY ] 0o600 in
   7   let g =
   8     try load fd bp with
   9     | e -> (Unix.close fd; raise e)
  10   in
  11   Unix.close fd;
  12   g
  13