extralite 1.12 → 1.13

data/ext/extralite/extralite.c

@@ -1,702 +0,0 @@
-#include <stdio.h>
-#include "ruby.h"
-#include "ruby/thread.h"
-#include <sqlite3.h>
-
-VALUE cError;
-VALUE cSQLError;
-VALUE cBusyError;
-
-ID ID_KEYS;
-ID ID_STRIP;
-ID ID_TO_S;
-
-typedef struct Database_t {
-  sqlite3 *sqlite3_db;
-} Database_t;
-
-static size_t Database_size(const void *ptr) {
-  return sizeof(Database_t);
-}
-
-static void Database_free(void *ptr) {
-  Database_t *db = ptr;
-  if (db->sqlite3_db) {
-    sqlite3_close(db->sqlite3_db);
-  }
-  // close db
-  free(ptr);
-}
-
-static const rb_data_type_t Database_type = {
-    "Database",
-    {0, Database_free, Database_size,},
-    0, 0, RUBY_TYPED_FREE_IMMEDIATELY
-};
-
-static VALUE Database_allocate(VALUE klass) {
-  Database_t *db = ALLOC(Database_t);
-  db->sqlite3_db = 0;
-  return TypedData_Wrap_Struct(klass, &Database_type, db);
-}
-
-#define GetDatabase(obj, database) \
-  TypedData_Get_Struct((obj), Database_t, &Database_type, (database))
-
-// make sure the database is open
-#define GetOpenDatabase(obj, database) { \
-  TypedData_Get_Struct((obj), Database_t, &Database_type, (database)); \
-  if (!(database)->sqlite3_db) { \
-    rb_raise(cError, "Database is closed"); \
-  } \
-}
-
-/* call-seq: sqlite3_version
- *
- * Returns the sqlite3 version used by Extralite.
- */
-
-VALUE Extralite_sqlite3_version(VALUE self) {
-  return rb_str_new_cstr(sqlite3_version);
-}
-
-/* call-seq: initialize(path)
- *
- * Initializes a new SQLite database with the given path.
- */
-
-VALUE Database_initialize(VALUE self, VALUE path) {
-  int rc;
-  Database_t *db;
-  GetDatabase(self, db);
-
-  rc = sqlite3_open(StringValueCStr(path), &db->sqlite3_db);
-  if (rc) {
-    sqlite3_close(db->sqlite3_db);
-    rb_raise(cError, "%s", sqlite3_errmsg(db->sqlite3_db));
-  }
-
-  rc = sqlite3_enable_load_extension(db->sqlite3_db, 1);
-  if (rc) {
-    sqlite3_close(db->sqlite3_db);
-    rb_raise(cError, "%s", sqlite3_errmsg(db->sqlite3_db));
-  }
-
-  return Qnil;
-}
-
-/* call-seq: close
- *
- * Closes the database.
- */
-VALUE Database_close(VALUE self) {
-  int rc;
-  Database_t *db;
-  GetDatabase(self, db);
-
-  rc = sqlite3_close(db->sqlite3_db);
-  if (rc) {
-    rb_raise(cError, "%s", sqlite3_errmsg(db->sqlite3_db));
-  }
-
-  db->sqlite3_db = 0;
-  return self;
-}
-
-/* call-seq: closed?
- *
- * Returns true if the database is closed.
- */
-VALUE Database_closed_p(VALUE self) {
-  Database_t *db;
-  GetDatabase(self, db);
-
-  return db->sqlite3_db ? Qfalse : Qtrue;
-}
-
-static inline VALUE get_column_value(sqlite3_stmt *stmt, int col, int type) {
-  switch (type) {
-    case SQLITE_NULL:
-      return Qnil;
-    case SQLITE_INTEGER:
-      return LL2NUM(sqlite3_column_int64(stmt, col));
-    case SQLITE_FLOAT:
-      return DBL2NUM(sqlite3_column_double(stmt, col));
-    case SQLITE_TEXT:
-      return rb_str_new_cstr((char *)sqlite3_column_text(stmt, col));
-    case SQLITE_BLOB:
-      return rb_str_new((const char *)sqlite3_column_blob(stmt, col), (long)sqlite3_column_bytes(stmt, col));
-    default:
-      rb_raise(cError, "Unknown column type: %d", type);
-  }
-
-  return Qnil;
-}
-
-static void bind_parameter_value(sqlite3_stmt *stmt, int pos, VALUE value);
-
-static inline void bind_hash_parameter_values(sqlite3_stmt *stmt, VALUE hash) {
-  VALUE keys = rb_funcall(hash, ID_KEYS, 0);
-  long len = RARRAY_LEN(keys);
-  for (long i = 0; i < len; i++) {
-    VALUE k = RARRAY_AREF(keys, i);
-    VALUE v = rb_hash_aref(hash, k);
-
-    switch (TYPE(k)) {
-      case T_FIXNUM:
-        bind_parameter_value(stmt, NUM2INT(k), v);
-        break;
-      case T_SYMBOL:
-        k = rb_funcall(k, ID_TO_S, 0);
-      case T_STRING:
-        if(RSTRING_PTR(k)[0] != ':') k = rb_str_plus(rb_str_new2(":"), k);
-        int pos = sqlite3_bind_parameter_index(stmt, StringValuePtr(k));
-        bind_parameter_value(stmt, pos, v);
-        break;
-      default:
-        rb_raise(cError, "Cannot bind hash key value idx %ld", i);
-    }
-  }
-  RB_GC_GUARD(keys);
-}
-
-static inline void bind_parameter_value(sqlite3_stmt *stmt, int pos, VALUE value) {
-  switch (TYPE(value)) {
-    case T_NIL:
-      sqlite3_bind_null(stmt, pos);
-      return;
-    case T_FIXNUM:
-      sqlite3_bind_int64(stmt, pos, NUM2LL(value));
-      return;
-    case T_FLOAT:
-      sqlite3_bind_double(stmt, pos, NUM2DBL(value));
-      return;
-    case T_TRUE:
-      sqlite3_bind_int(stmt, pos, 1);
-      return;
-    case T_FALSE:
-      sqlite3_bind_int(stmt, pos, 0);
-      return;
-    case T_STRING:
-      sqlite3_bind_text(stmt, pos, RSTRING_PTR(value), RSTRING_LEN(value), SQLITE_TRANSIENT);
-      return;
-    case T_HASH:
-      bind_hash_parameter_values(stmt, value);
-      return;
-    default:
-      rb_raise(cError, "Cannot bind parameter at position %d", pos);
-  }
-}
-
-static inline void bind_all_parameters(sqlite3_stmt *stmt, int argc, VALUE *argv) {
-  if (argc > 1) {
-    for (int i = 1; i < argc; i++) {
-      bind_parameter_value(stmt, i, argv[i]);
-    }
-  }
-}
-
-static inline VALUE get_column_names(sqlite3_stmt *stmt, int column_count) {
-  VALUE arr = rb_ary_new2(column_count);
-  for (int i = 0; i < column_count; i++) {
-    VALUE name = ID2SYM(rb_intern(sqlite3_column_name(stmt, i)));
-    rb_ary_push(arr, name);
-  }
-  return arr;
-}
-
-static inline VALUE row_to_hash(sqlite3_stmt *stmt, int column_count, VALUE column_names) {
-  VALUE row = rb_hash_new();
-  for (int i = 0; i < column_count; i++) {
-    VALUE value = get_column_value(stmt, i, sqlite3_column_type(stmt, i));
-    rb_hash_aset(row, RARRAY_AREF(column_names, i), value);
-  }
-  return row;
-}
-
-static inline VALUE row_to_ary(sqlite3_stmt *stmt, int column_count) {
-  VALUE row = rb_ary_new2(column_count);
-  for (int i = 0; i < column_count; i++) {
-    VALUE value = get_column_value(stmt, i, sqlite3_column_type(stmt, i));
-    rb_ary_push(row, value);
-  }
-  return row;
-}
-
-struct multi_stmt_ctx {
-  sqlite3 *db;
-  sqlite3_stmt **stmt;
-  const char *str;
-  long len;
-  int rc;
-};
-
-void *prepare_multi_stmt_without_gvl(void *ptr) {
-  struct multi_stmt_ctx *ctx = (struct multi_stmt_ctx *)ptr;
-  const char *rest = NULL;
-  const char *str = ctx->str;
-  const char *end = ctx->str + ctx->len;
-  while (1) {
-    ctx->rc = sqlite3_prepare_v2(ctx->db, str, end - str, ctx->stmt, &rest);
-    if (ctx->rc) {
-      sqlite3_finalize(*ctx->stmt);
-      return NULL;
-    }
-
-    if (rest == end) return NULL;
-
-    // perform current query, but discard its results
-    ctx->rc = sqlite3_step(*ctx->stmt);
-    sqlite3_finalize(*ctx->stmt);
-    switch (ctx->rc) {
-    case SQLITE_BUSY:
-    case SQLITE_ERROR:
-    case SQLITE_MISUSE:
-      return NULL;
-    }
-    str = rest;
-  }
-  return NULL;
-}
-
-/*
-This function prepares a statement from an SQL string containing one or more SQL
-statements. It will release the GVL while the statements are being prepared and
-executed. All statements excluding the last one are executed. The last statement
-is not executed, but instead handed back to the caller for looping over results.
-*/
-static inline void prepare_multi_stmt(sqlite3 *db, sqlite3_stmt **stmt, VALUE sql) {
-  struct multi_stmt_ctx ctx = {db, stmt, RSTRING_PTR(sql), RSTRING_LEN(sql), 0};
-  rb_thread_call_without_gvl(prepare_multi_stmt_without_gvl, (void *)&ctx, RUBY_UBF_IO, 0);
-  RB_GC_GUARD(sql);
-
-  switch (ctx.rc) {
-  case 0:
-    return;
-  case SQLITE_BUSY:
-    rb_raise(cBusyError, "Database is busy");
-  case SQLITE_ERROR:
-    rb_raise(cSQLError, "%s", sqlite3_errmsg(db));
-  default:
-    rb_raise(cError, "Invalid return code for prepare_multi_stmt_without_gvl: %d (please open an issue on https://github.com/digital-fabric/extralite)", ctx.rc);
-  }
-}
-
-struct step_ctx {
-  sqlite3_stmt *stmt;
-  int rc;
-};
-
-void *stmt_iterate_without_gvl(void *ptr) {
-  struct step_ctx *ctx = (struct step_ctx *)ptr;
-  ctx->rc = sqlite3_step(ctx->stmt);
-  return NULL;
-}
-
-static inline int stmt_iterate(sqlite3_stmt *stmt, sqlite3 *db) {
-  struct step_ctx ctx = {stmt, 0};
-  rb_thread_call_without_gvl(stmt_iterate_without_gvl, (void *)&ctx, RUBY_UBF_IO, 0);
-  switch (ctx.rc) {
-    case SQLITE_ROW:
-      return 1;
-    case SQLITE_DONE:
-      return 0;
-    case SQLITE_BUSY:
-      rb_raise(cBusyError, "Database is busy");
-    case SQLITE_ERROR:
-      rb_raise(cSQLError, "%s", sqlite3_errmsg(db));
-    default:
-      rb_raise(cError, "Invalid return code for sqlite3_step: %d (please open an issue on https://github.com/digital-fabric/extralite)", ctx.rc);
-  }
-
-  return 0;
-}
-
-typedef struct query_ctx {
-  VALUE self;
-  int argc;
-  VALUE *argv;
-  sqlite3_stmt *stmt;
-} query_ctx;
-
-VALUE cleanup_stmt(VALUE arg) {
-  query_ctx *ctx = (query_ctx *)arg;
-  if (ctx->stmt) sqlite3_finalize(ctx->stmt);
-  return Qnil;
-}
-
-#define check_arity_and_prepare_sql(argc, argv, sql) { \
-  rb_check_arity(argc, 1, UNLIMITED_ARGUMENTS); \
-  sql = rb_funcall(argv[0], ID_STRIP, 0); \
-  if (RSTRING_LEN(sql) == 0) return Qnil; \
-}
-
-VALUE safe_query_hash(VALUE arg) {
-  query_ctx *ctx = (query_ctx *)arg;
-  Database_t *db;
-  VALUE result = ctx->self;
-  int yield_to_block = rb_block_given_p();
-  VALUE row;
-  VALUE sql;
-  int column_count;
-  VALUE column_names;
-
-  check_arity_and_prepare_sql(ctx->argc, ctx->argv, sql);
-  GetOpenDatabase(ctx->self, db);
-
-  prepare_multi_stmt(db->sqlite3_db, &ctx->stmt, sql);
-  bind_all_parameters(ctx->stmt, ctx->argc, ctx->argv);
-  column_count = sqlite3_column_count(ctx->stmt);
-  column_names = get_column_names(ctx->stmt, column_count);
-
-  // block not given, so prepare the array of records to be returned
-  if (!yield_to_block) result = rb_ary_new();
-
-  while (stmt_iterate(ctx->stmt, db->sqlite3_db)) {
-    row = row_to_hash(ctx->stmt, column_count, column_names);
-    if (yield_to_block) rb_yield(row); else rb_ary_push(result, row);
-  }
-
-  RB_GC_GUARD(column_names);
-  RB_GC_GUARD(row);
-  RB_GC_GUARD(result);
-  return result;
-}
-
-/* call-seq:
- *    query(sql, *parameters, &block)
- *    query_hash(sql, *parameters, &block)
- *
- * Runs a query returning rows as hashes (with symbol keys). If a block is
- * given, it will be called for each row. Otherwise, an array containing all
- * rows is returned.
- * 
- * Query parameters to be bound to placeholders in the query can be specified as
- * a list of values or as a hash mapping parameter names to values. When
- * parameters are given as a least, the query should specify parameters using
- * `?`:
- * 
- *     db.query('select * from foo where x = ?', 42)
- *
- * Named placeholders are specified using `:`. The placeholder values are
- * specified using a hash, where keys are either strings are symbols. String
- * keys can include or omit the `:` prefix. The following are equivalent:
- * 
- *     db.query('select * from foo where x = :bar', bar: 42)
- *     db.query('select * from foo where x = :bar', 'bar' => 42)
- *     db.query('select * from foo where x = :bar', ':bar' => 42)
- */
-VALUE Database_query_hash(int argc, VALUE *argv, VALUE self) {
-  query_ctx ctx = { self, argc, argv, 0 };
-  return rb_ensure(safe_query_hash, (VALUE)&ctx, cleanup_stmt, (VALUE)&ctx);
-}
-
-VALUE safe_query_ary(VALUE arg) {
-  query_ctx *ctx = (query_ctx *)arg;
-  Database_t *db;
-  int column_count;
-  VALUE result = ctx->self;
-  int yield_to_block = rb_block_given_p();
-  VALUE row;
-  VALUE sql;
-
-  check_arity_and_prepare_sql(ctx->argc, ctx->argv, sql);
-  GetOpenDatabase(ctx->self, db);
-
-  prepare_multi_stmt(db->sqlite3_db, &ctx->stmt, sql);
-  bind_all_parameters(ctx->stmt, ctx->argc, ctx->argv);
-  column_count = sqlite3_column_count(ctx->stmt);
-
-  // block not given, so prepare the array of records to be returned
-  if (!yield_to_block) result = rb_ary_new();
-
-  while (stmt_iterate(ctx->stmt, db->sqlite3_db)) {
-    row = row_to_ary(ctx->stmt, column_count);
-    if (yield_to_block) rb_yield(row); else rb_ary_push(result, row);
-  }
-
-  RB_GC_GUARD(row);
-  RB_GC_GUARD(result);
-  return result;
-}
-
-/* call-seq: query_ary(sql, *parameters, &block)
- *
- * Runs a query returning rows as arrays. If a block is given, it will be called
- * for each row. Otherwise, an array containing all rows is returned.
- *
- * Query parameters to be bound to placeholders in the query can be specified as
- * a list of values or as a hash mapping parameter names to values. When
- * parameters are given as a least, the query should specify parameters using
- * `?`:
- *
- *     db.query_ary('select * from foo where x = ?', 42)
- *
- * Named placeholders are specified using `:`. The placeholder values are
- * specified using a hash, where keys are either strings are symbols. String
- * keys can include or omit the `:` prefix. The following are equivalent:
- *
- *     db.query_ary('select * from foo where x = :bar', bar: 42)
- *     db.query_ary('select * from foo where x = :bar', 'bar' => 42)
- *     db.query_ary('select * from foo where x = :bar', ':bar' => 42)
- */
-VALUE Database_query_ary(int argc, VALUE *argv, VALUE self) {
-  query_ctx ctx = { self, argc, argv, 0 };
-  return rb_ensure(safe_query_ary, (VALUE)&ctx, cleanup_stmt, (VALUE)&ctx);
-}
-
-VALUE safe_query_single_row(VALUE arg) {
-  query_ctx *ctx = (query_ctx *)arg;
-  Database_t *db;
-  int column_count;
-  VALUE sql;
-  VALUE row = Qnil;
-  VALUE column_names;
-
-  check_arity_and_prepare_sql(ctx->argc, ctx->argv, sql);
-  GetOpenDatabase(ctx->self, db);
-
-  prepare_multi_stmt(db->sqlite3_db, &ctx->stmt, sql);
-  bind_all_parameters(ctx->stmt, ctx->argc, ctx->argv);
-  column_count = sqlite3_column_count(ctx->stmt);
-  column_names = get_column_names(ctx->stmt, column_count);
-
-  if (stmt_iterate(ctx->stmt, db->sqlite3_db))
-    row = row_to_hash(ctx->stmt, column_count, column_names);
-
-  RB_GC_GUARD(row);
-  RB_GC_GUARD(column_names);
-  return row;
-}
-
-/* call-seq: query_single_row(sql, *parameters)
- *
- * Runs a query returning a single row as a hash.
- *
- * Query parameters to be bound to placeholders in the query can be specified as
- * a list of values or as a hash mapping parameter names to values. When
- * parameters are given as a least, the query should specify parameters using
- * `?`:
- *
- *     db.query_single_row('select * from foo where x = ?', 42)
- *
- * Named placeholders are specified using `:`. The placeholder values are
- * specified using a hash, where keys are either strings are symbols. String
- * keys can include or omit the `:` prefix. The following are equivalent:
- *
- *     db.query_single_row('select * from foo where x = :bar', bar: 42)
- *     db.query_single_row('select * from foo where x = :bar', 'bar' => 42)
- *     db.query_single_row('select * from foo where x = :bar', ':bar' => 42)
- */
-VALUE Database_query_single_row(int argc, VALUE *argv, VALUE self) {
-  query_ctx ctx = { self, argc, argv, 0 };
-  return rb_ensure(safe_query_single_row, (VALUE)&ctx, cleanup_stmt, (VALUE)&ctx);
-}
-
-VALUE safe_query_single_column(VALUE arg) {
-  query_ctx *ctx = (query_ctx *)arg;
-
-  int column_count;
-  Database_t *db;
-  VALUE result = ctx->self;
-  int yield_to_block = rb_block_given_p();
-  VALUE sql;
-  VALUE value;
-
-  check_arity_and_prepare_sql(ctx->argc, ctx->argv, sql);
-  GetOpenDatabase(ctx->self, db);
-
-  prepare_multi_stmt(db->sqlite3_db, &ctx->stmt, sql);
-  bind_all_parameters(ctx->stmt, ctx->argc, ctx->argv);
-  column_count = sqlite3_column_count(ctx->stmt);
-  if (column_count != 1)
-    rb_raise(cError, "Expected query result to have 1 column");
-
-  // block not given, so prepare the array of records to be returned
-  if (!yield_to_block) result = rb_ary_new();
-
-  while (stmt_iterate(ctx->stmt, db->sqlite3_db)) {
-    value = get_column_value(ctx->stmt, 0, sqlite3_column_type(ctx->stmt, 0));
-    if (yield_to_block) rb_yield(value); else rb_ary_push(result, value);
-  }
-
-  RB_GC_GUARD(value);
-  RB_GC_GUARD(result);
-  return result;
-}
-
-/* call-seq: query_single_column(sql, *parameters, &block)
- *
- * Runs a query returning single column values. If a block is given, it will be called
- * for each value. Otherwise, an array containing all values is returned.
- *
- * Query parameters to be bound to placeholders in the query can be specified as
- * a list of values or as a hash mapping parameter names to values. When
- * parameters are given as a least, the query should specify parameters using
- * `?`:
- *
- *     db.query_single_column('select x from foo where x = ?', 42)
- *
- * Named placeholders are specified using `:`. The placeholder values are
- * specified using a hash, where keys are either strings are symbols. String
- * keys can include or omit the `:` prefix. The following are equivalent:
- *
- *     db.query_single_column('select x from foo where x = :bar', bar: 42)
- *     db.query_single_column('select x from foo where x = :bar', 'bar' => 42)
- *     db.query_single_column('select x from foo where x = :bar', ':bar' => 42)
- */
-VALUE Database_query_single_column(int argc, VALUE *argv, VALUE self) {
-  query_ctx ctx = { self, argc, argv, 0 };
-  return rb_ensure(safe_query_single_column, (VALUE)&ctx, cleanup_stmt, (VALUE)&ctx);
-}
-
-VALUE safe_query_single_value(VALUE arg) {
-  query_ctx *ctx = (query_ctx *)arg;
-  int column_count;
-  Database_t *db;
-  VALUE sql;
-  VALUE value = Qnil;
-
-  check_arity_and_prepare_sql(ctx->argc, ctx->argv, sql);
-  GetOpenDatabase(ctx->self, db);
-
-  prepare_multi_stmt(db->sqlite3_db, &ctx->stmt, sql);
-  bind_all_parameters(ctx->stmt, ctx->argc, ctx->argv);
-  column_count = sqlite3_column_count(ctx->stmt);
-  if (column_count != 1)
-    rb_raise(cError, "Expected query result to have 1 column");
-
-  if (stmt_iterate(ctx->stmt, db->sqlite3_db))
-    value = get_column_value(ctx->stmt, 0, sqlite3_column_type(ctx->stmt, 0));
-
-  RB_GC_GUARD(value);
-  return value;
-}
-
-/* call-seq: query_single_value(sql, *parameters)
- *
- * Runs a query returning a single value from the first row.
- *
- * Query parameters to be bound to placeholders in the query can be specified as
- * a list of values or as a hash mapping parameter names to values. When
- * parameters are given as a least, the query should specify parameters using
- * `?`:
- *
- *     db.query_single_value('select x from foo where x = ?', 42)
- *
- * Named placeholders are specified using `:`. The placeholder values are
- * specified using a hash, where keys are either strings are symbols. String
- * keys can include or omit the `:` prefix. The following are equivalent:
- *
- *     db.query_single_value('select x from foo where x = :bar', bar: 42)
- *     db.query_single_value('select x from foo where x = :bar', 'bar' => 42)
- *     db.query_single_value('select x from foo where x = :bar', ':bar' => 42)
- */
-VALUE Database_query_single_value(int argc, VALUE *argv, VALUE self) {
-  query_ctx ctx = { self, argc, argv, 0 };
-  return rb_ensure(safe_query_single_value, (VALUE)&ctx, cleanup_stmt, (VALUE)&ctx);
-}
-
-/* call-seq: last_insert_rowid
- *
- * Returns the rowid of the last inserted row.
- */
-VALUE Database_last_insert_rowid(VALUE self) {
-  Database_t *db;
-  GetOpenDatabase(self, db);
-
-  return INT2NUM(sqlite3_last_insert_rowid(db->sqlite3_db));
-}
-
-/* call-seq: changes
- *
- * Returns the number of changes made to the database by the last operation.
- */
-VALUE Database_changes(VALUE self) {
-  Database_t *db;
-  GetOpenDatabase(self, db);
-
-  return INT2NUM(sqlite3_changes(db->sqlite3_db));
-}
-
-/* call-seq: filename
- *
- * Returns the database filename.
- */
-VALUE Database_filename(int argc, VALUE *argv, VALUE self) {
-  const char *db_name;
-  const char *filename;
-  Database_t *db;
-  GetOpenDatabase(self, db);
-
-  rb_check_arity(argc, 0, 1);
-  db_name = (argc == 1) ? StringValueCStr(argv[0]) : "main";
-  filename = sqlite3_db_filename(db->sqlite3_db, db_name);
-  return filename ? rb_str_new_cstr(filename) : Qnil;
-}
-
-/* call-seq: transaction_active?
- *
- * Returns true if a transaction is currently in progress.
- */
-VALUE Database_transaction_active_p(VALUE self) {
-  Database_t *db;
-  GetOpenDatabase(self, db);
-
-  return sqlite3_get_autocommit(db->sqlite3_db) ? Qfalse : Qtrue;
-}
-
-/* call-seq: load_extension(path)
- *
- * Loads an extension with the given path.
- */
-VALUE Database_load_extension(VALUE self, VALUE path) {
-  Database_t *db;
-  GetOpenDatabase(self, db);
-  char *err_msg;
-
-  int rc = sqlite3_load_extension(db->sqlite3_db, RSTRING_PTR(path), 0, &err_msg);
-  if (rc != SQLITE_OK) {
-    VALUE error = rb_exc_new2(cError, err_msg);
-    sqlite3_free(err_msg);
-    rb_exc_raise(error);
-  }
-
-  return self;
-}
-
-void Init_Extralite() {
-  VALUE mExtralite = rb_define_module("Extralite");
-  rb_define_singleton_method(mExtralite, "sqlite3_version", Extralite_sqlite3_version, 0);
-
-  VALUE cDatabase = rb_define_class_under(mExtralite, "Database", rb_cObject);
-  rb_define_alloc_func(cDatabase, Database_allocate);
-
-  rb_define_method(cDatabase, "initialize", Database_initialize, 1);
-  rb_define_method(cDatabase, "close", Database_close, 0);
-  rb_define_method(cDatabase, "closed?", Database_closed_p, 0);
-
-  rb_define_method(cDatabase, "query", Database_query_hash, -1);
-  rb_define_method(cDatabase, "query_hash", Database_query_hash, -1);
-  rb_define_method(cDatabase, "query_ary", Database_query_ary, -1);
-  rb_define_method(cDatabase, "query_single_row", Database_query_single_row, -1);
-  rb_define_method(cDatabase, "query_single_column", Database_query_single_column, -1);
-  rb_define_method(cDatabase, "query_single_value", Database_query_single_value, -1);
-
-  rb_define_method(cDatabase, "last_insert_rowid", Database_last_insert_rowid, 0);
-  rb_define_method(cDatabase, "changes", Database_changes, 0);
-  rb_define_method(cDatabase, "filename", Database_filename, -1);
-  rb_define_method(cDatabase, "transaction_active?", Database_transaction_active_p, 0);
-  rb_define_method(cDatabase, "load_extension", Database_load_extension, 1);
-
-  cError = rb_define_class_under(mExtralite, "Error", rb_eRuntimeError);
-  cSQLError = rb_define_class_under(mExtralite, "SQLError", cError);
-  cBusyError = rb_define_class_under(mExtralite, "BusyError", cError);
-  rb_gc_register_mark_object(cError);
-  rb_gc_register_mark_object(cSQLError);
-  rb_gc_register_mark_object(cBusyError);
-
-  ID_KEYS   = rb_intern("keys");
-  ID_STRIP  = rb_intern("strip");
-  ID_TO_S   = rb_intern("to_s");
-}