ruby-informix 0.6.2-i386-mswin32

data/COPYRIGHT

@@ -0,0 +1,26 @@
+ Copyright (c) 2006-2007, Gerardo Santana Gomez Garrido <gerardo.santana@gmail.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.

data/Changelog

@@ -0,0 +1,198 @@
+0.6.2  10/20/2007
+------------------
+Bugs fixed:
+	* Microsoft's cl compiler was failing due to a variable declaration
+	  where it is not allowed.
+
+	  Noticed by Joe Lanotte <joe.lanotte at comcast dot net>
+
+
+0.6.1  10/13/2007
+------------------
+Bugs fixed:
+	* Database#columns was returning an empty array from within the
+	  Informix ActiveRecord adapter
+	  (ActiveRecord::ConnectionAdapters::InformixAdapter#columns) if
+	  called for different tables. This bug was raising the following
+	  error in Ruby on Rails:
+
+		undefined method columname=
+
+	  Noticed by Andr�s Rafael <aandresrafael at gmail dot com>
+
+
+0.6.0  08/28/2007
+------------------
+New features:
+	* Test suite
+	* Error, Warning, and AssertionFailure classes replace RuntimeError when
+	  raising exceptions.
+
+	  Error class methods: 
+		- message
+		- sql_code
+		- add_info
+		- []
+		- each
+		- to_s
+		- size, length
+
+	  message and sql_code reference the first error message. Following
+	  errors can be accessed through Error#[] as ExcInfo objects.
+
+	  ExcInfo is a Struct with the following members:
+		- sql_code
+		- sql_state
+		- class_origin_val
+		- subclass_origin_val
+		- message
+		- server_name
+		- connection_name
+
+	  See test/testcase.rb for a simple example of exception handling.
+
+	* Informix.version returns the version of this extension
+	* Database#do aliased as Database#execute
+	* More documentation
+
+Remarks:
+	* Database#do is deprecated and will be removed in next versions. Use
+	  Database#execute or Database#immediate instead.
+
+	* In case of Informix errors, RuntimeError objects are no longer raised.
+	  Error, Warning and AssertionFailure objects are raised instead.
+
+
+Acknowledgments:
+	I want to thank Edwin Fine <emofine at finecomputerconsultants dot com>
+who contributed all the functionality of this release.
+
+
+0.5.1  08/10/2007
+------------------
+Bugs fixed:
+	* When a DATETIME HOUR TO SECOND column had a value with leading zeroes
+	  it was incorrectly interpreted.
+	  Reported by Daniel Bush <dlb.id.au at gmail>
+
+
+0.5.0  12/27/2006
+------------------
+New features:
+	* Easier to install
+	* BigDecimal accepted for input parameters
+	* BigDecimal used for instantiating DECIMAL and MONEY values
+	* Cursor, Statement, Slob and Database accept an optional block that
+	  automatically frees resources after execution.
+	  Based on ideas and pseudo-code by
+	  Edwin Fine <emofine at finecomputerconsultants dot com> and me.
+	* Database#slob shortcut for creating Slob objects.
+	* Slob::Stat class implemented. Returned by Slob#stat, represents the
+	  SLOB status. Methods: atime, ctime, mtime, refcnt and size. Includes
+	  Comparable.
+	* Slob new methods: <<, rewind, stat, pos, pos=, lock, unlock,
+	                    estbytes, extsz, flags, maxbytes, sbspace,
+	                    extsz=, flags=,
+	                    atime, ctime, mtime, refcnt and size
+	* Thread safe
+
+Remarks:
+	* DECIMAL and MONEY columns are no longer returned as Float. BigDecimal
+	  is used instead.
+
+Bugs fixed:
+	* If there was an error reading (ifx_lo_read) an SLOB, memory
+	  allocated for the read buffer was not freed. Noticed by
+	  Edwin Fine <emofine at finecomputerconsultants dot com>
+	* maxbytes option was ignored when creating an Slob object
+	* Documentation for Slob mentioned an RDRW constant, but it actually
+	  is RDWR.
+
+Special thanks to Guy Bowerman, Jonathan Leffler and Logan Capaldo for their
+feedback and help.
+
+
+0.4.0  12/13/2006
+------------------
+New features:
+	* Support for multiple connections to databases
+	* Support for scroll cursors. Methods available:
+		- [], slice 
+		- prev, next, first, last, current
+		- prev_hash, next_hash, first_hash, last_hash, current_hash
+		- slice!, prev!, next!, first!, last!, current!
+		- slice_hash, prev_hash, next_hash, first_hash, last_hash,
+		  current_hash!
+		- slice_hash!, prev_hash!, next_hash!, first_hash!, last_hash!,
+		  current_hash!
+	* New Cursor#id method that returns the cursor name for use in
+	  update cursors
+
+Bugs fixed:
+	* Memory for input parameters was allocated before statement/cursor
+	  preparation but not freed if preparation failed.
+
+
+0.3.0  11/26/2006
+------------------
+New features:
+	* Initial support for Smart Large Objects (BLOB/CLOB).
+	  Operations supported:
+		- new
+		- open, close
+		- read, write
+		- seek, tell
+		- truncate
+	* Database#columns now also returns the extended id (xid)
+	* small documentation improvements and fixes
+
+
+0.2.1  11/11/2006
+------------------
+Bugs fixed:
+	* changing free() for xfree() avoids crashes on Windows XP SP1. Noticed
+	  by Dinko <dsrkoc at helix dot hr>
+
+
+0.2.0  04/24/2006
+------------------
+New features:
+	* Methods added to SequentialCursor:
+
+		- fetch_hash_many(n), fetch_hash_all
+		- each_by(n), each_hash_by(n)
+		- fetch!, fetch_hash!, each!, each_hash!
+
+	  where !-methods reduce object creation by reusing the same result
+	  object in each call
+
+Remarks:
+	* fetch*many and fetch*all methods now return [] instead of nil when
+	  no records are found
+
+Bugs fixed:
+	* When freeing a cursor that was opened but never used, a segmentation
+	  fault occurred
+
+
+0.1.0  04/10/2006
+-------------------
+Features:
+	* Support for all built-in data types, except INTERVAL
+	* immediate statements
+	* prepared statements
+	* select cursors and bulk inserts (insert cursors)
+	* transactions
+	* #columns method for retrieving column information
+	* rows retrieved as arrays or hashes
+	* IO-based and IO-like (StringIO) objects for storing a BYTE/TEXT
+	  column, and retrieved as a String object
+	* NULL, DATE and DATETIME mapped to nil, Date and Time objects and
+	  viceversa
+	* #drop method for freeing Informix resources immediatly
+	* source code documented with RDoc
+
+Caveats:
+	* INTERVAL not supported
+	* cursors must be closed before reopening them
+	* only one open connection at a time is supported

data/README

@@ -0,0 +1,85 @@
+Ruby/Informix
+---------------
+Ruby extension for connecting to IBM Informix Dynamic Server, written in ESQL/C.
+
+For installation instructions please read INSTALL.
+
+1. Supported platforms
+2. Documentation
+3. Data types
+4. Recommendations
+5. Caveats
+6. Support
+
+
+1. Supported platforms
+
+Ruby/Informix has been tested succesfully on the following platforms:
+
+Operating System    Architecture       Informix	      CSDK
+-------------------------------------------------------------
+Solaris 10             SPARC64        11.10.UC1      3.00UC2
+Solaris 10             SPARC64         9.40FC6       3.00UC2
+Solaris 9              SPARC64         9.40FC6       2.90UC3
+Fedora Core 5            x86          10.00.UC3R1    2.90UC4
+Fedora Core 4            x86          10.00.UC3R1    2.90UC4
+SuSE Linux 9.3           x86           9.30TC1       2.90UC4
+Gentoo Linux             x86-64        7.32.HC1      2.90UC4
+Windows XP Pro SP        x86           9.40TC3       2.90TC1
+Windows XP               x86           9.30TC1       2.90TC4
+HP-UX 11.11            PA-RISC 2.0    10.00.FC3R1TL  2.81
+                       64-bit
+
+Send me an e-mail if you have [un]succesfully tested Ruby/Informix on another
+platform.
+
+
+2. Documentation
+
+Documentation generated by RDoc for each class, module and method can be found
+under the doc/ directory in this distribution and at the following web address:
+
+http://ruby-informix.rubyforge.org/doc/
+
+Examples of use can be found at:
+
+http://ruby-informix.rubyforge.org
+
+
+3. Data types
+
+All built-in data types are supported, except interval. As you would expect,
+numeric, string and boolean data types are mapped to their respective objects
+in Ruby; DECIMAL/MONEY, DATE, DATETIME and NULL are mapped to BigDecimal, Date,
+Time and nil respectively.
+
+The notable exception is TEXT/BYTE columns, where Ruby/Informix expects an
+IO-based (File) or IO-like (StringIO) object as input, and returns an String
+object as output.
+
+An Slob class exists in the Informix module for working with Smart Large
+Objects (CLOB/BLOB).
+
+
+4. Recommendations
+
+* use #drop for prepared statements and cursors or use them with blocks,
+  to release Informix resources.
+* you can optimize cursor execution by changing the size of fetch and insert
+  buffers, setting the environment variable FET_BUF_SIZE to up to 32767.
+
+
+5. Caveats
+
+* INTERVAL not implemented yet
+
+6. Support
+
+Feel free to send me bug reports, feature requests, comments, patches or
+questions to my mailbox or Ruby/Informix's forums and mailing list at
+Rubyforge (http://rubyforge.org/projects/ruby-informix/)
+
+
+-----------------------------------------
+Gerardo Santana <gerardo.santana gmail>
+http://santanatechnotes.blogspot.com

data/ifx_except.c

@@ -0,0 +1,522 @@
+#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"