sqlite3-full 1.3.9.1

data/ext/sqlite3/database.h

@@ -0,0 +1,15 @@
+#ifndef SQLITE3_DATABASE_RUBY
+#define SQLITE3_DATABASE_RUBY
+
+#include <sqlite3_ruby.h>
+
+struct _sqlite3Ruby {
+  sqlite3 *db;
+};
+
+typedef struct _sqlite3Ruby sqlite3Ruby;
+typedef sqlite3Ruby * sqlite3RubyPtr;
+
+void init_sqlite3_database();
+
+#endif

data/ext/sqlite3/exception.c

@@ -0,0 +1,94 @@
+#include <sqlite3_ruby.h>
+
+void rb_sqlite3_raise(sqlite3 * db, int status)
+{
+  VALUE klass = Qnil;
+
+  switch(status) {
+    case SQLITE_OK:
+      return;
+      break;
+    case SQLITE_ERROR:
+      klass = rb_path2class("SQLite3::SQLException");
+      break;
+    case SQLITE_INTERNAL:
+      klass = rb_path2class("SQLite3::InternalException");
+      break;
+    case SQLITE_PERM:
+      klass = rb_path2class("SQLite3::PermissionException");
+      break;
+    case SQLITE_ABORT:
+      klass = rb_path2class("SQLite3::AbortException");
+      break;
+    case SQLITE_BUSY:
+      klass = rb_path2class("SQLite3::BusyException");
+      break;
+    case SQLITE_LOCKED:
+      klass = rb_path2class("SQLite3::LockedException");
+      break;
+    case SQLITE_NOMEM:
+      klass = rb_path2class("SQLite3::MemoryException");
+      break;
+    case SQLITE_READONLY:
+      klass = rb_path2class("SQLite3::ReadOnlyException");
+      break;
+    case SQLITE_INTERRUPT:
+      klass = rb_path2class("SQLite3::InterruptException");
+      break;
+    case SQLITE_IOERR:
+      klass = rb_path2class("SQLite3::IOException");
+      break;
+    case SQLITE_CORRUPT:
+      klass = rb_path2class("SQLite3::CorruptException");
+      break;
+    case SQLITE_NOTFOUND:
+      klass = rb_path2class("SQLite3::NotFoundException");
+      break;
+    case SQLITE_FULL:
+      klass = rb_path2class("SQLite3::FullException");
+      break;
+    case SQLITE_CANTOPEN:
+      klass = rb_path2class("SQLite3::CantOpenException");
+      break;
+    case SQLITE_PROTOCOL:
+      klass = rb_path2class("SQLite3::ProtocolException");
+      break;
+    case SQLITE_EMPTY:
+      klass = rb_path2class("SQLite3::EmptyException");
+      break;
+    case SQLITE_SCHEMA:
+      klass = rb_path2class("SQLite3::SchemaChangedException");
+      break;
+    case SQLITE_TOOBIG:
+      klass = rb_path2class("SQLite3::TooBigException");
+      break;
+    case SQLITE_CONSTRAINT:
+      klass = rb_path2class("SQLite3::ConstraintException");
+      break;
+    case SQLITE_MISMATCH:
+      klass = rb_path2class("SQLite3::MismatchException");
+      break;
+    case SQLITE_MISUSE:
+      klass = rb_path2class("SQLite3::MisuseException");
+      break;
+    case SQLITE_NOLFS:
+      klass = rb_path2class("SQLite3::UnsupportedException");
+      break;
+    case SQLITE_AUTH:
+      klass = rb_path2class("SQLite3::AuthorizationException");
+      break;
+    case SQLITE_FORMAT:
+      klass = rb_path2class("SQLite3::FormatException");
+      break;
+    case SQLITE_RANGE:
+      klass = rb_path2class("SQLite3::RangeException");
+      break;
+    case SQLITE_NOTADB:
+      klass = rb_path2class("SQLite3::NotADatabaseException");
+      break;
+    default:
+      klass = rb_eRuntimeError;
+  }
+
+  rb_raise(klass, "%s", sqlite3_errmsg(db));
+}

data/ext/sqlite3/exception.h

@@ -0,0 +1,8 @@
+#ifndef SQLITE3_EXCEPTION_RUBY
+#define SQLITE3_EXCEPTION_RUBY
+
+#define CHECK(_db, _status) rb_sqlite3_raise(_db, _status);
+
+void rb_sqlite3_raise(sqlite3 * db, int status);
+
+#endif

data/ext/sqlite3/extconf.rb

