ruby-oci8-master 2.0.7

data/doc/manual.css

@@ -0,0 +1,35 @@
+h1 {
+	color: #000080;
+	background: #e0e0ff;
+	border-color: #8080d0;
+	border-style: solid;
+	border-top-style: none;
+	border-left-style: none;
+	border-bottom-width: thick;
+	border-right-width: thin;
+	padding-top: 0.2em;
+	padding-bottom: 0.2em;
+        text-align: center
+}
+h2 {
+	color: #000080;
+	background: #e0e0ff;
+	border-color: #8080d0;
+	border-style: solid;
+	border-top-style: none;
+	border-left-style: none;
+	border-bottom-width: thick;
+	border-right-width: thin;
+}
+code {
+	color: blue
+}
+var {
+	color: brown
+}
+dt {
+	color: red
+}
+pre {
+	background: #e0ffff
+}

data/ext/oci8/.document

@@ -0,0 +1,18 @@
+#attr.c
+#oci8lib.c
+#env.c
+
+oci8.c
+ocihandle.c
+bind.c
+stmt.c
+encoding.c
+error.c
+metadata.c
+
+lob.c
+ocinumber.c
+ocidatetime.c
+oradate.c
+object.c
+connection_pool.c

data/ext/oci8/MANIFEST

@@ -0,0 +1,18 @@
+MANIFEST
+attr.c
+bind.c
+const.c
+descriptor.c
+env.c
+error.c
+extconf.rb
+handle.c
+lob.c
+oci8.c
+oci8.h
+oraconf.rb
+oradate.c
+oranumber.c
+param.c
+stmt.c
+svcctx.c

data/ext/oci8/apiwrap.c.tmpl

@@ -0,0 +1,182 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+<%= header_comment
+# This file is processed by apiwrap.rb.
+%>
+#define API_WRAP_C 1
+#include "apiwrap.h"
+#ifdef HAVE_RB_THREAD_BLOCKING_REGION
+#define BLOCKING_FUNCTION_EPILOGUE(svcctx) do { (svcctx)->executing_thread = Qnil; } while (0)
+#else
+#define BLOCKING_FUNCTION_EPILOGUE(svcctx) do { } while (0)
+#endif
+
+<%
+prev_name = ''
+funcs.each do |f|
+  next if f.name == prev_name
+  prev_name = f.name
+%>
+/* <%=f.name%> */
+#if defined RUNTIME_API_CHECK
+typedef <%=f.ret%> (*oci8_<%=f.name%>_func_t)(<%=f.args.collect {|arg| arg.dcl}.join(', ')%>);
+static oci8_<%=f.name%>_func_t oci8_<%=f.name%>_func;
+#define <%=f.name%> oci8_<%=f.name%>_func
+#elif ORACLE_CLIENT_VERSION < <%=f.version_num%>
+#define <%=f.name%>(<%=f.args.collect {|a| a.name}.join(', ')%>) (0)
+#endif
+<%
+end # funcs.each
+
+funcs.each do |f|
+  if f.remote
+######################################################################
+##
+## remote API with runtime-check - start
+##
+######################################################################
+%>
+/*
+ * <%=f.name%>_nb
+ */
+typedef struct {
+    oci8_svcctx_t *svcctx;
+<%
+   f.ret != 'void'
+%>    <%= f.ret %> rv;
+<%
+   f.args.each do |a|
+%>    <%= a.dcl %>;
+<% end
+%>} oci8_<%=f.name%>_data_t;
+
+#if defined RUNTIME_API_CHECK
+int oci8_have_<%=f.name%>_nb;
+#endif
+
+#if defined RUNTIME_API_CHECK || ORACLE_CLIENT_VERSION >= <%=f.version_num%>
+static VALUE oci8_<%=f.name%>_cb(void *user_data)
+{
+    oci8_<%=f.name%>_data_t *data = (oci8_<%=f.name%>_data_t *)user_data;
+<% if f.ret == 'void'
+%>    <%=f.name%>(<%= f.args.collect do |a| 'data->' + a.name; end.join(', ') %>);
+<% else
+%>    data->rv = <%=f.name%>(<%= f.args.collect do |a| 'data->' + a.name; end.join(', ') %>);
+<% end %>
+<% if f.ret == 'sword'
+%>    BLOCKING_FUNCTION_EPILOGUE(data->svcctx);
+    return (VALUE)data->rv;
+<% else
+%>    BLOCKING_FUNCTION_EPILOGUE(data->svcctx);
+    return (VALUE)0;
+<% end %>
+}
+#else
+#define oci8_<%=f.name%>_cb NULL
+#endif
+
+<%=f.ret%> oci8_<%=f.name%>_nb(oci8_svcctx_t *svcctx, <%=f.args.collect {|arg| arg.dcl}.join(', ')%>, const char *file, int line)
+{
+    if (have_<%=f.name%>_nb) {
+        oci8_<%=f.name%>_data_t data;
+        data.svcctx = svcctx;
+<% f.args.each do |a|
+%>        data.<%=a.name%> = <%=a.name%>;
+<% end
+%>        oci8_blocking_region(svcctx, oci8_<%=f.name%>_cb, &data);
+<%   if f.ret != 'void'
+%>        return data.rv;
+<% end
+%>    } else {
+        rb_raise(rb_eRuntimeError, "undefined OCI function %s is called", "<%=f.name%>_nb");
+    }
+}
+<%
+######################################################################
+##
+## remote API with runtime-check - end
+##
+######################################################################
+  else
+######################################################################
+##
+## local API with runtime-check - start
+##
+######################################################################
+%>
+/*
+ * <%=f.name%>
+ */
+#if defined RUNTIME_API_CHECK
+int oci8_have_<%=f.name%>;
+#endif
+
+<%=f.ret%> oci8_<%=f.name%>(<%=f.args.collect {|arg| arg.dcl}.join(', ')%>, const char *file, int line)
+{
+    if (have_<%=f.name%>) {
+<%  if f.ret == 'void'
+%>        <%=f.name%>(<%=f.args.collect {|arg| arg.name}.join(', ')%>);
+<%  else
+%>        return <%=f.name%>(<%=f.args.collect {|arg| arg.name}.join(', ')%>);
+<% end
+%>    } else {
+<%  if f.code_if_not_found %><%=f.code_if_not_found.split("\n").collect {|line| "        " + line}.join("\n")%>
+<% else
+%>        rb_raise(rb_eRuntimeError, "undefined OCI function %s is called", "<%=f.name%>");
+<% end
+%>    }
+}
+<%
+######################################################################
+##
+## local API with runtime-check - end
+##
+######################################################################
+  end
+end # funcs.each
+######################################################################
+##
+## RUNTIME_API_CHECK
+##
+######################################################################
+current_version_num = funcs[0].version_num
+current_version_str = funcs[0].version_str
+have_vars = []
+%>
+#if defined RUNTIME_API_CHECK
+int oracle_client_version;
+
+void Init_oci8_apiwrap(void)
+{
+    oracle_client_version = 0;
+<%
+funcs.each do |f|
+  if current_version_num != f.version_num
+    unless have_vars.empty?
+%>    /* pass Oracle <%=current_version_str%> API */
+    oracle_client_version = <%=current_version_num%>;
+<%    have_vars.each do |v|
+%>    <%=v%> = 1;
+<%    end
+    end
+    have_vars = []
+    current_version_num = f.version_num
+    current_version_str = f.version_str
+%>
+    /*
+     * checking Oracle <%=f.version_str%> API
+     */
+<%
+  end
+  have_vars << 'have_' + f.name + (f.remote ? '_nb' : '')
+%>    oci8_<%=f.name%>_func = (oci8_<%=f.name%>_func_t)oci8_find_symbol("<%=f.name%>");
+    if (oci8_<%=f.name%>_func == NULL)
+        return;
+<%
+end
+%>    /* pass Oracle <%=current_version_str%> API */
+    oracle_client_version = <%=current_version_num%>;
+<%    have_vars.each do |v|
+%>    <%=v%> = 1;
+<%    end
+%>}
+#endif /* RUNTIME_API_CHECK */

