fireruby 0.1.0-mswin32 → 0.2.0-mswin32

data/test/example.c

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

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

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