else
db_name
in
- HExtlib.mkdir (Filename.dirname db_open);
+ HExtlib.mkdir (Filename.dirname db_to_open);
let db = Sqlite3.db_open db_to_open in
(* attach the REGEX function *)
Sqlite3.create_fun2 db "REGEXP"
| Sqlite3.Data.TEXT rex, Sqlite3.Data.TEXT s ->
let r = Str.regexp rex in
if Str.string_match r s 0 then
- Sqlite3.Data.INT 1L
+ Sqlite3.Data.INT Int64.one
else
- Sqlite3.Data.INT 0L
+ Sqlite3.Data.INT Int64.zero
| _ -> raise (Error "wrong types to 'REGEXP'")
- with exn -> HLog.error (Printexc.to_string exn); raise exn);
+ with Sys.Break -> Sqlite3.Data.INT Int64.zero
+ | exn -> HLog.error (Printexc.to_string exn); raise exn);
Some db
;;