ruby-oci8 1.0.7 → 2.0.0

data/ext/oci8/const.c

@@ -1,165 +0,0 @@
-/*
-  const.c - part of ruby-oci8
-
-  Copyright (C) 2002-2006 KUBO Takehiro <kubo@jiubao.org>
-
-  define constant values.
-*/
-#include "oci8.h"
-
-ID oci8_id_code;
-ID oci8_id_define_array;
-ID oci8_id_bind_hash;
-ID oci8_id_message;
-ID oci8_id_new;
-ID oci8_id_parse_error_offset;
-ID oci8_id_server;
-ID oci8_id_session;
-ID oci8_id_sql;
-
-struct oci8_names {
-  const char *name;
-  VALUE value;
-};
-typedef struct oci8_names oci8_names_t;
-#define ENTRY(name) {#name, INT2FIX(name)}
-
-static oci8_names_t oci8_typecode[] = {
-  ENTRY(OCI_TYPECODE_VARCHAR),          /* 1(SQLT_CHR) */
-  ENTRY(OCI_TYPECODE_NUMBER),           /* 2(SQLT_NUM) */
-  ENTRY(OCI_TYPECODE_DATE),             /* 12(SQLT_DAT) */
-  ENTRY(OCI_TYPECODE_UNSIGNED8),        /* 23(SQLT_BIN) */
-  ENTRY(OCI_TYPECODE_RAW),              /* 95(SQLT_LVB) */
-  ENTRY(OCI_TYPECODE_CHAR),             /* 96(SQLT_AFC) */
-#ifdef OCI_TYPECODE_BDOUBLE
-  ENTRY(OCI_TYPECODE_BDOUBLE),          /* 101(SQLT_IBDOUBLE) */
-#endif
-  ENTRY(OCI_TYPECODE_OBJECT),           /* 108(SQLT_NTY) */
-  ENTRY(OCI_TYPECODE_BLOB),             /* 113(SQLT_BLOB) */
-  ENTRY(OCI_TYPECODE_CLOB),             /* 112(SQLT_CLOB) */
-  ENTRY(OCI_TYPECODE_NAMEDCOLLECTION),  /* 122(SQLT_NCO) */
-  ENTRY(SQLT_RDD) /* 104 */
-};
-#define NUM_OF_OCI8_TYPECODE (sizeof(oci8_typecode) / sizeof(oci8_typecode[0]))
-
-static VALUE oci8_make_names(oci8_names_t *names, size_t size)
-{
-  volatile VALUE ary;
-  unsigned int i;
-
-  ary = rb_ary_new();
-  for (i = 0;i < size;i++)
-    rb_ary_store(ary, FIX2INT(names[i].value), rb_str_new2(names[i].name));
-  return ary;
-}
-
-void  Init_oci8_const(void)
-{
-  unsigned int i;
-
-  oci8_id_code = rb_intern("code");
-  oci8_id_define_array = rb_intern("define_array");
-  oci8_id_bind_hash = rb_intern("bind_hash");
-  oci8_id_message = rb_intern("message");
-  oci8_id_new = rb_intern("new");
-  oci8_id_parse_error_offset = rb_intern("parse_error_offset");
-  oci8_id_server = rb_intern("server");
-  oci8_id_session = rb_intern("session");
-  oci8_id_sql = rb_intern("sql");
-
-  rb_define_global_const("OCI_DEFAULT", INT2FIX(OCI_DEFAULT));
-  rb_define_global_const("OCI_OBJECT", INT2FIX(OCI_OBJECT));
-  rb_define_global_const("OCI_CRED_RDBMS", INT2FIX(OCI_CRED_RDBMS));
-  rb_define_global_const("OCI_CRED_EXT", INT2FIX(OCI_CRED_EXT));
-  rb_define_global_const("OCI_MIGRATE", INT2FIX(OCI_MIGRATE));
-  rb_define_global_const("OCI_SYSDBA", INT2FIX(OCI_SYSDBA));
-  rb_define_global_const("OCI_SYSOPER", INT2FIX(OCI_SYSOPER));
-  rb_define_global_const("OCI_PRELIM_AUTH", INT2FIX(OCI_PRELIM_AUTH));
-
-  /* OCIStmt#prepare */
-  rb_define_global_const("OCI_NTV_SYNTAX", INT2FIX(OCI_NTV_SYNTAX));
-  rb_define_global_const("OCI_V7_SYNTAX", INT2FIX(OCI_V7_SYNTAX));
-  rb_define_global_const("OCI_V8_SYNTAX", INT2FIX(OCI_V8_SYNTAX));
-
-  /* OCIStmt#execute */
-#ifdef OCI_BATCH_ERRORS
-  rb_define_global_const("OCI_BATCH_ERRORS", INT2FIX(OCI_BATCH_ERRORS));
-#endif
-  rb_define_global_const("OCI_COMMIT_ON_SUCCESS", INT2FIX(OCI_COMMIT_ON_SUCCESS));
-  rb_define_global_const("OCI_DESCRIBE_ONLY", INT2FIX(OCI_DESCRIBE_ONLY));
-  rb_define_global_const("OCI_EXACT_FETCH", INT2FIX(OCI_EXACT_FETCH));
-#ifdef OCI_PARSE_ONLY
-  rb_define_global_const("OCI_PARSE_ONLY", INT2FIX(OCI_PARSE_ONLY));
-#endif
-#ifdef OCI_STMT_SCROLLABLE_READONLY
-  rb_define_global_const("OCI_STMT_SCROLLABLE_READONLY", INT2FIX(OCI_STMT_SCROLLABLE_READONLY));
-#endif
-
-  rb_define_global_const("OCI_AUTH", INT2FIX(OCI_AUTH));
-#ifdef OCI_SHARED
-  rb_define_global_const("OCI_SHARED", INT2FIX(OCI_SHARED));
-#endif
-#ifdef OCI_CPOOL
-  rb_define_global_const("OCI_CPOOL", INT2FIX(OCI_CPOOL));
-#endif
-#ifdef OCI_NO_SHARING
-  rb_define_global_const("OCI_NO_SHARING", INT2FIX(OCI_NO_SHARING));
-#endif
-
-  rb_define_global_const("OCI_FETCH_NEXT", INT2FIX(OCI_FETCH_NEXT));
-
-  for (i = 0;i < oci8_attr_size;i++) {
-    rb_define_global_const(oci8_attr_list[i].name, INT2FIX(i));
-  }
-
-  /* TYPE CODE */
-  for (i = 0;i < NUM_OF_OCI8_TYPECODE;i++)
-    rb_define_global_const(oci8_typecode[i].name, oci8_typecode[i].value);
-  rb_define_global_const("OCI_TYPECODE_NAMES", oci8_make_names(oci8_typecode, NUM_OF_OCI8_TYPECODE));
-
-  /* OCI Parameter Types */
-  rb_define_global_const("OCI_PTYPE_UNK", INT2FIX(OCI_PTYPE_UNK));
-  rb_define_global_const("OCI_PTYPE_TABLE", INT2FIX(OCI_PTYPE_TABLE));
-  rb_define_global_const("OCI_PTYPE_VIEW", INT2FIX(OCI_PTYPE_VIEW));
-  rb_define_global_const("OCI_PTYPE_PROC", INT2FIX(OCI_PTYPE_PROC));
-  rb_define_global_const("OCI_PTYPE_FUNC", INT2FIX(OCI_PTYPE_FUNC));
-  rb_define_global_const("OCI_PTYPE_PKG", INT2FIX(OCI_PTYPE_PKG));
-  rb_define_global_const("OCI_PTYPE_TYPE", INT2FIX(OCI_PTYPE_TYPE));
-  rb_define_global_const("OCI_PTYPE_SYN", INT2FIX(OCI_PTYPE_SYN));
-  rb_define_global_const("OCI_PTYPE_SEQ", INT2FIX(OCI_PTYPE_SEQ));
-  rb_define_global_const("OCI_PTYPE_COL", INT2FIX(OCI_PTYPE_COL));
-  rb_define_global_const("OCI_PTYPE_ARG", INT2FIX(OCI_PTYPE_ARG));
-  rb_define_global_const("OCI_PTYPE_LIST", INT2FIX(OCI_PTYPE_LIST));
-  rb_define_global_const("OCI_PTYPE_TYPE_ATTR", INT2FIX(OCI_PTYPE_TYPE_ATTR));
-  rb_define_global_const("OCI_PTYPE_TYPE_COLL", INT2FIX(OCI_PTYPE_TYPE_COLL));
-  rb_define_global_const("OCI_PTYPE_TYPE_METHOD", INT2FIX(OCI_PTYPE_TYPE_METHOD));
-  rb_define_global_const("OCI_PTYPE_TYPE_ARG", INT2FIX(OCI_PTYPE_TYPE_ARG));
-  rb_define_global_const("OCI_PTYPE_TYPE_RESULT", INT2FIX(OCI_PTYPE_TYPE_RESULT));
-#ifdef OCI_PTYPE_SCHEMA
-  rb_define_global_const("OCI_PTYPE_SCHEMA", INT2FIX(OCI_PTYPE_SCHEMA));
-#endif
-#ifdef OCI_PTYPE_DATABASE
-  rb_define_global_const("OCI_PTYPE_DATABASE", INT2FIX(OCI_PTYPE_DATABASE));
-#endif
-
-  /* Bind and Define Options */
-  rb_define_global_const("OCI_DATA_AT_EXEC", INT2FIX(OCI_DATA_AT_EXEC));
-  rb_define_global_const("OCI_DYNAMIC_FETCH", INT2FIX(OCI_DYNAMIC_FETCH));
-
-  /* OCI Statement Types */
-  rb_define_global_const("OCI_STMT_SELECT", INT2FIX(OCI_STMT_SELECT));
-  rb_define_global_const("OCI_STMT_UPDATE", INT2FIX(OCI_STMT_UPDATE));
-  rb_define_global_const("OCI_STMT_DELETE", INT2FIX(OCI_STMT_DELETE));
-  rb_define_global_const("OCI_STMT_INSERT", INT2FIX(OCI_STMT_INSERT));
-  rb_define_global_const("OCI_STMT_CREATE", INT2FIX(OCI_STMT_CREATE));
-  rb_define_global_const("OCI_STMT_DROP", INT2FIX(OCI_STMT_DROP));
-  rb_define_global_const("OCI_STMT_ALTER", INT2FIX(OCI_STMT_ALTER));
-  rb_define_global_const("OCI_STMT_BEGIN", INT2FIX(OCI_STMT_BEGIN));
-  rb_define_global_const("OCI_STMT_DECLARE", INT2FIX(OCI_STMT_DECLARE));
-
-  /* Piece Definitions */
-  rb_define_global_const("OCI_ONE_PIECE", INT2FIX(OCI_ONE_PIECE));
-  rb_define_global_const("OCI_FIRST_PIECE", INT2FIX(OCI_FIRST_PIECE));
-  rb_define_global_const("OCI_NEXT_PIECE", INT2FIX(OCI_NEXT_PIECE));
-  rb_define_global_const("OCI_LAST_PIECE", INT2FIX(OCI_LAST_PIECE));
-}

