OCI_HashTable * OCI_API OCI_HashCreate
(
unsigned int size,
unsigned int type
)
{
OCI_HashTable *table = NULL;
OCI_LIB_CALL_ENTER(OCI_HashTable*, table)
OCI_CHECK_ENUM_VALUE(NULL, NULL, type, HashTypeValues, OTEXT("Hash type"));
/* allocate table structure */
table = (OCI_HashTable *) OCI_MemAlloc(OCI_IPC_HASHTABLE, sizeof(*table), (size_t) 1, TRUE);
/* set up attributes and allocate internal array of hash entry pointers */
if (table)
{
table->type = type;
table->size = 0;
table->count = 0;
table->items = (OCI_HashEntry **) OCI_MemAlloc(OCI_IPC_HASHENTRY_ARRAY,
sizeof(*table->items),
(size_t) size, TRUE);
if (table->items)
{
table->size = size;
call_status = TRUE;
}
}
if (call_status)
{
call_retval = table;
}
else if (table)
{
OCI_HashFree(table);
}
OCI_LIB_CALL_EXIT()
}
boolean OCI_API OCI_QueueCreate
(
OCI_Connection *con,
const otext *queue_name,
const otext *queue_table,
unsigned int queue_type,
unsigned int max_retries,
unsigned int retry_delay,
unsigned int retention_time,
boolean dependency_tracking,
const otext *comment
)
{
OCI_Statement *st = NULL;
OCI_LIB_CALL_ENTER(boolean, FALSE)
OCI_CHECK_PTR(OCI_IPC_CONNECTION, con)
OCI_CHECK_PTR(OCI_IPC_STRING, queue_name)
OCI_CHECK_PTR(OCI_IPC_STRING, queue_table)
OCI_CHECK_ENUM_VALUE(con, NULL, queue_type, QueueTypeValues, OTEXT("Queue type"))
st = OCI_StatementCreate(con);
if (st)
{
call_status = OCI_Prepare
(
st,
OTEXT("DECLARE ")
OTEXT(" v_dependency_tracking BOOLEAN := FALSE; ")
OTEXT("BEGIN ")
OTEXT(" IF (:dependency_tracking = 1) then ")
OTEXT(" v_dependency_tracking := TRUE; ")
OTEXT(" END IF; ")
OTEXT(" DBMS_AQADM.CREATE_QUEUE ")
OTEXT(" (")
OTEXT(" queue_name => :queue_name, ")
OTEXT(" queue_table => :queue_table, ")
OTEXT(" queue_type => :queue_type, ")
OTEXT(" max_retries => :max_retries, ")
OTEXT(" retry_delay => :retry_delay, ")
OTEXT(" retention_time => :retention_time, ")
OTEXT(" dependency_tracking => v_dependency_tracking, ")
OTEXT(" comment => :comment ")
OTEXT(" ); ")
OTEXT("END; ")
);
call_status = call_status && OCI_BindString(st, OTEXT(":queue_name"), (otext *) queue_name, 0);
call_status = call_status && OCI_BindString(st, OTEXT(":queue_table"), (otext *) queue_table, 0);
call_status = call_status && OCI_BindUnsignedInt(st, OTEXT(":queue_type"), &queue_type);
call_status = call_status && OCI_BindUnsignedInt(st, OTEXT(":max_retries"), &max_retries);
call_status = call_status && OCI_BindUnsignedInt(st, OTEXT(":retry_delay"), &retry_delay);
call_status = call_status && OCI_BindUnsignedInt(st, OTEXT(":retention_time"), &retention_time);
call_status = call_status && OCI_BindInt(st, OTEXT(":dependency_tracking"), &dependency_tracking);
call_status = call_status && OCI_BindString(st, OTEXT(":comment"), (otext *) (comment ? comment : OCI_STRING_EMPTY), 0);
call_status = call_status && OCI_Execute(st);
OCI_StatementFree(st);
}
call_retval = call_status;
OCI_LIB_CALL_EXIT()
}
boolean OCI_API OCI_QueueTableCreate
(
OCI_Connection *con,
const otext *queue_table,
const otext *queue_payload_type,
const otext *storage_clause,
const otext *sort_list,
boolean multiple_consumers,
unsigned int message_grouping,
const otext *comment,
unsigned int primary_instance,
unsigned int secondary_instance,
const otext *compatible
)
{
OCI_Statement *st = NULL;
OCI_LIB_CALL_ENTER(boolean, FALSE)
OCI_CHECK_PTR(OCI_IPC_CONNECTION, con)
OCI_CHECK_PTR(OCI_IPC_STRING, queue_table)
OCI_CHECK_PTR(OCI_IPC_STRING, queue_payload_type)
OCI_CHECK_ENUM_VALUE(con, NULL, message_grouping, GroupingModeValues, OTEXT("Grouping mode"))
st = OCI_StatementCreate(con);
if (st)
{
call_status = OCI_Prepare
(
st,
OTEXT("DECLARE ")
OTEXT(" v_multiple_consumers BOOLEAN := FALSE; ")
OTEXT("BEGIN ")
OTEXT(" IF (:multiple_consumers = 1) then ")
OTEXT(" v_multiple_consumers := TRUE; ")
OTEXT(" END IF; ")
OTEXT(" DBMS_AQADM.CREATE_QUEUE_TABLE ")
OTEXT(" (")
OTEXT(" queue_table => :queue_table, ")
OTEXT(" queue_payload_type => :queue_payload_type, ")
OTEXT(" storage_clause => :storage_clause, ")
OTEXT(" sort_list => :sort_list, ")
OTEXT(" multiple_consumers => v_multiple_consumers, ")
OTEXT(" message_grouping => :message_grouping, ")
OTEXT(" comment => :comment, ")
OTEXT(" primary_instance => :primary_instance, ")
OTEXT(" secondary_instance => :secondary_instance, ")
OTEXT(" compatible => :compatible")
OTEXT(" ); ")
OTEXT("END; ")
);
call_status = call_status && OCI_BindString(st, OTEXT(":queue_table"), (otext *) queue_table, 0);
call_status = call_status && OCI_BindString(st, OTEXT(":queue_payload_type"), (otext *) queue_payload_type, 0);
call_status = call_status && OCI_BindString(st, OTEXT(":storage_clause"), (otext *) (storage_clause ? storage_clause : OCI_STRING_EMPTY), 0);
call_status = call_status && OCI_BindString(st, OTEXT(":sort_list"), (otext *) (sort_list ? sort_list : OCI_STRING_EMPTY), 0);
call_status = call_status && OCI_BindInt(st, OTEXT(":multiple_consumers"), &multiple_consumers);
call_status = call_status && OCI_BindUnsignedInt(st, OTEXT(":message_grouping"), &message_grouping);
call_status = call_status && OCI_BindString(st, OTEXT(":comment"), (otext *)( comment ? comment : OCI_STRING_EMPTY), 0);
call_status = call_status && OCI_BindUnsignedInt(st, OTEXT(":primary_instance"), &primary_instance);
call_status = call_status && OCI_BindUnsignedInt(st, OTEXT(":secondary_instance"), &secondary_instance);
call_status = call_status && OCI_BindString(st, OTEXT(":compatible"), (otext *) (compatible ? compatible : OCI_STRING_EMPTY), 0);
call_status = call_status && OCI_Execute(st);
OCI_StatementFree(st);
}
call_retval = call_status;
OCI_LIB_CALL_EXIT()
}