data/ext/oci8/apiwrap.h.tmpl

@@ -0,0 +1,61 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+<%= header_comment
+# This file is processed by apiwrap.rb.
+%>
+#ifndef APIWRAP_H
+#define APIWRAP_H 1
+#include <oci8.h>
+
+#if defined RUNTIME_API_CHECK
+void Init_oci8_apiwrap(void);
+extern int oracle_client_version;
+#else
+#define oracle_client_version ORACLE_CLIENT_VERSION
+#endif
+<%
+funcs.each do |f|
+  if f.remote
+%>
+/*
+ * <%=f.name%>
+ *   version: <%=f.version_str%>
+ *   remote:  true
+ */
+<%=f.ret%> oci8_<%=f.name%>_nb(oci8_svcctx_t *svcctx, <%=f.args.collect {|arg| arg.dcl}.join(', ')%>, const char *file, int line);
+#define <%=f.name%>_nb(svcctx, <%=f.args.collect do |a| a.name; end.join(', ')%>) \
+      oci8_<%=f.name%>_nb(svcctx, <%=f.args.collect do |a| a.name; end.join(', ')%>, __FILE__, __LINE__)
+#if defined RUNTIME_API_CHECK
+extern int oci8_have_<%=f.name%>_nb;
+#define have_<%=f.name%>_nb oci8_have_<%=f.name%>_nb
+#elif ORACLE_CLIENT_VERSION >= <%=f.version_num%>
+#define have_<%=f.name%>_nb (1)
+#else
+#define have_<%=f.name%>_nb (0)
+#endif
+<%
+  else
+%>
+/*
+ * <%=f.name%>
+ *   version: <%=f.version_str%>
+ *   remote:  false
+ */
+<%=f.ret%> oci8_<%=f.name%>(<%=f.args.collect {|arg| arg.dcl}.join(', ')%>, const char *file, int line);
+#ifndef API_WRAP_C
+#undef <%=f.name%>
+#define <%=f.name%>(<%=f.args.collect do |a| a.name; end.join(', ')%>) \
+      oci8_<%=f.name%>(<%=f.args.collect do |a| a.name; end.join(', ')%>, __FILE__, __LINE__)
+#endif
+#if defined RUNTIME_API_CHECK
+extern int oci8_have_<%=f.name%>;
+#define have_<%=f.name%> oci8_have_<%=f.name%>
+#elif ORACLE_CLIENT_VERSION >= <%=f.version_num%>
+#define have_<%=f.name%> (1)
+#else
+#define have_<%=f.name%> (0)
+#endif
+<%
+  end
+end # funcs.each
+%>
+#endif /* APIWRAP_H */

