fireruby 0.1.0-powerpc-darwin

data/test/TransactionTest.rb

@@ -0,0 +1,107 @@
+#!/usr/bin/env ruby
+
+require 'TestSetup'
+require 'test/unit'
+require 'fireruby'
+
+include FireRuby
+
+class TransactionTest < Test::Unit::TestCase
+   CURDIR  = "#{Dir.getwd}"
+   DB_FILE = "#{CURDIR}#{File::SEPARATOR}tx_unit_test.fdb"
+   
+   def setup
+      if File::exist?(DB_FILE)
+         Database.new(DB_USER_NAME, DB_PASSWORD, DB_FILE).drop
+      end
+      
+      @database     = Database.create(DB_FILE, DB_USER_NAME, DB_PASSWORD, 1024, nil)
+      @connections  = []
+      @transactions = []
+
+      @connections.push(@database.connect)
+      @connections.push(@database.connect)
+      @connections.push(@database.connect)
+   end
+   
+   def teardown
+      @transactions.each do |tx|
+         tx.rollback if tx.active?
+      end
+      @transactions.clear
+      @connections.each do |cxn|
+         cxn.close if cxn.open?
+      end
+      if File::exist?(DB_FILE)
+         Database.new(DB_USER_NAME, DB_PASSWORD, DB_FILE).drop
+      end
+   end
+   
+   def test01
+      @transactions.push(@connections[0].start_transaction)
+      assert(@transactions[0].active?)
+      
+      @transactions.push(Transaction.new(@connections[1]))
+      assert(@transactions[1].active?)
+      
+      assert(@transactions[0].connections == [@connections[0]])
+      assert(@transactions[1].connections == [@connections[1]])
+      
+      assert(@transactions[0].for_connection?(@connections[1]) == false)
+      assert(@transactions[1].for_connection?(@connections[0]) == false)
+      assert(@transactions[0].for_connection?(@connections[0]))
+      assert(@transactions[1].for_connection?(@connections[1]))
+      
+      @transactions[0].commit
+      assert(@transactions[0].active? == false)
+      assert(@transactions[0].connections == [])
+      assert(@transactions[0].for_connection?(@connections[0]) == false)
+      assert(@transactions[0].for_connection?(@connections[1]) == false)
+      
+      @transactions[1].rollback
+      assert(@transactions[1].active? == false)
+      assert(@transactions[1].connections == [])
+      assert(@transactions[1].for_connection?(@connections[0]) == false)
+      assert(@transactions[1].for_connection?(@connections[1]) == false)
+      
+      @transactions[0] = Transaction.new([@connections[0], @connections[1]])
+      assert(@transactions[0].active? == true)
+      assert(@transactions[0].for_connection?(@connections[0]))
+      assert(@transactions[0].for_connection?(@connections[1]))
+      assert(@transactions[0].for_connection?(@connections[2]) == false)
+      
+      @transactions[0].commit
+      assert(@transactions[0].active? == false)
+      assert(@transactions[0].connections == [])
+      assert(@transactions[0].for_connection?(@connections[0]) == false)
+      assert(@transactions[0].for_connection?(@connections[1]) == false)
+      assert(@transactions[0].for_connection?(@connections[2]) == false)
+      
+      @transactions[0] = Transaction.new([@connections[0], @connections[2]])
+      assert(@transactions[0].active?)
+      @transactions[0].rollback
+      assert(@transactions[0].active? == false)
+      assert(@transactions[0].connections == [])
+      assert(@transactions[0].for_connection?(@connections[0]) == false)
+      assert(@transactions[0].for_connection?(@connections[1]) == false)
+      assert(@transactions[0].for_connection?(@connections[2]) == false)
+   end
+   
+   def test02
+      sql = []
+      sql.push("UPDATE RDB$EXCEPTIONS SET RDB$MESSAGE = 'WoooHooo'"\
+               "WHERE RDB$EXCEPTION_NAME = 'Lalala'")
+      sql.push("SELECT RDB$FIELD_NAME FROM RDB$FIELDS")
+      @transactions.push(Transaction.new(@connections[0]))
+      
+      assert(@transactions[0].execute(sql[0]) == nil)
+      assert(@transactions[0].execute(sql[1]) != nil)
+      assert(@transactions[0].execute(sql[1]).class == ResultSet)
+      
+      total = 0
+      @transactions[0].execute(sql[1]) do |row|
+         total += 1
+      end
+      assert(total = 88)
+   end
+end

