+ let db = Sqlite3.db_open tmp_db_name in
+ (* attach the REGEX function *)
+ Sqlite3.create_fun_2 db "REGEXP"
+ (fun s rex ->
+ match rex, s with
+ | Sqlite3.Data.TEXT rex, Sqlite3.Data.BLOB s
+ | 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
+ else
+ Sqlite3.Data.INT 0L
+ | _ -> raise (Error "wrong types to 'REGEXP'"));
+ Some db