data/ext/oci8/apiwrap.rb

@@ -0,0 +1,91 @@
+require 'yaml'
+require 'erb'
+
+class ArgDef
+  attr_reader :dcl
+  attr_reader :name
+
+  def initialize(arg)
+    /(\w+)\s*$/ =~ arg
+    /\(\*(\w+)\)/ =~ arg if $1.nil?
+    @dcl = arg
+    @name = $1
+  end
+end
+
+class FuncDef
+  attr_reader :name
+  attr_reader :version
+  attr_reader :version_num
+  attr_reader :version_str
+  attr_reader :remote
+  attr_reader :args
+  attr_reader :ret
+  attr_reader :code_if_not_found
+
+  def initialize(key, val)
+    if key[-3..-1] == '_nb'
+      @name = key[0..-4]
+      @remote = true
+    else
+      @name = key
+      @remote = false
+    end
+    ver = val[:version]
+    ver_major = (ver / 100)
+    ver_minor = (ver / 10) % 10
+    ver_update = ver % 10
+    @version = ((ver_major << 24) | (ver_minor << 20) | (ver_update << 12))
+    case @version
+    when 0x08000000; @version_num = 'ORAVER_8_0'
+    when 0x08100000; @version_num = 'ORAVER_8_1'
+    when 0x09000000; @version_num = 'ORAVER_9_0'
+    when 0x09200000; @version_num = 'ORAVER_9_2'
+    when 0x0a100000; @version_num = 'ORAVER_10_1'
+    when 0x0a200000; @version_num = 'ORAVER_10_2'
+    when 0x0b100000; @version_num = 'ORAVER_11_1'
+    end
+    @version_str = "#{ver_major}.#{ver_minor}.#{ver_update}"
+    @ret = val[:ret] || 'sword'
+    @args = val[:args].collect do |arg|
+      ArgDef.new(arg)
+    end
+    @code_if_not_found = val[:code_if_not_found]
+  end
+end
+
+def create_apiwrap
+  funcs = []
+  YAML.load(open(File.dirname(__FILE__) + '/apiwrap.yml')).each do |key, val|
+    funcs << FuncDef.new(key, val)
+  end
+  funcs.sort! do |a, b|
+    if a.version == b.version
+      a.name <=> b.name
+    else
+      a.version <=> b.version
+    end
+  end
+
+  header_comment = <<EOS.chomp
+/*
+ * This file was created by apiwrap.rb.
+ * Don't edit this file manually.
+ */
+EOS
+#'
+
+  erb = ERB.new(open(File.dirname(__FILE__) + '/apiwrap.h.tmpl').read)
+  open('apiwrap.h', 'w') do |fd|
+    fd.write(erb.result(binding))
+  end
+
+  erb = ERB.new(open(File.dirname(__FILE__) + '/apiwrap.c.tmpl').read)
+  open('apiwrap.c', 'w') do |fd|
+    fd.write(erb.result(binding))
+  end
+end
+
+if $0 == __FILE__
+  create_apiwrap
+end

data/ext/oci8/apiwrap.yml

