extralite 2.15 → 3.0.0

data/ext/extralite/database.c

@@ -2,6 +2,13 @@
 #include <stdlib.h>
 #include "extralite.h"
 
+/*
+ * Document-class: Extralite::Database
+ *
+ * This class represents an SQLite database connection, and provides various
+ * methods for interacting with the database.
+ */
+
 VALUE cDatabase;
 VALUE cBlob;
 VALUE cError;
@@ -16,7 +23,7 @@ ID ID_call;
 ID ID_each;
 ID ID_keys;
 ID ID_new;
-ID ID_pragma;
+ID ID_parse;
 ID ID_strip;
 ID ID_to_s;
 ID ID_track;
@@ -24,11 +31,11 @@ ID ID_track;
 VALUE SYM_at_least_once;
 VALUE SYM_full;
 VALUE SYM_gvl_release_threshold;
+VALUE SYM_legacy;
 VALUE SYM_once;
 VALUE SYM_none;
 VALUE SYM_normal;
 VALUE SYM_passive;
-VALUE SYM_pragma;
 VALUE SYM_read_only;
 VALUE SYM_restart;
 VALUE SYM_truncate;
@@ -120,26 +127,26 @@ default_flags:
 }
 
 void Database_apply_opts(VALUE self, Database_t *db, VALUE opts) {
-  VALUE value = Qnil;
+  if (NIL_P(opts)) goto modern_pragmas;
 
   // :gvl_release_threshold
-  value = rb_hash_aref(opts, SYM_gvl_release_threshold);
+  VALUE value = rb_hash_aref(opts, SYM_gvl_release_threshold);
   if (!NIL_P(value)) db->gvl_release_threshold = NUM2INT(value);
 
-  // :pragma
-  value = rb_hash_aref(opts, SYM_pragma);
-  if (!NIL_P(value)) rb_funcall(self, ID_pragma, 1, value);
-
-  // :wal
-  value = rb_hash_aref(opts, SYM_wal);
-  if (RTEST(value)) {
-    int rc = sqlite3_exec(db->sqlite3_db, "PRAGMA journal_mode=wal", NULL, NULL, NULL);
-    if (rc != SQLITE_OK)
-      rb_raise(cError, "Failed to set WAL journaling mode: %s", sqlite3_errstr(rc));
-    rc = sqlite3_exec(db->sqlite3_db, "PRAGMA synchronous=1", NULL, NULL, NULL);
-    if (rc != SQLITE_OK)
-      rb_raise(cError, "Failed to set synchronous mode: %s", sqlite3_errstr(rc));
-  }
+  value = rb_hash_aref(opts, SYM_legacy);
+  if (RTEST(value)) return;
+
+modern_pragmas:
+  // :modern pragmas
+  int rc = sqlite3_exec(db->sqlite3_db, "PRAGMA journal_mode=wal", NULL, NULL, NULL);
+  if (rc != SQLITE_OK)
+    rb_raise(cError, "Failed to set WAL journaling mode: %s", sqlite3_errstr(rc));
+  rc = sqlite3_exec(db->sqlite3_db, "PRAGMA synchronous=1", NULL, NULL, NULL);
+  if (rc != SQLITE_OK)
+    rb_raise(cError, "Failed to set synchronous mode: %s", sqlite3_errstr(rc));
+  rc = sqlite3_exec(db->sqlite3_db, "PRAGMA foreign_keys=1", NULL, NULL, NULL);
+  if (rc != SQLITE_OK)
+    rb_raise(cError, "Failed to set foreign keys mode: %s", sqlite3_errstr(rc));
 }
 
 int Database_progress_handler(void *ptr) {
@@ -166,16 +173,16 @@ int Database_busy_handler(void *ptr, int v) {
  *
  * - `:gvl_release_threshold` (`Integer`): sets the GVL release threshold (see
  *   `#gvl_release_threshold=`).
- * - `:pragma` (`Hash`): one or more pragmas to set upon opening the database.
  * - `:read_only` (`true`/`false`): opens the database in read-only mode if true.
- * - `:wal` (`true`/`false`): sets up the database for [WAL journaling
- *   mode](https://www.sqlite.org/wal.html) by setting `PRAGMA journal_mode=wal`
- *   and `PRAGMA synchronous=1`.
+ * - `:legacy` (`true`/`false`): By default the database is set up for
+ * concurrent access with [WAL journaling
+ * mode](https://www.sqlite.org/wal.html). To prevent Extralite from setting up
+ * WAL journaling, set this option to true.
  *
  * @overload initialize(path)
  *   @param path [String] file path (or ':memory:' for memory database)
  *   @return [void]
- * @overload initialize(path, gvl_release_threshold: , on_progress: , read_only: , wal: )
+ * @overload initialize(path, gvl_release_threshold: , on_progress: , read_only: , legacy: )
  *   @param path [String] file path (or ':memory:' for memory database)
  *   @param options [Hash] options for opening the database
  *   @return [void]
@@ -203,11 +210,9 @@ VALUE Database_initialize(int argc, VALUE *argv, VALUE self) {
   }
 
 #ifdef HAVE_SQLITE3_ENABLE_LOAD_EXTENSION
-  rc = sqlite3_enable_load_extension(db->sqlite3_db, 1);
-  if (rc) {
-    sqlite3_close_v2(db->sqlite3_db);
-    rb_raise(cError, "%s", sqlite3_errmsg(db->sqlite3_db));
-  }
+  // Allow loading extensions only using the C interface, i.e. Database#load_extension
+  // see: https://www.sqlite.org/c3ref/c_dbconfig_defensive.html#sqlitedbconfigenableloadextension
+  sqlite3_db_config(db->sqlite3_db ,SQLITE_DBCONFIG_ENABLE_LOAD_EXTENSION, 1, NULL);
 #endif
 
   db->trace_proc = Qnil;
@@ -223,7 +228,7 @@ VALUE Database_initialize(int argc, VALUE *argv, VALUE self) {
     sqlite3_busy_handler(db->sqlite3_db, &Database_busy_handler, db);
   }
 
-  if (!NIL_P(opts)) Database_apply_opts(self, db, opts);
+  Database_apply_opts(self, db, opts);
   return Qnil;
 }
 
@@ -238,7 +243,7 @@ VALUE Database_read_only_p(VALUE self) {
 }
 
 /* Closes the database.
- * 
+ *
  * @return [Extralite::Database] database
  */
 VALUE Database_close(VALUE self) {
@@ -276,9 +281,9 @@ static inline VALUE Database_perform_query(int argc, VALUE *argv, VALUE self, VA
   VALUE sql = Qnil;
   VALUE transform = Qnil;
   // transform mode is set and the first parameter is not a string, so we expect
-  // a transform.
+  // a transform.,
   int got_transform = (TYPE(argv[0]) != T_STRING);
-  
+
   // extract query from args
   rb_check_arity(argc, got_transform ? 2 : 1, UNLIMITED_ARGUMENTS);
 
@@ -329,7 +334,7 @@ static inline VALUE Database_perform_query(int argc, VALUE *argv, VALUE self, VA
  * specified using keyword arguments:
  *
  *     db.query('select * from foo where x = :bar', bar: 42)
- * 
+ *
  * @overload query(sql, ...)
  *   @param sql [String] SQL statement
  *   @return [Array<Hash>, Integer] rows or total changes
@@ -339,7 +344,11 @@ static inline VALUE Database_perform_query(int argc, VALUE *argv, VALUE self, VA
  *   @return [Array<Hash>, Integer] rows or total changes
  */
 VALUE Database_query(int argc, VALUE *argv, VALUE self) {
-  return Database_perform_query(argc, argv, self, safe_query_hash, QUERY_HASH);
+  int got_transform = (argc > 1) && (TYPE(argv[0]) != T_STRING);
+  if (got_transform && rb_obj_is_instance_of(argv[0], cTransform))
+    return Database_perform_query(argc, argv, self, safe_query_transform, QUERY_HASH);
+  else
+    return Database_perform_query(argc, argv, self, safe_query_hash, QUERY_HASH);
 }
 
 /* Runs a query and transforms rows through the given transform poc. Each row is
@@ -382,7 +391,7 @@ VALUE Database_query_splat(int argc, VALUE *argv, VALUE self) {
  *     db.query_array('select * from foo where x = :bar', bar: 42)
  *     db.query_array('select * from foo where x = :bar', 'bar' => 42)
  *     db.query_array('select * from foo where x = :bar', ':bar' => 42)
- * 
+ *
  * @overload query_array(sql, ...)
  *   @param sql [String] SQL statement
  *   @return [Array<Array>, Integer] rows or total changes
@@ -418,7 +427,11 @@ VALUE Database_query_array(int argc, VALUE *argv, VALUE self) {
  *   @return [Array, any] row
  */
 VALUE Database_query_single(int argc, VALUE *argv, VALUE self) {
-  return Database_perform_query(argc, argv, self, safe_query_single_row_hash, QUERY_HASH);
+  int got_transform = (argc > 1) && (TYPE(argv[0]) != T_STRING);
+  if (got_transform && rb_obj_is_instance_of(argv[0], cTransform))
+    return Database_perform_query(argc, argv, self, safe_query_single_row_transform, QUERY_HASH);
+  else
+    return Database_perform_query(argc, argv, self, safe_query_single_row_hash, QUERY_HASH);
 }
 
 /* Runs a query returning a single row as an array or a single value.
@@ -434,7 +447,7 @@ VALUE Database_query_single(int argc, VALUE *argv, VALUE self) {
  * specified using keyword arguments:
  *
  *     db.query_single_splat('select * from foo where x = :bar', bar: 42)
- * 
+ *
  * @overload query_single_splat(sql, ...) -> row
  *   @param sql [String] SQL statement
  *   @return [Array, any] row
@@ -460,7 +473,7 @@ VALUE Database_query_single_splat(int argc, VALUE *argv, VALUE self) {
  * specified using keyword arguments:
  *
  *     db.query_single_array('select * from foo where x = :bar', bar: 42)
- * 
+ *
  * @overload query_single_array(sql, ...) -> row
  *   @param sql [String] SQL statement
  *   @return [Array, any] row
@@ -647,7 +660,7 @@ VALUE Database_batch_query_splat(VALUE self, VALUE sql, VALUE parameters) {
 }
 
 /* Returns the column names for the given query, without running it.
- * 
+ *
  * @return [Array<String>] column names
  */
 VALUE Database_columns(VALUE self, VALUE sql) {
@@ -655,7 +668,7 @@ VALUE Database_columns(VALUE self, VALUE sql) {
 }
 
 /* Returns the rowid of the last inserted row.
- * 
+ *
  * @return [Integer] last rowid
  */
 VALUE Database_last_insert_rowid(VALUE self) {
@@ -665,7 +678,7 @@ VALUE Database_last_insert_rowid(VALUE self) {
 }
 
 /* Returns the number of changes made to the database by the last operation.
- * 
+ *
  * @return [Integer] number of changes
  */
 VALUE Database_changes(VALUE self) {
@@ -676,7 +689,7 @@ VALUE Database_changes(VALUE self) {
 
 /* Returns the database filename. If db_name is given, returns the filename for
  * the respective attached database.
- * 
+ *
  * @overload filename()
  *   @return [String] database filename
  * @overload filename(db_name)
@@ -695,7 +708,7 @@ VALUE Database_filename(int argc, VALUE *argv, VALUE self) {
 }
 
 /* Returns true if a transaction is currently in progress.
- * 
+ *
  * @return [bool] is transaction in progress
  */
 VALUE Database_transaction_active_p(VALUE self) {
@@ -706,7 +719,7 @@ VALUE Database_transaction_active_p(VALUE self) {
 
 #ifdef HAVE_SQLITE3_LOAD_EXTENSION
 /* Loads an extension with the given path.
- * 
+ *
  * @param path [String] extension file path
  * @return [Extralite::Database] database
  */
@@ -728,8 +741,17 @@ VALUE Database_load_extension(VALUE self, VALUE path) {
 static inline VALUE Database_prepare(int argc, VALUE *argv, VALUE self, VALUE mode) {
   rb_check_arity(argc, 1, UNLIMITED_ARGUMENTS);
 
+  VALUE transform = Qnil;
+  if (argc > 1 && rb_obj_is_instance_of(argv[0], cTransform)) {
+    transform = argv[0];
+    argv++;
+    argc--;
+  }
+
   VALUE args[] = { self, argv[0], mode};
   VALUE query = rb_funcall_passing_block(cQuery, ID_new, 3, args);
+  if (!NIL_P(transform))
+    Query_transform_set(query, transform);
   if (argc > 1) rb_funcallv(query, ID_bind, argc - 1, argv + 1);
   RB_GC_GUARD(query);
   return query;
@@ -739,11 +761,14 @@ static inline VALUE Database_prepare(int argc, VALUE *argv, VALUE self, VALUE mo
  *   db.prepare(sql) -> query
  *   db.prepare(sql, *params) -> query
  *   db.prepare(sql, *params) { ... } -> query
+ *   db.prepare(transform, sql) -> query
+ *   db.prepare(transform, sql, *params) -> query
  *
  * Creates a prepared query with the given SQL query in hash mode. If query
  * parameters are given, they are bound to the query. If a block is given, it is
  * used as a transform proc.
- * 
+ *
+ * @param transform [Extralite::Transform] transform
  * @param sql [String] SQL statement
  * @param *params [Array<any>] parameters to bind
  * @return [Extralite::Query] prepared query
@@ -760,7 +785,7 @@ VALUE Database_prepare_hash(int argc, VALUE *argv, VALUE self) {
  * Creates a prepared query with the given SQL query in argv mode. If query
  * parameters are given, they are bound to the query. If a block is given, it is
  * used as a transform proc.
- * 
+ *
  * @param sql [String] SQL statement
  * @param *params [Array<any>] parameters to bind
  * @return [Extralite::Query] prepared query
@@ -777,7 +802,7 @@ VALUE Database_prepare_splat(int argc, VALUE *argv, VALUE self) {
  * Creates a prepared query with the given SQL query in array mode. If query
  * parameters are given, they are bound to the query. If a block is given, it is
  * used as a transform proc.
- * 
+ *
  * @param sql [String] SQL statement
  * @param *params [Array<any>] parameters to bind
  * @return [Extralite::Query] prepared query
@@ -793,7 +818,7 @@ VALUE Database_prepare_array(int argc, VALUE *argv, VALUE self) {
  * It is not safe to call `#interrupt` on a database that is about to be closed.
  * For more information, consult the [sqlite3 API
  * docs](https://sqlite.org/c3ref/interrupt.html).
- * 
+ *
  * @return [Extralite::Database] database
  */
 VALUE Database_interrupt(VALUE self) {
@@ -874,11 +899,11 @@ VALUE backup_cleanup(VALUE ptr) {
  * method with two arguments: the remaining page count, and the total page
  * count, which can be used to display the progress to the user or to collect
  * statistics.
- * 
+ *
  *     db_src.backup(db_dest) do |remaining, total|
  *       puts "Backing up #{remaining}/#{total}"
  *     end
- * 
+ *
  * @param dest [String, Extralite::Database] backup destination
  * @param src_db_name [String] source database name (default: "main")
  * @param dst_db_name [String] Destination database name (default: "main")
@@ -933,12 +958,12 @@ VALUE Database_backup(int argc, VALUE *argv, VALUE self) {
 /* Returns runtime status values for the given op as an array containing the
  * current value and the high water mark value. To reset the high water mark,
  * pass true as reset.
- * 
+ *
  * You can use the various `Extralite::SQLITE_STATUS_xxx` constants with this
  * method:
- * 
+ *
  *     Extralite.runtime_status(Extralite::SQLITE_STATUS_MEMORY_USED)
- * 
+ *
  * For more information see the SQLite docs: https://sqlite.org/c3ref/c_status_malloc_count.html
  *
  * @overload runtime_status(op)
@@ -964,7 +989,7 @@ VALUE Extralite_runtime_status(int argc, VALUE* argv, VALUE self) {
 /* Returns database status values for the given op as an array containing the
  * current value and the high water mark value. To reset the high water mark,
  * pass true as reset.
- * 
+ *
  * @overload status(op)
  *   @param op [Integer] op
  *   @return [Array<Integer>] array containing the value and high water mark
@@ -989,7 +1014,7 @@ VALUE Database_status(int argc, VALUE *argv, VALUE self) {
 
 /* Returns the current limit for the given category. If a new value is given,
  * sets the limit to the new value and returns the previous value.
- * 
+ *
  * @overload limit(category)
  *   @param category [Integer] category
  *   @return [Integer] limit value
@@ -1018,7 +1043,7 @@ VALUE Database_limit(int argc, VALUE *argv, VALUE self) {
  * cause the program to wait for the database to become available. If the
  * database is still locked when the timeout period has elapsed, the query will
  * fail with a `Extralite::BusyError` exception.
- * 
+ *
  * Setting the busy timeout allows other threads to run while waiting for the
  * database to become available. See also `#on_progress`.
  *
@@ -1036,7 +1061,7 @@ VALUE Database_busy_timeout_set(VALUE self, VALUE sec) {
 }
 
 /* Returns the total number of changes made to the database since opening it.
- * 
+ *
  * @return [Integer] total changes
  */
 VALUE Database_total_changes(VALUE self) {
@@ -1048,7 +1073,7 @@ VALUE Database_total_changes(VALUE self) {
 
 /* Installs or removes a block that will be invoked for every SQL statement
  * executed. To stop tracing, call `#trace` without a block.
- * 
+ *
  * @return [Extralite::Database] database
  */
 VALUE Database_trace(VALUE self) {
@@ -1066,13 +1091,13 @@ VALUE Database_trace(VALUE self) {
  * then be used to store the changes to a file, apply them to another database,
  * or undo the changes. The given table names specify which tables should be
  * tracked for changes. Passing a value of nil causes all tables to be tracked.
- * 
+ *
  *     changeset = db.track_changes(:foo, :bar) do
  *       perform_a_bunch_of_queries
  *     end
- * 
+ *
  *     File.open('my.changes', 'w+') { |f| f << changeset.to_blob }
- * 
+ *
  * @param *tables [Array<String, Symbol>] table(s) to track
  * @return [Extralite::Changeset] changeset
 */
@@ -1195,10 +1220,10 @@ struct progress_handler parse_progress_handler_opts(VALUE opts) {
  * work correctly also when running simple queries that don't include many
  * VM instructions. If the `tick` value is greater than the period value it is
  * automatically capped to the period value.
- * 
+ *
  * The `mode` parameter controls the progress handler mode, which is one of the
  * following:
- * 
+ *
  * - `:normal` (default): the progress handler proc is invoked on query
  *   progress.
  * - `:once`: the progress handler proc is invoked only once, when preparing the
@@ -1286,12 +1311,12 @@ VALUE Database_on_progress(int argc, VALUE *argv, VALUE self) {
 
 /* call-seq:
  *   Extralite.on_progress(**opts) { ... }
- * 
+ *
  * Installs or removes a global progress handler that will be executed
  * periodically while a query is running. This method can be used to support
  * switching between fibers and threads or implementing timeouts for running
  * queries.
- * 
+ *
  * This method sets the progress handler settings and behaviour for all
  * subsequently created `Database` instances. Calling this method will have no
  * effect on already existing `Database` instances
@@ -1309,10 +1334,10 @@ VALUE Database_on_progress(int argc, VALUE *argv, VALUE self) {
  * work correctly also when running simple queries that don't include many
  * VM instructions. If the `tick` value is greater than the period value it is
  * automatically capped to the period value.
- * 
+ *
  * The `mode` parameter controls the progress handler mode, which is one of the
  * following:
- * 
+ *
  * - `:normal` (default): the progress handler proc is invoked on query
  *   progress.
  * - `:once`: the progress handler proc is invoked only once, when preparing the
@@ -1353,7 +1378,7 @@ VALUE Extralite_on_progress(int argc, VALUE *argv, VALUE self) {
 }
 
 /* Returns the last error code for the database.
- * 
+ *
  * @return [Integer] last error code
  */
 VALUE Database_errcode(VALUE self) {
@@ -1363,7 +1388,7 @@ VALUE Database_errcode(VALUE self) {
 }
 
 /* Returns the last error message for the database.
- * 
+ *
  * @return [String] last error message
  */
 VALUE Database_errmsg(VALUE self) {
@@ -1375,7 +1400,7 @@ VALUE Database_errmsg(VALUE self) {
 #ifdef HAVE_SQLITE3_ERROR_OFFSET
 /* Returns the offset for the last error. This is useful for indicating where in
  * the SQL string an error was encountered.
- * 
+ *
  * @return [Integer] offset in the last submitted SQL string
  */
 VALUE Database_error_offset(VALUE self) {
@@ -1414,7 +1439,7 @@ VALUE Database_gvl_release_threshold_get(VALUE self) {
 
 /* Sets the database's GVL release threshold. The release policy changes
  * according to the given value:
- * 
+ *
  * - Less than 0: the GVL is never released while running queries. This is the
  *   policy used when a progress handler is set. For more information see
  *   `#on_progress`.
@@ -1499,10 +1524,40 @@ VALUE Database_wal_checkpoint(int argc, VALUE *argv, VALUE self) {
   );
   if (rc != SQLITE_OK)
     rb_raise(cError, "Failed to perform WAL checkpoint: %s", sqlite3_errstr(rc));
-  
+
   return rb_ary_new3(2, INT2NUM(total_frames), INT2NUM(checkpointed_frames));
 }
 
+/* Flushes dirty pages in the pager-cache to the disk. For more information see:
+ * https://sqlite.org/c3ref/db_cacheflush.html
+ *
+ * @return [Extralite::Database] Database
+*/
+VALUE Database_cache_flush(VALUE self) {
+  Database_t *db = self_to_open_database(self);
+
+  int rc = sqlite3_db_cacheflush(db->sqlite3_db);
+  if (rc != SQLITE_OK)
+    rb_raise(cError, "Failed to flush the database cache: %s", sqlite3_errstr(rc));
+
+  return self;
+}
+
+/* Attempts to free up as much memory as possible. For more information see:
+ * https://sqlite.org/c3ref/db_release_memory.html
+ *
+ * @return [Extralite::Database] Database
+*/
+VALUE Database_release_memory(VALUE self) {
+  Database_t *db = self_to_open_database(self);
+
+  int rc = sqlite3_db_release_memory(db->sqlite3_db);
+  if (rc != SQLITE_OK)
+    rb_raise(cError, "Failed to release memory: %s", sqlite3_errstr(rc));
+
+  return self;
+}
+
 void Init_ExtraliteDatabase(void) {
   VALUE mExtralite = rb_define_module("Extralite");
   rb_define_singleton_method(mExtralite, "runtime_status", Extralite_runtime_status, -1);
@@ -1515,10 +1570,11 @@ void Init_ExtraliteDatabase(void) {
   rb_define_method(cDatabase, "backup",                 Database_backup, -1);
   rb_define_method(cDatabase, "batch_execute",          Database_batch_execute, 2);
   rb_define_method(cDatabase, "batch_query",            Database_batch_query, 2);
-  rb_define_method(cDatabase, "batch_query_array",        Database_batch_query_array, 2);
-  rb_define_method(cDatabase, "batch_query_splat",       Database_batch_query_splat, 2);
+  rb_define_method(cDatabase, "batch_query_array",      Database_batch_query_array, 2);
+  rb_define_method(cDatabase, "batch_query_splat",      Database_batch_query_splat, 2);
   rb_define_method(cDatabase, "batch_query_hash",       Database_batch_query, 2);
   rb_define_method(cDatabase, "busy_timeout=",          Database_busy_timeout_set, 1);
+  rb_define_method(cDatabase, "cache_flush",            Database_cache_flush, 0);
   rb_define_method(cDatabase, "changes",                Database_changes, 0);
   rb_define_method(cDatabase, "close",                  Database_close, 0);
   rb_define_method(cDatabase, "closed?",                Database_closed_p, 0);
@@ -1558,6 +1614,7 @@ void Init_ExtraliteDatabase(void) {
   rb_define_method(cDatabase, "query_single_splat",     Database_query_single_splat, -1);
   rb_define_method(cDatabase, "query_single_hash",      Database_query_single, -1);
   rb_define_method(cDatabase, "read_only?",             Database_read_only_p, 0);
+  rb_define_method(cDatabase, "release_memory",         Database_release_memory, 0);
   rb_define_method(cDatabase, "status",                 Database_status, -1);
   rb_define_method(cDatabase, "total_changes",          Database_total_changes, 0);
   rb_define_method(cDatabase, "trace",                  Database_trace, 0);
@@ -1566,7 +1623,7 @@ void Init_ExtraliteDatabase(void) {
   #ifdef EXTRALITE_ENABLE_CHANGESET
   rb_define_method(cDatabase, "track_changes",          Database_track_changes, -1);
   #endif
-  
+
   rb_define_method(cDatabase, "transaction_active?",    Database_transaction_active_p, 0);
 
   cBlob           = rb_define_class_under(mExtralite, "Blob", rb_cString);
@@ -1575,39 +1632,39 @@ void Init_ExtraliteDatabase(void) {
   cBusyError      = rb_define_class_under(mExtralite, "BusyError", cError);
   cInterruptError = rb_define_class_under(mExtralite, "InterruptError", cError);
   cParameterError = rb_define_class_under(mExtralite, "ParameterError", cError);
-  eArgumentError  = rb_const_get(rb_cObject, rb_intern("ArgumentError"));
-
-  ID_bind         = rb_intern("bind");
-  ID_call         = rb_intern("call");
-  ID_each         = rb_intern("each");
-  ID_keys         = rb_intern("keys");
-  ID_new          = rb_intern("new");
-  ID_pragma       = rb_intern("pragma");
-  ID_strip        = rb_intern("strip");
-  ID_to_s         = rb_intern("to_s");
-  ID_track        = rb_intern("track");
-
-  SYM_at_least_once         = ID2SYM(rb_intern("at_least_once"));
-  SYM_full                  = ID2SYM(rb_intern("full"));
-  SYM_gvl_release_threshold = ID2SYM(rb_intern("gvl_release_threshold"));
-  SYM_once                  = ID2SYM(rb_intern("once"));
-  SYM_none                  = ID2SYM(rb_intern("none"));
-  SYM_normal                = ID2SYM(rb_intern("normal"));
-  SYM_passive               = ID2SYM(rb_intern("passive"));
-  SYM_pragma                = ID2SYM(rb_intern("pragma"));
-  SYM_read_only             = ID2SYM(rb_intern("read_only"));
-  SYM_restart               = ID2SYM(rb_intern("restart"));
-  SYM_truncate              = ID2SYM(rb_intern("truncate"));
-  SYM_wal                   = ID2SYM(rb_intern("wal"));
+  eArgumentError  = rb_const_get(rb_cObject, rb_intern_const("ArgumentError"));
+
+  ID_bind         = rb_intern_const("bind");
+  ID_call         = rb_intern_const("call");
+  ID_each         = rb_intern_const("each");
+  ID_keys         = rb_intern_const("keys");
+  ID_new          = rb_intern_const("new");
+  ID_parse        = rb_intern_const("parse");
+  ID_strip        = rb_intern_const("strip");
+  ID_to_s         = rb_intern_const("to_s");
+  ID_track        = rb_intern_const("track");
+
+  SYM_at_least_once         = ID2SYM(rb_intern_const("at_least_once"));
+  SYM_full                  = ID2SYM(rb_intern_const("full"));
+  SYM_gvl_release_threshold = ID2SYM(rb_intern_const("gvl_release_threshold"));
+  SYM_legacy                = ID2SYM(rb_intern_const("legacy"));
+  SYM_once                  = ID2SYM(rb_intern_const("once"));
+  SYM_none                  = ID2SYM(rb_intern_const("none"));
+  SYM_normal                = ID2SYM(rb_intern_const("normal"));
+  SYM_passive               = ID2SYM(rb_intern_const("passive"));
+  SYM_read_only             = ID2SYM(rb_intern_const("read_only"));
+  SYM_restart               = ID2SYM(rb_intern_const("restart"));
+  SYM_truncate              = ID2SYM(rb_intern_const("truncate"));
+  SYM_wal                   = ID2SYM(rb_intern_const("wal"));
 
   rb_gc_register_mark_object(SYM_at_least_once);
   rb_gc_register_mark_object(SYM_full);
   rb_gc_register_mark_object(SYM_gvl_release_threshold);
+  rb_gc_register_mark_object(SYM_legacy);
   rb_gc_register_mark_object(SYM_once);
   rb_gc_register_mark_object(SYM_none);
   rb_gc_register_mark_object(SYM_normal);
   rb_gc_register_mark_object(SYM_passive);
-  rb_gc_register_mark_object(SYM_pragma);
   rb_gc_register_mark_object(SYM_read_only);
   rb_gc_register_mark_object(SYM_restart);
   rb_gc_register_mark_object(SYM_truncate);