amalgalite 0.4.2-x86-mswin32-60

data/ext/amalgalite3_requires_bootstrap.c

@@ -0,0 +1,210 @@
+/**
+ * Copyright (c) 2008 Jeremy Hinegardner
+ * All rights reserved.  See LICENSE and/or COPYING for details.
+ *
+ * vim: shiftwidth=4 
+ */ 
+
+#include "amalgalite3.h"
+#include <stdio.h>
+extern VALUE mA;
+static VALUE cAR;
+static VALUE cARB;
+static VALUE eARB_Error;
+
+/* 
+ * cleanup the datatbase and statment values if they are currently open and then
+ * raise the message.  It converts the error message to a String so that the C
+ * string can be free'd and then raise with a ruby object in the hopes that
+ * there is no memory leak from the C allocation.
+ */
+void am_bootstrap_cleanup_and_raise( char* msg, sqlite3* db, sqlite3_stmt* stmt )
+{
+    VALUE msg_obj = rb_str_new2( msg );
+
+    if ( NULL != stmt ) { sqlite3_finalize( stmt ); }
+    if ( NULL != db   ) { sqlite3_close( db ); }
+
+    free( msg );
+    rb_raise(eARB_Error, msg );
+}
+
+
+/**
+ * call-seq:
+ *   Amalgalite::Requires::Bootstrap.lift( 'dbfile' => "lib.db", 'table_name' => "bootload", 'rowid_column' => "id", 'filename_column' => "filename",  'content_column' => "contents" )
+ *
+ * *WARNING* *WARNING* *WARNING* *WARNING* *WARNING* *WARNING* *WARNING*
+ *
+ * This is a boostrap mechanism to eval all the code in a particular column in a
+ * specially formatted table in an sqlite database.  It should only be used for
+ * a specific purpose, mainly loading the Amalgalite ruby code directly from an
+ * sqlite table.  
+ *
+ * Amalgalite::Requires adds in the ability to _require_ code that is in an
+ * sqlite database.  Since Amalgalite::Requires is itself ruby code, if
+ * Amalgalite::Requires was in an sqlite database, it could not _require_
+ * itself.  Therefore this method is made available.  It is a pure C extension
+ * method that directly calls the sqlite3 C functions directly and uses the ruby
+ * C api to eval the data in the table.
+ *
+ * This method attaches to an sqlite3 database (filename) and then does:
+ *
+ *     SELECT filename_column_name, content_column_name 
+ *       FROM table_name
+ *   ORDER BY rowid_column_name
+ *
+ * For each row returned it does an _eval_ on the code in the
+ * *content_column_name* and then updates _$"_ directly with the value from
+ * *filename_column_name*.
+ *
+ * The database to be opened by _lift_ *must* be an sqlite3 UTF-8 database.
+ *
+ */
+VALUE am_bootstrap_lift( VALUE self, VALUE args )
+{
+    sqlite3*        db = NULL;
+    sqlite3_stmt* stmt = NULL;
+    int             rc;
+    int  last_row_good; 
+    char raise_msg[BUFSIZ];
+
+    VALUE     am_db_c  = rb_const_get( cARB, rb_intern("DEFAULT_DB") );
+    VALUE    am_tbl_c  = rb_const_get( cARB, rb_intern("DEFAULT_TABLE") );
+    VALUE     am_pk_c  = rb_const_get( cARB, rb_intern("DEFAULT_ROWID_COLUMN") );
+    VALUE  am_fname_c  = rb_const_get( cARB, rb_intern("DEFAULT_FILENAME_COLUMN") );
+    VALUE am_content_c = rb_const_get( cARB, rb_intern("DEFAULT_CONTENTS_COLUMN") );
+
+    char*     dbfile = NULL;
+    char*    tbl_name = NULL;
+    char*      pk_col = NULL;
+    char*   fname_col = NULL;
+    char* content_col = NULL;
+
+    char             sql[BUFSIZ];
+    const char* sql_tail = NULL;
+    int        sql_bytes = 0;
+    
+    const unsigned char* result_text = NULL;
+    int                result_length = 0;
+
+    VALUE     require_name = Qnil;  /* ruby string of the file name for use in eval */
+    VALUE   eval_this_code = Qnil;  /* ruby string of the code to eval from the db  */
+    VALUE toplevel_binding = rb_const_get( rb_cObject, rb_intern("TOPLEVEL_BINDING") ) ;
+    VALUE    sqlite_errmsg = Qnil;
+    VALUE              tmp = Qnil;
+
+    ID             eval_id = rb_intern("eval");
+
+
+    if (   Qnil == args  ) {
+        args = rb_hash_new();
+    } else {
+        args = rb_ary_shift( args );
+    }
+
+    Check_Type( args, T_HASH );
+    
+    /* get the arguments */
+    dbfile      = ( Qnil == (tmp = rb_hash_aref( args, rb_str_new2( "dbfile"          ) ) ) ) ? StringValuePtr( am_db_c )      : StringValuePtr( tmp );
+    tbl_name    = ( Qnil == (tmp = rb_hash_aref( args, rb_str_new2( "table_name"      ) ) ) ) ? StringValuePtr( am_tbl_c )     : StringValuePtr( tmp );
+    pk_col      = ( Qnil == (tmp = rb_hash_aref( args, rb_str_new2( "rowid_column"    ) ) ) ) ? StringValuePtr( am_pk_c )      : StringValuePtr( tmp );
+    fname_col   = ( Qnil == (tmp = rb_hash_aref( args, rb_str_new2( "filename_column" ) ) ) ) ? StringValuePtr( am_fname_c )   : StringValuePtr( tmp );
+    content_col = ( Qnil == (tmp = rb_hash_aref( args, rb_str_new2( "contents_column" ) ) ) ) ? StringValuePtr( am_content_c ) : StringValuePtr( tmp );
+
+
+    /* open the database */
+    rc = sqlite3_open_v2( dbfile , &db, SQLITE_OPEN_READONLY, NULL);
+    if ( SQLITE_OK != rc ) {
+        memset( raise_msg, 0, BUFSIZ );
+        snprintf(raise_msg, BUFSIZ, "Failure to open database %s for bootload: [SQLITE_ERROR %d] : %s", dbfile, rc, sqlite3_errmsg( db ) );
+        am_bootstrap_cleanup_and_raise( raise_msg, db, stmt );
+    }
+
+    /* prepare the db query */
+    memset( sql, 0, BUFSIZ );
+    sql_bytes = snprintf( sql, BUFSIZ, "SELECT %s, %s FROM %s ORDER BY %s", fname_col, content_col, tbl_name, pk_col );
+    rc = sqlite3_prepare_v2( db, sql, sql_bytes, &stmt, &sql_tail ) ;
+    if ( SQLITE_OK != rc) {
+        memset( raise_msg, 0, BUFSIZ );
+        snprintf( raise_msg, BUFSIZ,
+                  "Failure to prepare bootload select statement table = '%s', rowid col = '%s', filename col ='%s', contents col = '%s' : [SQLITE_ERROR %d] %s\n",
+                  tbl_name, pk_col, fname_col, content_col, rc, sqlite3_errmsg( db ));
+        am_bootstrap_cleanup_and_raise( raise_msg, db, stmt );
+    }
+
+    /* loop over the resulting rows, eval'ing and loading $" */
+    last_row_good = -1;
+    while ( SQLITE_ROW == ( rc = sqlite3_step( stmt ) ) ) {
+        /* file name */
+        result_text   = sqlite3_column_text( stmt, 0 );
+        result_length = sqlite3_column_bytes( stmt, 0 );
+        require_name  = rb_str_new( (const char*)result_text, result_length );
+
+        /* ruby code */
+        result_text    = sqlite3_column_text( stmt, 1 );
+        result_length  = sqlite3_column_bytes( stmt, 1 );
+        eval_this_code = rb_str_new( (const char*)result_text, result_length );
+
+        /* Kernel.eval( code, TOPLEVEL_BINDING, filename, 1 ) */ 
+        rb_funcall(rb_mKernel, eval_id, 4, eval_this_code, toplevel_binding, require_name, INT2FIX(1) );
+
+        /* TODO: for ruby 1.9 -- put in ? sqlite3://path/to/database?tablename=tbl_name#require_name */
+        /* update $LOADED_FEATURES */
+        rb_ary_push( rb_gv_get( "$LOADED_FEATURES" ), require_name );
+    }
+
+    /* if there was some sqlite error in the processing of the rows */
+    if ( SQLITE_DONE != rc ) {
+        memset( raise_msg, 0, BUFSIZ );
+        snprintf( raise_msg, BUFSIZ, "Failure in bootloading, last successfully loaded rowid was %d : [SQLITE_ERROR %d] %s\n", 
+                  last_row_good, rc, sqlite3_errmsg( db ) );
+        am_bootstrap_cleanup_and_raise( raise_msg, db, stmt );
+    }
+
+    /* finalize the statement */    
+    rc = sqlite3_finalize( stmt );
+    if ( SQLITE_OK != rc ) {
+        memset( raise_msg, 0, BUFSIZ );
+        snprintf( raise_msg, BUFSIZ, "Failure to finalize bootload statement : [SQLITE_ERROR %d]\n", rc, sqlite3_errmsg( db ) );
+        am_bootstrap_cleanup_and_raise( raise_msg, db, stmt );
+    }
+
+    stmt = NULL;
+
+    /* close the database */
+    rc = sqlite3_close( db );
+    if ( SQLITE_OK != rc ) {
+        memset( raise_msg, 0, BUFSIZ );
+        snprintf( raise_msg, BUFSIZ, "Failure to close database : [SQLITE_ERROR %d] : %s\n", rc, sqlite3_errmsg( db )),
+        am_bootstrap_cleanup_and_raise( raise_msg, db,stmt );
+    }
+
+    return Qnil;
+}
+
+/**
+ * Bootstrapping module to help _require_ when Amalgalite::Requires is not
+ * availble in files.
+ */
+void Init_amalgalite3_requires_bootstrap()
+{
+
+    mA   = rb_define_module("Amalgalite");
+    cAR  = rb_define_class_under(mA, "Requires", rb_cObject);
+    cARB = rb_define_class_under(cAR, "Bootstrap", rb_cObject);
+
+    eARB_Error = rb_define_class_under(cARB, "Error", rb_eStandardError);
+
+    rb_define_module_function(cARB, "lift", am_bootstrap_lift, -2); 
+
+    /* constants for default db, table, column, rowid, contents */ 
+    rb_define_const(cARB,              "DEFAULT_DB", rb_str_new2( "lib.db" ));
+    rb_define_const(cARB,           "DEFAULT_TABLE", rb_str_new2( "bootstrap" ));
+    rb_define_const(cARB,    "DEFAULT_ROWID_COLUMN", rb_str_new2( "id" ));
+    rb_define_const(cARB, "DEFAULT_FILENAME_COLUMN", rb_str_new2( "filename" ));
+    rb_define_const(cARB, "DEFAULT_CONTENTS_COLUMN", rb_str_new2( "contents" ));
+
+    return;
+}
+