@@ -0,0 +1,1455 @@
+#
+# Oracle 8.0
+#
+
+# round trip: 0, 1, or 2
+# use thie for 0 round trip
+OCIAttrGet:
+  :version: 800
+  :args:
+            - CONST dvoid *trgthndlp
+            - ub4 trghndltyp
+            - dvoid *attributep
+            - ub4 *sizep
+            - ub4 attrtype
+            - OCIError *errhp
+
+# use thie for 1 or 2 round trips
+OCIAttrGet_nb:
+  :version: 800
+  :args:
+            - CONST dvoid *trgthndlp
+            - ub4 trghndltyp
+            - dvoid *attributep
+            - ub4 *sizep
+            - ub4 attrtype
+            - OCIError *errhp
+
+OCIAttrSet:
+  :version: 800
+  :args:
+            - dvoid *trgthndlp
+            - ub4 trghndltyp
+            - dvoid *attributep
+            - ub4 size
+            - ub4 attrtype
+            - OCIError *errhp
+
+# round trip: 0
+OCIBindArrayOfStruct:
+  :version: 800
+  :args:
+            - OCIBind *bindp
+            - OCIError *errhp
+            - ub4 pvskip
+            - ub4 indskip
+            - ub4 alskip
+            - ub4 rcskip
+
+# round trip: 0
+OCIBindByName:
+  :version: 800
+  :args:
+            - OCIStmt *stmtp
+            - OCIBind **bindp
+            - OCIError *errhp
+            - CONST text *placeholder
+            - sb4 placeh_len
+            - dvoid *valuep
+            - sb4 value_sz
+            - ub2 dty
+            - dvoid *indp
+            - ub2 *alenp
+            - ub2 *rcodep
+            - ub4 maxarr_len
+            - ub4 *curelep
+            - ub4 mode
+
+# round trip: 0
+OCIBindByPos:
+  :version: 800
+  :args:
+            - OCIStmt *stmtp
+            - OCIBind **bindp
+            - OCIError *errhp
+            - ub4 position
+            - dvoid *valuep
+            - sb4 value_sz
+            - ub2 dty
+            - dvoid *indp
+            - ub2 *alenp
+            - ub2 *rcodep
+            - ub4 maxarr_len
+            - ub4 *curelep
+            - ub4 mode
+
+# round trip: 0
+OCIBindObject:
+  :version: 800
+  :args:
+            - OCIBind *bindp
+            - OCIError *errhp
+            - CONST OCIType *type
+            - dvoid **pgvpp
+            - ub4 *pvszsp
+            - dvoid **indpp
+            - ub4 *indszp
+
+# round trip: 1 but don't add _nb.
+OCIBreak:
+  :version: 800
+  :args:
+            - dvoid *hndlp
+            - OCIError *errhp
+
+# round trip: 0
+OCICollAppend:
+  :version: 800
+  :args:
+            - OCIEnv *env
+            - OCIError *err
+            - CONST dvoid *elem
+            - CONST dvoid *elemind
+            - OCIColl *coll
+
+# round trip: 0
+OCICollAssignElem:
+  :version: 800
+  :args:
+            - OCIEnv *env
+            - OCIError *err
+            - sb4 index
+            - CONST dvoid *elem
+            - CONST dvoid *elemind
+            - OCIColl *coll
+
+# round trip: 0
+OCICollGetElem:
+  :version: 800
+  :args:
+            - OCIEnv *env
+            - OCIError *err
+            - CONST OCIColl *coll
+            - sb4 index
+            - boolean *exists
+            - dvoid **elem
+            - dvoid **elemind
+
+# round trip: 0
+OCICollSize:
+  :version: 800
+  :args:
+            - OCIEnv *env
+            - OCIError *err
+            - CONST OCIColl *coll
+            - sb4 *size
+
+# round trip: 0
+OCICollTrim:
+  :version: 800
+  :args:
+            - OCIEnv *env
+            - OCIError *err
+            - sb4 trim_num
+            - OCIColl *coll
+
+# round trip: 0
+OCIDefineArrayOfStruct:
+  :version: 800
+  :args:
+            - OCIDefine *defnp
+            - OCIError *errhp
+            - ub4 pvskip
+            - ub4 indskip
+            - ub4 rlskip
+            - ub4 rcskip
+
+# round trip: 0
+OCIDefineByPos:
+  :version: 800
+  :args:
+            - OCIStmt *stmtp
+            - OCIDefine **defnp
+            - OCIError *errhp
+            - ub4 position
+            - dvoid *valuep
+            - sb4 value_sz
+            - ub2 dty
+            - dvoid *indp
+            - ub2 *rlenp
+            - ub2 *rcodep
+            - ub4 mode
+
+# round trip: 0
+OCIDefineObject:
+  :version: 800
+  :args:
+            - OCIDefine *defnp
+            - OCIError *errhp
+            - CONST OCIType *type
+            - dvoid **pgvpp
+            - ub4 *pvszsp
+            - dvoid **indpp
+            - ub4 *indszp
+
+# round trip: 1
+OCIDescribeAny_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - dvoid *objptr
+            - ub4 objnm_len
+            - ub1 objptr_typ
+            - ub1 info_level
+            - ub1 objtyp
+            - OCIDescribe *dschp
+
+OCIDescriptorAlloc:
+  :version: 800
+  :args:
+            - CONST dvoid *parenth
+            - dvoid **descpp
+            - ub4 type
+            - size_t xtramem_sz
+            - dvoid **usrmempp
+
+OCIDescriptorFree:
+  :version: 800
+  :args:
+            - dvoid *descp
+            - ub4 type
+
+OCIErrorGet:
+  :version: 800
+  :args:
+            - dvoid *hndlp
+            - ub4 recordno
+            - text *sqlstate
+            - sb4 *errcodep
+            - text *bufp
+            - ub4 bufsiz
+            - ub4 type
+
+OCIHandleAlloc:
+  :version: 800
+  :args:
+            - CONST dvoid *parenth
+            - dvoid **hndlpp
+            - ub4 type
+            - size_t xtramem_sz
+            - dvoid **usrmempp
+
+OCIHandleFree:
+  :version: 800
+  :args:
+            - dvoid *hndlp
+            - ub4 type
+
+# round trip: 0
+OCILobAssign:
+  :version: 800
+  :args:
+            - OCIEnv *envhp
+            - OCIError *errhp
+            - CONST OCILobLocator *src_locp
+            - OCILobLocator **dst_locpp
+
+# round trip: 1
+OCILobFileClose_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *filep
+
+# round trip: 1
+OCILobFileCloseAll_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+
+# round trip: 1
+OCILobFileExists_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *filep
+            - boolean *flag
+
+# round trip: 0
+OCILobFileGetName:
+  :version: 800
+  :args:
+            - OCIEnv *envhp
+            - OCIError *errhp
+            - CONST OCILobLocator *filep
+            - text *dir_alias
+            - ub2 *d_length
+            - text *filename
+            - ub2 *f_length
+
+# round trip: 1
+OCILobFileOpen_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *filep
+            - ub1 mode
+
+# round trip: 0
+OCILobFileSetName:
+  :version: 800
+  :args:
+            - OCIEnv *envhp
+            - OCIError *errhp
+            - OCILobLocator **filepp
+            - CONST text *dir_alias
+            - ub2 d_length
+            - CONST text *filename
+            - ub2 f_length
+
+# round trip: 1
+OCILobGetLength_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *locp
+            - ub4 *lenp
+
+# round trip: 0
+OCILobLocatorIsInit:
+  :version: 800
+  :args:
+            - OCIEnv *envhp
+            - OCIError *errhp
+            - CONST OCILobLocator *locp
+            - boolean *is_initialized
+
+# round trip: 0 or 1
+OCILobRead_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *locp
+            - ub4 *amtp
+            - ub4 offset
+            - dvoid *bufp
+            - ub4 bufl
+            - dvoid *ctxp
+            - OCICallbackLobRead cbfp
+            - ub2 csid
+            - ub1 csfrm
+
+# round trip: 1
+OCILobTrim_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *locp
+            - ub4 newlen
+
+# round trip: 0 or 1
+OCILobWrite_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *locp
+            - ub4 *amtp
+            - ub4 offset
+            - dvoid *bufp
+            - ub4 buflen
+            - ub1 piece
+            - dvoid *ctxp
+            - OCICallbackLobWrite cbfp
+            - ub2 csid
+            - ub1 csfrm
+
+# round trip: 1
+OCILogoff_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+
+# round trip: 1
+OCILogon_nb:
+  :version: 800
+  :args:
+            - OCIEnv *envhp
+            - OCIError *errhp
+            - OCISvcCtx **svchp
+            - CONST text *username
+            - ub4 uname_len
+            - CONST text *password
+            - ub4 passwd_len
+            - CONST text *dbname
+            - ub4 dbname_len
+
+# round trip: 0
+OCINumberAbs:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberAdd:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number1
+            - CONST OCINumber *number2
+            - OCINumber *result
+
+# round trip: 0
+OCINumberArcCos:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberArcSin:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberArcTan:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberArcTan2:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number1
+            - CONST OCINumber *number2
+            - OCINumber *result
+
+# round trip: 0
+OCINumberAssign:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *from
+            - OCINumber *to
+
+# round trip: 0
+OCINumberCeil:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberCmp:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number1
+            - CONST OCINumber *number2
+            - sword *result
+
+# round trip: 0
+OCINumberCos:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberDiv:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number1
+            - CONST OCINumber *number2
+            - OCINumber *result
+
+# round trip: 0
+OCINumberExp:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberFloor:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberFromInt:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST dvoid *inum
+            - uword inum_length
+            - uword inum_s_flag
+            - OCINumber *number
+
+# round trip: 0
+OCINumberFromReal:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST dvoid *rnum
+            - uword rnum_length
+            - OCINumber *number
+
+# round trip: 0
+OCINumberFromText:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST text *str
+            - ub4 str_length
+            - CONST text *fmt
+            - ub4 fmt_length
+            - CONST text *nls_params
+            - ub4 nls_p_length
+            - OCINumber *number
+
+# round trip: 0
+OCINumberHypCos:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberHypSin:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberHypTan:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberIntPower:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *base
+            - CONST sword exp
+            - OCINumber *result
+
+# round trip: 0
+OCINumberIsZero:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - boolean *result
+
+# round trip: 0
+OCINumberLn:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberLog:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *base
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberMod:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number1
+            - CONST OCINumber *number2
+            - OCINumber *result
+
+# round trip: 0
+OCINumberMul:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number1
+            - CONST OCINumber *number2
+            - OCINumber *result
+
+# round trip: 0
+OCINumberNeg:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberPower:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *base
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberRound:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - sword decplace
+            - OCINumber *result
+
+# round trip: 0
+OCINumberSetZero:
+  :version: 800
+  :ret:     void
+  :args:
+            - OCIError *err
+            - OCINumber *num
+
+# round trip: 0
+OCINumberSin:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberSub:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number1
+            - CONST OCINumber *number2
+            - OCINumber *result
+
+# round trip: 0
+OCINumberSqrt:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberTan:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - OCINumber *result
+
+# round trip: 0
+OCINumberToInt:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - uword rsl_length
+            - uword rsl_flag
+            - dvoid *rsl
+
+# round trip: 0
+OCINumberToReal:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - uword rsl_length
+            - dvoid *rsl
+
+# round trip: 0
+OCINumberToText:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - CONST text *fmt
+            - ub4 fmt_length
+            - CONST text *nls_params
+            - ub4 nls_p_length
+            - ub4 *buf_size
+            - text *buf
+
+# round trip: 0
+OCINumberTrunc:
+  :version: 800
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - sword decplace
+            - OCINumber *resulty
+
+# round trip: 0
+OCIObjectFree:
+  :version: 800
+  :args:
+            - OCIEnv *env
+            - OCIError *err
+            - dvoid *instance
+            - ub2 flags
+
+# round trip: 0
+OCIObjectGetInd:
+  :version: 800
+  :args:
+            - OCIEnv *env
+            - OCIError *err
+            - dvoid *instance
+            - dvoid **null_struct
+
+# round trip: 0
+OCIObjectNew:
+  :version: 800
+  :args:
+            - OCIEnv *env
+            - OCIError *err
+            - CONST OCISvcCtx *svc
+            - OCITypeCode typecode
+            - OCIType *tdo
+            - dvoid *table
+            - OCIDuration duration
+            - boolean value
+            - dvoid **instance
+
+# round trip: 0 or 1
+OCIObjectPin_nb:
+  :version: 800
+  :args:
+            - OCIEnv *env
+            - OCIError *err
+            - OCIRef *object_ref
+            - OCIComplexObject *corhdl
+            - OCIPinOpt pin_option
+            - OCIDuration pin_duration
+            - OCILockOpt lock_option
+            - dvoid **object
+
+# round trip: 0
+OCIObjectUnpin:
+  :version: 800
+  :args:
+            - OCIEnv *env
+            - OCIError *err
+            - dvoid *object
+
+# round trip: ???
+OCIParamGet:
+  :version: 800
+  :args:
+            - CONST dvoid *hndlp
+            - ub4 htype
+            - OCIError *errhp
+            - dvoid **parmdpp
+            - ub4 pos
+
+# round trip: 1
+OCISessionBegin_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCISession *usrhp
+            - ub4 credt
+            - ub4 mode
+
+# round trip: 0
+OCIRawAssignBytes:
+  :version: 800
+  :args:
+            - OCIEnv *env
+            - OCIError *err
+            - CONST ub1 *rhs
+            - ub4 rhs_len
+            - OCIRaw **lhs
+
+# round trip: 0
+OCIRawPtr:
+  :version: 800
+  :ret:     ub1 *
+  :args:
+            - OCIEnv *env
+            - CONST OCIRaw *raw
+
+# round trip: 0
+OCIRawSize:
+  :version: 800
+  :ret:     ub4
+  :args:
+            - OCIEnv *env
+            - CONST OCIRaw *raw
+
+# round trip: 1
+OCISessionEnd_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCISession *usrhp
+            - ub4 mode
+
+# round trip: 1
+OCIServerAttach_nb:
+  :version: 800
+  :args:
+            - OCIServer *srvhp
+            - OCIError *errhp
+            - CONST text *dblink
+            - sb4 dblink_len
+            - ub4 mode
+
+# round trip: 1
+OCIServerDetach_nb:
+  :version: 800
+  :args:
+            - OCIServer *srvhp
+            - OCIError *errhp
+            - ub4 mode
+
+# round trip: ?
+OCIServerVersion:
+  :version: 800
+  :args:
+            - dvoid *hndlp
+            - OCIError *errhp
+            - OraText *bufp
+            - ub4 bufsz
+            - ub1 hndltype
+
+# round trip: 1
+OCIStmtExecute_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIStmt *stmtp
+            - OCIError *errhp
+            - ub4 iters
+            - ub4 rowoff
+            - CONST OCISnapshot *snap_in
+            - OCISnapshot *snap_out
+            - ub4 mode
+
+# round trip: 0 if a next row is in pre-fetch buffer, otherwise 1
+OCIStmtFetch_nb:
+  :version: 800
+  :args:
+            - OCIStmt *stmtp
+            - OCIError *errhp
+            - ub4 nrows
+            - ub2 orientation
+            - ub4 mode
+
+OCIStmtGetPieceInfo:
+  :version: 800
+  :args:
+            - OCIStmt *stmtp
+            - OCIError *errhp
+            - dvoid **hndlpp
+            - ub4 *typep
+            - ub1 *in_outp
+            - ub4 *iterp
+            - ub4 *idxp
+            - ub1 *piecep
+
+OCIStmtPrepare:
+  :version: 800
+  :args:
+            - OCIStmt *stmtp
+            - OCIError *errhp
+            - CONST text *stmt
+            - ub4 stmt_len
+            - ub4 language
+            - ub4 mode
+
+OCIStmtSetPieceInfo:
+  :version: 800
+  :args:
+            - dvoid *hndlp
+            - ub4 type
+            - OCIError *errhp
+            - CONST dvoid *bufp
+            - ub4 *alenp
+            - ub1 piece
+            - CONST dvoid *indp
+            - ub2 *rcodep
+
+# round trip: 0
+OCIStringAssignText:
+  :version: 800
+  :args:
+            - OCIEnv *env
+            - OCIError *err
+            - CONST text *rhs
+            - ub4 rhs_len
+            - OCIString **lhs
+
+# round trip: 0
+OCIStringPtr:
+  :version: 800
+  :ret:     text *
+  :args:
+            - OCIEnv *env
+            - CONST OCIString *vs
+
+# round trip: 0
+OCIStringSize:
+  :version: 800
+  :ret:     ub4
+  :args:
+            - OCIEnv *env
+            - CONST OCIString *vs
+
+# round trip: 1
+OCITransCommit_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - ub4 flags
+
+# round trip: 1
+OCITransRollback_nb:
+  :version: 800
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - ub4 flags
+
+# round trip: 0 ?
+OCITypeTypeCode:
+  :version: 800
+  :ret:     OCITypeCode
+  :args:
+            - OCIEnv *env
+            - OCIError *err
+            - CONST OCIType *tdo
+
+
+#
+# Oracle 8.1
+#
+
+# round trip: 0
+OCIEnvCreate:
+  :version: 810
+  :args:
+            - OCIEnv **envp
+            - ub4 mode
+            - dvoid *ctxp
+            - dvoid *(*malocfp)(dvoid *ctxp, size_t size)
+            - dvoid *(*ralocfp)(dvoid *ctxp, dvoid *memptr, size_t newsize)
+            - void   (*mfreefp)(dvoid *ctxp, dvoid *memptr)
+            - size_t xtramem_sz
+            - dvoid **usrmempp
+
+# round trip: 1
+OCILobClose_nb:
+  :version: 810
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *locp
+
+# round trip: 1
+OCILobCreateTemporary_nb:
+  :version: 810
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *locp
+            - ub2 csid
+            - ub1 csfrm
+            - ub1 lobtype
+            - boolean cache
+            - OCIDuration duration
+
+# round trip: 1
+OCILobFreeTemporary:
+  :version: 810
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *locp
+
+# round trip: 1
+OCILobGetChunkSize_nb:
+  :version: 810
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *locp
+            - ub4 *chunksizep
+
+# round trip: 0
+OCILobIsTemporary:
+  :version: 810
+  :args:
+            - OCIEnv *envp
+            - OCIError *errhp
+            - OCILobLocator *locp
+            - boolean *is_temporary
+
+# round trip: 1 if either destination or source lob is a temporary, otherwise 0
+OCILobLocatorAssign_nb:
+  :version: 810
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - CONST OCILobLocator *src_locp
+            - OCILobLocator **dst_locpp
+
+# round trip 1
+OCILobOpen_nb:
+  :version: 810
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *locp
+            - ub1 mode
+
+OCIMessageOpen:
+  :version: 810
+  :args:
+            - dvoid *envhp
+            - OCIError *errhp
+            - OCIMsg **msghp
+            - CONST OraText *product
+            - CONST OraText *facility
+            - OCIDuration dur
+
+OCIMessageGet:
+  :version: 810
+  :ret:     OraText *
+  :args:
+            - OCIMsg *msgh
+            - ub4 msgno
+            - OraText *msgbuf
+            - size_t buflen
+
+# round trip: 0
+OCINumberIsInt:
+  :version: 810
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - boolean *result
+  :code_if_not_found: |
+    /* pseude code
+     *   work = trunc(number);
+     *   if (number == work) {
+     *      result = TRUE;
+     *   } else {
+     *      result = FALSE;
+     *   }
+     */
+    OCINumber work;
+    sword rv;
+    sword cmp;
+    rv = oci8_OCINumberTrunc(err, number, 0, &work, file, line);
+    if (rv != OCI_SUCCESS)
+        return rv;
+    rv = oci8_OCINumberCmp(err, number, &work, &cmp, file, line);
+    if (rv != OCI_SUCCESS)
+        return rv;
+    *result = (cmp == 0) ? TRUE : FALSE;
+    return OCI_SUCCESS;
+
+# round trip: 0
+OCINumberPrec:
+  :version: 810
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - eword nDigs
+            - OCINumber *result
+
+# round trip: 0
+OCINumberSetPi:
+  :version: 810
+  :ret:     void
+  :args:
+            - OCIError *err
+            - OCINumber *num
+  :code_if_not_found: |
+    static const OCINumber pi = {
+        {0x15, 0xc1, 0x04, 0x0f, 0x10, 0x5d, 0x42, 0x24, 0x5a, 0x50,
+         0x21, 0x27, 0x2f, 0x1b, 0x2c, 0x27, 0x21, 0x50, 0x33, 0x1d,
+         0x55, 0x15}
+    };
+    *num = pi;
+
+# round trip: 0
+OCINumberShift:
+  :version: 810
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - CONST sword nDig
+            - OCINumber *result
+
+# round trip: 0
+OCINumberSign:
+  :version: 810
+  :args:
+            - OCIError *err
+            - CONST OCINumber *number
+            - sword *result
+  :code_if_not_found: |
+    /* pseude code
+     *   number <=> 0
+     */
+    OCINumber zero;
+    sword rv;
+    sword cmp;
+    OCINumberSetZero(err, &zero);
+    rv = oci8_OCINumberCmp(err, number, &zero, &cmp, file, line);
+    if (rv != OCI_SUCCESS)
+        return rv;
+    if (cmp > 0)
+        *result = 1;
+    else if (cmp < 0)
+        *result = -1;
+    else
+        *result = 0;
+    return OCI_SUCCESS;
+
+# round trip: 0
+OCIReset:
+  :version: 810
+  :args:
+            - dvoid *hndlp
+            - OCIError *errhp
+
+#
+# Oracle 9.0
+#
+
+OCIConnectionPoolCreate:
+  :version: 900
+  :args:
+            - OCIEnv *envhp
+            - OCIError *errhp
+            - OCICPool *poolhp
+            - OraText **poolName
+            - sb4 *poolNameLen
+            - const OraText *dblink
+            - sb4 dblinkLen
+            - ub4 connMin
+            - ub4 connMax
+            - ub4 connIncr
+            - const OraText *poolUserName
+            - sb4 poolUserLen
+            - const OraText *poolPassword
+            - sb4 poolPassLen
+            - ub4 mode
+
+OCIConnectionPoolDestroy:
+  :version: 900
+  :args:
+            - OCICPool *poolhp
+            - OCIError *errhp
+            - ub4 mode
+
+# round trip: 0 (not docmented. I guess.)
+OCIDateTimeConstruct:
+  :version: 900
+  :args:
+            - dvoid  *hndl
+            - OCIError *err
+            - OCIDateTime *datetime
+            - sb2 yr
+            - ub1 mnth
+            - ub1 dy
+            - ub1 hr
+            - ub1 mm
+            - ub1 ss
+            - ub4 fsec
+            - OraText *timezone
+            - size_t timezone_length
+
+# round trip: 0 (not docmented. I guess.)
+OCIDateTimeGetDate:
+  :version: 900
+  :args:
+            - dvoid *hndl
+            - OCIError *err
+            - CONST OCIDateTime *date
+            - sb2 *yr
+            - ub1 *mnth
+            - ub1 *dy
+
+# round trip: 0 (not docmented. I guess.)
+OCIDateTimeGetTime:
+  :version: 900
+  :args:
+            - dvoid *hndl
+            - OCIError *err
+            - OCIDateTime *datetime
+            - ub1 *hr
+            - ub1 *mm
+            - ub1 *ss
+            - ub4 *fsec
+
+# round trip: 0 (not docmented. I guess.)
+OCIIntervalFromText:
+  :version: 900
+  :args:
+            - dvoid *hndl
+            - OCIError *err
+            - CONST OraText *inpstr
+            - size_t str_len
+            - OCIInterval *result
+
+# round trip: 0 (not docmented. I guess.)
+OCIDateTimeGetTimeZoneOffset:
+  :version: 900
+  :args:
+            - dvoid *hndl
+            - OCIError *err
+            - CONST OCIDateTime *datetime
+            - sb1 *hr
+            - sb1 *mm
+
+# round trip: 0 (not docmented. I guess.)
+OCIIntervalGetDaySecond:
+  :version: 900
+  :args:
+            - dvoid *hndl
+            - OCIError *err
+            - sb4 *dy
+            - sb4 *hr
+            - sb4 *mm
+            - sb4 *ss
+            - sb4 *fsec
+            - CONST OCIInterval *result
+
+# round trip: 0 (not docmented. I guess.)
+OCIIntervalGetYearMonth:
+  :version: 900
+  :args:
+            - dvoid *hndl
+            - OCIError *err
+            - sb4 *yr
+            - sb4 *mnth
+            - CONST OCIInterval *result
+
+# round trip: 0 (not docmented. I guess.)
+OCIIntervalSetDaySecond:
+  :version: 900
+  :args:
+            - dvoid *hndl
+            - OCIError *err
+            - sb4 dy
+            - sb4 hr
+            - sb4 mm
+            - sb4 ss
+            - sb4 fsec
+            - OCIInterval *result
+
+# round trip: 0 (not docmented. I guess.)
+OCIIntervalSetYearMonth:
+  :version: 900
+  :args:
+            - dvoid *hndl
+            - OCIError *err
+            - sb4 yr
+            - sb4 mnth
+            - OCIInterval *result
+
+# round trip: 0 (not docmented. I guess.)
+OCIRowidToChar:
+  :version: 900
+  :args:
+            - OCIRowid *rowidDesc
+            - OraText *outbfp
+            - ub2 *outbflp
+            - OCIError *errhp
+
+# An undocumented function from Oracle 9i to Oracle 10g.
+# This is documented in Oracle 11g.
+OCIServerRelease:
+  :version: 900
+  :args:
+            - dvoid *hndlp
+            - OCIError *errhp
+            - OraText *bufp
+            - ub4 bufsz
+            - ub1 hndltype
+            - ub4 *version
+
+#
+# Oracle 9.2
+#
+
+# round trip: 0 (not docmented. I guess.)
+OCINlsCharSetIdToName:
+  :version: 920
+  :args:
+            - dvoid *envhp
+            - oratext *buf
+            - size_t buflen
+            - ub2 id
+
+OCINlsCharSetNameToId:
+  :version: 920
+  :ret:     ub2
+  :args:
+            - dvoid *envhp
+            - const oratext *name
+
+#
+# Oracle 10.1
+#
+
+# round trip: 1
+OCILobGetLength2_nb:
+  :version: 1010
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *locp
+            - oraub8 *lenp
+
+# round trip: 0 or 1
+OCILobRead2_nb:
+  :version: 1010
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *locp
+            - oraub8 *byte_amtp
+            - oraub8 *char_amtp
+            - oraub8 offset
+            - dvoid *bufp
+            - oraub8 bufl
+            - ub1 piece
+            - dvoid *ctxp
+            - OCICallbackLobRead2 cbfp
+            - ub2 csid
+            - ub1 csfrm
+
+# round trip: 1
+OCILobTrim2_nb:
+  :version: 1010
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *locp
+            - oraub8 newlen
+
+# round trip: 0 or 1
+OCILobWrite2_nb:
+  :version: 1010
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCILobLocator *locp
+            - oraub8 *byte_amtp
+            - oraub8 *char_amtp
+            - oraub8 offset
+            - dvoid *bufp
+            - oraub8 buflen
+            - ub1 piece
+            - dvoid *ctxp
+            - OCICallbackLobWrite2 cbfp
+            - ub2 csid
+            - ub1 csfrm
+
+#
+# Oracle 10.2
+#
+
+# round trip: 0
+OCIClientVersion:
+  :version: 1020
+  :ret:     void
+  :args:
+            - sword *major_version
+            - sword *minor_version
+            - sword *update_num
+            - sword *patch_num
+            - sword *port_update_num
+
+# round trip: 1
+OCIDBStartup_nb:
+  :version: 1020
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCIAdmin *admhp
+            - ub4 mode
+            - ub4 flags
+
+# round trip: 1
+OCIDBShutdown_nb:
+  :version: 1020
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - OCIAdmin *admhp
+            - ub4 mode
+
+# round trip: 1
+OCIPing_nb:
+  :version: 1020
+  :args:
+            - OCISvcCtx *svchp
+            - OCIError *errhp
+            - ub4 mode
+
+#
+# Oracle 11.1
+#
+
+OCIArrayDescriptorAlloc:
+  :version: 1110
+  :args:
+            - const void *parenth
+            - void **descpp
+            - const ub4 type
+            - ub4 array_size
+            - const size_t xtramem_sz
+            - void **usrmempp
+
+OCIArrayDescriptorFree:
+  :version: 1110
+  :args:
+            - void **descp
+            - const ub4 type