static void oci8_svcctx_free(oci8_base_t *base)
{
oci8_svcctx_t *svcctx = (oci8_svcctx_t *)base;
if (svcctx->session) {
oci8_base_free(svcctx->session);
svcctx->session = NULL;
}
if (svcctx->server) {
oci8_base_free(svcctx->server);
svcctx->server = NULL;
}
}
static VALUE oci8_lob_close(VALUE self)
{
oci8_lob_t *lob = DATA_PTR(self);
lob_close(lob);
oci8_base_free(DATA_PTR(self));
return self;
}
/*
* call-seq:
* logoff
*
* Disconnects from the Oracle server. The uncommitted transaction is
* rollbacked.
*/
static VALUE oci8_svcctx_logoff(VALUE self)
{
oci8_svcctx_t *svcctx = (oci8_svcctx_t *)DATA_PTR(self);
sword rv;
while (svcctx->base.children != NULL) {
oci8_base_free(svcctx->base.children);
}
switch (svcctx->logon_type) {
case T_IMPLICIT:
oci_lc(OCITransRollback_nb(svcctx, svcctx->base.hp.svc, oci8_errhp, OCI_DEFAULT));
rv = OCILogoff_nb(svcctx, svcctx->base.hp.svc, oci8_errhp);
svcctx->base.type = 0;
svcctx->logon_type = T_NOT_LOGIN;
if (rv != OCI_SUCCESS)
oci8_raise(oci8_errhp, rv, NULL);
svcctx->authhp = NULL;
svcctx->srvhp = NULL;
break;
case T_EXPLICIT:
oci_lc(OCITransRollback_nb(svcctx, svcctx->base.hp.svc, oci8_errhp, OCI_DEFAULT));
rv = OCISessionEnd_nb(svcctx, svcctx->base.hp.svc, oci8_errhp, svcctx->authhp, OCI_DEFAULT);
if (rv == OCI_SUCCESS) {
rv = OCIServerDetach_nb(svcctx, svcctx->srvhp, oci8_errhp, OCI_DEFAULT);
}
svcctx->logon_type = T_NOT_LOGIN;
if (rv != OCI_SUCCESS)
oci8_raise(oci8_errhp, rv, NULL);
break;
case T_NOT_LOGIN:
break;
}
return Qtrue;
}
/*
* Closes the lob.
*
* @return [self]
*/
static VALUE oci8_lob_close(VALUE self)
{
oci8_lob_t *lob = TO_LOB(self);
lob_close(lob);
oci8_base_free(&lob->base);
return self;
}
/*
* Clears the object internal structure and its dependents.
*
* @since 2.0.0
* @private
*/
static VALUE oci8_handle_free(VALUE self)
{
oci8_base_t *base = DATA_PTR(self);
oci8_base_free(base);
return self;
}
/*
* call-seq:
* logoff
*
* Disconnects from the Oracle server. The uncommitted transaction is
* rollbacked.
*/
static VALUE oci8_svcctx_logoff(VALUE self)
{
oci8_svcctx_t *svcctx = (oci8_svcctx_t *)DATA_PTR(self);
while (svcctx->base.children != NULL) {
oci8_base_free(svcctx->base.children);
}
if (svcctx->logoff_method != NULL) {
oci_lc(OCITransRollback_nb(svcctx, svcctx->base.hp.svc, oci8_errhp, OCI_DEFAULT));
svcctx->logoff_method(svcctx);
}
return Qtrue;
}
static void oci8_handle_cleanup(oci8_base_t *base)
{
if (oci8_in_finalizer) {
/* Do nothing when the program exits.
* The first two words of memory addressed by VALUE datatype is
* changed in finalizer. If a ruby function which access it such
* as rb_obj_is_kind_of is called, it may cause SEGV.
*/
return;
}
oci8_base_free(base);
xfree(base);
}
/*
* call-seq:
* logoff
*
* Disconnects from the Oracle server. The uncommitted transaction is
* rollbacked.
*/
static VALUE oci8_svcctx_logoff(VALUE self)
{
oci8_svcctx_t *svcctx = (oci8_svcctx_t *)DATA_PTR(self);
while (svcctx->base.children != NULL) {
oci8_base_free(svcctx->base.children);
}
if (svcctx->logoff_strategy != NULL) {
const oci8_logoff_strategy_t *strategy = svcctx->logoff_strategy;
void *data = strategy->prepare(svcctx);
svcctx->base.type = 0;
svcctx->logoff_strategy = NULL;
oci_lc(oci8_blocking_region(svcctx, strategy->execute, data));
}
return Qtrue;
}
void oci8_base_free(oci8_base_t *base)
{
while (base->children != NULL) {
oci8_base_free(base->children);
}
oci8_unlink_from_parent(base);
if (base->vptr->free != NULL)
base->vptr->free(base);
if (base->type >= OCI_DTYPE_FIRST) {
OCIDescriptorFree(base->hp.ptr, base->type);
} else if (base->type == OCI_HTYPE_BIND || base->type == OCI_HTYPE_DEFINE) {
; /* Do nothing. Bind handles and define handles are freed when
* associating statement handles are freed.
*/
} else if (base->type >= OCI_HTYPE_FIRST) {
OCIHandleFree(base->hp.ptr, base->type);
}
base->type = 0;
base->hp.ptr = NULL;
}
static void
mrb_oci8_handle_free(mrb_state *mrb, void *ptr)
{
oci8_base_free(ptr);
}