data/test/UnitTest.rb

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+
+require 'DatabaseTest'
+require 'ConnectionTest'
+require 'TransactionTest'
+require 'StatementTest'
+require 'ResultSetTest'
+require 'GeneratorTest'
+require 'DDLTest'
+require 'SQLTest'

data/test/example.c

@@ -0,0 +1,91 @@
+#include <ibase.h>
+
+#define LASTLEN 20
+#define FIRSTLEN 15
+#define EXTLEN 4
+
+typedef struct vary
+{
+   short vary_length;
+   char vary_string[1];
+} VARY;
+
+ISC_STATUS status_vector[20],
+           retcode;
+long       SQLCODE;
+XSQLDA     *osqlda;
+XSQLVAR    *ovar;
+short      flag0,
+           flag1,
+           flag2;
+char       *str =  "SELECT last_name, first_name, phone_ext FROM phone_list "\
+                   "WHERE location = "Monterey" ORDER BY last_name, first_name";
+char       last_name[LASTLEN + 2];
+char       first_name[FIRSTLEN + 2];
+char       phone_ext[EXTLEN + 2];
+VARY       *vary;
+
+/* Allocate an output XSQLDA osqlda. */
+osqlda          = (XSQLDA *)malloc(XSQLDA_LENGTH(3);
+osqlda->version = SQLDA_VERSION1;
+osqlda->sqln    = 3;
+
+/* Prepare the statement. */
+isc_dsql_prepare(status_vector,
+                 &tr_handle, /* Set in previous isc_start_transaction() call. */
+                 &stmt_handle, /* Allocated previously by isc_dsql_allocate_statement() or isc_dsql_alloc_statement2() call. */
+                 0,
+                 str,
+                 1,
+                 osqlda);
+                 
+if (status_vector[0] == 1 && status_vector[1])
+{
+   /* Process error. */
+   isc_print_status(status_vector);
+   return(1);
+}
+
+/* Set up an output XSQLVAR structure to allocate space for each item  to be returned. */
+osqlda->sqlvar[0].sqldata = last_name;
+osqlda->sqlvar[0].sqltype = SQL_VARYING + 1;
+osqlda->sqlvar[0].sqlind  = &flag0;
+osqlda->sqlvar[1].sqldata = first_name;
+osqlda->sqlvar[1].sqltype = SQL_VARYING + 1;
+osqlda->sqlvar[1].sqlind  = &flag1;
+osqlda->sqlvar[2].sqldata = phone_ext;
+osqlda->sqlvar[2].sqltype = SQL_VARYING + 1;
+osqlda->sqlvar[2].sqlind  = &flag2;
+
+/* Execute the statement. */
+isc_dsql_execute(status_vector,
+                 &tr_handle, /* Set in previous isc_start_transaction() call. */
+                 &stmt_handle, /* Allocated previously by isc_dsql_allocate_statement() or isc_dsql_alloc_statement2() call. */
+                 1,
+                 NULL);
+
+if (status_vector[0] == 1 && status_vector[1])
+{
+   /* Process error. */
+   isc_print_status(status_vector);
+   return(1);
+}
+
+printf("\n%-20s %-15s %-10s\n\n", "LAST NAME", "FIRST NAME",  "EXTENSION");
+
+/* Fetch and print the records in the select list one by one. */
+while((retcode = isc_dsql_fetch( status_vector, &stmt_handle, 1, osqlda)) == 0)
+{
+   vary = (VARY *)last_name;
+   printf("%-20.*s ", vary->vary_length, vary->vary_string);
+   vary = (VARY *)first_name;
+   printf("%-15.*s ", vary->vary_length, vary->vary_string);
+   vary = (VARY *)phone_ext;
+   printf("%-4.*s ", vary->vary_length, vary->vary_string);
+}
+
+if(retcode != 100L)
+{
+   SQLCODE = isc_sqlcode(status_vector);
+   isc_print_sqlerror(SQLCODE, status_vector); return(1);
+}

data/test/fb.c

@@ -0,0 +1,297 @@
+#include <stdio.h>
+#include <string.h>
+#include "ibase.h"
+
+long         *buffer;
+unsigned int buffer_size;
+
+void writeError(ISC_STATUS *);
+void prepareXSQLDA(XSQLDA *);
+unsigned int calculateSize(XSQLDA *);
+void writeBuffer(void *, unsigned int);
+
+#define USERNAME      "sysdba"
+#define PASSWORD      "masterkey"
+#define DATABASE      "./test.fdb"
+#define SQL           "SELECT * FROM USERS"
+#define ALIGN(ptr, n) ((ptr + n - 1) & ~(n - 1))
+
+int main(void)
+{
+   char            dpb[100],
+                   *location = dpb;
+   isc_db_handle   db        = 0;
+   short           size      = 0;
+   ISC_STATUS      status[20];
+   unsigned int    length    = 0;
+   
+   /* Prepare the DPB and connect to the database. */
+   memset(dpb, 0, 100);
+   *location++ = isc_dpb_version1;
+   
+   size = strlen(USERNAME);
+   *location++ = isc_dpb_user_name;
+   *location++ = (char)size;
+   memcpy(location, USERNAME, size);
+   location += size;
+   
+   size = strlen(PASSWORD);
+   *location++ = isc_dpb_password;
+   *location++ = (char)size;
+   memcpy(location, PASSWORD, size);
+   location += size;
+
+   length = strlen(USERNAME) + strlen(PASSWORD) + 5;
+   if(isc_attach_database(status, strlen(DATABASE), DATABASE, &db,
+                          length, dpb) == 0)
+   {
+      isc_tr_handle tr = 0;
+      
+      /* Start a transaction. */
+      if(isc_start_transaction(status, &tr, 1, &db, 0, NULL) == 0)
+      {
+         isc_stmt_handle stmt = 0;
+         
+         /* Create a SQL statment. */
+         if(isc_dsql_allocate_statement(status, &db, &stmt) == 0)
+         {
+            XSQLDA *da = (XSQLDA *)malloc(XSQLDA_LENGTH(3));
+            
+            /* Prepare the statement for execution. */
+            if(da != NULL)
+            {
+               da->version = SQLDA_VERSION1;
+               da->sqln    = 3;
+               if(isc_dsql_prepare(status, &tr, &stmt, 0, SQL, 3, da) == 0)
+               {
+                  XSQLDA *actual = NULL;
+                  
+                  /* Check if the XSQLDA needs resizing. */
+                  if(da->sqld > da->sqln)
+                  {
+                     /* Allocate the new XSQLDA. */
+                     actual = (XSQLDA *)malloc(XSQLDA_LENGTH(da->sqld));
+                     if(actual != NULL)
+                     {
+                        /* Bind the details to the new XSQLDA. */
+                        actual->version = SQLDA_VERSION1;
+                        actual->sqln    = da->sqld;
+                        if(isc_dsql_describe(status, &stmt, SQL_DIALECT_V6,
+                                             actual) != 0)
+                        {
+                           /* Print an error. */
+                           fprintf(stderr, "DSQL describe call failed.\n");
+                           writeError(status);
+                        }
+                        else
+                        {
+                           /* Slot the new XSQLDA into place. */
+                           free(da);
+                           printf("Assigning updated XSQLDA (%p).\n", actual);
+                           da = actual;
+                        }
+                     }
+                     else
+                     {
+                        /* Print an error message. */
+                        fprintf(stderr, "Error resizing XSQLDA.");
+                     }
+                  }
+                  
+                  /* Prepare the XSQLDA for use. */
+                  prepareXSQLDA(da);
+                  
+                  /* Execute the statement. */
+                  fprintf(stderr, "Calling isc_dsql_execute().\n");
+                  if(isc_dsql_execute(status, &tr, &stmt, SQL_DIALECT_V6,
+                                       NULL) == 0)
+                  {
+                     /* Fetch a row of data. */
+                     fprintf(stderr, "Calling isc_dsql_fetch().\n");
+                     if(isc_dsql_fetch(status, &stmt, SQL_DIALECT_V6, da) != 0)
+                     {
+                        /* Print an error. */
+                        fprintf(stderr, "Error performing SQL fetch.\n");
+                        writeError(status);
+                     }
+                     else
+                     {
+                        writeBuffer(buffer, sizeof(long) * buffer_size);
+                     }
+                  }
+                  else
+                  {
+                     /* Print an error. */
+                     fprintf(stderr, "Error executing the SQL statement.\n");
+                     writeError(status);
+                  }
+                  
+                  /* Free the XQSLDA memory. */
+                  free(da);
+               }
+               else
+               {
+                  /* Print an error and rollback the transaction. */
+                  fprintf(stderr, "Error preparing the SQL statement.\n");
+                  isc_rollback_transaction(status, &tr);
+               }
+            }
+            
+            /* Release the statement resources. */
+            isc_dsql_free_statement(status, &stmt, DSQL_drop);
+         }
+         else
+         {
+            /* Print an error and rollback the transaction. */
+            fprintf(stderr, "Error allocating the SQL statement.\n");
+            isc_rollback_transaction(status, &tr);
+         }
+      }
+      else
+      {
+         /* Print an error. */
+         fprintf(stderr, "Error starting a transaction.\n");
+      }
+      
+      /* Close the database. */
+      isc_detach_database(status, &db);
+      printf("Database closed, program exiting.\n");
+   }
+   else
+   {
+      /* Print an error. */
+      fprintf(stderr, "Error connecting as %s/%s to the '%s' database.\n",
+              USERNAME, PASSWORD, DATABASE);
+   }
+   
+   return(0);
+}
+
+
+void writeError(ISC_STATUS *status)
+{
+   if(status != NULL && (status[0] == 1 && status[1] != 0))
+   {
+      char       text[1024];
+      ISC_STATUS local[20];
+      long       code = 0;
+      
+      while(isc_interprete(text, &status))
+      {
+         fprintf(stderr, "%s\n", text);
+      }
+      code = isc_sqlcode(local);
+      isc_sql_interprete(code, text, 1024);
+      fprintf(stderr, "%s\n", text);
+   }
+   else
+   {
+      /* Write a simple message. */
+      printf("No error details available.\n");
+   }
+}
+
+
+void prepareXSQLDA(XSQLDA *da)
+{
+   XSQLVAR *var    = da->sqlvar;
+   int     error   = 0,
+           offset  = 0,
+           length  = 0,
+           align   = 0;
+   short   i;
+   
+   buffer = (long *)malloc(sizeof(long) * calculateSize(da));
+   printf("Received %p for preparation.\n", da);
+   for(i = 0; i < da->sqln && error == 0; i++, var++)
+   {
+      int type = (var->sqltype & ~1);
+      
+      length = align = var->sqllen;
+      switch(type)
+      {
+         case SQL_TEXT : /* Type: CHAR */
+            printf("Allocating memory for a CHAR (%d chars).\n", var->sqllen);
+            align = 1;
+            break;
+            
+         case SQL_VARYING :
+            printf("Allocating memory for a VARCHAR (%d chars).\n", var->sqllen);
+            length += sizeof(short) + 1;
+            align  = sizeof(short);
+            break;
+      } /* End of switch. */
+      
+      /* Assign data pointers, correcting for alignment. */
+      offset       = FB_ALIGN(offset, align);
+      var->sqldata = (char *)buffer + offset;
+      offset       += length;
+      offset       = FB_ALIGN(offset, sizeof(short));
+      var->sqlind  = (short *)((char *)buffer + offset);
+      offset       += sizeof(short);
+   } /* End of for loop. */
+}
+
+
+unsigned int calculateSize(XSQLDA *da)
+{
+   unsigned int size  = 0;
+   long         total = 0;
+   int          align,
+                length,
+                i;
+   XSQLVAR      *var  = da->sqlvar;
+   
+   for(i = 0; i < da->sqln; i++, var++)
+   {
+      int type = (var->sqltype & ~1);
+      
+      align = var->sqllen;
+      switch(type)
+      {
+         case SQL_TEXT :
+            align = 1;
+            break;
+            
+         case SQL_VARYING :
+            align  = sizeof(short);
+            length = var->sqllen + sizeof(short) + 1;
+            break;
+            
+         default :
+            length = var->sqllen;
+      }
+      total = FB_ALIGN(total, align);
+      total += length;
+      total = FB_ALIGN(total, sizeof(short));
+      total += sizeof(short);
+   }
+   
+   size = (unsigned int)(total / sizeof(long));
+   if(total % sizeof(long) > 0)
+   {
+      size++;
+   }
+   
+   printf("%d bytes (%d longs) required for storage.\n", total, size);
+   buffer_size = size;
+   return(size);
+}
+
+
+void writeBuffer(void *buffer, unsigned int length)
+{
+   char         *offset = (char *)buffer;
+   unsigned int i;
+   
+   for(i = 0; i < length; i++, offset++)
+   {
+      if(*offset < 32)
+         printf(".");
+      else
+         printf("%c", *offset);
+      if(i % 50 == 0)
+         printf("\n");
+   }
+   printf("\n");
+}

data/test/mfb

@@ -0,0 +1 @@
+gcc -g -o fb fb.c -framework Firebird -I/Library/Frameworks/Firebird.framework/Headers