boolean OCI_API OCI_MsgGetID
(
OCI_Msg *msg,
void *id,
unsigned int *len
)
{
boolean res = TRUE;
OCI_CHECK_PTR(OCI_IPC_MSG, msg, FALSE);
OCI_CHECK_PTR(OCI_IPC_VOID, id, FALSE);
OCI_CHECK_PTR(OCI_IPC_VOID, len, FALSE);
if (msg->id != NULL)
{
ub4 raw_len = 0;
raw_len = OCIRawSize(msg->typinf->con->env, msg->id);
if (*len > raw_len)
{
*len = raw_len;
}
memcpy(id, OCIRawPtr(msg->typinf->con->env, msg->id), (size_t) (*len));
}
else
{
*len = 0;
}
OCI_RESULT(res);
return res;
}
boolean OCI_API OCI_MsgGetRaw
(
OCI_Msg *msg,
void *raw,
unsigned int *size
)
{
unsigned int raw_size = 0;
OCI_CHECK_PTR(OCI_IPC_MSG, msg, FALSE);
OCI_CHECK_PTR(OCI_IPC_VOID, raw, FALSE);
OCI_CHECK_PTR(OCI_IPC_VOID, size, FALSE);
OCI_CHECK_COMPAT(msg->typinf->con, msg->typinf->tcode == OCI_UNKNOWN, FALSE);
if ((msg->payload != NULL) && (msg->ind != OCI_IND_NULL))
{
raw_size = OCIRawSize(msg->typinf->con->env, (OCIRaw *) msg->payload);
if (*size > raw_size)
{
*size = raw_size;
}
memcpy(raw, OCIRawPtr(msg->typinf->con->env, msg->payload), (size_t) (*size));
}
else
{
*size = 0;
}
OCI_RESULT(TRUE);
return TRUE;
}
/* ODCIIndexClose function */
OCINumber *qxiqtbspc(
OCIExtProcContext *ctx,
qxiqtim *self,
qxiqtin *self_ind,
ODCIEnv *env,
ODCIEnv_ind *env_ind)
{
sword status;
OCIEnv *envhp = (OCIEnv *) 0; /* env. handle */
OCISvcCtx *svchp = (OCISvcCtx *) 0; /* service handle */
OCIError *errhp = (OCIError *) 0; /* error handle */
OCISession *usrhp = (OCISession *) 0; /* user handle */
qxiqtcx *icx = (qxiqtcx *) 0; /* state to be saved for later calls */
int retval = (int) ODCI_SUCCESS;
OCINumber *rval = (OCINumber *)0;
ub1 *key; /* key to retrieve context */
ub4 keylen; /* length of key */
if (qxiqtce(ctx, errhp, OCIExtProcGetEnv(ctx, &envhp, &svchp, &errhp)))
return(rval);
/* set up return code */
rval = (OCINumber *)OCIExtProcAllocCallMemory(ctx, sizeof(OCINumber));
if (qxiqtce(ctx, errhp, OCINumberFromInt(errhp, (dvoid *)&retval,
sizeof(retval),
OCI_NUMBER_SIGNED, rval)))
return(rval);
/* get the user handle */
if (qxiqtce(ctx, errhp, OCIAttrGet((dvoid *)svchp, (ub4)OCI_HTYPE_SVCCTX,
(dvoid *)&usrhp, (ub4 *)0,
(ub4)OCI_ATTR_SESSION, errhp)))
return(rval);
/********************************/
/* Retrieve context using key */
/********************************/
key = OCIRawPtr(envhp, self->sctx_qxiqtim);
keylen = OCIRawSize(envhp, self->sctx_qxiqtim);
if (qxiqtce(ctx, errhp, OCIContextGetValue((dvoid *)usrhp, errhp,
key, (ub1)keylen,
(dvoid **)&(icx))))
return(rval);
/* Free handles and memory */
if (qxiqtce(ctx, errhp, OCIHandleFree((dvoid *)icx->stmthp,
(ub4)OCI_HTYPE_STMT)))
return(rval);
if (qxiqtce(ctx, errhp, OCIMemoryFree((dvoid *)usrhp, errhp, (dvoid *)icx)))
return(rval);
return(rval);
}
boolean OCI_API OCI_MsgGetOriginalID
(
OCI_Msg *msg,
void *id,
unsigned int *len
)
{
boolean res = TRUE;
OCIRaw *value = NULL;
OCI_CHECK_PTR(OCI_IPC_MSG, msg, FALSE);
OCI_CHECK_PTR(OCI_IPC_VOID, id, FALSE);
OCI_CHECK_PTR(OCI_IPC_VOID, len, FALSE);
OCI_CALL2
(
res, msg->typinf->con,
OCIAttrGet((dvoid *) msg->proph,
(ub4 ) OCI_DTYPE_AQMSG_PROPERTIES,
(dvoid *) &value,
(ub4 *) NULL,
(ub4 ) OCI_ATTR_ORIGINAL_MSGID,
msg->typinf->con->err)
)
if (value != NULL)
{
ub4 raw_len = 0;
raw_len = OCIRawSize(msg->typinf->con->env, value);
if (*len > raw_len)
{
*len = raw_len;
}
memcpy(id, OCIRawPtr(msg->typinf->con->env, value), (size_t) (*len));
}
else
{
*len = 0;
}
OCI_RESULT(res);
return res;
}
boolean OCI_API OCI_DequeueGetRelativeMsgID
(
OCI_Dequeue *dequeue,
void *id,
unsigned int *len
)
{
boolean res = TRUE;
OCIRaw *value = NULL;
OCI_CHECK_PTR(OCI_IPC_DEQUEUE, dequeue, FALSE);
OCI_CHECK_PTR(OCI_IPC_VOID, id, FALSE);
OCI_CHECK_PTR(OCI_IPC_VOID, len, FALSE);
OCI_CALL2
(
res, dequeue->typinf->con,
OCIAttrGet((dvoid *) dequeue->opth,
(ub4 ) OCI_DTYPE_AQDEQ_OPTIONS,
(dvoid *) &value,
(ub4 *) NULL,
(ub4 ) OCI_ATTR_DEQ_MSGID,
dequeue->typinf->con->err)
)
if (value != NULL)
{
ub4 raw_len = OCIRawSize(dequeue->typinf->con->env, value);
if (*len > raw_len)
*len = raw_len;
memcpy(id, OCIRawPtr(dequeue->typinf->con->env, value), (size_t) (*len));
}
else
{
*len = 0;
}
OCI_RESULT(res);
return res;
}
/* ODCIIndexFetch function */
OCINumber *qxiqtbspf(
OCIExtProcContext *ctx,
qxiqtim *self,
qxiqtin *self_ind,
OCINumber *nrows,
short nrows_ind,
OCIArray **rids,
short *rids_ind,
ODCIEnv *env,
ODCIEnv_ind *env_ind)
{
sword status;
OCIEnv *envhp = (OCIEnv *) 0; /* env. handle */
OCISvcCtx *svchp = (OCISvcCtx *) 0; /* service handle */
OCIError *errhp = (OCIError *) 0; /* error handle */
OCISession *usrhp = (OCISession *) 0; /* user handle */
qxiqtcx *icx = (qxiqtcx *) 0; /* state to be saved for later calls */
int idx = 1;
int nrowsval;
OCIArray *ridarrp = *rids; /* rowid collection */
OCIString *ridstr = (OCIString *)0;
int done = 0;
int retval = (int)ODCI_SUCCESS;
OCINumber *rval = (OCINumber *)0;
ub1 *key; /* key to retrieve context */
ub4 keylen; /* length of key */
/*******************/
/* Get OCI handles */
/*******************/
if (qxiqtce(ctx, errhp, OCIExtProcGetEnv(ctx, &envhp, &svchp, &errhp)))
return(rval);
/* set up return code */
rval = (OCINumber *)OCIExtProcAllocCallMemory(ctx, sizeof(OCINumber));
if (qxiqtce(ctx, errhp,
OCINumberFromInt(errhp, (dvoid *)&retval, sizeof(retval),
OCI_NUMBER_SIGNED, rval)))
return(rval);
/* get the user handle */
if (qxiqtce(ctx, errhp, OCIAttrGet((dvoid *)svchp, (ub4)OCI_HTYPE_SVCCTX,
(dvoid *)&usrhp, (ub4 *)0,
(ub4)OCI_ATTR_SESSION, errhp)))
return(rval);
/********************************/
/* Retrieve context from key */
/********************************/
key = OCIRawPtr(envhp, self->sctx_qxiqtim);
keylen = OCIRawSize(envhp, self->sctx_qxiqtim);
if (qxiqtce(ctx, errhp, OCIContextGetValue((dvoid *)usrhp, errhp,
key, (ub1)keylen,
(dvoid **)&(icx))))
return(rval);
/* get value of nrows */
if (qxiqtce(ctx, errhp, OCINumberToInt(errhp, nrows,
sizeof(nrowsval),
OCI_NUMBER_SIGNED,
(dvoid *)&nrowsval)))
return(rval);
/****************/
/* Fetch rowids */
/****************/
while (!done)
{
if (idx > nrowsval)
done = 1;
else
{
status = OCIStmtFetch(icx->stmthp, errhp, (ub4)1, (ub2) 0,
(ub4)OCI_DEFAULT);
if (status == OCI_NO_DATA)
{
short col_ind = OCI_IND_NULL;
/* have to create dummy oci string */
OCIStringAssignText(envhp, errhp, (text *)"dummy",
(ub2)5, &ridstr);
/* append null element to collection */
if (qxiqtce(ctx, errhp, OCICollAppend(envhp, errhp,
(dvoid *)ridstr,
(dvoid *)&col_ind,
(OCIColl *)ridarrp)))
return(rval);
done = 1;
}
else if (status == OCI_SUCCESS)
{
OCIStringAssignText(envhp, errhp, (text *)icx->ridp,
(ub2)18, (OCIString **)&ridstr);
/* append rowid to collection */
if (qxiqtce(ctx, errhp, OCICollAppend(envhp, errhp,
(dvoid *)ridstr,
(dvoid *)0,
(OCIColl *)ridarrp)))
return(rval);
idx++;
}
else if (qxiqtce(ctx, errhp, status))
return(rval);
}
}
/* free ridstr finally */
if (ridstr &&
(qxiqtce(ctx, errhp, OCIStringResize(envhp, errhp, (ub4)0,
&ridstr))))
return(rval);
*rids_ind = OCI_IND_NOTNULL;
return(rval);
}
/* ODCIIndexStart function */
OCINumber *qxiqtbsps(
OCIExtProcContext *ctx,
qxiqtim *sctx,
qxiqtin *sctx_ind,
ODCIIndexInfo *ix,
ODCIIndexInfo_ind *ix_ind,
ODCIPredInfo *pr,
ODCIPredInfo_ind *pr_ind,
ODCIQueryInfo *qy,
ODCIQueryInfo_ind *qy_ind,
OCINumber *strt,
short strt_ind,
OCINumber *stop,
short stop_ind,
char *cmpval,
short cmpval_ind,
ODCIEnv *env,
ODCIEnv_ind *env_ind)
{
sword status;
OCIEnv *envhp = (OCIEnv *) 0; /* env. handle */
OCISvcCtx *svchp = (OCISvcCtx *) 0; /* service handle */
OCIError *errhp = (OCIError *) 0; /* error handle */
OCISession *usrhp = (OCISession *) 0; /* user handle */
qxiqtcx *icx = (qxiqtcx *) 0; /* state to be saved for later calls */
int strtval; /* start bound */
int stopval; /* stop bound */
int errnum = 29400; /* choose some oracle error number */
char errmsg[512]; /* error message buffer */
size_t errmsglen; /* Length of error message */
char relop[3]; /* relational operator used in sql stmt */
char selstmt[2000]; /* sql select statement */
int retval = (int)ODCI_SUCCESS; /* return from this function */
OCINumber *rval = (OCINumber *)0;
ub4 key; /* key value set in "sctx" */
ub1 *rkey; /* key to retrieve context */
ub4 rkeylen; /* length of key */
ODCIColInfo *colinfo; /* column info */
ODCIColInfo_ind *colinfo_ind;
boolean exists = TRUE;
int partiden; /* table partition iden */
/* Get oci handles */
if (qxiqtce(ctx, errhp, OCIExtProcGetEnv(ctx, &envhp, &svchp, &errhp)))
return(rval);
/* set up return code */
rval = (OCINumber *)OCIExtProcAllocCallMemory(ctx, sizeof(OCINumber));
if (qxiqtce(ctx, errhp, OCINumberFromInt(errhp, (dvoid *)&retval,
sizeof(retval),
OCI_NUMBER_SIGNED, rval)))
return(rval);
/* get the user handle */
if (qxiqtce(ctx, errhp, OCIAttrGet((dvoid *)svchp, (ub4)OCI_HTYPE_SVCCTX,
(dvoid *)&usrhp, (ub4 *)0,
(ub4)OCI_ATTR_SESSION,
errhp)))
return(rval);
/**********************************************/
/* Allocate memory to hold index scan context */
/**********************************************/
if (sctx_ind ->atomic_qxiqtin == OCI_IND_NULL ||
sctx_ind ->scind_qxiqtin == OCI_IND_NULL)
{
if (qxiqtce(ctx, errhp, OCIMemoryAlloc((dvoid *)usrhp, errhp,
(dvoid **)&icx,
OCI_DURATION_STATEMENT,
(ub4)(sizeof(qxiqtcx)),
OCI_MEMORY_CLEARED)))
return(rval);
icx->stmthp = (OCIStmt *)0;
icx->defnp = (OCIDefine *)0;
icx->bndp = (OCIBind *)0;
}
else
{
/*************************/
/* Retrieve scan context */
/*************************/
rkey = OCIRawPtr(envhp, sctx->sctx_qxiqtim);
rkeylen = OCIRawSize(envhp, sctx->sctx_qxiqtim);
if (qxiqtce(ctx, errhp, OCIContextGetValue((dvoid *)usrhp, errhp,
rkey, (ub1)rkeylen,
(dvoid **)&(icx))))
return(rval);
}
/***********************************/
/* Check that the bounds are valid */
/***********************************/
/* convert from oci numbers to native numbers */
if (qxiqtce(ctx, errhp, OCINumberToInt(errhp, strt,
sizeof(strtval),
OCI_NUMBER_SIGNED,
(dvoid *)&strtval)))
return(rval);
if (qxiqtce(ctx, errhp, OCINumberToInt(errhp, stop,
sizeof(stopval),
OCI_NUMBER_SIGNED,
(dvoid *)&stopval)))
return(rval);
/* verify that strtval/stopval are both either 0 or 1 */
if (!(((strtval == 0) && (stopval == 0)) ||
((strtval == 1) && (stopval == 1))))
{
strcpy(errmsg, (char *)"Incorrect predicate for sbtree operator");
errmsglen = (size_t)strlen(errmsg);
if (OCIExtProcRaiseExcpWithMsg(ctx, errnum, (text *)errmsg, errmsglen)
!= OCIEXTPROC_SUCCESS)
/* Use cartridge error services here */;
return(rval);
}
/*********************************************/
/* Generate the SQL statement to be executed */
/*********************************************/
if (memcmp((dvoid *)OCIStringPtr(envhp, pr->ObjectName), (dvoid *)"EQ", 2)
== 0)
if (strtval == 1)
strcpy(relop, (char *)"=");
else
strcpy(relop, (char *)"!=");
else if (memcmp((dvoid *)OCIStringPtr(envhp, pr->ObjectName), (dvoid *)"LT",
2) == 0)
if (strtval == 1)
strcpy(relop, (char *)"<");
else
strcpy(relop, (char *)">=");
else
if (strtval == 1)
strcpy(relop, (char *)">");
else
strcpy(relop, (char *)"<=");
if (ix_ind->IndexPartitionIden == OCI_IND_NULL)
(void)sprintf(selstmt, "select f2 from %s.%s_sbtree where f1 %s :val",
OCIStringPtr(envhp, ix->IndexSchema),
OCIStringPtr(envhp, ix->IndexName), relop);
else
{
if (qxiqtce(ctx, errhp, OCICollGetElem(envhp, errhp,
(OCIColl *)ix->IndexCols, (sb4)0, &exists,
(void **) &colinfo, (void **) &colinfo_ind)))
return(rval);
(void)sprintf(selstmt, "select f2 from %s.%s_sbtree partition (DATAOBJ_TO_PARTITION(%s, :partiden)) where f1 %s :val",
OCIStringPtr(envhp, ix->IndexSchema),
OCIStringPtr(envhp, ix->IndexName),
OCIStringPtr(envhp, colinfo->TableName), relop);
}
/***********************************/
/* Parse, bind, define and execute */
/***********************************/
if (sctx_ind ->atomic_qxiqtin == OCI_IND_NULL ||
sctx_ind ->scind_qxiqtin == OCI_IND_NULL)
{
/* allocate stmt handle */
if (qxiqtce(ctx, errhp, OCIHandleAlloc((dvoid *)envhp,
(dvoid **)&(icx->stmthp),
(ub4)OCI_HTYPE_STMT,
(size_t)0, (dvoid **)0)))
return(rval);
}
/* prepare the statement */
if (qxiqtce(ctx, errhp, OCIStmtPrepare(icx->stmthp, errhp,
(text *)selstmt,
(ub4)strlen(selstmt),
OCI_NTV_SYNTAX,
OCI_DEFAULT)))
return(rval);
if (ix_ind->IndexPartitionIden != OCI_IND_NULL)
{
/* Convert partiden to integer from OCINumber */
if (qxiqtce(ctx, errhp, OCINumberToInt(errhp,
&(colinfo->TablePartitionIden),
sizeof(partiden),
OCI_NUMBER_SIGNED,
( void *)&partiden)))
return(rval);
/* Set up bind for partiden */
if (qxiqtce(ctx, errhp, OCIBindByName(icx->stmthp, &(icx->bndp), errhp,
(text *)":partiden",
sizeof(":partiden")-1,
(dvoid *)&partiden,
(sb4)(sizeof(partiden)),
(ub2)SQLT_INT,
(dvoid *)0, (ub2 *)0,
(ub2 *)0, (ub4)0, (ub4 *)0,
(ub4)OCI_DEFAULT)))
return(rval);
}
/* Set up bind for compare value */
if (qxiqtce(ctx, errhp, OCIBindByName(icx->stmthp, &(icx->bndp),errhp,
(text *)":val",
sizeof(":val")-1,
(dvoid *)cmpval,
(sb4)(strlen(cmpval)+1),
(ub2)SQLT_STR,
(dvoid *)0, (ub2 *)0,
(ub2 *)0, (ub4)0, (ub4 *)0,
(ub4)OCI_DEFAULT)))
return(rval);
/* Set up define */
if (qxiqtce(ctx, errhp, OCIDefineByPos(icx->stmthp, &(icx->defnp),
errhp, (ub4)1,
(dvoid *)(icx->ridp),
(sb4) sizeof(icx->ridp),
(ub2)SQLT_STR,
(dvoid *)0, (ub2 *)0,
(ub2 *)0, (ub4)OCI_DEFAULT)))
return(rval);
/* execute */
if (qxiqtce(ctx, errhp, OCIStmtExecute(svchp, icx->stmthp,
errhp, (ub4)0,
(ub4)0, (OCISnapshot *)NULL,
(OCISnapshot *)NULL,
(ub4)OCI_DEFAULT)))
return(rval);
/************************************/
/* Set index context to be returned */
/************************************/
if (sctx_ind ->atomic_qxiqtin == OCI_IND_NULL ||
sctx_ind ->scind_qxiqtin == OCI_IND_NULL)
{
/* generate a key */
if (qxiqtce(ctx, errhp, OCIContextGenerateKey((dvoid *)usrhp,
errhp, &key)))
return(rval);
/* set the memory address of the struct to be saved in the context */
if (qxiqtce(ctx, errhp, OCIContextSetValue((dvoid *)usrhp, errhp,
OCI_DURATION_STATEMENT,
(ub1 *)&key,
(ub1)sizeof(key),
(dvoid *)icx)))
return(rval);
/* set the key as the member of "sctx" */
if (qxiqtce(ctx, errhp, OCIRawAssignBytes(envhp, errhp,
(ub1 *)&key,
(ub4)sizeof(key),
&(sctx->sctx_qxiqtim))))
return(rval);
sctx_ind->atomic_qxiqtin = OCI_IND_NOTNULL;
sctx_ind->scind_qxiqtin = OCI_IND_NOTNULL;
return(rval);
}
return(rval);
}