# # patch "mlsqlite/ocaml-sqlite3.c" # from [2625b402bdfbf6c64f5fccc95417fb400eff5751] # to [d50d50529fb7addea2647f3f2369fe47d1e462a9] # # patch "mlsqlite/sqlite3.ml" # from [338cc1c5b7236092fbb8703848fa3708e56efffb] # to [1bab996441c6aa8dc1e528681d6dcdc89d928f42] # # patch "mlsqlite/sqlite3.mli" # from [f4b8ff580e57359fee1b728df9d8a9982158433c] # to [7675ce305667d22ed95e6040e58b94769a4b66d5] # ======================================================================== --- mlsqlite/ocaml-sqlite3.c 2625b402bdfbf6c64f5fccc95417fb400eff5751 +++ mlsqlite/ocaml-sqlite3.c d50d50529fb7addea2647f3f2369fe47d1e462a9 @@ -258,11 +258,13 @@ return Val_long (sqlite3_total_changes (Sqlite3_val (db))); } +#if 0 CAMLprim value ml_sqlite3_get_autocommit (value db) { return Val_bool (sqlite3_get_autocommit (Sqlite3_val (db))); } +#endif CAMLprim value ml_sqlite3_sleep (value ms) ======================================================================== --- mlsqlite/sqlite3.ml 338cc1c5b7236092fbb8703848fa3708e56efffb +++ mlsqlite/sqlite3.ml 1bab996441c6aa8dc1e528681d6dcdc89d928f42 @@ -122,7 +122,7 @@ external last_insert_rowid : db -> int64 = "ml_sqlite3_last_insert_rowid" external changes : db -> int = "ml_sqlite3_changes" external total_changes : db -> int = "ml_sqlite3_total_changes" -external get_autocommit : db -> bool = "ml_sqlite3_get_autocommit" +(* external get_autocommit : db -> bool = "ml_sqlite3_get_autocommit" *) external sleep : int -> unit = "ml_sqlite3_sleep" external busy_set : db -> (int -> [`FAIL|`RETRY]) -> unit ======================================================================== --- mlsqlite/sqlite3.mli f4b8ff580e57359fee1b728df9d8a9982158433c +++ mlsqlite/sqlite3.mli 7675ce305667d22ed95e6040e58b94769a4b66d5 @@ -52,7 +52,7 @@ external last_insert_rowid : db -> int64 = "ml_sqlite3_last_insert_rowid" external changes : db -> int = "ml_sqlite3_changes" external total_changes : db -> int = "ml_sqlite3_total_changes" -external get_autocommit : db -> bool = "ml_sqlite3_get_autocommit" +(* external get_autocommit : db -> bool = "ml_sqlite3_get_autocommit" *) external sleep : int -> unit = "ml_sqlite3_sleep" external busy_set : db -> (int -> [ `FAIL | `RETRY ]) -> unit