ruby-informix 0.6.2 → 0.7.0

data/test/testcase.rb

@@ -0,0 +1,166 @@
+testdir = File.expand_path(File.dirname(__FILE__))
+$LOAD_PATH.unshift File.join(testdir, "..")
+
+require 'test/unit'
+require 'informix'
+require 'date'
+require 'stringio'
+
+module Informix
+  class TestCase < Test::Unit::TestCase
+    NOW = Time.now.utc
+    TODAY = Date.today
+    MIN_INT64 = -9_223_372_036_854_775_807
+    MAX_INT64= 9_223_372_036_854_775_807
+    MAX_INT32 = 2_147_483_647
+    MIN_INT32 = -2_147_483_647
+    MIN_INT16 = -32767
+    MAX_INT16 = 32767
+    E = 2.71828183
+    PI = 3.1415926535897932385
+    DATE = '04/07/2006'
+    DATE_TIME = '2006-04-07 01:40:55.000'
+    BIGDECIMAL1 = BigDecimal.new('12456.78')
+    BIGDECIMAL2 = BigDecimal.new('90123.45')
+    INTERVALYM1 = -Informix::Interval.year_to_month(999999999, 11)
+    INTERVALDS1 = -Informix::Interval.day_to_second(999999999, 23, 59,
+                                                    Rational(5999999, 100000))
+    INTERVALYM2 = Informix::Interval.year_to_month(999999999, 11)
+    INTERVALDS2 = Informix::Interval.day_to_second(999999999, 23, 59,
+                                                   Rational(5999999, 100000))
+    TEXT = StringIO.new(<<-end_text)
+      This is a TEXT field. You can
+      write them using IO/IO-like objects
+      and read them into Strings.
+    end_text
+
+    TEST_TABLE_NAME = "test"
+
+    attr_reader :db
+
+    def quote_strings(arr)
+      arr.map { |v| if v.nil? then "NULL" else "\"#{v.to_s}\"" end }
+    end
+
+    def supported_data_type?(db, data_type)
+      begin
+        is_supported = true
+        db.execute("create temp table temp_#{TEST_TABLE_NAME}(test_column #{data_type})")
+      rescue Informix::Error => exc
+        raise unless exc[0].sql_code == -201 # Syntax error
+        is_supported = false
+      ensure
+        drop_table("temp_#{TEST_TABLE_NAME}") rescue nil
+      end
+      is_supported
+    end
+
+    def create_test_table
+      columns = [
+        ['id', 'serial', 'not null primary key'],
+        ['char', 'char', '(30)'],
+        ['varchar', 'varchar', '(30)'],
+        ['smallint', 'smallint', '' ],
+        ['integer', 'integer', '' ],
+        ['smallfloat', 'smallfloat', '' ],
+        ['float', 'float', '' ],
+        ['date', 'date', '' ],
+        ['datetime', 'datetime', 'year to fraction(5)' ],
+        ['intervalym', 'interval', 'year(9) to month' ],
+        ['intervalds', 'interval', 'day(9) to fraction(5)' ],
+        ['decimal', 'decimal', '(9, 2)' ],
+        ['text', 'text', '' ]
+      ]
+
+      if supported_data_type?(db, "boolean")
+        columns << ['boolean', 'boolean', '' ]
+      end
+
+      if supported_data_type?(db, "int8")
+        columns << ['int8', 'int8', '' ]
+      end
+
+      col_list = columns.map { |arr| arr.join(' ') }
+      sql = "create temp table #{TEST_TABLE_NAME} (#{col_list.join(",")})"
+      db.execute sql
+    end
+
+    def drop_test_table
+      drop_table TEST_TABLE_NAME
+    end
+
+    def rewind_data
+      @rows.each { |arr| arr.each { |elem| elem.rewind if elem.respond_to?(:rewind) }}
+      TEXT.rewind
+    end
+
+    def populate_test_table
+      sql = "insert into test values(#{quote_strings(@rows[0]).join(',')})"
+
+      assert_nothing_raised(Informix::Error, "Inserting record with db.do, sql = [#{sql}]") do
+        db.execute sql
+      end
+
+      sql = "insert into test values(#{"?," * (@rows[1].size - 1)}#{"?"})"
+
+      assert_nothing_raised(Informix::Error, "Inserting record with stmt.execute, sql = [#{sql}]") do
+        stmt = db.prepare sql
+        stmt.execute(*@rows[1])
+      end
+      ensure
+        rewind_data
+    end
+
+    def drop_table(name)
+      self.db.execute "drop table #{name}"
+    rescue Informix::Error => exc
+      # If table did not exist, ignore the error
+      raise unless exc[0].sql_code == -206
+    end
+
+    # call-seq: obj.setup(connect_string, user_name=nil, password=nil)
+    # 
+    # Make a single connection for all the test cases, because
+    # of the excessive overhead involved to do it once every setup call.
+    #
+    def setup(*args)
+      unless args.empty?
+        @db ||= Informix.connect(args[0], args[1], args[2])
+        @supported = {}
+        @supported["boolean"] = true if supported_data_type?(@db, "boolean")
+        @supported["int8"] = true if supported_data_type?(@db, "int8")
+
+        @rows = [
+          [
+            1, 'char1'.ljust(30, ' '), 'varchar1', MIN_INT16,
+            MIN_INT32, E, PI, DATE, DATE_TIME, INTERVALYM1, INTERVALDS1,
+            BIGDECIMAL1, nil
+          ],
+          [
+            2, 'char2'.ljust(30, ' '), 'varchar2', MAX_INT16,
+            MAX_INT32, 8.9, 8.9, TODAY.strftime("%m/%d/%Y"),
+            NOW.strftime("%Y-%m-%d %H:%M:%S.000"), INTERVALYM2, INTERVALDS2,
+            BIGDECIMAL2, TEXT
+          ]
+        ]
+
+        if @supported["boolean"]
+          @rows[0] << 't'
+          @rows[1] << 'f'
+        end
+
+        if @supported["int8"]
+          @rows[0] << MIN_INT64
+          @rows[1] << MAX_INT64
+        end
+        @rows.freeze
+      end
+
+    end
+
+    # Override the base class version of default_test() so that
+    # a test case with no tests doesn't trigger an error.
+    def default_test; end
+  end
+end
+