data/ext/oci8/define.c

@@ -1,53 +0,0 @@
-/*
-  define.c - part of ruby-oci8
-
-  Copyright (C) 2002 KUBO Takehiro <kubo@jiubao.org>
-
-=begin
-== OCIDefine
-The define handle, which is created by ((<OCIStmt#defineByPos>)).
-
-The fetched data of select statements is got via this handle.
-
-super class: ((<OCIHandle>))
-
-correspond native OCI datatype: ((|OCIDefine|))
-=end
-*/
-#include "oci8.h"
-
-/*
-=begin
---- OCIDefine#get()
-     get the selected date.
-
-     :return value
-        fetched data. Its datatype is correspond to the 2nd argument of ((<OCIStmt#defineByPos>)).
-
-     correspond native OCI function: nothing
-=end
-*/
-static VALUE oci8_get_data(VALUE self)
-{
-  oci8_bind_handle_t *defnhp;
-  VALUE obj;
-
-  Data_Get_Struct(self, oci8_bind_handle_t, defnhp);
-  obj = oci8_get_value(defnhp);
-  return obj;
-}
-
-static VALUE oci8_set_data(VALUE self, VALUE val)
-{
-  oci8_bind_handle_t *hp;
-
-  Data_Get_Struct(self, oci8_bind_handle_t, hp);
-  oci8_set_value(hp, val);
-  return self;
-}
-
-void Init_oci8_define(void)
-{
-  rb_define_method(cOCIDefine, "get", oci8_get_data, 0);
-  rb_define_method(cOCIDefine, "set", oci8_set_data, 1);
-}

