ruby-oci8 1.0.7 → 2.0.0

data/ext/oci8/oranumber.c

@@ -1,445 +0,0 @@
-/*
-  oranumber.c - part of ruby-oci8
-
-  Copyright (C) 2002 KUBO Takehiro <kubo@jiubao.org>
-
-=begin
-== OraNumber
-This is not a numeric class, so algebra operations and setter methods
-are not permitted, but a place to hold fetched date from Oracle server.
-
-In fact as matter, this is a test class to check the algorithm to 
-convert Oracle internal number format to Ruby's number, which is internally used by,
-for example, ((<OCIStmt#attrGet|OCIHandle#attrGet>))(((<OCI_ATTR_MIN>))).
-=end
-*/
-#include "oci8.h"
-#include "math.h"
-
-#define Get_Sign(on) ((on)->exponent & 0x80)
-#define Get_Exp_Part(on) ((on)->exponent & 0x7F)
-#define Get_Exponent(on) (Get_Sign(on) ? (Get_Exp_Part(on) - 65) : (~(Get_Exp_Part(on)) + 63))
-#define Get_Mantissa_At(on, i) (Get_Sign(on) ? (on)->mantissa[i] - 1 : 101 - (on)->mantissa[i])
-
-static int ora_number_from_str(ora_vnumber_t *ovn, unsigned char *buf, size_t len);
-
-static ora_vnumber_t *get_ora_number(VALUE self)
-{
-  ora_vnumber_t *ovn;
-  Data_Get_Struct(self, ora_vnumber_t, ovn);
-  return ovn;
-}
-
-static VALUE ora_number_s_allocate(VALUE klass)
-{
-  ora_vnumber_t *ovn;
-  return Data_Make_Struct(klass, ora_vnumber_t, NULL, xfree, ovn);
-}
-
-#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
-/* ruby 1.6 */
-static VALUE ora_number_s_new(int argc, VALUE *argv, VALUE klass)
-{
-  VALUE obj = ora_number_s_allocate(klass);
-  rb_obj_call_init(obj, argc, argv);
-  return obj;
-}
-#endif
-
-/*
-=begin
---- OraNumber.new()
-=end
-*/
-static VALUE ora_number_initialize(int argc, VALUE *argv, VALUE self)
-{
-  ora_vnumber_t *ovn = get_ora_number(self);
-  volatile VALUE arg;
-
-  rb_scan_args(argc, argv, "01", &arg);
-  ovn->size = 1;
-  ovn->num.exponent = 0x80;
-  memset(ovn->num.mantissa, 0, sizeof(ovn->num.mantissa));
-  if (argc == 1) {
-    if (TYPE(arg) != T_STRING) {
-      arg = rb_obj_as_string(arg);
-    }
-    if (ora_number_from_str(ovn, RSTRING_ORATEXT(arg), RSTRING_LEN(arg)) != 0) {
-      rb_raise(rb_eArgError, "could not convert '%s' to OraNumber", RSTRING_PTR(arg));
-    }
-  }
-  return Qnil;
-}
-
-static VALUE ora_number_initialize_copy(VALUE lhs, VALUE rhs)
-{
-  ora_vnumber_t *l, *r;
-
-#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
-  /* ruby 1.8 */
-  rb_obj_init_copy(lhs, rhs);
-#endif
-  Data_Get_Struct(lhs, ora_vnumber_t, l);
-  Data_Get_Struct(rhs, ora_vnumber_t, r);
-  memcpy(l, r, sizeof(ora_vnumber_t));
-  return lhs;
-}  
-
-static VALUE ora_number_clone(VALUE self)
-{
-  VALUE obj = ora_number_s_allocate(CLASS_OF(self));
-  return ora_number_initialize_copy(obj, self);
-}
-
-/*
-=begin
---- OraNumber#to_i()
-=end
-*/
-static VALUE ora_number_to_i(VALUE self)
-{
-  ora_vnumber_t *ovn = get_ora_number(self);
-  unsigned char buf[ORA_NUMBER_BUF_SIZE];
-
-  ora_number_to_str(buf, NULL, &(ovn->num), ovn->size);
-  return rb_cstr2inum(TO_CHARPTR(buf), 10);
-}
-
-/*
-=begin
---- OraNumber#to_f()
-=end
-*/
-static VALUE ora_number_to_f(VALUE self)
-{
-  ora_vnumber_t *ovn = get_ora_number(self);
-  unsigned char buf[ORA_NUMBER_BUF_SIZE];
-
-  ora_number_to_str(buf, NULL, &(ovn->num), ovn->size);
-  return rb_float_new(rb_cstr_to_dbl(TO_CHARPTR(buf), Qfalse));
-}
-
-/*
-=begin
---- OraNumber#to_s()
-=end
-*/
-static VALUE ora_number_to_s(VALUE self)
-{
-  ora_vnumber_t *ovn = get_ora_number(self);
-  unsigned char buf[ORA_NUMBER_BUF_SIZE];
-  size_t len;
-
-  ora_number_to_str(buf, &len, &(ovn->num), ovn->size);
-  return rb_str_new(TO_CHARPTR(buf), len);
-}
-
-static VALUE ora_number_uminus(VALUE self)
-{
-  ora_vnumber_t *ovn = get_ora_number(self);
-  VALUE obj;
-  int i;
-
-  if (ovn->num.exponent == 0x80)
-    return self;
-  obj = ora_number_clone(self);
-  ovn = get_ora_number(obj);
-  ovn->num.exponent = ~(ovn->num.exponent);
-  for (i = 0;i < ovn->size - 1;i++)
-    ovn->num.mantissa[i] = 102 - ovn->num.mantissa[i];
-  if (Get_Sign(&(ovn->num))) {
-    if (ovn->size != 21 || ovn->num.mantissa[19] == 0x00) {
-      ovn->size--;
-    }
-  } else {
-    if (ovn->size != 21) {
-      ovn->num.mantissa[ovn->size - 1] = 102;
-      ovn->size++;
-    }
-  }
-  return obj;
-}
-
-static VALUE ora_number_dump(int argc, VALUE *argv, VALUE self)
-{
-  ora_vnumber_t *ovn = get_ora_number(self);
-  unsigned char i;
-  for (i = ovn->size - 1; i < 20; i++) {
-    ovn->num.mantissa[i] = 0;
-  }
-  return rb_str_new((const char*)ovn, sizeof(ora_vnumber_t));
-}  
-
-static VALUE ora_number_s_load(VALUE klass, VALUE str)
-{
-  ora_vnumber_t *ovn;
-  VALUE obj;
-
-  Check_Type(str, T_STRING);
-  if (RSTRING_LEN(str) != sizeof(ora_vnumber_t)) {
-    rb_raise(rb_eTypeError, "marshaled OraNumber format differ");
-  }
-  obj = ora_number_s_allocate(klass);
-  ovn = get_ora_number(obj);
-  memcpy(ovn, RSTRING_PTR(str), sizeof(ora_vnumber_t));
-  return obj;
-}  
-
-void Init_ora_number(void)
-{
-#ifdef HAVE_RB_DEFINE_ALLOC_FUNC
-  /* ruby 1.8 */
-  rb_define_alloc_func(cOraNumber, RUBY_METHOD_FUNC(ora_number_s_allocate));
-  rb_define_method(cOraNumber, "initialize", ora_number_initialize, -1);
-  rb_define_method(cOraNumber, "initialize_copy", ora_number_initialize_copy, 1);
-#else
-  /* ruby 1.6 */
-  rb_define_singleton_method(cOraNumber, "new", ora_number_s_new, -1);
-  rb_define_method(cOraNumber, "initialize", ora_number_initialize, -1);
-  rb_define_method(cOraNumber, "clone", ora_number_clone, 0);
-  rb_define_method(cOraNumber, "dup", ora_number_clone, 0);
-#endif
-
-  rb_define_method(cOraNumber, "to_i", ora_number_to_i, 0);
-  rb_define_method(cOraNumber, "to_f", ora_number_to_f, 0);
-  rb_define_method(cOraNumber, "to_s", ora_number_to_s, 0);
-  rb_define_method(cOraNumber, "-@", ora_number_uminus, 0);
-
-  rb_define_method(cOraNumber, "_dump", ora_number_dump, -1);
-  rb_define_singleton_method(cOraNumber, "_load", ora_number_s_load, 1);
-}
-
-void ora_number_to_str(unsigned char *buf, size_t *lenp, ora_number_t *on, unsigned char size)
-{
-  int exponent;
-  int len = 0;
-  int mentissa_size;
-  int i, j;
-
-  if (on->exponent == 0x80) {
-    buf[0] = '0';
-    buf[1] = '\0';
-    if (lenp != NULL)
-      *lenp = 1;
-    return;
-  }
-
-  if (Get_Sign(on)) {
-    mentissa_size = size - 1;
-  } else {
-    if (size == 21 && on->mantissa[19] != 102)
-      mentissa_size = 20;
-    else
-      mentissa_size = size - 2;
-    buf[len++] = '-';
-  }
-  exponent = Get_Exponent(on);
-  if (exponent < 0) {
-    buf[len++] = '0';
-    buf[len++] = '.';
-    for (i = exponent * 2;i < -2;i++)
-      buf[len++] = '0';
-    for (i = 0;i < mentissa_size;i++) {
-      j = Get_Mantissa_At(on, i);
-      buf[len++] = j / 10 + '0';
-      if (i != mentissa_size - 1 || j % 10 != 0)
-	buf[len++] = j % 10 + '0';
-    }
-  } else {
-    for (i = 0;i < mentissa_size;i++) {
-      j = Get_Mantissa_At(on, i);
-      if (i == exponent + 1) {
-	buf[len++] = '.';
-      }
-      if (i != 0 || j / 10 != 0)
-	buf[len++] = j / 10 + '0';
-      if ((i < exponent + 1) /* integer part */
-	  || (i != mentissa_size - 1 || j % 10 != 0)  /* decimal fraction */)
-	buf[len++] = j % 10 + '0';
-    }
-    for (;i <= exponent;i++) {
-      buf[len++] = '0';
-      buf[len++] = '0';
-    }
-  }
-  buf[len] = '\0';
-  if (lenp != NULL)
-    *lenp = len;
-}
-
-static int ora_number_from_str(ora_vnumber_t *ovn, unsigned char *buf, size_t len)
-{
-  unsigned char work[80];
-  int sign = 1;
-  int state = 0;
-  int i, j;
-  int iidx; /* index of integer part */
-  int fidx; /* index of fraction part */
-  unsigned char *p;
-  int mantissa_size;
-  int exponent;
-
-  if (len > ORA_NUMBER_BUF_SIZE) {
-    return 1;
-  }
-  /* [ \t]*(+|-)[0-9]*(.[0-9]*) */
-  for (i = iidx = fidx = 0; i < len; i++) {
-    unsigned char uc = buf[i];
-    switch (state) {
-    case 0:
-      /* [ \t]*(+|-)[0-9]*(.[0-9]*) */
-      /* ^                          */
-      switch (uc) {
-      case ' ':
-      case '\t':
-        /* [ \t]*(+|-)[0-9]*(.[0-9]*) */
-        /* ^                          */
-        break;
-      case '-':
-        sign = -1;
-        state = 1;
-        /* [ \t]*(+|-)[0-9]*(.[0-9]*) */
-        /*            ^               */
-        break;
-      case '+':
-      case '0':
-        state = 1;
-        /* [ \t]*(+|-)[0-9]*(.[0-9]*) */
-        /*            ^               */
-        break;
-      case '1':
-      case '2':
-      case '3':
-      case '4':
-      case '5':
-      case '6':
-      case '7':
-      case '8':
-      case '9':
-        work[iidx++] = uc - '0';
-        state = 1;
-        /* [ \t]*(+|-)[0-9]*(.[0-9]*) */
-        /*            ^               */
-        break;
-      case '.':
-        state = 2;
-        /* [ \t]*(+|-)[0-9]*(.[0-9]*) */
-        /*                    ^       */
-        break;
-      default:
-        return 1;
-      }
-      break;
-    case 1:
-      /* [ \t]*(+|-)[0-9]*(.[0-9]*) */
-      /*            ^               */
-      switch (uc) {
-      case '0':
-      case '1':
-      case '2':
-      case '3':
-      case '4':
-      case '5':
-      case '6':
-      case '7':
-      case '8':
-      case '9':
-        if (iidx > sizeof(work))
-          return 1;
-        work[iidx++] = uc - '0';
-        /* [ \t]*(+|-)[0-9]*(.[0-9]*) */
-        /*            ^               */
-        break;
-      case '.':
-        state = 2;
-        /* [ \t]*(+|-)[0-9]*(.[0-9]*) */
-        /*                    ^       */
-        break;
-      default:
-        return 1;
-      }
-      break;
-    case 2:
-      /* [ \t]*(+|-)[0-9]*(.[0-9]*) */
-      /*                    ^       */
-      switch (uc) {
-      case '0':
-      case '1':
-      case '2':
-      case '3':
-      case '4':
-      case '5':
-      case '6':
-      case '7':
-      case '8':
-      case '9':
-        if (iidx + fidx > sizeof(work))
-          return 1;
-        work[iidx + fidx++] = uc - '0';
-        /* [ \t]*(+|-)[0-9]*(.[0-9]*) */
-        /*                    ^       */
-        break;
-      default:
-        return 1;
-      }
-      break;
-    }
-  }
-  /* convert to 100-base number */
-  if (iidx & 1) {
-    i = j = 1;
-  } else {
-    i = j = 0;
-  }
-  if (fidx & 1) {
-    if (iidx + fidx > sizeof(work))
-      return 1;
-    work[iidx + fidx++] = 0;
-  }
-  while (i < iidx + fidx) {
-    work[j++] = work[i] * 10 + work[i + 1];
-    i += 2;
-  }
-  iidx = (iidx + 1) >> 1;
-  fidx >>= 1;
-  /* ... */
-  p = work;
-  mantissa_size = iidx + fidx;
-  exponent = (int)iidx - 1;
-  /* delete leading zeros */
-  while (mantissa_size > 0 && p[0] == 0) {
-    mantissa_size--;
-    exponent--;
-    p++;
-  }
-  /* delete trailing zeros */
-  while (mantissa_size > 0 && p[mantissa_size - 1] == 0) {
-    mantissa_size--;
-  }
-  /* check size */
-  if (mantissa_size > sizeof(ovn->num.mantissa))
-    return 1;
-  if (mantissa_size == 0) {
-    ovn->size = 1;
-    ovn->num.exponent = 0x80;
-    return 0;
-  }
-  if (sign > 0) {
-    ovn->size = mantissa_size + 1;
-    ovn->num.exponent = 0x80 + exponent + 65;
-    for (i = 0; i < mantissa_size; i++) {
-      ovn->num.mantissa[i] = p[i] + 1;
-    }
-  } else {
-    ovn->size = mantissa_size + 1;
-    ovn->num.exponent = 62 - exponent;
-    for (i = 0; i < mantissa_size; i++) {
-      ovn->num.mantissa[i] = 101 - p[i];
-    }
-    if (mantissa_size < 20) {
-      ovn->size++;
-      ovn->num.mantissa[i] = 102;
-    }
-  }
-  return 0;
-}