metadata

@@ -3,15 +3,15 @@ rubygems_version: 0.9.4
 specification_version: 1
 name: ruby-informix
 version: !ruby/object:Gem::Version 
-  version: 0.6.2
-date: 2007-10-20 00:00:00 -05:00
-summary: Informix driver for Ruby
+  version: 0.7.0
+date: 2008-03-31 00:00:00 -06:00
+summary: Ruby library for IBM Informix
 require_paths: 
 - lib
 email: gerardo.santana@gmail.com
 homepage: http://santanatechnotes.blogspot.com
 rubyforge_project: ruby-informix
-description: Ruby extension for connecting to IBM Informix Dynamic Server, written in ESQL/C.
+description: Ruby library for connecting to IBM Informix 7 and above
 autorequire: informix
 default_executable: 
 bindir: bin
@@ -29,27 +29,45 @@ post_install_message:
 authors: 
 - Gerardo Santana Gomez Garrido
 files: 
-- informix.ec
-- ifx_except.ec
-- ifx_assert.h
-- ifx_except.h
+- ext/informixc.ec
+- lib/informix.rb
+- lib/informix/interval.rb
+- lib/informix/scrollcursor.rb
+- lib/informix/seqcursor.rb
+- lib/informix/CVS
+- lib/informix/exceptions.rb
+- test/testcase.rb
+- test/ifx_all.rb
+- test/ifx_test_create_table.rb
+- test/ifx_test_errinfo.rb
+- test/ifx_test_exceptions.rb
+- test/ifx_test_fetch_n_each.rb
+- test/ifx_test_insert.rb
+- test/ifx_test_select.rb
 - COPYRIGHT
 - Changelog
 - README
-- informix.c
-- ifx_except.c
+- ext/informixc.c
 test_files: []
 
 rdoc_options: 
 - --title
-- Ruby/Informix -- Informix driver for Ruby
+- Ruby/Informix -- Ruby library for IBM Informix
+- --exclude
+- test
+- --exclude
+- extconf.rb
+- --inline-source
+- --line-numbers
+- --main
+- README
 extra_rdoc_files: 
-- informix.c
-- ifx_except.c
+- README
+- ext/informixc.c
 executables: []
 
 extensions: 
-- extconf.rb
+- ext/extconf.rb
 requirements: []
 
 dependencies: []

data/ifx_assert.h