data/ext/oci8/describe.c

@@ -1,81 +0,0 @@
-/*
-  describe.c - part of ruby-oci8
-
-  Copyright (C) 2002 KUBO Takehiro <kubo@jiubao.org>
-
-=begin
-== OCIDescribe
-The describe handle, which is used for the explicit describe.
-
-super class: ((<OCIHandle>))
-
-correspond native OCI datatype: ((|OCIDescribe|))
-
-For example:
-  dsc = env.alloc(OCIDescribe)
-  dsc.describeAny(svc, "EMP", OCI_PTYPE_TABLE)
-  parm = dsc.attrGet(OCI_ATTR_PARAM)
-  ...get various information from parm...
-
-TODO: more explanation and examples.
-
-=end
-*/
-#include "oci8.h"
-
-/*
-=begin
---- OCIDescribe#describeAny(svc, name, type)
-     get various information of Oracle's schema objects: tables, views, synonyms, 
-     procedures, functions, packages, sequences, and types.
-
-     :svc
-        ((<service context handle|OCISvcCtx>)) in which the object to describe exists.
-     :name
-        name of object to describe.
-     :type
-        type of object to describe. 
-
-        * ((|OCI_PTYPE_TABLE|)), for tables
-        * ((|OCI_PTYPE_VIEW|)), for views
-        * ((|OCI_PTYPE_PROC|)), for procedures
-        * ((|OCI_PTYPE_FUNC|)), for functions
-        * ((|OCI_PTYPE_PKG|)), for packages
-        * ((|OCI_PTYPE_TYPE|)), for types
-        * ((|OCI_PTYPE_SYN|)), for synonyms
-        * ((|OCI_PTYPE_SEQ|)), for sequences
-        * ((|OCI_PTYPE_SCHEMA|)), for schemas
-        * ((|OCI_PTYPE_DATABASE|)), for databases
-        * ((|OCI_PTYPE_UNK|)), for unknown schema objects
-
-     correspond native OCI function: ((|OCIDescribeAny|))
-
-     ((*note*)): To use this method in Oracle 8.0.5 for Linux,
-     call OCIEnv.create with OCI_OBJECT or segmentation fault occurs.
-     This bug was fixed 8.0.6 or later.
-=end
-*/
-static VALUE oci8_describe_any(VALUE self, VALUE vdsc, VALUE vname, VALUE vtype)
-{
-  oci8_handle_t *h;
-  oci8_handle_t *svch;
-  oci8_string_t name;
-  ub1 type;
-  sword rv;
-
-  Get_Handle(self, h); /* 0 */
-  Check_Handle(vdsc, OCISvcCtx, svch); /* 1 */
-  Get_String(vname, name); /* 2 */
-  type = FIX2INT(vtype); /* 3 */
-
-  rv = OCIDescribeAny(svch->hp, h->errhp, name.ptr, name.len, OCI_OTYPE_NAME, OCI_DEFAULT, type, h->hp);
-  if (rv != OCI_SUCCESS) {
-    oci8_raise(h->errhp, rv, NULL);
-  }
-  return self;
-}
-
-void Init_oci8_describe(void)
-{
-  rb_define_method(cOCIDescribe, "describeAny", oci8_describe_any, 3);
-}