data/ext/oci8/param.c

@@ -1,37 +0,0 @@
-/*
-  param.c - part of ruby-oci8
-
-  Copyright (C) 2002 KUBO Takehiro <kubo@jiubao.org>
-
-=begin
-== OCIParam
-super class: ((<OCIDescriptor>))
-=end
-*/
-#include "oci8.h"
-
-void Init_oci8_param(void)
-{
-  rb_define_method(cOCIParam, "paramGet", oci8_param_get, 1);
-}
-
-VALUE oci8_param_get(VALUE self, VALUE pos)
-{
-  oci8_handle_t *h;
-  OCIParam *parmhp = NULL;
-  oci8_handle_t *parmh;
-  VALUE obj;
-  sword rv;
-
-  Get_Handle(self, h);
-  Check_Type(pos, T_FIXNUM);
-  rv = OCIParamGet(h->hp, h->type, h->errhp, (dvoid *)&parmhp, FIX2INT(pos));
-  if (rv != OCI_SUCCESS) {
-    oci8_raise(h->errhp, rv, NULL);
-  }
-  parmh = oci8_make_handle(OCI_DTYPE_PARAM, parmhp, h->errhp, h, 0);
-  parmh->u.param.is_implicit = (h->type == OCI_HTYPE_STMT) ? 1 : 0;
-
-  obj = parmh->self;
-  return obj;
-}