@@ -0,0 +1,86 @@
+ENV['RC_ARCHS'] = '' if RUBY_PLATFORM =~ /darwin/
+
+require 'mkmf'
+
+# :stopdoc:
+
+RbConfig::MAKEFILE_CONFIG['CC'] = ENV['CC'] if ENV['CC']
+
+# sqlite3 settings: 
+#
+# The following settings taken from a more-or-less default OSX 10.10 sqlite installation. 
+#
+# The only difference: we include FTS3 *and* FTS4 
+$defs.push "-DSQLITE_ENABLE_FTS4"
+$defs.push "-DSQLITE_ENABLE_FTS3_PARENTHESIS"
+$defs.push "-DSQLITE_ENABLE_LOCKING_STYLE=1"
+$defs.push "-DSQLITE_ENABLE_RTREE"
+$defs.push "-DSQLITE_SYSTEM_MALLOC"
+$defs.push "-DSQLITE_THREADSAFE=2"
+
+# additional settings
+$defs.push "-DSQLITE_ENABLE_COLUMN_METADATA"
+$defs.push "-DSQLITE_ENABLE_MEMORY_MANAGEMENT"
+$defs.push "-DSQLITE_ENABLE_RTREE"
+$defs.push "-DSQLITE_SOUNDEX"
+
+# Some additional warnings: on my machine compiling the sqlite3 amalgation spits out some
+# warnings. As we don't hack sqlite3, but only the rubygem, we don't need these.
+$warnflags += " -Wno-incompatible-pointer-types-discards-qualifiers"
+$warnflags += " -Wno-unused-const-variable"
+$warnflags += " -Wno-shorten-64-to-32"
+$warnflags += " -Wno-typedef-redefinition"
+
+$CFLAGS << " -I#{File.dirname(__FILE__)}"
+
+if RbConfig::CONFIG["host_os"] =~ /mswin/
+  $CFLAGS << ' -W3'
+end
+
+def asplode missing
+  if RUBY_PLATFORM =~ /mingw|mswin/
+    abort "#{missing} is missing. Install SQLite3 from " +
+          "http://www.sqlite.org/ first."
+  else
+    abort <<-error
+#{missing} is missing. Try 'port install sqlite3 +universal',
+'yum install sqlite-devel' or 'apt-get install libsqlite3-dev'
+and check your shared library search path (the
+location where your sqlite3 shared library is located).
+    error
+  end
+end
+
+# -- sqlite3 platform configuration, see http://www.sqlite.org/compile.html
+have_func('fdatasync')
+have_func('gmtime_r')
+have_func('isnan')
+have_func('localtime_r')
+have_func('localtime_s')
+have_func('malloc_usable_size')
+have_func('strchrnul')
+have_func('usleep')
+have_func('utime')
+
+# -- ruby feature detection
+
+# Functions defined in 1.9 but not 1.8
+have_func('rb_proc_arity')
+
+# Functions defined in 2.1 but not 2.0
+have_func('rb_integer_pack')
+
+# These functions may not be defined in a standard sqlite3-ruby build -
+# they are here. We still need to define the test macros, as they are used
+# in the upstream (i.e. sqlite3-ruby) code.
+$defs.push "-DHAVE_SQLITE3_INITIALIZE"
+$defs.push "-DHAVE_SQLITE3_BACKUP_INIT"
+$defs.push "-DHAVE_SQLITE3_COLUMN_DATABASE_NAME"
+$defs.push "-DHAVE_SQLITE3_ENABLE_LOAD_EXTENSION"
+$defs.push "-DHAVE_SQLITE3_LOAD_EXTENSION"
+$defs.push "-DHAVE_SQLITE3_OPEN_V2"
+$defs.push "-DHAVE_SQLITE3_PREPARE_V2"
+$defs.push "-DHAVE_SQLITE3_INT64"
+$defs.push "-DHAVE_SQLITE3_UINT64"
+
+create_makefile('sqlite3/sqlite3_native')

data/ext/sqlite3/sqlite3.c