data/ext/oci8/descriptor.c

@@ -1,39 +0,0 @@
-/*
-  descriptor.c - part of ruby-oci8
-
-  Copyright (C) 2002 KUBO Takehiro <kubo@jiubao.org>
-
-=begin
-== OCIDescriptor
-The abstract class of OCI descriptors.
-=end
-*/
-#include "oci8.h"
-
-/*
-=begin
---- OCIDescriptor#attrGet(type)
-     :type
-       the type of attribute.
-     :return value
-       depends on argument ((|type|)).
-
-     See also ((<Attributes of Handles and Descriptors>)).
-=end
-*/
-
-/*
-=begin
---- OCIDescriptor#free()
-     explicitly free the OCI's data structure associated with this object.
-     This call will not free ruby's object itself, which wrap the OCI's data structure.
-=end
-*/
-
-void Init_oci8_descriptor(void)
-{
-  rb_define_method(cOCIDescriptor, "attrGet", oci8_attr_get, 1);
-  rb_define_method(cOCIDescriptor, "attrSet", oci8_attr_set, 2);
-  rb_define_method(cOCIDescriptor, "free", oci8_handle_free, 0);
-  rb_define_singleton_method(cOCIDescriptor, "new", oci8_s_new, 0);
-}

data/ext/oci8/handle.c

