diff options
Diffstat (limited to 'ext/interbase/interbase.c')
| -rw-r--r-- | ext/interbase/interbase.c | 3429 |
1 files changed, 0 insertions, 3429 deletions
diff --git a/ext/interbase/interbase.c b/ext/interbase/interbase.c deleted file mode 100644 index b44eda851c..0000000000 --- a/ext/interbase/interbase.c +++ /dev/null @@ -1,3429 +0,0 @@ -/* - +----------------------------------------------------------------------+ - | PHP Version 4 | - +----------------------------------------------------------------------+ - | Copyright (c) 1997-2003 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: Jouni Ahto <jouni.ahto@exdec.fi> | - | Andrew Avdeev <andy@rsc.mv.ru> | - +----------------------------------------------------------------------+ - */ - -/* $Id$ */ - - -/* TODO: Arrays, roles? -A lot... */ - -/* - Changes: - 2003-08-05: Ard Biesheuvel <a.k.biesheuvel@its.tudelft.nl> - - Significant changes to layout of internal data structures - in order to accomodate and carry out the following changes: - * Removal of arbitrary 'transactions-per-link' limit, - * Transactions over multiple databases. - - Leak fixes in ibase_query() and ibase_execute() by replacing - emalloc() with do_alloca() - - Changes to ibase_query() to enable the use of CREATE DATABASE ... - - Added ibase_drop_db() - - Added ibase_commit_ret() and ibase_rollback_ret() - - Added ibase_name_result() - 2001-05-31: Jeremy Bettis <jeremy@deadbeef.com> - - If a blob handle was expected and something else was - received create a blob and add the value to it. - - If the incoming argument to a bind parameter is NULL - then store a NULL in the database. - - More verbose date errors. - 1999-09-21: Ivo Panacek <ivop@regionet.cz> - - added COMPILE_DL section - - more verbose php_info_ibase function - mostly stolen from pgsql.c for now - 1999-10-05: Ivo Panacek <ivop@regionet.cz> - - safe rinit/rfinish: check for NULL so - rfinish could be called repeatedly - emalloc & co. replaced with malloc & co. -*/ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif - -#include "php.h" -#include "php_ini.h" -#include "ext/standard/php_standard.h" -#include "php_globals.h" -#include "php_interbase.h" - -#if HAVE_IBASE -#include <ibase.h> -#include <time.h> -#include "ext/standard/fsock.h" -#include "ext/standard/info.h" - -#ifdef SQL_INT64 -#include <math.h> -#endif - -#ifndef SQL_DIALECT_CURRENT -#define SQL_DIALECT_CURRENT 1 -#endif - -#ifdef ZEND_DEBUG -/* #define IBDEBUG(a) php_printf("::: %s (%d)\n", a, __LINE__); */ -#define IBDEBUG(a) -#else -#define IBDEBUG(a) -#endif - -#define SAFE_STRING(s) ((s)?(s):"") - -/* {{{ extension definition structures */ -function_entry ibase_functions[] = { - PHP_FE(ibase_connect, NULL) - PHP_FE(ibase_pconnect, NULL) - PHP_FE(ibase_close, NULL) - PHP_FE(ibase_drop_db, NULL) - PHP_FE(ibase_query, NULL) - PHP_FE(ibase_fetch_row, NULL) - PHP_FE(ibase_fetch_assoc, NULL) - PHP_FE(ibase_fetch_object, NULL) - PHP_FE(ibase_free_result, NULL) - PHP_FE(ibase_name_result, NULL) - PHP_FE(ibase_prepare, NULL) - PHP_FE(ibase_execute, NULL) - PHP_FE(ibase_free_query, NULL) -#if HAVE_STRFTIME - PHP_FE(ibase_timefmt, NULL) -#endif - - PHP_FE(ibase_num_fields, NULL) - PHP_FE(ibase_field_info, NULL) - - PHP_FE(ibase_trans, NULL) - PHP_FE(ibase_commit, NULL) - PHP_FE(ibase_rollback, NULL) - PHP_FE(ibase_commit_ret, NULL) - PHP_FE(ibase_rollback_ret, NULL) - - PHP_FE(ibase_blob_info, NULL) - PHP_FE(ibase_blob_create, NULL) - PHP_FE(ibase_blob_add, NULL) - PHP_FE(ibase_blob_cancel, NULL) - PHP_FE(ibase_blob_close, NULL) - PHP_FE(ibase_blob_open, NULL) - PHP_FE(ibase_blob_get, NULL) - PHP_FE(ibase_blob_echo, NULL) - PHP_FE(ibase_blob_import, NULL) - PHP_FE(ibase_errmsg, NULL) - -#ifdef SQL_DIALECT_V6 - PHP_FE(ibase_add_user, NULL) - PHP_FE(ibase_modify_user, NULL) - PHP_FE(ibase_delete_user, NULL) -#endif - {NULL, NULL, NULL} -}; - -zend_module_entry ibase_module_entry = { - STANDARD_MODULE_HEADER, - "interbase", - ibase_functions, - PHP_MINIT(ibase), - PHP_MSHUTDOWN(ibase), - PHP_RINIT(ibase), - PHP_RSHUTDOWN(ibase), - PHP_MINFO(ibase), - NO_VERSION_YET, - STANDARD_MODULE_PROPERTIES -}; - -#ifdef COMPILE_DL_INTERBASE -ZEND_GET_MODULE(ibase) -#define DL_MALLOC(size) malloc(size) -#define DL_STRDUP(str) strdup(str) -#define DL_FREE(ptr) free(ptr) -#else -#define DL_MALLOC(size) emalloc(size) -#define DL_STRDUP(str) estrdup(str) -#define DL_FREE(ptr) efree(ptr) -#endif - -/* True globals, no need for thread safety */ -static int le_blob, le_link, le_plink, le_result, le_query, le_trans; - -ZEND_DECLARE_MODULE_GLOBALS(ibase) - -/* }}} */ - -/* error handling ---------------------------- */ - -#define IB_STATUS (IBG(status)) - -/* {{{ proto string ibase_errmsg(void) - Return error message */ -PHP_FUNCTION(ibase_errmsg) -{ - if (ZEND_NUM_ARGS() != 0) { - WRONG_PARAM_COUNT; - } - - if (IBG(errmsg[0])) { - RETURN_STRING(IBG(errmsg), 1); - } - - RETURN_FALSE; -} -/* }}} */ - -/* {{{ _php_ibase_error(TSRMLS_D) - print interbase error and save it for ibase_errmsg() */ -static void _php_ibase_error(TSRMLS_D) -{ - char *s; - ISC_STATUS *statusp; - - s = IBG(errmsg); - statusp = IB_STATUS; - - while ((s - IBG(errmsg)) < MAX_ERRMSG - (IBASE_MSGSIZE + 2) && isc_interprete(s, &statusp)) { - strcat(IBG(errmsg), " "); - s = IBG(errmsg) + strlen(IBG(errmsg)); - } - - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", IBG(errmsg)); -} -/* }}} */ - -/* {{{ _php_ibase_module_error() - print php interbase module error and save it for ibase_errmsg() */ -static void _php_ibase_module_error(char *msg, ...) -{ - va_list ap; - TSRMLS_FETCH(); - - va_start(ap, msg); - /* vsnprintf NUL terminates the buf and writes at most n-1 chars+NUL */ - vsnprintf(IBG(errmsg), MAX_ERRMSG, msg, ap); - va_end(ap); - - php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", IBG(errmsg)); -} -/* }}} */ - -/* {{{ internal macros, functions and structures */ - -typedef struct { - isc_db_handle *db_ptr; - long tpb_len; - char *tpb_ptr; -} ISC_TEB; - -/* Fill ib_link and trans_n with the correct database link and transaction slot number. - */ -static void _php_ibase_get_link_trans(INTERNAL_FUNCTION_PARAMETERS, zval **link_id, ibase_db_link **ib_link, ibase_trans **trans) -{ - int type; - void *resource = NULL; - - IBDEBUG("Transaction or database link?"); - if ((resource = zend_list_find(Z_LVAL_PP(link_id), &type))) { - IBDEBUG("Found in list"); - if (type == le_trans) { - /* Transaction resource: make sure it refers to one link only, then - fetch it; database link is stored in ib_trans->link[]. */ - IBDEBUG("Type is le_trans"); - ZEND_FETCH_RESOURCE(*trans, ibase_trans *, link_id, -1, "InterBase transaction", le_trans); - if ((*trans)->link_cnt > 1) { - _php_ibase_module_error("Link id is ambiguous: transaction spans multiple connections."); - return; - } - *ib_link = (*trans)->link[0]; - } else { - IBDEBUG("Type is le_[p]link"); - /* Database link resource, use default transaction. */ - *trans = NULL; - ZEND_FETCH_RESOURCE2(*ib_link, ibase_db_link *, link_id, -1, "InterBase link", le_link, le_plink); - } - } -} - -#define RESET_ERRMSG { IBG(errmsg)[0] = '\0';} -#define TEST_ERRMSG ( IBG(errmsg)[0] != '\0') - -/* sql variables union - * used for convert and binding input variables - */ -typedef struct { - union { - short sval; - float fval; - ISC_QUAD qval; -#ifdef ISC_TIMESTAMP - ISC_TIMESTAMP tsval; - ISC_DATE dtval; - ISC_TIME tmval; -#endif - } val; - short sqlind; -} BIND_BUF; - -/* get blob identifier from argument - * on empty unset argument ib_blob set to NULL - */ -#define GET_BLOB_ID_ARG(blob_arg, ib_blob)\ -{\ - if (Z_TYPE_P(blob_arg) == IS_STRING && Z_STRLEN_P(blob_arg) == 0) {\ - ib_blob = NULL;\ - } else if (Z_TYPE_P(blob_arg) != IS_STRING\ - || Z_STRLEN_P(blob_arg) != sizeof(ibase_blob_handle)\ - || ((ibase_blob_handle *)(Z_STRVAL_P(blob_arg)))->bl_handle != 0) {\ - _php_ibase_module_error("Invalid blob id");\ - RETURN_FALSE;\ - } else {\ - ib_blob = (ibase_blob_handle *)Z_STRVAL_P(blob_arg);\ - }\ -} - -/* get blob handle from argument - * note: blob already open when handle active - */ -#define GET_BLOB_HANDLE_ARG(blob_arg, blob_ptr) \ -{ \ - int type; \ - convert_to_long_ex(blob_arg); \ - blob_ptr = (ibase_blob_handle *) zend_list_find(Z_LVAL_PP(blob_arg), &type); \ - if (type!=le_blob) { \ - _php_ibase_module_error("%d is not blob handle", Z_LVAL_PP(blob_arg)); \ - RETURN_FALSE; \ - } \ -} - -/* blob information struct - */ -typedef struct { - ISC_LONG max_segment; /* Length of longest segment */ - ISC_LONG num_segments; /* Total number of segments */ - ISC_LONG total_length; /* Total length of blob */ - int bl_stream; /* blob is stream ? */ -} IBASE_BLOBINFO; - -/* }}} */ - - -/* destructors ---------------------- */ - -/* {{{ _php_ibase_free_xsqlda() (not actual destructor) - */ -static void _php_ibase_free_xsqlda(XSQLDA *sqlda) -{ - int i; - XSQLVAR *var; - - IBDEBUG("Free XSQLDA?"); - if (sqlda) { - IBDEBUG("Freeing XSQLDA..."); - var = sqlda->sqlvar; - for (i = 0; i < sqlda->sqld; i++, var++) { - efree(var->sqldata); - if (var->sqlind) { - efree(var->sqlind); - } - } - efree(sqlda); - } -} -/* }}} */ - -/* {{{ _php_ibase_commit_link() - */ -static void _php_ibase_commit_link(ibase_db_link *link TSRMLS_DC) -{ - int i = 0, j; - ibase_tr_list *l; - IBDEBUG("Checking transactions to close..."); - - for (l = link->trans; l != NULL; ++i) { - ibase_tr_list *p = l; - if (p->trans != NULL) { - if (i == 0) { - if (p->trans->handle != NULL) { - IBDEBUG("Committing default transaction..."); - if (isc_commit_transaction(IB_STATUS, &p->trans->handle)) { - _php_ibase_error(TSRMLS_C); - } - } - efree(p->trans); /* default transaction is not a registered resource: clean up */ - } - else { - if (p->trans->handle != NULL) { - /* non-default transaction might have been rolled back by other call of this dtor */ - IBDEBUG("Rolling back other transactions..."); - if (isc_rollback_transaction(IB_STATUS, &p->trans->handle)) { - _php_ibase_error(TSRMLS_C); - } - } - /* set this link pointer to NULL in the transaction */ - for (j = 0; j < p->trans->link_cnt; ++j) { - if (p->trans->link[j] == link) { - p->trans->link[j] = NULL; - break; - } - } - } - } - l = l->next; - efree(p); - } - link->trans = NULL; -} -/* }}} */ - -static void php_ibase_commit_link_rsrc(zend_rsrc_list_entry *rsrc TSRMLS_DC) -{ - ibase_db_link *link = (ibase_db_link *) rsrc->ptr; - - _php_ibase_commit_link(link TSRMLS_CC); -} - -/* {{{ _php_ibase_close_link() - */ -static void _php_ibase_close_link(zend_rsrc_list_entry *rsrc TSRMLS_DC) -{ - ibase_db_link *link = (ibase_db_link *) rsrc->ptr; - - _php_ibase_commit_link(link TSRMLS_CC); - if (link->link != NULL) { - IBDEBUG("Closing normal link..."); - isc_detach_database(IB_STATUS, &link->link); - } - IBG(num_links)--; - efree(link); -} -/* }}} */ - -/* {{{ _php_ibase_close_plink() - */ -static void _php_ibase_close_plink(zend_rsrc_list_entry *rsrc TSRMLS_DC) -{ - ibase_db_link *link = (ibase_db_link *) rsrc->ptr; - - _php_ibase_commit_link(link TSRMLS_CC); - IBDEBUG("Closing permanent link..."); - if (link->link != NULL) { - isc_detach_database(IB_STATUS, &link->link); - } - IBG(num_persistent)--; - IBG(num_links)--; - free(link); -} -/* }}} */ - -/* {{{ _php_ibase_free_result() - */ -static void _php_ibase_free_result(zend_rsrc_list_entry *rsrc TSRMLS_DC) -{ - ibase_result *ib_result = (ibase_result *) rsrc->ptr; - - IBDEBUG("Freeing result by dtor..."); - if (ib_result) { - _php_ibase_free_xsqlda(ib_result->out_sqlda); - if (ib_result->drop_stmt && ib_result->stmt) { - IBDEBUG("Dropping statement handle (free_result dtor)..."); - isc_dsql_free_statement(IB_STATUS, &ib_result->stmt, DSQL_drop); - } else { - /* Shouldn't be here unless query was select and had parameter - placeholders, in which case ibase_execute handles this??? - (Testing seems to confirm the decision was a right one.) - */ - IBDEBUG("Closing statement handle..."); - /* - if (isc_dsql_free_statement(IB_STATUS, &ib_result->stmt, DSQL_close)) { - _php_ibase_error(); - } - */ - } - if (ib_result->out_array) { - efree(ib_result->out_array); - } - efree(ib_result); - } -} -/* }}} */ - -/* {{{ _php_ibase_free_query() */ -static void _php_ibase_free_query(ibase_query *ib_query TSRMLS_DC) -{ - IBDEBUG("Freeing query..."); - if (ib_query) { - if (ib_query->in_sqlda) { - efree(ib_query->in_sqlda); - } - if (ib_query->out_sqlda) { - efree(ib_query->out_sqlda); - } - if (ib_query->stmt) { - IBDEBUG("Dropping statement handle (free_query)..."); - if (isc_dsql_free_statement(IB_STATUS, &ib_query->stmt, DSQL_drop)) { - _php_ibase_error(TSRMLS_C); - } - } - if (ib_query->in_array) { - efree(ib_query->in_array); - } - if (ib_query->out_array) { - efree(ib_query->out_array); - } - efree(ib_query); - } -} -/* }}} */ - -/* {{{ php_ibase_free_query_rsrc() */ -static void php_ibase_free_query_rsrc(zend_rsrc_list_entry *rsrc TSRMLS_DC) -{ - ibase_query *ib_query = (ibase_query *)rsrc->ptr; - - IBDEBUG("Freeing query by dtor..."); - if (ib_query) { - if (ib_query->in_sqlda) { - efree(ib_query->in_sqlda); - } - if (ib_query->out_sqlda) { - efree(ib_query->out_sqlda); - } - if (ib_query->stmt) { - IBDEBUG("Dropping statement handle (free_query dtor)..."); - isc_dsql_free_statement(IB_STATUS, &ib_query->stmt, DSQL_drop); - } - if (ib_query->in_array) { - efree(ib_query->in_array); - } - if (ib_query->out_array) { - efree(ib_query->out_array); - } - efree(ib_query); - } -} -/* }}} */ - -/* {{{ _php_ibase_free_blob() */ -static void _php_ibase_free_blob(zend_rsrc_list_entry *rsrc TSRMLS_DC) -{ - ibase_blob_handle *ib_blob = (ibase_blob_handle *)rsrc->ptr; - - if (ib_blob->bl_handle != NULL) { /* blob open*/ - if (isc_cancel_blob(IB_STATUS, &ib_blob->bl_handle)) { - php_error_docref(NULL TSRMLS_CC, E_ERROR, "You can lose data. Close any blob after reading of writing it. Use ibase_blob_close() before calling ibase_close()"); - } - } - efree(ib_blob); -} -/* }}} */ - -/* {{{ _php_ibase_free_trans() */ -static void _php_ibase_free_trans(zend_rsrc_list_entry *rsrc TSRMLS_DC) -{ - ibase_trans *trans = (ibase_trans *)rsrc->ptr; - int i; - - IBDEBUG("Cleaning up transaction resource..."); - if (trans->handle != NULL) { - IBDEBUG("Rolling back unhandled transaction..."); - if (isc_rollback_transaction(IB_STATUS, &trans->handle)) { - _php_ibase_error(TSRMLS_C); - } - } - - /* now remove this transaction from all the connection-transaction lists */ - for (i = 0; i < trans->link_cnt; ++i) { - if (trans->link[i] != NULL) { - ibase_tr_list **l; - for (l = &trans->link[i]->trans; *l != NULL; l = &(*l)->next) { - if ( (*l)->trans == trans) { - ibase_tr_list *p = *l; - *l = p->next; - efree(p); - break; - } - } - } - } - efree(trans); -} -/* }}} */ - -/* {{{ startup, shutdown and info functions */ -PHP_INI_BEGIN() - STD_PHP_INI_BOOLEAN("ibase.allow_persistent", "1", PHP_INI_SYSTEM, OnUpdateLong, allow_persistent, zend_ibase_globals, ibase_globals) - STD_PHP_INI_ENTRY_EX("ibase.max_persistent", "-1", PHP_INI_SYSTEM, OnUpdateLong, max_persistent, zend_ibase_globals, ibase_globals, display_link_numbers) - STD_PHP_INI_ENTRY_EX("ibase.max_links", "-1", PHP_INI_SYSTEM, OnUpdateLong, max_links, zend_ibase_globals, ibase_globals, display_link_numbers) - STD_PHP_INI_ENTRY("ibase.default_user", NULL, PHP_INI_ALL, OnUpdateString, default_user, zend_ibase_globals, ibase_globals) - STD_PHP_INI_ENTRY("ibase.default_password", NULL, PHP_INI_ALL, OnUpdateString, default_password, zend_ibase_globals, ibase_globals) - STD_PHP_INI_ENTRY("ibase.timestampformat", "%m/%d/%Y %H:%M:%S", PHP_INI_ALL, OnUpdateString, cfg_timestampformat, zend_ibase_globals, ibase_globals) - STD_PHP_INI_ENTRY("ibase.dateformat", "%m/%d/%Y", PHP_INI_ALL, OnUpdateString, cfg_dateformat, zend_ibase_globals, ibase_globals) - STD_PHP_INI_ENTRY("ibase.timeformat", "%H:%M:%S", PHP_INI_ALL, OnUpdateString, cfg_timeformat, zend_ibase_globals, ibase_globals) -PHP_INI_END() - -static void php_ibase_init_globals(zend_ibase_globals *ibase_globals) -{ - ibase_globals->timestampformat = NULL; - ibase_globals->dateformat = NULL; - ibase_globals->timeformat = NULL; - ibase_globals->num_persistent = 0; -} - -PHP_MINIT_FUNCTION(ibase) -{ - ZEND_INIT_MODULE_GLOBALS(ibase, php_ibase_init_globals, NULL); - - REGISTER_INI_ENTRIES(); - - le_result = zend_register_list_destructors_ex(_php_ibase_free_result, NULL, "interbase result", module_number); - le_query = zend_register_list_destructors_ex(php_ibase_free_query_rsrc, NULL, "interbase query", module_number); - le_blob = zend_register_list_destructors_ex(_php_ibase_free_blob, NULL, "interbase blob", module_number); - le_link = zend_register_list_destructors_ex(_php_ibase_close_link, NULL, "interbase link", module_number); - le_plink = zend_register_list_destructors_ex(php_ibase_commit_link_rsrc, _php_ibase_close_plink, "interbase link persistent", module_number); - le_trans = zend_register_list_destructors_ex(_php_ibase_free_trans, NULL, "interbase transaction", module_number); - - REGISTER_LONG_CONSTANT("IBASE_DEFAULT", PHP_IBASE_DEFAULT, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_TEXT", PHP_IBASE_TEXT, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_UNIXTIME", PHP_IBASE_UNIXTIME, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_TIMESTAMP", PHP_IBASE_TIMESTAMP, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_DATE", PHP_IBASE_DATE, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_TIME", PHP_IBASE_TIME, CONST_PERSISTENT); - /* transactions */ - REGISTER_LONG_CONSTANT("IBASE_WRITE", PHP_IBASE_WRITE, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_READ", PHP_IBASE_READ, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_COMMITTED", PHP_IBASE_COMMITTED, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_CONSISTENCY", PHP_IBASE_CONSISTENCY, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_CONCURRENCY", PHP_IBASE_CONCURRENCY, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_REC_VERSION", PHP_IBASE_REC_VERSION, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_REC_NO_VERSION", PHP_IBASE_REC_NO_VERSION, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_NOWAIT", PHP_IBASE_NOWAIT, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_WAIT", PHP_IBASE_WAIT, CONST_PERSISTENT); - - return SUCCESS; -} - -PHP_RINIT_FUNCTION(ibase) -{ - IBG(default_link)= -1; - IBG(num_links) = IBG(num_persistent); - - if (IBG(timestampformat)) { - DL_FREE(IBG(timestampformat)); - } - IBG(timestampformat) = DL_STRDUP(IBG(cfg_timestampformat)); - - if (IBG(dateformat)) { - DL_FREE(IBG(dateformat)); - } - IBG(dateformat) = DL_STRDUP(IBG(cfg_dateformat)); - - if (IBG(timeformat)) { - DL_FREE(IBG(timeformat)); - } - IBG(timeformat) = DL_STRDUP(IBG(cfg_timeformat)); - - RESET_ERRMSG; - - return SUCCESS; -} - -PHP_MSHUTDOWN_FUNCTION(ibase) -{ - UNREGISTER_INI_ENTRIES(); - return SUCCESS; -} - -PHP_RSHUTDOWN_FUNCTION(ibase) -{ - if (IBG(timestampformat)) { - DL_FREE(IBG(timestampformat)); - } - IBG(timestampformat) = NULL; - - if (IBG(dateformat)) { - DL_FREE(IBG(dateformat)); - } - IBG(dateformat) = NULL; - - if (IBG(timeformat)) { - DL_FREE(IBG(timeformat)); - } - IBG(timeformat) = NULL; - - return SUCCESS; -} - -PHP_MINFO_FUNCTION(ibase) -{ - char tmp[32]; - - php_info_print_table_start(); - php_info_print_table_row(2, "Interbase Support", "enabled"); - php_info_print_table_row(2, "Revision", "$Revision$"); -#ifdef COMPILE_DL_INTERBASE - php_info_print_table_row(2, "Dynamic Module", "Yes"); -#endif - php_info_print_table_row(2, "Allow Persistent Links", (IBG(allow_persistent) ? "Yes" : "No")); - - if (IBG(max_persistent) == -1) { - snprintf(tmp, 31, "%ld/unlimited", IBG(num_persistent)); - } else { - snprintf(tmp, 31, "%ld/%ld", IBG(num_persistent), IBG(max_persistent)); - } - tmp[31] = 0; - php_info_print_table_row(2, "Persistent Links", tmp); - - if (IBG(max_links) == -1) { - snprintf(tmp, 31, "%ld/unlimited", IBG(num_links)); - } else { - snprintf(tmp, 31, "%ld/%ld", IBG(num_links), IBG(max_links)); - } - tmp[31] = 0; - php_info_print_table_row(2, "Total Links", tmp); - - php_info_print_table_row(2, "Timestamp Format", IBG(timestampformat)); - php_info_print_table_row(2, "Date Format", IBG(dateformat)); - php_info_print_table_row(2, "Time Format", IBG(timeformat)); - - php_info_print_table_end(); -} -/* }}} */ - -/* {{{ _php_ibase_attach_db() */ -static int _php_ibase_attach_db(char *server, char *uname, char *passwd, char *charset, int buffers, char *role, isc_db_handle *db TSRMLS_DC) -{ - char dpb_buffer[256], *dpb, *p; - int dpb_length, len; - - dpb = dpb_buffer; - - *dpb++ = isc_dpb_version1; - - if (uname != NULL && (len = strlen(uname))) { - *dpb++ = isc_dpb_user_name; - *dpb++ = len; - for (p = uname; *p;) { - *dpb++ = *p++; - } - } - - if (passwd != NULL && (len = strlen(passwd))) { - *dpb++ = isc_dpb_password; - *dpb++ = strlen(passwd); - for (p = passwd; *p;) { - *dpb++ = *p++; - } - } - - if (charset != NULL && (len = strlen(charset))) { - *dpb++ = isc_dpb_lc_ctype; - *dpb++ = strlen(charset); - for (p = charset; *p;) { - *dpb++ = *p++; - } - } - - if (buffers) { - *dpb++ = isc_dpb_num_buffers; - *dpb++ = 1; - *dpb++ = buffers; - } - -#ifdef isc_dpb_sql_role_name - if (role != NULL && (len = strlen(role))) { - *dpb++ = isc_dpb_sql_role_name; - *dpb++ = strlen(role); - for (p = role; *p;) { - *dpb++ = *p++; - } - } -#endif - - dpb_length = dpb - dpb_buffer; - - if (isc_attach_database(IB_STATUS, (short) strlen(server), server, db, (short) dpb_length, dpb_buffer)) { - _php_ibase_error(TSRMLS_C); - return FAILURE; - } - return SUCCESS; -} -/* }}} */ - -/* {{{ _php_ibase_connect() */ -static void _php_ibase_connect(INTERNAL_FUNCTION_PARAMETERS, int persistent) -{ - zval ***args; - char *ib_server = NULL, *ib_uname, *ib_passwd, *ib_charset = NULL, *ib_buffers = NULL, *ib_dialect = NULL, *ib_role = NULL; - int ib_uname_len, ib_passwd_len; - isc_db_handle db_handle = NULL; - char *hashed_details; - int hashed_details_length = 0; - ibase_db_link *ib_link = NULL; - - RESET_ERRMSG; - - ib_uname = IBG(default_user); - ib_passwd = IBG(default_password); - ib_uname_len = ib_uname ? strlen(ib_uname) : 0; - ib_passwd_len = ib_passwd ? strlen(ib_passwd) : 0; - - if (ZEND_NUM_ARGS() < 1 || ZEND_NUM_ARGS() > 7) { - WRONG_PARAM_COUNT; - } - - args = (zval ***) emalloc(sizeof(zval **) * ZEND_NUM_ARGS()); - if (zend_get_parameters_array_ex(ZEND_NUM_ARGS(), args) == FAILURE) { - efree(args); - RETURN_FALSE; - } - - switch (ZEND_NUM_ARGS()) { - case 7: - convert_to_string_ex(args[6]); - ib_role = Z_STRVAL_PP(args[6]); - hashed_details_length += Z_STRLEN_PP(args[6]); - /* fallout */ - case 6: - convert_to_string_ex(args[5]); - ib_dialect = Z_STRVAL_PP(args[5]); - hashed_details_length += Z_STRLEN_PP(args[5]); - /* fallout */ - case 5: - convert_to_string_ex(args[4]); - ib_buffers = Z_STRVAL_PP(args[4]); - hashed_details_length += Z_STRLEN_PP(args[4]); - /* fallout */ - case 4: - convert_to_string_ex(args[3]); - ib_charset = Z_STRVAL_PP(args[3]); - hashed_details_length += Z_STRLEN_PP(args[3]); - /* fallout */ - case 3: - convert_to_string_ex(args[2]); - ib_passwd = Z_STRVAL_PP(args[2]); - hashed_details_length += Z_STRLEN_PP(args[2]); - /* fallout */ - case 2: - convert_to_string_ex(args[1]); - ib_uname = Z_STRVAL_PP(args[1]); - hashed_details_length += Z_STRLEN_PP(args[1]); - /* fallout */ - case 1: - convert_to_string_ex(args[0]); - ib_server = Z_STRVAL_PP(args[0]); - hashed_details_length += Z_STRLEN_PP(args[0]); - } /* case */ - - efree(args); - - hashed_details = (char *) emalloc(hashed_details_length + strlen("ibase_%s_%s_%s_%s_%s_%s_%s") + 1); - sprintf(hashed_details, "ibase_%s_%s_%s_%s_%s_%s_%s", SAFE_STRING(ib_server), SAFE_STRING(ib_uname), SAFE_STRING(ib_passwd), SAFE_STRING(ib_charset), SAFE_STRING(ib_buffers), SAFE_STRING(ib_dialect), SAFE_STRING(ib_role)); - - if (persistent) { - list_entry *le; - int open_new_connection = 1; - - if (zend_hash_find(&EG(persistent_list), hashed_details, hashed_details_length + 1, (void **) &le) != FAILURE) { - char tmp_1[] = {isc_info_base_level, isc_info_end}; - char tmp_2[8]; /* Enough? Hope so... */ - - if (Z_TYPE_P(le) != le_plink) { - RETURN_FALSE; - } - /* Check if connection has timed out */ - ib_link = (ibase_db_link *) le->ptr; - if (!isc_database_info(IB_STATUS, &ib_link->link, sizeof(tmp_1), tmp_1, sizeof(tmp_2), tmp_2)) { - open_new_connection = 0; - } - } - - /* There was no previous connection to use or it has timed out */ - if (open_new_connection) { - list_entry new_le; - - if ((IBG(max_links) != -1) && (IBG(num_links) >= IBG(max_links))) { - _php_ibase_module_error("Too many open links (%d)", IBG(num_links)); - efree(hashed_details); - RETURN_FALSE; - } - if ((IBG(max_persistent) != -1) && (IBG(num_persistent) >= IBG(max_persistent))) { - _php_ibase_module_error("Too many open persistent links (%d)", IBG(num_persistent)); - efree(hashed_details); - RETURN_FALSE; - } - - /* create the ib_link */ - - if (_php_ibase_attach_db(ib_server, ib_uname, ib_passwd, ib_charset, - (ib_buffers ? strtoul(ib_buffers, NULL, 0) : 0), - ib_role, &db_handle TSRMLS_CC) == FAILURE) { - efree(hashed_details); - RETURN_FALSE; - } - - ib_link = (ibase_db_link *) malloc(sizeof(ibase_db_link)); - ib_link->link = db_handle; - ib_link->dialect = (ib_dialect ? (unsigned short) strtoul(ib_dialect, NULL, 10) : SQL_DIALECT_CURRENT); - ib_link->trans = NULL; - - /* hash it up */ - Z_TYPE(new_le) = le_plink; - new_le.ptr = ib_link; - if (zend_hash_update(&EG(persistent_list), hashed_details, hashed_details_length + 1, (void *) &new_le, sizeof(list_entry), NULL) == FAILURE) { - efree(hashed_details); - free(ib_link); - RETURN_FALSE; - } - IBG(num_links)++; - IBG(num_persistent)++; - } - - ZEND_REGISTER_RESOURCE(return_value, ib_link, le_plink); - - } else { - list_entry *index_ptr, new_index_ptr; - - /* first we check the hash for the hashed_details key. if it exists, - * it should point us to the right offset where the actual ib_link sits. - * if it doesn't, open a new ib_link, add it to the resource list, - * and add a pointer to it with hashed_details as the key. - */ - if (zend_hash_find(&EG(regular_list), hashed_details, hashed_details_length + 1, (void **) &index_ptr) == SUCCESS) { - int type, xlink; - void *ptr; - if (Z_TYPE_P(index_ptr) != le_index_ptr) { - RETURN_FALSE; - } - xlink = (int) index_ptr->ptr; - ptr = zend_list_find(xlink, &type); /* check if the xlink is still there */ - if (ptr && (type == le_link || type == le_plink)) { - zend_list_addref(xlink); - Z_LVAL_P(return_value) = xlink; - Z_TYPE_P(return_value) = IS_RESOURCE; - IBG(default_link) = Z_LVAL_P(return_value); - efree(hashed_details); - return; - } else { - zend_hash_del(&EG(regular_list), hashed_details, hashed_details_length + 1); - } - } - if ((IBG(max_links) != -1) && (IBG(num_links) >= IBG(max_links))) { - _php_ibase_module_error("Too many open links (%d)", IBG(num_links)); - efree(hashed_details); - RETURN_FALSE; - } - /* create the ib_link */ - - if (_php_ibase_attach_db(ib_server, ib_uname, ib_passwd, ib_charset, - (ib_buffers ? strtoul(ib_buffers, NULL, 0) : 0), - ib_role, &db_handle TSRMLS_CC) == FAILURE) { - efree(hashed_details); - RETURN_FALSE; - } - - ib_link = (ibase_db_link *) emalloc(sizeof(ibase_db_link)); - ib_link->link = db_handle; - ib_link->dialect = (ib_dialect ? (unsigned short) strtoul(ib_dialect, NULL, 10) : SQL_DIALECT_CURRENT); - ib_link->trans = NULL; - - ZEND_REGISTER_RESOURCE(return_value, ib_link, le_link); - - /* add it to the hash */ - new_index_ptr.ptr = (void *) Z_LVAL_P(return_value); - Z_TYPE(new_index_ptr) = le_index_ptr; - if (zend_hash_update(&EG(regular_list), hashed_details, hashed_details_length + 1, (void *) &new_index_ptr, sizeof(list_entry), NULL) == FAILURE) { - efree(hashed_details); - RETURN_FALSE; - } - IBG(num_links)++; - } - efree(hashed_details); - zend_list_addref(Z_LVAL_P(return_value)); - IBG(default_link) = Z_LVAL_P(return_value); -} -/* }}} */ - -/* {{{ proto resource ibase_connect(string database [, string username [, string password [, string charset [, int buffers [, int dialect [, string role]]]]]]) - Open a connection to an InterBase database */ -PHP_FUNCTION(ibase_connect) -{ - _php_ibase_connect(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0); -} -/* }}} */ - -/* {{{ proto resource ibase_pconnect(string database [, string username [, string password [, string charset [, int buffers [, int dialect [, string role]]]]]]) - Open a persistent connection to an InterBase database */ -PHP_FUNCTION(ibase_pconnect) -{ - _php_ibase_connect(INTERNAL_FUNCTION_PARAM_PASSTHRU, 1); -} -/* }}} */ - -/* {{{ proto bool ibase_close([resource link_identifier]) - Close an InterBase connection */ -PHP_FUNCTION(ibase_close) -{ - zval **link_arg = NULL; - ibase_db_link *ib_link; - int link_id; - - RESET_ERRMSG; - - switch (ZEND_NUM_ARGS()) { - case 0: - link_id = IBG(default_link); - IBG(default_link) = -1; - break; - case 1: - if (zend_get_parameters_ex(1, &link_arg) == FAILURE) { - RETURN_FALSE; - } - convert_to_long_ex(link_arg); - link_id = Z_LVAL_PP(link_arg); - break; - default: - WRONG_PARAM_COUNT; - break; - } - - ZEND_FETCH_RESOURCE2(ib_link, ibase_db_link *, link_arg, link_id, "InterBase link", le_link, le_plink); - zend_list_delete(link_id); - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto bool ibase_drop_db([resource link_identifier]) - Drop an InterBase database */ -PHP_FUNCTION(ibase_drop_db) -{ - zval **link_arg = NULL; - ibase_db_link *ib_link; - ibase_tr_list *l; - int link_id; - - RESET_ERRMSG; - - switch (ZEND_NUM_ARGS()) { - case 0: - link_id = IBG(default_link); - IBG(default_link) = -1; - break; - case 1: - if (zend_get_parameters_ex(1, &link_arg) == FAILURE) { - RETURN_FALSE; - } - convert_to_long_ex(link_arg); - link_id = Z_LVAL_PP(link_arg); - break; - default: - WRONG_PARAM_COUNT; - break; - } - - ZEND_FETCH_RESOURCE2(ib_link, ibase_db_link *, link_arg, link_id, "InterBase link", le_link, le_plink); - if (isc_drop_database(IB_STATUS, &ib_link->link)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - - /* isc_drop_database() doesn't invalidate the transaction handles */ - for (l = ib_link->trans; l != NULL; l = l->next) { - if (l->trans != NULL) l->trans->handle = NULL; - } - - zend_list_delete(link_id); - RETURN_TRUE; -} -/* }}} */ - -/* {{{ _php_ibase_alloc_array() */ -static int _php_ibase_alloc_array(ibase_array **ib_arrayp, int *array_cntp, XSQLDA *sqlda, isc_db_handle link, isc_tr_handle trans TSRMLS_DC) -{ -#define IB_ARRAY (*ib_arrayp) - - int i, dim, ar_cnt, ar_length; - XSQLVAR *var; - - IB_ARRAY = NULL; - - ar_cnt = 0; /* find arrays */ - var = sqlda->sqlvar; - for (i = 0; i < sqlda->sqld; i++, var++) { - if ((var->sqltype & ~1) == SQL_ARRAY) { - ar_cnt++; - } - } - - if (ar_cnt) { /* have arrays ? */ - *array_cntp = ar_cnt; - IB_ARRAY = emalloc(sizeof(ibase_array)*ar_cnt); - ar_cnt = 0; - var = sqlda->sqlvar; - for (i = 0; i < sqlda->sqld; i++, var++) { - if ((var->sqltype & ~1) == SQL_ARRAY) { - - ISC_ARRAY_DESC *ar_desc = &IB_ARRAY[ar_cnt].ar_desc; - - if (isc_array_lookup_bounds(IB_STATUS, &link, &trans, var->relname, var->sqlname, ar_desc)) { - _php_ibase_error(TSRMLS_C); - efree(IB_ARRAY); - IB_ARRAY = NULL; - return FAILURE; - } - - switch (ar_desc->array_desc_dtype) { - case blr_text: - case blr_text2: - IB_ARRAY[ar_cnt].el_type = SQL_TEXT; - IB_ARRAY[ar_cnt].el_size = ar_desc->array_desc_length + 1; - break; - case blr_short: - IB_ARRAY[ar_cnt].el_type = SQL_SHORT; - IB_ARRAY[ar_cnt].el_size = sizeof(short); - break; - case blr_long: - IB_ARRAY[ar_cnt].el_type = SQL_LONG; - IB_ARRAY[ar_cnt].el_size = sizeof(long); - break; - case blr_float: - IB_ARRAY[ar_cnt].el_type = SQL_FLOAT; - IB_ARRAY[ar_cnt].el_size = sizeof(float); - break; - case blr_double: - IB_ARRAY[ar_cnt].el_type = SQL_DOUBLE; - IB_ARRAY[ar_cnt].el_size = sizeof(double); - break; - case blr_date: - IB_ARRAY[ar_cnt].el_type = SQL_DATE; - IB_ARRAY[ar_cnt].el_size = sizeof(ISC_QUAD); - break; - case blr_varying: - case blr_varying2: /* changed to SQL_TEXT ? */ - /* sql_type = SQL_VARYING; Why? FIXME: ??? */ - IB_ARRAY[ar_cnt].el_type = SQL_TEXT; - IB_ARRAY[ar_cnt].el_size = ar_desc->array_desc_length + sizeof(short); - break; - default: - _php_ibase_module_error("Unexpected array type %d in relation '%s' column '%s'", ar_desc->array_desc_dtype, var->relname, var->sqlname); - efree(IB_ARRAY); - IB_ARRAY = NULL; - return FAILURE; - } /* switch array_desc_type */ - - ar_length = 0; /* calculate elements count */ - for (dim = 0; dim < ar_desc->array_desc_dimensions; dim++) { - ar_length += 1 + ar_desc->array_desc_bounds[dim].array_bound_upper - ar_desc->array_desc_bounds[dim].array_bound_lower; - } - IB_ARRAY[ar_cnt].ar_size = IB_ARRAY[ar_cnt].el_size * ar_length; - - ar_cnt++; - - } /* if SQL_ARRAY */ - } /* for column */ - } /* if array_cnt */ - - return SUCCESS; -#undef IB_ARRAY -} -/* }}} */ - -/* {{{ _php_ibase_alloc_query() */ -/* allocate and prepare query */ -static int _php_ibase_alloc_query(ibase_query **ib_queryp, isc_db_handle link, isc_tr_handle trans, char *query, unsigned short dialect TSRMLS_DC) -{ -#define IB_QUERY (*ib_queryp) - - IB_QUERY = emalloc(sizeof(ibase_query)); - IB_QUERY->link = link; - IB_QUERY->trans = trans; - IB_QUERY->stmt = NULL; - IB_QUERY->out_sqlda = NULL; - IB_QUERY->in_sqlda = NULL; - IB_QUERY->in_array = NULL; - IB_QUERY->in_array_cnt = 0; - IB_QUERY->out_array = NULL; - IB_QUERY->out_array_cnt = 0; - IB_QUERY->dialect = dialect; - - if (isc_dsql_allocate_statement(IB_STATUS, &link, &IB_QUERY->stmt)) { - _php_ibase_error(TSRMLS_C); - goto _php_ibase_alloc_query_error; - } - - IB_QUERY->out_sqlda = (XSQLDA *) emalloc(XSQLDA_LENGTH(1)); - IB_QUERY->out_sqlda->sqln = 1; - IB_QUERY->out_sqlda->version = SQLDA_VERSION1; - - if (isc_dsql_prepare(IB_STATUS, &IB_QUERY->trans, &IB_QUERY->stmt, 0, query, dialect, IB_QUERY->out_sqlda)) { - _php_ibase_error(TSRMLS_C); - goto _php_ibase_alloc_query_error; - } - - /* not enough output variables ? */ - if (IB_QUERY->out_sqlda->sqld > IB_QUERY->out_sqlda->sqln) { - IB_QUERY->out_sqlda = erealloc(IB_QUERY->out_sqlda, XSQLDA_LENGTH(IB_QUERY->out_sqlda->sqld)); - IB_QUERY->out_sqlda->sqln = IB_QUERY->out_sqlda->sqld; - IB_QUERY->out_sqlda->version = SQLDA_VERSION1; - if (isc_dsql_describe(IB_STATUS, &IB_QUERY->stmt, SQLDA_VERSION1, IB_QUERY->out_sqlda)) { - _php_ibase_error(TSRMLS_C); - goto _php_ibase_alloc_query_error; - } - } - - /* maybe have input placeholders? */ - IB_QUERY->in_sqlda = emalloc(XSQLDA_LENGTH(1)); - IB_QUERY->in_sqlda->sqln = 1; - IB_QUERY->in_sqlda->version = SQLDA_VERSION1; - if (isc_dsql_describe_bind(IB_STATUS, &IB_QUERY->stmt, SQLDA_VERSION1, IB_QUERY->in_sqlda)) { - _php_ibase_error(TSRMLS_C); - goto _php_ibase_alloc_query_error; - } - - /* not enough input variables ? */ - if (IB_QUERY->in_sqlda->sqln < IB_QUERY->in_sqlda->sqld) { - IB_QUERY->in_sqlda = erealloc(IB_QUERY->in_sqlda, XSQLDA_LENGTH(IB_QUERY->in_sqlda->sqld)); - IB_QUERY->in_sqlda->sqln = IB_QUERY->in_sqlda->sqld; - IB_QUERY->in_sqlda->version = SQLDA_VERSION1; - if (isc_dsql_describe_bind(IB_STATUS, &IB_QUERY->stmt, SQLDA_VERSION1, IB_QUERY->in_sqlda)) { - _php_ibase_error(TSRMLS_C); - goto _php_ibase_alloc_query_error; - } - } - - /* allocate arrays... */ - if (_php_ibase_alloc_array(&IB_QUERY->in_array, &IB_QUERY->in_array_cnt, IB_QUERY->in_sqlda, link, trans TSRMLS_CC) == FAILURE) { - goto _php_ibase_alloc_query_error; /* error report already done */ - } - - if (_php_ibase_alloc_array(&IB_QUERY->out_array, &IB_QUERY->out_array_cnt, IB_QUERY->out_sqlda, link, trans TSRMLS_CC) == FAILURE) { - goto _php_ibase_alloc_query_error; - } - - /* no, haven't placeholders at all */ - if (IB_QUERY->in_sqlda->sqld == 0) { - efree(IB_QUERY->in_sqlda); - IB_QUERY->in_sqlda = NULL; - } - - if (IB_QUERY->out_sqlda->sqld == 0) { - efree(IB_QUERY->out_sqlda); - IB_QUERY->out_sqlda = NULL; - } - - return SUCCESS; - -_php_ibase_alloc_query_error: - - if (IB_QUERY->out_sqlda) { - efree(IB_QUERY->out_sqlda); - } - if (IB_QUERY->in_sqlda) { - efree(IB_QUERY->in_sqlda); - } - if (IB_QUERY->out_array) { - efree(IB_QUERY->out_array); - } - efree(IB_QUERY); - IB_QUERY = NULL; - - return FAILURE; -#undef IB_QUERY -} -/* }}} */ - -/* {{{ _php_ibase_bind() - Bind parameter placeholders in a previously prepared query */ -static int _php_ibase_bind(XSQLDA *sqlda, zval **b_vars, BIND_BUF *buf, ibase_query *ib_query TSRMLS_DC) -{ - XSQLVAR *var; - zval *b_var; - int i; - - var = sqlda->sqlvar; - for (i = 0; i < sqlda->sqld; var++, i++) { /* binded vars */ - - buf[i].sqlind = 0; - var->sqlind = &buf[i].sqlind; - b_var = b_vars[i]; - - if (Z_TYPE_P(b_var) == IS_NULL) { - static char nothing[64]; - static short null_flag = -1; - var->sqldata = nothing; - var->sqltype |= 1; - var->sqlind = &null_flag; - if (var->sqllen > 64) { - var->sqllen = 64; - } - } else - - switch (var->sqltype & ~1) { - case SQL_TEXT: /* direct to variable */ - case SQL_VARYING: - convert_to_string(b_var); - var->sqldata = (void ISC_FAR *) Z_STRVAL_P(b_var); - var->sqllen = Z_STRLEN_P(b_var); - var->sqltype = SQL_TEXT + (var->sqltype & 1); - break; - case SQL_SHORT: - convert_to_long(b_var); - if (Z_LVAL_P(b_var) > SHRT_MAX || Z_LVAL_P(b_var) < SHRT_MIN) { - _php_ibase_module_error("Field %*s overflow", var->aliasname_length, var->aliasname); - return FAILURE; - } - buf[i].val.sval = (short) Z_LVAL_P(b_var); - var->sqldata = (void ISC_FAR *) (&buf[i].val.sval); - break; - case SQL_LONG: - if (var->sqlscale < 0) { - /* - DECIMAL or NUMERIC field stored internally as scaled integer. - Coerce it to string and let InterBase's internal routines - handle it. - */ - convert_to_string(b_var); - var->sqldata = (void ISC_FAR *) Z_STRVAL_P(b_var); - var->sqllen = Z_STRLEN_P(b_var); - var->sqltype = SQL_TEXT; - } else { - convert_to_long(b_var); - var->sqldata = (void ISC_FAR *) (&Z_LVAL_P(b_var)); - } - break; - case SQL_FLOAT: - convert_to_double(b_var); - buf[i].val.fval = (float) Z_DVAL_P(b_var); - var->sqldata = (void ISC_FAR *) (&buf[i].val.fval); - break; - case SQL_DOUBLE: /* direct to variable */ - convert_to_double(b_var); - var->sqldata = (void ISC_FAR *) (&Z_DVAL_P(b_var)); - break; -#ifdef SQL_INT64 - case SQL_INT64: - /* - Just let InterBase's internal routines handle it. - Besides, it might even have originally been a string - to avoid rounding errors... - */ - convert_to_string(b_var); - var->sqldata = (void ISC_FAR *) Z_STRVAL_P(b_var); - var->sqllen = Z_STRLEN_P(b_var); - var->sqltype = SQL_TEXT; - break; -#endif -#ifndef SQL_TIMESTAMP - case SQL_DATE: -#else - case SQL_TIMESTAMP: - case SQL_TYPE_DATE: - case SQL_TYPE_TIME: -#endif -#ifndef HAVE_STRPTIME -#ifndef SQL_TIMESTAMP - /* Parsing doesn't seem to happen with older versions... */ - { - struct tm t; - int n; - - t.tm_year = t.tm_mon = t.tm_mday = t.tm_hour = t.tm_min = t.tm_sec = 0; - - convert_to_string(b_var); - - n = sscanf(Z_STRVAL_P(b_var), "%d%*[/]%d%*[/]%d %d%*[:]%d%*[:]%d", &t.tm_mon, &t.tm_mday, &t.tm_year, &t.tm_hour, &t.tm_min, &t.tm_sec); - - if (n != 3 && n != 6) { - _php_ibase_module_error("Invalid date/time format: Expected 3 or 6 fields, got %d. Use format m/d/Y H:i:s. You gave '%s'", n, Z_STRVAL_P(b_var)); - return FAILURE; - } - t.tm_year -= 1900; - t.tm_mon--; - isc_encode_date(&t, &buf[i].val.qval); - var->sqldata = (void ISC_FAR *) (&buf[i].val.qval); - } -#else - /* - Once again, InterBase's internal parsing routines - seems to be a good solution... Might change this on - platforms that have strptime()? Code is there and works, - but the functions existence is not yet tested... - ask Sascha? - */ - convert_to_string(b_var); - var->sqldata = (void ISC_FAR *) Z_STRVAL_P(b_var); - var->sqllen = Z_STRLEN_P(b_var); - var->sqltype = SQL_TEXT; -#endif -#else - { - struct tm t; - - convert_to_string(b_var); -#ifndef SQL_TIMESTAMP - strptime(Z_STRVAL_P(b_var), IBG(timestampformat), &t); - isc_encode_date(&t, &buf[i].val.qval); - var->sqldata = (void ISC_FAR *) (&buf[i].val.qval); -#else - switch (var->sqltype & ~1) { - case SQL_TIMESTAMP: - strptime(Z_STRVAL_P(b_var), IBG(timestampformat), &t); - isc_encode_timestamp(&t, &buf[i].val.tsval); - var->sqldata = (void ISC_FAR *) (&buf[i].val.tsval); - break; - case SQL_TYPE_DATE: - strptime(Z_STRVAL_P(b_var), IBG(dateformat), &t); - isc_encode_sql_date(&t, &buf[i].val.dtval); - var->sqldata = (void ISC_FAR *) (&buf[i].val.dtval); - break; - case SQL_TYPE_TIME: - strptime(Z_STRVAL_P(b_var), IBG(timeformat), &t); - isc_encode_sql_time(&t, &buf[i].val.tmval); - var->sqldata = (void ISC_FAR *) (&buf[i].val.tmval); - break; - } -#endif - } -#endif - break; - case SQL_BLOB: - { - ibase_blob_handle *ib_blob_id; - if (Z_TYPE_P(b_var) != IS_STRING || Z_STRLEN_P(b_var) != sizeof(ibase_blob_handle) || - ((ibase_blob_handle *)(Z_STRVAL_P(b_var)))->bl_handle != 0) { - ibase_blob_handle *ib_blob; - - ib_blob = (ibase_blob_handle *) emalloc(sizeof(ibase_blob_handle)); - ib_blob->trans_handle = ib_query->trans; - ib_blob->link = ib_query->link; - ib_blob->bl_handle = NULL; - if (isc_create_blob(IB_STATUS, &ib_blob->link, &ib_blob->trans_handle, &ib_blob->bl_handle, &ib_blob->bl_qd)) { - efree(ib_blob); - _php_ibase_error(TSRMLS_C); - return FAILURE; - } - convert_to_string(b_var); - if (isc_put_segment(IB_STATUS, &ib_blob->bl_handle, (unsigned short) Z_STRLEN_P(b_var), Z_STRVAL_P(b_var))) { - _php_ibase_error(TSRMLS_C); - return FAILURE; - } - if (isc_close_blob(IB_STATUS, &ib_blob->bl_handle)) { - _php_ibase_error(TSRMLS_C); - return FAILURE; - } - ib_blob_id = ib_blob; - var->sqldata = (void ISC_FAR *) &ib_blob_id->bl_qd; -/* - _php_ibase_module_error("Invalid blob id string"); - return FAILURE; -*/ - } else { - ib_blob_id = (ibase_blob_handle *) Z_STRVAL_P(b_var); - - var->sqldata = (void ISC_FAR *) &ib_blob_id->bl_qd; - } - } - break; - case SQL_ARRAY: - _php_ibase_module_error("Binding arrays not supported yet"); - return FAILURE; - break; - } /* switch */ - } /* for */ - - return SUCCESS; -} -/* }}} */ - -/* {{{ _php_ibase_alloc_xsqlda() */ -static void _php_ibase_alloc_xsqlda(XSQLDA *sqlda) -{ - int i; - XSQLVAR *var = sqlda->sqlvar; - - for (i = 0; i < sqlda->sqld; i++, var++) { - switch (var->sqltype & ~1) { - case SQL_TEXT: - var->sqldata = emalloc(sizeof(char) * (var->sqllen)); - break; - case SQL_VARYING: - var->sqldata = emalloc(sizeof(char) * (var->sqllen + sizeof(short))); - break; - case SQL_SHORT: - var->sqldata = emalloc(sizeof(short)); - break; - case SQL_LONG: - var->sqldata = emalloc(sizeof(long)); - break; - case SQL_FLOAT: - var->sqldata = emalloc(sizeof(float)); - break; - case SQL_DOUBLE: - var->sqldata = emalloc(sizeof(double)); - break; -#ifdef SQL_INT64 - case SQL_INT64: - var->sqldata = emalloc(sizeof(ISC_INT64)); - break; -#endif -#ifdef SQL_TIMESTAMP - case SQL_TIMESTAMP: - var->sqldata = emalloc(sizeof(ISC_TIMESTAMP)); - break; - case SQL_TYPE_DATE: - var->sqldata = emalloc(sizeof(ISC_DATE)); - break; - case SQL_TYPE_TIME: - var->sqldata = emalloc(sizeof(ISC_TIME)); - break; -#else - case SQL_DATE: -#endif - case SQL_BLOB: - case SQL_ARRAY: - var->sqldata = emalloc(sizeof(ISC_QUAD)); - break; - } /* switch */ - - if (var->sqltype & 1) { /* sql NULL flag */ - var->sqlind = emalloc(sizeof(short)); - } else { - var->sqlind = NULL; - } - } /* for */ -} -/* }}} */ - -/* {{{ _php_ibase_exec() */ -static int _php_ibase_exec(ibase_result **ib_resultp, ibase_query *ib_query, int argc, zval **args TSRMLS_DC) -{ -#define IB_RESULT (*ib_resultp) - XSQLDA *in_sqlda = NULL, *out_sqlda = NULL; - BIND_BUF *bind_buf = NULL; - int rv = FAILURE; - - IB_RESULT = NULL; - - if (argc > 0 && args != NULL) { - SEPARATE_ZVAL(args); - } - - /* allocate sqlda and output buffers */ - if (ib_query->out_sqlda) { /* output variables in select, select for update */ - IBDEBUG("Query wants XSQLDA for output"); - IB_RESULT = emalloc(sizeof(ibase_result)); - IB_RESULT->link = ib_query->link; - IB_RESULT->trans = ib_query->trans; - IB_RESULT->stmt = ib_query->stmt; - IB_RESULT->drop_stmt = 0; /* when free result close but not drop!*/ - - out_sqlda = IB_RESULT->out_sqlda = emalloc(XSQLDA_LENGTH(ib_query->out_sqlda->sqld)); - memcpy(out_sqlda, ib_query->out_sqlda, XSQLDA_LENGTH(ib_query->out_sqlda->sqld)); - _php_ibase_alloc_xsqlda(out_sqlda); - - if (ib_query->out_array) { - IB_RESULT->out_array = emalloc(sizeof(ibase_array) * ib_query->out_array_cnt); - memcpy(IB_RESULT->out_array, ib_query->out_array, sizeof(ibase_array) * ib_query->out_array_cnt); - } else { - IB_RESULT->out_array = NULL; - } - } - - if (ib_query->in_sqlda) { /* has placeholders */ - IBDEBUG("Query wants XSQLDA for input"); - if (ib_query->in_sqlda->sqld != argc) { - _php_ibase_module_error("Placeholders (%d) and variables (%d) mismatch", ib_query->in_sqlda->sqld, argc); - goto _php_ibase_exec_error; /* yes mommy, goto! */ - } - in_sqlda = emalloc(XSQLDA_LENGTH(ib_query->in_sqlda->sqld)); - memcpy(in_sqlda, ib_query->in_sqlda, XSQLDA_LENGTH(ib_query->in_sqlda->sqld)); - bind_buf = emalloc(sizeof(BIND_BUF) * ib_query->in_sqlda->sqld); - if (_php_ibase_bind(in_sqlda, args, bind_buf, ib_query TSRMLS_CC) == FAILURE) { - IBDEBUG("Could not bind input XSQLDA"); - goto _php_ibase_exec_error; - } - } - - if (isc_dsql_execute(IB_STATUS, &ib_query->trans, &ib_query->stmt, ib_query->dialect, in_sqlda)) { - IBDEBUG("Could not execute query"); - _php_ibase_error(TSRMLS_C); - goto _php_ibase_exec_error; - } - - rv = SUCCESS; - -_php_ibase_exec_error: /* I'm a bad boy... */ - - if (in_sqlda) { - efree(in_sqlda); - } - if (bind_buf) - efree(bind_buf); - - if (rv == FAILURE) { - if (IB_RESULT) { - efree(IB_RESULT); - IB_RESULT = NULL; - } - if (out_sqlda) { - _php_ibase_free_xsqlda(out_sqlda); - } - } - - return rv; -#undef IB_RESULT -} -/* }}} */ - -/* {{{ proto resource ibase_trans([int trans_args [, resource link_identifier [, ... ], int trans_args [, resource link_identifier [, ... ]] [, ...]]]) - Start a transaction over one or several databases */ - -#define TPB_MAX_SIZE (8*sizeof(char)) - -PHP_FUNCTION(ibase_trans) -{ - unsigned short i, argn, link_cnt = 0, tpb_len = 0; - char last_tpb[TPB_MAX_SIZE]; - ibase_db_link **ib_link = NULL; - ibase_trans *ib_trans; - isc_tr_handle tr_handle = NULL; - ISC_STATUS result; - - RESET_ERRMSG; - - argn = ZEND_NUM_ARGS(); - - /* (1+argn) is an upper bound for the number of links this trans connects to */ - ib_link = (ibase_db_link **) do_alloca(sizeof(ibase_db_link *) * (1+argn)); - - if (argn > 0) { - long trans_argl = 0; - char *tpb; - ISC_TEB *teb; - zval ***args = (zval ***) do_alloca(sizeof(zval **) * argn); - - if (zend_get_parameters_array_ex(argn, args) == FAILURE) { - free_alloca(args); - free_alloca(ib_link); - RETURN_FALSE; - } - - teb = (ISC_TEB *) do_alloca(sizeof(ISC_TEB) * argn); - tpb = (char *) do_alloca(TPB_MAX_SIZE * argn); - - /* enumerate all the arguments: assume every non-resource argument - specifies modifiers for the link ids that follow it */ - for (i = 0; i < argn; ++i) { - - if (Z_TYPE_PP(args[i]) == IS_RESOURCE) { - - ZEND_FETCH_RESOURCE2(ib_link[link_cnt], ibase_db_link *, args[i], -1, "InterBase link", le_link, le_plink); - - /* copy the most recent modifier string into tbp[] */ - memcpy(&tpb[TPB_MAX_SIZE * link_cnt], last_tpb, TPB_MAX_SIZE); - - /* add a database handle to the TEB with the most recently specified set of modifiers */ - teb[link_cnt].db_ptr = &ib_link[link_cnt]->link; - teb[link_cnt].tpb_len = tpb_len; - teb[link_cnt].tpb_ptr = &tpb[TPB_MAX_SIZE * link_cnt]; - - ++link_cnt; - - } else { - - tpb_len = 0; - - convert_to_long_ex(args[i]); - trans_argl = Z_LVAL_PP(args[i]); - - if (trans_argl) { - last_tpb[tpb_len++] = isc_tpb_version3; - - /* access mode */ - if (trans_argl & PHP_IBASE_READ) { /* READ ONLY TRANSACTION */ - last_tpb[tpb_len++] = isc_tpb_read; - } else { - last_tpb[tpb_len++] = isc_tpb_write; /* default access mode */ - } - - /* isolation level */ - if (trans_argl & PHP_IBASE_COMMITTED) { - last_tpb[tpb_len++] = isc_tpb_read_committed; - if (trans_argl & PHP_IBASE_REC_VERSION) { - last_tpb[tpb_len++] = isc_tpb_rec_version; - } else { - last_tpb[tpb_len++] = isc_tpb_no_rec_version; /* default in read_committed */ - } - } else if (trans_argl & PHP_IBASE_CONSISTENCY) { - last_tpb[tpb_len++] = isc_tpb_consistency; - } else { - last_tpb[tpb_len++] = isc_tpb_concurrency; /* default isolation level */ - } - - /* lock resolution */ - if (trans_argl & PHP_IBASE_NOWAIT) { - last_tpb[tpb_len++] = isc_tpb_nowait; - } else { - last_tpb[tpb_len++] = isc_tpb_wait; /* default lock resolution */ - } - } - } - } - - if (link_cnt > 0) { - result = isc_start_multiple(IB_STATUS, &tr_handle, link_cnt, teb); - } - - free_alloca(args); - free_alloca(tpb); - free_alloca(teb); - } - - if (link_cnt == 0) { - link_cnt = 1; - ZEND_FETCH_RESOURCE2(ib_link[0], ibase_db_link *, NULL, IBG(default_link), "InterBase link", le_link, le_plink); - result = isc_start_transaction(IB_STATUS, &tr_handle, 1, &ib_link[0]->link, tpb_len, last_tpb); - } - - /* start the transaction */ - if (result) { - _php_ibase_error(TSRMLS_C); - free_alloca(ib_link); - RETURN_FALSE; - } - - /* register the transaction in our own data structures */ - ib_trans = (ibase_trans *) emalloc(sizeof(ibase_trans) + (link_cnt-1)*sizeof(ibase_db_link *)); - ib_trans->handle = tr_handle; - ib_trans->link_cnt = link_cnt; - for (i = 0; i < link_cnt; ++i) { - ibase_tr_list **l; - ib_trans->link[i] = ib_link[i]; - - /* the first item in the connection-transaction list is reserved for the default transaction */ - if (ib_link[i]->trans == NULL) { - ib_link[i]->trans = (ibase_tr_list *) emalloc(sizeof(ibase_tr_list)); - ib_link[i]->trans->trans = NULL; - ib_link[i]->trans->next = NULL; - } - - /* link the transaction into the connection-transaction list */ - for (l = &ib_link[i]->trans; *l != NULL; l = &(*l)->next); - *l = (ibase_tr_list *) emalloc(sizeof(ibase_tr_list)); - (*l)->trans = ib_trans; - (*l)->next = NULL; - } - free_alloca(ib_link); - ZEND_REGISTER_RESOURCE(return_value, ib_trans, le_trans); -} -/* }}} */ - -/* {{{ _php_ibase_def_trans() */ -/* open default transaction */ -static int _php_ibase_def_trans(ibase_db_link *ib_link, ibase_trans **trans TSRMLS_DC) -{ - if (ib_link == NULL) { - php_error_docref(NULL TSRMLS_CC, E_WARNING, "Invalid database link"); - return FAILURE; - } - - /* the first item in the connection-transaction list is reserved for the default transaction */ - if (ib_link->trans == NULL) { - ib_link->trans = (ibase_tr_list *) emalloc(sizeof(ibase_tr_list)); - ib_link->trans->trans = NULL; - ib_link->trans->next = NULL; - } - - if (*trans == NULL) { - if (ib_link->trans->trans == NULL) { - ibase_trans *tr = (ibase_trans *) emalloc(sizeof(ibase_trans)); - tr->handle = NULL; - if (isc_start_transaction(IB_STATUS, &tr->handle, 1, &ib_link->link, 0, NULL)) { - _php_ibase_error(TSRMLS_C); - return FAILURE; - } - tr->link_cnt = 1; - tr->link[0] = ib_link->link; - ib_link->trans->trans = tr; - } - *trans = ib_link->trans->trans; - } - return SUCCESS; -} -/* }}} */ - -/* {{{ _php_ibase_trans_end() */ -#define RETAIN 2 -#define COMMIT 1 -#define ROLLBACK 0 - -static void _php_ibase_trans_end(INTERNAL_FUNCTION_PARAMETERS, int commit) -{ - ibase_trans *trans = NULL; - int res_id = 0; - ISC_STATUS result; - - RESET_ERRMSG; - - switch (ZEND_NUM_ARGS()) { - - ibase_db_link *ib_link; - zval **trans_arg; - - case 0: - ZEND_FETCH_RESOURCE2(ib_link, ibase_db_link *, NULL, IBG(default_link), "InterBase link", le_link, le_plink); - trans = ib_link->trans->trans; - break; - - case 1: - if (zend_get_parameters_ex(1, &trans_arg) == FAILURE) { - RETURN_FALSE; - } - ZEND_FETCH_RESOURCE(trans, ibase_trans *, trans_arg, -1, "InterBase transaction", le_trans); - - convert_to_long_ex(trans_arg); - res_id = Z_LVAL_PP(trans_arg); - - break; - - default: - WRONG_PARAM_COUNT; - break; - } - - switch (commit) { - - case ROLLBACK: - result = isc_rollback_transaction(IB_STATUS, &trans->handle); - break; - case COMMIT: - result = isc_commit_transaction(IB_STATUS, &trans->handle); - break; - case (ROLLBACK | RETAIN): - result = isc_rollback_retaining(IB_STATUS, &trans->handle); - break; - case (COMMIT | RETAIN): - result = isc_commit_retaining(IB_STATUS, &trans->handle); - break; - } - - if (result) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - - /* Don't try to destroy implicitly opened transaction from list... */ - if ( (commit & RETAIN) == 0 && res_id != 0) { - zend_list_delete(res_id); - } - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto bool ibase_commit( resource link_identifier ) - Commit transaction */ -PHP_FUNCTION(ibase_commit) -{ - _php_ibase_trans_end(INTERNAL_FUNCTION_PARAM_PASSTHRU, COMMIT); -} -/* }}} */ - -/* {{{ proto bool ibase_rollback( resource link_identifier ) - Rollback transaction */ -PHP_FUNCTION(ibase_rollback) -{ - _php_ibase_trans_end(INTERNAL_FUNCTION_PARAM_PASSTHRU, ROLLBACK); -} -/* }}} */ - -/* {{{ proto bool ibase_commit_ret( resource link_identifier ) - Commit transaction and retain the transaction context */ -PHP_FUNCTION(ibase_commit_ret) -{ - _php_ibase_trans_end(INTERNAL_FUNCTION_PARAM_PASSTHRU, COMMIT | RETAIN); -} -/* }}} */ - -/* {{{ proto bool ibase_rollback_ret( resource link_identifier ) - Rollback transaction and retain the transaction context */ -PHP_FUNCTION(ibase_rollback_ret) -{ - _php_ibase_trans_end(INTERNAL_FUNCTION_PARAM_PASSTHRU, ROLLBACK | RETAIN); -} -/* }}} */ - -/* {{{ proto resource ibase_query([resource link_identifier [, string query [, int bind_args]]]) - Execute a query */ -PHP_FUNCTION(ibase_query) -{ - zval ***args, **bind_args = NULL; - int i, bind_n = 0; - char *query; - ibase_db_link *ib_link = NULL; - ibase_trans *trans = NULL; - ibase_query *ib_query; - ibase_result *ib_result; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS() < 1) { - WRONG_PARAM_COUNT; - } - - /* use stack to avoid leaks */ - args = (zval ***) do_alloca(sizeof(zval **) * ZEND_NUM_ARGS()); - if (zend_get_parameters_array_ex(ZEND_NUM_ARGS(), args) == FAILURE) { - free_alloca(args); - RETURN_FALSE; - } - - i = 0; - while (Z_TYPE_PP(args[i++]) != IS_STRING) { - if (i >= ZEND_NUM_ARGS()) { - _php_ibase_module_error("Query argument missing"); - free_alloca(args); - RETURN_FALSE; - } - } - - convert_to_string_ex(args[i-1]); - query = Z_STRVAL_PP(args[i-1]); - - /* find out if the first one or two arguments refer to either a link id, - a trans id or both */ - switch (i) { - case 1: - - /* no link ids were passed: if there's no default link, use exec_immediate() with - a NULL handle; this will enable the use of CREATE DATABASE statements. */ - if (IBG(default_link) == -1) { - isc_db_handle db = NULL; - isc_tr_handle trans = NULL; - - if (isc_dsql_execute_immediate(IB_STATUS, &db, &trans, 0, query, SQL_DIALECT_CURRENT, NULL)) { - _php_ibase_error(TSRMLS_C); - free_alloca(args); - RETURN_FALSE; - } - - /* has a new database been created ? */ - if (db != NULL) { - - if ((IBG(max_links) != -1) && (IBG(num_links) >= IBG(max_links))) { - - /* too many links already ? => close it up immediately */ - if (isc_detach_database(IB_STATUS, &db)) { - _php_ibase_error(TSRMLS_C); - free_alloca(args); - RETURN_FALSE; - } - } else { - - /* register the link as a resource; unfortunately, we cannot register - it in the hash table, because we don't know the connection params */ - ib_link = (ibase_db_link *) emalloc(sizeof(ibase_db_link)); - ib_link->link = db; - ib_link->dialect = SQL_DIALECT_CURRENT; - ib_link->trans = NULL; - - ZEND_REGISTER_RESOURCE(return_value, ib_link, le_link); - zend_list_addref(Z_LVAL_P(return_value)); - IBG(default_link) = Z_LVAL_P(return_value); - IBG(num_links)++; - - free_alloca(args); - return; - } - } - RETURN_TRUE; - } - - ZEND_FETCH_RESOURCE2(ib_link, ibase_db_link *, NULL, IBG(default_link), "InterBase link", le_link, le_plink); - break; - case 2: - /* one id was passed, could be db or trans id */ - _php_ibase_get_link_trans(INTERNAL_FUNCTION_PARAM_PASSTHRU, args[0], &ib_link, &trans); - break; - case 3: - /* two ids were passed, first should be link and second should be trans; - */ - ZEND_FETCH_RESOURCE2(ib_link, ibase_db_link*, args[0], -1, "InterBase link", le_link, le_plink); - ZEND_FETCH_RESOURCE(trans, ibase_trans*, args[1], -1, "InterBase transaction", le_trans); - break; - default: - /* more than two arguments preceed the SQL string */ - _php_ibase_module_error("Invalid arguments"); - free_alloca(args); - RETURN_FALSE; - } - - if (ZEND_NUM_ARGS() > i) { /* have variables to bind */ - /* Using variables in a query without preparing it can be - useful, because it allows you to use (among other things) - SQL-queries as consts and the passing of string arguments - without the horror of [un]slashing them. */ - bind_n = ZEND_NUM_ARGS() - i; - bind_args = args[i]; - } - - /* open default transaction */ - if (_php_ibase_def_trans(ib_link, &trans TSRMLS_CC) == FAILURE) { - free_alloca(args); - RETURN_FALSE; - } - - if (_php_ibase_alloc_query(&ib_query, ib_link->link, trans->handle, query, ib_link->dialect TSRMLS_CC) == FAILURE) { - free_alloca(args); - RETURN_FALSE; - } - - if (_php_ibase_exec(&ib_result, ib_query, bind_n, bind_args TSRMLS_CC) == FAILURE) { - _php_ibase_free_query(ib_query TSRMLS_CC); - free_alloca(args); - RETURN_FALSE; - } - - free_alloca(args); - - if (ib_result) { /* select statement */ - ib_result->drop_stmt = 1; /* drop stmt when free result */ - ib_query->stmt = NULL; /* keep stmt when free query */ - _php_ibase_free_query(ib_query TSRMLS_CC); - ZEND_REGISTER_RESOURCE(return_value, ib_result, le_result); - } else { - _php_ibase_free_query(ib_query TSRMLS_CC); - RETURN_TRUE; - } -} -/* }}} */ - -/* {{{ _php_ibase_var_zval() */ -static int _php_ibase_var_zval(zval *val, void *data, int type, int len, int scale, int flag TSRMLS_DC) -{ - char string_data[255]; - - switch (type & ~1) { - case SQL_VARYING: - len = ((IBASE_VCHAR *) data)->var_len; - data = ((IBASE_VCHAR *) data)->var_str; - /* fallout */ - case SQL_TEXT: - Z_STRVAL_P(val) = (char *) emalloc(sizeof(char) * (len + 1)); - memcpy(Z_STRVAL_P(val), data, len); - Z_STRVAL_P(val)[len] = '\0'; - if (PG(magic_quotes_runtime)) { - Z_STRVAL_P(val) = php_addslashes(Z_STRVAL_P(val), len, &len, 1 TSRMLS_CC); - } - Z_TYPE_P(val) = IS_STRING; - Z_STRLEN_P(val) = len; - break; - case SQL_LONG: - case SQL_SHORT: - if (scale) { - short j; - long n, f = 1; - if ( (type & ~1) == SQL_SHORT) { - n = (long) *(short *) (data); - } else { - n = (long) *(long *) (data); - } - for (j = 0; j < -scale; j++) { - f *= 10; - } - if (n >= 0) { - Z_STRLEN_P(val) = sprintf(string_data, "%ld.%0*ld", n / f, -scale, n % f ); - } else if ((n/f) != 0) { - Z_STRLEN_P(val) = sprintf(string_data, "%ld.%0*ld", n / f, -scale, -(n % f) ); - } else { - Z_STRLEN_P(val) = sprintf(string_data, "%s.%0*ld","-0", -scale, -(n % f) ); - } - Z_TYPE_P(val) = IS_STRING; - Z_STRVAL_P(val) = estrdup(string_data); - } else { - Z_TYPE_P(val) = IS_LONG; - if ( (type & ~1) == SQL_SHORT) { - Z_LVAL_P(val) = *(short *) (data); - } else { - Z_LVAL_P(val) = *(long *) (data); - } - } - break; - case SQL_FLOAT: - Z_TYPE_P(val) = IS_DOUBLE; - Z_DVAL_P(val) = *(float *) (data); - break; - case SQL_DOUBLE: - if (scale) { - Z_TYPE_P(val) = IS_STRING; - Z_STRLEN_P(val) = sprintf(string_data, "%.*f", -scale, *(double *) data); - Z_STRVAL_P(val) = estrdup(string_data); - } else { - Z_TYPE_P(val) = IS_DOUBLE; - Z_DVAL_P(val) = *(double *) data; - } - break; -#ifdef SQL_INT64 - case SQL_INT64: - Z_TYPE_P(val) = IS_STRING; - if (scale < 0) { - short j = 0; - ISC_INT64 n, f = 1; - n = (ISC_INT64) *(ISC_INT64 *) data; - for (j = 0; j < -scale; j++) { - f *= 10; - } - if (n >= 0) { - Z_STRLEN_P(val) = sprintf(string_data, "%" ISC_INT64_FORMAT "d.%0*" ISC_INT64_FORMAT "d", - (ISC_INT64) n / f, -scale, (ISC_INT64) n % f ); - } else if ((n/f) != 0) { - Z_STRLEN_P(val) = sprintf(string_data, "%" ISC_INT64_FORMAT "d.%0*" ISC_INT64_FORMAT "d", - (ISC_INT64) n / f, -scale, (ISC_INT64) -(n % f) ); - } else { - Z_STRLEN_P(val) = sprintf(string_data, "%s.%0*" ISC_INT64_FORMAT "d", - "-0", -scale, (ISC_INT64) -(n % f) ); - } - } else { - Z_STRLEN_P(val) = sprintf(string_data, "%.0" ISC_INT64_FORMAT "d", - (ISC_INT64) *(ISC_INT64 *) data); - } - - Z_STRVAL_P(val) = estrdup(string_data); - break; -#endif -#ifndef SQL_TIMESTAMP - case SQL_DATE: -#else - case SQL_TIMESTAMP: - case SQL_TYPE_DATE: - case SQL_TYPE_TIME: -#endif - { - struct tm t; - char *format = NULL; - long timestamp = -1; - -#ifndef SQL_TIMESTAMP - isc_decode_date((ISC_QUAD *) data, &t); - format = IBG(timestampformat); -#else - switch (type & ~1) { - case SQL_TIMESTAMP: - isc_decode_timestamp((ISC_TIMESTAMP *) data, &t); - format = IBG(timestampformat); - break; - case SQL_TYPE_DATE: - isc_decode_sql_date((ISC_DATE *) data, &t); - format = IBG(dateformat); - break; - case SQL_TYPE_TIME: - isc_decode_sql_time((ISC_TIME *) data, &t); - format = IBG(timeformat); - break; - } -#endif - /* - XXX - Might have to remove this later - seems that isc_decode_date() - always sets tm_isdst to 0, sometimes incorrectly (InterBase 6 bug?) - */ - t.tm_isdst = -1; - timestamp = mktime(&t); -#if HAVE_TM_ZONE - t.tm_zone = tzname[0]; -#endif - if (flag & PHP_IBASE_UNIXTIME) { - Z_TYPE_P(val) = IS_LONG; - Z_LVAL_P(val) = timestamp; - } else { - Z_TYPE_P(val) = IS_STRING; -#if HAVE_STRFTIME - Z_STRLEN_P(val) = strftime(string_data, sizeof(string_data), format, &t); -#else - /* FIXME */ - if (!t.tm_hour && !t.tm_min && !t.tm_sec) { - Z_STRLEN_P(val) = sprintf(string_data, "%02d/%02d/%4d", t.tm_mon + 1, t.tm_mday, t.tm_year + 1900); - } else { - Z_STRLEN_P(val) = sprintf(string_data, "%02d/%02d/%4d %02d:%02d:%02d", t.tm_mon+1, t.tm_mday, t.tm_year + 1900, t.tm_hour, t.tm_min, t.tm_sec); - } -#endif - Z_STRVAL_P(val) = estrdup(string_data); - break; - } - } - default: - return FAILURE; - } /* switch (type) */ - return SUCCESS; -} -/* }}} */ - -/* {{{ _php_ibase_arr_zval() */ -/* create multidimension array - recursion function - * (*datap) argument changed - */ -static int _php_ibase_arr_zval(zval *ar_zval, char **datap, ibase_array *ib_array, int dim, int flag TSRMLS_DC) -{ - zval tmp; - int i, dim_len, l_bound, u_bound; - - if (dim > 16) { /* InterBase limit */ - _php_ibase_module_error("Too many dimensions"); - return FAILURE; - } - - u_bound = ib_array->ar_desc.array_desc_bounds[dim].array_bound_upper; - l_bound = ib_array->ar_desc.array_desc_bounds[dim].array_bound_lower; - dim_len = 1 + u_bound - l_bound; - - if (dim < ib_array->ar_desc.array_desc_dimensions - 1) { /* array again */ - for (i = 0; i < dim_len; i++) { - /* recursion here */ - if (_php_ibase_arr_zval(ar_zval, datap, ib_array, dim + 1, flag TSRMLS_CC) == FAILURE) { - return FAILURE; - } - } - } else { /* data at last */ - - array_init(ar_zval); - - for (i = 0; i < dim_len; i++) { - if (_php_ibase_var_zval(&tmp, *datap, - ib_array->el_type, - ib_array->ar_desc.array_desc_length, - ib_array->ar_desc.array_desc_scale, - flag TSRMLS_CC) == FAILURE) { - return FAILURE; - } - /* FIXME ??? */ - zend_hash_index_update(Z_ARRVAL_P(ar_zval), l_bound + i, (void *) &tmp, sizeof(zval), NULL); - *datap += ib_array->el_size; - } - } - return SUCCESS; -} -/* }}} */ - -/* {{{ _php_ibase_fetch_hash() */ - -#define FETCH_ROW 2 -#define FETCH_ARRAY 4 - -static void _php_ibase_fetch_hash(INTERNAL_FUNCTION_PARAMETERS, int fetch_type) -{ - zval **result_arg, **flag_arg; - long flag = 0; - int i, arr_cnt; - ibase_result *ib_result; - XSQLVAR *var; - - RESET_ERRMSG; - - switch (ZEND_NUM_ARGS()) { - case 1: - if (ZEND_NUM_ARGS() == 1 && zend_get_parameters_ex(1, &result_arg) == FAILURE) { - RETURN_FALSE; - } - break; - case 2: - if (ZEND_NUM_ARGS() == 2 && zend_get_parameters_ex(2, &result_arg, &flag_arg) == FAILURE) { - RETURN_FALSE; - } - convert_to_long_ex(flag_arg); - flag = Z_LVAL_PP(flag_arg); - break; - default: - WRONG_PARAM_COUNT; - break; - } - - ZEND_FETCH_RESOURCE(ib_result, ibase_result *, result_arg, -1, "InterBase result", le_result); - - if (ib_result->out_sqlda == NULL) { - _php_ibase_module_error("Trying to fetch results from a non-select query"); - RETURN_FALSE; - } - - if (isc_dsql_fetch(IB_STATUS, &ib_result->stmt, 1, ib_result->out_sqlda) == 100L) { - RETURN_FALSE; /* end of cursor */ - } - - if (IB_STATUS[0] && IB_STATUS[1]) { /* error in fetch */ - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - - array_init(return_value); - - arr_cnt = 0; - var = ib_result->out_sqlda->sqlvar; - for (i = 0; i < ib_result->out_sqlda->sqld; i++, var++) { - if (((var->sqltype & 1) == 0) || *var->sqlind != -1) { - zval *tmp; - tmp = emalloc(sizeof(zval)); - switch (var->sqltype & ~1) { - case SQL_VARYING: - case SQL_TEXT: - case SQL_SHORT: - case SQL_LONG: - case SQL_FLOAT: - case SQL_DOUBLE: -#ifdef SQL_INT64 - case SQL_INT64: -#endif -#ifndef SQL_TIMESTAMP - case SQL_DATE: -#else - case SQL_TIMESTAMP: - case SQL_TYPE_DATE: - case SQL_TYPE_TIME: -#endif - _php_ibase_var_zval(tmp, var->sqldata, var->sqltype, var->sqllen, var->sqlscale, flag TSRMLS_CC); - break; - case SQL_BLOB: - if (flag & PHP_IBASE_TEXT) { /* text ? */ - int stat; - isc_blob_handle bl_handle = NULL; - ISC_LONG max_len = 0, cur_len = 0; - char bl_items[1], *bl_data, bl_info[20], *p; - - if (isc_open_blob(IB_STATUS, &ib_result->link, &ib_result->trans, &bl_handle, (ISC_QUAD ISC_FAR *) var->sqldata)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - - bl_items[0] = isc_info_blob_total_length; - if (isc_blob_info(IB_STATUS, &bl_handle, sizeof(bl_items), bl_items, sizeof(bl_info), bl_info)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - - /* find total length of blob's data */ - for (p = bl_info; *p != isc_info_end && p < bl_info + sizeof(bl_info);) { - unsigned short item_len, item = *p++; - - item_len = (short) isc_vax_integer(p, 2); - p += 2; - if (item == isc_info_blob_total_length) { - max_len = isc_vax_integer(p, item_len); - } - p += item_len; - } - - bl_data = emalloc(max_len+1); - - for (cur_len = stat = 0; stat == 0 && cur_len < max_len;) { - unsigned short seg_len; - unsigned short max_seg = (unsigned short) (max_len - cur_len > USHRT_MAX ? USHRT_MAX : max_len-cur_len); - - stat = isc_get_segment(IB_STATUS, &bl_handle, &seg_len, max_seg, &bl_data[cur_len]); - cur_len += seg_len; - if (cur_len > max_len) { /* never! */ - efree(bl_data); - _php_ibase_module_error("PHP module internal error"); - RETURN_FALSE; - } - } - - if (IB_STATUS[0] && IB_STATUS[1] && (IB_STATUS[1] != isc_segstr_eof)) { - efree(bl_data); - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - bl_data[cur_len] = '\0'; - if (isc_close_blob(IB_STATUS, &bl_handle)) { - efree(bl_data); - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - Z_TYPE_P(tmp) = IS_STRING; - Z_STRLEN_P(tmp) = cur_len; - Z_STRVAL_P(tmp) = estrndup(bl_data, cur_len); - efree(bl_data); - - } else { /* blob id only */ - ISC_QUAD *bl_qd = (ISC_QUAD ISC_FAR *) var->sqldata; - ibase_blob_handle *ib_blob_id; - - ib_blob_id = (ibase_blob_handle *) emalloc(sizeof(ibase_blob_handle)); - - ib_blob_id->link = ib_result->link; - ib_blob_id->trans_handle = ib_result->trans; - ib_blob_id->bl_qd.gds_quad_high = bl_qd->gds_quad_high; - ib_blob_id->bl_qd.gds_quad_low = bl_qd->gds_quad_low; - ib_blob_id->bl_handle = NULL; - - Z_TYPE_P(tmp) = IS_STRING; - Z_STRLEN_P(tmp) = sizeof(ibase_blob_handle); - Z_STRVAL_P(tmp) = estrndup((char *) ib_blob_id, sizeof(ibase_blob_handle)); - efree(ib_blob_id); - } - break; - case SQL_ARRAY: { - ISC_QUAD ar_qd = *(ISC_QUAD ISC_FAR *) var->sqldata; - ibase_array *ib_array = &ib_result->out_array[arr_cnt]; - void *ar_data; - char *tmp_ptr; - - ar_data = emalloc(ib_array->ar_size); - - if (isc_array_get_slice(IB_STATUS, &ib_result->link, &ib_result->trans, &ar_qd, &ib_array->ar_desc, ar_data, &ib_array->ar_size)) { - _php_ibase_error(TSRMLS_C); - efree(ar_data); - RETURN_FALSE; - } - - tmp_ptr = ar_data; /* avoid changes in _arr_zval */ - if (_php_ibase_arr_zval(tmp, &tmp_ptr, ib_array, 0, flag TSRMLS_CC) == FAILURE) { - efree(ar_data); - RETURN_FALSE; - } - efree(ar_data); - } - break; - default: - break; - } /* switch */ - - if (fetch_type & FETCH_ROW) { - switch (Z_TYPE_P(tmp)) { - case IS_STRING: - add_index_stringl(return_value, i, Z_STRVAL_P(tmp), Z_STRLEN_P(tmp), 0); - break; - case IS_LONG: - add_index_long(return_value, i, Z_LVAL_P(tmp)); - break; - case IS_DOUBLE: - add_index_double(return_value, i, Z_DVAL_P(tmp)); - break; - } - } else { - switch (Z_TYPE_P(tmp)) { - case IS_STRING: - add_assoc_stringl(return_value, var->aliasname, Z_STRVAL_P(tmp), Z_STRLEN_P(tmp), 0); - break; - case IS_LONG: - add_assoc_long(return_value, var->aliasname, Z_LVAL_P(tmp)); - break; - case IS_DOUBLE: - add_assoc_double(return_value, var->aliasname, Z_DVAL_P(tmp)); - break; - } - } - efree(tmp); - } else { - if (fetch_type & FETCH_ROW) { - add_index_null(return_value, i); - } else { - add_assoc_null(return_value, var->aliasname); - } - } - if ((var->sqltype & ~1) == SQL_ARRAY) { - arr_cnt++; - } - } /* for field */ -} -/* }}} */ - -/* {{{ proto array ibase_fetch_row(resource result [, int blob_flag]) - Fetch a row from the results of a query */ -PHP_FUNCTION(ibase_fetch_row) -{ - _php_ibase_fetch_hash(INTERNAL_FUNCTION_PARAM_PASSTHRU, FETCH_ROW); -} -/* }}} */ - -/* {{{ proto array ibase_fetch_assoc(resource result [, int blob_flag]) - Fetch a row from the results of a query */ -PHP_FUNCTION(ibase_fetch_assoc) -{ - _php_ibase_fetch_hash(INTERNAL_FUNCTION_PARAM_PASSTHRU, FETCH_ARRAY); -} -/* }}} */ - -/* {{{ proto object ibase_fetch_object(resource result [, int blob_flag]) - Fetch a object from the results of a query */ -PHP_FUNCTION(ibase_fetch_object) -{ - _php_ibase_fetch_hash(INTERNAL_FUNCTION_PARAM_PASSTHRU, FETCH_ARRAY); - - 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 bool ibase_name_result(resource result, string name) - Assign a name to a result for use with ... WHERE CURRENT OF <name> statements */ -PHP_FUNCTION(ibase_name_result) -{ - zval **result_arg, **name_arg; - ibase_result *ib_result; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &result_arg, &name_arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - - ZEND_FETCH_RESOURCE(ib_result, ibase_result *, result_arg, -1, "InterBase result", le_result); - convert_to_string_ex(name_arg); - - if (isc_dsql_set_cursor_name(IB_STATUS, &ib_result->stmt, Z_STRVAL_PP(name_arg), 0)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - RETURN_TRUE; -} -/* }}} */ - - -/* {{{ proto bool ibase_free_result(resource result) - Free the memory used by a result */ -PHP_FUNCTION(ibase_free_result) -{ - zval **result_arg; - ibase_result *ib_result; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &result_arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - - ZEND_FETCH_RESOURCE(ib_result, ibase_result *, result_arg, -1, "InterBase result", le_result); - zend_list_delete(Z_LVAL_PP(result_arg)); - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto resource ibase_prepare([resource link_identifier, ] string query) - Prepare a query for later execution */ -PHP_FUNCTION(ibase_prepare) -{ - zval **link_arg, **trans_arg, **query_arg; - ibase_db_link *ib_link; - ibase_trans *trans = NULL; - ibase_query *ib_query; - char *query; - - RESET_ERRMSG; - - switch (ZEND_NUM_ARGS()) { - case 1: - if (zend_get_parameters_ex(1, &query_arg) == FAILURE) { - RETURN_FALSE; - } - ZEND_FETCH_RESOURCE2(ib_link, ibase_db_link *, NULL, IBG(default_link), "InterBase link", le_link, le_plink); - break; - case 2: - if (zend_get_parameters_ex(2, &link_arg, &query_arg) == FAILURE) { - RETURN_FALSE; - } - _php_ibase_get_link_trans(INTERNAL_FUNCTION_PARAM_PASSTHRU, link_arg, &ib_link, &trans); - break; - case 3: - if (zend_get_parameters_ex(3, &link_arg, &trans_arg, &query_arg) == FAILURE) { - RETURN_FALSE; - } - ZEND_FETCH_RESOURCE2(ib_link, ibase_db_link*, link_arg, -1, "InterBase link", le_link, le_plink); - ZEND_FETCH_RESOURCE(trans, ibase_trans*, trans_arg, -1, "InterBase transaction", le_trans); - break; - default: - WRONG_PARAM_COUNT; - break; - } - - convert_to_string_ex(query_arg); - query = Z_STRVAL_PP(query_arg); - - /* open default transaction */ - if (_php_ibase_def_trans(ib_link, &trans TSRMLS_CC) == FAILURE) { - RETURN_FALSE; - } - - if (_php_ibase_alloc_query(&ib_query, ib_link->link, trans->handle, query, ib_link->dialect TSRMLS_CC) == FAILURE) { - RETURN_FALSE; - } - ib_query->cursor_open = 0; - - /* zend_list_addref(link_id); */ - - ZEND_REGISTER_RESOURCE(return_value, ib_query, le_query); -} -/* }}} */ - -/* {{{ proto resource ibase_execute(resource query [, int bind_args [, int ...]]) - Execute a previously prepared query */ -PHP_FUNCTION(ibase_execute) -{ - zval ***args, **bind_args = NULL; - ibase_query *ib_query; - ibase_result *ib_result; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS() < 1) { - WRONG_PARAM_COUNT; - } - - /* use stack to avoid leaks */ - args = (zval ***) do_alloca(ZEND_NUM_ARGS() * sizeof(zval **)); - if (zend_get_parameters_array_ex(ZEND_NUM_ARGS(), args) == FAILURE) { - free_alloca(args); - RETURN_FALSE; - } - - ZEND_FETCH_RESOURCE(ib_query, ibase_query *, args[0], -1, "InterBase query", le_query); - - if (ZEND_NUM_ARGS() > 1) { /* have variables to bind */ - bind_args = args[1]; - } - - /* Have we used this cursor before and it's still open? */ - if (ib_query->cursor_open) { - IBDEBUG("Implicitly closing a cursor"); - if (isc_dsql_free_statement(IB_STATUS, &ib_query->stmt, DSQL_close)) { - _php_ibase_error(TSRMLS_C); - } - } - - if (_php_ibase_exec(&ib_result, ib_query, ZEND_NUM_ARGS() - 1, bind_args TSRMLS_CC) == FAILURE) { - free_alloca(args); - RETURN_FALSE; - } - - free_alloca(args); - - if (ib_result) { /* select statement */ - ib_query->cursor_open = 1; - ZEND_REGISTER_RESOURCE(return_value, ib_result, le_result); - } else { - ib_query->cursor_open = 0; - RETURN_TRUE; - } -} -/* }}} */ - -/* {{{ proto bool ibase_free_query(resource query) - Free memory used by a query */ -PHP_FUNCTION(ibase_free_query) -{ - zval **query_arg; - ibase_query *ib_query; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS()!=1 || zend_get_parameters_ex(1, &query_arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - - ZEND_FETCH_RESOURCE(ib_query, ibase_query *, query_arg, -1, "InterBase query", le_query); - zend_list_delete(Z_LVAL_PP(query_arg)); - RETURN_TRUE; -} -/* }}} */ - -#if HAVE_STRFTIME -/* {{{ proto int ibase_timefmt(string format) - Sets the format of timestamp, date and time columns returned from queries */ -PHP_FUNCTION(ibase_timefmt) -{ - zval ***args; - char *fmt = NULL; - int type = PHP_IBASE_TIMESTAMP; - - RESET_ERRMSG; /* ??? */ - - if (ZEND_NUM_ARGS() < 1 || ZEND_NUM_ARGS() > 2) { - WRONG_PARAM_COUNT; - } - - args = (zval ***) emalloc(sizeof(zval **) * ZEND_NUM_ARGS()); - if (zend_get_parameters_array_ex(ZEND_NUM_ARGS(), args) == FAILURE) { - efree(args); - RETURN_FALSE; - } - - switch (ZEND_NUM_ARGS()) { - case 2: - convert_to_long_ex(args[1]); - type = Z_LVAL_PP(args[1]); - case 1: - convert_to_string_ex(args[0]); - fmt = Z_STRVAL_PP(args[0]); - } - - switch (type) { - case PHP_IBASE_TIMESTAMP: - if (IBG(timestampformat)) { - DL_FREE(IBG(timestampformat)); - } - IBG(timestampformat) = DL_STRDUP(fmt); - break; - case PHP_IBASE_DATE: - if (IBG(dateformat)) { - DL_FREE(IBG(dateformat)); - } - IBG(dateformat) = DL_STRDUP(fmt); - break; - case PHP_IBASE_TIME: - if (IBG(timeformat)) { - DL_FREE(IBG(timeformat)); - } - IBG(timeformat) = DL_STRDUP(fmt); - break; - } - - efree(args); - RETURN_TRUE; -} -/* }}} */ -#endif - -/* {{{ proto int ibase_num_fields(resource result) - Get the number of fields in result */ -PHP_FUNCTION(ibase_num_fields) -{ - zval **result; - ibase_result *ib_result; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS()!=1 || zend_get_parameters_ex(1, &result)==FAILURE) { - WRONG_PARAM_COUNT; - } - - ZEND_FETCH_RESOURCE(ib_result, ibase_result *, result, -1, "InterBase result", le_result); - - if (ib_result->out_sqlda == NULL) { - _php_ibase_module_error("Trying to get the number of fields from a non-select query"); - RETURN_FALSE; - } - - RETURN_LONG(ib_result->out_sqlda->sqld); -} -/* }}} */ - -/* {{{ proto array ibase_field_info(resource result, int field_number) - Get information about a field */ -PHP_FUNCTION(ibase_field_info) -{ - zval *ret_val; - zval **result_arg, **field_arg; - ibase_result *ib_result; - char buf[30], *s; - int len; - XSQLVAR *var; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS()!=2 || zend_get_parameters_ex(2, &result_arg, &field_arg)==FAILURE) { - WRONG_PARAM_COUNT; - } - - ZEND_FETCH_RESOURCE(ib_result, ibase_result *, result_arg, -1, "InterBase result", le_result); - - if (ib_result->out_sqlda == NULL) { - _php_ibase_module_error("Trying to get field info from a non-select query"); - RETURN_FALSE; - } - - convert_to_long_ex(field_arg); - - if (Z_LVAL_PP(field_arg) < 0 || Z_LVAL_PP(field_arg) >= ib_result->out_sqlda->sqld) { - RETURN_FALSE; - } - - array_init(return_value); - - var = ib_result->out_sqlda->sqlvar + Z_LVAL_PP(field_arg); - - add_get_index_stringl(return_value, 0, var->sqlname, var->sqlname_length, (void **) &ret_val, 1); - add_assoc_stringl(return_value, "name", var->sqlname, var->sqlname_length, 1); - - add_get_index_stringl(return_value, 1, var->aliasname, var->aliasname_length, (void **) &ret_val, 1); - add_assoc_stringl(return_value, "alias", var->aliasname, var->aliasname_length, 1); - - add_get_index_stringl(return_value, 2, var->relname, var->relname_length, (void **) &ret_val, 1); - add_assoc_stringl(return_value, "relation", var->relname, var->relname_length, 1); - - len = sprintf(buf, "%d", var->sqllen); - add_get_index_stringl(return_value, 3, buf, len, (void **) &ret_val, 1); - add_assoc_stringl(return_value, "length", buf, len, 1); - - switch (var->sqltype & ~1) { - case SQL_TEXT: s = "TEXT"; break; - case SQL_VARYING: s = "VARYING"; break; - case SQL_SHORT: s = "SHORT"; break; - case SQL_LONG: s = "LONG"; break; - case SQL_FLOAT: s = "FLOAT"; break; - case SQL_DOUBLE: s = "DOUBLE"; break; - case SQL_D_FLOAT: s = "D_FLOAT"; break; -#ifdef SQL_INT64 - case SQL_INT64: s = "INT64"; break; -#endif -#ifdef SQL_TIMESTAMP - case SQL_TIMESTAMP: s = "TIMESTAMP"; break; - case SQL_TYPE_DATE: s = "DATE"; break; - case SQL_TYPE_TIME: s = "TIME"; break; -#else - case SQL_DATE: s = "DATE"; break; -#endif - case SQL_BLOB: s = "BLOB"; break; - case SQL_ARRAY: s = "ARRAY"; break; - case SQL_QUAD: s = "QUAD"; break; - default: - sprintf(buf, "unknown (%d)", var->sqltype & ~1); - s = buf; - break; - } - add_get_index_stringl(return_value, 4, s, strlen(s), (void **) &ret_val, 1); - add_assoc_stringl(return_value, "type", s, strlen(s), 1); -} -/* }}} */ - -/* blobs ----------------------------------- */ - -/* {{{ _php_ibase_blob_info(isc_blob_handle bl_handle, IBASE_BLOBINFO *bl_info) */ -static int _php_ibase_blob_info(isc_blob_handle bl_handle, IBASE_BLOBINFO *bl_info TSRMLS_DC) -{ - static char bl_items[] = { - isc_info_blob_num_segments, - isc_info_blob_max_segment, - isc_info_blob_total_length, - isc_info_blob_type - }; - - char bl_inf[sizeof(long)*8], *p; - - bl_info->max_segment = 0; - bl_info->num_segments = 0; - bl_info->total_length = 0; - bl_info->bl_stream = 0; - - if (isc_blob_info(IB_STATUS, &bl_handle, sizeof(bl_items), bl_items, sizeof(bl_inf), bl_inf)) { - _php_ibase_error(TSRMLS_C); - return FAILURE; - } - - for (p = bl_inf; *p != isc_info_end && p < bl_inf + sizeof(bl_inf);) { - unsigned short item_len; - int item = *p++; - - item_len = (short) isc_vax_integer(p, 2); - p += 2; - switch (item) { - case isc_info_blob_num_segments: - bl_info->num_segments = isc_vax_integer(p, item_len); - break; - case isc_info_blob_max_segment: - bl_info->max_segment = isc_vax_integer(p, item_len); - break; - case isc_info_blob_total_length: - bl_info->total_length = isc_vax_integer(p, item_len); - break; - case isc_info_blob_type: - bl_info->bl_stream = isc_vax_integer(p, item_len); - break; - case isc_info_end: - break; - case isc_info_truncated: - case isc_info_error: /* hmm. don't think so...*/ - _php_ibase_module_error("PHP module internal error"); - return FAILURE; - } /* switch */ - p += item_len; - } /* for */ - return SUCCESS; -} -/* }}} */ - -/* {{{ proto int ibase_blob_create([resource link_identifier]) - Create blob for adding data */ -PHP_FUNCTION(ibase_blob_create) -{ - zval **link_arg; - ibase_db_link *ib_link; - ibase_trans *trans = NULL; - ibase_blob_handle *ib_blob; - - RESET_ERRMSG; - - switch (ZEND_NUM_ARGS()) { - case 0: - ZEND_FETCH_RESOURCE2(ib_link, ibase_db_link *, NULL, IBG(default_link), "InterBase link", le_link, le_plink); - break; - case 1: - if (zend_get_parameters_ex(1, &link_arg) == FAILURE) { - RETURN_FALSE; - } - _php_ibase_get_link_trans(INTERNAL_FUNCTION_PARAM_PASSTHRU, link_arg, &ib_link, &trans); - break; - default: - WRONG_PARAM_COUNT; - break; - } - - /* open default transaction */ - if (_php_ibase_def_trans(ib_link, &trans TSRMLS_CC) == FAILURE) { - RETURN_FALSE; - } - - ib_blob = (ibase_blob_handle *) emalloc(sizeof(ibase_blob_handle)); - ib_blob->trans_handle = trans->handle; - ib_blob->link = ib_link->link; - ib_blob->bl_handle = NULL; - - if (isc_create_blob(IB_STATUS, &ib_blob->link, &ib_blob->trans_handle, &ib_blob->bl_handle, &ib_blob->bl_qd)) { - efree(ib_blob); - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - - RETURN_LONG(zend_list_insert(ib_blob, le_blob)); -} -/* }}} */ - -/* {{{ proto int ibase_blob_open(string blob_id) - Open blob for retriving data parts */ -PHP_FUNCTION(ibase_blob_open) -{ - zval **blob_arg; - ibase_blob_handle *ib_blob, *ib_blob_id; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &blob_arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - - ib_blob = (ibase_blob_handle *) emalloc(sizeof(ibase_blob_handle)); - - GET_BLOB_ID_ARG(*blob_arg, ib_blob_id); - - if (ib_blob_id == NULL) { /* blob IS NULL or argument unset */ - RETURN_FALSE; - } - - ib_blob->link = ib_blob_id->link; - ib_blob->trans_handle = ib_blob_id->trans_handle; - ib_blob->bl_qd.gds_quad_high = ib_blob_id->bl_qd.gds_quad_high; - ib_blob->bl_qd.gds_quad_low = ib_blob_id->bl_qd.gds_quad_low; - ib_blob->bl_handle = NULL; - if (isc_open_blob(IB_STATUS, &ib_blob->link, &ib_blob->trans_handle, &ib_blob->bl_handle, &ib_blob->bl_qd)) { - efree(ib_blob); - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - - RETURN_LONG(zend_list_insert(ib_blob, le_blob)); -} -/* }}} */ - -/* {{{ proto bool ibase_blob_add(int blob_id, string data) - Add data into created blob */ -PHP_FUNCTION(ibase_blob_add) -{ - zval **blob_arg, **string_arg; - ibase_blob_handle *ib_blob; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &blob_arg, &string_arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - - GET_BLOB_HANDLE_ARG(blob_arg, ib_blob); - - convert_to_string_ex(string_arg); - - if (isc_put_segment(IB_STATUS, &ib_blob->bl_handle, (unsigned short) Z_STRLEN_PP(string_arg), Z_STRVAL_PP(string_arg))) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto string ibase_blob_get(int blob_id, int len) - Get len bytes data from open blob */ -PHP_FUNCTION(ibase_blob_get) -{ - zval **blob_arg, **len_arg; - int stat; - char *bl_data; - unsigned short max_len = 0, cur_len, seg_len; - ibase_blob_handle *ib_blob; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &blob_arg, &len_arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - - convert_to_long_ex(len_arg); - max_len = (unsigned short) Z_LVAL_PP(len_arg); - - GET_BLOB_HANDLE_ARG(blob_arg, ib_blob); - - if (ib_blob->bl_qd.gds_quad_high || ib_blob->bl_qd.gds_quad_low) { /*not null ?*/ - - bl_data = emalloc(max_len + 1); - - for (cur_len = stat = 0; stat == 0;) { - stat = isc_get_segment(IB_STATUS, &ib_blob->bl_handle, &seg_len, (unsigned short) (max_len-cur_len), &bl_data[cur_len]); - cur_len += seg_len; - if (cur_len > max_len) { /* never!*/ - efree(bl_data); - _php_ibase_module_error("PHP module internal error"); - RETURN_FALSE; - } - } - - bl_data[cur_len] = '\0'; - if (IB_STATUS[0] && (IB_STATUS[1] != isc_segstr_eof && IB_STATUS[1] != isc_segment)) { - efree(bl_data); - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - RETURN_STRINGL(bl_data, cur_len, 0); - } else { /* null blob */ - RETURN_STRING("", 1); /* empty string */ - } -} -/* }}} */ - -#define BLOB_CLOSE 1 -#define BLOB_CANCEL 2 - -/* {{{ _php_ibase_blob_end() */ -/* Close or Cancel created or Close open blob */ -static void _php_ibase_blob_end(INTERNAL_FUNCTION_PARAMETERS, int bl_end) -{ - zval **blob_arg; - ibase_blob_handle *ib_blob; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &blob_arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - - GET_BLOB_HANDLE_ARG(blob_arg, ib_blob); - - if (bl_end == BLOB_CLOSE) { /* return id here */ - if (ib_blob->bl_qd.gds_quad_high || ib_blob->bl_qd.gds_quad_low) { /*not null ?*/ - if (isc_close_blob(IB_STATUS, &ib_blob->bl_handle)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - } - ib_blob->bl_handle = NULL; - RETVAL_STRINGL((char *) ib_blob, sizeof(ibase_blob_handle), 1); - zend_list_delete(Z_LVAL_PP(blob_arg)); - } else { /* discard created blob */ - if (isc_cancel_blob(IB_STATUS, &ib_blob->bl_handle)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - ib_blob->bl_handle = NULL; - zend_list_delete(Z_LVAL_PP(blob_arg)); - RETURN_TRUE; - } -} -/* }}} */ - -/* {{{ proto bool ibase_blob_close(int blob_id) - Close blob */ -PHP_FUNCTION(ibase_blob_close) -{ - _php_ibase_blob_end(INTERNAL_FUNCTION_PARAM_PASSTHRU, BLOB_CLOSE); -} -/* }}} */ - -/* {{{ proto bool ibase_blob_cancel(int blob_id) - Cancel creating blob */ -PHP_FUNCTION(ibase_blob_cancel) -{ - _php_ibase_blob_end(INTERNAL_FUNCTION_PARAM_PASSTHRU, BLOB_CANCEL); -} -/* }}} */ - -/* {{{ proto object ibase_blob_info(string blob_id_str) - Return blob length and other useful info */ -PHP_FUNCTION(ibase_blob_info) -{ - zval **blob_arg, **result_var; - ibase_blob_handle *ib_blob_id; - IBASE_BLOBINFO bl_info; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS() !=1 || zend_get_parameters_ex(1, &blob_arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - - GET_BLOB_ID_ARG(*blob_arg, ib_blob_id); - - array_init(return_value); - - if (ib_blob_id->bl_qd.gds_quad_high || ib_blob_id->bl_qd.gds_quad_low) { /* not null ? */ - if (isc_open_blob(IB_STATUS, &ib_blob_id->link, &ib_blob_id->trans_handle, &ib_blob_id->bl_handle, &ib_blob_id->bl_qd)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - - if (_php_ibase_blob_info(ib_blob_id->bl_handle, &bl_info TSRMLS_CC)) { - RETURN_FALSE; - } - if (isc_close_blob(IB_STATUS, &ib_blob_id->bl_handle)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - ib_blob_id->bl_handle = NULL; - } else { /* null blob, all values to zero */ - bl_info.max_segment = 0; - bl_info.num_segments = 0; - bl_info.total_length = 0; - bl_info.bl_stream = 0; - } - - /* FIXME */ - add_get_index_long(return_value, 0, bl_info.total_length, (void **) &result_var); - /* - zend_hash_pointer_update(Z_ARRVAL_P(return_value), "length", sizeof("length"), result_var); - */ - - add_get_index_long(return_value, 1, bl_info.num_segments, (void **) &result_var); - /* - zend_hash_pointer_update(Z_ARRVAL_P(return_value), "numseg", sizeof("numseg"), result_var); - */ - - add_get_index_long(return_value, 2, bl_info.max_segment, (void **) &result_var); - /* - zend_hash_pointer_update(Z_ARRVAL_P(return_value), "maxseg", sizeof("maxseg"), result_var); - */ - - add_get_index_long(return_value, 3, bl_info.bl_stream, (void **) &result_var); - /* - zend_hash_pointer_update(Z_ARRVAL_P(return_value), "stream", sizeof("stream"), result_var); - */ - - add_get_index_long(return_value, 4, (!ib_blob_id->bl_qd.gds_quad_high && !ib_blob_id->bl_qd.gds_quad_low), (void **) &result_var); - /* - zend_hash_pointer_update(Z_ARRVAL_P(return_value), "isnull", sizeof("isnull"), result_var); - */ -} -/* }}} */ - -/* {{{ proto bool ibase_blob_echo(string blob_id_str) - Output blob contents to browser */ -PHP_FUNCTION(ibase_blob_echo) -{ - zval **blob_arg; - char bl_data[IBASE_BLOB_SEG]; - unsigned short seg_len; - ibase_blob_handle *ib_blob_id; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &blob_arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - - GET_BLOB_ID_ARG(*blob_arg, ib_blob_id); - - if (ib_blob_id) { /* not null? */ - - if (isc_open_blob(IB_STATUS, &ib_blob_id->link, &ib_blob_id->trans_handle, &ib_blob_id->bl_handle, &ib_blob_id->bl_qd)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - - while (!isc_get_segment(IB_STATUS, &ib_blob_id->bl_handle, &seg_len, sizeof(bl_data), bl_data) || IB_STATUS[1] == isc_segment) { - PHPWRITE(bl_data, seg_len); - } - - if (IB_STATUS[0] && (IB_STATUS[1] != isc_segstr_eof)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - - if (isc_close_blob(IB_STATUS, &ib_blob_id->bl_handle)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - ib_blob_id->bl_handle = NULL; - } /* not null ? */ - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto string ibase_blob_import([resource link_identifier, ] int file_id) - Create blob, copy file in it, and close it */ -PHP_FUNCTION(ibase_blob_import) -{ - zval **link_arg, **file_arg; - int link_id = 0, size; - unsigned short b; - ibase_blob_handle ib_blob; - ibase_db_link *ib_link; - ibase_trans *trans; - char bl_data[IBASE_BLOB_SEG]; /* FIXME? blob_seg_size parameter? */ - php_stream *stream; - - RESET_ERRMSG; - - switch (ZEND_NUM_ARGS()) { - case 1: - if (zend_get_parameters_ex(1, &file_arg) == FAILURE) { - RETURN_FALSE; - } - link_id = IBG(default_link); - ZEND_FETCH_RESOURCE2(ib_link, ibase_db_link *, NULL, link_id, "InterBase link", le_link, le_plink); - break; - case 2: - if (zend_get_parameters_ex(2, &link_arg, &file_arg) == FAILURE) { - RETURN_FALSE; - } - _php_ibase_get_link_trans(INTERNAL_FUNCTION_PARAM_PASSTHRU, link_arg, &ib_link, &trans); - break; - default: - WRONG_PARAM_COUNT; - break; - } - - /* open default transaction */ - if (_php_ibase_def_trans(ib_link, &trans TSRMLS_CC) == FAILURE) { - RETURN_FALSE; - } - - php_stream_from_zval(stream, file_arg); - - ib_blob.link = ib_link->link; - ib_blob.trans_handle = trans->handle; - ib_blob.bl_handle = NULL; - ib_blob.bl_qd.gds_quad_high = 0; - ib_blob.bl_qd.gds_quad_low = 0; - - if (isc_create_blob(IB_STATUS, &ib_blob.link, &ib_blob.trans_handle, &ib_blob.bl_handle, &ib_blob.bl_qd)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - - size = 0; - - while ((b = php_stream_read(stream, bl_data, sizeof(bl_data))) > 0) { - if (isc_put_segment(IB_STATUS, &ib_blob.bl_handle, b, bl_data)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - size += b; - } - - if (isc_close_blob(IB_STATUS, &ib_blob.bl_handle)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } - - ib_blob.bl_handle = NULL; - RETVAL_STRINGL((char *) &ib_blob, sizeof(ibase_blob_handle), 1); -} -/* }}} */ - -#ifdef SQL_DIALECT_V6 -/* {{{ _php_ibase_user() */ -static void _php_ibase_user(INTERNAL_FUNCTION_PARAMETERS, int operation) -{ - zval **args[8]; - char *ib_server, *dba_user_name, *dba_password, *user_name, *user_password = NULL; - char *first_name = NULL, *middle_name = NULL, *last_name = NULL; - char service_name_buffer[128], *service_name = service_name_buffer; - char spb_buffer[128], *spb = spb_buffer; - unsigned short spb_length; - isc_svc_handle service_handle = NULL; - - RESET_ERRMSG; - - switch (operation) { - case isc_action_svc_add_user: - case isc_action_svc_modify_user: - /* 5 to 8 parameters for ADD or MODIFY operation */ - if (ZEND_NUM_ARGS() < 5 || ZEND_NUM_ARGS() > 8) { - WRONG_PARAM_COUNT; - } - break; - - case isc_action_svc_delete_user: - /* 4 parameters for DELETE operation */ - if (ZEND_NUM_ARGS() != 4) { - WRONG_PARAM_COUNT; - } - } - - if (zend_get_parameters_array_ex(ZEND_NUM_ARGS(), args) == FAILURE) { - RETURN_FALSE; - } - - switch (ZEND_NUM_ARGS()) { - case 8: - convert_to_string_ex(args[7]); - last_name = Z_STRVAL_PP(args[7]); - /* fallout */ - case 7: - convert_to_string_ex(args[6]); - middle_name = Z_STRVAL_PP(args[6]); - /* fallout */ - case 6: - convert_to_string_ex(args[5]); - first_name = Z_STRVAL_PP(args[5]); - /* fallout */ - } - - if (operation != isc_action_svc_delete_user) { - /* Parameter not available for DELETE operation */ - convert_to_string_ex(args[4]); - user_password = Z_STRVAL_PP(args[4]); - } - - convert_to_string_ex(args[3]); - user_name = Z_STRVAL_PP(args[3]); - - convert_to_string_ex(args[2]); - dba_password = Z_STRVAL_PP(args[2]); - - convert_to_string_ex(args[1]); - dba_user_name = Z_STRVAL_PP(args[1]); - - convert_to_string_ex(args[0]); - ib_server = Z_STRVAL_PP(args[0]); - -/* - zend_printf("server : %s<br>", ib_server); - zend_printf("admin : %s<br>", dba_user_name); - zend_printf("admin pwd: %s<br>", dba_password); - zend_printf("user : %s<br>", user_name); - zend_printf("user pwd : %s<br>", user_password); - zend_printf("fname : %s<br>", first_name); - zend_printf("mname : %s<br>", middle_name); - zend_printf("lname : %s<br>", last_name); -*/ - - /* Build buffer for isc_service_attach() */ - *spb++ = isc_spb_version; - *spb++ = isc_spb_current_version; - *spb++ = isc_spb_user_name; - *spb++ = strlen(dba_user_name); - strcpy(spb, dba_user_name); - spb += strlen(dba_user_name); - *spb++ = isc_spb_password; - *spb++ = strlen(dba_password); - strcpy(spb, dba_password); - spb += strlen(dba_password); - spb_length = spb - spb_buffer; - - /* Attach to the Service Manager */ - sprintf(service_name, "%s:service_mgr", ib_server); - if (isc_service_attach(IB_STATUS, 0, service_name, &service_handle, spb_length, spb_buffer)) { - _php_ibase_error(TSRMLS_C); - RETURN_FALSE; - } else { - char request[128], *x, *p = request; - - /* Identify cluster (here, isc_action_svc_*_user) */ - *p++ = operation; - - /* Argument for username */ - *p++ = isc_spb_sec_username; - ADD_SPB_LENGTH(p, strlen(user_name)); - for (x = user_name ; *x;) *p++ = *x++; - - /* Argument for password */ - if (user_password) { - *p++ = isc_spb_sec_password; - ADD_SPB_LENGTH(p, strlen(user_password)); - for (x = user_password ; *x;) *p++ = *x++; - } - - /* Argument for first name */ - if (first_name) { - *p++ = isc_spb_sec_firstname; - ADD_SPB_LENGTH(p, strlen(first_name)); - for (x = first_name ; *x;) *p++ = *x++; - } - - /* Argument for middle name */ - if (middle_name) { - *p++ = isc_spb_sec_middlename; - ADD_SPB_LENGTH(p, strlen(middle_name)); - for (x = middle_name ; *x;) *p++ = *x++; - } - - /* Argument for last name */ - if (last_name) { - *p++ = isc_spb_sec_lastname; - ADD_SPB_LENGTH(p, strlen(last_name)); - for (x = last_name ; *x;) *p++ = *x++; - } - - /* Let's go update: start Service Manager */ - if (isc_service_start(IB_STATUS, &service_handle, NULL, (unsigned short) (p - request), request)) { - _php_ibase_error(TSRMLS_C); - isc_service_detach(IB_STATUS, &service_handle); - RETURN_FALSE; - } else { - /* Detach from Service Manager */ - isc_service_detach(IB_STATUS, &service_handle); - } - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto bool ibase_add_user(string server, string dba_user_name, string dba_password, string user_name, string password [, string first_name [, string middle_name [, string last_name]]]) - Add an user to security database (only for IB6 or later) */ -PHP_FUNCTION(ibase_add_user) -{ - _php_ibase_user(INTERNAL_FUNCTION_PARAM_PASSTHRU, isc_action_svc_add_user); -} -/* }}} */ - -/* {{{ proto bool ibase_modify_user(string server, string dba_user_name, string dba_password, string user_name, string password [, string first_name [, string middle_name [, string last_name]]]) - Modify an user in security database (only for IB6 or later) */ -PHP_FUNCTION(ibase_modify_user) -{ - _php_ibase_user(INTERNAL_FUNCTION_PARAM_PASSTHRU, isc_action_svc_modify_user); -} -/* }}} */ - -/* {{{ proto bool ibase_delete_user(string server, string dba_user_name, string dba_password, string username) - Delete an user from security database (only for IB6 or later) */ -PHP_FUNCTION(ibase_delete_user) -{ - _php_ibase_user(INTERNAL_FUNCTION_PARAM_PASSTHRU, isc_action_svc_delete_user); -} -/* }}} */ -#endif /* SQL_DIALECT_V6 */ - -#endif /* HAVE_IBASE */ - -/* - * Local variables: - * tab-width: 4 - * c-basic-offset: 4 - * End: - * vim600: sw=4 ts=4 fdm=marker - * vim<600: sw=4 ts=4 - */ |