@@ -0,0 +1,97 @@
+#include <sqlite3_ruby.h>
+
+VALUE mSqlite3;
+VALUE cSqlite3Blob;
+
+int bignum_to_int64(VALUE value, sqlite3_int64 *result)
+{
+#ifdef HAVE_RB_INTEGER_PACK
+  const int nails = 0;
+  int t = rb_integer_pack(value, result, 1, sizeof(*result), nails,
+			  INTEGER_PACK_NATIVE_BYTE_ORDER|
+			  INTEGER_PACK_2COMP);
+  switch (t) {
+  case -2: case +2:
+    return 0;
+  case +1:
+    if (!nails) {
+      if (*result < 0) return 0;
+    }
+    break;
+  case -1:
+    if (!nails) {
+      if (*result >= 0) return 0;
+    }
+    else {
+      *result += INT64_MIN;
+    }
+    break;
+  }
+  return 1;
+#else
+# ifndef RBIGNUM_LEN
+#   define RBIGNUM_LEN(x) RBIGNUM(x)->len
+# endif
+  const long len = RBIGNUM_LEN(value);
+  if (len == 0) {
+    *result = 0;
+    return 1;
+  }
+  if (len > 63 / (SIZEOF_BDIGITS * CHAR_BIT) + 1) return 0;
+  if (len == 63 / (SIZEOF_BDIGITS * CHAR_BIT) + 1) {
+    const BDIGIT *digits = RBIGNUM_DIGITS(value);
+    BDIGIT blast = digits[len-1];
+    BDIGIT bmax = (BDIGIT)1UL << (63 % (CHAR_BIT * SIZEOF_BDIGITS));
+    if (blast > bmax) return 0;
+    if (blast == bmax) {
+      if (RBIGNUM_POSITIVE_P(value)) {
+	return 0;
+      }
+      else {
+	long i = len-1;
+	while (i) {
+	  if (digits[--i]) return 0;
+	}
+      }
+    }
+  }
+  *result = (sqlite3_int64)NUM2LL(value);
+  return 1;
+#endif
+}
+
+static VALUE libversion(VALUE UNUSED(klass))
+{
+  return INT2NUM(sqlite3_libversion_number());
+}
+
+void Init_sqlite3_native()
+{
+  /*
+   * SQLite3 is a wrapper around the popular database
+   * sqlite[http://sqlite.org].
+   *
+   * For an example of usage, see SQLite3::Database.
+   */
+  mSqlite3     = rb_define_module("SQLite3");
+
+  /* A class for differentiating between strings and blobs, when binding them
+   * into statements.
+   */
+  cSqlite3Blob = rb_define_class_under(mSqlite3, "Blob", rb_cString);
+
+  /* Initialize the sqlite3 library */
+#ifdef HAVE_SQLITE3_INITIALIZE
+  sqlite3_initialize();
+#endif
+
+  init_sqlite3_database();
+  init_sqlite3_statement();
+#ifdef HAVE_SQLITE3_BACKUP_INIT
+  init_sqlite3_backup();
+#endif
+
+  rb_define_singleton_method(mSqlite3, "libversion", libversion, 0);
+  rb_define_const(mSqlite3, "SQLITE_VERSION", rb_str_new2(SQLITE_VERSION));
+  rb_define_const(mSqlite3, "SQLITE_VERSION_NUMBER", INT2FIX(SQLITE_VERSION_NUMBER));
+}

data/ext/sqlite3/sqlite3_ruby.h

@@ -0,0 +1,52 @@
+#ifndef SQLITE3_RUBY
+#define SQLITE3_RUBY
+
+#include <ruby.h>
+
+#ifdef UNUSED
+#elif defined(__GNUC__)
+# define UNUSED(x) UNUSED_ ## x __attribute__((unused))
+#elif defined(__LCLINT__)
+# define UNUSED(x) /*@unused@*/ x
+#else
+# define UNUSED(x) x
+#endif
+
+#ifdef HAVE_RUBY_ENCODING_H
+#include <ruby/encoding.h>
+
+#define USASCII_P(_obj) (rb_enc_get_index(_obj) == rb_usascii_encindex())
+#define UTF8_P(_obj) (rb_enc_get_index(_obj) == rb_utf8_encindex())
+#define UTF16_LE_P(_obj) (rb_enc_get_index(_obj) == rb_enc_find_index("UTF-16LE"))
+#define UTF16_BE_P(_obj) (rb_enc_get_index(_obj) == rb_enc_find_index("UTF-16BE"))
+#define SQLITE3_UTF8_STR_NEW2(_obj) \
+    (rb_enc_associate_index(rb_str_new2(_obj), rb_utf8_encindex()))
+
+#else
+
+#define SQLITE3_UTF8_STR_NEW2(_obj) (rb_str_new2(_obj))
+
+#endif
+
+
+#include <sqlite3.h>
+
+#ifndef HAVE_TYPE_SQLITE3_INT64
+typedef sqlite_int64 sqlite3_int64;
+#endif
+
+#ifndef HAVE_TYPE_SQLITE3_UINT64
+typedef sqlite_uint64 sqlite3_uint64;
+#endif
+
+extern VALUE mSqlite3;
+extern VALUE cSqlite3Blob;
+
+#include <database.h>
+#include <statement.h>
+#include <exception.h>
+#include <backup.h>
+
+int bignum_to_int64(VALUE big, sqlite3_int64 *result);
+
+#endif