@@ -1,273 +0,0 @@
-/*
-  handle.c - part of ruby-oci8
-
-  Copyright (C) 2002-2006 KUBO Takehiro <kubo@jiubao.org>
-
-=begin
-== OCIHandle
-This is the abstract super class of OCI Handles.
-See ((<Class Hierarchy>)).
-=end
-*/
-#include "oci8.h"
-#ifdef HAVE_UNISTD_H
-#include <unistd.h> /* getpid() */
-#endif
-
-#ifdef WIN32
-#ifndef getpid
-extern rb_pid_t rb_w32_getpid(void);
-#define getpid() rb_w32_getpid()
-#endif
-#endif
-
-static void oci8_handle_do_free(oci8_handle_t *h)
-{
-  unsigned int i;
-  if (h->type == 0) {
-    return;
-  }
-  /* free its children recursively.*/
-  for (i = 0;i < h->size;i++) {
-    if (h->children[i] != NULL)
-      oci8_handle_do_free(h->children[i]);
-  }
-  xfree(h->children);
-  /* unlink from parent */
-  oci8_unlink(h);
-  /* do free */
-  if (h->hp != NULL) {
-    if (h->type >= OCI_DTYPE_FIRST)
-      OCIDescriptorFree(h->hp, h->type);
-    else
-      OCIHandleFree(h->hp, h->type);
-  }
-  h->type = 0;
-  return;
-}
-
-/*
-=begin
---- OCIHandle#attrSet(type, value)
-     :type
-       the type of attribute to be set.
-       See ((<Attributes of Handles and Descriptors>)).
-     :value
-       depends on ((|type|)).
-
-     correspond native OCI function: ((|OCIAttrSet|))
-=end
-*/
-
-
-/*
-=begin
---- OCIHandle#attrGet(type)
-     :type
-       the type of attribute.
-       See also ((<Attributes of Handles and Descriptors>)).
-     :return value
-       depends on ((|type|)).
-
-     correspond native OCI function: ((|OCIAttrGet|))
-=end
-*/
-
-
-/*
-=begin
---- OCIHandle#free()
-     explicitly free the OCI's data structure.
-
-     correspond native OCI function: ((|OCIHandleFree|))
-=end
-*/
-VALUE oci8_handle_free(VALUE self)
-{
-  oci8_handle_t *h;
-
-  Get_Handle(self, h);
-  oci8_handle_do_free(h);
-  return self;
-}
-
-void  Init_oci8_handle(void)
-{
-  rb_define_method(cOCIHandle, "free", oci8_handle_free, 0);
-  rb_define_method(cOCIHandle, "attrSet", oci8_attr_set, 2);
-  rb_define_method(cOCIHandle, "attrGet", oci8_attr_get, 1);
-  rb_define_singleton_method(cOCIHandle, "new", oci8_s_new, 0);
-}
-
-void oci8_handle_cleanup(oci8_handle_t *h)
-{
-  oci8_handle_do_free(h);
-  xfree(h);
-}
-
-VALUE oci8_s_new(VALUE self)
-{
-  rb_raise(rb_eNameError, "private method `new' called for %s:Class", rb_class2name(self));
-}
-
-
-static void oci8_handle_mark(oci8_handle_t *h)
-{
-  oci8_bind_handle_t *bh;
-  unsigned int i;
-
-  switch (h->type) {
-  case OCI_HTYPE_SVCCTX:
-    for (i = 0;i < h->size;i++) {
-      if (h->children[i] != NULL) {
-	if (h->children[i]->type == OCI_HTYPE_SERVER || h->children[i]->type == OCI_HTYPE_SESSION) {
-	  rb_gc_mark(h->children[i]->self);
-	}
-      }
-    }
-    break;
-  case OCI_HTYPE_STMT:
-    for (i = 0;i < h->size;i++) {
-      if (h->children[i] != NULL) {
-	if (h->children[i]->type == OCI_HTYPE_BIND || h->children[i]->type == OCI_HTYPE_DEFINE) {
-	  rb_gc_mark(h->children[i]->self);
-	}
-      }
-    }
-    break;
-  case OCI_HTYPE_DEFINE:
-  case OCI_HTYPE_BIND:
-    bh = (oci8_bind_handle_t *)h;
-    if (bh->bind_type == BIND_HANDLE)
-      rb_gc_mark(bh->value.handle.v);
-    break;
-  }
-  if (h->parent != NULL) {
-    rb_gc_mark(h->parent->self);
-  }
-}
-
-oci8_handle_t *oci8_make_handle(ub4 type, dvoid *hp, OCIError *errhp, oci8_handle_t *parenth, sb4 value_sz)
-{
-  VALUE obj;
-  oci8_handle_t *h;
-  oci8_bind_handle_t *bh;
-
-  switch (type) {
-  case OCI_HTYPE_ENV:
-    obj = Data_Make_Struct(cOCIEnv, oci8_handle_t, oci8_handle_mark, oci8_handle_cleanup, h);
-    break;
-  case OCI_HTYPE_SVCCTX:
-    obj = Data_Make_Struct(cOCISvcCtx, oci8_handle_t, oci8_handle_mark, oci8_handle_cleanup, h);
-    h->u.svcctx.pid = getpid();
-    break;
-  case OCI_HTYPE_STMT:
-    obj = Data_Make_Struct(cOCIStmt, oci8_handle_t, oci8_handle_mark, oci8_handle_cleanup, h);
-    rb_ivar_set(obj, oci8_id_define_array, Qnil);
-    rb_ivar_set(obj, oci8_id_bind_hash, Qnil);
-    break;
-  case OCI_HTYPE_SERVER:
-    obj = Data_Make_Struct(cOCIServer, oci8_handle_t, oci8_handle_mark, oci8_handle_cleanup, h);
-    break;
-  case OCI_HTYPE_SESSION:
-    obj = Data_Make_Struct(cOCISession, oci8_handle_t, oci8_handle_mark, oci8_handle_cleanup, h);
-    break;
-  case OCI_HTYPE_DESCRIBE:
-    obj = Data_Make_Struct(cOCIDescribe, oci8_handle_t, oci8_handle_mark, oci8_handle_cleanup, h);
-    break;
-  case OCI_DTYPE_LOB:
-    obj = Data_Make_Struct(cOCILobLocator, oci8_handle_t, oci8_handle_mark, oci8_handle_cleanup, h);
-#ifndef OCI8_USE_CALLBACK_LOB_READ
-    h->u.lob_locator.char_width = 1;
-#endif
-    break;
-  case OCI_DTYPE_FILE:
-    obj = Data_Make_Struct(cOCIFileLocator, oci8_handle_t, oci8_handle_mark, oci8_handle_cleanup, h);
-#ifndef OCI8_USE_CALLBACK_LOB_READ
-    h->u.lob_locator.char_width = 1;
-#endif
-    break;
-  case OCI_DTYPE_ROWID:
-    obj = Data_Make_Struct(cOCIRowid, oci8_handle_t, oci8_handle_mark, oci8_handle_cleanup, h);
-    break;
-  case OCI_DTYPE_PARAM:
-    obj = Data_Make_Struct(cOCIParam, oci8_handle_t, oci8_handle_mark, oci8_handle_cleanup, h);
-    h->u.param.is_implicit = 0;
-    break;
-  case OCI_HTYPE_BIND:
-    bh = xmalloc(sizeof(oci8_bind_handle_t) - sizeof(bh->value) + value_sz);
-    memset(bh, 0, sizeof(oci8_bind_handle_t) - sizeof(bh->value) + value_sz);
-    obj = Data_Wrap_Struct(cOCIBind, oci8_handle_mark, oci8_handle_cleanup, bh);
-    bh->bind_type = 0;
-    bh->ind = -1;
-    bh->rlen = value_sz;
-    bh->value_sz = value_sz;
-    h = (oci8_handle_t *)bh;
-    break;
-  case OCI_HTYPE_DEFINE:
-    bh = xmalloc(sizeof(oci8_bind_handle_t) - sizeof(bh->value) + value_sz);
-    memset(bh, 0, sizeof(oci8_bind_handle_t) - sizeof(bh->value) + value_sz);
-    obj = Data_Wrap_Struct(cOCIDefine, oci8_handle_mark, oci8_handle_cleanup, bh);
-    bh->bind_type = 0;
-    bh->ind = -1;
-    bh->rlen = value_sz;
-    bh->value_sz = value_sz;
-    h = (oci8_handle_t *)bh;
-    break;
-  default:
-    rb_bug("unsupported type %d in oci8_make_handle()", type);
-  }
-  h->type = type;
-  h->hp = hp;
-  h->errhp = errhp;
-  h->self = obj;
-  h->parent = NULL;
-  h->size = 0;
-  h->children = NULL;
-  oci8_link(parenth, h);
-  return h;
-}
-
-#define CHILDREN_ARRAY_GROW_SIZE 16
-
-void oci8_link(oci8_handle_t *parent, oci8_handle_t *child)
-{
-  unsigned int i;
-  int new_size, n;
-
-  if (parent == NULL)
-    return;
-  oci8_unlink(child);
-  child->parent = parent;
-
-  for (i = 0;i < parent->size;i++) {
-    if (parent->children[i] == NULL) {
-      parent->children[i] = child;
-      return;
-    }
-  }
-  new_size = parent->size + CHILDREN_ARRAY_GROW_SIZE;
-  parent->children = xrealloc(parent->children, sizeof(oci8_handle_t *) * new_size);
-  parent->children[parent->size] = child;
-  for (n = parent->size + 1;n < new_size;n++) {
-    parent->children[n] = NULL;
-  }
-  parent->size = new_size;
-  return;
-}
-
-void oci8_unlink(oci8_handle_t *self)
-{
-  oci8_handle_t *parent = self->parent;
-  unsigned int i;
-
-  if (self->parent == NULL)
-    return;
-  for (i = 0;i < parent->size;i++) {
-    if (parent->children[i] == self) {
-      parent->children[i] = NULL;
-      self->parent = NULL;
-      return;
-    }
-  }
-}