@@ -1,45 +0,0 @@
-/* $Id: ifx_assert.h,v 1.1 2007/01/31 02:16:32 santana Exp $ */
-/*
-* Copyright (c) 2006, 2007 Edwin M. Fine <efine@finecomputerconsultants.com>
-* All rights reserved.
-* 
-* Redistribution and use in source and binary forms, with or without
-* modification, are permitted provided that the following conditions
-* are met:
-* 
-* 1. Redistributions of source code must retain the above copyright
-*    notice, this list of conditions and the following disclaimer.
-* 2. Redistributions in binary form must reproduce the above copyright
-*    notice, this list of conditions and the following disclaimer in the
-*    documentation and/or other materials provided with the distribution.
-* 3. The name of the author may not be used to endorse or promote products
-*    derived from this software without specific prior written permission.
-* 
-* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
-* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-* DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
-* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
-* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-* ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-* POSSIBILITY OF SUCH DAMAGE.
-*/
-
-#if !defined(IFX_ASSERT_H_INCLUDED)
-#define IFX_ASSERT_H_INCLUDED
-
-#define RBIFX_ASSERT(x) \
-    do { if (!(x)) ifx_assertion_exception("Assertion", #x, __FILE__, __LINE__) } while(0)
-#define RBIFX_PRECOND(x) \
-    do { if (!(x)) ifx_assertion_exception("Precondition", #x, __FILE__, __LINE__) } while(0)
-
-/* Correctness (DBC) support */
-void ifx_assertion_exception(const char *failure_type, 
-                             const char *what_failed,
-                             const char *file,
-                             int line);
-
-#endif

data/ifx_except.c

@@ -1,522 +0,0 @@
-#include <sqlhdr.h>
-#include <sqliapi.h>
-#line 1 "ifx_except.ec"
-/* $Id: ifx_except.ec,v 1.2 2007/10/20 10:17:35 santana Exp $ */
-/*
-* Copyright (c) 2006, 2007 Edwin M. Fine <efine@finecomputerconsultants.com>
-* All rights reserved.
-*
-* Redistribution and use in source and binary forms, with or without
-* modification, are permitted provided that the following conditions
-* are met:
-*
-* 1. Redistributions of source code must retain the above copyright
-*    notice, this list of conditions and the following disclaimer.
-* 2. Redistributions in binary form must reproduce the above copyright
-*    notice, this list of conditions and the following disclaimer in the
-*    documentation and/or other materials provided with the distribution.
-* 3. The name of the author may not be used to endorse or promote products
-*    derived from this software without specific prior written permission.
-*
-* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
-* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-* DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
-* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
-* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
-* ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-* POSSIBILITY OF SUCH DAMAGE.
-*/
-
-#include "ifx_except.h"
-#include "ifx_assert.h"
-
-#include <ruby.h>
-#include <stdlib.h>
-#include <stdio.h>
-#include <sqlstype.h>
-#include <sqltypes.h>
-
-/* Convenience macros */
-#define TRIM_BLANKS(s) ((s)[byleng(s, stleng(s))] = '\0')
-#define NUM_ELEMS(arr) (sizeof(arr) / sizeof(*arr))
-
-/* Future use: definition of interpretation of sql_state */
-#define IS_SQL_SUCCESS(sql_state)       ((sql_state)[0] == '0' && (sql_state)[1] == '0')
-#define IS_SQL_WARNING(sql_state)       ((sql_state)[0] == '0' && (sql_state)[1] == '1')
-#define IS_SQL_NO_DATA_FOUND(sql_state) ((sql_state)[0] == '0' && (sql_state)[1] == '2')
-#define IS_SQL_ERROR(sql_state)         ((sql_state)[0]  > '0' || (sql_state)[1]  > '2')
-
-/* Constants */
-#define NUM_SQL_EXCEPTION_ARGS          7    /* Number of things we get from GET EXCEPTION */
-
-static const char * const vcs_id = "$Id: ifx_except.ec,v 1.2 2007/10/20 10:17:35 santana Exp $";
-
-/*
- * Ruby object/class/module handles
- */
-static ifx_except_symbols_t sym;
-
-/**
- * Implementation
- */
-
-/* class Informix::Error ------------------------------------------------ */
-
-/**
- * call-seq:
- * Informix::Error.new([string|array]) => obj
- *
- * Optional string is the exception message.
- * Optional array must contain only instances of Informix::ExcInfo structs.
- *
- * Examples:
- * exc = Informix::Error.new
- * arr = [ExcInfo.new(x,y,z...), ExcInfo.new(a,b,c...)]
- * exc = Informix::Error.new(arr)
- */
-static VALUE ifx_exc_init(int argc, VALUE *argv, VALUE self)
-{
-    VALUE arr;
-    VALUE arg;
-
-    if (rb_scan_args(argc, argv, "01", &arg) == 0) {
-        arr = rb_ary_new();
-    }
-    else if (TYPE(arg) == T_STRING) {
-        arr = rb_ary_new();
-        rb_call_super(argc, argv);
-    }
-    else if (TYPE(arg) == T_ARRAY) {
-        arr = arg;
-        if (RARRAY(arg)->len > 0) {
-            long i;
-            for (i = 0; i < RARRAY(arg)->len; ++i)
-                if (!rb_obj_is_instance_of(rb_ary_entry(arg, i), sym.sExcInfo))
-                    rb_raise(rb_eTypeError, "Array may contain only Informix::ExcInfo structs");
-        }
-    }
-    else {
-        rb_raise(rb_eTypeError,
-                "Expected string, or array of Informix::ExcInfo, as argument");
-    }
-
-    rb_iv_set(self, "@info", arr);
-
-    return self;
-}
-
-/* Implementation note:
- * argv must contain the following values in the order given:
- *   sql_code           FIXNUM
- *   sql_state          STRING
- *   class_origin       STRING
- *   subclass_origin    STRING
- *   message            STRING
- *   server_name        STRING
- *   connection_name    STRING
- */
-
-/**
- * call-seq:
- * exc.add_info(sql_code, sql_state, class_origin, subclass_origin, message, server_name, connection_name) =>  self
- *
- * Appends the given information to the exception.
- */
-static VALUE ifx_exc_add_info(int argc, VALUE *argv, VALUE self)
-{
-    VALUE info_arr = rb_iv_get(self, "@info");
-    VALUE sInfo;
-
-#if defined(DEBUG)
-    printf("%s:%d argc = %d\n", "ifx_exc_add_info", __LINE__, argc);
-#endif
-
-    if (argc != NUM_SQL_EXCEPTION_ARGS)
-        rb_raise(rb_eArgError, "Invalid number of arguments (got %d, need %d)", argc, NUM_SQL_EXCEPTION_ARGS);
-    if (info_arr == Qnil) { /* Add the array if missing */
-        info_arr = rb_ary_new();
-        rb_iv_set(self, "@info", info_arr);
-    }
-
-    sInfo =
-        rb_struct_new(sym.sExcInfo,
-                      argv[0], argv[1], argv[2], argv[3],
-                      argv[4], argv[5], argv[6], NULL);
-
-    /* Add the new struct instance to end of our array */
-    rb_ary_push(info_arr, sInfo);
-
-    return self;
-}
-
-/**
- * call-seq:
- * exc.size => num
- *
- * Returns the number of Informix exception messages in the exception.
- */
-static VALUE ifx_exc_size(VALUE self)
-{
-    VALUE info_arr = rb_iv_get(self, "@info");
-    return info_arr != Qnil ? LONG2NUM(RARRAY(info_arr)->len) : Qnil;
-}
-
-/**
- * call-seq:
- * exc.each {|exc_info| block } => exc_info
- *
- * Calls block once for each Informix::ExcInfo object in the exception.
- */
-static VALUE ifx_exc_each(VALUE self)
-{
-    VALUE info_arr = rb_iv_get(self, "@info");
-    return info_arr != Qnil ? rb_iterate(rb_each, info_arr, rb_yield, 0) : Qnil;
-}
-
-/**
- * call-seq:
- * exc.at(index) => info
- *
- * Returns the ExcInfo object at index.
- */
-static VALUE ifx_exc_at(VALUE self, VALUE index)
-{
-    VALUE info_arr = rb_iv_get(self, "@info");
-    long n = NUM2LONG(rb_Integer(index));
-
-#if defined(DEBUG)
-    printf("Getting value at %ld\n", n);
-#endif
-
-    return info_arr != Qnil ? rb_ary_entry(info_arr, n) : Qnil;
-}
-
-/**
- * call-seq:
- * exc.to_s => string
- *
- * Returns a string representation of self.
- */
-static VALUE ifx_exc_to_s(VALUE self)
-{
-    const VALUE nl = rb_str_new2("\n");
-    VALUE s;
-    VALUE info_arr = rb_iv_get(self, "@info");
-    long info_arr_len;
-    VALUE sInfo;
-    long i;
-    size_t j;
-
-    info_arr_len = info_arr == Qnil ? 0 : RARRAY(info_arr)->len;
-
-    if (info_arr_len > 0) {
-        VALUE fmt_str = rb_str_new2("%-15s: %s\n");
-
-        ID fields[] = { /* Fields will be displayed in this order */
-            sym.id_message,
-            sym.id_sql_code,
-            sym.id_sql_state,
-            sym.id_class_origin,
-            sym.id_subclass_origin,
-            sym.id_server_name,
-            sym.id_connection_name
-        };
-
-        s = rb_str_new2("\n");
-
-        for (i = 0; i < info_arr_len; ++i) {
-            sInfo = RARRAY(info_arr)->ptr[i];
-
-            for (j = 0; j < NUM_ELEMS(fields); ++j) {
-                ID field = fields[j];
-                VALUE struct_ref = rb_struct_getmember(sInfo, field);
-                VALUE item_value = rb_String(struct_ref);
-                VALUE args[] = { fmt_str, rb_String(ID2SYM(field)), item_value };
-
-                if (RSTRING(item_value)->len != 0) { /* Skip empty fields */
-                    rb_str_concat(s, rb_f_sprintf(NUM_ELEMS(args), args));
-                }
-            }
-
-            rb_str_concat(s, nl);
-        }
-    }
-    else { /* Call super's to_s */
-        s = rb_call_super(0, 0);
-    }
-
-    return s;
-}
-
-/**
- * Overrides Exception#message. Returns first message in ExcInfo array,
- * or if the array is empty, delegates back to the parent class.
- */
-static VALUE ifx_exc_message(VALUE self)
-{
-    VALUE info_arr = rb_iv_get(self, "@info");
-
-    return (info_arr != Qnil && RARRAY(info_arr)->len > 0)
-        ? rb_struct_getmember(RARRAY(info_arr)->ptr[0], sym.id_message)
-        : rb_call_super(0, 0);
-}
-
-/**
- * call-seq:
- * exc.sqlcode => fixnum
- *
- * Returns the SQLCODE for the first stored ExcInfo struct, or 0
- * if none are stored.
- */
-static VALUE ifx_exc_sql_code(VALUE self)
-{
-    VALUE info_arr = rb_iv_get(self, "@info");
-
-    return (info_arr != Qnil && RARRAY(info_arr)->len > 0)
-        ? rb_struct_getmember(RARRAY(info_arr)->ptr[0], sym.id_sql_code)
-        : INT2FIX(0);
-}
-
-/*
- * C helper functions (see ifx_except.h for documentation)
- */
-void raise_ifx_extended(void)
-{
-    rb_exc_raise(rbifx_ext_exception(sym.eDatabaseError));
-}
-
-VALUE rbifx_ext_exception(VALUE exception_class)
-{
-    VALUE new_instance;
-
-/*
- *     EXEC SQL BEGIN DECLARE SECTION;
- */
-#line 293 "ifx_except.ec"
-#line 294 "ifx_except.ec"
-int4 sql_code;
-  char sql_state[6];
-  char class_origin_val[256];
-  char subclass_origin_val[256];
-  char message[8192];
-  char server_name[256];
-  char connection_name[256];
-mint sql_exception_number;
-mint exc_count = 0;
-mint message_len;
-mint i;
-/*
- *     EXEC SQL END DECLARE SECTION;
- */
-#line 308 "ifx_except.ec"
-
-
-    new_instance = rb_class_new_instance(0, 0, exception_class);
-
-    /* Check that instance of exception_class is derived from
-     * Informix::Error
-     */
-    if (!rb_obj_is_kind_of(new_instance, sym.eError) &&
-        !rb_obj_is_kind_of(new_instance, sym.eWarning)) {
-        rb_raise(rb_eRuntimeError,
-                "Can't instantiate exception from %s, only from %s or %s or their children",
-                rb_class2name(exception_class),
-                rb_class2name(sym.eWarning),
-                rb_class2name(sym.eError));
-    }
-
-/*
- *     EXEC SQL GET DIAGNOSTICS :exc_count = NUMBER;
- */
-#line 324 "ifx_except.ec"
-  {
-#line 324 "ifx_except.ec"
-  static ifx_hostvar_t _SQhtab[] =
-    {
-      { 0, 1, 102, sizeof(exc_count), 0, 0, 0, 0 },
-      { 0, 0, 0, 0, 0, 0, 0, 0 }
-#line 324 "ifx_except.ec"
-    };
-  _SQhtab[0].hostaddr = (char *)&exc_count;
-#line 324 "ifx_except.ec"
-  sqli_diag_get(ESQLINTVERSION, _SQhtab, -1);
-#line 324 "ifx_except.ec"
-  }
-
-    if (exc_count == 0) { /* Something went wrong */
-        char message[128];
-        snprintf(message,
-                 sizeof(message),
-                 "SQL ERROR: SQLCODE %d (sorry, no GET DIAGNOSTICS information available)",
-                 SQLCODE);
-
-        {
-            VALUE argv[] = { rb_str_new2(message) };
-            return rb_class_new_instance(NUM_ELEMS(argv), argv, sym.eOperationalError);
-        }
-    }
-
-    for (i = 0; i < exc_count; ++i) {
-        sql_exception_number = i + 1;
-
-/*
- *         EXEC SQL GET DIAGNOSTICS EXCEPTION :sql_exception_number
- *             :sql_code            = INFORMIX_SQLCODE,
- *             :sql_state           = RETURNED_SQLSTATE,
- *             :class_origin_val    = CLASS_ORIGIN,
- *             :subclass_origin_val = SUBCLASS_ORIGIN,
- *             :message             = MESSAGE_TEXT,
- *             :message_len         = MESSAGE_LENGTH,
- *             :server_name         = SERVER_NAME,
- *             :connection_name     = CONNECTION_NAME
- *             ;
- */
-#line 342 "ifx_except.ec"
-  {
-#line 351 "ifx_except.ec"
-  static ifx_hostvar_t _SQhtab[] =
-    {
-      { 0, 11, 103, sizeof(sql_code), 0, 0, 0, 0 },
-      { 0, 3, 100, 6, 0, 0, 0, 0 },
-      { 0, 4, 100, 256, 0, 0, 0, 0 },
-      { 0, 5, 100, 256, 0, 0, 0, 0 },
-      { 0, 6, 100, 8192, 0, 0, 0, 0 },
-      { 0, 7, 102, sizeof(message_len), 0, 0, 0, 0 },
-      { 0, 9, 100, 256, 0, 0, 0, 0 },
-      { 0, 10, 100, 256, 0, 0, 0, 0 },
-      { 0, 0, 0, 0, 0, 0, 0, 0 }
-#line 351 "ifx_except.ec"
-    };
-  _SQhtab[0].hostaddr = (char *)&sql_code;
-  _SQhtab[1].hostaddr = (sql_state);
-  _SQhtab[2].hostaddr = (class_origin_val);
-  _SQhtab[3].hostaddr = (subclass_origin_val);
-  _SQhtab[4].hostaddr = (message);
-  _SQhtab[5].hostaddr = (char *)&message_len;
-  _SQhtab[6].hostaddr = (server_name);
-  _SQhtab[7].hostaddr = (connection_name);
-#line 351 "ifx_except.ec"
-  sqli_diag_get(ESQLINTVERSION, _SQhtab, sql_exception_number);
-#line 351 "ifx_except.ec"
-  }
-
-        TRIM_BLANKS(class_origin_val);
-        TRIM_BLANKS(subclass_origin_val);
-        TRIM_BLANKS(server_name);
-        TRIM_BLANKS(connection_name);
-        message[message_len - 1] = '\0';
-        TRIM_BLANKS(message);
-
-        {
-            VALUE sprintf_args[] = { rb_str_new2(message), rb_str_new2(sqlca.sqlerrm) };
-            VALUE argv[] = {
-                INT2FIX(sql_code),
-                rb_str_new2(sql_state),
-                rb_str_new2(class_origin_val),
-                rb_str_new2(subclass_origin_val),
-                rb_f_sprintf(NUM_ELEMS(sprintf_args), sprintf_args),
-                rb_str_new2(server_name),
-                rb_str_new2(connection_name)
-            };
-
-            ifx_exc_add_info(NUM_ELEMS(argv), argv, new_instance);
-        }
-    }
-
-    return new_instance;
-}
-
-/**
- * Raises Informix::AssertionFailure exception
- */
-void ifx_assertion_exception(const char *failure_type,
-                             const char *what_failed,
-                             const char *file,
-                             int line)
-{
-    VALUE sprintf_args[] = {
-        rb_str_new2("%s failed on line %d of file %s: %s"),
-        rb_str_new2(failure_type),
-        INT2FIX(line),
-        rb_str_new2(file),
-        rb_str_new2(what_failed)
-    };
-
-    VALUE args[] = { rb_f_sprintf(NUM_ELEMS(sprintf_args), sprintf_args) };
-
-    rb_exc_raise(rb_class_new_instance(NUM_ELEMS(args), args, sym.lib_eAssertion));
-}
-
-/* Init module with shared value(s) from main informix classes */
-void rbifx_except_init(VALUE mInformix, ifx_except_symbols_t *syms)
-{
-    VALUE sym_ExcInfo;
-
-    sym.mInformix = mInformix; // Informix module object handle
-
-	/* class Error --------------------------------------------------------- */
-	sym.eError = rb_define_class_under(mInformix, "Error", rb_eStandardError);
-	sym.eWarning = rb_define_class_under(mInformix, "Warning", rb_eStandardError);
-
-    sym.eInterfaceError = rb_define_class_under(mInformix, "InterfaceError", sym.eError);
-    sym.eDatabaseError = rb_define_class_under(mInformix, "DatabaseError", sym.eError);
-    sym.eDataError = rb_define_class_under(mInformix, "DataError", sym.eError);
-    sym.eOperationalError = rb_define_class_under(mInformix, "OperationalError", sym.eError);
-    sym.eIntegrityError = rb_define_class_under(mInformix, "IntegrityError", sym.eError);
-    sym.eInternalError = rb_define_class_under(mInformix, "InternalError", sym.eError);
-    sym.eProgrammingError = rb_define_class_under(mInformix, "ProgrammingError", sym.eError);
-    sym.eNotSupportedError = rb_define_class_under(mInformix, "NotSupportedError", sym.eError);
-
-    /* Make base class enumerable */
-    rb_include_module(sym.eError, rb_mEnumerable);
-
-    /* Precondition exception class */
-    sym.lib_eAssertion = rb_define_class_under(mInformix, "AssertionFailure", rb_eStandardError);
-
-	rb_define_method(sym.eError, "initialize", ifx_exc_init, -1);
-    rb_define_method(sym.eError, "message", ifx_exc_message, 0);
-    rb_define_method(sym.eError, "sql_code", ifx_exc_sql_code, 0);
-	rb_define_method(sym.eError, "add_info", ifx_exc_add_info, -1);
-	rb_define_method(sym.eError, "[]", ifx_exc_at, 1);
-	rb_define_method(sym.eError, "each", ifx_exc_each, 0);
-	rb_define_method(sym.eError, "to_s", ifx_exc_to_s, 0);
-	rb_define_method(sym.eError, "size", ifx_exc_size, 0);
-	rb_define_alias(sym.eError, "length", "size");
-
-    sym_ExcInfo = rb_intern("ExcInfo");
-
-    sym.id_sql_code = rb_intern("sql_code");
-    sym.id_sql_state = rb_intern("sql_state");
-    sym.id_class_origin = rb_intern("class_origin");
-    sym.id_subclass_origin = rb_intern("subclass_origin");
-    sym.id_message = rb_intern("message");
-    sym.id_server_name = rb_intern("server_name");
-    sym.id_connection_name = rb_intern("connection_name");
-
-    /* Define ExcInfo as a struct in the Informix module */
-    rb_define_const(mInformix,
-                    "ExcInfo",
-                    rb_struct_define(NULL,
-                                     rb_id2name(sym.id_sql_code),
-                                     rb_id2name(sym.id_sql_state),
-                                     rb_id2name(sym.id_class_origin),
-                                     rb_id2name(sym.id_subclass_origin),
-                                     rb_id2name(sym.id_message),
-                                     rb_id2name(sym.id_server_name),
-                                     rb_id2name(sym.id_connection_name),
-                                     NULL));
-
-    sym.sExcInfo = rb_const_get(mInformix, sym_ExcInfo);
-
-    if (syms)
-    {
-        *syms = sym;
-    }
-}
-
-
-#line 466 "ifx_except.ec"