data/ext/amalgalite3_statement.c

@@ -0,0 +1,628 @@
+#include "amalgalite3.h"
+/**
+ * Copyright (c) 2008 Jeremy Hinegardner
+ * All rights reserved.  See LICENSE and/or COPYING for details.
+ *
+ * vim: shiftwidth=4 
+ */ 
+
+VALUE cAS_Statement;   /* class  Amalgliate::SQLite3::Statement */
+
+/**
+ * call-seq:
+ *     stmt.bind_null( position ) -> int
+ * 
+ * bind a null value to the variable at postion.
+ *
+ */
+VALUE am_sqlite3_statement_bind_null(VALUE self, VALUE position )
+{
+    am_sqlite3_stmt  *am_stmt;
+    int               pos = FIX2INT( position );
+    int               rc;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    rc = sqlite3_bind_null( am_stmt->stmt, pos );
+    if ( SQLITE_OK != rc ) {
+        rb_raise(eAS_Error, "Error binding NULL at position %d in statement: [SQLITE_ERROR %d] : %s\n",
+                pos,
+                rc, sqlite3_errmsg( sqlite3_db_handle( am_stmt->stmt) ));
+    }
+
+    return INT2FIX(rc);
+}
+
+/**
+ * call-seq:
+ *    stmt.bind_zeroblob( position, length ) -> int
+ *
+ * bind a blob with +length+ filled with zeros to the position.  This is a Blob
+ * that will later filled in with incremental IO routines.
+ */
+VALUE am_sqlite3_statement_bind_zeroblob( VALUE self, VALUE position, VALUE length)
+{
+    am_sqlite3_stmt  *am_stmt;
+    int               pos = FIX2INT( position );
+    int               n = FIX2INT( length );
+    int               rc;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    rc = sqlite3_bind_zeroblob( am_stmt->stmt, pos, n );
+    if ( SQLITE_OK != rc ) {
+        rb_raise(eAS_Error, "Error binding zeroblob of length %d at position %d in statement: [SQLITE_ERROR %d] : %s\n",
+                n, pos,
+                rc, sqlite3_errmsg( sqlite3_db_handle( am_stmt->stmt) ));
+    }
+
+    return INT2FIX(rc);
+}
+
+
+/**
+ * call-seq:
+ *    stmt.bind_blob( position, blob ) -> int
+ *
+ * bind a blob to the variable at position.  This is a blob that is fully held
+ * in memory
+ */
+VALUE am_sqlite3_statement_bind_blob( VALUE self, VALUE position, VALUE blob )
+{
+    am_sqlite3_stmt  *am_stmt;
+    int               pos = FIX2INT( position );
+    VALUE             str = StringValue( blob );
+    int               rc;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    rc = sqlite3_bind_blob( am_stmt->stmt, pos, RSTRING( str )->ptr, RSTRING( str )->len, SQLITE_TRANSIENT);
+    if ( SQLITE_OK != rc ) {
+        rb_raise(eAS_Error, "Error binding blob at position %d in statement: [SQLITE_ERROR %d] : %s\n",
+                pos,
+                rc, sqlite3_errmsg( sqlite3_db_handle( am_stmt->stmt) ));
+    }
+
+    return INT2FIX(rc);
+}
+
+/**
+ * call-seq:
+ *     stmt.bind_double( position, value ) -> nil
+ * 
+ * bind a double value to the variable at postion.
+ *
+ */
+VALUE am_sqlite3_statement_bind_double(VALUE self, VALUE position, VALUE value)
+{
+    am_sqlite3_stmt  *am_stmt;
+    int               pos = FIX2INT( position );
+    double            v   = NUM2DBL( value );
+    int               rc;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    rc = sqlite3_bind_double( am_stmt->stmt, pos, v );
+    if ( SQLITE_OK != rc ) {
+        rb_raise(eAS_Error, "Error binding [%s] to double at position %d in statement: [SQLITE_ERROR %d] : %s\n",
+                value, pos,
+                rc, sqlite3_errmsg( sqlite3_db_handle( am_stmt->stmt) ));
+    }
+
+    return INT2FIX(rc);
+}
+ 
+/**
+ * call-seq:
+ *     stmt.bind_int( position, value ) -> nil
+ * 
+ * bind a int value to the variable at postion.
+ *
+ */
+VALUE am_sqlite3_statement_bind_int(VALUE self, VALUE position, VALUE value)
+{
+    am_sqlite3_stmt  *am_stmt;
+    int               pos = FIX2INT( position );
+    int               v   = NUM2INT( value );
+    int               rc;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    rc = sqlite3_bind_int( am_stmt->stmt, pos, v );
+    if ( SQLITE_OK != rc ) {
+        rb_raise(eAS_Error, "Error binding [%s] to int at position %d in statement: [SQLITE_ERROR %d] : %s\n",
+                v, pos,
+                rc, sqlite3_errmsg( sqlite3_db_handle( am_stmt->stmt) ));
+    }
+
+    return INT2FIX(rc);
+}
+ 
+/**
+ * call-seq:
+ *     stmt.bind_int64( position, value ) -> nil
+ * 
+ * bind a int64 value to the variable at postion.
+ *
+ */
+VALUE am_sqlite3_statement_bind_int64(VALUE self, VALUE position, VALUE value)
+{
+    am_sqlite3_stmt  *am_stmt;
+    int               pos = FIX2INT( position );
+    sqlite3_int64     v   = NUM2SQLINT64( value );
+    int               rc;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    rc = sqlite3_bind_int64( am_stmt->stmt, pos, v );
+    if ( SQLITE_OK != rc ) {
+        rb_raise(eAS_Error, "Error binding [%s] to int64 at position %d in statement: [SQLITE_ERROR %d] : %s\n",
+                v, pos,
+                rc, sqlite3_errmsg( sqlite3_db_handle( am_stmt->stmt) ));
+    }
+
+    return INT2FIX(rc);
+}
+ 
+/**
+ * call-seq:
+ *     stmt.bind_text( position, value ) -> nil
+ * 
+ * bind a string value to the variable at postion.
+ *
+ */
+VALUE am_sqlite3_statement_bind_text(VALUE self, VALUE position, VALUE value)
+{
+    am_sqlite3_stmt  *am_stmt;
+    int               pos = FIX2INT( position );
+    VALUE             str = StringValue( value );
+    int               rc;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    rc = sqlite3_bind_text( am_stmt->stmt, pos, RSTRING(str)->ptr, RSTRING(str)->len, SQLITE_TRANSIENT);
+    if ( SQLITE_OK != rc ) {
+        rb_raise(eAS_Error, "Error binding [%s] to text at position %d in statement: [SQLITE_ERROR %d] : %s\n",
+                RSTRING(str)->ptr, pos,
+                rc, sqlite3_errmsg( sqlite3_db_handle( am_stmt->stmt) ));
+    }
+
+    return INT2FIX(rc);
+}
+/**
+ * call-seq:
+ *    stmt.remaining_sql -> String
+ *
+ * returns the remainging SQL leftover from the initialization sql, or nil if
+ * there is no remaining SQL
+ */
+VALUE am_sqlite3_statement_remaining_sql(VALUE self)
+{
+    am_sqlite3_stmt  *am_stmt;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    return am_stmt->remaining_sql;
+}
+/**
+ * call-seq:
+ *    stmt.parameter_index( name ) -> Integer
+ *
+ * returns the index of the named parameter from the statement.  Used to help
+ * with the :VVV, @VVV and $VVV pareamter replacement styles.
+ */
+VALUE am_sqlite3_statement_bind_parameter_index(VALUE self, VALUE parameter_name)
+{
+    am_sqlite3_stmt  *am_stmt;
+    int               idx;
+    
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    idx = sqlite3_bind_parameter_index( am_stmt->stmt, StringValuePtr( parameter_name ));
+    return INT2FIX( idx );
+}
+
+/**
+ * call-seq:
+ *    stmt.parameter_count -> Integer
+ *
+ * return the index of the largest parameter in the in the statement.  For all
+ * forms except ?NNN this is the number of unique parameters.  Using ?NNN can
+ * create gaps in the list of parameters.
+ *
+ */
+VALUE am_sqlite3_statement_bind_parameter_count(VALUE self)
+{
+    am_sqlite3_stmt  *am_stmt;
+    
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    return INT2FIX(sqlite3_bind_parameter_count( am_stmt->stmt ) );
+}
+
+/**
+ * call-seq:
+ *    stmt.reset! -> nil
+ *
+ * reset the SQLite3 statement back to its initial state.
+ */
+VALUE am_sqlite3_statement_reset(VALUE self)
+{
+    am_sqlite3_stmt  *am_stmt;
+    int               rc;
+    
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    rc = sqlite3_reset( am_stmt->stmt );
+    if ( rc != SQLITE_OK ) {
+        rb_raise(eAS_Error, "Error resetting statement: [SQLITE_ERROR %d] : %s\n",
+                rc, sqlite3_errmsg( sqlite3_db_handle( am_stmt->stmt) ));
+    }
+    return Qnil;
+}
+
+/**
+ * call-seq:
+ *    stmt.clear_bindings! -> nil
+ *
+ * reset the SQLite3 statement back to its initial state.
+ */
+VALUE am_sqlite3_statement_clear_bindings(VALUE self)
+{
+    am_sqlite3_stmt  *am_stmt;
+    int               rc;
+    
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    rc = sqlite3_clear_bindings( am_stmt->stmt );
+    if ( rc != SQLITE_OK ) {
+        rb_raise(eAS_Error, "Error resetting statement: [SQLITE_ERROR %d] : %s\n",
+                rc, sqlite3_errmsg( sqlite3_db_handle( am_stmt->stmt) ));
+    }
+    return Qnil;
+}
+
+
+/**
+ * call-seq:
+ *    stmt.step -> int
+ *
+ * Step through the next piece of the SQLite3 statement
+ *
+ */
+VALUE am_sqlite3_statement_step(VALUE self)
+{
+    am_sqlite3_stmt  *am_stmt;
+    
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    return INT2FIX( sqlite3_step( am_stmt->stmt ) );
+}
+
+/**
+ * call-seq:
+ *    stmt.column_count -> Fixnum
+ *
+ * return the number of columns in the result set.
+ *
+ */
+VALUE am_sqlite3_statement_column_count(VALUE self)
+{
+    am_sqlite3_stmt  *am_stmt;
+    
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    return INT2FIX( sqlite3_column_count( am_stmt->stmt ) );
+}
+
+/**
+ * call-seq:
+ *    stmt.column_name( index ) -> String
+ *  
+ * Return the column name at the ith column in the result set.  The left-most column
+ * is number 0.
+ *
+ */
+VALUE am_sqlite3_statement_column_name(VALUE self, VALUE v_idx)
+{
+    am_sqlite3_stmt  *am_stmt;
+    int               idx = FIX2INT( v_idx );
+    
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+
+    return rb_str_new2( sqlite3_column_name( am_stmt->stmt, idx ) );
+}
+
+
+/**
+ * call-seq:
+ *    stmt.column_declared_type( index ) -> String
+ *  
+ * Return the declared type of the ith column in the result set.  This is the
+ * value that was in the original CREATE TABLE statement.
+ *
+ */
+VALUE am_sqlite3_statement_column_decltype(VALUE self, VALUE v_idx)
+{
+    am_sqlite3_stmt   *am_stmt;
+    int                idx = FIX2INT( v_idx );
+    const char        *decltype; 
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    decltype = sqlite3_column_decltype( am_stmt->stmt, idx ) ;
+    if ( NULL == decltype) {
+        return Qnil;
+    } else {
+        return rb_str_new2( decltype );
+    }
+}
+
+/**
+ * call-seq:
+ *    stmt.column_type( index ) -> SQLite3::DataType constant
+ *  
+ * Return the column type at the ith column in the result set.  The left-most column
+ * is number 0.
+ *
+ */
+VALUE am_sqlite3_statement_column_type(VALUE self, VALUE v_idx)
+{
+    am_sqlite3_stmt   *am_stmt;
+    int               idx = FIX2INT( v_idx );
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    return INT2FIX( sqlite3_column_type( am_stmt->stmt, idx ) );
+}
+
+/**
+ * call-seq:
+ *    stmt.column_text( index ) -> String
+ *  
+ * Return the data in ith column of the result as a String.
+ *
+ */
+VALUE am_sqlite3_statement_column_text(VALUE self, VALUE v_idx)
+{
+    am_sqlite3_stmt   *am_stmt;
+    int               idx = FIX2INT( v_idx );
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    return rb_str_new2( (const char*)sqlite3_column_text( am_stmt->stmt, idx ) );
+}
+
+/**
+ * call-seq:
+ *    stmt.column_blob( index ) -> String
+ *  
+ * Return the data in ith column of the result as a String.
+ *
+ */
+VALUE am_sqlite3_statement_column_blob(VALUE self, VALUE v_idx)
+{
+    am_sqlite3_stmt *am_stmt;
+    int              idx    = FIX2INT( v_idx );
+    const char      *data; 
+    long             length;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    data = sqlite3_column_blob( am_stmt->stmt, idx );
+    length = sqlite3_column_bytes( am_stmt->stmt, idx );
+    return rb_str_new( data, length );
+
+}
+
+
+/**
+ * call-seq:
+ *    stmt.column_double( index ) -> Float
+ *  
+ * Return the data in ith column of the result as an Float
+ *
+ */
+VALUE am_sqlite3_statement_column_double(VALUE self, VALUE v_idx)
+{
+    am_sqlite3_stmt   *am_stmt;
+    int               idx = FIX2INT( v_idx );
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    return rb_float_new( sqlite3_column_double( am_stmt->stmt, idx )) ;
+}
+
+
+/**
+ * call-seq:
+ *    stmt.column_int( index ) -> Integer
+ *  
+ * Return the data in ith column of the result as an Integer
+ *
+ */
+VALUE am_sqlite3_statement_column_int(VALUE self, VALUE v_idx)
+{
+    am_sqlite3_stmt   *am_stmt;
+    int               idx = FIX2INT( v_idx );
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    return INT2NUM( sqlite3_column_int( am_stmt->stmt, idx )) ;
+}
+
+
+/**
+ * call-seq:
+ *    stmt.column_int64( index ) -> Integer
+ *  
+ * Return the data in ith column of the result as an Integer
+ *
+ */
+VALUE am_sqlite3_statement_column_int64(VALUE self, VALUE v_idx)
+{
+    am_sqlite3_stmt   *am_stmt;
+    int               idx = FIX2INT( v_idx );
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    return SQLINT64_2NUM( sqlite3_column_int64( am_stmt->stmt, idx )) ;
+}
+
+
+
+/**
+ * call-seq:
+ *    stmt.column_database_name( index ) -> String
+ *  
+ * Return the database name where the data in the ith column of the result set
+ * comes from.
+ *
+ */
+VALUE am_sqlite3_statement_column_database_name(VALUE self, VALUE v_idx)
+{
+    am_sqlite3_stmt   *am_stmt;
+    int               idx = FIX2INT( v_idx );
+    const char        *n ;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    n = sqlite3_column_database_name( am_stmt->stmt, idx ) ;
+    return ( n == NULL ? Qnil : rb_str_new2( n ) ); 
+}
+
+/**
+ * call-seq:
+ *    stmt.column_table_name( index ) -> String
+ *  
+ * Return the table name where the data in the ith column of the result set
+ * comes from.
+ *
+ */
+VALUE am_sqlite3_statement_column_table_name(VALUE self, VALUE v_idx)
+{
+    am_sqlite3_stmt   *am_stmt;
+    int               idx = FIX2INT( v_idx );
+    const char        *n ;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    n =  sqlite3_column_table_name( am_stmt->stmt, idx );
+    return ( n == NULL ? Qnil : rb_str_new2( n ) ); 
+}
+
+
+/**
+ * call-seq:
+ *    stmt.column_origin_name( index ) -> String
+ *  
+ * Return the column name where the data in the ith column of the result set
+ * comes from.
+ *
+ */
+VALUE am_sqlite3_statement_column_origin_name(VALUE self, VALUE v_idx)
+{
+    am_sqlite3_stmt   *am_stmt;
+    int               idx = FIX2INT( v_idx );
+    const char        *n ;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    n = sqlite3_column_origin_name( am_stmt->stmt, idx );
+    return ( n == NULL ? Qnil : rb_str_new2( n ) ); 
+}
+
+
+/**
+ * call-seq:
+ *    stmt.sql -> String
+ *
+ * Return a copy of the original string used to create the prepared statement.
+ */
+VALUE am_sqlite3_statement_sql(VALUE self)
+{
+
+    am_sqlite3_stmt   *am_stmt;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    return rb_str_new2( sqlite3_sql( am_stmt->stmt ) );
+    
+}
+
+/**
+ * call-seq:
+ *    stmt.close -> nil
+ *
+ * Closes the statement.  If there is a problem closing the statement then an
+ * error is raised.
+ */
+VALUE am_sqlite3_statement_close( VALUE self )
+{
+
+    am_sqlite3_stmt   *am_stmt;
+    int                rc;
+
+    Data_Get_Struct(self, am_sqlite3_stmt, am_stmt);
+    rc = sqlite3_finalize( am_stmt->stmt );
+    if ( SQLITE_OK != rc ) {
+        rb_raise(eAS_Error, "Failure to close statment : [SQLITE_ERROR %d] : %s\n",
+                rc, sqlite3_errmsg( sqlite3_db_handle( am_stmt->stmt) ));
+    }
+
+    return Qnil;
+}
+
+/***********************************************************************
+ * Ruby life cycle methods
+ ***********************************************************************/
+
+
+/*
+ * garbage collector free method for the am_sqlite3_statement structure
+ */
+void am_sqlite3_statement_free(am_sqlite3_stmt* wrapper)
+{
+
+    if ( Qnil != wrapper->remaining_sql ) {
+        rb_gc_unregister_address( &(wrapper->remaining_sql) );
+        wrapper->remaining_sql = Qnil;
+    }
+    free(wrapper);
+    return;
+}
+
+/*
+ * allocate the am_data structure
+ */
+VALUE am_sqlite3_statement_alloc(VALUE klass)
+{
+    am_sqlite3_stmt  *wrapper = ALLOC(am_sqlite3_stmt);
+    VALUE             obj     = (VALUE)NULL;
+
+    obj = Data_Wrap_Struct(klass, NULL, am_sqlite3_statement_free, wrapper);
+    return obj;
+}
+
+/**
+ * Amagalite Database extension
+ */
+
+void Init_amalgalite3_statement( )
+{
+
+    VALUE ma  = rb_define_module("Amalgalite");
+    VALUE mas = rb_define_module_under(ma, "SQLite3");
+
+    /*
+     * Encapsulate the SQLite3 Statement handle in a class
+     */
+    cAS_Statement = rb_define_class_under( mas, "Statement", rb_cObject ); 
+    rb_define_alloc_func(cAS_Statement, am_sqlite3_statement_alloc); 
+    rb_define_method(cAS_Statement, "sql", am_sqlite3_statement_sql, 0); 
+    rb_define_method(cAS_Statement, "close", am_sqlite3_statement_close, 0); 
+    rb_define_method(cAS_Statement, "step", am_sqlite3_statement_step, 0); 
+
+    rb_define_method(cAS_Statement, "column_count", am_sqlite3_statement_column_count, 0); 
+    rb_define_method(cAS_Statement, "column_name", am_sqlite3_statement_column_name, 1); 
+    rb_define_method(cAS_Statement, "column_declared_type", am_sqlite3_statement_column_decltype, 1); 
+    rb_define_method(cAS_Statement, "column_type", am_sqlite3_statement_column_type, 1); 
+    rb_define_method(cAS_Statement, "column_text", am_sqlite3_statement_column_text, 1); 
+    rb_define_method(cAS_Statement, "column_blob", am_sqlite3_statement_column_blob, 1); 
+    rb_define_method(cAS_Statement, "column_int", am_sqlite3_statement_column_int, 1); 
+    rb_define_method(cAS_Statement, "column_int64", am_sqlite3_statement_column_int64, 1); 
+    rb_define_method(cAS_Statement, "column_double", am_sqlite3_statement_column_double, 1); 
+
+    rb_define_method(cAS_Statement, "column_database_name", am_sqlite3_statement_column_database_name, 1); 
+    rb_define_method(cAS_Statement, "column_table_name", am_sqlite3_statement_column_table_name, 1); 
+    rb_define_method(cAS_Statement, "column_origin_name", am_sqlite3_statement_column_origin_name, 1); 
+    rb_define_method(cAS_Statement, "reset!", am_sqlite3_statement_reset, 0); 
+    rb_define_method(cAS_Statement, "clear_bindings!", am_sqlite3_statement_clear_bindings, 0); 
+    rb_define_method(cAS_Statement, "parameter_count", am_sqlite3_statement_bind_parameter_count, 0); 
+    rb_define_method(cAS_Statement, "parameter_index", am_sqlite3_statement_bind_parameter_index, 1); 
+    rb_define_method(cAS_Statement, "remaining_sql", am_sqlite3_statement_remaining_sql, 0); 
+    rb_define_method(cAS_Statement, "bind_text", am_sqlite3_statement_bind_text, 2); 
+    rb_define_method(cAS_Statement, "bind_int", am_sqlite3_statement_bind_int, 2); 
+    rb_define_method(cAS_Statement, "bind_int64", am_sqlite3_statement_bind_int64, 2); 
+    rb_define_method(cAS_Statement, "bind_double", am_sqlite3_statement_bind_double, 2); 
+    rb_define_method(cAS_Statement, "bind_null", am_sqlite3_statement_bind_null, 1); 
+    rb_define_method(cAS_Statement, "bind_blob", am_sqlite3_statement_bind_blob, 2); 
+    rb_define_method(cAS_Statement, "bind_zeroblob", am_sqlite3_statement_bind_zeroblob, 2); 
+}
+
+