/*
* call-seq:
* allocate_handles()
*
* <b>internal use only</b>
*
* Allocates a service context handle, a session handle and a
* server handle to use explicit attach and begin-session calls.
*/
static VALUE oci8_allocate_handles(VALUE self)
{
oci8_svcctx_t *svcctx = DATA_PTR(self);
sword rv;
if (svcctx->logoff_strategy != NULL) {
rb_raise(rb_eRuntimeError, "Could not reuse the session.");
}
svcctx->logoff_strategy = &complex_logoff;
svcctx->state = 0;
/* allocate a service context handle */
rv = OCIHandleAlloc(oci8_envhp, &svcctx->base.hp.ptr, OCI_HTYPE_SVCCTX, 0, 0);
if (rv != OCI_SUCCESS)
oci8_env_raise(oci8_envhp, rv);
svcctx->base.type = OCI_HTYPE_SVCCTX;
/* alocalte a session handle */
rv = OCIHandleAlloc(oci8_envhp, (void*)&svcctx->usrhp, OCI_HTYPE_SESSION, 0, 0);
if (rv != OCI_SUCCESS)
oci8_env_raise(oci8_envhp, rv);
copy_session_handle(svcctx);
/* alocalte a server handle */
rv = OCIHandleAlloc(oci8_envhp, (void*)&svcctx->srvhp, OCI_HTYPE_SERVER, 0, 0);
if (rv != OCI_SUCCESS)
oci8_env_raise(oci8_envhp, rv);
copy_server_handle(svcctx);
return self;
}
static VALUE oci8_lob_do_initialize(int argc, VALUE *argv, VALUE self, ub1 csfrm, ub1 lobtype)
{
oci8_lob_t *lob = DATA_PTR(self);
VALUE svc;
VALUE val;
sword rv;
rb_scan_args(argc, argv, "11", &svc, &val);
TO_SVCCTX(svc); /* check argument type */
rv = OCIDescriptorAlloc(oci8_envhp, &lob->base.hp.ptr, OCI_DTYPE_LOB, 0, NULL);
if (rv != OCI_SUCCESS)
oci8_env_raise(oci8_envhp, rv);
lob->base.type = OCI_DTYPE_LOB;
lob->svc = svc;
lob->svchp = NULL;
lob->pos = 0;
lob->char_width = 1;
lob->csfrm = csfrm;
lob->lobtype = lobtype;
lob->state = S_NO_OPEN_CLOSE;
oci8_link_to_parent((oci8_base_t*)lob, (oci8_base_t*)DATA_PTR(svc));
if (!NIL_P(val)) {
if (have_OCILobCreateTemporary_nb) {
oci8_svcctx_t *svcctx = oci8_get_svcctx(svc);
OCI8StringValue(val);
oci_lc(OCILobCreateTemporary_nb(svcctx, svcctx->base.hp.svc, oci8_errhp, lob->base.hp.lob, 0, csfrm, lobtype, TRUE, OCI_DURATION_SESSION));
lob->svchp = oci8_get_oci_svcctx(svc);
oci8_lob_write(self, val);
} else {
rb_raise(rb_eRuntimeError, "creating a temporary lob is not supported on this Oracle version");
}
}
return Qnil;
}
static VALUE oci8_lob_do_initialize(int argc, VALUE *argv, VALUE self, ub1 csfrm, ub1 lobtype)
{
oci8_lob_t *lob = TO_LOB(self);
VALUE svc;
VALUE val;
oci8_svcctx_t *svcctx;
sword rv;
rb_scan_args(argc, argv, "11", &svc, &val);
svcctx = oci8_get_svcctx(svc);
rv = OCIDescriptorAlloc(oci8_envhp, &lob->base.hp.ptr, OCI_DTYPE_LOB, 0, NULL);
if (rv != OCI_SUCCESS)
oci8_env_raise(oci8_envhp, rv);
lob->base.type = OCI_DTYPE_LOB;
lob->pos = 0;
lob->csfrm = csfrm;
lob->lobtype = lobtype;
lob->state = S_NO_OPEN_CLOSE;
oci8_link_to_parent(&lob->base, &svcctx->base);
lob->svcctx = svcctx;
RB_OBJ_WRITTEN(self, Qundef, svc);
if (!NIL_P(val)) {
OCI8StringValue(val);
chker2(OCILobCreateTemporary_nb(svcctx, svcctx->base.hp.svc, oci8_errhp, lob->base.hp.lob, 0, csfrm, lobtype, TRUE, OCI_DURATION_SESSION),
&svcctx->base);
oci8_lob_write(self, val);
lob->pos = 0; /* reset the position */
}
return Qnil;
}
/*
* @overload initialize(conn, directory = nil, filename = nil)
*
* Creates a BFILE object.
* This is correspond to {BFILENAME}[https://docs.oracle.com/database/121/SQLRF/functions020.htm].
*
* @param [OCI8] conn
* @param [String] directory a directory object created by
* {"CREATE DIRECTORY"}[http://docs.oracle.com/database/121/SQLRF/statements_5008.htm].
* @param [String] filename
* @return [OCI8::BFILE]
*/
static VALUE oci8_bfile_initialize(int argc, VALUE *argv, VALUE self)
{
oci8_lob_t *lob = TO_LOB(self);
VALUE svc;
VALUE dir_alias;
VALUE filename;
oci8_svcctx_t *svcctx;
int rv;
rb_scan_args(argc, argv, "12", &svc, &dir_alias, &filename);
svcctx = oci8_get_svcctx(svc);
rv = OCIDescriptorAlloc(oci8_envhp, &lob->base.hp.ptr, OCI_DTYPE_LOB, 0, NULL);
if (rv != OCI_SUCCESS) {
oci8_env_raise(oci8_envhp, rv);
}
lob->base.type = OCI_DTYPE_LOB;
lob->pos = 0;
lob->csfrm = SQLCS_IMPLICIT;
lob->lobtype = OCI_TEMP_BLOB;
lob->state = S_BFILE_CLOSE;
if (argc != 1) {
OCI8SafeStringValue(dir_alias);
OCI8SafeStringValue(filename);
oci8_bfile_set_name(self, dir_alias, filename);
}
oci8_link_to_parent(&lob->base, &svcctx->base);
lob->svcctx = svcctx;
return Qnil;
}
static VALUE get_rowid_attr(rowid_arg_t *arg)
{
oci8_base_t *base = arg->base;
ub4 attrtype = arg->attrtype;
char buf[MAX_ROWID_LEN];
ub2 buflen;
sword rv;
/* get a rowid descriptor from OCIHandle */
rv = OCIDescriptorAlloc(oci8_envhp, (dvoid*)&arg->ridp, OCI_DTYPE_ROWID, 0, NULL);
if (rv != OCI_SUCCESS)
oci8_env_raise(oci8_envhp, rv);
rv = OCIAttrGet(base->hp.ptr, base->type, arg->ridp, 0, attrtype, oci8_errhp);
if (rv != OCI_SUCCESS) {
oci8_raise(oci8_errhp, rv, NULL);
}
/* convert the rowid descriptor to a string. */
if (have_OCIRowidToChar) {
/* If OCIRowidToChar is available, use it. */
buflen = MAX_ROWID_LEN;
rv = OCIRowidToChar(arg->ridp, TO_ORATEXT(buf), &buflen, oci8_errhp);
if (rv != OCI_SUCCESS) {
oci8_raise(oci8_errhp, rv, NULL);
}
} else {
/* If OCIRowidToChar is not available, convert it on
* Oracle Server.
*/
oci8_base_t *svc;
oci8_exec_sql_var_t define_var;
oci8_exec_sql_var_t bind_var;
/* search a connection from the handle */
svc = base;
while (svc->type != OCI_HTYPE_SVCCTX) {
svc = svc->parent;
if (svc == NULL) {
rb_raise(rb_eRuntimeError, "No connection is found!!");
}
}
/* :strval */
define_var.valuep = buf;
define_var.value_sz = sizeof(buf);
define_var.dty = SQLT_CHR;
define_var.indp = NULL;
define_var.alenp = &buflen;
/* :rowid */
bind_var.valuep = &arg->ridp;
bind_var.value_sz = sizeof(void *);
bind_var.dty = SQLT_RDD;
bind_var.indp = NULL;
bind_var.alenp = NULL;
/* convert the rowid descriptor to a string value by querying Oracle server. */
oci8_exec_sql((oci8_svcctx_t*)svc, "SELECT :rid FROM dual", 1, &define_var, 1, &bind_var, 1);
if (buflen == 0) {
return Qnil;
}
}
return rb_external_str_new_with_enc(buf, buflen, rb_usascii_encoding());
}
/*
* call-seq:
* OCI8::ConnectionPool.new(conn_min, conn_max, conn_incr, username = nil, password = nil, dbname = nil) -> connection pool
* OCI8::ConnectionPool.new(conn_min, conn_max, conn_incr, connect_string) -> connection pool
*
* Creates a connection pool.
*
* <i>conn_min</i> specifies the minimum number of connections in the
* connection pool. Valid values are 0 and higher.
*
* <i>conn_max</i> specifies the maximum number of connections that
* can be opened to the database. Once this value is reached, no more
* connections are opened. Valid values are 1 and higher.
*
* <i>conn_incr</i> allows the application to set the next increment
* for connections to be opened to the database if the current number
* of connections are less than <i>conn_max</i>. Valid values are 0
* and higher.
*
* <i>username</i> and <i>password</i> are required to establish an
* implicit primary session. When both are nil, external
* authentication is used.
*
* <i>dbname</i> specifies the database server to connect to.
*
* If the number of arguments is four, <i>username</i>,
* <i>password</i> and <i>dbname</i> are extracted from the fourth
* argument <i>connect_string</i>. The syntax is "username/password" or
* "username/password@dbname".
*/
static VALUE oci8_cpool_initialize(int argc, VALUE *argv, VALUE self)
{
VALUE conn_min;
VALUE conn_max;
VALUE conn_incr;
VALUE username;
VALUE password;
VALUE dbname;
oci8_cpool_t *cpool = DATA_PTR(self);
OraText *pool_name;
sb4 pool_name_len;
sword rv;
/* check arguments */
rb_scan_args(argc, argv, "42", &conn_min, &conn_max, &conn_incr,
&username, &password, &dbname);
Check_Type(conn_min, T_FIXNUM);
Check_Type(conn_max, T_FIXNUM);
Check_Type(conn_incr, T_FIXNUM);
if (argc == 4) {
VALUE mode;
VALUE conn_str = username;
OCI8SafeStringValue(conn_str);
oci8_do_parse_connect_string(conn_str, &username, &password, &dbname, &mode);
if (!NIL_P(mode)) {
rb_raise(rb_eArgError, "invalid connect string \"%s\": Connection pooling doesn't support sysdba and sysoper privileges.", RSTRING_PTR(conn_str));
}
} else {
if (!NIL_P(username)) {
OCI8SafeStringValue(username);
}
if (!NIL_P(password)) {
OCI8SafeStringValue(password);
}
if (!NIL_P(dbname)) {
OCI8SafeStringValue(dbname);
}
}
rv = OCIHandleAlloc(oci8_envhp, &cpool->base.hp.ptr, OCI_HTYPE_CPOOL, 0, NULL);
if (rv != OCI_SUCCESS)
oci8_env_raise(oci8_envhp, rv);
cpool->base.type = OCI_HTYPE_CPOOL;
oci_lc(OCIConnectionPoolCreate(oci8_envhp, oci8_errhp, cpool->base.hp.poolhp,
&pool_name, &pool_name_len,
NIL_P(dbname) ? NULL : RSTRING_ORATEXT(dbname),
NIL_P(dbname) ? 0 : RSTRING_LEN(dbname),
FIX2UINT(conn_min), FIX2UINT(conn_max),
FIX2UINT(conn_incr),
NIL_P(username) ? NULL : RSTRING_ORATEXT(username),
NIL_P(username) ? 0 : RSTRING_LEN(username),
NIL_P(password) ? NULL : RSTRING_ORATEXT(password),
NIL_P(password) ? 0 : RSTRING_LEN(password),
OCI_DEFAULT));
cpool->pool_name = rb_str_new(TO_CHARPTR(pool_name), pool_name_len);
rb_str_freeze(cpool->pool_name);
return Qnil;
}
static void bind_init_elem_common(oci8_bind_t *obind, VALUE svc, ub4 type)
{
ub4 idx = 0;
sword rv;
do {
rv = OCIDescriptorAlloc(oci8_envhp, (dvoid*)((dvoid**)obind->valuep + idx), type, 0, 0);
if (rv != OCI_SUCCESS)
oci8_env_raise(oci8_envhp, rv);
} while (++idx < obind->maxar_sz);
}
static VALUE exec_sql(cb_arg_t *arg)
{
ub4 pos;
sword rv;
rv = OCIHandleAlloc(oci8_envhp, (dvoid*)&arg->stmtp, OCI_HTYPE_STMT, 0, NULL);
if (rv != OCI_SUCCESS) {
oci8_env_raise(oci8_envhp, rv);
}
chker2(OCIStmtPrepare(arg->stmtp, oci8_errhp, (text*)arg->sql_text,
strlen(arg->sql_text), OCI_NTV_SYNTAX, OCI_DEFAULT),
&arg->svcctx->base);
for (pos = 0; pos < arg->num_define_vars; pos++) {
arg->define_vars[pos].hp = NULL;
chker3(OCIDefineByPos(arg->stmtp, (OCIDefine**)&arg->define_vars[pos].hp,
oci8_errhp, pos + 1, arg->define_vars[pos].valuep,
arg->define_vars[pos].value_sz,
arg->define_vars[pos].dty, arg->define_vars[pos].indp,
arg->define_vars[pos].alenp, NULL, OCI_DEFAULT),
&arg->svcctx->base, arg->stmtp);
}
for (pos = 0; pos < arg->num_bind_vars; pos++) {
arg->bind_vars[pos].hp = NULL;
chker3(OCIBindByPos(arg->stmtp, (OCIBind**)&arg->bind_vars[pos].hp,
oci8_errhp, pos + 1, arg->bind_vars[pos].valuep,
arg->bind_vars[pos].value_sz, arg->bind_vars[pos].dty,
arg->bind_vars[pos].indp, arg->bind_vars[pos].alenp,
NULL, 0, NULL, OCI_DEFAULT),
&arg->svcctx->base, arg->stmtp);
}
rv = OCIStmtExecute_nb(arg->svcctx, arg->svcctx->base.hp.svc, arg->stmtp, oci8_errhp, 1, 0, NULL, NULL, OCI_DEFAULT);
if (rv == OCI_ERROR) {
if (oci8_get_error_code(oci8_errhp) == 1000) {
/* run GC to close unreferred cursors
* when ORA-01000 (maximum open cursors exceeded).
*/
rb_gc();
rv = OCIStmtExecute_nb(arg->svcctx, arg->svcctx->base.hp.svc, arg->stmtp, oci8_errhp, 1, 0, NULL, NULL, OCI_DEFAULT);
}
}
if (arg->raise_on_error) {
chker3(rv, &arg->svcctx->base, arg->stmtp);
}
return (VALUE)rv;
}
/*
* call-seq:
* new(username, password, dbname = nil, privilege = nil)
*
* Connects to an Oracle database server by +username+ and +password+
* at +dbname+ as +privilege+.
*
* === connecting to the local server
*
* Set +username+ and +password+ or pass "username/password" as a
* single argument.
*
* OCI8.new('scott', 'tiger')
* or
* OCI8.new('scott/tiger')
*
* === connecting to a remote server
*
* Set +username+, +password+ and +dbname+ or pass
* "username/password@dbname" as a single argument.
*
* OCI8.new('scott', 'tiger', 'orcl.world')
* or
* OCI8.new('scott/[email protected]')
*
* The +dbname+ is a net service name or an easy connectection
* identifier. The former is a name listed in the file tnsnames.ora.
* Ask to your DBA if you don't know what it is. The latter has the
* syntax as "//host:port/service_name".
*
* OCI8.new('scott', 'tiger', '//remote-host:1521/XE')
* or
* OCI8.new('scott/tiger@//remote-host:1521/XE')
*
* === connecting as a privileged user
*
* Set :SYSDBA or :SYSOPER to +privilege+, otherwise
* "username/password as sysdba" or "username/password as sysoper"
* as a single argument.
*
* OCI8.new('sys', 'change_on_install', nil, :SYSDBA)
* or
* OCI8.new('sys/change_on_install as sysdba')
*
* === external OS authentication
*
* Set nil to +username+ and +password+, or "/" as a single argument.
*
* OCI8.new(nil, nil)
* or
* OCI8.new('/')
*
* To connect to a remote host:
*
* OCI8.new(nil, nil, 'dbname')
* or
* OCI8.new('/@dbname')
*
* === proxy authentication
*
* Enclose end user's username with square brackets and add it at the
* end of proxy user's username.
*
* OCI8.new('proxy_user_name[end_user_name]', 'proxy_password')
* or
* OCI8.new('proxy_user_name[end_user_name]/proxy_password')
*
*/
static VALUE oci8_svcctx_initialize(int argc, VALUE *argv, VALUE self)
{
VALUE vusername;
VALUE vpassword;
VALUE vdbname;
VALUE vmode;
oci8_svcctx_t *svcctx = DATA_PTR(self);
sword rv;
enum logon_type_t logon_type = T_IMPLICIT;
ub4 cred = OCI_CRED_RDBMS;
ub4 mode = OCI_DEFAULT;
OCISvcCtx *svchp = NULL;
svcctx->executing_thread = Qnil;
if (argc == 1) {
oci8_do_parse_connect_string(argv[0], &vusername, &vpassword, &vdbname, &vmode);
} else {
rb_scan_args(argc, argv, "22", &vusername, &vpassword, &vdbname, &vmode);
}
rb_ivar_set(self, id_at_prefetch_rows, Qnil);
rb_ivar_set(self, id_at_username, Qnil);
if (NIL_P(vusername) && NIL_P(vpassword)) {
/* external credential */
logon_type = T_EXPLICIT;
cred = OCI_CRED_EXT;
} else {
/* RDBMS credential */
OCI8SafeStringValue(vusername); /* 1 */
OCI8SafeStringValue(vpassword); /* 2 */
}
if (!NIL_P(vdbname)) {
OCI8SafeStringValue(vdbname); /* 3 */
}
if (!NIL_P(vmode)) { /* 4 */
logon_type = T_EXPLICIT;
Check_Type(vmode, T_SYMBOL);
if (vmode == sym_SYSDBA) {
mode = OCI_SYSDBA;
} else if (vmode == sym_SYSOPER) {
mode = OCI_SYSOPER;
} else {
rb_raise(rb_eArgError, "invalid privilege name %s (expect :SYSDBA or :SYSOPER)", rb_id2name(SYM2ID(vmode)));
}
}
switch (logon_type) {
case T_IMPLICIT:
rv = OCILogon_nb(svcctx, oci8_envhp, oci8_errhp, &svchp,
RSTRING_ORATEXT(vusername), RSTRING_LEN(vusername),
RSTRING_ORATEXT(vpassword), RSTRING_LEN(vpassword),
NIL_P(vdbname) ? NULL : RSTRING_ORATEXT(vdbname),
NIL_P(vdbname) ? 0 : RSTRING_LEN(vdbname));
svcctx->base.hp.svc = svchp;
svcctx->base.type = OCI_HTYPE_SVCCTX;
svcctx->logon_type = T_IMPLICIT;
if (rv != OCI_SUCCESS) {
oci8_raise(oci8_errhp, rv, NULL);
}
break;
case T_EXPLICIT:
/* allocate OCI handles. */
rv = OCIHandleAlloc(oci8_envhp, &svcctx->base.hp.ptr, OCI_HTYPE_SVCCTX, 0, 0);
if (rv != OCI_SUCCESS)
oci8_env_raise(oci8_envhp, rv);
svcctx->base.type = OCI_HTYPE_SVCCTX;
rv = OCIHandleAlloc(oci8_envhp, (void*)&svcctx->authhp, OCI_HTYPE_SESSION, 0, 0);
if (rv != OCI_SUCCESS)
oci8_env_raise(oci8_envhp, rv);
rv = OCIHandleAlloc(oci8_envhp, (void*)&svcctx->srvhp, OCI_HTYPE_SERVER, 0, 0);
if (rv != OCI_SUCCESS)
oci8_env_raise(oci8_envhp, rv);
/* set username and password to OCISession. */
if (cred == OCI_CRED_RDBMS) {
oci_lc(OCIAttrSet(svcctx->authhp, OCI_HTYPE_SESSION,
RSTRING_PTR(vusername), RSTRING_LEN(vusername),
OCI_ATTR_USERNAME, oci8_errhp));
oci_lc(OCIAttrSet(svcctx->authhp, OCI_HTYPE_SESSION,
RSTRING_PTR(vpassword), RSTRING_LEN(vpassword),
OCI_ATTR_PASSWORD, oci8_errhp));
}
/* attach to server and set to OCISvcCtx. */
rv = OCIServerAttach_nb(svcctx, svcctx->srvhp, oci8_errhp,
NIL_P(vdbname) ? NULL : RSTRING_ORATEXT(vdbname),
NIL_P(vdbname) ? 0 : RSTRING_LEN(vdbname), OCI_DEFAULT);
if (rv != OCI_SUCCESS)
oci8_raise(oci8_errhp, rv, NULL);
oci_lc(OCIAttrSet(svcctx->base.hp.ptr, OCI_HTYPE_SVCCTX, svcctx->srvhp, 0, OCI_ATTR_SERVER, oci8_errhp));
/* begin session. */
rv = OCISessionBegin_nb(svcctx, svcctx->base.hp.ptr, oci8_errhp, svcctx->authhp, cred, mode);
if (rv != OCI_SUCCESS)
oci8_raise(oci8_errhp, rv, NULL);
oci_lc(OCIAttrSet(svcctx->base.hp.ptr, OCI_HTYPE_SVCCTX, svcctx->authhp, 0, OCI_ATTR_SESSION, oci8_errhp));
svcctx->logon_type = T_EXPLICIT;
break;
default:
break;
}
svcctx->pid = getpid();
svcctx->is_autocommit = 0;
#ifdef RUBY_VM
svcctx->non_blocking = 1;
#endif
svcctx->long_read_len = INT2FIX(65535);
return Qnil;
}
void
Init_oci8lib()
{
VALUE cOCI8;
OCIEnv *envhp;
OCIError *errhp;
sword rv;
#ifdef RUNTIME_API_CHECK
Init_oci8_apiwrap();
if (oracle_client_version < ORAVER_9_0) {
rb_raise(rb_eLoadError, "Oracle 8 (8.0) and Oracle 8i (8.1) is not supported anymore!");
}
if (have_OCIClientVersion) {
sword major, minor, update, patch, port_update;
OCIClientVersion(&major, &minor, &update, &patch, &port_update);
oracle_client_version = ORAVERNUM(major, minor, update, patch, port_update);
}
#endif
oci8_id_at_last_error = rb_intern("@last_error");
oci8_id_new = rb_intern("new");
oci8_id_get = rb_intern("get");
oci8_id_set = rb_intern("set");
oci8_id_oci8_vtable = rb_intern("__oci8_vtable__");
#ifdef CHAR_IS_NOT_A_SHORTCUT_TO_ID
oci8_id_add_op = rb_intern("+");
oci8_id_sub_op = rb_intern("-");
oci8_id_mul_op = rb_intern("*");
oci8_id_div_op = rb_intern("/");
#endif
#ifdef HAVE_RB_SET_END_PROC
rb_set_end_proc(at_exit_func, Qnil);
#endif
Init_oci8_thread_util();
Init_oci8_error();
Init_oci8_env();
/* OCIHandle class */
Init_oci8_handle();
/* OCI8 class */
Init_oci8(&cOCI8);
/* OCI8::ConnectionPool class */
Init_oci8_connection_pool(cOCI8);
/* OCI8::BindType module */
mOCI8BindType = rb_define_module_under(cOCI8, "BindType");
/* OCI8::BindType::Base class */
cOCI8BindTypeBase = rb_define_class_under(mOCI8BindType, "Base", oci8_cOCIHandle);
/* Handle */
Init_oci8_bind(cOCI8BindTypeBase);
Init_oci8_stmt(cOCI8);
/* Encoding */
Init_oci8_encoding(cOCI8);
/* register allocators */
Init_oci8_metadata(cOCI8);
Init_oci8_lob(cOCI8);
/* allocate a temporary errhp to pass Init_oci_number() */
rv = OCIEnvCreate(&envhp, oci8_env_mode, NULL, NULL, NULL, NULL, 0, NULL);
if (rv != OCI_SUCCESS) {
oci8_raise_init_error();
}
rv = OCIHandleAlloc(envhp, (dvoid *)&errhp, OCI_HTYPE_ERROR, 0, NULL);
if (rv != OCI_SUCCESS)
oci8_env_raise(envhp, rv);
Init_oci_number(cOCI8, errhp);
OCIHandleFree(errhp, OCI_HTYPE_ERROR);
OCIHandleFree(envhp, OCI_HTYPE_ENV);
Init_ora_date();
Init_oci_datetime();
Init_oci_object(cOCI8);
#ifdef USE_WIN32_C
Init_oci8_win32(cOCI8);
#endif
}
void
Init_oci8lib()
{
VALUE cOCI8;
OCIEnv *envhp;
OCIError *errhp;
sword rv;
#ifdef RUNTIME_API_CHECK
Init_oci8_apiwrap();
if (oracle_client_version < ORAVER_10_1) {
const char *oraver;
const char *ruby_oci8_ver;
if (oracle_client_version >= ORAVER_9_2) {
oraver = "9iR2";
ruby_oci8_ver = "2.1.x";
} else if (oracle_client_version >= ORAVER_9_0) {
oraver = "9iR1";
ruby_oci8_ver = "2.1.x";
} else if (oracle_client_version >= ORAVER_8_2) {
oraver = "8i";
ruby_oci8_ver = "2.0.x";
} else {
oraver = "8";
ruby_oci8_ver = "2.0.x";
}
rb_raise(rb_eLoadError, "Ruby-oci8 %s doesn't support Oracle %s. Use ruby-oci8 %s instead.",
OCI8LIB_VERSION, oraver, ruby_oci8_ver);
}
if (have_OCIClientVersion) {
sword major, minor, update, patch, port_update;
OCIClientVersion(&major, &minor, &update, &patch, &port_update);
oracle_client_version = ORAVERNUM(major, minor, update, patch, port_update);
}
#endif
oci8_id_at_last_error = rb_intern("@last_error");
oci8_id_get = rb_intern("get");
oci8_id_set = rb_intern("set");
#ifdef CHAR_IS_NOT_A_SHORTCUT_TO_ID
oci8_id_add_op = rb_intern("+");
oci8_id_sub_op = rb_intern("-");
oci8_id_mul_op = rb_intern("*");
oci8_id_div_op = rb_intern("/");
#endif
#ifdef HAVE_RB_SET_END_PROC
rb_set_end_proc(at_exit_func, Qnil);
#endif
Init_oci8_thread_util();
Init_oci8_error();
Init_oci8_env();
/* OCIHandle class */
Init_oci8_handle();
/* OCI8 class */
Init_oci8(&cOCI8);
/* OCI8::ConnectionPool class */
Init_oci8_connection_pool(cOCI8);
/* OCI8::BindType module */
mOCI8BindType = rb_define_module_under(cOCI8, "BindType");
/* OCI8::BindType::Base class */
cOCI8BindTypeBase = oci8_define_class_under(mOCI8BindType, "Base", &oci8_bind_data_type, bind_base_alloc);
/* Handle */
Init_oci8_bind(cOCI8BindTypeBase);
Init_oci8_stmt(cOCI8);
/* Encoding */
Init_oci8_encoding(cOCI8);
/* register allocators */
Init_oci8_metadata(cOCI8);
Init_oci8_lob(cOCI8);
/* allocate a temporary errhp to pass Init_oci_number() */
rv = OCIEnvCreate(&envhp, oci8_env_mode, NULL, NULL, NULL, NULL, 0, NULL);
if (rv != OCI_SUCCESS) {
oci8_raise_init_error();
}
rv = OCIHandleAlloc(envhp, (dvoid *)&errhp, OCI_HTYPE_ERROR, 0, NULL);
if (rv != OCI_SUCCESS)
oci8_env_raise(envhp, rv);
Init_oci_number(cOCI8, errhp);
OCIHandleFree(errhp, OCI_HTYPE_ERROR);
OCIHandleFree(envhp, OCI_HTYPE_ENV);
Init_ora_date();
Init_oci_datetime();
Init_oci_object(cOCI8);
#ifdef USE_WIN32_C
Init_oci8_win32(cOCI8);
#endif
}
