projects
/
SXSI
/
xpathcomp.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
6537cb25d542e6011c8ba406fc78281a84f82d87
[SXSI/xpathcomp.git]
/
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