OCI_Ref * OCI_RefInit
(
OCI_Connection *con,
OCI_TypeInfo **typinf,
OCI_Ref **pref,
void *handle
)
{
boolean res = FALSE;
OCI_Ref *ref = NULL;
OCI_CHECK(NULL == pref, NULL);
if (!*pref)
{
*pref = (OCI_Ref *) OCI_MemAlloc(OCI_IPC_REF, sizeof(*ref), (size_t) 1, TRUE);
}
if (*pref)
{
res = TRUE;
ref = *pref;
ref->handle = handle;
ref->con = con;
ref->typinf = typinf ? *typinf : NULL;
if (!ref->handle || (OCI_OBJECT_ALLOCATED_ARRAY == ref->hstate))
{
/* allocates handle for non fetched object */
if (OCI_OBJECT_ALLOCATED_ARRAY != ref->hstate)
{
ref->hstate = OCI_OBJECT_ALLOCATED;
}
OCI_CALL2
(
res, ref->con,
OCI_ObjectNew(ref->con->env, ref->con->err, ref->con->cxt,
(OCITypeCode) SQLT_REF,
(OCIType*) NULL,
(dvoid *) NULL,
(OCIDuration) OCI_DURATION_SESSION,
(boolean) FALSE,
(dvoid **) &ref->handle)
)
}
else
{
ref->hstate = OCI_OBJECT_FETCHED_CLEAN;
OCI_RefUnpin(ref);
}
}
OCI_Coll * OCI_CollInit
(
OCI_Connection *con,
OCI_Coll **pcoll,
void *handle,
OCI_TypeInfo *typinf
)
{
OCI_Coll *coll = NULL;
boolean res = FALSE;
OCI_CHECK(NULL == pcoll, NULL)
if (!*pcoll)
{
*pcoll = (OCI_Coll *) OCI_MemAlloc(OCI_IPC_COLLECTION, sizeof(*coll), (size_t) 1, TRUE);
}
if (*pcoll)
{
res = TRUE;
coll = *pcoll;
coll->con = con;
coll->handle = handle;
coll->typinf = typinf;
if (!coll->handle || (OCI_OBJECT_ALLOCATED_ARRAY == coll->hstate))
{
/* allocates handle for non fetched collection */
if (OCI_OBJECT_ALLOCATED_ARRAY != coll->hstate)
{
coll->hstate = OCI_OBJECT_ALLOCATED;
}
OCI_CALL2
(
res, con,
OCI_ObjectNew(coll->con->env, coll->con->err, coll->con->cxt,
typinf->colcode, typinf->tdo, (void *) NULL,
OCI_DURATION_SESSION, TRUE, (dvoid **) &coll->handle)
)
}
else
{
coll->hstate = OCI_OBJECT_FETCHED_CLEAN;
}
}
OCI_Object * OCI_ObjectInit
(
OCI_Connection *con,
OCI_Object **pobj,
void *handle,
OCI_TypeInfo *typinf,
OCI_Object *parent,
int index,
boolean reset
)
{
OCI_Object * obj = NULL;
boolean res = TRUE;
OCI_CHECK(pobj == NULL, NULL);
if (*pobj == NULL)
{
*pobj = (OCI_Object *) OCI_MemAlloc(OCI_IPC_OBJECT, sizeof(*obj), (size_t) 1, TRUE);
}
if (*pobj != NULL)
{
obj = *pobj;
obj->con = con;
obj->handle = handle;
obj->typinf = typinf;
if (obj->objs == NULL)
{
obj->objs = (void **) OCI_MemAlloc(OCI_IPC_BUFF_ARRAY, sizeof(void *),
(size_t) typinf->nb_cols, TRUE);
}
else
{
OCI_ObjectReset(obj);
}
res = (obj->objs != NULL);
if (((res == TRUE)) && ((obj->handle == NULL) || (obj->hstate == OCI_OBJECT_ALLOCATED_ARRAY)))
{
/* allocates handle for non fetched object */
if (obj->hstate != OCI_OBJECT_ALLOCATED_ARRAY)
{
obj->hstate = OCI_OBJECT_ALLOCATED;
}
OCI_CALL2
(
res, obj->con,
OCI_ObjectNew(obj->con->env, obj->con->err, obj->con->cxt,
(OCITypeCode) SQLT_NTY, obj->typinf->tdo, (dvoid *) NULL,
(OCIDuration) OCI_DURATION_SESSION, (boolean) TRUE,
(dvoid **) &obj->handle)
)
}
else
{
