php-src/ext/oci8/oci8.c
Antony Dovgal 2a128504a2 destroy session after destroying error handle
SQLT_CHR is allowed too
2005-06-13 09:30:49 +00:00

7160 lines
172 KiB
C

/*
+----------------------------------------------------------------------+
| PHP Version 5 |
+----------------------------------------------------------------------+
| Copyright (c) 1997-2004 The PHP Group |
+----------------------------------------------------------------------+
| This source file is subject to version 3.0 of the PHP license, |
| that is bundled with this package in the file LICENSE, and is |
| available through the world-wide-web at the following url: |
| http://www.php.net/license/3_0.txt. |
| If you did not receive a copy of the PHP license and are unable to |
| obtain it through the world-wide-web, please send a note to |
| license@php.net so we can mail you a copy immediately. |
+----------------------------------------------------------------------+
| Authors: Stig Sæther Bakken <ssb@php.net> |
| Thies C. Arntzen <thies@thieso.net> |
| Maxim Maletsky <maxim@maxim.cx> |
| |
| Collection support by Andy Sautins <asautins@veripost.net> |
| Temporary LOB support by David Benson <dbenson@mancala.com> |
| ZTS per process OCIPLogon by Harald Radi <harald.radi@nme.at> |
+----------------------------------------------------------------------+
*/
/* $Id$ */
/* TODO list:
*
* - php.ini flags
* especialliy important for things like oci_ping
* allowpconns
* timeout
* maxlifetime
* maxpconns
* - Change return-value for OCIFetch*() (1-row read, 0-Normal end, false-error)
* - Error mode (print or shut up?)
* - binding of arrays
* - Character sets for NCLOBS
* - split the module into an upper (php-callable) and lower (c-callable) layer!
* - remove all XXXs
* - clean up and documentation
* - make OCIInternalDebug accept a mask of flags....
* - have one ocifree() call.
* - make it possible to have persistent statements?
* - failover
* - change all the lob stuff to work without classes (optional)!
* - make sure that the callbacks terminate the strings with \0
* - cleanup the ociexecute semantics for refcursors
* - make $lob->savefile use O_BINARY
* - line 2728: ub4 length = -1; needs fixing
* - delay OCIInitialize() as far as we can.
* - add PHP Array <-> OCICollection conversion
* - add Collection iterator object for INDEX BY tables
* - make auto-rollback only happen if we have an outstanding transaction
* - implement ocidisconnect
* - add OCI9-specific functions and separate them from OCI8 with ifdefs
*/
/* {{{ includes & stuff */
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include "php.h"
#include "ext/standard/info.h"
#include "php_ini.h"
#if HAVE_OCI8
#include "php_oci8.h"
/* True globals, only used by thread safe functions */
static TsHashTable *persistent_servers;
static TsHashTable *persistent_sessions;
static long num_persistent = 0;
static long num_links = 0;
/* True globals, no need for thread safety */
static int le_conn;
static int le_stmt;
static int le_desc;
#ifdef PHP_OCI8_HAVE_COLLECTIONS
static int le_coll;
#endif
static int le_server;
static int le_session;
static zend_class_entry *oci_lob_class_entry_ptr;
#ifdef PHP_OCI8_HAVE_COLLECTIONS
static zend_class_entry *oci_coll_class_entry_ptr;
#endif
#ifndef SQLT_BFILEE
#define SQLT_BFILEE 114
#endif
#ifndef SQLT_CFILEE
#define SQLT_CFILEE 115
#endif
#define SAFE_STRING(s) ((s)?(s):"")
#ifdef ZTS
MUTEX_T mx_lock;
#define mutex_alloc(mutex) mutex = tsrm_mutex_alloc()
#define mutex_free(mutex) tsrm_mutex_free(mutex)
#define mutex_lock(mutex) tsrm_mutex_lock(mutex)
#define mutex_unlock(mutex) tsrm_mutex_unlock(mutex)
#define thread_id() tsrm_thread_id()
#else
#define mutex_alloc(mutex)
#define mutex_free(mutex)
#define mutex_lock(mutex)
#define mutex_unlock(mutex)
#define thread_id() 1
#endif
/* dirty marcos to make sure we _never_ call oracle-functions recursivly
*
* i'm well aware that we should _never_ call exit directly - this core is for
* pure testing and commented out - as you can see;-)
* thies@thieso.net 20010723
*/
#define CALL_OCI(call) \
{ \
if (OCI(in_call)) { \
php_error_docref(NULL TSRMLS_CC, E_WARNING, "OCI8 Recursive call!\n"); \
exit(-1); \
} else { \
OCI(in_call)=1; \
call; \
OCI(in_call)=0; \
} \
}
#define CALL_OCI_RETURN(retcode,call) \
{ \
if (OCI(in_call)) { \
retcode=-1; \
php_error_docref(NULL TSRMLS_CC, E_WARNING, "OCI8 Recursive call!\n"); \
exit(-1); \
} else { \
OCI(in_call)=1; \
retcode=call; \
OCI(in_call)=0; \
} \
}
#include <fcntl.h>
#ifndef O_BINARY
#define O_BINARY 0
#endif
/* }}} */
/* {{{ thread safety stuff */
#ifdef ZTS
int oci_globals_id;
#else
PHP_OCI_API php_oci_globals oci_globals;
#endif
/* }}} */
/* {{{ dynamically loadable module stuff */
#ifdef COMPILE_DL_OCI8
ZEND_GET_MODULE(oci8)
# ifdef PHP_WIN32
# include "zend_arg_defs.c"
# endif
#endif /* COMPILE_DL */
/* }}} */
/* {{{ startup/shutdown/info/internal function prototypes */
PHP_MINIT_FUNCTION(oci);
PHP_RINIT_FUNCTION(oci);
PHP_MSHUTDOWN_FUNCTION(oci);
PHP_RSHUTDOWN_FUNCTION(oci);
PHP_MINFO_FUNCTION(oci);
static ub4 oci_handle_error(oci_connection *connection, ub4 errcode);
static ub4 oci_error(OCIError *err_p, char *what, sword status);
static int oci_ping(oci_server *server);
static void oci_debug(const char *format, ...);
static void _oci_conn_list_dtor(oci_connection *connection TSRMLS_DC);
static void _oci_stmt_list_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC);
static void _oci_descriptor_list_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC);
#ifdef PHP_OCI8_HAVE_COLLECTIONS
static void _oci_coll_list_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC);
#endif
static void _oci_server_list_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC);
static void _oci_session_list_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC);
static void php_oci_free_conn_list(zend_rsrc_list_entry *rsrc TSRMLS_DC);
static void _oci_column_hash_dtor(void *data);
static void _oci_define_hash_dtor(void *data);
static void _oci_bind_hash_dtor(void *data);
static void _oci_desc_flush_hash_dtor(void *data);
static oci_connection *oci_get_conn(zval ** TSRMLS_DC);
static oci_statement *oci_get_stmt(zval ** TSRMLS_DC);
static oci_descriptor *oci_get_desc(int TSRMLS_DC);
#ifdef PHP_OCI8_HAVE_COLLECTIONS
/* Questionable name. Very close to oci_get_col */
static oci_collection *oci_get_coll(int TSRMLS_DC);
#endif
static oci_out_column *oci_get_col(oci_statement *, int, zval **);
static int _oci_make_zval(zval *, oci_statement *, oci_out_column *, char *, int mode TSRMLS_DC);
static oci_statement *oci_parse(oci_connection *, char *, int);
static int oci_execute(oci_statement *, char *, ub4 mode);
static int oci_fetch(oci_statement *, ub4, char * TSRMLS_DC);
static int oci_lobgetlen(oci_connection *, oci_descriptor *, ub4 *length);
static int oci_loadlob(oci_connection *, oci_descriptor *, char **, ub4 *length);
static int oci_readlob(oci_connection *, oci_descriptor *, char **, ub4 *len);
static int oci_setprefetch(oci_statement *statement, int size);
static void oci_do_connect(INTERNAL_FUNCTION_PARAMETERS,int persistent,int exclusive);
static oci_server *_oci_open_server(char *dbname,int persistent);
static void _oci_close_server(oci_server *server);
static oci_session *_oci_open_session(oci_server* server,char *username,char *password,int persistent,int exclusive, char *charset);
static void _oci_close_session(oci_session *session);
static sb4 oci_bind_in_callback(dvoid *, OCIBind *, ub4, ub4, dvoid **, ub4 *, ub1 *, dvoid **);
static sb4 oci_bind_out_callback(dvoid *, OCIBind *, ub4, ub4, dvoid **, ub4 **, ub1 *, dvoid **, ub2 **);
#if 0
static sb4 oci_failover_callback(dvoid *svchp,dvoid* envhp,dvoid *fo_ctx,ub4 fo_type, ub4 fo_event);
#endif
static int oci_lob_flush(oci_descriptor *, int flush_flag TSRMLS_DC);
/* }}} */
/* {{{ extension macros
*/
#define OCI_GET_STMT(statement,value) \
statement = oci_get_stmt(value TSRMLS_CC); \
if (statement == NULL) { \
RETURN_FALSE; \
}
#define OCI_GET_CONN(connection,value) \
connection = oci_get_conn(value TSRMLS_CC); \
if (connection == NULL) { \
RETURN_FALSE; \
}
#define OCI_GET_DESC(descriptor,index) \
descriptor = oci_get_desc(index TSRMLS_CC); \
if (descriptor == NULL) { \
RETURN_FALSE; \
}
#ifdef PHP_OCI8_HAVE_COLLECTIONS
#define OCI_GET_COLL(collection,index) \
collection = oci_get_coll(index TSRMLS_CC); \
if (collection == NULL) { \
RETURN_FALSE; \
}
#endif
#define IS_LOB_INTERNAL(lob) \
if (lob->type != OCI_DTYPE_LOB) { \
switch (lob->type) { \
case OCI_DTYPE_FILE: \
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "internal LOB was expected, FILE locator is given"); \
break; \
case OCI_DTYPE_ROWID: \
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "internal LOB was expected, ROWID locator is given"); \
break; \
default: \
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "internal LOB was expected, locator of unknown type is given"); \
break; \
} \
RETURN_FALSE; \
}
/* }}} */
/* {{{ extension function prototypes
*/
PHP_FUNCTION(oci_bind_by_name);
PHP_FUNCTION(oci_define_by_name);
PHP_FUNCTION(oci_field_is_null);
PHP_FUNCTION(oci_field_name);
PHP_FUNCTION(oci_field_size);
PHP_FUNCTION(oci_field_scale);
PHP_FUNCTION(oci_field_precision);
PHP_FUNCTION(oci_field_type);
PHP_FUNCTION(oci_field_type_raw);
PHP_FUNCTION(oci_execute);
PHP_FUNCTION(oci_fetch);
PHP_FUNCTION(oci_cancel);
PHP_FUNCTION(ocifetchinto);
PHP_FUNCTION(oci_fetch_object);
PHP_FUNCTION(oci_fetch_row);
PHP_FUNCTION(oci_fetch_assoc);
PHP_FUNCTION(oci_fetch_array);
PHP_FUNCTION(ocifetchstatement);
PHP_FUNCTION(oci_fetch_all);
PHP_FUNCTION(oci_free_statement);
PHP_FUNCTION(oci_internal_debug);
PHP_FUNCTION(oci_close);
PHP_FUNCTION(oci_connect);
PHP_FUNCTION(oci_new_connect);
PHP_FUNCTION(oci_pconnect);
PHP_FUNCTION(oci_error);
PHP_FUNCTION(oci_free_descriptor);
PHP_FUNCTION(oci_commit);
PHP_FUNCTION(oci_rollback);
PHP_FUNCTION(oci_new_descriptor);
PHP_FUNCTION(oci_num_fields);
PHP_FUNCTION(oci_parse);
PHP_FUNCTION(oci_new_cursor);
PHP_FUNCTION(oci_result);
PHP_FUNCTION(oci_server_version);
PHP_FUNCTION(oci_statement_type);
PHP_FUNCTION(oci_num_rows);
PHP_FUNCTION(oci_set_prefetch);
PHP_FUNCTION(oci_password_change);
PHP_FUNCTION(oci_lob_save);
PHP_FUNCTION(oci_lob_import);
PHP_FUNCTION(oci_lob_export);
PHP_FUNCTION(oci_lob_load);
PHP_FUNCTION(oci_lob_tell);
PHP_FUNCTION(oci_lob_write);
PHP_FUNCTION(oci_lob_append);
PHP_FUNCTION(oci_lob_copy);
PHP_FUNCTION(oci_lob_truncate);
PHP_FUNCTION(oci_lob_erase);
PHP_FUNCTION(oci_lob_flush);
PHP_FUNCTION(ocisetbufferinglob);
PHP_FUNCTION(ocigetbufferinglob);
PHP_FUNCTION(oci_lob_is_equal);
PHP_FUNCTION(oci_lob_rewind);
PHP_FUNCTION(oci_lob_read);
PHP_FUNCTION(oci_lob_eof);
PHP_FUNCTION(oci_lob_seek);
PHP_FUNCTION(oci_lob_size);
#ifdef HAVE_OCI8_TEMP_LOB
PHP_FUNCTION(oci_lob_write_temporary);
PHP_FUNCTION(oci_lob_close);
#endif
#ifdef PHP_OCI8_HAVE_COLLECTIONS
PHP_FUNCTION(oci_new_collection);
PHP_FUNCTION(oci_free_collection);
PHP_FUNCTION(oci_collection_append);
PHP_FUNCTION(oci_collection_element_get);
PHP_FUNCTION(oci_collection_element_assign);
PHP_FUNCTION(oci_collection_assign);
PHP_FUNCTION(oci_collection_size);
PHP_FUNCTION(oci_collection_max);
PHP_FUNCTION(oci_collection_trim);
#endif
/* }}} */
/* {{{ extension definition structures
*/
#define OCI_ASSOC 1<<0
#define OCI_NUM 1<<1
#define OCI_BOTH (OCI_ASSOC|OCI_NUM)
#define OCI_RETURN_NULLS 1<<2
#define OCI_RETURN_LOBS 1<<3
#define OCI_FETCHSTATEMENT_BY_COLUMN 1<<4
#define OCI_FETCHSTATEMENT_BY_ROW 1<<5
#define OCI_FETCHSTATEMENT_BY (OCI_FETCHSTATEMENT_BY_COLUMN | OCI_FETCHSTATEMENT_BY_ROW)
static zend_function_entry php_oci_functions[] = {
PHP_FE(oci_define_by_name, third_arg_force_ref)
PHP_FE(oci_bind_by_name, third_arg_force_ref)
PHP_FE(oci_field_is_null, NULL)
PHP_FE(oci_field_name, NULL)
PHP_FE(oci_field_size, NULL)
PHP_FE(oci_field_scale, NULL)
PHP_FE(oci_field_precision, NULL)
PHP_FE(oci_field_type, NULL)
PHP_FE(oci_field_type_raw, NULL)
PHP_FE(oci_execute, NULL)
PHP_FE(oci_cancel, NULL)
PHP_FE(oci_fetch, NULL)
PHP_FE(oci_fetch_object, NULL)
PHP_FE(oci_fetch_row, NULL)
PHP_FE(oci_fetch_assoc, NULL)
PHP_FE(oci_fetch_array, NULL)
PHP_FE(ocifetchinto, second_arg_force_ref)
PHP_FE(oci_fetch_all, second_arg_force_ref)
PHP_FE(oci_free_statement, NULL)
PHP_FE(oci_internal_debug, NULL)
PHP_FE(oci_num_fields, NULL)
PHP_FE(oci_parse, NULL)
PHP_FE(oci_new_cursor, NULL)
PHP_FE(oci_result, NULL)
PHP_FE(oci_server_version, NULL)
PHP_FE(oci_statement_type, NULL)
PHP_FE(oci_num_rows, NULL)
PHP_FE(oci_close, NULL)
PHP_FE(oci_connect, NULL)
PHP_FE(oci_new_connect, NULL)
PHP_FE(oci_pconnect, NULL)
PHP_FE(oci_error, NULL)
PHP_FE(oci_free_descriptor, NULL)
PHP_FE(oci_lob_save, NULL)
PHP_FE(oci_lob_import, NULL)
PHP_FE(oci_lob_size, NULL)
PHP_FE(oci_lob_load, NULL)
PHP_FE(oci_lob_read, NULL)
PHP_FE(oci_lob_eof, NULL)
PHP_FE(oci_lob_tell, NULL)
PHP_FE(oci_lob_truncate, NULL)
PHP_FE(oci_lob_erase, NULL)
PHP_FE(oci_lob_flush, NULL)
PHP_FE(ocisetbufferinglob, NULL)
PHP_FE(ocigetbufferinglob, NULL)
PHP_FE(oci_lob_is_equal, NULL)
PHP_FE(oci_lob_rewind, NULL)
PHP_FE(oci_lob_write, NULL)
PHP_FE(oci_lob_append, NULL)
PHP_FE(oci_lob_copy, NULL)
PHP_FE(oci_lob_export, NULL)
PHP_FE(oci_commit, NULL)
PHP_FE(oci_rollback, NULL)
PHP_FE(oci_new_descriptor, NULL)
PHP_FE(oci_set_prefetch, NULL)
PHP_FE(oci_password_change, NULL)
#ifdef PHP_OCI8_HAVE_COLLECTIONS
PHP_FE(oci_free_collection, NULL)
PHP_FE(oci_collection_append, NULL)
PHP_FE(oci_collection_element_get, NULL)
PHP_FE(oci_collection_element_assign, NULL)
PHP_FE(oci_collection_assign, NULL)
PHP_FE(oci_collection_size, NULL)
PHP_FE(oci_collection_max, NULL)
PHP_FE(oci_collection_trim, NULL)
PHP_FE(oci_new_collection, NULL)
#endif
PHP_FALIAS(oci_free_cursor, oci_free_statement, NULL)
PHP_FALIAS(ocifreecursor, oci_free_statement, NULL)
PHP_FALIAS(ocibindbyname, oci_bind_by_name, third_arg_force_ref)
PHP_FALIAS(ocidefinebyname, oci_define_by_name, third_arg_force_ref)
PHP_FALIAS(ocicolumnisnull, oci_field_is_null, NULL)
PHP_FALIAS(ocicolumnname, oci_field_name, NULL)
PHP_FALIAS(ocicolumnsize, oci_field_size, NULL)
PHP_FALIAS(ocicolumnscale, oci_field_scale, NULL)
PHP_FALIAS(ocicolumnprecision, oci_field_precision, NULL)
PHP_FALIAS(ocicolumntype, oci_field_type, NULL)
PHP_FALIAS(ocicolumntyperaw, oci_field_type_raw, NULL)
PHP_FALIAS(ociexecute, oci_execute, NULL)
PHP_FALIAS(ocicancel, oci_cancel, NULL)
PHP_FALIAS(ocifetch, oci_fetch, NULL)
PHP_FALIAS(ocifetchstatement, oci_fetch_all, second_arg_force_ref)
PHP_FALIAS(ocifreestatement, oci_free_statement, NULL)
PHP_FALIAS(ociinternaldebug, oci_internal_debug, NULL)
PHP_FALIAS(ocinumcols, oci_num_fields, NULL)
PHP_FALIAS(ociparse, oci_parse, NULL)
PHP_FALIAS(ocinewcursor, oci_new_cursor, NULL)
PHP_FALIAS(ociresult, oci_result, NULL)
PHP_FALIAS(ociserverversion, oci_server_version, NULL)
PHP_FALIAS(ocistatementtype, oci_statement_type, NULL)
PHP_FALIAS(ocirowcount, oci_num_rows, NULL)
PHP_FALIAS(ocilogoff, oci_close, NULL)
PHP_FALIAS(ocilogon, oci_connect, NULL)
PHP_FALIAS(ocinlogon, oci_new_connect, NULL)
PHP_FALIAS(ociplogon, oci_pconnect, NULL)
PHP_FALIAS(ocierror, oci_error, NULL)
PHP_FALIAS(ocifreedesc, oci_free_descriptor, NULL)
PHP_FALIAS(ocisavelob, oci_lob_save, NULL)
PHP_FALIAS(ocisavelobfile, oci_lob_import, NULL)
PHP_FALIAS(ociwritelobtofile, oci_lob_export, NULL)
PHP_FALIAS(ociloadlob, oci_lob_load, NULL)
PHP_FALIAS(ocicommit, oci_commit, NULL)
PHP_FALIAS(ocirollback, oci_rollback, NULL)
PHP_FALIAS(ocinewdescriptor, oci_new_descriptor, NULL)
PHP_FALIAS(ocisetprefetch, oci_set_prefetch, NULL)
PHP_FALIAS(ocipasswordchange, oci_password_change, NULL)
#ifdef PHP_OCI8_HAVE_COLLECTIONS
PHP_FALIAS(ocifreecollection, oci_free_collection, NULL)
PHP_FALIAS(ocinewcollection, oci_new_collection, NULL)
PHP_FALIAS(ocicollappend, oci_collection_append, NULL)
PHP_FALIAS(ocicollgetelem, oci_collection_element_get, NULL)
PHP_FALIAS(ocicollassignelem, oci_collection_element_assign, NULL)
PHP_FALIAS(ocicollsize, oci_collection_size, NULL)
PHP_FALIAS(ocicollmax, oci_collection_max, NULL)
PHP_FALIAS(ocicolltrim, oci_collection_trim, NULL)
#endif
{NULL,NULL,NULL}
};
static zend_function_entry php_oci_lob_class_functions[] = {
PHP_FALIAS(load, oci_lob_load, NULL)
PHP_FALIAS(tell, oci_lob_tell, NULL)
PHP_FALIAS(truncate, oci_lob_truncate, NULL)
PHP_FALIAS(erase, oci_lob_erase, NULL)
PHP_FALIAS(flush, oci_lob_flush, NULL)
PHP_FALIAS(setbuffering,ocisetbufferinglob, NULL)
PHP_FALIAS(getbuffering,ocigetbufferinglob, NULL)
PHP_FALIAS(rewind, oci_lob_rewind, NULL)
PHP_FALIAS(read, oci_lob_read, NULL)
PHP_FALIAS(eof, oci_lob_eof, NULL)
PHP_FALIAS(seek, oci_lob_seek, NULL)
PHP_FALIAS(write, oci_lob_write, NULL)
PHP_FALIAS(append, oci_lob_append, NULL)
PHP_FALIAS(size, oci_lob_size, NULL)
PHP_FALIAS(writetofile, oci_lob_export, NULL)
#ifdef HAVE_OCI8_TEMP_LOB
PHP_FALIAS(writetemporary, oci_lob_write_temporary, NULL)
PHP_FALIAS(close, oci_lob_close, NULL)
#endif
PHP_FALIAS(save, oci_lob_save, NULL)
PHP_FALIAS(savefile, oci_lob_import, NULL)
PHP_FALIAS(free, oci_free_descriptor, NULL)
{NULL,NULL,NULL}
};
#ifdef PHP_OCI8_HAVE_COLLECTIONS
static zend_function_entry php_oci_coll_class_functions[] = {
PHP_FALIAS(append, oci_collection_append, NULL)
PHP_FALIAS(getelem, oci_collection_element_get, NULL)
PHP_FALIAS(assignelem, oci_collection_element_assign, NULL)
PHP_FALIAS(assign, oci_collection_assign, NULL)
PHP_FALIAS(size, oci_collection_size, NULL)
PHP_FALIAS(max, oci_collection_max, NULL)
PHP_FALIAS(trim, oci_collection_trim, NULL)
PHP_FALIAS(free, oci_free_collection, NULL)
{NULL,NULL,NULL}
};
#endif
zend_module_entry oci8_module_entry = {
STANDARD_MODULE_HEADER,
"oci8", /* extension name */
php_oci_functions, /* extension function list */
PHP_MINIT(oci), /* extension-wide startup function */
PHP_MSHUTDOWN(oci), /* extension-wide shutdown function */
PHP_RINIT(oci), /* per-request startup function */
PHP_RSHUTDOWN(oci), /* per-request shutdown function */
PHP_MINFO(oci), /* information function */
NO_VERSION_YET,
STANDARD_MODULE_PROPERTIES
};
/* }}} */
/* {{{ startup, shutdown and info functions
*/
static void php_oci_init_globals(php_oci_globals *oci_globals_p TSRMLS_DC)
{
OCI(shutdown) = 0;
OCI(in_call) = 0;
CALL_OCI(
OCIEnvInit(
&OCI(pEnv),
OCI_DEFAULT,
0,
NULL
)
);
CALL_OCI(
OCIHandleAlloc(
OCI(pEnv),
(dvoid **)&OCI(pError),
OCI_HTYPE_ERROR,
0,
NULL
)
);
}
static int _sessions_pcleanup(zend_llist *session_list)
{
zend_llist_destroy(session_list);
return 1;
}
static int _session_pcleanup(oci_session *session)
{
_oci_close_session(session);
return 1;
}
static int _server_pcleanup(oci_server *server)
{
_oci_close_server(server);
return 1;
}
PHP_MINIT_FUNCTION(oci)
{
zend_class_entry oci_lob_class_entry;
#ifdef PHP_OCI8_HAVE_COLLECTIONS
zend_class_entry oci_coll_class_entry;
#endif
#ifdef HAVE_OCI8_SHARED_MODE
#ifdef PHP_OCI8_HAVE_COLLECTIONS
#define PHP_OCI_INIT_MODE_TMP OCI_SHARED | OCI_OBJECT
#else
#define PHP_OCI_INIT_MODE_TMP OCI_SHARED
#endif
#else
#ifdef PHP_OCI8_HAVE_COLLECTIONS
#define PHP_OCI_INIT_MODE_TMP OCI_DEFAULT | OCI_OBJECT
#else
#define PHP_OCI_INIT_MODE_TMP OCI_DEFAULT
#endif
#endif
#ifdef ZTS
#define PHP_OCI_INIT_MODE PHP_OCI_INIT_MODE_TMP | OCI_THREADED
#else
#define PHP_OCI_INIT_MODE PHP_OCI_INIT_MODE_TMP
#endif
mutex_alloc(mx_lock);
persistent_servers = malloc(sizeof(TsHashTable));
persistent_sessions = malloc(sizeof(TsHashTable));
zend_ts_hash_init(persistent_servers, 13, NULL, (dtor_func_t) _server_pcleanup, 1);
zend_ts_hash_init(persistent_sessions, 13, NULL, (dtor_func_t) _sessions_pcleanup, 1);
OCIInitialize(PHP_OCI_INIT_MODE, NULL, NULL, NULL, NULL);
#ifdef ZTS
ts_allocate_id(&oci_globals_id, sizeof(php_oci_globals), (ts_allocate_ctor) php_oci_init_globals, NULL);
#else
php_oci_init_globals(&oci_globals TSRMLS_CC);
#endif
le_stmt = zend_register_list_destructors_ex(_oci_stmt_list_dtor, NULL, "oci8 statement", module_number);
le_conn = zend_register_list_destructors_ex(php_oci_free_conn_list, NULL, "oci8 connection", module_number);
le_desc = zend_register_list_destructors_ex(_oci_descriptor_list_dtor, NULL, "oci8 descriptor", module_number);
#ifdef PHP_OCI8_HAVE_COLLECTIONS
le_coll = zend_register_list_destructors_ex(_oci_coll_list_dtor, NULL, "oci8 collection", module_number);
#endif
le_server = zend_register_list_destructors_ex(_oci_server_list_dtor, NULL, "oci8 server", module_number);
le_session = zend_register_list_destructors_ex(_oci_session_list_dtor, NULL, "oci8 session", module_number);
INIT_CLASS_ENTRY(oci_lob_class_entry, "OCI-Lob", php_oci_lob_class_functions);
#ifdef PHP_OCI8_HAVE_COLLECTIONS
INIT_CLASS_ENTRY(oci_coll_class_entry, "OCI-Collection", php_oci_coll_class_functions);
#endif
oci_lob_class_entry_ptr = zend_register_internal_class(&oci_lob_class_entry TSRMLS_CC);
#ifdef PHP_OCI8_HAVE_COLLECTIONS
oci_coll_class_entry_ptr = zend_register_internal_class(&oci_coll_class_entry TSRMLS_CC);
#endif
/* thies@thieso.net 990203 i do not think that we will need all of them - just in here for completeness for now! */
REGISTER_LONG_CONSTANT("OCI_DEFAULT",OCI_DEFAULT, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_DESCRIBE_ONLY",OCI_DESCRIBE_ONLY, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_COMMIT_ON_SUCCESS",OCI_COMMIT_ON_SUCCESS, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_EXACT_FETCH",OCI_EXACT_FETCH, CONST_CS | CONST_PERSISTENT);
/* for $LOB->seek() */
REGISTER_LONG_CONSTANT("OCI_SEEK_SET",OCI_SEEK_SET, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_SEEK_CUR",OCI_SEEK_CUR, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_SEEK_END",OCI_SEEK_END, CONST_CS | CONST_PERSISTENT);
/* for $LOB->flush() */
REGISTER_LONG_CONSTANT("OCI_LOB_BUFFER_FREE",OCI_LOB_BUFFER_FREE, CONST_CS | CONST_PERSISTENT);
/* for OCIBindByName (real "oci" names + short "php" names*/
REGISTER_LONG_CONSTANT("SQLT_BFILEE",SQLT_BFILEE, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("SQLT_CFILEE",SQLT_CFILEE, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("SQLT_CLOB",SQLT_CLOB, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("SQLT_BLOB",SQLT_BLOB, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("SQLT_RDD",SQLT_RDD, CONST_CS | CONST_PERSISTENT);
#ifdef PHP_OCI8_HAVE_COLLECTIONS
REGISTER_LONG_CONSTANT("OCI_B_NTY",SQLT_NTY, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("SQLT_NTY",SQLT_NTY, CONST_CS | CONST_PERSISTENT);
REGISTER_STRING_CONSTANT("OCI_SYSDATE","SYSDATE",CONST_PERSISTENT);
#endif
REGISTER_LONG_CONSTANT("OCI_B_BFILE",SQLT_BFILEE, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_B_CFILEE",SQLT_CFILEE, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_B_CLOB",SQLT_CLOB, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_B_BLOB",SQLT_BLOB, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_B_ROWID",SQLT_RDD, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_B_CURSOR",SQLT_RSET, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_B_BIN",SQLT_BIN, CONST_CS | CONST_PERSISTENT);
/* for OCIFetchStatement */
REGISTER_LONG_CONSTANT("OCI_FETCHSTATEMENT_BY_COLUMN", OCI_FETCHSTATEMENT_BY_COLUMN, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_FETCHSTATEMENT_BY_ROW", OCI_FETCHSTATEMENT_BY_ROW, CONST_CS | CONST_PERSISTENT);
/* for OCIFetchInto & OCIResult */
REGISTER_LONG_CONSTANT("OCI_ASSOC",OCI_ASSOC, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_NUM",OCI_NUM, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_BOTH",OCI_BOTH, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_RETURN_NULLS",OCI_RETURN_NULLS, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_RETURN_LOBS",OCI_RETURN_LOBS, CONST_CS | CONST_PERSISTENT);
/* for OCINewDescriptor (real "oci" names + short "php" names*/
REGISTER_LONG_CONSTANT("OCI_DTYPE_FILE",OCI_DTYPE_FILE, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_DTYPE_LOB",OCI_DTYPE_LOB, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_DTYPE_ROWID",OCI_DTYPE_ROWID, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_D_FILE",OCI_DTYPE_FILE, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_D_LOB",OCI_DTYPE_LOB, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_D_ROWID",OCI_DTYPE_ROWID, CONST_CS | CONST_PERSISTENT);
/* for OCIWriteTemporaryLob */
#ifdef HAVE_OCI8_TEMP_LOB
REGISTER_LONG_CONSTANT("OCI_TEMP_CLOB",OCI_TEMP_CLOB, CONST_CS | CONST_PERSISTENT);
REGISTER_LONG_CONSTANT("OCI_TEMP_BLOB",OCI_TEMP_BLOB, CONST_CS | CONST_PERSISTENT);
#endif
return SUCCESS;
}
/* ----------------------------------------------------------------- */
PHP_RINIT_FUNCTION(oci)
{
OCI(debug_mode) = 0; /* start "fresh" */
/* OCI(in_call) = 0; i don't think we want this! */
oci_debug("php_rinit_oci");
return SUCCESS;
}
PHP_MSHUTDOWN_FUNCTION(oci)
{
OCI(shutdown) = 1;
oci_debug("START php_mshutdown_oci");
zend_ts_hash_destroy(persistent_sessions);
zend_ts_hash_destroy(persistent_servers);
free(persistent_sessions);
free(persistent_servers);
mutex_free(mx_lock);
CALL_OCI(
OCIHandleFree(
(dvoid *) OCI(pEnv),
OCI_HTYPE_ENV
)
);
oci_debug("END php_mshutdown_oci");
return SUCCESS;
}
PHP_RSHUTDOWN_FUNCTION(oci)
{
oci_debug("START php_rshutdown_oci");
#if 0
/* XXX free all statements, rollback all outstanding transactions */
zend_ts_hash_apply(persistent_sessions, (apply_func_t) _session_cleanup TSRMLS_CC);
zend_ts_hash_apply(persistent_servers, (apply_func_t) _server_cleanup TSRMLS_CC);
#endif
oci_debug("END php_rshutdown_oci");
return SUCCESS;
}
PHP_MINFO_FUNCTION(oci)
{
char buf[32];
php_info_print_table_start();
php_info_print_table_row(2, "OCI8 Support", "enabled");
php_info_print_table_row(2, "Revision", "$Revision$");
sprintf(buf, "%ld", num_persistent);
php_info_print_table_row(2, "Active Persistent Links", buf);
sprintf(buf, "%ld", num_links);
php_info_print_table_row(2, "Active Links", buf);
#ifndef PHP_WIN32
php_info_print_table_row(2, "Oracle Version", PHP_OCI8_VERSION );
php_info_print_table_row(2, "Compile-time ORACLE_HOME", PHP_OCI8_DIR );
php_info_print_table_row(2, "Libraries Used", PHP_OCI8_SHARED_LIBADD );
#endif
#ifdef HAVE_OCI8_TEMP_LOB
php_info_print_table_row(2, "Temporary Lob support", "enabled" );
#else
php_info_print_table_row(2, "Temporary Lob support", "disabled" );
#endif
#ifdef PHP_OCI8_HAVE_COLLECTIONS
php_info_print_table_row(2, "Collections support", "enabled" );
#else
php_info_print_table_row(2, "Collections support", "disabled" );
#endif
php_info_print_table_end();
}
/* }}} */
/* {{{ _oci_define_hash_dtor()
*/
static void _oci_define_hash_dtor(void *data)
{
oci_define *define = (oci_define *) data;
oci_debug("_oci_define_hash_dtor: %s",define->name);
zval_ptr_dtor(&define->zval);
if (define->name) {
efree(define->name);
define->name = 0;
}
}
/* }}} */
/* {{{ _oci_desc_flush_hash_dtor()
*/
static void _oci_desc_flush_hash_dtor(void *data)
{
oci_descriptor *descr = *(oci_descriptor **)data;
TSRMLS_FETCH();
if (descr->buffering == 2 && (descr->type == OCI_DTYPE_LOB || descr->type == OCI_DTYPE_FILE)) {
oci_lob_flush(descr,OCI_LOB_BUFFER_FREE TSRMLS_CC);
descr->buffering = 1;
}
}
/* }}} */
/* {{{ _oci_bind_hash_dtor()
*/
static void _oci_bind_hash_dtor(void *data)
{
oci_bind *bind = (oci_bind *) data;
oci_debug("_oci_bind_hash_dtor:");
zval_ptr_dtor(&(bind->zval));
}
/* }}} */
/* {{{ _oci_bind_pre_exec()
*/
static int _oci_bind_pre_exec(void *data TSRMLS_DC)
{
oci_bind *bind = (oci_bind *) data;
/* reset all bind stuff to a normal state..-. */
bind->indicator = 0;
return 0;
}
/* }}} */
/* {{{ _oci_bind_post_exec()
*/
static int _oci_bind_post_exec(void *data TSRMLS_DC)
{
oci_bind *bind = (oci_bind *) data;
if (bind->indicator == -1) { /* NULL */
zval *val = bind->zval;
if (Z_TYPE_P(val) == IS_STRING) {
*Z_STRVAL_P(val) = '\0'; /* XXX avoid warning in debug mode */
}
zval_dtor(val);
ZVAL_NULL(val);
} else if (Z_TYPE_P(bind->zval) == IS_STRING) {
Z_STRVAL_P(bind->zval) = erealloc(Z_STRVAL_P(bind->zval), Z_STRLEN_P(bind->zval)+1);
Z_STRVAL_P(bind->zval)[ Z_STRLEN_P(bind->zval) ] = '\0';
}
return 0;
}
/* }}} */
/* {{{ _oci_column_hash_dtor()
*/
static void _oci_column_hash_dtor(void *data)
{
oci_out_column *column = (oci_out_column *) data;
TSRMLS_FETCH();
oci_debug("START _oci_column_hash_dtor: %s",column->name);
if (column->stmtid) {
zend_list_delete(column->stmtid);
}
if (column->is_descr) {
zend_list_delete(column->descid);
} else {
if (column->data) {
efree(column->data);
}
}
oci_debug("END _oci_column_hash_dtor: %s",column->name);
if (column->name) {
efree(column->name);
}
}
/* }}} */
/* {{{ _oci_stmt_list_dtor()
*/
static void _oci_stmt_list_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC)
{
oci_statement *statement = (oci_statement *)rsrc->ptr;
oci_debug("START _oci_stmt_list_dtor: id=%d last_query=\"%s\"",statement->id,SAFE_STRING(statement->last_query));
if (statement->pStmt) {
CALL_OCI(
OCIHandleFree(
statement->pStmt,
OCI_HTYPE_STMT
)
);
statement->pStmt = 0;
}
if (statement->pError) {
CALL_OCI(
OCIHandleFree(
statement->pError,
OCI_HTYPE_ERROR
)
);
statement->pError = 0;
}
if (statement->last_query) {
efree(statement->last_query);
}
if (statement->columns) {
zend_hash_destroy(statement->columns);
efree(statement->columns);
}
if (statement->binds) {
zend_hash_destroy(statement->binds);
efree(statement->binds);
}
if (statement->defines) {
zend_hash_destroy(statement->defines);
efree(statement->defines);
}
oci_debug("END _oci_stmt_list_dtor: id=%d",statement->id);
efree(statement);
}
/* }}} */
/* {{{ _oci_conn_list_dtor()
*/
static void _oci_conn_list_dtor(oci_connection *connection TSRMLS_DC)
{
/*
as the connection is "only" a in memory service context we do not disconnect from oracle.
*/
oci_debug("START _oci_conn_list_dtor: id=%d",connection->id);
if (connection->pServiceContext) {
if (connection->needs_commit) {
oci_debug("OCITransRollback");
CALL_OCI_RETURN(connection->error,
OCITransRollback(
connection->pServiceContext,
connection->pError,
(ub4)0
)
);
if (connection->error) {
oci_error(connection->pError, "failed to rollback outstanding transactions!", connection->error);
}
connection->needs_commit = 0;
} else {
oci_debug("nothing to do..");
}
CALL_OCI(
OCIHandleFree(
(dvoid *) connection->pServiceContext,
(ub4) OCI_HTYPE_SVCCTX
)
);
}
if (connection->pError) {
CALL_OCI(
OCIHandleFree(
(dvoid *) connection->pError,
(ub4) OCI_HTYPE_ERROR
)
);
}
if (connection->session && connection->session->exclusive) {
/* close associated session when destructed */
zend_list_delete(connection->session->num);
}
if (connection->descriptors) {
zend_hash_destroy(connection->descriptors);
efree(connection->descriptors);
}
oci_debug("END _oci_conn_list_dtor: id=%d",connection->id);
efree(connection);
}
/* }}} */
/* {{{ php_oci_free_conn_list
*/
static void php_oci_free_conn_list(zend_rsrc_list_entry *rsrc TSRMLS_DC)
{
oci_connection *conn = (oci_connection *)rsrc->ptr;
_oci_conn_list_dtor(conn TSRMLS_CC);
}
/* }}} */
#ifdef PHP_OCI8_HAVE_COLLECTIONS
/* {{{ _oci_coll_list_dtor()
*/
static void _oci_coll_list_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC)
{
oci_collection *coll = (oci_collection *)rsrc->ptr;
oci_debug("START _oci_coll_list_dtor: %d",coll->id);
/* Note sure if we need to free the object. Have an
oracle TAR out on this one.
OCIDescriptorFree(descr->ocidescr, descr->type); */
oci_debug("END _oci_coll_list_dtor: %d",coll->id);
efree(coll);
}
/* }}} */
#endif
/* {{{ _oci_descriptor_list_dtor()
*/
static void _oci_descriptor_list_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC)
{
oci_descriptor *descr = (oci_descriptor *)rsrc->ptr;
oci_debug("START _oci_descriptor_list_dtor: %d",descr->id);
/* flushing Lobs & Files with buffering enabled */
if ((descr->type == OCI_DTYPE_FILE || descr->type == OCI_DTYPE_LOB) && descr->buffering == 2) {
oci_debug("descriptor #%d needs to be flushed. flushing..",descr->id);
oci_lob_flush(descr,OCI_LOB_BUFFER_FREE TSRMLS_CC);
}
CALL_OCI(
OCIDescriptorFree(
descr->ocidescr,
descr->type
)
);
oci_debug("END _oci_descriptor_list_dtor: %d",descr->id);
efree(descr);
}
/* }}} */
/* {{{ _oci_server_list_dtor()
*/
static void _oci_server_list_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC)
{
#if 0
oci_server *server = (oci_server *)rsrc->ptr;
if (server->persistent)
return;
_oci_close_server(server);
#endif
}
/* }}} */
/* {{{ _oci_session_list_dtor()
*/
static void _oci_session_list_dtor(zend_rsrc_list_entry *rsrc TSRMLS_DC)
{
oci_session *session = (oci_session *)rsrc->ptr;
if (session->persistent) {
/* clear thread assignment */
session->thread = 0;
return;
}
_oci_close_session(session);
}
/* }}} */
/* {{{ oci_handle_error
*/
static ub4 oci_handle_error(oci_connection *connection, ub4 errcode)
{
switch (errcode) {
case 1013: /* user requested cancel of current operation */
zend_bailout();
break;
case 22: /* ORA-00022 Invalid session id */
case 1012: /* ORA-01012: */
case 3113: /* ORA-03113: end-of-file on communication channel */
case 604:
case 1041:
connection->is_open = 0;
connection->session->is_open = 0;
connection->session->server->is_open = 0;
return 1; /* fatal error */
}
return 0; /* no fatal error */
}
/* }}} */
/* {{{ oci_error()
*/
static ub4 oci_error(OCIError *err_p, char *what, sword status)
{
text errbuf[512];
sb4 errcode = 0;
TSRMLS_FETCH();
switch (status) {
case OCI_SUCCESS:
break;
case OCI_SUCCESS_WITH_INFO:
CALL_OCI(
OCIErrorGet(
err_p,
(ub4)1,
NULL,
&errcode,
errbuf,
(ub4)sizeof(errbuf),
(ub4)OCI_HTYPE_ERROR
)
);
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s: OCI_SUCCESS_WITH_INFO: %s", what, errbuf);
break;
case OCI_NEED_DATA:
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s: OCI_NEED_DATA", what);
break;
case OCI_NO_DATA:
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s: OCI_NO_DATA", what);
break;
case OCI_ERROR: {
CALL_OCI(
OCIErrorGet(
err_p,
(ub4)1,
NULL,
&errcode,
errbuf,
(ub4)sizeof(errbuf),
(ub4)OCI_HTYPE_ERROR
)
);
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s: %s", what, errbuf);
break;
}
case OCI_INVALID_HANDLE:
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s: OCI_INVALID_HANDLE", what);
break;
case OCI_STILL_EXECUTING:
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s: OCI_STILL_EXECUTING", what);
break;
case OCI_CONTINUE:
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s: OCI_CONTINUE", what);
break;
default:
break;
}
return errcode;
}
/* }}} */
/* {{{ oci_ping()
*/
static int oci_ping(oci_server *server)
{
char version[256];
TSRMLS_FETCH();
CALL_OCI_RETURN(OCI(error),
OCIServerVersion(
server->pServer,
OCI(pError),
(text*)version,
sizeof(version),
OCI_HTYPE_SERVER
)
);
if (OCI(error) == OCI_SUCCESS) {
return 1;
}
oci_error(OCI(pError), "oci_ping", OCI(error));
return 0;
}
/* }}} */
/************************* INTERNAL FUNCTIONS *************************/
/* {{{ oci_debug()
*/
static void oci_debug(const char *format, ...)
{
TSRMLS_FETCH();
if (OCI(debug_mode)) {
char buffer[1024];
va_list args;
va_start(args, format);
vsnprintf(buffer, sizeof(buffer)-1, format, args);
va_end(args);
buffer[sizeof(buffer)-1] = '\0';
php_printf("OCIDebug: %s<br />\n", buffer);
}
}
/* }}} */
/* {{{ oci_get_conn()
*/
static oci_connection *oci_get_conn(zval **conn TSRMLS_DC)
{
oci_connection *connection;
connection = (oci_connection *) zend_fetch_resource(conn TSRMLS_CC, -1, "OCI8-Connection", NULL, 1, le_conn);
if (connection && connection->is_open) {
return connection;
} else {
return (oci_connection *) NULL;
}
}
/* }}} */
/* {{{ oci_get_stmt()
*/
static oci_statement *oci_get_stmt(zval **stmt TSRMLS_DC)
{
oci_statement *statement;
statement = (oci_statement *) zend_fetch_resource(stmt TSRMLS_CC, -1, "OCI8-Statement", NULL, 1, le_stmt);
if (statement && statement->conn->is_open) {
return statement;
} else {
return (oci_statement *) NULL;
}
}
/* }}} */
/* {{{ oci_get_desc()
*/
static oci_descriptor *oci_get_desc(int ind TSRMLS_DC)
{
oci_descriptor *descriptor;
int actual_resource_type;
descriptor = (oci_descriptor *) zend_list_find(ind, &actual_resource_type);
if (descriptor && (actual_resource_type == le_desc)) {
return descriptor;
} else {
return (oci_descriptor *) NULL;
}
}
/* }}} */
/* {{{ oci_get_col()
*/
static oci_out_column *oci_get_col(oci_statement *statement, int col, zval **value)
{
oci_out_column *outcol = NULL;
int i;
TSRMLS_FETCH();
if (statement->columns == 0) { /* we release the columns at the end of a fetch */
return NULL;
}
if (value) {
if (Z_TYPE_PP(value) == IS_STRING) {
for (i = 0; i < statement->ncolumns; i++) {
outcol = oci_get_col(statement, i + 1, 0);
if (outcol == NULL) {
continue;
} else if (((int) outcol->name_len == Z_STRLEN_PP(value)) &&
(!strncmp(outcol->name, Z_STRVAL_PP(value), Z_STRLEN_PP(value)))
) {
return outcol;
}
}
} else {
convert_to_long_ex(value);
return oci_get_col(statement,Z_LVAL_PP(value),0);
}
} else if (col != -1) {
if (zend_hash_index_find(statement->columns, col, (void **)&outcol) == FAILURE) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Invalid column %d", col);
return NULL;
}
return outcol;
}
return NULL;
}
/* }}} */
/* {{{ oci_new_desc()
*/
static oci_descriptor *oci_new_desc(int type, oci_connection *connection)
{
oci_descriptor *descr;
TSRMLS_FETCH();
descr = emalloc(sizeof(oci_descriptor));
descr->type = type;
switch (descr->type) {
case OCI_DTYPE_FILE:
case OCI_DTYPE_LOB:
case OCI_DTYPE_ROWID:
break;
default:
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unknown descriptor type %d.", descr->type);
efree(descr);
return 0;
}
CALL_OCI_RETURN(OCI(error),
OCIDescriptorAlloc(
connection->session->pEnv,
(dvoid*)&(descr->ocidescr),
descr->type,
(size_t) 0,
(dvoid **) 0
)
);
if (OCI(error)) {
ub4 error;
error = oci_error(OCI(pError),"OCIDescriptorAlloc %d",OCI(error));
oci_handle_error(connection, error);
efree(descr);
return 0;
}
descr->id = zend_list_insert(descr,le_desc);
descr->conn = connection;
descr->lob_current_position = 0;
descr->lob_size = -1; /* we should set it to -1 to know, that it's just not initialized */
descr->buffering = 0; /* buffering is off by default */
zend_list_addref(connection->id);
if (descr->type == OCI_DTYPE_LOB || descr->type == OCI_DTYPE_FILE) {
/* add Lobs & Files to hash. we'll flush them ate the end */
if (!connection->descriptors) {
ALLOC_HASHTABLE(connection->descriptors);
zend_hash_init(connection->descriptors, 13, NULL, _oci_desc_flush_hash_dtor, 0);
}
zend_hash_next_index_insert(connection->descriptors,&descr,sizeof(oci_descriptor *),NULL);
}
oci_debug("oci_new_desc %d",descr->id);
return descr;
}
/* }}} */
#ifdef PHP_OCI8_HAVE_COLLECTIONS
/* {{{ _oci_get_ocicoll()
*/
static int _oci_get_ocicoll(zval *id,oci_collection **collection TSRMLS_DC)
{
zval **coll;
if (zend_hash_find(Z_OBJPROP_P(id), "collection", sizeof("collection"), (void **)&coll) == FAILURE) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "cannot find collection");
return 0;
}
if ((*collection = oci_get_coll(Z_LVAL_PP(coll) TSRMLS_CC)) == NULL) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "collection not found");
return 0;
}
return Z_LVAL_PP(coll);
}
/* }}} */
#endif
/* {{{ _oci_get_ocidesc()
*/
static int _oci_get_ocidesc(zval *id,oci_descriptor **descriptor TSRMLS_DC)
{
zval **desc;
if (zend_hash_find(Z_OBJPROP_P(id), "descriptor", sizeof("descriptor"), (void **)&desc) == FAILURE) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "cannot find descriptor");
return 0;
}
if ((*descriptor = oci_get_desc(Z_LVAL_PP(desc) TSRMLS_CC)) == NULL) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "descriptor not found");
return 0;
}
return Z_LVAL_PP(desc);
}
/* }}} */
/* {{{ _oci_make_zval()
*/
static int _oci_make_zval(zval *value,oci_statement *statement,oci_out_column *column, char *func, int mode TSRMLS_DC)
{
oci_descriptor *descr;
ub4 loblen;
int size;
char *buffer;
if (column->indicator || column->retcode)
if ((column->indicator != -1) && (column->retcode != 1405))
oci_debug("_oci_make_zval: %16s,retlen = %4d,retlen4 = %d,storage_size4 = %4d,indicator %4d, retcode = %4d",
column->name,column->retlen,column->retlen4,column->storage_size4,column->indicator,column->retcode);
if ((!statement->has_data) || (column->indicator == -1)) { /* column is NULL or statment has no current data */
ZVAL_NULL(value);
return 0;
}
if (column->is_cursor) { /* REFCURSOR -> simply return the statement id */
ZVAL_RESOURCE(value,column->stmtid);
zend_list_addref(column->stmtid);
} else if (column->is_descr) {
if ((column->data_type != SQLT_RDD) && (mode & OCI_RETURN_LOBS)) {
/* OCI_RETURN_LOBS means that we want the content of the LOB back instead of the locator */
descr = oci_get_desc(column->descid TSRMLS_CC);
if (!descr) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "unable to find my descriptor %p",column->data);
return -1;
}
if (oci_loadlob(statement->conn,descr,&buffer,&loblen)) {
ZVAL_FALSE(value);
} else {
ZVAL_STRINGL(value,buffer,loblen,0);
}
} else {
/* return the locator */
object_init_ex(value, oci_lob_class_entry_ptr);
add_property_resource(value, "descriptor", column->descid);
zend_list_addref(column->descid);
}
} else {
switch (column->retcode) {
case 0:
/* intact value */
if (column->piecewise) {
size = column->retlen4;
} else {
size = column->retlen;
}
break;
default:
/* XXX we SHOULD maybe have a different behaviour for unknown results! */
ZVAL_FALSE(value);
return 0;
}
ZVAL_STRINGL(value,column->data,size,1);
}
return 0;
}
/* }}} */
/* {{{ oci_setprefetch()
*/
static int oci_setprefetch(oci_statement *statement,int size)
{
ub4 prefetch;
sword error;
TSRMLS_FETCH();
prefetch = size * 1024;
CALL_OCI_RETURN(error,
OCIAttrSet(
statement->pStmt,
OCI_HTYPE_STMT,
&prefetch,
0,
OCI_ATTR_PREFETCH_MEMORY,
statement->pError
)
);
statement->error = oci_error(statement->pError, "OCIAttrSet OCI_ATTR_PREFETCH_MEMORY", error);
if (statement->error) {
oci_handle_error(statement->conn, statement->error);
}
prefetch = size;
CALL_OCI_RETURN(error,
OCIAttrSet(
statement->pStmt,
OCI_HTYPE_STMT,
&prefetch,
0,
OCI_ATTR_PREFETCH_ROWS,
statement->pError
)
);
statement->error = oci_error(statement->pError, "OCIAttrSet OCI_ATTR_PREFETCH_MEMORY", error);
if (statement->error) {
oci_handle_error(statement->conn, statement->error);
}
return 1;
}
/* }}} */
/* {{{ oci_parse()
*/
static oci_statement *oci_parse(oci_connection *connection, char *query, int len)
{
oci_statement *statement;
sword error;
TSRMLS_FETCH();
statement = ecalloc(1,sizeof(oci_statement));
CALL_OCI(
OCIHandleAlloc(
connection->session->pEnv,
(dvoid **)&statement->pStmt,
OCI_HTYPE_STMT,
0,
NULL
)
);
CALL_OCI(
OCIHandleAlloc(
connection->session->pEnv,
(dvoid **)&statement->pError,
OCI_HTYPE_ERROR,
0,
NULL
)
);
if (len > 0) {
CALL_OCI_RETURN(error,
OCIStmtPrepare(
statement->pStmt,
connection->pError,
(text*)query,
len,
OCI_NTV_SYNTAX,
OCI_DEFAULT
)
);
connection->error = oci_error(connection->pError, "OCIParse", error);
if (connection->error) {
CALL_OCI(
OCIHandleFree(
statement->pStmt,
OCI_HTYPE_STMT
)
);
CALL_OCI(
OCIHandleFree(
statement->pError,
OCI_HTYPE_ERROR
)
);
efree(statement);
oci_handle_error(connection, connection->error);
return 0;
}
}
if (query) {
statement->last_query = estrdup(query);
}
statement->conn = connection;
statement->has_data = 0;
statement->id = zend_list_insert(statement,le_stmt);
oci_debug("oci_parse \"%s\" id=%d conn=%d",
SAFE_STRING(query),
statement->id,
statement->conn->id);
zend_list_addref(statement->conn->id);
return statement;
}
/* }}} */
/* {{{ oci_execute()
*/
static int oci_execute(oci_statement *statement, char *func,ub4 mode)
{
oci_out_column *outcol;
oci_out_column column;
OCIParam *param = 0;
text *colname;
ub4 counter;
ub2 define_type;
ub4 iters;
ub4 colcount;
ub2 dynamic;
int dtype;
dvoid *buf;
oci_descriptor *descr;
sword error;
TSRMLS_FETCH();
if (!statement->stmttype) {
CALL_OCI_RETURN(error,
OCIAttrGet(
(dvoid *)statement->pStmt,
OCI_HTYPE_STMT,
(ub2 *)&statement->stmttype,
(ub4 *)0,
OCI_ATTR_STMT_TYPE,
statement->pError
)
);
statement->error = oci_error(statement->pError, "OCIAttrGet OCI_HTYPE_STMT/OCI_ATTR_STMT_TYPE", error);
if (statement->error) {
oci_handle_error(statement->conn, statement->error);
return 0;
}
}
if (statement->stmttype == OCI_STMT_SELECT) {
iters = 0;
} else {
iters = 1;
}
if (statement->last_query) {
/* if we execute refcursors we don't have a query and
we don't want to execute!!! */
if (statement->binds) {
zend_hash_apply(statement->binds, (apply_func_t) _oci_bind_pre_exec TSRMLS_CC);
}
CALL_OCI_RETURN(error,
OCIStmtExecute(
statement->conn->pServiceContext,
statement->pStmt,
statement->pError,
iters,
0,
NULL,
NULL,
mode
)
);
statement->error = oci_error(statement->pError, "OCIStmtExecute", error);
if (statement->binds) {
zend_hash_apply(statement->binds, (apply_func_t) _oci_bind_post_exec TSRMLS_CC);
}
oci_handle_error(statement->conn, statement->error);
if (statement->error) {
return 0;
}
if (mode & OCI_COMMIT_ON_SUCCESS) {
statement->conn->needs_commit = 0;
} else {
statement->conn->needs_commit = 1;
}
}
if ((statement->stmttype == OCI_STMT_SELECT) && (statement->executed == 0)) {
/* we only need to do the define step is this very statement is executed the first time! */
statement->executed = 1;
ALLOC_HASHTABLE(statement->columns);
zend_hash_init(statement->columns, 13, NULL, _oci_column_hash_dtor, 0);
counter = 1;
CALL_OCI_RETURN(error,
OCIAttrGet(
(dvoid *)statement->pStmt,
OCI_HTYPE_STMT,
(dvoid *)&colcount,
(ub4 *)0,
OCI_ATTR_PARAM_COUNT,
statement->pError
)
);
statement->error = oci_error(statement->pError, "OCIAttrGet OCI_HTYPE_STMT/OCI_ATTR_PARAM_COUNT", error);
if (statement->error) {
oci_handle_error(statement->conn, statement->error);
return 0; /* XXX we loose memory!!! */
}
statement->ncolumns = colcount;
for (counter = 1; counter <= colcount; counter++) {
memset(&column,0,sizeof(oci_out_column));
if (zend_hash_index_update(statement->columns, counter, &column,
sizeof(oci_out_column), (void**) &outcol) == FAILURE) {
efree(statement->columns);
/* out of memory */
return 0;
}
outcol->statement = statement;
CALL_OCI_RETURN(error,
OCIParamGet(
(dvoid *)statement->pStmt,
OCI_HTYPE_STMT,
statement->pError,
(dvoid**)&param,
counter
)
);
statement->error = oci_error(statement->pError, "OCIParamGet OCI_HTYPE_STMT", error);
if (statement->error) {
oci_handle_error(statement->conn, statement->error);
return 0; /* XXX we loose memory!!! */
}
CALL_OCI_RETURN(error,
OCIAttrGet(
(dvoid *)param,
OCI_DTYPE_PARAM,
(dvoid *)&outcol->data_type,
(ub4 *)0,
OCI_ATTR_DATA_TYPE,
statement->pError
)
);
statement->error = oci_error(statement->pError, "OCIAttrGet OCI_DTYPE_PARAM/OCI_ATTR_DATA_TYPE", error);
if (statement->error) {
oci_handle_error(statement->conn, statement->error);
return 0; /* XXX we loose memory!!! */
}
CALL_OCI_RETURN(error,
OCIAttrGet(
(dvoid *)param,
OCI_DTYPE_PARAM,
(dvoid *)&outcol->data_size,
(dvoid *)0,
OCI_ATTR_DATA_SIZE,
statement->pError
)
);
statement->error = oci_error(statement->pError, "OCIAttrGet OCI_DTYPE_PARAM/OCI_ATTR_DATA_SIZE", error);
if (statement->error) {
oci_handle_error(statement->conn, statement->error);
return 0; /* XXX we loose memory!!! */
}
outcol->storage_size4 = outcol->data_size;
outcol->retlen = outcol->data_size;
CALL_OCI_RETURN(error,
OCIAttrGet(
(dvoid *)param,
OCI_DTYPE_PARAM,
(dvoid *)&outcol->scale,
(dvoid *)0,
OCI_ATTR_SCALE,
statement->pError
)
);
statement->error = oci_error(statement->pError, "OCIAttrGet OCI_DTYPE_PARAM/OCI_ATTR_SCALE", error);
if (statement->error) {
oci_handle_error(statement->conn, statement->error);
return 0; /* XXX we lose memory!!! */
}
CALL_OCI_RETURN(error,
OCIAttrGet(
(dvoid *)param,
OCI_DTYPE_PARAM,
(dvoid *)&outcol->precision,
(dvoid *)0,
OCI_ATTR_PRECISION,
statement->pError
)
);
statement->error = oci_error(statement->pError, "OCIAttrGet OCI_DTYPE_PARAM/OCI_ATTR_PRECISION", error);
if (statement->error) {
oci_handle_error(statement->conn, statement->error);
return 0; /* XXX we lose memory!!! */
}
CALL_OCI_RETURN(error,
OCIAttrGet(
(dvoid *)param,
OCI_DTYPE_PARAM,
(dvoid **)&colname, /* XXX this string is NOT zero terminated!!!! */
(ub4 *)&outcol->name_len,
(ub4)OCI_ATTR_NAME,
statement->pError
)
);
statement->error = oci_error(statement->pError, "OCIAttrGet OCI_DTYPE_PARAM/OCI_ATTR_NAME", error);
if (statement->error) {
oci_handle_error(statement->conn, statement->error);
return 0; /* XXX we loose memory!!! */
}
outcol->name = estrndup((char*) colname,outcol->name_len);
/* find a user-setted define */
if (statement->defines) {
zend_hash_find(statement->defines,outcol->name,outcol->name_len,(void **) &outcol->define);
}
buf = 0;
switch (outcol->data_type) {
case SQLT_RSET:
outcol->pstmt = oci_parse(statement->conn,0,0);
outcol->stmtid = outcol->pstmt->id;
define_type = SQLT_RSET;
outcol->is_cursor = 1;
outcol->storage_size4 = -1;
outcol->retlen = -1;
dynamic = OCI_DEFAULT;
buf = &(outcol->pstmt->pStmt);
break;
case SQLT_RDD: /* ROWID */
case SQLT_BLOB: /* binary LOB */
case SQLT_CLOB: /* character LOB */
case SQLT_BFILE: /* binary file LOB */
define_type = outcol->data_type;
outcol->is_descr = 1;
outcol->storage_size4 = -1;
dynamic = OCI_DEFAULT;
if (outcol->data_type == SQLT_BFILE) {
dtype = OCI_DTYPE_FILE;
} else if (outcol->data_type == SQLT_RDD ) {
dtype = OCI_DTYPE_ROWID;
} else {
dtype = OCI_DTYPE_LOB;
}
descr = oci_new_desc(dtype,statement->conn);
if (!descr) {
/* need better error checking XXX */
}
outcol->descid = descr->id;
buf = &(descr->ocidescr);
break;
case SQLT_LNG:
case SQLT_LBI:
if (outcol->data_type == SQLT_LBI) {
define_type = SQLT_BIN;
} else {
define_type = SQLT_CHR;
}
outcol->storage_size4 = OCI_MAX_DATA_SIZE;
outcol->piecewise = 1;
dynamic = OCI_DYNAMIC_FETCH;
break;
case SQLT_BIN:
default:
define_type = SQLT_CHR;
if ((outcol->data_type == SQLT_DAT) || (outcol->data_type == SQLT_NUM)
#ifdef SQLT_TIMESTAMP
|| (outcol->data_type == SQLT_TIMESTAMP)
#endif
#ifdef SQLT_TIMESTAMP_TZ
|| (outcol->data_type == SQLT_TIMESTAMP_TZ)
#endif
) {
outcol->storage_size4 = 512; /* XXX this should fit "most" NLS date-formats and Numbers */
} else {
outcol->storage_size4++; /* add one for string terminator */
}
if (outcol->data_type == SQLT_BIN) {
outcol->storage_size4 *= 3;
}
dynamic = OCI_DEFAULT;
buf = outcol->data = (text *) emalloc(outcol->storage_size4);
break;
}
if (dynamic == OCI_DYNAMIC_FETCH) {
CALL_OCI_RETURN(error,
OCIDefineByPos(
statement->pStmt, /* IN/OUT handle to the requested SQL query */
(OCIDefine **)&outcol->pDefine, /* IN/OUT pointer to a pointer to a define handle */
statement->pError, /* IN/OUT An error handle */
counter, /* IN position in the select list */
(dvoid *)NULL, /* IN/OUT pointer to a buffer */
outcol->storage_size4, /* IN The size of each valuep buffer in bytes */
define_type, /* IN The data type */
(dvoid *)&outcol->indicator, /* IN pointer to an indicator variable or arr */
(ub2 *)NULL, /* IN/OUT Pointer to array of length of data fetched */
(ub2 *)NULL, /* OUT Pointer to array of column-level return codes */
OCI_DYNAMIC_FETCH /* IN mode (OCI_DEFAULT, OCI_DYNAMIC_FETCH) */
)
);
statement->error = oci_error(statement->pError, "OCIDefineByPos", error);
} else {
CALL_OCI_RETURN(error,
OCIDefineByPos(
statement->pStmt, /* IN/OUT handle to the requested SQL query */
(OCIDefine **)&outcol->pDefine, /* IN/OUT pointer to a pointer to a define handle */
statement->pError, /* IN/OUT An error handle */
counter, /* IN position in the select list */
(dvoid *)buf, /* IN/OUT pointer to a buffer */
outcol->storage_size4, /* IN The size of each valuep buffer in bytes */
define_type, /* IN The data type */
(dvoid *)&outcol->indicator, /* IN pointer to an indicator variable or arr */
(ub2 *)&outcol->retlen, /* IN/OUT Pointer to array of length of data fetched */
(ub2 *)&outcol->retcode, /* OUT Pointer to array of column-level return codes */
OCI_DEFAULT /* IN mode (OCI_DEFAULT, OCI_DYNAMIC_FETCH) */
)
);
statement->error = oci_error(statement->pError, "OCIDefineByPos", error);
}
if (statement->error) {
oci_handle_error(statement->conn, statement->error);
return 0; /* XXX we loose memory!!! */
}
}
}
return 1;
}
/* }}} */
/* {{{ oci_fetch()
*/
static int _oci_column_pre_fetch(void *data TSRMLS_DC)
{
oci_out_column *col = (oci_out_column *) data;
if (col->piecewise) {
col->retlen4 = 0;
}
return 0;
}
static int oci_fetch(oci_statement *statement, ub4 nrows, char *func TSRMLS_DC)
{
int i;
oci_out_column *column;
if (statement->columns) {
zend_hash_apply(statement->columns, (apply_func_t) _oci_column_pre_fetch TSRMLS_CC);
}
CALL_OCI_RETURN(statement->error,
OCIStmtFetch(
statement->pStmt,
statement->pError,
nrows,
OCI_FETCH_NEXT,
OCI_DEFAULT
)
);
if ((statement->error == OCI_NO_DATA) || (nrows == 0)) {
if (statement->last_query == 0) {
/* reset define-list for refcursors */
if (statement->columns) {
zend_hash_destroy(statement->columns);
efree(statement->columns);
statement->columns = 0;
statement->ncolumns = 0;
}
statement->executed = 0;
}
statement->error = 0; /* OCI_NO_DATA is NO error for us!!! */
statement->has_data = 0;
return 0;
}
while (statement->error == OCI_NEED_DATA) {
for (i = 0; i < statement->ncolumns; i++) {
column = oci_get_col(statement, i + 1, 0);
if (column->piecewise) {
if (!column->data) {
column->data = (text *) emalloc(OCI_PIECE_SIZE);
} else {
column->data = erealloc(column->data,column->retlen4 + OCI_PIECE_SIZE);
}
column->cb_retlen = OCI_PIECE_SIZE;
CALL_OCI(
OCIStmtSetPieceInfo(
(void *) column->pDefine,
OCI_HTYPE_DEFINE,
statement->pError,
((char*)column->data) + column->retlen4,
&(column->cb_retlen),
OCI_NEXT_PIECE,
&column->indicator,
&column->retcode
)
);
}
}
CALL_OCI_RETURN(statement->error,
OCIStmtFetch(
statement->pStmt,
statement->pError,
nrows,
OCI_FETCH_NEXT,
OCI_DEFAULT
)
);
for (i = 0; i < statement->ncolumns; i++) {
column = oci_get_col(statement, i + 1, 0);
if (column->piecewise) {
column->retlen4 += column->cb_retlen;
}
}
}
if (statement->error == OCI_SUCCESS_WITH_INFO || statement->error == OCI_SUCCESS) {
statement->has_data = 1;
/* do the stuff needed for OCIDefineByName */
for (i = 0; i < statement->ncolumns; i++) {
column = oci_get_col(statement, i + 1, 0);
if (column == NULL) {
continue;
}
if (!column->define) {
continue;
}
zval_dtor(column->define->zval);
_oci_make_zval(column->define->zval,statement,column,"OCIFetch",0 TSRMLS_CC);
}
return 1;
}
oci_error(statement->pError, func, statement->error);
oci_handle_error(statement->conn, statement->error);
statement->has_data = 0;
return 0;
}
/* }}} */
/* {{{ oci_lobgetlen()
*/
static int oci_lobgetlen(oci_connection *connection, oci_descriptor *mydescr, ub4 *loblen)
{
TSRMLS_FETCH();
*loblen = 0;
/* do we need to ask oracle about LOB's length, if we do already know it? I think no. */
if (mydescr->lob_size >= 0) {
*loblen = mydescr->lob_size;
} else {
if (mydescr->type == OCI_DTYPE_FILE) {
CALL_OCI_RETURN(connection->error,
OCILobFileOpen(
connection->pServiceContext,
connection->pError,
mydescr->ocidescr,
OCI_FILE_READONLY
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobFileOpen",connection->error);
oci_handle_error(connection, connection->error);
return -1;
}
}
CALL_OCI_RETURN(connection->error,
OCILobGetLength(
connection->pServiceContext,
connection->pError,
mydescr->ocidescr,
loblen
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobGetLength",connection->error);
oci_handle_error(connection, connection->error);
return -1;
}
mydescr->lob_size = *loblen;
if (mydescr->type == OCI_DTYPE_FILE) {
CALL_OCI_RETURN(connection->error,
OCILobFileClose(
connection->pServiceContext,
connection->pError,
mydescr->ocidescr
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobFileClose", connection->error);
oci_handle_error(connection, connection->error);
return -1;
}
}
}
oci_debug("oci_lobgetlen: len=%d",*loblen);
return 0;
}
/* }}} */
/* {{{ oci_loadlob()
*/
#define LOBREADSIZE 1048576l /* 1MB */
static int oci_loadlob(oci_connection *connection, oci_descriptor *mydescr, char **buffer, ub4 *loblen)
{
ub4 siz = 0;
ub4 readlen = 0;
char *buf;
TSRMLS_FETCH();
*loblen = 0;
if (mydescr->type == OCI_DTYPE_FILE) {
CALL_OCI_RETURN(connection->error,
OCILobFileOpen(
connection->pServiceContext,
connection->pError,
mydescr->ocidescr,
OCI_FILE_READONLY
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobFileOpen",connection->error);
oci_handle_error(connection, connection->error);
return -1;
}
}
CALL_OCI_RETURN(connection->error,
OCILobGetLength(
connection->pServiceContext,
connection->pError,
mydescr->ocidescr,
&readlen
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobGetLength",connection->error);
oci_handle_error(connection, connection->error);
return -1;
}
buf = emalloc(readlen + 1);
while (readlen > 0) { /* thies loop should not be entered on readlen == 0 */
CALL_OCI_RETURN(connection->error,
OCILobRead(
connection->pServiceContext,
connection->pError,
mydescr->ocidescr,
&readlen, /* IN/OUT bytes toread/read */
siz + 1, /* offset (starts with 1) */
(dvoid *) ((char *) buf + siz),
readlen, /* size of buffer */
(dvoid *)0,
(OCICallbackLobRead) 0, /* callback... */
(ub2) connection->session->charsetId, /* The character set ID of the buffer data. */
(ub1) SQLCS_IMPLICIT /* The character set form of the buffer data. */
)
);
siz += readlen;
readlen = LOBREADSIZE;
if (connection->error == OCI_NEED_DATA) {
buf = erealloc(buf,siz + LOBREADSIZE + 1);
continue;
} else {
break;
}
}
if (connection->error) {
oci_error(connection->pError, "OCILobRead", connection->error);
oci_handle_error(connection, connection->error);
efree(buf);
return -1;
}
if (mydescr->type == OCI_DTYPE_FILE) {
CALL_OCI_RETURN(connection->error,
OCILobFileClose(
connection->pServiceContext,
connection->pError,
mydescr->ocidescr
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobFileClose", connection->error);
oci_handle_error(connection, connection->error);
efree(buf);
return -1;
}
}
buf = erealloc(buf,siz+1);
buf[ siz ] = 0;
*buffer = buf;
*loblen = siz;
oci_debug("oci_loadlob: size=%d",siz);
return 0;
}
/* }}} */
/* {{{ oci_readlob()
*/
static int oci_readlob(oci_connection *connection, oci_descriptor *mydescr, char **buffer, ub4 *len)
{
ub4 siz = 0;
ub4 readlen = 0;
ub4 loblen = 0;
ub4 bytes = 0;
char *buf;
TSRMLS_FETCH();
/* we're not going to read LOB, if length is not known */
if (!len || (int)*len <= 0) {
return -1;
}
if (mydescr->type == OCI_DTYPE_FILE) {
CALL_OCI_RETURN(connection->error,
OCILobFileOpen(
connection->pServiceContext,
connection->pError,
mydescr->ocidescr,
OCI_FILE_READONLY
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobFileOpen",connection->error);
oci_handle_error(connection, connection->error);
return -1;
}
}
if (oci_lobgetlen(connection, mydescr, &loblen) != 0) {
*len = 0;
return -1;
}
/* check if we're in LOB's borders */
if ((mydescr->lob_current_position + *len) > loblen) {
*len = loblen - mydescr->lob_current_position;
}
if ((int)*len > 0) {
buf = emalloc(*len + 1);
/* set offset to current LOB's position */
siz = mydescr->lob_current_position;
/* check if len is smaller, if not - using LOBREADSIZE' sized buffer */
if (*len > LOBREADSIZE) {
readlen = LOBREADSIZE;
} else {
readlen = *len;
}
} else {
*len = 0;
return -1;
}
while (readlen > 0 && bytes < *len && siz < loblen) { /* paranoia */
CALL_OCI_RETURN(connection->error,
OCILobRead(
connection->pServiceContext,
connection->pError,
mydescr->ocidescr,
&readlen, /* IN/OUT bytes toread/read */
siz + 1, /* offset (starts with 1) */
(dvoid *) ((char *) buf + bytes),
readlen, /* size of buffer */
(dvoid *)0,
(OCICallbackLobRead) 0, /* callback... */
(ub2) connection->session->charsetId, /* The character set ID of the buffer data. */
(ub1) SQLCS_IMPLICIT /* The character set form of the buffer data. */
)
);
siz += readlen;
bytes += readlen;
if ((*len - bytes) > LOBREADSIZE) {
readlen = LOBREADSIZE;
} else {
readlen = *len - bytes;
}
if (connection->error == OCI_NEED_DATA) {
buf = erealloc(buf,bytes + LOBREADSIZE + 1);
continue;
} else {
break;
}
}
/* moving current position */
mydescr->lob_current_position = siz;
if (connection->error) {
oci_error(connection->pError, "OCILobRead", connection->error);
oci_handle_error(connection, connection->error);
efree(buf);
return -1;
}
if (mydescr->type == OCI_DTYPE_FILE) {
CALL_OCI_RETURN(connection->error,
OCILobFileClose(
connection->pServiceContext,
connection->pError,
mydescr->ocidescr
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobFileClose", connection->error);
oci_handle_error(connection, connection->error);
efree(buf);
return -1;
}
}
buf = erealloc(buf,bytes+1);
buf[ bytes ] = 0;
*buffer = buf;
*len = bytes;
oci_debug("oci_readlob: size=%d",bytes);
return 0;
}
/* }}} */
/* {{{ oci_failover_callback()
*/
#if 0 /* not needed yet ! */
static sb4 oci_failover_callback(dvoid *svchp, dvoid *envhp, dvoid *fo_ctx, ub4 fo_type, ub4 fo_event)
{
/*
this stuff is from an oci sample - it will get cleaned up as soon as i understand it!!! (thies@thieso.net 990420)
right now i cant get oracle to even call it;-(((((((((((
*/
switch (fo_event) {
case OCI_FO_BEGIN: {
printf(" Failing Over ... Please stand by \n");
printf(" Failover type was found to be %s \n",
((fo_type==OCI_FO_NONE) ? "NONE"
:(fo_type==OCI_FO_SESSION) ? "SESSION"
:(fo_type==OCI_FO_SELECT) ? "SELECT"
: "UNKNOWN!"));
printf(" Failover Context is :%s\n",
(fo_ctx?(char *)fo_ctx:"NULL POINTER!"));
break;
}
case OCI_FO_ABORT: {
printf(" Failover aborted. Failover will not take place.\n");
break;
}
case OCI_FO_END: {
printf(" Failover ended ...resuming services\n");
break;
}
case OCI_FO_REAUTH: {
printf(" Failed over user. Resuming services\n");
/* Application can check the OCI_ATTR_SESSION attribute of
the service handle to find out the user being
re-authenticated.
After this, the application can replay any ALTER SESSION
commands associated with this session. These must have
been saved by the application in the fo_ctx
*/
break;
}
case OCI_FO_ERROR: {
printf(" Failover error gotten. Sleeping...\n");
php_sleep(3);
/* cannot find this blody define !!! return OCI_FO_RETRY; */
break;
}
default: {
printf("Bad Failover Event: %ld.\n", fo_event);
break;
}
}
return 0;
}
#endif
/* }}} */
/* {{{ oci_bind_in_callback()
*/
static sb4 oci_bind_in_callback(
dvoid *ictxp, /* context pointer */
OCIBind *bindp, /* bind handle */
ub4 iter, /* 0-based execute iteration value */
ub4 index, /* index of current array for PL/SQL or row index for SQL */
dvoid **bufpp, /* pointer to data */
ub4 *alenp, /* size after value/piece has been read */
ub1 *piecep, /* which piece */
dvoid **indpp) /* indicator value */
{
oci_bind *phpbind;
zval *val;
TSRMLS_FETCH();
if (!(phpbind=(oci_bind *)ictxp) || !(val = phpbind->zval)) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "!phpbind || !phpbind->val");
return OCI_ERROR;
}
if (ZVAL_IS_NULL(val)) {
/* we're going to insert a NULL column */
phpbind->indicator = -1;
*bufpp = 0;
*alenp = -1;
*indpp = (dvoid *)&phpbind->indicator;
} else if ((phpbind->descr == 0) && (phpbind->pStmt == 0)) {
/* "normal string bind */
convert_to_string(val);
*bufpp = Z_STRVAL_P(val);
*alenp = Z_STRLEN_P(val);
*indpp = (dvoid *)&phpbind->indicator;
} else if (phpbind->pStmt != 0) {
/* RSET */
*bufpp = phpbind->pStmt;
*alenp = -1; /* seems to be allright */
*indpp = (dvoid *)&phpbind->indicator;
} else {
/* descriptor bind */
*bufpp = phpbind->descr;
*alenp = -1; /* seems to be allright */
*indpp = (dvoid *)&phpbind->indicator;
}
*piecep = OCI_ONE_PIECE; /* pass all data in one go */
return OCI_CONTINUE;
}
/* }}} */
/* {{{ oci_bind_out_callback() */
static sb4 oci_bind_out_callback(
dvoid *octxp, /* context pointer */
OCIBind *bindp, /* bind handle */
ub4 iter, /* 0-based execute iteration value */
ub4 index, /* index of current array for PL/SQL or row index for SQL */
dvoid **bufpp, /* pointer to data */
ub4 **alenpp, /* size after value/piece has been read */
ub1 *piecep, /* which piece */
dvoid **indpp, /* indicator value */
ub2 **rcodepp) /* return code */
{
oci_bind *phpbind;
zval *val;
sb4 retval = OCI_ERROR;
TSRMLS_FETCH();
if (!(phpbind=(oci_bind *)octxp) || !(val = phpbind->zval)) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "!phpbind || !phpbind->val");
return retval;
}
if ((Z_TYPE_P(val) == IS_OBJECT) || (Z_TYPE_P(val) == IS_RESOURCE)) {
retval = OCI_CONTINUE;
} else {
convert_to_string(val);
zval_dtor(val);
Z_STRLEN_P(val) = OCI_PIECE_SIZE; /* 64K-1 is max XXX */
Z_STRVAL_P(val) = emalloc(Z_STRLEN_P(phpbind->zval));
/* XXX we assume that zend-zval len has 4 bytes */
*alenpp = (ub4*) &Z_STRLEN_P(phpbind->zval);
*bufpp = Z_STRVAL_P(phpbind->zval);
*piecep = OCI_ONE_PIECE;
*rcodepp = &phpbind->retcode;
*indpp = &phpbind->indicator;
retval = OCI_CONTINUE;
}
return retval;
}
/* }}} */
/* {{{ _oci_open_session()
*/
#include "ext/standard/php_smart_str.h"
static oci_session *_oci_open_session(oci_server* server,char *username,char *password,int persistent,int exclusive,char *charset)
{
zend_llist *session_list;
oci_session *session = NULL;
OCISvcCtx *svchp = NULL;
smart_str hashed_details = {0};
#ifdef HAVE_OCI_9_2
ub2 charsetid = 0;
#endif
TSRMLS_FETCH();
/*
check if we already have this user authenticated
we will reuse authenticated users within a request no matter if the user requested a persistent
connections or not!
but only as persistent requested connections will be kept between requests!
*/
#if defined(HAVE_OCI_9_2)
if (*charset) {
smart_str_appends_ex(&hashed_details, charset, 1);
} else {
size_t rsize;
/* Safe, charsetid is initialized to 0 */
CALL_OCI(
OCINlsEnvironmentVariableGet(
&charsetid,
2,
OCI_NLS_CHARSET_ID,
0,
&rsize
)
);
smart_str_append_unsigned_ex(&hashed_details, charsetid, 1);
charsetid = 0;
}
#else
{
char *nls_lang = getenv("NLS_LANG");
/* extract charset from NLS_LANG=LANUAGE_TERRITORY.CHARSET */
if (nls_lang) {
char *p = strchr(nls_lang, '.');
if (p) {
smart_str_appends_ex(&hashed_details, p + 1, 1);
}
}
}
#endif
smart_str_appends_ex(&hashed_details, SAFE_STRING(username), 1);
smart_str_appends_ex(&hashed_details, SAFE_STRING(password), 1);
smart_str_appends_ex(&hashed_details, SAFE_STRING(server->dbname), 1);
smart_str_0(&hashed_details);
if (!exclusive) {
mutex_lock(mx_lock);
if (zend_ts_hash_find(persistent_sessions, hashed_details.c, hashed_details.len+1, (void **) &session_list) != SUCCESS) {
zend_llist tmp;
/* first session, set up a session list */
zend_llist_init(&tmp, sizeof(oci_session), (llist_dtor_func_t) _session_pcleanup, 1);
zend_ts_hash_update(persistent_sessions, hashed_details.c, hashed_details.len+1, &tmp, sizeof(zend_llist), (void **) &session_list);
} else {
/* session list found, search for an idle session or an already opened session by the current thread */
session = zend_llist_get_first(session_list);
while ((session != NULL) && session->thread && (session->thread != thread_id())) {
session = zend_llist_get_next(session_list);
}
if (session != NULL) {
/* mark session as busy */
session->thread = thread_id();
}
}
if (session) {
if (session->is_open) {
if (persistent) {
session->persistent = 1;
}
smart_str_free_ex(&hashed_details, 1);
mutex_unlock(mx_lock);
return session;
} else {
_oci_close_session(session);
/* breakthru to open */
}
}
mutex_unlock(mx_lock);
}
session = ecalloc(1,sizeof(oci_session));
if (!session) {
goto CLEANUP;
}
session->persistent = persistent;
session->server = server;
session->exclusive = exclusive;
session->sessions_list = session_list;
session->thread = thread_id();
#ifdef HAVE_OCI_9_2
/* following chunk is Oracle 9i+ ONLY */
if (*charset) {
/*
get ub2 charset id based on charset
this is pretty secure, since if we don't have a valid character set name,
0 comes back and we can still use the 0 in all further statements -> OCI uses NLS_LANG
setting in that case
*/
CALL_OCI_RETURN(charsetid,
OCINlsCharSetNameToId(
OCI(pEnv),
charset
)
);
oci_debug("oci_do_connect: using charset id=%d",charsetid);
}
session->charsetId = charsetid;
/* create an environment using the character set id, Oracle 9i+ ONLY */
CALL_OCI(
OCIEnvNlsCreate(
&session->pEnv,
PHP_OCI_INIT_MODE,
0,
NULL,
NULL,
NULL,
0,
NULL,
charsetid,
charsetid
)
);
#else
/* fallback solution (simply use global env and charset, same behaviour as always been) */
session->pEnv = OCI(pEnv);
session->charsetId = 0;
#endif /* HAVE_OCI_9_2 */
/* allocate temporary Service Context */
CALL_OCI_RETURN(OCI(error),
OCIHandleAlloc(
session->pEnv,
(dvoid **)&svchp,
OCI_HTYPE_SVCCTX,
0,
NULL
)
);
if (OCI(error) != OCI_SUCCESS) {
oci_error(OCI(pError), "_oci_open_session: OCIHandleAlloc OCI_HTYPE_SVCCTX", OCI(error));
goto CLEANUP;
}
/* allocate private session-handle */
CALL_OCI_RETURN(OCI(error),
OCIHandleAlloc(
session->pEnv,
(dvoid **)&session->pSession,
OCI_HTYPE_SESSION,
0,
NULL
)
);
if (OCI(error) != OCI_SUCCESS) {
oci_error(OCI(pError), "_oci_open_session: OCIHandleAlloc OCI_HTYPE_SESSION", OCI(error));
goto CLEANUP;
}
/* Set the server handle in service handle */
CALL_OCI_RETURN(OCI(error),
OCIAttrSet(
svchp,
OCI_HTYPE_SVCCTX,
server->pServer,
0,
OCI_ATTR_SERVER,
OCI(pError)
)
);
if (OCI(error) != OCI_SUCCESS) {
oci_error(OCI(pError), "_oci_open_session: OCIAttrSet OCI_ATTR_SERVER", OCI(error));
goto CLEANUP;
}
/* set the username in user handle */
CALL_OCI_RETURN(OCI(error),
OCIAttrSet(
(dvoid *) session->pSession,
(ub4) OCI_HTYPE_SESSION,
(dvoid *) username,
(ub4) strlen(username),
(ub4) OCI_ATTR_USERNAME,
OCI(pError)
)
);
if (OCI(error) != OCI_SUCCESS) {
oci_error(OCI(pError), "OCIAttrSet OCI_ATTR_USERNAME", OCI(error));
goto CLEANUP;
}
/* set the password in user handle */
CALL_OCI_RETURN(OCI(error),
OCIAttrSet(
(dvoid *) session->pSession,
(ub4) OCI_HTYPE_SESSION,
(dvoid *) password,
(ub4) strlen(password),
(ub4) OCI_ATTR_PASSWORD,
OCI(pError)
)
);
if (OCI(error) != OCI_SUCCESS) {
oci_error(OCI(pError), "OCIAttrSet OCI_ATTR_PASSWORD", OCI(error));
goto CLEANUP;
}
CALL_OCI_RETURN(OCI(error),
OCISessionBegin(
svchp,
OCI(pError),
session->pSession,
(ub4) OCI_CRED_RDBMS,
(ub4) OCI_DEFAULT
)
);
if (OCI(error) != OCI_SUCCESS) {
oci_error(OCI(pError), "OCISessionBegin", OCI(error));
/* OCISessionBegin returns OCI_SUCCESS_WITH_INFO when
* user's password has expired, but is still usable.
* */
if (OCI(error) != OCI_SUCCESS_WITH_INFO) {
goto CLEANUP;
}
}
/* Free Temporary Service Context */
CALL_OCI(
OCIHandleFree(
(dvoid *) svchp,
(ub4) OCI_HTYPE_SVCCTX
)
);
session->num = zend_list_insert(session, le_session);
session->is_open = 1;
mutex_lock(mx_lock);
num_links++;
if (!exclusive) {
zend_llist_add_element(session_list, session);
efree(session);
session = (oci_session*) session_list->tail->data;
num_persistent++;
}
mutex_unlock(mx_lock);
oci_debug("_oci_open_session new sess=%d user=%s",session->num,username);
return session;
CLEANUP:
oci_debug("_oci_open_session: FAILURE -> CLEANUP called");
_oci_close_session(session);
return 0;
}
/* }}} */
/* {{{ _oci_close_session()
*/
static int _session_compare(void *a, void *b)
{
oci_session *sess1 = (oci_session*) a;
oci_session *sess2 = (oci_session*) b;
return sess1->num == sess2->num;
}
static void _oci_close_session(oci_session *session)
{
OCISvcCtx *svchp;
TSRMLS_FETCH();
if (!session) {
return;
}
oci_debug("START _oci_close_session: logging-off sess=%d",session->num);
if (session->is_open) {
/* Temporary Service Context */
CALL_OCI_RETURN(OCI(error),
OCIHandleAlloc(
session->pEnv,
(dvoid **) &svchp,
(ub4) OCI_HTYPE_SVCCTX,
(size_t) 0,
(dvoid **) 0
)
);
if (OCI(error) != OCI_SUCCESS) {
oci_error(OCI(pError), "_oci_close_session OCIHandleAlloc OCI_HTYPE_SVCCTX", OCI(error));
}
/* Set the server handle in service handle */
CALL_OCI_RETURN(OCI(error),
OCIAttrSet(
svchp,
OCI_HTYPE_SVCCTX,
session->server->pServer,
0,
OCI_ATTR_SERVER,
OCI(pError)
)
);
if (OCI(error) != OCI_SUCCESS) {
oci_error(OCI(pError), "_oci_close_session: OCIAttrSet OCI_ATTR_SERVER", OCI(error));
}
/* Set the Authentication handle in the service handle */
CALL_OCI_RETURN(OCI(error),
OCIAttrSet(
svchp,
OCI_HTYPE_SVCCTX,
session->pSession,
0,
OCI_ATTR_SESSION,
OCI(pError)
)
);
if (OCI(error) != OCI_SUCCESS) {
oci_error(OCI(pError), "_oci_close_session: OCIAttrSet OCI_ATTR_SESSION", OCI(error));
}
CALL_OCI_RETURN(OCI(error),
OCISessionEnd(
svchp,
OCI(pError),
session->pSession,
(ub4) 0
)
);
if (OCI(error) != OCI_SUCCESS) {
oci_error(OCI(pError), "_oci_close_session: OCISessionEnd", OCI(error));
}
CALL_OCI(
OCIHandleFree(
(dvoid *) svchp,
(ub4) OCI_HTYPE_SVCCTX
)
);
} else {
oci_debug("_oci_close_session: logging-off DEAD session");
}
if (session->pSession) {
CALL_OCI(
OCIHandleFree(
(dvoid *) session->pSession,
(ub4) OCI_HTYPE_SESSION
)
);
}
mutex_lock(mx_lock);
num_links--;
if (!OCI(shutdown) && session->persistent) {
zend_llist_del_element(session->sessions_list, session, _session_compare);
num_persistent--;
}
mutex_unlock(mx_lock);
#ifdef HAVE_OCI_9_2
/* free environment handle (and fix bug #29652 with growing .msb FD number under weirdie Solarises) */
CALL_OCI(
OCIHandleFree(
(dvoid *) session->pEnv,
OCI_HTYPE_ENV
)
);
#endif
if (session->exclusive) {
efree(session);
}
}
/* }}} */
/* {{{ _oci_open_server()
*/
static oci_server *_oci_open_server(char *dbname,int persistent)
{
oci_server *server, *pserver = NULL;
TSRMLS_FETCH();
/*
check if we already have this server open
we will reuse servers within a request no matter if the user requested persistent
connections or not!
but only as pesistent requested connections will be kept between requests!
*/
/* TODO either keep servers global or don't reuse them at all */
zend_ts_hash_find(persistent_servers, dbname, strlen(dbname)+1, (void **) &pserver);
if (pserver) {
/* XXX ini-flag */
/*
if (!oci_ping(pserver)) {
pserver->is_open = 0;
}
*/
if (pserver->is_open) {
/* if our new users uses this connection persistent, we're keeping it! */
if (persistent) {
pserver->persistent = persistent;
}
return pserver;
} else { /* server "died" in the meantime - try to reconnect! */
_oci_close_server(pserver);
/* breakthru to open */
}
}
server = ecalloc(1,sizeof(oci_server));
server->persistent = persistent;
server->dbname = strdup(SAFE_STRING(dbname));
CALL_OCI(
OCIHandleAlloc(
OCI(pEnv),
(dvoid **)&server->pServer,
OCI_HTYPE_SERVER,
0,
NULL
)
);
CALL_OCI_RETURN(OCI(error),
OCIServerAttach(
server->pServer,
OCI(pError),
(text*)server->dbname,
strlen(server->dbname),
(ub4) OCI_DEFAULT
)
);
if (OCI(error)) {
oci_error(OCI(pError), "_oci_open_server", OCI(error));
goto CLEANUP;
}
zend_ts_hash_update(persistent_servers,
server->dbname,
strlen(server->dbname)+1,
(void *)server,
sizeof(oci_server),
(void**)&pserver);
pserver->num = zend_list_insert(pserver,le_server);
pserver->is_open = 1;
oci_debug("_oci_open_server new conn=%d dname=%s",server->num,server->dbname);
efree(server);
return pserver;
CLEANUP:
oci_debug("_oci_open_server: FAILURE -> CLEANUP called");
_oci_close_server(server);
return 0;
}
#if 0
server->failover.fo_ctx = (dvoid *) server;
server->failover.callback_function = oci_failover_callback;
error = OCIAttrSet((dvoid *)server->pServer,
(ub4) OCI_HTYPE_SERVER,
(dvoid *) &server->failover,
(ub4) 0,
(ub4) OCI_ATTR_FOCBK,
OCI(pError));
if (error) {
oci_error(OCI(pError), "_oci_open_server OCIAttrSet OCI_ATTR_FOCBK", error);
goto CLEANUP;
}
#endif
/* }}} */
/* {{{ _oci_close_server()
*/
static int _oci_session_cleanup(void *data TSRMLS_DC)
{
zend_rsrc_list_entry *le = (zend_rsrc_list_entry *) data;
if (le->type == le_session) {
oci_server *server = ((oci_session*) le->ptr)->server;
if (server && server->is_open == 2)
return 1;
}
return 0;
}
static void _oci_close_server(oci_server *server)
{
char *dbname;
int oldopen;
TSRMLS_FETCH();
oldopen = server->is_open;
server->is_open = 2;
if (!OCI(shutdown)) {
zend_hash_apply(&EG(regular_list), (apply_func_t) _oci_session_cleanup TSRMLS_CC);
}
server->is_open = oldopen;
oci_debug("START _oci_close_server: detaching conn=%d dbname=%s",server->num,server->dbname);
/* XXX close server here */
if (server->is_open) {
if (server->pServer && OCI(pError)) {
CALL_OCI_RETURN(OCI(error),
OCIServerDetach(
server->pServer,
OCI(pError),
OCI_DEFAULT
)
);
if (OCI(error)) {
oci_error(OCI(pError), "oci_close_server OCIServerDetach", OCI(error));
}
}
} else {
oci_debug("_oci_close_server: closing DEAD server");
}
if (server->pServer) {
CALL_OCI(
OCIHandleFree(
(dvoid *) server->pServer,
(ub4) OCI_HTYPE_SERVER
)
);
}
dbname = server->dbname;
if (!OCI(shutdown)) {
zend_ts_hash_del(persistent_servers, dbname, strlen(dbname)+1);
}
free(dbname);
}
/* }}} */
/* {{{ oci_do_connect()
Connect to an Oracle database and log on. returns a new session. */
static void oci_do_connect(INTERNAL_FUNCTION_PARAMETERS,int persistent,int exclusive)
{
char *username, *password, *dbname, *charset;
zval **userParam, **passParam, **dbParam, **charParam;
oci_server *server = 0;
oci_session *session = 0;
oci_connection *connection = 0;
/* if a forth parameter is handed over, it is the charset identifier (but is only used in Oracle 9i+) */
if (zend_get_parameters_ex(4, &userParam, &passParam, &dbParam, &charParam) == SUCCESS) {
convert_to_string_ex(userParam);
convert_to_string_ex(passParam);
convert_to_string_ex(dbParam);
convert_to_string_ex(charParam);
username = Z_STRVAL_PP(userParam);
password = Z_STRVAL_PP(passParam);
dbname = Z_STRVAL_PP(dbParam);
charset = Z_STRVAL_PP(charParam);
oci_debug("oci_do_connect: using charset=%s",charset);
} else if (zend_get_parameters_ex(3, &userParam, &passParam, &dbParam) == SUCCESS) {
convert_to_string_ex(userParam);
convert_to_string_ex(passParam);
convert_to_string_ex(dbParam);
username = Z_STRVAL_PP(userParam);
password = Z_STRVAL_PP(passParam);
dbname = Z_STRVAL_PP(dbParam);
charset = "";
} else if (zend_get_parameters_ex(2, &userParam, &passParam) == SUCCESS) {
convert_to_string_ex(userParam);
convert_to_string_ex(passParam);
username = Z_STRVAL_PP(userParam);
password = Z_STRVAL_PP(passParam);
dbname = "";
charset = "";
} else {
WRONG_PARAM_COUNT;
}
connection = (oci_connection *) ecalloc(1,sizeof(oci_connection));
if (!connection) {
goto CLEANUP;
}
server = _oci_open_server(dbname,persistent);
if (!server) {
goto CLEANUP;
}
if (exclusive) {
/* exlusive session can never be persistent!*/
persistent = 0;
} else {
/* if our server-context is not persistent we can't */
persistent = (server->persistent) ? persistent : 0;
}
session = _oci_open_session(server,username,password,persistent,exclusive,charset);
if (!session) {
goto CLEANUP;
}
/* set our session */
connection->session = session;
/* allocate our private error-handle */
CALL_OCI_RETURN(OCI(error),
OCIHandleAlloc(
connection->session->pEnv,
(dvoid **)&connection->pError,
OCI_HTYPE_ERROR,
0,
NULL
)
);
if (OCI(error) != OCI_SUCCESS) {
oci_error(OCI(pError), "oci_do_connect: OCIHandleAlloc OCI_HTYPE_ERROR",OCI(error));
goto CLEANUP;
}
/* allocate our service-context */
CALL_OCI_RETURN(OCI(error),
OCIHandleAlloc(
connection->session->pEnv,
(dvoid **)&connection->pServiceContext,
OCI_HTYPE_SVCCTX,
0,
NULL
)
);
if (OCI(error) != OCI_SUCCESS) {
oci_error(OCI(pError), "oci_do_connect: OCIHandleAlloc OCI_HTYPE_SVCCTX",OCI(error));
goto CLEANUP;
}
/* Set the server handle in service handle */
CALL_OCI_RETURN(connection->error,
OCIAttrSet(
connection->pServiceContext,
OCI_HTYPE_SVCCTX,
server->pServer,
0,
OCI_ATTR_SERVER,
connection->pError
)
);
if (connection->error != OCI_SUCCESS) {
oci_error(connection->pError, "oci_do_connect: OCIAttrSet OCI_ATTR_SERVER", connection->error);
goto CLEANUP;
}
/* Set the Authentication handle in the service handle */
CALL_OCI_RETURN(connection->error,
OCIAttrSet(
connection->pServiceContext,
OCI_HTYPE_SVCCTX,
session->pSession,
0,
OCI_ATTR_SESSION,
connection->pError
)
);
if (connection->error != OCI_SUCCESS) {
oci_error(connection->pError, "oci_do_connect: OCIAttrSet OCI_ATTR_SESSION", connection->error);
goto CLEANUP;
}
/*
OCIAttrSet((dvoid *)session->server->pServer,
OCI_HTYPE_SERVER,
(dvoid *) "demo",
0,
OCI_ATTR_EXTERNAL_NAME,
connection->pError);
OCIAttrSet((dvoid *)session->server->pServer,
OCI_HTYPE_SERVER,
(dvoid *) "txn demo2",
0,
OCI_ATTR_INTERNAL_NAME,
connection->pError);
*/
connection->id = zend_list_insert(connection, le_conn);
connection->is_open = 1;
oci_debug("oci_do_connect: id=%d",connection->id);
RETURN_RESOURCE(connection->id);
CLEANUP:
oci_debug("oci_do_connect: FAILURE -> CLEANUP called");
if (connection->id) {
zend_list_delete(connection->id);
} else {
_oci_conn_list_dtor(connection TSRMLS_CC);
}
RETURN_FALSE;
}
/* }}} */
/* {{{ oci_lob_flush()
*/
static int oci_lob_flush(oci_descriptor* descr, int flush_flag TSRMLS_DC)
{
OCILobLocator *mylob;
oci_connection *connection;
mylob = (OCILobLocator *) descr->ocidescr;
if (!mylob) {
return 0;
}
/* do not really flush buffer, but reporting success
* to suppress OCI error when flushing not used buffer
* */
if (descr->buffering != 2) {
return 1;
}
connection = descr->conn;
CALL_OCI_RETURN(connection->error,
OCILobFlushBuffer(
connection->pServiceContext,
connection->pError,
mylob,
flush_flag
)
);
oci_debug("oci_lob_flush: flush_flag=%d",flush_flag);
if (connection->error) {
oci_error(connection->pError, "OCILobFlushBuffer", connection->error);
oci_handle_error(connection, connection->error);
return 0;
}
/* marking buffer as enabled and not used */
descr->buffering = 1;
return 1;
}
/* }}} */
/* {{{ php_oci_fetch_row()
*/
static void php_oci_fetch_row (INTERNAL_FUNCTION_PARAMETERS, int mode, int expected_args)
{
zval **stmt, **arg2, **arg3;
oci_statement *statement;
oci_out_column *column;
ub4 nrows = 1;
int i;
if (ZEND_NUM_ARGS() > expected_args) {
WRONG_PARAM_COUNT;
}
if (expected_args > 2) {
/* only for ocifetchinto BC */
switch (ZEND_NUM_ARGS()) {
case 2:
if (zend_get_parameters_ex(2, &stmt, &arg2) == FAILURE) {
RETURN_FALSE;
}
if (!mode) {
mode = OCI_NUM;
}
break;
case 3:
if (zend_get_parameters_ex(3, &stmt, &arg2, &arg3) == FAILURE) {
RETURN_FALSE;
}
convert_to_long_ex(arg3);
mode = Z_LVAL_PP(arg3);
break;
default:
WRONG_PARAM_COUNT;
break;
}
} else {
switch (ZEND_NUM_ARGS()) {
case 1:
if (zend_get_parameters_ex(1, &stmt) == FAILURE) {
RETURN_FALSE;
}
if (!mode) {
mode = OCI_BOTH;
}
break;
case 2:
if (zend_get_parameters_ex(2, &stmt, &arg2)==FAILURE) {
RETURN_FALSE;
}
convert_to_long_ex(arg2);
mode = Z_LVAL_PP(arg2);
break;
default:
WRONG_PARAM_COUNT;
break;
}
}
OCI_GET_STMT(statement,stmt);
if (!oci_fetch(statement, nrows, "OCIFetchInto" TSRMLS_CC)) {
RETURN_FALSE;
}
array_init(return_value);
for (i = 0; i < statement->ncolumns; i++) {
column = oci_get_col(statement, i + 1, 0);
if (column == NULL) {
continue;
}
if ((column->indicator == -1) && ((mode & OCI_RETURN_NULLS) == 0)) {
continue;
}
if (!(column->indicator == -1)) {
zval *element;
MAKE_STD_ZVAL(element);
_oci_make_zval(element,statement,column,"OCIFetchInto",mode TSRMLS_CC);
if (mode & OCI_NUM || !(mode & OCI_ASSOC)) {
add_index_zval(return_value, i, element);
}
if (mode & OCI_ASSOC) {
if (mode & OCI_NUM) {
ZVAL_ADDREF(element);
}
add_assoc_zval(return_value, column->name, element);
}
} else {
if (mode & OCI_NUM || !(mode & OCI_ASSOC)) {
add_index_null(return_value, i);
}
if (mode & OCI_ASSOC) {
add_assoc_null(return_value, column->name);
}
}
}
if (expected_args > 2) {
/* only for ocifetchinto BC
* in all other cases we return array, not long
*/
REPLACE_ZVAL_VALUE(arg2, return_value, 1); /* copy return_value to given reference */
zval_dtor(return_value);
RETURN_LONG(statement->ncolumns);
}
}
/* }}} */
/************************* EXTENSION FUNCTIONS *************************/
/* {{{ proto bool oci_define_by_name(resource stmt, string name, mixed &var [, int type])
Define a PHP variable to an Oracle column by name */
/* if you want to define a LOB/CLOB etc make sure you allocate it via OCINewDescriptor BEFORE defining!!! */
PHP_FUNCTION(oci_define_by_name)
{
zval **stmt, **name, **var, **type;
oci_statement *statement;
oci_define *define, *tmp_define;
ub2 ocitype = SQLT_CHR; /* zero terminated string */
int ac = ZEND_NUM_ARGS();
if (ac < 3 || ac > 4 || zend_get_parameters_ex(ac, &stmt, &name, &var, &type) == FAILURE) {
WRONG_PARAM_COUNT;
}
switch (ac) {
case 4:
convert_to_long_ex(type);
ocitype = (ub2) Z_LVAL_PP(type);
/* possible breakthru */
}
OCI_GET_STMT(statement,stmt);
convert_to_string_ex(name);
if (statement->defines == NULL) {
ALLOC_HASHTABLE(statement->defines);
zend_hash_init(statement->defines, 13, NULL, _oci_define_hash_dtor, 0);
}
define = ecalloc(1,sizeof(oci_define));
if (zend_hash_add(statement->defines,
Z_STRVAL_PP(name),
Z_STRLEN_PP(name),
define,
sizeof(oci_define),
(void **)&tmp_define) == SUCCESS) {
efree(define);
define = tmp_define;
} else {
efree(define);
RETURN_FALSE;
}
define->name = (text*) estrndup(Z_STRVAL_PP(name),Z_STRLEN_PP(name));
define->name_len = Z_STRLEN_PP(name);
define->type = ocitype;
define->zval = *var;
zval_add_ref(var);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto bool oci_bind_by_name(resource stmt, string name, mixed &var, [, int maxlength [, int type]])
Bind a PHP variable to an Oracle placeholder by name */
/* if you want to bind a LOB/CLOB etc make sure you allocate it via OCINewDescriptor BEFORE binding!!! */
PHP_FUNCTION(oci_bind_by_name)
{
zval **stmt, **name, **var, **maxlen, **type;
oci_statement *statement;
oci_statement *bindstmt;
oci_bind bind, *bindp;
oci_descriptor *descr;
#ifdef PHP_OCI8_HAVE_COLLECTIONS
oci_collection *coll;
dvoid *mycoll = 0;
#endif
int mode = OCI_DATA_AT_EXEC;
ub2 ocitype = SQLT_CHR; /* unterminated string */
OCIStmt *mystmt = 0;
dvoid *mydescr = 0;
sb4 value_sz = -1;
int ac = ZEND_NUM_ARGS(), inx;
if (ac < 3 || ac > 5 || zend_get_parameters_ex(ac, &stmt, &name, &var, &maxlen, &type) == FAILURE) {
WRONG_PARAM_COUNT;
}
switch (ac) {
case 5:
convert_to_long_ex(type);
ocitype = (ub2) Z_LVAL_PP(type);
/* possible breakthru */
case 4:
convert_to_long_ex(maxlen);
value_sz = Z_LVAL_PP(maxlen);
/* possible breakthru */
}
OCI_GET_STMT(statement,stmt);
switch (ocitype) {
#ifdef PHP_OCI8_HAVE_COLLECTIONS
case SQLT_NTY:
if (Z_TYPE_PP(var) != IS_OBJECT) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Variable must be allocated using OCINewCollection()");
RETURN_FALSE;
}
if ((inx = _oci_get_ocicoll(*var,&coll TSRMLS_CC)) == 0) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Variable must be allocated using OCINewCollection()");
RETURN_FALSE;
}
if (!(mycoll = (dvoid *) coll->coll)) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Collection empty");
RETURN_FALSE;
}
value_sz = sizeof(void*);
mode = OCI_DEFAULT;
break;
#endif
case SQLT_BFILEE:
case SQLT_CFILEE:
case SQLT_CLOB:
case SQLT_BLOB:
case SQLT_RDD:
if (Z_TYPE_PP(var) != IS_OBJECT) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Variable must be allocated using OCINewDescriptor()");
RETURN_FALSE;
}
if ((inx = _oci_get_ocidesc(*var,&descr TSRMLS_CC)) == 0) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Variable must be allocated using OCINewDescriptor()");
RETURN_FALSE;
}
if (!(mydescr = (dvoid *) descr->ocidescr)) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Descriptor empty");
RETURN_FALSE;
}
value_sz = sizeof(void*);
break;
case SQLT_RSET:
OCI_GET_STMT(bindstmt,var);
if (!(mystmt = bindstmt->pStmt)) {
RETURN_FALSE;
}
value_sz = sizeof(void*);
break;
case SQLT_CHR:
break;
default:
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unknown or unsupported datatype given: %u", ocitype);
RETURN_FALSE;
break;
}
if ((ocitype == SQLT_CHR) && (value_sz == -1)) {
convert_to_string_ex(var);
value_sz = Z_STRLEN_PP(var);
}
if (value_sz == 0) {
value_sz = 1;
}
convert_to_string_ex(name);
if (!statement->binds) {
ALLOC_HASHTABLE(statement->binds);
zend_hash_init(statement->binds, 13, NULL, _oci_bind_hash_dtor, 0);
}
memset((void*)&bind,0,sizeof(oci_bind));
zend_hash_update(statement->binds, Z_STRVAL_PP(name), Z_STRLEN_PP(name) + 1, &bind, sizeof(oci_bind), (void **)&bindp);
bindp->descr = mydescr;
bindp->pStmt = mystmt;
bindp->zval = *var;
zval_add_ref(var);
CALL_OCI_RETURN(statement->error,
OCIBindByName(
statement->pStmt, /* statement handle */
(OCIBind **)&bindp->pBind, /* bind hdl (will alloc) */
statement->pError, /* error handle */
(text*) Z_STRVAL_PP(name), /* placeholder name */
Z_STRLEN_PP(name), /* placeholder length */
(dvoid *)0, /* in/out data */
value_sz, /* OCI_MAX_DATA_SIZE, */ /* max size of input/output data */
(ub2)ocitype, /* in/out data type */
(dvoid *)&bindp->indicator, /* indicator (ignored) */
(ub2 *)0, /* size array (ignored) */
(ub2 *)&bindp->retcode, /* return code (ignored) */
(ub4)0, /* maxarr_len (PL/SQL only?) */
(ub4 *)0, /* actual array size (PL/SQL only?) */
mode /* mode */
)
);
if (statement->error != OCI_SUCCESS) {
oci_error(statement->pError, "OCIBindByName", statement->error);
oci_handle_error(statement->conn, statement->error);
RETURN_FALSE;
}
if (mode == OCI_DATA_AT_EXEC) {
CALL_OCI_RETURN(statement->error,
OCIBindDynamic(
bindp->pBind,
statement->pError,
(dvoid *)bindp,
oci_bind_in_callback,
(dvoid *)bindp,
oci_bind_out_callback
)
);
if (statement->error != OCI_SUCCESS) {
oci_error(statement->pError, "OCIBindDynamic", statement->error);
oci_handle_error(statement->conn, statement->error);
RETURN_FALSE;
}
}
#ifdef PHP_OCI8_HAVE_COLLECTIONS
if (ocitype == SQLT_NTY) {
/* Bind object */
CALL_OCI_RETURN(statement->error,
OCIBindObject(
bindp->pBind,
statement->pError,
coll->tdo,
(dvoid **) &(coll->coll),
(ub4 *) 0,
(dvoid **) 0,
(ub4 *) 0
)
);
if (statement->error) {
oci_error(statement->pError, "OCIBindObject", statement->error);
RETURN_FALSE;
}
}
#endif
RETURN_TRUE;
}
/* }}} */
/* {{{ proto bool oci_free_descriptor()
Deletes large object description */
PHP_FUNCTION(oci_free_descriptor)
{
zval *id;
int inx;
oci_descriptor *descriptor;
if ((id = getThis()) != 0) {
inx = _oci_get_ocidesc(id,&descriptor TSRMLS_CC);
if (inx) {
oci_debug("oci_free_descriptor: descr=%d",inx);
zend_list_delete(inx);
RETURN_TRUE;
}
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_free_descriptor() should not be called like this. Use $somelob->free() to free a LOB");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool oci_lob_save( string data [, int offset ])
Saves a large object */
PHP_FUNCTION(oci_lob_save)
{
zval *id, **arg,**oarg;
OCILobLocator *mylob;
oci_connection *connection;
oci_descriptor *descr;
int offparam,inx;
ub4 loblen;
ub4 curloblen;
ub4 offset;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
mylob = (OCILobLocator *) descr->ocidescr;
if (!mylob) {
RETURN_FALSE;
}
connection = descr->conn;
offset = 0;
if (zend_get_parameters_ex(2, &arg, &oarg) == SUCCESS) {
convert_to_long_ex(oarg);
offparam = Z_LVAL_PP(oarg);
CALL_OCI_RETURN(connection->error,
OCILobGetLength(
connection->pServiceContext,
connection->pError,
mylob,
&curloblen
)
);
oci_debug("oci_lob_save: curloblen=%d",curloblen);
if (offparam == -1) {
offset = curloblen;
} else if ((ub4)offparam >= curloblen) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Offset is bigger than current LOB-Size - appending");
offset = curloblen;
} else {
offset = (ub4)offparam;
}
} else if (zend_get_parameters_ex(1, &arg) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_string_ex(arg);
loblen = Z_STRLEN_PP(arg);
if (loblen < 1) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Cannot save a lob which size is less than 1 byte");
RETURN_FALSE;
}
if (offset <= 0) {
offset = 1;
}
CALL_OCI_RETURN(connection->error,
OCILobWrite(
connection->pServiceContext,
connection->pError,
mylob,
&loblen,
(ub4) offset,
(dvoid *) Z_STRVAL_PP(arg),
(ub4) loblen,
OCI_ONE_PIECE,
(dvoid *)0,
(OCICallbackLobWrite) 0,
(ub2) 0,
(ub1) SQLCS_IMPLICIT
)
);
oci_debug("oci_lob_save: size=%d offset=%d",loblen,offset);
if (connection->error) {
oci_error(connection->pError, "OCILobWrite", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
RETURN_TRUE;
}
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool oci_lob_import( string filename )
Saves a large object to file */
PHP_FUNCTION(oci_lob_import)
{
zval *id, **arg;
OCILobLocator *mylob;
oci_connection *connection;
oci_descriptor *descr;
char *filename;
int fp,inx;
char buf[8192];
ub4 offset = 1;
ub4 loblen;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
mylob = (OCILobLocator *) descr->ocidescr;
if (!mylob) {
RETURN_FALSE;
}
connection = descr->conn;
if (zend_get_parameters_ex(1, &arg) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_string_ex(arg);
if (php_check_open_basedir(Z_STRVAL_PP(arg) TSRMLS_CC)) {
RETURN_FALSE;
}
filename = Z_STRVAL_PP(arg);
if ((fp = VCWD_OPEN(filename, O_RDONLY|O_BINARY)) == -1) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Can't open file %s", filename);
RETURN_FALSE;
}
while ((loblen = read(fp, &buf, sizeof(buf))) > 0) {
CALL_OCI_RETURN(connection->error,
OCILobWrite(
connection->pServiceContext,
connection->pError,
mylob,
&loblen,
(ub4) offset,
(dvoid *) &buf,
(ub4) loblen,
OCI_ONE_PIECE,
(dvoid *)0,
(OCICallbackLobWrite) 0,
(ub2) 0,
(ub1) SQLCS_IMPLICIT
)
);
oci_debug("oci_lob_import: size=%d",loblen);
if (connection->error) {
oci_error(connection->pError, "OCILobWrite", connection->error);
oci_handle_error(connection, connection->error);
close(fp);
RETURN_FALSE;
}
offset += loblen;
}
close(fp);
RETURN_TRUE;
}
RETURN_FALSE;
}
/* }}} */
/* {{{ proto string oci_lob_load()
Loads a large object */
PHP_FUNCTION(oci_lob_load)
{
zval *id;
oci_descriptor *descr;
char *buffer;
int inx;
ub4 loblen;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
if (!oci_loadlob(descr->conn,descr,&buffer,&loblen)) {
RETURN_STRINGL(buffer,loblen,0);
} else {
RETURN_FALSE;
}
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_lob_load() should not be called like this. Use $somelob->load() to load a LOB");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto string oci_lob_read( int length )
Reads particular part of a large object */
PHP_FUNCTION(oci_lob_read)
{
zval *id;
zval **len;
oci_descriptor *descr;
char *buffer;
int inx;
ub4 loblen;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
if (zend_get_parameters_ex(1, &len) == FAILURE) {
WRONG_PARAM_COUNT;
}
loblen = Z_LVAL_PP(len);
if (oci_readlob(descr->conn,descr,&buffer,&loblen) == 0) {
RETURN_STRINGL(buffer,loblen,0);
} else {
RETURN_FALSE;
}
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_lob_read() should not be called like this. Use $somelob->read($len) to read a LOB");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool oci_lob_eof()
Checks if EOF is reached */
PHP_FUNCTION(oci_lob_eof)
{
zval *id;
oci_descriptor *descr;
int inx;
int len;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
if (oci_lobgetlen(descr->conn,descr,&len) == 0 && descr->lob_size >= 0) {
if (descr->lob_size == descr->lob_current_position) {
RETURN_TRUE;
} else {
RETURN_FALSE;
}
}
RETURN_FALSE;
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_lob_eof() should not be called like this. Use $somelob->eof() to check if end of LOB is reached");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto int oci_lob_tell()
Tells LOB pointer position */
PHP_FUNCTION(oci_lob_tell)
{
zval *id;
oci_descriptor *descr;
int inx;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
RETURN_LONG(descr->lob_current_position);
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_lob_tell() should not be called like this. Use $somelob->tell() to get current position of LOB pointer");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool oci_lob_rewind()
Rewind pointer of a LOB */
PHP_FUNCTION(oci_lob_rewind)
{
zval *id;
oci_descriptor *descr;
int inx;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
descr->lob_current_position = 0;
RETURN_TRUE;
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_lob_rewind() should not be called like this. Use $somelob->rewind() to set current position of LOB pointer to beginning");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool oci_lob_seek( int offset [, int whence ])
Moves the pointer of a LOB */
PHP_FUNCTION(oci_lob_seek)
{
zval *id;
zval **arg1, **arg2;
int argcount = ZEND_NUM_ARGS(), whence = OCI_SEEK_SET;
oci_descriptor *descr;
int inx, len;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
if (argcount < 1 || argcount > 2 || zend_get_parameters_ex(argcount, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
if (oci_lobgetlen(descr->conn,descr,&len) == 0 && descr->lob_size >= 0) {
if (argcount > 1) {
convert_to_long_ex(arg2);
whence = Z_LVAL_PP(arg2);
switch (whence) {
case OCI_SEEK_CUR:
descr->lob_current_position += Z_LVAL_PP(arg1);
break;
case OCI_SEEK_END:
if (descr->lob_size + Z_LVAL_PP(arg1) >= 0) {
descr->lob_current_position = descr->lob_size + Z_LVAL_PP(arg1);
} else {
descr->lob_current_position = 0;
}
break;
case OCI_SEEK_SET:
default:
descr->lob_current_position = Z_LVAL_PP(arg1);
break;
}
} else {
/* OCI_SEEK_SET by default */
descr->lob_current_position = Z_LVAL_PP(arg1);
}
RETURN_TRUE;
} else {
RETURN_FALSE;
}
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_lob_seek() should not be called like this. Use $somelob->seek($offset) to move pointer");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto int oci_lob_size()
Returns size of a large object */
PHP_FUNCTION(oci_lob_size)
{
zval *id;
oci_descriptor *descr;
int inx;
ub4 loblen;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
if (!oci_lobgetlen(descr->conn,descr,&loblen)) {
RETURN_LONG(loblen);
} else {
RETURN_FALSE;
}
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_lob_size() should not be called like this. Use $somelob->size() to get size of a LOB");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto int oci_lob_write( string string [, int length ])
Writes data to current position of a LOB */
PHP_FUNCTION(oci_lob_write)
{
zval *id, **data,**length;
OCILobLocator *mylob;
oci_connection *connection;
oci_descriptor *descr;
int write_length,inx;
ub4 loblen;
ub4 curloblen;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
IS_LOB_INTERNAL(descr);
mylob = (OCILobLocator *) descr->ocidescr;
if (!mylob) {
RETURN_FALSE;
}
connection = descr->conn;
if (oci_lobgetlen(descr->conn,descr,&curloblen) != 0) {
RETURN_FALSE;
}
if (zend_get_parameters_ex(2, &data, &length) == SUCCESS) {
convert_to_string_ex(data);
convert_to_long_ex(length);
write_length = Z_LVAL_PP(length);
} else if (zend_get_parameters_ex(1, &data) == SUCCESS) {
convert_to_string_ex(data);
write_length = Z_STRLEN_PP(data);
} else {
WRONG_PARAM_COUNT;
}
if (write_length < 1) {
RETURN_LONG(0);
}
loblen = write_length;
CALL_OCI_RETURN(connection->error,
OCILobWrite(
connection->pServiceContext,
connection->pError,
mylob,
&loblen,
(ub4) descr->lob_current_position+1,
(dvoid *) Z_STRVAL_PP(data),
(ub4) loblen,
OCI_ONE_PIECE,
(dvoid *)0,
(OCICallbackLobWrite) 0,
(ub2) 0,
(ub1) SQLCS_IMPLICIT
)
);
oci_debug("oci_lob_write: size=%d offset=%d",loblen,descr->lob_current_position);
if (connection->error) {
oci_error(connection->pError, "OCILobWrite", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
descr->lob_current_position += loblen;
if (descr->lob_current_position > descr->lob_size) {
descr->lob_size = descr->lob_current_position;
}
/* marking buffer as used */
if (descr->buffering == 1) {
descr->buffering = 2;
}
RETURN_LONG(loblen);
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_lob_write() should not be called like this. Use $somelob->write($data,$len) to write to a LOB");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool oci_lob_append( object lob )
Appends data from a LOB to another LOB */
PHP_FUNCTION(oci_lob_append)
{
zval *id, **arg;
OCILobLocator *mylob,*my_fromlob;
oci_connection *connection;
oci_descriptor *descr,*from_descr;
int inx;
ub4 curloblen,from_curloblen;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
IS_LOB_INTERNAL(descr);
mylob = (OCILobLocator *) descr->ocidescr;
if (!mylob) {
RETURN_FALSE;
}
connection = descr->conn;
if (oci_lobgetlen(descr->conn,descr,&curloblen) != 0) {
RETURN_FALSE;
}
if (zend_get_parameters_ex(1, &arg) == SUCCESS) {
convert_to_object_ex(arg);
if ((inx = _oci_get_ocidesc(*arg,&from_descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
my_fromlob = (OCILobLocator *) from_descr->ocidescr;
if (!my_fromlob) {
RETURN_FALSE;
}
if (oci_lobgetlen(from_descr->conn,from_descr,&from_curloblen) != 0) {
RETURN_FALSE;
}
} else {
WRONG_PARAM_COUNT;
}
if (from_descr->lob_size == 0) {
RETURN_LONG(0);
}
CALL_OCI_RETURN(connection->error,
OCILobAppend(
connection->pServiceContext,
connection->pError,
mylob,
my_fromlob
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobAppend", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
RETURN_TRUE;
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_lob_append() should not be called like this. Use $somelob->append($LOB_from) to append data from a LOB to another LOB");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool oci_lob_truncate( [ int length ])
Truncates a LOB */
PHP_FUNCTION(oci_lob_truncate)
{
zval *id, **length;
OCILobLocator *mylob;
oci_connection *connection;
oci_descriptor *descr;
int inx;
ub4 trim_length;
ub4 curloblen;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
IS_LOB_INTERNAL(descr);
mylob = (OCILobLocator *) descr->ocidescr;
if (!mylob) {
RETURN_FALSE;
}
connection = descr->conn;
if (oci_lobgetlen(descr->conn,descr,&curloblen) != 0) {
RETURN_FALSE;
}
if (zend_get_parameters_ex(1, &length) == SUCCESS) {
convert_to_long_ex(length);
trim_length = Z_LVAL_PP(length);
} else {
trim_length = 0;
}
if (trim_length < 0) {
/* negative length is not allowed */
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCILobTrim(
connection->pServiceContext,
connection->pError,
mylob,
trim_length
)
);
oci_debug("oci_lob_truncate: trim_length=%d",trim_length);
if (connection->error) {
oci_error(connection->pError, "OCILobTrim", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
descr->lob_size = trim_length;
RETURN_TRUE;
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_lob_truncate() should not be called like this. Use $somelob->truncate($length) to truncate a LOB to a specified length");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto int oci_lob_erase( [ int offset [, int length ] ] )
Erases a specified portion of the internal LOB, starting at a specified offset */
PHP_FUNCTION(oci_lob_erase)
{
zval *id, **length, **offset;
OCILobLocator *mylob;
oci_connection *connection;
oci_descriptor *descr;
int inx;
ub4 erase_length, erase_offset;
ub4 curloblen;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
IS_LOB_INTERNAL(descr);
mylob = (OCILobLocator *) descr->ocidescr;
if (!mylob) {
RETURN_FALSE;
}
connection = descr->conn;
if (oci_lobgetlen(descr->conn,descr,&curloblen) != 0) {
RETURN_FALSE;
}
if (zend_get_parameters_ex(2, &offset, &length) == SUCCESS) {
convert_to_long_ex(offset);
convert_to_long_ex(length);
erase_offset = Z_LVAL_PP(offset);
erase_length = Z_LVAL_PP(length);
} else if (zend_get_parameters_ex(1, &offset) == SUCCESS) {
convert_to_long_ex(offset);
erase_offset = Z_LVAL_PP(offset);
erase_length = descr->lob_size - erase_offset;
} else {
erase_offset = 0;
erase_length = descr->lob_size;
}
if (erase_length < 1) {
RETURN_LONG(0);
}
if (erase_offset > descr->lob_size) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "oci_lob_erase(): offset is greater than LOB's length");
}
CALL_OCI_RETURN(connection->error,
OCILobErase(
connection->pServiceContext,
connection->pError,
mylob,
&erase_length,
erase_offset+1
)
);
oci_debug("oci_lob_erase: erase_length=%d, erase_offset=%d",erase_length,erase_offset);
if (connection->error) {
oci_error(connection->pError, "OCILobErase", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
RETURN_LONG(erase_length);
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_lob_erase() should not be called like this. Use $somelob->erase($offset, $length) to erase specified part of LOB");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool oci_lob_flush( [ int flag ] )
Flushes the LOB buffer */
PHP_FUNCTION(oci_lob_flush)
{
zval *id, **flag;
OCILobLocator *mylob;
oci_connection *connection;
oci_descriptor *descr;
int inx, flush_flag;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
IS_LOB_INTERNAL(descr);
mylob = (OCILobLocator *) descr->ocidescr;
if (!mylob) {
RETURN_FALSE;
}
connection = descr->conn;
if (zend_get_parameters_ex(1, &flag) == SUCCESS) {
convert_to_long_ex(flag);
flush_flag = Z_LVAL_PP(flag);
} else {
flush_flag = 0;
}
if (descr->buffering == 0) {
/* buffering wasn't enabled, there is nothing to flush */
RETURN_FALSE;
}
if (oci_lob_flush(descr,flush_flag TSRMLS_CC) == 1) {
RETURN_TRUE;
}
RETURN_FALSE;
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_lob_flush() should not be called like this. Use $somelob->flush() to flush LOB buffer");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool ocisetbufferinglob( boolean flag )
Enables/disables buffering for a LOB */
PHP_FUNCTION(ocisetbufferinglob)
{
zval *id, **flag;
OCILobLocator *mylob;
oci_connection *connection;
oci_descriptor *descr;
int inx, buffering_flag;
ub4 curloblen;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
IS_LOB_INTERNAL(descr);
mylob = (OCILobLocator *) descr->ocidescr;
if (!mylob) {
RETURN_FALSE;
}
connection = descr->conn;
if (oci_lobgetlen(descr->conn,descr,&curloblen) != 0) {
RETURN_FALSE;
}
if (zend_get_parameters_ex(1, &flag) == SUCCESS) {
convert_to_boolean_ex(flag);
buffering_flag = Z_LVAL_PP(flag);
} else {
WRONG_PARAM_COUNT;
}
/* we'll return true if function was called twice with the same parameter */
if (buffering_flag == 0 && descr->buffering == 0) {
RETURN_TRUE;
} else if (buffering_flag == 1 && descr->buffering > 0) {
RETURN_TRUE;
}
switch (buffering_flag) {
case 0:
CALL_OCI_RETURN(connection->error,
OCILobDisableBuffering(
connection->pServiceContext,
connection->pError,
mylob
)
);
break;
case 1:
CALL_OCI_RETURN(connection->error,
OCILobEnableBuffering(
connection->pServiceContext,
connection->pError,
mylob
)
);
break;
}
oci_debug("oci_lob_set_buffering: buffering_flag=%d",buffering_flag);
if (connection->error) {
oci_error(connection->pError, "OCILobFlushBuffer", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
descr->buffering = buffering_flag;
RETURN_TRUE;
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "OCISetBufferingLob() should not be called like this. Use $somelob->setBuffering($flag) to set buffering on/off for a LOB");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool ocigetbufferinglob()
Returns current state of buffering for a LOB */
PHP_FUNCTION(ocigetbufferinglob)
{
zval *id;
OCILobLocator *mylob;
oci_descriptor *descr;
int inx;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
IS_LOB_INTERNAL(descr);
mylob = (OCILobLocator *) descr->ocidescr;
if (!mylob) {
RETURN_FALSE;
}
switch (descr->buffering) {
case 1:
case 2:
RETURN_TRUE;
break;
case 0:
default:
RETURN_FALSE;
break;
}
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "OCIGetBufferingLob() should not be called like this. Use $somelob->getBuffering() to get current state of buffering for a LOB");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool oci_lob_copy( object lob_to, object lob_from [, int length ] )
Copies data from a LOB to another LOB */
PHP_FUNCTION(oci_lob_copy)
{
zval **arg1, **arg2, **arg3;
OCILobLocator *mylob,*my_fromlob;
oci_connection *connection;
oci_descriptor *descr,*from_descr;
int inx, ac = ZEND_NUM_ARGS();
ub4 curloblen,from_curloblen, copylen;
if (ac < 2 || ac > 3 || zend_get_parameters_ex(ac, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_object_ex(arg1);
convert_to_object_ex(arg2);
if ((inx = _oci_get_ocidesc(*arg1,&descr TSRMLS_CC)) == 0 || (inx = _oci_get_ocidesc(*arg2,&from_descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
IS_LOB_INTERNAL(descr);
IS_LOB_INTERNAL(from_descr);
mylob = (OCILobLocator *) descr->ocidescr;
my_fromlob = (OCILobLocator *) from_descr->ocidescr;
if (!mylob || !my_fromlob) {
RETURN_FALSE;
}
if (oci_lobgetlen(descr->conn,descr,&curloblen) != 0 || oci_lobgetlen(from_descr->conn,from_descr,&from_curloblen) != 0) {
RETURN_FALSE;
}
if (ac == 3) {
convert_to_long_ex(arg3);
copylen = Z_LVAL_PP(arg3);
} else {
copylen = from_descr->lob_size - from_descr->lob_current_position;
}
if ((int)copylen <= 0) {
RETURN_FALSE;
}
connection = descr->conn;
CALL_OCI_RETURN(connection->error,
OCILobCopy(
connection->pServiceContext,
connection->pError,
mylob,
my_fromlob,
copylen,
descr->lob_current_position+1,
from_descr->lob_current_position+1
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobCopy", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
RETURN_TRUE;
}
/* }}} */
/* {{{ proto bool oci_lob_is_equal( object lob1, object lob2 )
Tests to see if two LOB/FILE locators are equal */
PHP_FUNCTION(oci_lob_is_equal)
{
zval **arg1, **arg2;
OCILobLocator *first_lob,*second_lob;
oci_connection *connection;
oci_descriptor *first_descr,*second_descr;
int inx;
boolean is_equal;
if (zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_object_ex(arg1);
convert_to_object_ex(arg2);
if ((inx = _oci_get_ocidesc(*arg1,&first_descr TSRMLS_CC)) == 0 || (inx = _oci_get_ocidesc(*arg2,&second_descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
first_lob = (OCILobLocator *) first_descr->ocidescr;
second_lob = (OCILobLocator *) second_descr->ocidescr;
if (!first_lob || !second_lob) {
RETURN_FALSE;
}
connection = first_descr->conn;
CALL_OCI_RETURN(connection->error,
OCILobIsEqual(
connection->session->pEnv,
first_lob,
second_lob,
&is_equal
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobIsEqual", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
if (is_equal == TRUE) {
RETURN_TRUE;
} else {
RETURN_FALSE;
}
}
/* }}} */
/* {{{ proto bool oci_lob_export([string filename [, int start [, int length]]])
Writes a large object into a file */
PHP_FUNCTION(oci_lob_export)
{
zval *id, **zfilename, **zstart, **zlength;
char *filename = NULL;
int start = -1;
ub4 length = -1;
oci_connection *connection;
oci_descriptor *descr;
char *buffer=0;
ub4 loblen;
int ac = ZEND_NUM_ARGS();
int fp = -1,inx;
OCILobLocator *mylob;
int coffs;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocidesc(id,&descr TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
mylob = (OCILobLocator *) descr->ocidescr;
if (!mylob) {
RETURN_FALSE;
}
connection = descr->conn;
if (ac < 0 || ac > 3 || zend_get_parameters_ex(ac, &zfilename, &zstart, &zlength) == FAILURE) {
WRONG_PARAM_COUNT;
}
switch (ac) {
case 3:
convert_to_long_ex(zlength);
length = Z_LVAL_PP(zlength);
case 2:
convert_to_long_ex(zstart);
start = Z_LVAL_PP(zstart);
case 1:
convert_to_string_ex(zfilename);
filename = Z_STRVAL_PP(zfilename);
}
if (filename && *filename) {
if (php_check_open_basedir(filename TSRMLS_CC)) {
goto bail;
}
if ((fp = VCWD_OPEN_MODE(filename,O_CREAT | O_RDWR | O_BINARY | O_TRUNC, 0600)) == -1) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Can't create file %s", filename);
goto bail;
}
}
CALL_OCI_RETURN(connection->error,
OCILobGetLength(
connection->pServiceContext,
connection->pError,
descr->ocidescr,
&loblen
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobGetLength", connection->error);
oci_handle_error(connection, connection->error);
goto bail;
}
if (descr->type == OCI_DTYPE_FILE) {
CALL_OCI_RETURN(connection->error,
OCILobFileOpen(
connection->pServiceContext,
connection->pError,
descr->ocidescr,
OCI_FILE_READONLY
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobFileOpen",connection->error);
oci_handle_error(connection, connection->error);
goto bail;
}
}
if (start == -1) {
start = 0;
}
if (length == -1) {
length = loblen - start;
}
if ((start + length) > loblen) {
length = loblen - start;
}
#define OCI_LOB_READ_BUFFER 128*1024
buffer = emalloc(OCI_LOB_READ_BUFFER);
coffs = start;
oci_debug("oci_lob_export(start = %d, length = %d, loblen = %d",start,length,loblen);
while (length > 0) {
ub4 toread;
if (length > OCI_LOB_READ_BUFFER) {
toread = OCI_LOB_READ_BUFFER;
} else {
toread = length;
}
oci_debug("oci_lob_read(coffs = %d, toread = %d",coffs,toread);
CALL_OCI_RETURN(connection->error,
OCILobRead(
connection->pServiceContext,
connection->pError,
descr->ocidescr,
&toread, /* IN/OUT bytes toread/read */
coffs+1, /* offset (starts with 1) */
(dvoid *) buffer,
toread, /* size of buffer */
(dvoid *)0,
(OCICallbackLobRead) 0, /* callback... */
(ub2) 0, /* The character set ID of the buffer data. */
(ub1) SQLCS_IMPLICIT /* The character set form of the buffer data. */
)
);
oci_debug("oci_lob_read(read - %d",toread);
if (connection->error) {
oci_error(connection->pError, "OCILobRead", connection->error);
oci_handle_error(connection, connection->error);
goto bail;
}
if (fp != -1) {
if ((ub4) write(fp,buffer,toread) != toread) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "cannot write file!");
goto bail;
}
} else {
PHPWRITE(buffer,toread);
}
length -= toread;
coffs += toread;
}
efree(buffer);
buffer = 0;
if (fp != -1) {
close(fp);
fp = 0;
}
if (descr->type == OCI_DTYPE_FILE) {
CALL_OCI_RETURN(connection->error,
OCILobFileClose(
connection->pServiceContext,
connection->pError,
descr->ocidescr
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobFileClose", connection->error);
oci_handle_error(connection, connection->error);
goto bail;
}
}
RETURN_TRUE;
}
bail:
if (fp != -1) {
close(fp);
}
if (buffer) {
efree(buffer);
}
RETURN_FALSE;
}
/* }}} */
#ifdef HAVE_OCI8_TEMP_LOB
/* {{{ proto bool oci_lob_write_temporary(string var [, int lob_type])
Writes temporary blob */
PHP_FUNCTION(oci_lob_write_temporary)
{
zval *id, *var;
OCILobLocator *mylob;
oci_connection *connection;
oci_descriptor *descr;
ub4 offset = 1;
ub4 loblen;
long lob_type = OCI_TEMP_CLOB;
oci_debug ("oci_write_temporary_lob");
if ((id = getThis()) == 0) {
RETURN_FALSE;
}
if (_oci_get_ocidesc(id,&descr TSRMLS_CC) == 0) {
RETURN_FALSE;
}
mylob = (OCILobLocator *) descr->ocidescr;
if (!mylob) {
RETURN_FALSE;
}
connection = descr->conn;
if (ZEND_NUM_ARGS() < 1) WRONG_PARAM_COUNT;
if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z|l", &var, &lob_type) == FAILURE) {
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCILobCreateTemporary(
connection->pServiceContext,
connection->pError,
mylob,
OCI_DEFAULT,
OCI_DEFAULT,
lob_type,
OCI_ATTR_NOCACHE,
OCI_DURATION_SESSION
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobCreateTemporary", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCILobOpen(
connection->pServiceContext,
connection->pError,
mylob,
OCI_LOB_READWRITE
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobOpen", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
convert_to_string_ex(&var);
loblen = Z_STRLEN_P(var);
if (loblen < 1) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Cannot save a lob that is less than 1 byte");
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCILobWrite(
connection->pServiceContext,
connection->pError,
mylob,
(ub4 *) &loblen,
(ub4) offset,
(dvoid *) Z_STRVAL_P(var),
(ub4) loblen,
OCI_ONE_PIECE,
(dvoid *)0,
(sb4 (*)(dvoid *, dvoid *, ub4 *, ub1 *)) 0,
(ub2) 0,
(ub1) SQLCS_IMPLICIT
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobWrite", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
RETURN_TRUE;
}
/* }}} */
/* {{{ proto bool oci_lob_close()
Closes lob descriptor */
PHP_FUNCTION(oci_lob_close)
{
zval *id;
int inx;
OCILobLocator *mylob;
oci_connection *connection;
oci_descriptor *descriptor;
int is_temporary;
if ((id = getThis()) != 0) {
inx = _oci_get_ocidesc(id,&descriptor TSRMLS_CC);
if (inx) {
mylob = (OCILobLocator *) descriptor->ocidescr;
if (!mylob) {
RETURN_FALSE;
}
connection = descriptor->conn;
CALL_OCI_RETURN(connection->error,
OCILobClose(
connection->pServiceContext,
connection->pError,
mylob
)
);
if (connection->error) {
oci_error(connection->pError, "OCILobClose", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
connection->error =
OCILobIsTemporary(connection->session->pEnv,
connection->pError,
mylob,
&is_temporary);
if (is_temporary) {
connection->error =
OCILobFreeTemporary(connection->pServiceContext,
connection->pError,
mylob);
if (connection->error) {
oci_error(connection->pError, "OCILobFreeTemporary",
connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
oci_debug("oci_lob_free_temporary: descr=%d",inx);
}
oci_debug("oci_close_lob: descr=%d",inx);
RETURN_TRUE;
}
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_lob_close() should not be called like this. Use $somelob->close() to close a LOB");
RETURN_FALSE;
}
/* }}} */
#endif
/* {{{ proto object oci_new_descriptor(resource connection [, int type])
Initialize a new empty descriptor LOB/FILE (LOB is default) */
PHP_FUNCTION(oci_new_descriptor)
{
zval **conn, **type;
oci_connection *connection;
oci_descriptor *descr;
int dtype;
dtype = OCI_DTYPE_LOB;
if (zend_get_parameters_ex(2, &conn, &type) == SUCCESS) {
convert_to_long_ex(type);
dtype = Z_LVAL_PP(type);
} else if (zend_get_parameters_ex(1, &conn) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_CONN(connection,conn);
descr = oci_new_desc(dtype,connection);
if (!descr) {
RETURN_NULL();
}
object_init_ex(return_value, oci_lob_class_entry_ptr);
add_property_resource(return_value, "descriptor", descr->id);
}
/* }}} */
/* {{{ proto bool oci_rollback(resource conn)
Rollback the current context */
PHP_FUNCTION(oci_rollback)
{
zval **conn;
oci_connection *connection;
if (zend_get_parameters_ex(1, &conn) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_CONN(connection,conn);
if (connection->descriptors) {
zend_hash_apply(connection->descriptors,(apply_func_t) _oci_desc_flush_hash_dtor TSRMLS_CC);
}
oci_debug("<OCITransRollback");
CALL_OCI_RETURN(connection->error,
OCITransRollback(
connection->pServiceContext,
connection->pError,
(ub4) 0
)
);
connection->needs_commit = 0;
oci_debug(">OCITransRollback");
if (connection->error) {
oci_error(connection->pError, "OCIRollback", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
RETURN_TRUE;
}
/* }}} */
/* {{{ proto bool oci_commit(resource conn)
Commit the current context */
PHP_FUNCTION(oci_commit)
{
zval **conn;
oci_connection *connection;
if (zend_get_parameters_ex(1, &conn) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_CONN(connection,conn);
if (connection->descriptors) {
zend_hash_apply(connection->descriptors,(apply_func_t) _oci_desc_flush_hash_dtor TSRMLS_CC);
}
oci_debug("<OCITransCommit");
CALL_OCI_RETURN(connection->error,
OCITransCommit(
connection->pServiceContext,
connection->pError,
(ub4) 0
)
);
connection->needs_commit = 0;
oci_debug(">OCITransCommit");
if (connection->error) {
oci_error(connection->pError, "OCICommit", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
RETURN_TRUE;
}
/* }}} */
/* {{{ proto string oci_field_name(resource stmt, int col)
Tell the name of a column */
PHP_FUNCTION(oci_field_name)
{
zval **stmt, **col;
oci_statement *statement;
oci_out_column *outcol;
if (zend_get_parameters_ex(2, &stmt, &col) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
outcol = oci_get_col(statement, -1, col);
if (outcol == NULL) {
RETURN_FALSE;
}
RETURN_STRINGL(outcol->name, outcol->name_len, 1);
}
/* }}} */
/* {{{ proto int oci_field_size(resource stmt, int col)
Tell the maximum data size of a column */
PHP_FUNCTION(oci_field_size)
{
zval **stmt, **col;
oci_statement *statement;
oci_out_column *outcol;
if (zend_get_parameters_ex(2, &stmt, &col) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
outcol = oci_get_col(statement, -1, col);
if (outcol == NULL) {
RETURN_FALSE;
}
oci_debug("oci_field_size: %16s, retlen = %4d, retlen4 = %d, data_size = %4d, storage_size4 = %4d, indicator %4d, retcode = %4d",
outcol->name,outcol->retlen,outcol->retlen4,outcol->data_size,outcol->storage_size4,outcol->indicator,outcol->retcode);
/* Handle data type of LONG */
if (outcol->data_type == SQLT_LNG){
RETURN_LONG(outcol->storage_size4);
} else {
RETURN_LONG(outcol->data_size);
}
}
/* }}} */
/* {{{ proto int oci_field_scale(resource stmt, int col)
Tell the scale of a column */
PHP_FUNCTION(oci_field_scale)
{
zval **stmt, **col;
oci_statement *statement;
oci_out_column *outcol;
if (zend_get_parameters_ex(2, &stmt, &col) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
outcol = oci_get_col(statement, -1, col);
if (outcol == NULL) {
RETURN_FALSE;
}
RETURN_LONG(outcol->scale);
}
/* }}} */
/* {{{ proto int oci_field_precision(resource stmt, int col)
Tell the precision of a column */
PHP_FUNCTION(oci_field_precision)
{
zval **stmt, **col;
oci_statement *statement;
oci_out_column *outcol;
if (zend_get_parameters_ex(2, &stmt, &col) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
outcol = oci_get_col(statement, -1, col);
if (outcol == NULL) {
RETURN_FALSE;
}
RETURN_LONG(outcol->precision);
}
/* }}} */
/* {{{ proto mixed oci_field_type(resource stmt, int col)
Tell the data type of a column */
PHP_FUNCTION(oci_field_type)
{
zval **stmt, **col;
oci_statement *statement;
oci_out_column *outcol;
if (zend_get_parameters_ex(2, &stmt, &col) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
outcol = oci_get_col(statement, -1, col);
if (outcol == NULL) {
RETURN_FALSE;
}
switch (outcol->data_type) {
#ifdef SQLT_TIMESTAMP
case SQLT_TIMESTAMP:
RETVAL_STRING("TIMESTAMP",1);
break;
#endif
#ifdef SQLT_TIMESTAMP_TZ
case SQLT_TIMESTAMP_TZ:
RETVAL_STRING("TIMESTAMP_TZ",1);
break;
#endif
case SQLT_DAT:
RETVAL_STRING("DATE",1);
break;
case SQLT_NUM:
RETVAL_STRING("NUMBER",1);
break;
case SQLT_LNG:
RETVAL_STRING("LONG",1);
break;
case SQLT_BIN:
RETVAL_STRING("RAW",1);
break;
case SQLT_LBI:
RETVAL_STRING("LONG RAW",1);
break;
case SQLT_CHR:
RETVAL_STRING("VARCHAR",1);
break;
case SQLT_RSET:
RETVAL_STRING("REFCURSOR",1);
break;
case SQLT_AFC:
RETVAL_STRING("CHAR",1);
break;
case SQLT_BLOB:
RETVAL_STRING("BLOB",1);
break;
case SQLT_CLOB:
RETVAL_STRING("CLOB",1);
break;
case SQLT_BFILE:
RETVAL_STRING("BFILE",1);
break;
case SQLT_RDD:
RETVAL_STRING("ROWID",1);
break;
default:
RETVAL_LONG(outcol->data_type);
}
}
/* }}} */
/* {{{ proto int oci_field_type_raw(resource stmt, int col)
Tell the raw oracle data type of a column */
PHP_FUNCTION(oci_field_type_raw)
{
zval **stmt, **col;
oci_statement *statement;
oci_out_column *outcol;
if (zend_get_parameters_ex(2, &stmt, &col) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
outcol = oci_get_col(statement, -1, col);
if (outcol == NULL) {
RETURN_FALSE;
}
RETVAL_LONG(outcol->data_type);
}
/* }}} */
/* {{{ proto bool oci_field_is_null(resource stmt, int col)
Tell whether a column is NULL */
PHP_FUNCTION(oci_field_is_null)
{
zval **stmt, **col;
oci_statement *statement;
oci_out_column *outcol;
if (zend_get_parameters_ex(2, &stmt, &col) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
outcol = oci_get_col(statement, -1, col);
if (outcol == NULL) {
RETURN_FALSE;
}
if (outcol->indicator == -1) {
RETURN_TRUE;
} else {
RETURN_FALSE;
}
}
/* }}} */
/* {{{ proto void oci_internal_debug(int onoff)
Toggle internal debugging output for the OCI extension */
PHP_FUNCTION(oci_internal_debug)
{
zval **arg;
if (zend_get_parameters_ex(1, &arg) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg);
OCI(debug_mode) = Z_LVAL_PP(arg);
}
/* }}} */
/* {{{ proto bool oci_execute(resource stmt [, int mode])
Execute a parsed statement */
PHP_FUNCTION(oci_execute)
{
zval **stmt,**mode;
oci_statement *statement;
ub4 execmode;
if (zend_get_parameters_ex(2, &stmt, &mode) == SUCCESS) {
convert_to_long_ex(mode);
execmode = Z_LVAL_PP(mode);
} else if (zend_get_parameters_ex(1, &stmt) == SUCCESS) {
execmode = OCI_COMMIT_ON_SUCCESS;
} else {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
if (oci_execute(statement, "OCIExecute",execmode)) {
RETURN_TRUE;
} else {
RETURN_FALSE;
}
}
/* }}} */
/* {{{ proto bool oci_cancel(resource stmt)
Cancel reading from a cursor */
PHP_FUNCTION(oci_cancel)
{
zval **stmt;
oci_statement *statement;
if (zend_get_parameters_ex(1, &stmt) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
if (oci_fetch(statement, 0, "OCICancel" TSRMLS_CC)) {
RETURN_TRUE;
} else {
RETURN_FALSE;
}
}
/* }}} */
/* {{{ proto bool oci_fetch(resource stmt)
Prepare a new row of data for reading */
PHP_FUNCTION(oci_fetch)
{
zval **stmt;
oci_statement *statement;
ub4 nrows = 1; /* only one row at a time is supported for now */
if (zend_get_parameters_ex(1, &stmt) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
if (oci_fetch(statement, nrows, "OCIFetch" TSRMLS_CC)) {
RETURN_TRUE;
} else {
RETURN_FALSE;
}
}
/* }}} */
/* {{{ proto int ocifetchinto(resource stmt, array &output [, int mode])
Fetch a row of result data into an array */
PHP_FUNCTION(ocifetchinto)
{
php_oci_fetch_row(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0, 3);
}
/* }}} */
/* {{{ proto int oci_fetch_all(resource stmt, array &output[, int skip[, int maxrows[, int flags]]])
Fetch all rows of result data into an array */
PHP_FUNCTION(oci_fetch_all)
{
zval **stmt, **array, *element, **zskip, **zmaxrows, **zflags, *tmp;
oci_statement *statement;
oci_out_column **columns;
zval ***outarrs;
ub4 nrows = 1;
int i;
int skip = 0, maxrows = -1;
int flags = 0;
int rows = 0;
int ac = ZEND_NUM_ARGS();
if (ac < 2 || ac > 5 || zend_get_parameters_ex(ac, &stmt, &array, &zskip, &zmaxrows, &zflags) == FAILURE) {
WRONG_PARAM_COUNT;
}
switch (ac) {
case 5:
convert_to_long_ex(zflags);
flags = Z_LVAL_PP(zflags);
case 4:
convert_to_long_ex(zmaxrows);
maxrows = Z_LVAL_PP(zmaxrows);
case 3:
convert_to_long_ex(zskip);
skip = Z_LVAL_PP(zskip);
}
OCI_GET_STMT(statement,stmt);
zval_dtor(*array);
array_init(*array);
while (skip--) {
if (!oci_fetch(statement, nrows, "OCIFetchStatement" TSRMLS_CC)) {
RETURN_LONG(0);
}
}
if (flags & OCI_FETCHSTATEMENT_BY_ROW) {
columns = safe_emalloc(statement->ncolumns, sizeof(oci_out_column *), 0);
for (i = 0; i < statement->ncolumns; i++) {
columns[ i ] = oci_get_col(statement, i + 1, 0);
}
while (oci_fetch(statement, nrows, "OCIFetchStatement" TSRMLS_CC)) {
zval *row;
MAKE_STD_ZVAL(row);
array_init(row);
for (i = 0; i < statement->ncolumns; i++) {
MAKE_STD_ZVAL(element);
_oci_make_zval(element,statement,columns[ i ], "OCIFetchStatement",OCI_RETURN_LOBS TSRMLS_CC);
if (flags & OCI_NUM) {
zend_hash_next_index_insert(Z_ARRVAL_P(row), &element, sizeof(zval*), NULL);
} else { /* default to ASSOC */
zend_hash_update(Z_ARRVAL_P(row),
columns[ i ]->name, columns[ i ]->name_len+1,
&element, sizeof(zval*), NULL);
}
}
zend_hash_next_index_insert(Z_ARRVAL_PP(array), &row, sizeof(zval*), NULL);
rows++;
if ((maxrows != -1) && (rows == maxrows)) {
oci_fetch(statement, 0, "OCIFetchStatement" TSRMLS_CC);
break;
}
}
efree(columns);
} else { /* default to BY_COLUMN */
columns = safe_emalloc(statement->ncolumns, sizeof(oci_out_column *), 0);
outarrs = safe_emalloc(statement->ncolumns, sizeof(zval*), 0);
if (flags & OCI_NUM) {
for (i = 0; i < statement->ncolumns; i++) {
columns[ i ] = oci_get_col(statement, i + 1, 0);
MAKE_STD_ZVAL(tmp);
array_init(tmp);
zend_hash_next_index_insert(Z_ARRVAL_PP(array),
&tmp, sizeof(zval*), (void **) &(outarrs[ i ]));
}
} else { /* default to ASSOC */
for (i = 0; i < statement->ncolumns; i++) {
columns[ i ] = oci_get_col(statement, i + 1, 0);
MAKE_STD_ZVAL(tmp);
array_init(tmp);
zend_hash_update(Z_ARRVAL_PP(array),
columns[ i ]->name, columns[ i ]->name_len+1,
(void *) &tmp, sizeof(zval*), (void **) &(outarrs[ i ]));
}
}
while (oci_fetch(statement, nrows, "OCIFetchStatement" TSRMLS_CC)) {
for (i = 0; i < statement->ncolumns; i++) {
MAKE_STD_ZVAL(element);
_oci_make_zval(element,statement,columns[ i ], "OCIFetchStatement",OCI_RETURN_LOBS TSRMLS_CC);
zend_hash_index_update((*(outarrs[ i ]))->value.ht, rows, (void *)&element, sizeof(zval*), NULL);
}
rows++;
if ((maxrows != -1) && (rows == maxrows)) {
oci_fetch(statement, 0, "OCIFetchStatement" TSRMLS_CC);
break;
}
}
efree(columns);
efree(outarrs);
}
RETURN_LONG(rows);
}
/* }}} */
/* {{{ proto object oci_fetch_object( resource stmt )
Fetch a result row as an object */
PHP_FUNCTION(oci_fetch_object)
{
php_oci_fetch_row(INTERNAL_FUNCTION_PARAM_PASSTHRU, OCI_ASSOC, 2);
if (Z_TYPE_P(return_value) == IS_ARRAY) {
object_and_properties_init(return_value, ZEND_STANDARD_CLASS_DEF_PTR, Z_ARRVAL_P(return_value));
}
}
/* }}} */
/* {{{ proto array oci_fetch_row( resource stmt )
Fetch a result row as an enumerated array */
PHP_FUNCTION(oci_fetch_row)
{
php_oci_fetch_row(INTERNAL_FUNCTION_PARAM_PASSTHRU, OCI_NUM, 1);
}
/* }}} */
/* {{{ proto array oci_fetch_assoc( resource stmt )
Fetch a result row as an associative array */
PHP_FUNCTION(oci_fetch_assoc)
{
php_oci_fetch_row(INTERNAL_FUNCTION_PARAM_PASSTHRU, OCI_ASSOC, 1);
}
/* }}} */
/* {{{ proto array oci_fetch_array( resource stmt [, int mode ])
Fetch a result row as an array */
PHP_FUNCTION(oci_fetch_array)
{
php_oci_fetch_row(INTERNAL_FUNCTION_PARAM_PASSTHRU, OCI_BOTH, 2);
}
/* }}} */
/* {{{ proto bool oci_free_statement(resource stmt)
Free all resources associated with a statement */
PHP_FUNCTION(oci_free_statement)
{
zval **stmt;
oci_statement *statement;
if (zend_get_parameters_ex(1, &stmt) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
zend_list_delete(statement->id);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto bool oci_close(resource conn)
Disconnect from database */
PHP_FUNCTION(oci_close)
{
#if 0
this function does nothing any more. server-connections get automagiclly closed on
request-end. connection handles will "dissappear" as soon as they are no longer
referenced. as this module makes heavy use of zends reference-counting mechanism
this is the desired behavior. it has always been a bad idea to close a connection that
has outstanding transactions. this way we have a nice-clean approach.
(thies@thieso.net 20000110)
oci_connection *connection;
zval **conn;
if (zend_get_parameters_ex(1, &conn) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_CONN(connection,conn);
connection->is_open = 0;
zend_hash_apply(list, (apply_func_t) _stmt_cleanup TSRMLS_CC);
if (zend_list_delete(connection->id) == SUCCESS) {
RETURN_TRUE;
} else {
RETURN_FALSE;
}
#endif
}
/* }}} */
/* {{{ proto resource oci_new_connect(string user, string pass [, string db])
Connect to an Oracle database and log on. Returns a new session. */
PHP_FUNCTION(oci_new_connect)
{
oci_do_connect(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0, 1);
}
/* }}} */
/* {{{ proto resource oci_connect(string user, string pass [, string db])
Connect to an Oracle database and log on. Returns a new session. */
PHP_FUNCTION(oci_connect)
{
oci_do_connect(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0, 1);
}
/* }}} */
/* {{{ proto resource oci_pconnect(string user, string pass [, string db])
Connect to an Oracle database using a persistent connection and log on. Returns a new session. */
PHP_FUNCTION(oci_pconnect)
{
oci_do_connect(INTERNAL_FUNCTION_PARAM_PASSTHRU,1,0);
}
/* }}} */
/* {{{ proto array oci_error([resource stmt|conn|global])
Return the last error of stmt|conn|global. If no error happened returns false. */
PHP_FUNCTION(oci_error)
{
zval **arg;
oci_statement *statement;
oci_connection *connection;
text errbuf[512];
sb4 errcode = 0;
sword error = 0;
dvoid *errh = NULL;
#ifdef HAVE_OCI8_ATTR_STATEMENT
ub2 errorofs = 0;
text *sqltext = NULL;
#endif
if (zend_get_parameters_ex(1, &arg) == SUCCESS) {
statement = (oci_statement *) zend_fetch_resource(arg TSRMLS_CC, -1, NULL, NULL, 1, le_stmt);
if (statement) {
errh = statement->pError;
error = statement->error;
#ifdef HAVE_OCI8_ATTR_STATEMENT
CALL_OCI_RETURN(statement->error,
OCIAttrGet(
(dvoid *)statement->pStmt,
OCI_HTYPE_STMT,
(text *) &sqltext,
(ub4 *)0,
OCI_ATTR_STATEMENT,
statement->pError
)
);
CALL_OCI_RETURN(statement->error,
OCIAttrGet(
(dvoid *)statement->pStmt,
OCI_HTYPE_STMT,
(ub2 *)&errorofs,
(ub4 *)0,
OCI_ATTR_PARSE_ERROR_OFFSET,
statement->pError
)
);
#endif
} else {
connection = (oci_connection *) zend_fetch_resource(arg TSRMLS_CC, -1, NULL, NULL, 1, le_conn);
if (connection) {
errh = connection->pError;
error = connection->error;
}
}
} else {
errh = OCI(pError);
error = OCI(error);
}
if (!error) { /* no error set in the handle */
RETURN_FALSE;
}
if (!errh) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "OCIError: unable to find Error handle");
RETURN_FALSE;
}
CALL_OCI(
OCIErrorGet(
errh,
1,
NULL,
&errcode,
errbuf,
(ub4) sizeof(errbuf),
(ub4) OCI_HTYPE_ERROR
)
);
if (errcode) {
array_init(return_value);
add_assoc_long(return_value, "code", errcode);
add_assoc_string(return_value, "message", (char*) errbuf, 1);
#ifdef HAVE_OCI8_ATTR_STATEMENT
add_assoc_long(return_value, "offset", errorofs);
add_assoc_string(return_value, "sqltext", sqltext ? (char *) sqltext : "", 1);
#endif
} else {
RETURN_FALSE;
}
}
/* }}} */
/* {{{ proto int oci_num_fields(resource stmt)
Return the number of result columns in a statement */
PHP_FUNCTION(oci_num_fields)
{
zval **stmt;
oci_statement *statement;
if (zend_get_parameters_ex(1, &stmt) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
RETURN_LONG(statement->ncolumns);
}
/* }}} */
/* {{{ proto resource oci_parse(resource conn, string query)
Parse a query and return a statement */
PHP_FUNCTION(oci_parse)
{
zval **conn, **query;
oci_connection *connection;
oci_statement *statement;
if (zend_get_parameters_ex(2, &conn, &query) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_CONN(connection,conn);
convert_to_string_ex(query);
statement = oci_parse(connection,Z_STRVAL_PP(query),Z_STRLEN_PP(query));
if (statement) {
RETURN_RESOURCE(statement->id);
} else {
RETURN_FALSE;
}
}
/* }}} */
/* {{{ proto bool oci_set_prefetch(resource stmt, int prefetch_rows)
Sets the number of rows to be prefetched on execute to prefetch_rows for stmt */
PHP_FUNCTION(oci_set_prefetch)
{
zval **stmt, **size;
oci_statement *statement;
if (zend_get_parameters_ex(2, &stmt, &size) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(size);
OCI_GET_STMT(statement,stmt);
oci_setprefetch(statement,Z_LVAL_PP(size));
RETURN_TRUE;
}
/* }}} */
/* {{{ proto bool oci_password_change(resource conn, string username, string old_password, string new_password)
Changes the password of an account */
PHP_FUNCTION(oci_password_change)
{
zval **conn, **user_param, **pass_old_param, **pass_new_param;
text *user, *pass_old, *pass_new;
oci_connection *connection;
/* Disable in Safe Mode */
if (PG(safe_mode)) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "is disabled in Safe Mode");
RETURN_FALSE;
}
if (zend_get_parameters_ex(4, &conn, &user_param, &pass_old_param, &pass_new_param) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_string_ex(user_param);
convert_to_string_ex(pass_old_param);
convert_to_string_ex(pass_new_param);
user = Z_STRVAL_PP(user_param);
pass_old = Z_STRVAL_PP(pass_old_param);
pass_new = Z_STRVAL_PP(pass_new_param);
OCI_GET_CONN(connection, conn);
CALL_OCI_RETURN(connection->error,
OCIPasswordChange(
connection->pServiceContext,
connection->pError,
user,
strlen(user)+1,
pass_old,
strlen(pass_old)+1,
pass_new,
strlen(pass_new)+1,
OCI_DEFAULT
)
);
if (connection->error == OCI_SUCCESS) {
RETURN_TRUE;
} else {
oci_error(connection->pError, "OCIPasswordChange", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
}
/* }}} */
/* {{{ proto resource oci_new_cursor(resource conn)
Return a new cursor (Statement-Handle) - use this to bind ref-cursors! */
PHP_FUNCTION(oci_new_cursor)
{
zval **conn;
oci_connection *connection;
oci_statement *statement;
if (zend_get_parameters_ex(1, &conn) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_CONN(connection,conn);
statement = oci_parse(connection,0,0);
RETURN_RESOURCE(statement->id);
}
/* }}} */
/* {{{ proto string oci_result(resource stmt, mixed column)
Return a single column of result data */
PHP_FUNCTION(oci_result)
{
zval **stmt, **col;
oci_statement *statement;
oci_out_column *outcol = NULL;
if (zend_get_parameters_ex(2, &stmt, &col) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
outcol = oci_get_col(statement, -1, col);
if (outcol == NULL) {
RETURN_FALSE;
}
_oci_make_zval(return_value,statement,outcol, "OCIResult",0 TSRMLS_CC);
}
/* }}} */
/* {{{ proto string oci_server_version(resource conn)
Return a string containing server version information */
PHP_FUNCTION(oci_server_version)
{
oci_connection *connection;
zval **conn;
char version[256];
if (zend_get_parameters_ex(1, &conn) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_CONN(connection,conn);
CALL_OCI_RETURN(connection->error,
OCIServerVersion(
connection->pServiceContext,
connection->pError,
(text*)version,
sizeof(version),
OCI_HTYPE_SVCCTX
)
);
if (connection->error != OCI_SUCCESS) {
oci_error(connection->pError, "OCIServerVersion", connection->error);
oci_handle_error(connection, connection->error);
RETURN_FALSE;
}
RETURN_STRING(version,1);
}
/* }}} */
/* {{{ proto string oci_statement_type(resource stmt)
Return the query type of an OCI statement */
/* XXX it would be better with a general interface to OCIAttrGet() */
PHP_FUNCTION(oci_statement_type)
{
zval **stmt;
oci_statement *statement;
ub2 stmttype;
if (zend_get_parameters_ex(1, &stmt) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
CALL_OCI_RETURN(statement->error,
OCIAttrGet(
(dvoid *)statement->pStmt,
OCI_HTYPE_STMT,
(ub2 *)&stmttype,
(ub4 *)0,
OCI_ATTR_STMT_TYPE,
statement->pError
)
);
if (statement->error != OCI_SUCCESS) {
oci_error(statement->pError, "OCIStatementType", statement->error);
oci_handle_error(statement->conn, statement->error);
RETURN_FALSE;
}
switch (stmttype) {
case OCI_STMT_SELECT:
RETVAL_STRING("SELECT",1);
break;
case OCI_STMT_UPDATE:
RETVAL_STRING("UPDATE",1);
break;
case OCI_STMT_DELETE:
RETVAL_STRING("DELETE",1);
break;
case OCI_STMT_INSERT:
RETVAL_STRING("INSERT",1);
break;
case OCI_STMT_CREATE:
RETVAL_STRING("CREATE",1);
break;
case OCI_STMT_DROP:
RETVAL_STRING("DROP",1);
break;
case OCI_STMT_ALTER:
RETVAL_STRING("ALTER",1);
break;
case OCI_STMT_BEGIN:
RETVAL_STRING("BEGIN",1);
break;
case OCI_STMT_DECLARE:
RETVAL_STRING("DECLARE",1);
break;
default:
RETVAL_STRING("UNKNOWN",1);
}
}
/* }}} */
/* {{{ proto int oci_num_rows(resource stmt)
Return the row count of an OCI statement */
PHP_FUNCTION(oci_num_rows)
{
zval **stmt;
oci_statement *statement;
ub4 rowcount;
if (zend_get_parameters_ex(1, &stmt) == FAILURE) {
WRONG_PARAM_COUNT;
}
OCI_GET_STMT(statement,stmt);
CALL_OCI_RETURN(statement->error,
OCIAttrGet(
(dvoid *)statement->pStmt,
OCI_HTYPE_STMT,
(ub2 *)&rowcount,
(ub4 *)0,
OCI_ATTR_ROW_COUNT,
statement->pError
)
);
if (statement->error != OCI_SUCCESS) {
oci_error(statement->pError, "OCIRowCount", statement->error);
oci_handle_error(statement->conn, statement->error);
RETURN_FALSE;
}
RETURN_LONG(rowcount);
}
/* }}} */
#ifdef PHP_OCI8_HAVE_COLLECTIONS
/* {{{ oci_get_coll() */
static oci_collection *oci_get_coll(int ind TSRMLS_DC)
{
oci_collection *collection;
int actual_resource_type;
collection = (oci_collection *) zend_list_find(ind, &actual_resource_type);
if (collection && (actual_resource_type == le_coll)) {
return collection;
} else {
return (oci_collection *) NULL;
}
}
/* }}} */
/* {{{ proto bool oci_free_collection()
Deletes collection object*/
PHP_FUNCTION(oci_free_collection)
{
zval *id;
int inx;
oci_collection *coll;
oci_connection *connection;
if ((id = getThis()) != 0) {
inx = _oci_get_ocicoll(id,&coll TSRMLS_CC);
if (inx) {
/*
* Do we need to free the object?
*
*/
connection = coll->conn;
oci_debug("oci_free_collection: coll=%d",inx);
CALL_OCI_RETURN(connection->error,
OCIObjectFree(
connection->session->pEnv,
connection->pError,
(dvoid *)coll->coll,
(ub2)(OCI_OBJECTFREE_FORCE)
)
);
if (connection->error) {
oci_error(connection->pError, "OCIObjectFree", connection->error);
RETURN_FALSE;
}
zend_list_delete(inx);
RETURN_TRUE;
}
}
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool oci_collection_append(string value)
Append an object to the collection */
PHP_FUNCTION(oci_collection_append)
{
zval *id, **arg;
oci_connection *connection;
oci_collection *coll;
OCINumber num;
OCIString *ocistr = (OCIString *)0;
OCIInd new_ind = OCI_IND_NOTNULL;
OCIInd null_ind = OCI_IND_NULL;
OCIDate dt;
int inx;
double ndx;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocicoll(id,&coll TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
connection = coll->conn;
if (zend_get_parameters_ex(1, &arg) == FAILURE) {
WRONG_PARAM_COUNT;
}
/*
* Handle NULLS. For consistency with the rest of the OCI8 library, when
* a value passed in is a 0 length string, consider it a null
*/
convert_to_string_ex(arg);
if (Z_STRLEN_PP(arg) == 0) {
CALL_OCI_RETURN(connection->error,
OCICollAppend(
connection->session->pEnv,
connection->pError,
(dvoid *)0,
&null_ind,
coll->coll
)
);
if (connection->error) {
oci_error(connection->pError, "OCICollAppend - NULL", connection->error);
RETURN_FALSE;
}
RETURN_TRUE;
}
switch(coll->element_typecode) {
case OCI_TYPECODE_DATE:
convert_to_string_ex(arg);
CALL_OCI_RETURN(connection->error,
OCIDateFromText(
connection->pError,
Z_STRVAL_PP(arg),
Z_STRLEN_PP(arg),
0,
0,
0,
0,
&dt
)
);
if (connection->error) {
oci_error(connection->pError, "OCIDateFromText", connection->error);
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCICollAppend(
connection->session->pEnv,
connection->pError,
(dvoid *) &dt,
(dvoid *) &new_ind,
(OCIColl *) coll->coll
)
);
if (connection->error) {
oci_error(connection->pError, "OCICollAppend", connection->error);
RETURN_FALSE;
}
RETURN_TRUE;
break;
case OCI_TYPECODE_VARCHAR2 :
convert_to_string_ex(arg);
CALL_OCI_RETURN(connection->error,
OCIStringAssignText(
connection->session->pEnv,
connection->pError,
Z_STRVAL_PP(arg),
Z_STRLEN_PP(arg),
&ocistr
)
);
if (connection->error) {
oci_error(connection->pError, "OCIStringAssignText", connection->error);
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCICollAppend(
connection->session->pEnv,
connection->pError,
(dvoid *) ocistr,
(dvoid *) &new_ind,
(OCIColl *) coll->coll
)
);
if (connection->error) {
oci_error(connection->pError, "OCICollAppend", connection->error);
RETURN_FALSE;
}
RETURN_TRUE;
break;
case OCI_TYPECODE_UNSIGNED16 : /* UNSIGNED SHORT */
case OCI_TYPECODE_UNSIGNED32 : /* UNSIGNED LONG */
case OCI_TYPECODE_REAL : /* REAL */
case OCI_TYPECODE_DOUBLE : /* DOUBLE */
case OCI_TYPECODE_INTEGER : /* INT */
case OCI_TYPECODE_SIGNED16 : /* SHORT */
case OCI_TYPECODE_SIGNED32 : /* LONG */
case OCI_TYPECODE_DECIMAL : /* DECIMAL */
case OCI_TYPECODE_FLOAT : /* FLOAT */
case OCI_TYPECODE_NUMBER : /* NUMBER */
case OCI_TYPECODE_SMALLINT : /* SMALLINT */
convert_to_double_ex(arg);
ndx = (double)Z_DVAL_PP(arg);
CALL_OCI_RETURN(connection->error,
OCINumberFromReal(
connection->pError,
&ndx,
sizeof(double),
&num
)
);
if (connection->error) {
oci_error(connection->pError, "OCINumberFromReal", connection->error);
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCICollAppend(
connection->session->pEnv,
connection->pError,
(dvoid *) &num,
(dvoid *) &new_ind,
(OCIColl *) coll->coll
)
);
RETURN_TRUE;
break;
default:
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "Unknown or unsupported type of element");
RETURN_FALSE;
break;
}
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_collection_append() should not be called like this. Use $collection->append($element) to append an element to the collection");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto string oci_collection_element_get(int ndx)
Retrieve the value at collection index ndx */
PHP_FUNCTION(oci_collection_element_get)
{
zval *id,**arg;
oci_connection *connection;
oci_collection *coll;
ub4 ndx;
int inx;
dvoid *elem;
OCIInd *elemind;
boolean exists;
OCIString *ocistr = (OCIString *)0;
text *str;
char buff[1024];
int len;
double dnum;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocicoll(id,&coll TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
if (zend_get_parameters_ex(1, &arg) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg);
ndx = Z_LVAL_PP(arg);
connection = coll->conn;
CALL_OCI_RETURN(connection->error,
OCICollGetElem(
connection->session->pEnv,
connection->pError,
coll->coll,
ndx,
&exists,
&elem,
(dvoid **)&elemind
)
);
if (connection->error) {
oci_error(connection->pError, "OCICollGetElem", connection->error);
RETURN_NULL();
}
/* Return false if value does not exist at that location */
if (exists == 0) {
php_error_docref(NULL TSRMLS_CC, E_WARNING, "OCICollGetElem - Invalid index %d", ndx);
RETURN_FALSE;
}
/* Return null if the value is null */
if (*elemind == OCI_IND_NULL) {
RETURN_NULL();
}
switch (coll->element_typecode) {
case OCI_TYPECODE_DATE:
len = 1024;
CALL_OCI(
OCIDateToText(
connection->pError,
elem,
0, /* fmt */
0, /* fmt_length */
0, /* lang_name */
0, /* lang_length */
&len,
buff
)
);
RETURN_STRINGL(buff,len,1);
case OCI_TYPECODE_VARCHAR2 :
ocistr = *(OCIString **)elem;
str = OCIStringPtr(connection->session->pEnv,ocistr); /* XXX not protected against recursion! */
RETURN_STRINGL(str,strlen(str),1);
break;
case OCI_TYPECODE_UNSIGNED16 : /* UNSIGNED SHORT */
case OCI_TYPECODE_UNSIGNED32 : /* UNSIGNED LONG */
case OCI_TYPECODE_REAL : /* REAL */
case OCI_TYPECODE_DOUBLE : /* DOUBLE */
case OCI_TYPECODE_INTEGER : /* INT */
case OCI_TYPECODE_SIGNED16 : /* SHORT */
case OCI_TYPECODE_SIGNED32 : /* LONG */
case OCI_TYPECODE_DECIMAL : /* DECIMAL */
case OCI_TYPECODE_FLOAT : /* FLOAT */
case OCI_TYPECODE_NUMBER : /* NUMBER */
case OCI_TYPECODE_SMALLINT : /* SMALLINT */
CALL_OCI_RETURN(connection->error,
OCINumberToReal(
connection->pError,
(CONST OCINumber *) elem,
(uword) sizeof(dnum),
(dvoid *) &dnum
)
);
if (connection->error) {
oci_error(connection->pError, "OCINumberToReal", connection->error);
RETURN_FALSE;
}
RETURN_DOUBLE(dnum);
break;
default:
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "Unknown or unsupported type of element");
RETURN_FALSE;
break;
}
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_collection_element_get() should not be called like this. Use $collection->getelem($index) to get an element of the collection with the given index");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool oci_collection_assign(object from)
Assign a collection from another existing collection */
PHP_FUNCTION(oci_collection_assign)
{
zval *id,**from;
oci_connection *connection;
oci_collection *coll,*from_coll;
int inx;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocicoll(id,&coll TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
if (zend_get_parameters_ex(1, &from) == FAILURE) {
WRONG_PARAM_COUNT;
}
if ((inx = _oci_get_ocicoll(*from,&from_coll TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
connection = coll->conn;
CALL_OCI_RETURN(connection->error,
OCICollAssign(
connection->session->pEnv,
connection->pError,
from_coll->coll,
coll->coll
)
);
if (connection->error) {
oci_error(connection->pError, "OCICollAssignElem", connection->error);
RETURN_FALSE;
}
RETURN_TRUE;
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_collection_assign() should not be called like this. Use $collection->assign($collection_value) to assign value to the collection");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool oci_collection_element_assign(int index, string val)
Assign element val to collection at index ndx */
PHP_FUNCTION(oci_collection_element_assign)
{
zval *id,**index,**val;
oci_connection *connection;
oci_collection *coll;
OCINumber num;
OCIInd new_ind = OCI_IND_NOTNULL;
OCIInd null_ind = OCI_IND_NULL;
ub4 ndx;
int inx;
OCIString *ocistr = (OCIString *)0;
OCIDate dt;
double dnum;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocicoll(id,&coll TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
if (zend_get_parameters_ex(2, &index,&val) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(index);
ndx = Z_LVAL_PP(index);
connection = coll->conn;
if (connection->error) {
oci_error(connection->pError, "OCICollAssignElem", connection->error);
RETURN_FALSE;
}
/*
* Handle NULLs. For consistency with the rest of the OCI8 library, when
* a value passed in is a 0 length string, consider it a null
*/
convert_to_string_ex(val);
if (Z_STRLEN_PP(val) == 0) {
CALL_OCI_RETURN(connection->error,
OCICollAssignElem(
connection->session->pEnv,
connection->pError,
ndx,
(dvoid *)0,
&null_ind,
coll->coll
)
);
if (connection->error) {
oci_error(connection->pError, "OCICollAssignElem - NULL", connection->error);
RETURN_FALSE;
}
RETURN_TRUE;
}
switch (coll->element_typecode) {
case OCI_TYPECODE_DATE:
convert_to_string_ex(val);
CALL_OCI_RETURN(connection->error,
OCIDateFromText(
connection->pError,
Z_STRVAL_PP(val),
Z_STRLEN_PP(val),
0,
0,
0,
0,
&dt
)
);
if (connection->error) {
oci_error(connection->pError, "OCIDateFromText", connection->error);
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCICollAssignElem(
connection->session->pEnv,
connection->pError,
ndx,
(dvoid *)&dt,
&new_ind,
coll->coll
)
);
if (connection->error) {
oci_error(connection->pError, "OCICollAssignElem", connection->error);
RETURN_FALSE;
}
break;
case OCI_TYPECODE_VARCHAR2 :
convert_to_string_ex(val);
CALL_OCI_RETURN(connection->error,
OCIStringAssignText(
connection->session->pEnv,
connection->pError,
Z_STRVAL_PP(val),
Z_STRLEN_PP(val),
&ocistr
)
);
if (connection->error) {
oci_error(connection->pError, "OCIStringAssignText", connection->error);
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCICollAssignElem(
connection->session->pEnv,
connection->pError,
ndx,
(dvoid *)ocistr,
&new_ind,
coll->coll
)
);
if (connection->error) {
oci_error(connection->pError, "OCICollAssignElem", connection->error);
RETURN_FALSE;
}
RETURN_TRUE;
break;
case OCI_TYPECODE_UNSIGNED16 : /* UNSIGNED SHORT */
case OCI_TYPECODE_UNSIGNED32 : /* UNSIGNED LONG */
case OCI_TYPECODE_REAL : /* REAL */
case OCI_TYPECODE_DOUBLE : /* DOUBLE */
case OCI_TYPECODE_INTEGER : /* INT */
case OCI_TYPECODE_SIGNED16 : /* SHORT */
case OCI_TYPECODE_SIGNED32 : /* LONG */
case OCI_TYPECODE_DECIMAL : /* DECIMAL */
case OCI_TYPECODE_FLOAT : /* FLOAT */
case OCI_TYPECODE_NUMBER : /* NUMBER */
case OCI_TYPECODE_SMALLINT : /* SMALLINT */
convert_to_double_ex(val);
dnum = (double)Z_DVAL_PP(val);
CALL_OCI_RETURN(connection->error,
OCINumberFromReal(
connection->pError,
&dnum,
sizeof(double),
&num
)
);
if (connection->error) {
oci_error(connection->pError, "OCINumberFromReal", connection->error);
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCICollAssignElem(
connection->session->pEnv,
connection->pError,
ndx,
(dvoid *)&num,
&new_ind,
coll->coll
)
);
if (connection->error) {
oci_error(connection->pError, "OCICollAssignElem", connection->error);
RETURN_FALSE;
}
RETURN_TRUE;
break;
}
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_collection_element_assign() should not be called like this. Use $collection->assignelem($index, $value) to assign value to an element of the collection");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto int oci_collection_size()
Return the size of a collection */
PHP_FUNCTION(oci_collection_size)
{
zval *id;
oci_connection *connection;
oci_collection *coll;
sb4 sz;
int inx;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocicoll(id,&coll TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
connection = coll->conn;
CALL_OCI_RETURN(connection->error,
OCICollSize(
connection->session->pEnv,
coll->conn->pError,
coll->coll,
&sz
)
);
if (connection->error) {
oci_error(connection->pError, "OCICollSize", connection->error);
RETURN_FALSE;
}
RETURN_LONG(sz);
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_collection_size() should not be called like this. Use $collection->size() to get size of the collection");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto int oci_collection_max()
Return the max value of a collection. For a varray this is the maximum length of the array */
PHP_FUNCTION(oci_collection_max)
{
zval *id;
oci_collection *coll;
sb4 sz;
int inx;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocicoll(id,&coll TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
sz = OCICollMax(OCI(pEnv),coll->coll); /* XXX not protected against recursion */
RETURN_LONG(sz);
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_collection_max() should not be called like this. Use $collection->max() to get maximum number of elements in the collection");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto bool oci_collection_trim(int num)
Trim num elements from the end of a collection */
PHP_FUNCTION(oci_collection_trim)
{
zval *id,**arg;
oci_collection *coll;
int inx;
if ((id = getThis()) != 0) {
if ((inx = _oci_get_ocicoll(id,&coll TSRMLS_CC)) == 0) {
RETURN_FALSE;
}
if (zend_get_parameters_ex(1, &arg) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg);
CALL_OCI_RETURN(coll->conn->error,
OCICollTrim(
OCI(pEnv),
coll->conn->pError,
Z_LVAL_PP(arg),
coll->coll
)
);
if (coll->conn->error) {
oci_error(coll->conn->pError, "OCICollTrim", coll->conn->error);
RETURN_FALSE;
}
RETURN_TRUE;
}
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "oci_collection_trim() should not be called like this. Use $collection->trim($length) to trim collection to the given length");
RETURN_FALSE;
}
/* }}} */
/* {{{ proto object oci_new_collection(resource connection, string tdo [, string schema])
Initialize a new collection */
PHP_FUNCTION(oci_new_collection)
{
dvoid *dschp1;
dvoid *parmp1;
dvoid *parmp2;
zval **conn, **tdo, **schema;
oci_connection *connection;
oci_collection *coll;
int ac = ZEND_NUM_ARGS();
if (ac < 2 || ac > 3 || zend_get_parameters_ex(ac, &conn, &tdo, &schema) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_string_ex(tdo);
if (ac == 3) {
convert_to_string_ex(schema);
}
coll = emalloc(sizeof(oci_collection));
OCI_GET_CONN(connection,conn);
coll->conn = connection;
coll->id = zend_list_insert(coll,le_coll);
zend_list_addref(connection->id);
CALL_OCI_RETURN(connection->error,
OCITypeByName(
connection->session->pEnv,
connection->pError,
connection->pServiceContext,
ac == 3 ? (text *) Z_STRVAL_PP(schema) : (text *) 0,
ac == 3 ? (ub4) Z_STRLEN_PP(schema) : (ub4) 0,
(text *) Z_STRVAL_PP(tdo),
(ub4) Z_STRLEN_PP(tdo),
(CONST text *) 0,
(ub4) 0,
OCI_DURATION_SESSION,
OCI_TYPEGET_ALL,
&(coll->tdo)
)
);
if (connection->error) {
oci_error(connection->pError, "OCITypeByName", connection->error);
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCIHandleAlloc(
connection->session->pEnv,
(dvoid **) &dschp1,
(ub4) OCI_HTYPE_DESCRIBE,
(size_t) 0,
(dvoid **) 0
)
);
if (connection->error) {
oci_error(connection->pError, "OCI_HTYPE_DESCRIBE", connection->error);
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCIDescribeAny(
connection->pServiceContext,
connection->pError,
(dvoid *) coll->tdo,
(ub4) 0,
OCI_OTYPE_PTR,
(ub1)1,
(ub1) OCI_PTYPE_TYPE,
dschp1
)
);
if (connection->error) {
oci_error(connection->pError, "OCI_OTYPE_PTR", connection->error);
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCIAttrGet(
(dvoid *) dschp1,
(ub4) OCI_HTYPE_DESCRIBE,
(dvoid *)&parmp1,
(ub4 *)0,
(ub4)OCI_ATTR_PARAM,
connection->pError
)
);
if (connection->error) {
oci_error(connection->pError, "OCI_ATTR_PARAM", connection->error);
RETURN_FALSE;
}
/* get the collection type code of the attribute */
CALL_OCI_RETURN(connection->error,
OCIAttrGet(
(dvoid*) parmp1,
(ub4) OCI_DTYPE_PARAM,
(dvoid*) &(coll->coll_typecode),
(ub4 *) 0,
(ub4) OCI_ATTR_COLLECTION_TYPECODE,
connection->pError
)
);
if (connection->error) {
oci_error(connection->pError, "OCI_ATTR_COLLECTION_TYPECODE", connection->error);
RETURN_FALSE;
}
switch(coll->coll_typecode) {
case OCI_TYPECODE_TABLE:
case OCI_TYPECODE_VARRAY:
CALL_OCI_RETURN(connection->error,
OCIAttrGet(
(dvoid*) parmp1,
(ub4) OCI_DTYPE_PARAM,
(dvoid*) &parmp2,
(ub4 *) 0,
(ub4) OCI_ATTR_COLLECTION_ELEMENT,
connection->pError
)
);
if (connection->error) {
oci_error(connection->pError, "OCI_ATTR_COLLECTION_ELEMENT", connection->error);
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCIAttrGet(
(dvoid*) parmp2,
(ub4) OCI_DTYPE_PARAM,
(dvoid*) &(coll->elem_ref),
(ub4 *) 0,
(ub4) OCI_ATTR_REF_TDO,
connection->pError
)
);
if (connection->error) {
oci_error(connection->pError, "OCI_ATTR_REF_TDO", connection->error);
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCITypeByRef(
connection->session->pEnv,
connection->pError,
coll->elem_ref,
OCI_DURATION_SESSION,
OCI_TYPEGET_HEADER,
&(coll->element_type)
)
);
if (connection->error) {
oci_error(connection->pError, "OCI_TYPEGET_HEADER", connection->error);
RETURN_FALSE;
}
CALL_OCI_RETURN(connection->error,
OCIAttrGet(
(dvoid*) parmp2,
(ub4) OCI_DTYPE_PARAM,
(dvoid*) &(coll->element_typecode),
(ub4 *) 0,
(ub4) OCI_ATTR_TYPECODE,
connection->pError
)
);
if (connection->error) {
oci_error(connection->pError, "OCI_ATTR_TYPECODE", connection->error);
RETURN_FALSE;
}
break;
default:
php_error_docref(NULL TSRMLS_CC, E_WARNING, "OCINewCollection - Unknown Type %d", coll->coll_typecode);
break;
}
/* Create object to hold return table */
CALL_OCI_RETURN(connection->error,
OCIObjectNew(
connection->session->pEnv,
connection->pError,
connection->pServiceContext,
OCI_TYPECODE_TABLE,
coll->tdo,
(dvoid *)0,
OCI_DURATION_DEFAULT,
TRUE,
(dvoid **) &(coll->coll)
)
);
if (connection->error) {
oci_error(connection->pError, "OCIObjectNew", connection->error);
RETURN_FALSE;
}
object_init_ex(return_value, oci_coll_class_entry_ptr);
add_property_resource(return_value, "collection",coll->id);
}
/* }}} */
#endif
#endif /* HAVE_OCI8 */
/*
* Local variables:
* tab-width: 4
* c-basic-offset: 4
* End:
* vim600: sw=4 ts=4 fdm=marker
* vim<600: sw=4 ts=4
*/