diff options
author | Kalle Sommer Nielsen <kalle@php.net> | 2019-05-01 23:27:04 +0300 |
---|---|---|
committer | Kalle Sommer Nielsen <kalle@php.net> | 2019-05-01 23:27:04 +0300 |
commit | b458fcb87f8759c18e9cfe48bc54a9ce96eedf94 (patch) | |
tree | 554d24204eda61cdf8478e34e5fde11ba5194494 /ext | |
parent | ec5f7df73283ec14cfea5f8a8378238726a71a59 (diff) | |
download | php-git-b458fcb87f8759c18e9cfe48bc54a9ce96eedf94.tar.gz |
Move ext/interbase to pecl/database/interbase
https://wiki.php.net/rfc/deprecate-and-remove-ext-interbase
Diffstat (limited to 'ext')
36 files changed, 0 insertions, 7705 deletions
diff --git a/ext/interbase/CREDITS b/ext/interbase/CREDITS deleted file mode 100644 index d66f13b5f3..0000000000 --- a/ext/interbase/CREDITS +++ /dev/null @@ -1,2 +0,0 @@ -InterBase -Jouni Ahto, Andrew Avdeev, Ard Biesheuvel diff --git a/ext/interbase/config.m4 b/ext/interbase/config.m4 deleted file mode 100644 index 74e62e893f..0000000000 --- a/ext/interbase/config.m4 +++ /dev/null @@ -1,59 +0,0 @@ -PHP_ARG_WITH([interbase], - [for Firebird support], - [AS_HELP_STRING([[--with-interbase[=DIR]]], - [Include Firebird support. DIR is the Firebird base install directory - [/opt/firebird]])]) - -if test "$PHP_INTERBASE" != "no"; then - - AC_PATH_PROG(FB_CONFIG, fb_config, no) - - if test -x "$FB_CONFIG" && test "$PHP_INTERBASE" = "yes"; then - AC_MSG_CHECKING(for libfbconfig) - FB_CFLAGS=`$FB_CONFIG --cflags` - FB_LIBDIR=`$FB_CONFIG --libs` - FB_VERSION=`$FB_CONFIG --version` - AC_MSG_RESULT(version $FB_VERSION) - PHP_EVAL_LIBLINE($FB_LIBDIR, INTERBASE_SHARED_LIBADD) - PHP_EVAL_INCLINE($FB_CFLAGS) - - else - if test "$PHP_INTERBASE" = "yes"; then - IBASE_INCDIR=/opt/firebird/include - IBASE_LIBDIR=/opt/firebird/lib - else - IBASE_INCDIR=$PHP_INTERBASE/include - IBASE_LIBDIR=$PHP_INTERBASE/$PHP_LIBDIR - fi - - PHP_CHECK_LIBRARY(fbclient, isc_detach_database, - [ - IBASE_LIBNAME=fbclient - ], [ - PHP_CHECK_LIBRARY(gds, isc_detach_database, - [ - IBASE_LIBNAME=gds - ], [ - PHP_CHECK_LIBRARY(ib_util, isc_detach_database, - [ - IBASE_LIBNAME=ib_util - ], [ - AC_MSG_ERROR([libfbclient, libgds or libib_util not found! Check config.log for more information.]) - ], [ - -L$IBASE_LIBDIR - ]) - ], [ - -L$IBASE_LIBDIR - ]) - ], [ - -L$IBASE_LIBDIR - ]) - - PHP_ADD_LIBRARY_WITH_PATH($IBASE_LIBNAME, $IBASE_LIBDIR, INTERBASE_SHARED_LIBADD) - PHP_ADD_INCLUDE($IBASE_INCDIR) - fi - - AC_DEFINE(HAVE_IBASE,1,[ ]) - PHP_NEW_EXTENSION(interbase, interbase.c ibase_query.c ibase_service.c ibase_events.c ibase_blobs.c, $ext_shared,, -DZEND_ENABLE_STATIC_TSRMLS_CACHE=1) - PHP_SUBST(INTERBASE_SHARED_LIBADD) -fi diff --git a/ext/interbase/config.w32 b/ext/interbase/config.w32 deleted file mode 100644 index c1f5a91f41..0000000000 --- a/ext/interbase/config.w32 +++ /dev/null @@ -1,17 +0,0 @@ -// vim:ft=javascript - -ARG_WITH("interbase", "InterBase support", "no"); - -if (PHP_INTERBASE != "no") { - - if (CHECK_HEADER_ADD_INCLUDE("ibase.h", "CFLAGS_INTERBASE", - PHP_PHP_BUILD + "\\include\\interbase;" + PHP_PHP_BUILD + "\\interbase\\include;" + PHP_INTERBASE) && - (CHECK_LIB("fbclient_ms.lib", "interbase", PHP_PHP_BUILD + "\\interbase\\lib_ms;" + PHP_INTERBASE) || - CHECK_LIB("gds32_ms.lib", "interbase", PHP_PHP_BUILD + "\\interbase\\lib_ms;" + PHP_INTERBASE))) { - - EXTENSION("interbase", "interbase.c ibase_query.c ibase_service.c ibase_events.c ibase_blobs.c", PHP_INTERBASE_SHARED, "/DZEND_ENABLE_STATIC_TSRMLS_CACHE=1"); - AC_DEFINE('HAVE_IBASE', 1, 'Have interbase library'); - } else { - WARNING("interbase not enabled; libraries and headers not found"); - } -} diff --git a/ext/interbase/ibase_blobs.c b/ext/interbase/ibase_blobs.c deleted file mode 100644 index 29cfe73260..0000000000 --- a/ext/interbase/ibase_blobs.c +++ /dev/null @@ -1,555 +0,0 @@ -/* - +----------------------------------------------------------------------+ - | PHP Version 7 | - +----------------------------------------------------------------------+ - | Copyright (c) The PHP Group | - +----------------------------------------------------------------------+ - | This source file is subject to version 3.01 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_01.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: Ard Biesheuvel <a.k.biesheuvel@its.tudelft.nl> | - +----------------------------------------------------------------------+ - */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif - -#include "php.h" - -#if HAVE_IBASE - -#include "php_interbase.h" -#include "php_ibase_includes.h" - -#define BLOB_CLOSE 1 -#define BLOB_CANCEL 2 - -#define PARSE_PARAMETERS \ - switch (ZEND_NUM_ARGS()) { \ - default: \ - WRONG_PARAM_COUNT; \ - case 1: \ - if (FAILURE == zend_parse_parameters(1, "s", &blob_id, &blob_id_len)) { \ - RETURN_FALSE; \ - } \ - break; \ - case 2: \ - if (FAILURE == zend_parse_parameters(2, "rs", &link, &blob_id, &blob_id_len)) { \ - RETURN_FALSE; \ - } \ - break; \ - } \ - -static int le_blob; - -static void _php_ibase_free_blob(zend_resource *rsrc) /* {{{ */ -{ - ibase_blob *ib_blob = (ibase_blob *)rsrc->ptr; - - if (ib_blob->bl_handle != 0) { /* blob open*/ - if (isc_cancel_blob(IB_STATUS, &ib_blob->bl_handle)) { - _php_ibase_module_error("You can lose data. Close any blob after reading from or " - "writing to it. Use ibase_blob_close() before calling ibase_close()"); - } - } - efree(ib_blob); -} -/* }}} */ - -void php_ibase_blobs_minit(INIT_FUNC_ARGS) /* {{{ */ -{ - le_blob = zend_register_list_destructors_ex(_php_ibase_free_blob, NULL, - "interbase blob", module_number); -} -/* }}} */ - -int _php_ibase_string_to_quad(char const *id, ISC_QUAD *qd) /* {{{ */ -{ - /* shortcut for most common case */ - if (sizeof(ISC_QUAD) == sizeof(ISC_UINT64)) { - return sscanf(id, BLOB_ID_MASK, (ISC_UINT64 *) qd); - } else { - ISC_UINT64 res; - if (sscanf(id, BLOB_ID_MASK, &res)) { - qd->gds_quad_high = (ISC_LONG) (res >> 0x20); - qd->gds_quad_low = (ISC_LONG) (res & 0xFFFFFFFF); - return 1; - } - return 0; - } -} -/* }}} */ - -zend_string *_php_ibase_quad_to_string(ISC_QUAD const qd) /* {{{ */ -{ - /* shortcut for most common case */ - if (sizeof(ISC_QUAD) == sizeof(ISC_UINT64)) { - return strpprintf(BLOB_ID_LEN+1, "0x%0*" LL_MASK "x", 16, *(ISC_UINT64*)(void *) &qd); - } else { - ISC_UINT64 res = ((ISC_UINT64) qd.gds_quad_high << 0x20) | qd.gds_quad_low; - return strpprintf(BLOB_ID_LEN+1, "0x%0*" LL_MASK "x", 16, res); - } -} -/* }}} */ - -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; - -int _php_ibase_blob_get(zval *return_value, ibase_blob *ib_blob, zend_ulong max_len) /* {{{ */ -{ - if (ib_blob->bl_qd.gds_quad_high || ib_blob->bl_qd.gds_quad_low) { /*not null ?*/ - - ISC_STATUS stat; - zend_string *bl_data; - zend_ulong cur_len; - unsigned short seg_len; - - bl_data = zend_string_safe_alloc(1, max_len, 0, 0); - - for (cur_len = stat = 0; (stat == 0 || stat == isc_segment) && cur_len < max_len; cur_len += seg_len) { - - unsigned short chunk_size = (max_len-cur_len) > USHRT_MAX ? USHRT_MAX - : (unsigned short)(max_len-cur_len); - - stat = isc_get_segment(IB_STATUS, &ib_blob->bl_handle, &seg_len, chunk_size, &ZSTR_VAL(bl_data)[cur_len]); - } - - if (IB_STATUS[0] == 1 && (stat != 0 && stat != isc_segstr_eof && stat != isc_segment)) { - zend_string_free(bl_data); - _php_ibase_error(); - return FAILURE; - } - ZSTR_VAL(bl_data)[cur_len] = '\0'; - ZSTR_LEN(bl_data) = cur_len; - RETVAL_NEW_STR(bl_data); - } else { /* null blob */ - RETVAL_EMPTY_STRING(); /* empty string */ - } - return SUCCESS; -} -/* }}} */ - -int _php_ibase_blob_add(zval *string_arg, ibase_blob *ib_blob) /* {{{ */ -{ - zend_ulong put_cnt = 0, rem_cnt; - unsigned short chunk_size; - - convert_to_string_ex(string_arg); - - for (rem_cnt = Z_STRLEN_P(string_arg); rem_cnt > 0; rem_cnt -= chunk_size) { - - chunk_size = rem_cnt > USHRT_MAX ? USHRT_MAX : (unsigned short)rem_cnt; - - if (isc_put_segment(IB_STATUS, &ib_blob->bl_handle, chunk_size, &Z_STRVAL_P(string_arg)[put_cnt] )) { - _php_ibase_error(); - return FAILURE; - } - put_cnt += chunk_size; - } - return SUCCESS; -} -/* }}} */ - -static int _php_ibase_blob_info(isc_blob_handle bl_handle, IBASE_BLOBINFO *bl_info) /* {{{ */ -{ - 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(zend_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(); - 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 resource ibase_blob_create([resource link_identifier]) - Create blob for adding data */ -PHP_FUNCTION(ibase_blob_create) -{ - zval *link = NULL; - ibase_db_link *ib_link; - ibase_trans *trans = NULL; - ibase_blob *ib_blob; - - RESET_ERRMSG; - - if (FAILURE == zend_parse_parameters(ZEND_NUM_ARGS(), "|r", &link)) { - RETURN_FALSE; - } - - PHP_IBASE_LINK_TRANS(link, ib_link, trans); - - ib_blob = (ibase_blob *) emalloc(sizeof(ibase_blob)); - ib_blob->bl_handle = 0; - ib_blob->type = BLOB_INPUT; - - if (isc_create_blob(IB_STATUS, &ib_link->handle, &trans->handle, &ib_blob->bl_handle, &ib_blob->bl_qd)) { - _php_ibase_error(); - efree(ib_blob); - RETURN_FALSE; - } - - RETVAL_RES(zend_register_resource(ib_blob, le_blob)); - Z_TRY_ADDREF_P(return_value); -} -/* }}} */ - -/* {{{ proto resource ibase_blob_open([ resource link_identifier, ] string blob_id) - Open blob for retrieving data parts */ -PHP_FUNCTION(ibase_blob_open) -{ - char *blob_id; - size_t blob_id_len; - zval *link = NULL; - ibase_db_link *ib_link; - ibase_trans *trans = NULL; - ibase_blob *ib_blob; - - RESET_ERRMSG; - PARSE_PARAMETERS; - - PHP_IBASE_LINK_TRANS(link, ib_link, trans); - - ib_blob = (ibase_blob *) emalloc(sizeof(ibase_blob)); - ib_blob->bl_handle = 0; - ib_blob->type = BLOB_OUTPUT; - - do { - if (! _php_ibase_string_to_quad(blob_id, &ib_blob->bl_qd)) { - _php_ibase_module_error("String is not a BLOB ID"); - break; - } - - if (isc_open_blob(IB_STATUS, &ib_link->handle, &trans->handle, &ib_blob->bl_handle, - &ib_blob->bl_qd)) { - _php_ibase_error(); - break; - } - - RETVAL_RES(zend_register_resource(ib_blob, le_blob)); - Z_TRY_ADDREF_P(return_value); - return; - - } while (0); - - efree(ib_blob); - RETURN_FALSE; -} -/* }}} */ - -/* {{{ proto bool ibase_blob_add(resource blob_handle, string data) - Add data into created blob */ -PHP_FUNCTION(ibase_blob_add) -{ - zval *blob_arg, *string_arg; - ibase_blob *ib_blob; - - RESET_ERRMSG; - - if (FAILURE == zend_parse_parameters(ZEND_NUM_ARGS(), "rz", &blob_arg, &string_arg)) { - return; - } - - ib_blob = (ibase_blob *)zend_fetch_resource_ex(blob_arg, "Interbase blob", le_blob); - - if (ib_blob->type != BLOB_INPUT) { - _php_ibase_module_error("BLOB is not open for input"); - RETURN_FALSE; - } - - if (_php_ibase_blob_add(string_arg, ib_blob) != SUCCESS) { - RETURN_FALSE; - } -} -/* }}} */ - -/* {{{ proto string ibase_blob_get(resource blob_handle, int len) - Get len bytes data from open blob */ -PHP_FUNCTION(ibase_blob_get) -{ - zval *blob_arg; - zend_ulong len_arg; - ibase_blob *ib_blob; - - RESET_ERRMSG; - - if (FAILURE == zend_parse_parameters(ZEND_NUM_ARGS(), "rl", &blob_arg, &len_arg)) { - return; - } - - ib_blob = (ibase_blob *)zend_fetch_resource_ex(blob_arg, "Interbase blob", le_blob); - - if (ib_blob->type != BLOB_OUTPUT) { - _php_ibase_module_error("BLOB is not open for output"); - RETURN_FALSE; - } - - if (_php_ibase_blob_get(return_value, ib_blob, len_arg) != SUCCESS) { - RETURN_FALSE; - } -} -/* }}} */ - -static void _php_ibase_blob_end(INTERNAL_FUNCTION_PARAMETERS, int bl_end) /* {{{ */ -{ - zval *blob_arg; - ibase_blob *ib_blob; - - RESET_ERRMSG; - - if (FAILURE == zend_parse_parameters(ZEND_NUM_ARGS(), "r", &blob_arg)) { - return; - } - - ib_blob = (ibase_blob *)zend_fetch_resource_ex(blob_arg, "Interbase blob", le_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(); - RETURN_FALSE; - } - } - ib_blob->bl_handle = 0; - - RETVAL_NEW_STR(_php_ibase_quad_to_string(ib_blob->bl_qd)); - } else { /* discard created blob */ - if (isc_cancel_blob(IB_STATUS, &ib_blob->bl_handle)) { - _php_ibase_error(); - RETURN_FALSE; - } - ib_blob->bl_handle = 0; - RETVAL_TRUE; - } - zend_list_delete(Z_RES_P(blob_arg)); -} -/* }}} */ - -/* {{{ proto string ibase_blob_close(resource blob_handle) - Close blob */ -PHP_FUNCTION(ibase_blob_close) -{ - _php_ibase_blob_end(INTERNAL_FUNCTION_PARAM_PASSTHRU, BLOB_CLOSE); -} -/* }}} */ - -/* {{{ proto bool ibase_blob_cancel(resource blob_handle) - Cancel creating blob */ -PHP_FUNCTION(ibase_blob_cancel) -{ - _php_ibase_blob_end(INTERNAL_FUNCTION_PARAM_PASSTHRU, BLOB_CANCEL); -} -/* }}} */ - -/* {{{ proto array ibase_blob_info([ resource link_identifier, ] string blob_id) - Return blob length and other useful info */ -PHP_FUNCTION(ibase_blob_info) -{ - char *blob_id; - size_t blob_id_len; - zval *link = NULL; - ibase_db_link *ib_link; - ibase_trans *trans = NULL; - ibase_blob ib_blob = { 0, BLOB_INPUT }; - IBASE_BLOBINFO bl_info; - - RESET_ERRMSG; - PARSE_PARAMETERS; - - PHP_IBASE_LINK_TRANS(link, ib_link, trans); - - if (! _php_ibase_string_to_quad(blob_id, &ib_blob.bl_qd)) { - _php_ibase_module_error("Unrecognized BLOB ID"); - RETURN_FALSE; - } - - if (ib_blob.bl_qd.gds_quad_high || ib_blob.bl_qd.gds_quad_low) { /* not null ? */ - if (isc_open_blob(IB_STATUS, &ib_link->handle, &trans->handle, &ib_blob.bl_handle, - &ib_blob.bl_qd)) { - _php_ibase_error(); - RETURN_FALSE; - } - - if (_php_ibase_blob_info(ib_blob.bl_handle, &bl_info)) { - RETURN_FALSE; - } - if (isc_close_blob(IB_STATUS, &ib_blob.bl_handle)) { - _php_ibase_error(); - RETURN_FALSE; - } - } 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; - } - - array_init(return_value); - - add_index_long(return_value, 0, bl_info.total_length); - add_assoc_long(return_value, "length", bl_info.total_length); - - add_index_long(return_value, 1, bl_info.num_segments); - add_assoc_long(return_value, "numseg", bl_info.num_segments); - - add_index_long(return_value, 2, bl_info.max_segment); - add_assoc_long(return_value, "maxseg", bl_info.max_segment); - - add_index_bool(return_value, 3, bl_info.bl_stream); - add_assoc_bool(return_value, "stream", bl_info.bl_stream); - - add_index_bool(return_value, 4, (!ib_blob.bl_qd.gds_quad_high && !ib_blob.bl_qd.gds_quad_low)); - add_assoc_bool(return_value, "isnull", (!ib_blob.bl_qd.gds_quad_high && !ib_blob.bl_qd.gds_quad_low)); -} -/* }}} */ - -/* {{{ proto bool ibase_blob_echo([ resource link_identifier, ] string blob_id) - Output blob contents to browser */ -PHP_FUNCTION(ibase_blob_echo) -{ - char *blob_id; - size_t blob_id_len; - zval *link = NULL; - ibase_db_link *ib_link; - ibase_trans *trans = NULL; - ibase_blob ib_blob_id = { 0, BLOB_OUTPUT }; - char bl_data[IBASE_BLOB_SEG]; - unsigned short seg_len; - - RESET_ERRMSG; - PARSE_PARAMETERS; - - PHP_IBASE_LINK_TRANS(link, ib_link, trans); - - if (! _php_ibase_string_to_quad(blob_id, &ib_blob_id.bl_qd)) { - _php_ibase_module_error("Unrecognized BLOB ID"); - RETURN_FALSE; - } - - do { - if (isc_open_blob(IB_STATUS, &ib_link->handle, &trans->handle, &ib_blob_id.bl_handle, - &ib_blob_id.bl_qd)) { - break; - } - - 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)) { - break; - } - - if (isc_close_blob(IB_STATUS, &ib_blob_id.bl_handle)) { - break; - } - RETURN_TRUE; - } while (0); - - _php_ibase_error(); - RETURN_FALSE; -} -/* }}} */ - -/* {{{ proto string ibase_blob_import([ resource link_identifier, ] resource file) - Create blob, copy file in it, and close it */ -PHP_FUNCTION(ibase_blob_import) -{ - zval *link = NULL, *file; - int size; - unsigned short b; - ibase_blob ib_blob = { 0, 0 }; - ibase_db_link *ib_link; - ibase_trans *trans = NULL; - char bl_data[IBASE_BLOB_SEG]; - php_stream *stream; - - RESET_ERRMSG; - - if (FAILURE == zend_parse_parameters(ZEND_NUM_ARGS(), "r|r", - (ZEND_NUM_ARGS()-1) ? &link : &file, &file)) { - RETURN_FALSE; - } - - PHP_IBASE_LINK_TRANS(link, ib_link, trans); - - php_stream_from_zval(stream, file); - - do { - if (isc_create_blob(IB_STATUS, &ib_link->handle, &trans->handle, &ib_blob.bl_handle, - &ib_blob.bl_qd)) { - break; - } - - for (size = 0; (b = php_stream_read(stream, bl_data, sizeof(bl_data))); size += b) { - if (isc_put_segment(IB_STATUS, &ib_blob.bl_handle, b, bl_data)) { - break; - } - } - - if (isc_close_blob(IB_STATUS, &ib_blob.bl_handle)) { - break; - } - RETURN_NEW_STR(_php_ibase_quad_to_string(ib_blob.bl_qd)); - } while (0); - - _php_ibase_error(); - RETURN_FALSE; -} -/* }}} */ - -#endif /* HAVE_IBASE */ diff --git a/ext/interbase/ibase_events.c b/ext/interbase/ibase_events.c deleted file mode 100644 index dbf189f53b..0000000000 --- a/ext/interbase/ibase_events.c +++ /dev/null @@ -1,392 +0,0 @@ -/* - +----------------------------------------------------------------------+ - | PHP Version 7 | - +----------------------------------------------------------------------+ - | Copyright (c) The PHP Group | - +----------------------------------------------------------------------+ - | This source file is subject to version 3.01 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_01.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: Ard Biesheuvel <a.k.biesheuvel@its.tudelft.nl> | - +----------------------------------------------------------------------+ - */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif - -#include "php.h" - -#if HAVE_IBASE - -#include "php_interbase.h" -#include "php_ibase_includes.h" - -static int le_event; - -static void _php_ibase_event_free(char *event_buf, char *result_buf) /* {{{ */ -{ - isc_free(event_buf); - isc_free(result_buf); -} -/* }}} */ - -void _php_ibase_free_event(ibase_event *event) /* {{{ */ -{ - unsigned short i; - - event->state = DEAD; - - if (event->link != NULL) { - ibase_event **node; - - zend_list_delete(event->link_res); - if (event->link->handle != 0 && - isc_cancel_events(IB_STATUS, &event->link->handle, &event->event_id)) { - _php_ibase_error(); - } - - /* delete this event from the link struct */ - for (node = &event->link->event_head; *node != event; node = &(*node)->event_next); - *node = event->event_next; - } - - if (Z_TYPE(event->callback) != IS_UNDEF) { - zval_ptr_dtor(&event->callback); - ZVAL_UNDEF(&event->callback); - - _php_ibase_event_free(event->event_buffer,event->result_buffer); - - for (i = 0; i < event->event_count; ++i) { - if (event->events[i]) { - efree(event->events[i]); - } - } - efree(event->events); - } -} -/* }}} */ - -static void _php_ibase_free_event_rsrc(zend_resource *rsrc) /* {{{ */ -{ - ibase_event *e = (ibase_event *) rsrc->ptr; - - _php_ibase_free_event(e); - - efree(e); -} -/* }}} */ - -void php_ibase_events_minit(INIT_FUNC_ARGS) /* {{{ */ -{ - le_event = zend_register_list_destructors_ex(_php_ibase_free_event_rsrc, NULL, - "interbase event", module_number); -} -/* }}} */ - -static void _php_ibase_event_block(ibase_db_link *ib_link, unsigned short count, /* {{{ */ - char **events, unsigned short *l, char **event_buf, char **result_buf) -{ - ISC_STATUS dummy_result[20]; - ISC_ULONG dummy_count[15]; - - /** - * Unfortunately, there's no clean and portable way in C to pass arguments to - * a variadic function if you don't know the number of arguments at compile time. - * (And even if there were a way, the Interbase API doesn't provide a version of - * this function that takes a va_list as an argument) - * - * In this case, the number of arguments is limited to 18 by the underlying API, - * so we can work around it. - */ - - *l = (unsigned short) isc_event_block(event_buf, result_buf, count, events[0], - events[1], events[2], events[3], events[4], events[5], events[6], events[7], - events[8], events[9], events[10], events[11], events[12], events[13], events[14]); - - /** - * Currently, this is the only way to correctly initialize an event buffer. - * This is clearly something that should be fixed, cause the semantics of - * isc_wait_for_event() indicate that it blocks until an event occurs. - * If the Firebird people ever fix this, these lines should be removed, - * otherwise, events will have to fire twice before ibase_wait_event() returns. - */ - - isc_wait_for_event(dummy_result, &ib_link->handle, *l, *event_buf, *result_buf); - isc_event_counts(dummy_count, *l, *event_buf, *result_buf); -} -/* }}} */ - -/* {{{ proto string ibase_wait_event([resource link_identifier,] string event [, string event [, ...]]) - Waits for any one of the passed Interbase events to be posted by the database, and returns its name */ -PHP_FUNCTION(ibase_wait_event) -{ - zval *args; - ibase_db_link *ib_link; - int num_args; - char *event_buffer, *result_buffer, *events[15]; - unsigned short i = 0, event_count = 0, buffer_size; - ISC_ULONG occurred_event[15]; - - RESET_ERRMSG; - - /* no more than 15 events */ - if (ZEND_NUM_ARGS() < 1 || ZEND_NUM_ARGS() > 16) { - WRONG_PARAM_COUNT; - } - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "+", &args, &num_args) == FAILURE) { - return; - } - - if (Z_TYPE(args[0]) == IS_RESOURCE) { - if ((ib_link = (ibase_db_link *)zend_fetch_resource2_ex(&args[0], "InterBase link", le_link, le_plink)) == NULL) { - RETURN_FALSE; - } - i = 1; - } else { - if (ZEND_NUM_ARGS() > 15) { - WRONG_PARAM_COUNT; - } - if ((ib_link = (ibase_db_link *)zend_fetch_resource2(IBG(default_link), "InterBase link", le_link, le_plink)) == NULL) { - RETURN_FALSE; - } - } - - for (; i < ZEND_NUM_ARGS(); ++i) { - convert_to_string_ex(&args[i]); - events[event_count++] = Z_STRVAL(args[i]); - } - - /* fills the required data structure with information about the events */ - _php_ibase_event_block(ib_link, event_count, events, &buffer_size, &event_buffer, &result_buffer); - - /* now block until an event occurs */ - if (isc_wait_for_event(IB_STATUS, &ib_link->handle, buffer_size, event_buffer, result_buffer)) { - _php_ibase_error(); - _php_ibase_event_free(event_buffer,result_buffer); - RETURN_FALSE; - } - - /* find out which event occurred */ - isc_event_counts(occurred_event, buffer_size, event_buffer, result_buffer); - for (i = 0; i < event_count; ++i) { - if (occurred_event[i]) { - zend_string *result = zend_string_init(events[i], strlen(events[i]), 0); - _php_ibase_event_free(event_buffer,result_buffer); - RETURN_STR(result); - } - } - - /* If we reach this line, isc_wait_for_event() did return, but we don't know - which event fired. */ - _php_ibase_event_free(event_buffer,result_buffer); - RETURN_FALSE; -} -/* }}} */ - -#if FB_API_VER >= 20 -#define PHP_ISC_CALLBACK ISC_EVENT_CALLBACK -static ISC_EVENT_CALLBACK _php_ibase_callback(ibase_event *event, /* {{{ */ - ISC_USHORT buffer_size, ISC_UCHAR *result_buf) -#else -#define PHP_ISC_CALLBACK isc_callback -static isc_callback _php_ibase_callback(ibase_event *event, /* {{{ */ - unsigned short buffer_size, char *result_buf) -#endif -{ - /* this function is called asynchronously by the Interbase client library. */ - TSRMLS_FETCH_FROM_CTX(event->thread_ctx); - - /** - * The callback function is called when the event is first registered and when the event - * is cancelled. I consider this is a bug. By clearing event->callback first and setting - * it to -1 later, we make sure nothing happens if no event was actually posted. - */ - switch (event->state) { - unsigned short i; - ISC_ULONG occurred_event[15]; - zval return_value, args[2]; - - default: /* == DEAD */ - break; - case ACTIVE: - /* copy the updated results into the result buffer */ - memcpy(event->result_buffer, result_buf, buffer_size); - - ZVAL_RES(&args[1], event->link_res); - - /* find out which event occurred */ - isc_event_counts(occurred_event, buffer_size, event->event_buffer, event->result_buffer); - for (i = 0; i < event->event_count; ++i) { - if (occurred_event[i]) { - ZVAL_STRING(&args[0], event->events[i]); - //efree(event->events[i]); - break; - } - } - - /* call the callback provided by the user */ - if (SUCCESS != call_user_function(NULL, NULL, - &event->callback, &return_value, 2, args)) { - _php_ibase_module_error("Error calling callback %s", Z_STRVAL(event->callback)); - break; - } - - if (Z_TYPE(return_value) == IS_FALSE) { - event->state = DEAD; - break; - } - case NEW: - /* re-register the event */ - if (isc_que_events(IB_STATUS, &event->link->handle, &event->event_id, buffer_size, - event->event_buffer,(PHP_ISC_CALLBACK)_php_ibase_callback, (void *)event)) { - - _php_ibase_error(); - } - event->state = ACTIVE; - } - return 0; -} -/* }}} */ - -/* {{{ proto resource ibase_set_event_handler([resource link_identifier,] callback handler, string event [, string event [, ...]]) - Register the callback for handling each of the named events */ -PHP_FUNCTION(ibase_set_event_handler) -{ - /** - * The callback passed to this function should take an event name (string) and a - * link resource id (int) as arguments. The value returned from the function is - * used to determine if the event handler should remain set. - */ - zval *args, *cb_arg; - ibase_db_link *ib_link; - ibase_event *event; - unsigned short i = 1, buffer_size; - int num_args; - zend_resource *link_res; - - RESET_ERRMSG; - - /* Minimum and maximum number of arguments allowed */ - if (ZEND_NUM_ARGS() < 2 || ZEND_NUM_ARGS() > 17) { - WRONG_PARAM_COUNT; - } - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "+", &args, &num_args) == FAILURE) { - return; - } - - /* get a working link */ - if (Z_TYPE(args[0]) != IS_STRING) { - /* resource, callback, event_1 [, ... event_15] - * No more than 15 events - */ - if (ZEND_NUM_ARGS() < 3 || ZEND_NUM_ARGS() > 17) { - WRONG_PARAM_COUNT; - } - - cb_arg = &args[1]; - i = 2; - - if ((ib_link = (ibase_db_link *)zend_fetch_resource2_ex(&args[0], "InterBase link", le_link, le_plink)) == NULL) { - RETURN_FALSE; - } - - link_res = Z_RES(args[0]); - - } else { - /* callback, event_1 [, ... event_15] - * No more than 15 events - */ - if (ZEND_NUM_ARGS() < 2 || ZEND_NUM_ARGS() > 16) { - WRONG_PARAM_COUNT; - } - - cb_arg = &args[0]; - - if ((ib_link = (ibase_db_link *)zend_fetch_resource2(IBG(default_link), "InterBase link", le_link, le_plink)) == NULL) { - RETURN_FALSE; - } - link_res = IBG(default_link); - } - - /* get the callback */ - if (!zend_is_callable(cb_arg, 0, NULL)) { - zend_string *cb_name = zend_get_callable_name(cb_arg); - _php_ibase_module_error("Callback argument %s is not a callable function", ZSTR_VAL(cb_name)); - zend_string_release_ex(cb_name, 0); - RETURN_FALSE; - } - - /* allocate the event resource */ - event = (ibase_event *) safe_emalloc(sizeof(ibase_event), 1, 0); - TSRMLS_SET_CTX(event->thread_ctx); - event->link_res = link_res; - GC_ADDREF(link_res); - event->link = ib_link; - event->event_count = 0; - event->state = NEW; - event->events = (char **) safe_emalloc(sizeof(char *), 15, 0); - - ZVAL_DUP(&event->callback, cb_arg); - - for (; i < 15; ++i) { - if (i < ZEND_NUM_ARGS()) { - convert_to_string_ex(&args[i]); - event->events[event->event_count++] = estrdup(Z_STRVAL(args[i])); - } else { - event->events[i] = NULL; - } - } - - /* fills the required data structure with information about the events */ - _php_ibase_event_block(ib_link, event->event_count, event->events, - &buffer_size, &event->event_buffer, &event->result_buffer); - - /* now register the events with the Interbase API */ - if (isc_que_events(IB_STATUS, &ib_link->handle, &event->event_id, buffer_size, - event->event_buffer,(PHP_ISC_CALLBACK)_php_ibase_callback, (void *)event)) { - - _php_ibase_error(); - efree(event); - RETURN_FALSE; - } - - event->event_next = ib_link->event_head; - ib_link->event_head = event; - - RETVAL_RES(zend_register_resource(event, le_event)); - Z_TRY_ADDREF_P(return_value); -} -/* }}} */ - -/* {{{ proto bool ibase_free_event_handler(resource event) - Frees the event handler set by ibase_set_event_handler() */ -PHP_FUNCTION(ibase_free_event_handler) -{ - zval *event_arg; - - RESET_ERRMSG; - - if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS(), "r", &event_arg)) { - ibase_event *event; - - event = (ibase_event *)zend_fetch_resource_ex(event_arg, "Interbase event", le_event); - - event->state = DEAD; - - zend_list_delete(Z_RES_P(event_arg)); - RETURN_TRUE; - } else { - RETURN_FALSE; - } -} -/* }}} */ - -#endif /* HAVE_IBASE */ diff --git a/ext/interbase/ibase_query.c b/ext/interbase/ibase_query.c deleted file mode 100644 index af42e11cac..0000000000 --- a/ext/interbase/ibase_query.c +++ /dev/null @@ -1,2072 +0,0 @@ -/* - +----------------------------------------------------------------------+ - | PHP Version 7 | - +----------------------------------------------------------------------+ - | Copyright (c) The PHP Group | - +----------------------------------------------------------------------+ - | This source file is subject to version 3.01 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_01.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: Ard Biesheuvel <a.k.biesheuvel@its.tudelft.nl> | - +----------------------------------------------------------------------+ - */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif - -#include "php.h" -#include "php_ini.h" - -#if HAVE_IBASE - -#include "ext/standard/php_standard.h" -#include "php_interbase.h" -#include "php_ibase_includes.h" - -#define ISC_LONG_MIN INT_MIN -#define ISC_LONG_MAX INT_MAX - -#define QUERY_RESULT 1 -#define EXECUTE_RESULT 2 - -#define FETCH_ROW 1 -#define FETCH_ARRAY 2 - -typedef struct { - ISC_ARRAY_DESC ar_desc; - ISC_LONG ar_size; /* size of entire array in bytes */ - unsigned short el_type, el_size; -} ibase_array; - -typedef struct { - ibase_db_link *link; - ibase_trans *trans; - struct _ib_query *query; - isc_stmt_handle stmt; - unsigned short type; - unsigned char has_more_rows, statement_type; - XSQLDA *out_sqlda; - ibase_array out_array[1]; /* last member */ -} ibase_result; - -typedef struct _ib_query { - ibase_db_link *link; - ibase_trans *trans; - ibase_result *result; - zend_resource *result_res; - isc_stmt_handle stmt; - XSQLDA *in_sqlda, *out_sqlda; - ibase_array *in_array, *out_array; - unsigned short in_array_cnt, out_array_cnt; - unsigned short dialect; - char statement_type; - char *query; - zend_resource *trans_res; -} ibase_query; - -typedef struct { - unsigned short vary_length; - char vary_string[1]; -} IBVARY; - -/* sql variables union - * used for convert and binding input variables - */ -typedef struct { - union { - short sval; - float fval; - ISC_LONG lval; - ISC_QUAD qval; - ISC_TIMESTAMP tsval; - ISC_DATE dtval; - ISC_TIME tmval; - } val; - short sqlind; -} BIND_BUF; - -static int le_result, le_query; - -#define LE_RESULT "Firebird/InterBase result" -#define LE_QUERY "Firebird/InterBase query" - -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); - } -} -/* }}} */ - -static void _php_ibase_free_stmt_handle(ibase_db_link *link, isc_stmt_handle stmt) /* {{{ */ -{ - static char info[] = { isc_info_base_level, isc_info_end }; - - if (stmt) { - char res_buf[8]; - IBDEBUG("Dropping statement handle (free_stmt_handle)..."); - /* Only free statement if db-connection is still open */ - if (SUCCESS == isc_database_info(IB_STATUS, &link->handle, - sizeof(info), info, sizeof(res_buf), res_buf)) { - if (isc_dsql_free_statement(IB_STATUS, &stmt, DSQL_drop)) { - _php_ibase_error(); - } - } - } -} -/* }}} */ - -static void _php_ibase_free_result(zend_resource *rsrc) /* {{{ */ -{ - 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->query != NULL) { - IBDEBUG("query still valid; don't drop statement handle"); - ib_result->query->result = NULL; /* Indicate to query, that result is released */ - } else { - _php_ibase_free_stmt_handle(ib_result->link, ib_result->stmt); - } - efree(ib_result); - } -} -/* }}} */ - -static void _php_ibase_free_query(ibase_query *ib_query) /* {{{ */ -{ - IBDEBUG("Freeing query..."); - - if (ib_query->in_sqlda) { - efree(ib_query->in_sqlda); - } - if (ib_query->out_sqlda) { - efree(ib_query->out_sqlda); - } - if (ib_query->result != NULL) { - IBDEBUG("result still valid; don't drop statement handle"); - ib_query->result->query = NULL; /* Indicate to result, that query is released */ - } else { - _php_ibase_free_stmt_handle(ib_query->link, ib_query->stmt); - } - if (ib_query->in_array) { - efree(ib_query->in_array); - } - if (ib_query->out_array) { - efree(ib_query->out_array); - } - if (ib_query->query) { - efree(ib_query->query); - } -} -/* }}} */ - -static void php_ibase_free_query_rsrc(zend_resource *rsrc) /* {{{ */ -{ - ibase_query *ib_query = (ibase_query *)rsrc->ptr; - - if (ib_query != NULL) { - IBDEBUG("Preparing to free query by dtor..."); - _php_ibase_free_query(ib_query); - efree(ib_query); - } -} -/* }}} */ - -void php_ibase_query_minit(INIT_FUNC_ARGS) /* {{{ */ -{ - 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); -} -/* }}} */ - -static int _php_ibase_alloc_array(ibase_array **ib_arrayp, XSQLDA *sqlda, /* {{{ */ - isc_db_handle link, isc_tr_handle trans, unsigned short *array_cnt) -{ - unsigned short i, n; - ibase_array *ar; - - /* first check if we have any arrays at all */ - for (i = *array_cnt = 0; i < sqlda->sqld; ++i) { - if ((sqlda->sqlvar[i].sqltype & ~1) == SQL_ARRAY) { - ++*array_cnt; - } - } - if (! *array_cnt) return SUCCESS; - - ar = safe_emalloc(sizeof(ibase_array), *array_cnt, 0); - - for (i = n = 0; i < sqlda->sqld; ++i) { - unsigned short dim; - zend_ulong ar_size = 1; - XSQLVAR *var = &sqlda->sqlvar[i]; - - if ((var->sqltype & ~1) == SQL_ARRAY) { - ibase_array *a = &ar[n++]; - ISC_ARRAY_DESC *ar_desc = &a->ar_desc; - - if (isc_array_lookup_bounds(IB_STATUS, &link, &trans, var->relname, - var->sqlname, ar_desc)) { - _php_ibase_error(); - efree(ar); - return FAILURE; - } - - switch (ar_desc->array_desc_dtype) { - case blr_text: - case blr_text2: - a->el_type = SQL_TEXT; - a->el_size = ar_desc->array_desc_length; - break; - case blr_short: - a->el_type = SQL_SHORT; - a->el_size = sizeof(short); - break; - case blr_long: - a->el_type = SQL_LONG; - a->el_size = sizeof(ISC_LONG); - break; - case blr_float: - a->el_type = SQL_FLOAT; - a->el_size = sizeof(float); - break; - case blr_double: - a->el_type = SQL_DOUBLE; - a->el_size = sizeof(double); - break; - case blr_int64: - a->el_type = SQL_INT64; - a->el_size = sizeof(ISC_INT64); - break; - case blr_timestamp: - a->el_type = SQL_TIMESTAMP; - a->el_size = sizeof(ISC_TIMESTAMP); - break; - case blr_sql_date: - a->el_type = SQL_TYPE_DATE; - a->el_size = sizeof(ISC_DATE); - break; - case blr_sql_time: - a->el_type = SQL_TYPE_TIME; - a->el_size = sizeof(ISC_TIME); - break; - case blr_varying: - case blr_varying2: - /** - * IB has a strange way of handling VARCHAR arrays. It doesn't store - * the length in the first short, as with VARCHAR fields. It does, - * however, expect the extra short to be allocated for each element. - */ - a->el_type = SQL_TEXT; - a->el_size = ar_desc->array_desc_length + sizeof(short); - break; - case blr_quad: - case blr_blob_id: - case blr_cstring: - case blr_cstring2: - /** - * These types are mentioned as array types in the manual, but I - * wouldn't know how to create an array field with any of these - * types. I assume these types are not applicable to arrays, and - * were mentioned erroneously. - */ - default: - _php_ibase_module_error("Unsupported array type %d in relation '%s' column '%s'", - ar_desc->array_desc_dtype, var->relname, var->sqlname); - efree(ar); - return FAILURE; - } /* switch array_desc_type */ - - /* calculate elements count */ - for (dim = 0; dim < ar_desc->array_desc_dimensions; dim++) { - ar_size *= 1 + ar_desc->array_desc_bounds[dim].array_bound_upper - -ar_desc->array_desc_bounds[dim].array_bound_lower; - } - a->ar_size = a->el_size * ar_size; - } /* if SQL_ARRAY */ - } /* for column */ - *ib_arrayp = ar; - return SUCCESS; -} -/* }}} */ - -/* allocate and prepare query */ -static int _php_ibase_alloc_query(ibase_query *ib_query, ibase_db_link *link, /* {{{ */ - ibase_trans *trans, char *query, unsigned short dialect, zend_resource *trans_res) -{ - static char info_type[] = {isc_info_sql_stmt_type}; - char result[8]; - - /* Return FAILURE, if querystring is empty */ - if (*query == '\0') { - php_error_docref(NULL, E_WARNING, "Querystring empty."); - return FAILURE; - } - - ib_query->link = link; - ib_query->trans = trans; - ib_query->result_res = NULL; - ib_query->result = NULL; - ib_query->stmt = 0; - ib_query->in_array = NULL; - ib_query->out_array = NULL; - ib_query->dialect = dialect; - ib_query->query = estrdup(query); - ib_query->trans_res = trans_res; - ib_query->out_sqlda = NULL; - ib_query->in_sqlda = NULL; - - if (isc_dsql_allocate_statement(IB_STATUS, &link->handle, &ib_query->stmt)) { - _php_ibase_error(); - 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_CURRENT_VERSION; - - if (isc_dsql_prepare(IB_STATUS, &ib_query->trans->handle, &ib_query->stmt, - 0, query, dialect, ib_query->out_sqlda)) { - _php_ibase_error(); - goto _php_ibase_alloc_query_error; - } - - /* find out what kind of statement was prepared */ - if (isc_dsql_sql_info(IB_STATUS, &ib_query->stmt, sizeof(info_type), - info_type, sizeof(result), result)) { - _php_ibase_error(); - goto _php_ibase_alloc_query_error; - } - ib_query->statement_type = result[3]; - - /* 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_CURRENT_VERSION; - if (isc_dsql_describe(IB_STATUS, &ib_query->stmt, SQLDA_CURRENT_VERSION, ib_query->out_sqlda)) { - _php_ibase_error(); - 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_CURRENT_VERSION; - if (isc_dsql_describe_bind(IB_STATUS, &ib_query->stmt, SQLDA_CURRENT_VERSION, ib_query->in_sqlda)) { - _php_ibase_error(); - 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_CURRENT_VERSION; - - if (isc_dsql_describe_bind(IB_STATUS, &ib_query->stmt, - SQLDA_CURRENT_VERSION, ib_query->in_sqlda)) { - _php_ibase_error(); - 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; - } else if (FAILURE == _php_ibase_alloc_array(&ib_query->in_array, ib_query->in_sqlda, - link->handle, trans->handle, &ib_query->in_array_cnt)) { - goto _php_ibase_alloc_query_error; - } - - if (ib_query->out_sqlda->sqld == 0) { - efree(ib_query->out_sqlda); - ib_query->out_sqlda = NULL; - } else if (FAILURE == _php_ibase_alloc_array(&ib_query->out_array, ib_query->out_sqlda, - link->handle, trans->handle, &ib_query->out_array_cnt)) { - goto _php_ibase_alloc_query_error; - } - - 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); - } - if (ib_query->query) { - efree(ib_query->query); - } - return FAILURE; -} -/* }}} */ - -static int _php_ibase_bind_array(zval *val, char *buf, zend_ulong buf_size, /* {{{ */ - ibase_array *array, int dim) -{ - zval null_val, *pnull_val = &null_val; - int u_bound = array->ar_desc.array_desc_bounds[dim].array_bound_upper, - l_bound = array->ar_desc.array_desc_bounds[dim].array_bound_lower, - dim_len = 1 + u_bound - l_bound; - - ZVAL_NULL(pnull_val); - - if (dim < array->ar_desc.array_desc_dimensions) { - zend_ulong slice_size = buf_size / dim_len; - unsigned short i; - zval *subval = val; - - if (Z_TYPE_P(val) == IS_ARRAY) { - zend_hash_internal_pointer_reset(Z_ARRVAL_P(val)); - } - - for (i = 0; i < dim_len; ++i) { - - if (Z_TYPE_P(val) == IS_ARRAY && - (subval = zend_hash_get_current_data(Z_ARRVAL_P(val))) == NULL) - { - subval = pnull_val; - } - - if (_php_ibase_bind_array(subval, buf, slice_size, array, dim+1) == FAILURE) - { - return FAILURE; - } - buf += slice_size; - - if (Z_TYPE_P(val) == IS_ARRAY) { - zend_hash_move_forward(Z_ARRVAL_P(val)); - } - } - - if (Z_TYPE_P(val) == IS_ARRAY) { - zend_hash_internal_pointer_reset(Z_ARRVAL_P(val)); - } - - } else { - /* expect a single value */ - if (Z_TYPE_P(val) == IS_NULL) { - memset(buf, 0, buf_size); - } else if (array->ar_desc.array_desc_scale < 0) { - - /* no coercion for array types */ - double l; - - convert_to_double(val); - - if (Z_DVAL_P(val) > 0) { - l = Z_DVAL_P(val) * pow(10, -array->ar_desc.array_desc_scale) + .5; - } else { - l = Z_DVAL_P(val) * pow(10, -array->ar_desc.array_desc_scale) - .5; - } - - switch (array->el_type) { - case SQL_SHORT: - if (l > SHRT_MAX || l < SHRT_MIN) { - _php_ibase_module_error("Array parameter exceeds field width"); - return FAILURE; - } - *(short*) buf = (short) l; - break; - case SQL_LONG: - if (l > ISC_LONG_MAX || l < ISC_LONG_MIN) { - _php_ibase_module_error("Array parameter exceeds field width"); - return FAILURE; - } - *(ISC_LONG*) buf = (ISC_LONG) l; - break; - case SQL_INT64: - { - long double l; - - convert_to_string(val); - - if (!sscanf(Z_STRVAL_P(val), "%Lf", &l)) { - _php_ibase_module_error("Cannot convert '%s' to long double", - Z_STRVAL_P(val)); - return FAILURE; - } - - if (l > 0) { - *(ISC_INT64 *) buf = (ISC_INT64) (l * pow(10, - -array->ar_desc.array_desc_scale) + .5); - } else { - *(ISC_INT64 *) buf = (ISC_INT64) (l * pow(10, - -array->ar_desc.array_desc_scale) - .5); - } - } - break; - } - } else { - struct tm t = { 0, 0, 0, 0, 0, 0 }; - - switch (array->el_type) { -#ifndef HAVE_STRPTIME - unsigned short n; -#endif -#if (SIZEOF_ZEND_LONG < 8) - ISC_INT64 l; -#endif - - case SQL_SHORT: - convert_to_long(val); - if (Z_LVAL_P(val) > SHRT_MAX || Z_LVAL_P(val) < SHRT_MIN) { - _php_ibase_module_error("Array parameter exceeds field width"); - return FAILURE; - } - *(short *) buf = (short) Z_LVAL_P(val); - break; - case SQL_LONG: - convert_to_long(val); -#if (SIZEOF_ZEND_LONG > 4) - if (Z_LVAL_P(val) > ISC_LONG_MAX || Z_LVAL_P(val) < ISC_LONG_MIN) { - _php_ibase_module_error("Array parameter exceeds field width"); - return FAILURE; - } -#endif - *(ISC_LONG *) buf = (ISC_LONG) Z_LVAL_P(val); - break; - case SQL_INT64: -#if (SIZEOF_ZEND_LONG >= 8) - convert_to_long(val); - *(zend_long *) buf = Z_LVAL_P(val); -#else - convert_to_string(val); - if (!sscanf(Z_STRVAL_P(val), "%" LL_MASK "d", &l)) { - _php_ibase_module_error("Cannot convert '%s' to long integer", - Z_STRVAL_P(val)); - return FAILURE; - } else { - *(ISC_INT64 *) buf = l; - } -#endif - break; - case SQL_FLOAT: - convert_to_double(val); - *(float*) buf = (float) Z_DVAL_P(val); - break; - case SQL_DOUBLE: - convert_to_double(val); - *(double*) buf = Z_DVAL_P(val); - break; - case SQL_TIMESTAMP: - convert_to_string(val); -#ifdef HAVE_STRPTIME - strptime(Z_STRVAL_P(val), INI_STR("ibase.timestampformat"), &t); -#else - n = sscanf(Z_STRVAL_P(val), "%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(val)); - return FAILURE; - } - t.tm_year -= 1900; - t.tm_mon--; -#endif - isc_encode_timestamp(&t, (ISC_TIMESTAMP * ) buf); - break; - case SQL_TYPE_DATE: - convert_to_string(val); -#ifdef HAVE_STRPTIME - strptime(Z_STRVAL_P(val), INI_STR("ibase.dateformat"), &t); -#else - n = sscanf(Z_STRVAL_P(val), "%d%*[/]%d%*[/]%d", &t.tm_mon, &t.tm_mday, &t.tm_year); - - if (n != 3) { - _php_ibase_module_error("Invalid date format (expected 3 fields, got %d. " - "Use format 'm/d/Y' You gave '%s')", n, Z_STRVAL_P(val)); - return FAILURE; - } - t.tm_year -= 1900; - t.tm_mon--; -#endif - isc_encode_sql_date(&t, (ISC_DATE *) buf); - break; - case SQL_TYPE_TIME: - convert_to_string(val); -#ifdef HAVE_STRPTIME - strptime(Z_STRVAL_P(val), INI_STR("ibase.timeformat"), &t); -#else - n = sscanf(Z_STRVAL_P(val), "%d%*[:]%d%*[:]%d", &t.tm_hour, &t.tm_min, &t.tm_sec); - - if (n != 3) { - _php_ibase_module_error("Invalid time format (expected 3 fields, got %d. " - "Use format 'H:i:s'. You gave '%s')", n, Z_STRVAL_P(val)); - return FAILURE; - } -#endif - isc_encode_sql_time(&t, (ISC_TIME *) buf); - break; - default: - convert_to_string(val); - strlcpy(buf, Z_STRVAL_P(val), buf_size); - } - } - } - return SUCCESS; -} -/* }}} */ - -static int _php_ibase_bind(XSQLDA *sqlda, zval *b_vars, BIND_BUF *buf, /* {{{ */ - ibase_query *ib_query) -{ - int i, array_cnt = 0, rv = SUCCESS; - - for (i = 0; i < sqlda->sqld; ++i) { /* bound vars */ - - zval *b_var = &b_vars[i]; - XSQLVAR *var = &sqlda->sqlvar[i]; - - var->sqlind = &buf[i].sqlind; - - /* check if a NULL should be inserted */ - switch (Z_TYPE_P(b_var)) { - int force_null; - - case IS_STRING: - - force_null = 0; - - /* for these types, an empty string can be handled like a NULL value */ - switch (var->sqltype & ~1) { - case SQL_SHORT: - case SQL_LONG: - case SQL_INT64: - case SQL_FLOAT: - case SQL_DOUBLE: - case SQL_TIMESTAMP: - case SQL_TYPE_DATE: - case SQL_TYPE_TIME: - force_null = (Z_STRLEN_P(b_var) == 0); - } - - if (! force_null) break; - - case IS_NULL: - buf[i].sqlind = -1; - - if (var->sqltype & SQL_ARRAY) ++array_cnt; - - continue; - } - - /* if we make it to this point, we must provide a value for the parameter */ - - buf[i].sqlind = 0; - - var->sqldata = (void*)&buf[i].val; - - switch (var->sqltype & ~1) { - struct tm t; - - case SQL_TIMESTAMP: - case SQL_TYPE_DATE: - case SQL_TYPE_TIME: - if (Z_TYPE_P(b_var) == IS_LONG) { - struct tm *res; - res = php_gmtime_r(&Z_LVAL_P(b_var), &t); - if (!res) { - return FAILURE; - } - } else { -#ifdef HAVE_STRPTIME - char *format = INI_STR("ibase.timestampformat"); - - convert_to_string(b_var); - - switch (var->sqltype & ~1) { - case SQL_TYPE_DATE: - format = INI_STR("ibase.dateformat"); - break; - case SQL_TYPE_TIME: - format = INI_STR("ibase.timeformat"); - } - if (!strptime(Z_STRVAL_P(b_var), format, &t)) { - /* strptime() cannot handle it, so let IB have a try */ - break; - } -#else /* ifndef HAVE_STRPTIME */ - break; /* let IB parse it as a string */ -#endif - } - - switch (var->sqltype & ~1) { - default: /* == case SQL_TIMESTAMP */ - isc_encode_timestamp(&t, &buf[i].val.tsval); - break; - case SQL_TYPE_DATE: - isc_encode_sql_date(&t, &buf[i].val.dtval); - break; - case SQL_TYPE_TIME: - isc_encode_sql_time(&t, &buf[i].val.tmval); - break; - } - continue; - - case SQL_BLOB: - - convert_to_string(b_var); - - if (Z_STRLEN_P(b_var) != BLOB_ID_LEN || - !_php_ibase_string_to_quad(Z_STRVAL_P(b_var), &buf[i].val.qval)) { - - ibase_blob ib_blob = { 0, BLOB_INPUT }; - - if (isc_create_blob(IB_STATUS, &ib_query->link->handle, - &ib_query->trans->handle, &ib_blob.bl_handle, &ib_blob.bl_qd)) { - _php_ibase_error(); - return FAILURE; - } - - if (_php_ibase_blob_add(b_var, &ib_blob) != SUCCESS) { - return FAILURE; - } - - if (isc_close_blob(IB_STATUS, &ib_blob.bl_handle)) { - _php_ibase_error(); - return FAILURE; - } - buf[i].val.qval = ib_blob.bl_qd; - } - continue; - - case SQL_ARRAY: - - if (Z_TYPE_P(b_var) != IS_ARRAY) { - convert_to_string(b_var); - - if (Z_STRLEN_P(b_var) != BLOB_ID_LEN || - !_php_ibase_string_to_quad(Z_STRVAL_P(b_var), &buf[i].val.qval)) { - - _php_ibase_module_error("Parameter %d: invalid array ID",i+1); - rv = FAILURE; - } - } else { - /* convert the array data into something IB can understand */ - ibase_array *ar = &ib_query->in_array[array_cnt]; - void *array_data = emalloc(ar->ar_size); - ISC_QUAD array_id = { 0, 0 }; - - if (FAILURE == _php_ibase_bind_array(b_var, array_data, ar->ar_size, - ar, 0)) { - _php_ibase_module_error("Parameter %d: failed to bind array argument", i+1); - efree(array_data); - rv = FAILURE; - continue; - } - - if (isc_array_put_slice(IB_STATUS, &ib_query->link->handle, &ib_query->trans->handle, - &array_id, &ar->ar_desc, array_data, &ar->ar_size)) { - _php_ibase_error(); - efree(array_data); - return FAILURE; - } - buf[i].val.qval = array_id; - efree(array_data); - } - ++array_cnt; - continue; - } /* switch */ - - /* we end up here if none of the switch cases handled the field */ - convert_to_string(b_var); - var->sqldata = Z_STRVAL_P(b_var); - var->sqllen = Z_STRLEN_P(b_var); - var->sqltype = SQL_TEXT; - } /* for */ - return rv; -} -/* }}} */ - -static void _php_ibase_alloc_xsqlda(XSQLDA *sqlda) /* {{{ */ -{ - int i; - - for (i = 0; i < sqlda->sqld; i++) { - XSQLVAR *var = &sqlda->sqlvar[i]; - - switch (var->sqltype & ~1) { - case SQL_TEXT: - var->sqldata = safe_emalloc(sizeof(char), var->sqllen, 0); - break; - case SQL_VARYING: - var->sqldata = safe_emalloc(sizeof(char), var->sqllen + sizeof(short), 0); - break; - case SQL_SHORT: - var->sqldata = emalloc(sizeof(short)); - break; - case SQL_LONG: - var->sqldata = emalloc(sizeof(ISC_LONG)); - break; - case SQL_FLOAT: - var->sqldata = emalloc(sizeof(float)); - break; - case SQL_DOUBLE: - var->sqldata = emalloc(sizeof(double)); - break; - case SQL_INT64: - var->sqldata = emalloc(sizeof(ISC_INT64)); - break; - 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; - 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 */ -} -/* }}} */ - -static int _php_ibase_exec(INTERNAL_FUNCTION_PARAMETERS, ibase_result **ib_resultp, /* {{{ */ - ibase_query *ib_query, zval *args) -{ - XSQLDA *in_sqlda = NULL, *out_sqlda = NULL; - BIND_BUF *bind_buf = NULL; - int i, rv = FAILURE; - static char info_count[] = { isc_info_sql_records }; - char result[64]; - ISC_STATUS isc_result; - int argc = ib_query->in_sqlda ? ib_query->in_sqlda->sqld : 0; - - RESET_ERRMSG; - - for (i = 0; i < argc; ++i) { - SEPARATE_ZVAL(&args[i]); - } - - switch (ib_query->statement_type) { - isc_tr_handle tr; - ibase_tr_list **l; - ibase_trans *trans; - - case isc_info_sql_stmt_start_trans: - - /* a SET TRANSACTION statement should be executed with a NULL trans handle */ - tr = 0; - - if (isc_dsql_execute_immediate(IB_STATUS, &ib_query->link->handle, &tr, 0, - ib_query->query, ib_query->dialect, NULL)) { - _php_ibase_error(); - goto _php_ibase_exec_error; - } - - trans = (ibase_trans *) emalloc(sizeof(ibase_trans)); - trans->handle = tr; - trans->link_cnt = 1; - trans->affected_rows = 0; - trans->db_link[0] = ib_query->link; - - if (ib_query->link->tr_list == NULL) { - ib_query->link->tr_list = (ibase_tr_list *) emalloc(sizeof(ibase_tr_list)); - ib_query->link->tr_list->trans = NULL; - ib_query->link->tr_list->next = NULL; - } - - /* link the transaction into the connection-transaction list */ - for (l = &ib_query->link->tr_list; *l != NULL; l = &(*l)->next); - *l = (ibase_tr_list *) emalloc(sizeof(ibase_tr_list)); - (*l)->trans = trans; - (*l)->next = NULL; - - RETVAL_RES(zend_register_resource(trans, le_trans)); - Z_TRY_ADDREF_P(return_value); - - return SUCCESS; - - case isc_info_sql_stmt_commit: - case isc_info_sql_stmt_rollback: - - if (isc_dsql_execute_immediate(IB_STATUS, &ib_query->link->handle, - &ib_query->trans->handle, 0, ib_query->query, ib_query->dialect, NULL)) { - _php_ibase_error(); - goto _php_ibase_exec_error; - } - - if (ib_query->trans->handle == 0 && ib_query->trans_res != NULL) { - /* transaction was released by the query and was a registered resource, - so we have to release it */ - zend_list_delete(ib_query->trans_res); - ib_query->trans_res = NULL; - } - - RETVAL_TRUE; - - return SUCCESS; - - default: - RETVAL_FALSE; - } - - /* allocate sqlda and output buffers */ - if (ib_query->out_sqlda) { /* output variables in select, select for update */ - ibase_result *res; - - IBDEBUG("Query wants XSQLDA for output"); - res = emalloc(sizeof(ibase_result)+sizeof(ibase_array)*max(0,ib_query->out_array_cnt-1)); - res->link = ib_query->link; - res->trans = ib_query->trans; - res->stmt = ib_query->stmt; - /* ib_result and ib_query point at each other to handle release of statement handle properly */ - res->query = ib_query; - ib_query->result = res; - res->statement_type = ib_query->statement_type; - res->has_more_rows = 1; - - out_sqlda = res->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) { - memcpy(&res->out_array, ib_query->out_array, sizeof(ibase_array)*ib_query->out_array_cnt); - } - *ib_resultp = res; - } - - if (ib_query->in_sqlda) { /* has placeholders */ - IBDEBUG("Query wants XSQLDA for input"); - 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 = safe_emalloc(sizeof(BIND_BUF), ib_query->in_sqlda->sqld, 0); - if (_php_ibase_bind(in_sqlda, args, bind_buf, ib_query) == FAILURE) { - IBDEBUG("Could not bind input XSQLDA"); - goto _php_ibase_exec_error; - } - } - - if (ib_query->statement_type == isc_info_sql_stmt_exec_procedure) { - isc_result = isc_dsql_execute2(IB_STATUS, &ib_query->trans->handle, - &ib_query->stmt, SQLDA_CURRENT_VERSION, in_sqlda, out_sqlda); - } else { - isc_result = isc_dsql_execute(IB_STATUS, &ib_query->trans->handle, - &ib_query->stmt, SQLDA_CURRENT_VERSION, in_sqlda); - } - if (isc_result) { - IBDEBUG("Could not execute query"); - _php_ibase_error(); - goto _php_ibase_exec_error; - } - ib_query->trans->affected_rows = 0; - - switch (ib_query->statement_type) { - - unsigned long affected_rows; - - case isc_info_sql_stmt_insert: - case isc_info_sql_stmt_update: - case isc_info_sql_stmt_delete: - case isc_info_sql_stmt_exec_procedure: - - if (isc_dsql_sql_info(IB_STATUS, &ib_query->stmt, sizeof(info_count), - info_count, sizeof(result), result)) { - _php_ibase_error(); - goto _php_ibase_exec_error; - } - - affected_rows = 0; - - if (result[0] == isc_info_sql_records) { - unsigned i = 3, result_size = isc_vax_integer(&result[1],2); - - while (result[i] != isc_info_end && i < result_size) { - short len = (short)isc_vax_integer(&result[i+1],2); - if (result[i] != isc_info_req_select_count) { - affected_rows += isc_vax_integer(&result[i+3],len); - } - i += len+3; - } - } - - ib_query->trans->affected_rows = affected_rows; - - if (!ib_query->out_sqlda) { /* no result set is being returned */ - if (affected_rows) { - RETVAL_LONG(affected_rows); - } else { - RETVAL_TRUE; - } - break; - } - default: - RETVAL_TRUE; - } - - rv = SUCCESS; - -_php_ibase_exec_error: - - if (in_sqlda) { - efree(in_sqlda); - } - if (bind_buf) - efree(bind_buf); - - if (rv == FAILURE) { - if (*ib_resultp) { - efree(*ib_resultp); - *ib_resultp = NULL; - } - if (out_sqlda) { - _php_ibase_free_xsqlda(out_sqlda); - } - } - - return rv; -} -/* }}} */ - -/* {{{ proto mixed ibase_query([resource link_identifier, [ resource link_identifier, ]] string query [, mixed bind_arg [, mixed bind_arg [, ...]]]) - Execute a query */ -PHP_FUNCTION(ibase_query) -{ - zval *zlink, *ztrans, *bind_args = NULL; - char *query; - size_t query_len; - int bind_i, bind_num; - zend_resource *trans_res = NULL; - ibase_db_link *ib_link = NULL; - ibase_trans *trans = NULL; - ibase_query ib_query = { NULL, NULL, 0, 0 }; - ibase_result *result = NULL; - - RESET_ERRMSG; - - RETVAL_FALSE; - - switch (ZEND_NUM_ARGS()) { - zend_long l; - - default: - if (SUCCESS == zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, 3, "rrs", - &zlink, &ztrans, &query, &query_len)) { - - ib_link = (ibase_db_link*)zend_fetch_resource2_ex(zlink, LE_LINK, le_link, le_plink); - trans = (ibase_trans*)zend_fetch_resource_ex(ztrans, LE_TRANS, le_trans); - - trans_res = Z_RES_P(ztrans); - bind_i = 3; - break; - } - case 2: - if (SUCCESS == zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, 2, "rs", - &zlink, &query, &query_len)) { - _php_ibase_get_link_trans(INTERNAL_FUNCTION_PARAM_PASSTHRU, zlink, &ib_link, &trans); - - if (trans != NULL) { - trans_res = Z_RES_P(zlink); - } - bind_i = 2; - break; - } - - /* the statement is 'CREATE DATABASE ...' if the link argument is IBASE_CREATE */ - if (SUCCESS == zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, ZEND_NUM_ARGS(), - "ls", &l, &query, &query_len) && l == PHP_IBASE_CREATE) { - isc_db_handle db = 0; - isc_tr_handle trans = 0; - - if (((l = INI_INT("ibase.max_links")) != -1) && (IBG(num_links) >= l)) { - _php_ibase_module_error("CREATE DATABASE is not allowed: maximum link count " - "(" ZEND_LONG_FMT ") reached", l); - - } else if (isc_dsql_execute_immediate(IB_STATUS, &db, &trans, (short)query_len, - query, SQL_DIALECT_CURRENT, NULL)) { - _php_ibase_error(); - - } else if (!db) { - _php_ibase_module_error("Connection to created database could not be " - "established"); - - } 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->handle = db; - ib_link->dialect = SQL_DIALECT_CURRENT; - ib_link->tr_list = NULL; - ib_link->event_head = NULL; - - RETVAL_RES(zend_register_resource(ib_link, le_link)); - Z_TRY_ADDREF_P(return_value); - Z_TRY_ADDREF_P(return_value); - IBG(default_link) = Z_RES_P(return_value); - } - return; - } - case 1: - case 0: - if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() ? 1 : 0, "s", &query, - &query_len)) { - ib_link = (ibase_db_link *)zend_fetch_resource2(IBG(default_link), LE_LINK, le_link, le_plink); - - bind_i = 1; - break; - } - return; - } - - /* open default transaction */ - if (ib_link == NULL || FAILURE == _php_ibase_def_trans(ib_link, &trans) - || FAILURE == _php_ibase_alloc_query(&ib_query, ib_link, trans, query, ib_link->dialect, trans_res)) { - return; - } - - do { - int bind_n = ZEND_NUM_ARGS() - bind_i, - expected_n = ib_query.in_sqlda ? ib_query.in_sqlda->sqld : 0; - - if (bind_n != expected_n) { - php_error_docref(NULL, (bind_n < expected_n) ? E_WARNING : E_NOTICE, - "Statement expects %d arguments, %d given", expected_n, bind_n); - if (bind_n < expected_n) { - break; - } - } else if (bind_n > 0) { - if (zend_parse_parameters(ZEND_NUM_ARGS(), "+", &bind_args, &bind_num) == FAILURE) { - return; - } - } - - if (FAILURE == _php_ibase_exec(INTERNAL_FUNCTION_PARAM_PASSTHRU, &result, &ib_query, - &bind_args[bind_i])) { - break; - } - - if (result != NULL) { /* statement returns a result */ - result->type = QUERY_RESULT; - - /* EXECUTE PROCEDURE returns only one row => statement can be released immediately */ - if (ib_query.statement_type != isc_info_sql_stmt_exec_procedure) { - ib_query.stmt = 0; /* keep stmt when free query */ - } - RETVAL_RES(zend_register_resource(result, le_result)); - Z_TRY_ADDREF_P(return_value); - } - } while (0); - - _php_ibase_free_query(&ib_query); - -} -/* }}} */ - -/* {{{ proto int ibase_affected_rows( [ resource link_identifier ] ) - Returns the number of rows affected by the previous INSERT, UPDATE or DELETE statement */ -PHP_FUNCTION(ibase_affected_rows) -{ - ibase_trans *trans = NULL; - ibase_db_link *ib_link; - zval *arg = NULL; - - RESET_ERRMSG; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "|r", &arg) == FAILURE) { - return; - } - - if (!arg) { - ib_link = (ibase_db_link *)zend_fetch_resource2(IBG(default_link), LE_LINK, le_link, le_plink); - if (ib_link->tr_list == NULL || ib_link->tr_list->trans == NULL) { - RETURN_FALSE; - } - trans = ib_link->tr_list->trans; - } else { - /* one id was passed, could be db or trans id */ - _php_ibase_get_link_trans(INTERNAL_FUNCTION_PARAM_PASSTHRU, arg, &ib_link, &trans); - if (trans == NULL) { - ib_link = (ibase_db_link *)zend_fetch_resource2_ex(arg, LE_LINK, le_link, le_plink); - - if (ib_link->tr_list == NULL || ib_link->tr_list->trans == NULL) { - RETURN_FALSE; - } - trans = ib_link->tr_list->trans; - } - } - RETURN_LONG(trans->affected_rows); -} -/* }}} */ - -/* {{{ proto int ibase_num_rows( resource result_identifier ) - Return the number of rows that are available in a result */ -#if abies_0 -PHP_FUNCTION(ibase_num_rows) -{ - /** - * As this function relies on the InterBase API function isc_dsql_sql_info() - * which has a couple of limitations (which I hope will be fixed in future - * releases of Firebird), this function is fairly useless. I'm leaving it - * in place for people who can live with the limitations, which I only - * found out about after I had implemented it anyway. - * - * Currently, there's no way to determine how many rows can be fetched from - * a cursor. The only number that _can_ be determined is the number of rows - * that have already been pre-fetched by the client library. - * This implies the following: - * - num_rows() always returns zero before the first fetch; - * - num_rows() for SELECT ... FOR UPDATE is broken -> never returns a - * higher number than the number of records fetched so far (no pre-fetch); - * - the result of num_rows() for other statements is merely a lower bound - * on the number of records => calling ibase_num_rows() again after a couple - * of fetches will most likely return a new (higher) figure for large result - * sets. - */ - - zval *result_arg; - ibase_result *ib_result; - static char info_count[] = {isc_info_sql_records}; - char result[64]; - - RESET_ERRMSG; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "r", &result_arg) == FAILURE) { - return; - } - - ib_result = (ibase_result *)zend_fetch_resource_ex(&result_arg, LE_RESULT, le_result); - - if (isc_dsql_sql_info(IB_STATUS, &ib_result->stmt, sizeof(info_count), info_count, sizeof(result), result)) { - _php_ibase_error(); - RETURN_FALSE; - } - - if (result[0] == isc_info_sql_records) { - unsigned i = 3, result_size = isc_vax_integer(&result[1],2); - - while (result[i] != isc_info_end && i < result_size) { - short len = (short)isc_vax_integer(&result[i+1],2); - if (result[i] == isc_info_req_select_count) { - RETURN_LONG(isc_vax_integer(&result[i+3],len)); - } - i += len+3; - } - } -} -#endif -/* }}} */ - -static int _php_ibase_var_zval(zval *val, void *data, int type, int len, /* {{{ */ - int scale, int flag) -{ - static ISC_INT64 const scales[] = { 1, 10, 100, 1000, - 10000, - 100000, - 1000000, - 10000000, - 100000000, - 1000000000, - LL_LIT(10000000000), - LL_LIT(100000000000), - LL_LIT(1000000000000), - LL_LIT(10000000000000), - LL_LIT(100000000000000), - LL_LIT(1000000000000000), - LL_LIT(10000000000000000), - LL_LIT(100000000000000000), - LL_LIT(1000000000000000000) - }; - - switch (type & ~1) { - unsigned short l; - zend_long n; - char string_data[255]; - struct tm t; - char *format; - - case SQL_VARYING: - len = ((IBVARY *) data)->vary_length; - data = ((IBVARY *) data)->vary_string; - /* no break */ - case SQL_TEXT: - ZVAL_STRINGL(val, (char*)data, len); - break; - case SQL_SHORT: - n = *(short *) data; - goto _sql_long; - case SQL_INT64: -#if (SIZEOF_ZEND_LONG >= 8) - n = *(zend_long *) data; - goto _sql_long; -#else - if (scale == 0) { - l = slprintf(string_data, sizeof(string_data), "%" LL_MASK "d", *(ISC_INT64 *) data); - ZVAL_STRINGL(val,string_data,l); - } else { - ISC_INT64 n = *(ISC_INT64 *) data, f = scales[-scale]; - - if (n >= 0) { - l = slprintf(string_data, sizeof(string_data), "%" LL_MASK "d.%0*" LL_MASK "d", n / f, -scale, n % f); - } else if (n <= -f) { - l = slprintf(string_data, sizeof(string_data), "%" LL_MASK "d.%0*" LL_MASK "d", n / f, -scale, -n % f); - } else { - l = slprintf(string_data, sizeof(string_data), "-0.%0*" LL_MASK "d", -scale, -n % f); - } - ZVAL_STRINGL(val,string_data,l); - } - break; -#endif - case SQL_LONG: - n = *(ISC_LONG *) data; - _sql_long: - if (scale == 0) { - ZVAL_LONG(val,n); - } else { - zend_long f = (zend_long) scales[-scale]; - - if (n >= 0) { - l = slprintf(string_data, sizeof(string_data), ZEND_LONG_FMT ".%0*" ZEND_LONG_FMT_SPEC, n / f, -scale, n % f); - } else if (n <= -f) { - l = slprintf(string_data, sizeof(string_data), ZEND_LONG_FMT ".%0*" ZEND_LONG_FMT_SPEC, n / f, -scale, -n % f); - } else { - l = slprintf(string_data, sizeof(string_data), "-0.%0*" ZEND_LONG_FMT_SPEC, -scale, -n % f); - } - ZVAL_STRINGL(val, string_data, l); - } - break; - case SQL_FLOAT: - ZVAL_DOUBLE(val, *(float *) data); - break; - case SQL_DOUBLE: - ZVAL_DOUBLE(val, *(double *) data); - break; - case SQL_DATE: /* == case SQL_TIMESTAMP: */ - format = INI_STR("ibase.timestampformat"); - isc_decode_timestamp((ISC_TIMESTAMP *) data, &t); - goto format_date_time; - case SQL_TYPE_DATE: - format = INI_STR("ibase.dateformat"); - isc_decode_sql_date((ISC_DATE *) data, &t); - goto format_date_time; - case SQL_TYPE_TIME: - format = INI_STR("ibase.timeformat"); - isc_decode_sql_time((ISC_TIME *) data, &t); - -format_date_time: - /* - 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; -#if HAVE_STRUCT_TM_TM_ZONE - t.tm_zone = tzname[0]; -#endif - if (flag & PHP_IBASE_UNIXTIME) { - ZVAL_LONG(val, mktime(&t)); - } else { - l = strftime(string_data, sizeof(string_data), format, &t); - ZVAL_STRINGL(val, string_data, l); - break; - } - } /* switch (type) */ - return SUCCESS; -} -/* }}} */ - -static int _php_ibase_arr_zval(zval *ar_zval, char *data, zend_ulong data_size, /* {{{ */ - ibase_array *ib_array, int dim, int flag) -{ - /** - * Create multidimension array - recursion function - */ - int - 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; - unsigned short i; - - if (dim < ib_array->ar_desc.array_desc_dimensions) { /* array again */ - zend_ulong slice_size = data_size / dim_len; - - array_init(ar_zval); - - for (i = 0; i < dim_len; ++i) { - zval slice_zval; - - /* recursion here */ - if (FAILURE == _php_ibase_arr_zval(&slice_zval, data, slice_size, ib_array, dim + 1, - flag)) { - return FAILURE; - } - data += slice_size; - - add_index_zval(ar_zval, l_bound + i, &slice_zval); - } - } else { /* data at last */ - - if (FAILURE == _php_ibase_var_zval(ar_zval, data, ib_array->el_type, - ib_array->ar_desc.array_desc_length, ib_array->ar_desc.array_desc_scale, flag)) { - return FAILURE; - } - - /* fix for peculiar handling of VARCHAR arrays; - truncate the field to the cstring length */ - if (ib_array->ar_desc.array_desc_dtype == blr_varying || - ib_array->ar_desc.array_desc_dtype == blr_varying2) { - - Z_STRLEN_P(ar_zval) = strlen(Z_STRVAL_P(ar_zval)); - } - } - return SUCCESS; -} -/* }}} */ - -static void _php_ibase_fetch_hash(INTERNAL_FUNCTION_PARAMETERS, int fetch_type) /* {{{ */ -{ - zval *result_arg; - zend_long flag = 0; - zend_long i, array_cnt = 0; - ibase_result *ib_result; - - RESET_ERRMSG; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "r|l", &result_arg, &flag)) { - return; - } - - ib_result = (ibase_result *)zend_fetch_resource_ex(result_arg, LE_RESULT, le_result); - - if (ib_result->out_sqlda == NULL || !ib_result->has_more_rows) { - RETURN_FALSE; - } - - if (ib_result->statement_type != isc_info_sql_stmt_exec_procedure) { - if (isc_dsql_fetch(IB_STATUS, &ib_result->stmt, 1, ib_result->out_sqlda)) { - ib_result->has_more_rows = 0; - if (IB_STATUS[0] && IB_STATUS[1]) { /* error in fetch */ - _php_ibase_error(); - } - RETURN_FALSE; - } - } else { - ib_result->has_more_rows = 0; - } - - array_init(return_value); - - for (i = 0; i < ib_result->out_sqlda->sqld; ++i) { - XSQLVAR *var = &ib_result->out_sqlda->sqlvar[i]; - char buf[METADATALENGTH+4], *alias = var->aliasname; - - if (! (fetch_type & FETCH_ROW)) { - int i = 0; - char const *base = "FIELD"; /* use 'FIELD' if name is empty */ - - /** - * Ensure no two columns have identical names: - * keep generating new names until we find one that is unique. - */ - switch (*alias) { - void *p; - - default: - i = 1; - base = alias; - - while ((p = zend_symtable_str_find_ptr( - Z_ARRVAL_P(return_value), alias, strlen(alias))) != NULL) { - - case '\0': - snprintf(alias = buf, sizeof(buf), "%s_%02d", base, i++); - } - } - } - - if (((var->sqltype & 1) == 0) || *var->sqlind != -1) { - zval result; - - switch (var->sqltype & ~1) { - - default: - _php_ibase_var_zval(&result, var->sqldata, var->sqltype, var->sqllen, - var->sqlscale, flag); - break; - case SQL_BLOB: - if (flag & PHP_IBASE_FETCH_BLOBS) { /* fetch blob contents into hash */ - - ibase_blob blob_handle; - zend_ulong max_len = 0; - static char bl_items[] = {isc_info_blob_total_length}; - char bl_info[20]; - unsigned short i; - - blob_handle.bl_handle = 0; - blob_handle.bl_qd = *(ISC_QUAD *) var->sqldata; - - if (isc_open_blob(IB_STATUS, &ib_result->link->handle, &ib_result->trans->handle, - &blob_handle.bl_handle, &blob_handle.bl_qd)) { - _php_ibase_error(); - goto _php_ibase_fetch_error; - } - - if (isc_blob_info(IB_STATUS, &blob_handle.bl_handle, sizeof(bl_items), - bl_items, sizeof(bl_info), bl_info)) { - _php_ibase_error(); - goto _php_ibase_fetch_error; - } - - /* find total length of blob's data */ - for (i = 0; i < sizeof(bl_info); ) { - unsigned short item_len; - char item = bl_info[i++]; - - if (item == isc_info_end || item == isc_info_truncated || - item == isc_info_error || i >= sizeof(bl_info)) { - - _php_ibase_module_error("Could not determine BLOB size (internal error)" - ); - goto _php_ibase_fetch_error; - } - - item_len = (unsigned short) isc_vax_integer(&bl_info[i], 2); - - if (item == isc_info_blob_total_length) { - max_len = isc_vax_integer(&bl_info[i+2], item_len); - break; - } - i += item_len+2; - } - - if (max_len == 0) { - ZVAL_STRING(&result, ""); - } else if (SUCCESS != _php_ibase_blob_get(&result, &blob_handle, - max_len)) { - goto _php_ibase_fetch_error; - } - - if (isc_close_blob(IB_STATUS, &blob_handle.bl_handle)) { - _php_ibase_error(); - goto _php_ibase_fetch_error; - } - - } else { /* blob id only */ - ISC_QUAD bl_qd = *(ISC_QUAD *) var->sqldata; - ZVAL_NEW_STR(&result, _php_ibase_quad_to_string(bl_qd)); - } - break; - case SQL_ARRAY: - if (flag & PHP_IBASE_FETCH_ARRAYS) { /* array can be *huge* so only fetch if asked */ - ISC_QUAD ar_qd = *(ISC_QUAD *) var->sqldata; - ibase_array *ib_array = &ib_result->out_array[array_cnt++]; - void *ar_data = emalloc(ib_array->ar_size); - - if (isc_array_get_slice(IB_STATUS, &ib_result->link->handle, - &ib_result->trans->handle, &ar_qd, &ib_array->ar_desc, - ar_data, &ib_array->ar_size)) { - _php_ibase_error(); - efree(ar_data); - goto _php_ibase_fetch_error; - } - - if (FAILURE == _php_ibase_arr_zval(&result, ar_data, ib_array->ar_size, ib_array, - 0, flag)) { - efree(ar_data); - goto _php_ibase_fetch_error; - } - efree(ar_data); - - } else { /* blob id only */ - ISC_QUAD ar_qd = *(ISC_QUAD *) var->sqldata; - ZVAL_NEW_STR(&result, _php_ibase_quad_to_string(ar_qd)); - } - break; - _php_ibase_fetch_error: - zval_ptr_dtor_nogc(&result); - RETURN_FALSE; - } /* switch */ - - if (fetch_type & FETCH_ROW) { - add_index_zval(return_value, i, &result); - } else { - add_assoc_zval(return_value, alias, &result); - } - } else { - if (fetch_type & FETCH_ROW) { - add_index_null(return_value, i); - } else { - add_assoc_null(return_value, alias); - } - } - } /* for field */ -} -/* }}} */ - -/* {{{ proto array ibase_fetch_row(resource result [, int fetch_flags]) - 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 fetch_flags]) - 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 fetch_flags]) - 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) { - convert_to_object(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; - char *name_arg; - size_t name_arg_len; - ibase_result *ib_result; - - RESET_ERRMSG; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "rs", &result_arg, &name_arg, &name_arg_len) == FAILURE) { - return; - } - - ib_result = (ibase_result *)zend_fetch_resource_ex(result_arg, LE_RESULT, le_result); - - if (isc_dsql_set_cursor_name(IB_STATUS, &ib_result->stmt, name_arg, 0)) { - _php_ibase_error(); - 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_parse_parameters(ZEND_NUM_ARGS(), "r", &result_arg) == FAILURE) { - return; - } - - ib_result = (ibase_result *)zend_fetch_resource_ex(result_arg, LE_RESULT, le_result); - zend_list_delete(Z_RES_P(result_arg)); - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto resource ibase_prepare(resource link_identifier[, string query [, resource trans_identifier ]]) - Prepare a query for later execution */ -PHP_FUNCTION(ibase_prepare) -{ - zval *link_arg, *trans_arg; - ibase_db_link *ib_link; - ibase_trans *trans = NULL; - size_t query_len; - zend_resource *trans_res = NULL; - ibase_query *ib_query; - char *query; - - RESET_ERRMSG; - - if (ZEND_NUM_ARGS() == 1) { - if (zend_parse_parameters(ZEND_NUM_ARGS(), "s", &query, &query_len) == FAILURE) { - return; - } - ib_link = (ibase_db_link *)zend_fetch_resource2(IBG(default_link), LE_LINK, le_link, le_plink); - } else if (ZEND_NUM_ARGS() == 2) { - if (zend_parse_parameters(ZEND_NUM_ARGS(), "rs", &link_arg, &query, &query_len) == FAILURE) { - return; - } - _php_ibase_get_link_trans(INTERNAL_FUNCTION_PARAM_PASSTHRU, link_arg, &ib_link, &trans); - - if (trans != NULL) { - trans_res = Z_RES_P(link_arg); - } - } else { - if (zend_parse_parameters(ZEND_NUM_ARGS(), "rrs", &link_arg, &trans_arg, &query, &query_len) == FAILURE) { - return; - } - ib_link = (ibase_db_link *)zend_fetch_resource2_ex(link_arg, LE_LINK, le_link, le_plink); - trans = (ibase_trans *)zend_fetch_resource_ex(trans_arg, LE_TRANS, le_trans); - trans_res = Z_RES_P(trans_arg); - } - - if (FAILURE == _php_ibase_def_trans(ib_link, &trans)) { - RETURN_FALSE; - } - - ib_query = (ibase_query *) emalloc(sizeof(ibase_query)); - - if (FAILURE == _php_ibase_alloc_query(ib_query, ib_link, trans, query, ib_link->dialect, trans_res)) { - efree(ib_query); - RETURN_FALSE; - } - RETVAL_RES(zend_register_resource(ib_query, le_query)); - Z_TRY_ADDREF_P(return_value); -} -/* }}} */ - -/* {{{ proto mixed ibase_execute(resource query [, mixed bind_arg [, mixed bind_arg [, ...]]]) - Execute a previously prepared query */ -PHP_FUNCTION(ibase_execute) -{ - zval *query, *args = NULL; - ibase_query *ib_query; - ibase_result *result = NULL; - int bind_n = 0; - - RESET_ERRMSG; - - RETVAL_FALSE; - - if (FAILURE == zend_parse_parameters(ZEND_NUM_ARGS(), "|r*", &query, &args, &bind_n)) { - return; - } - - ib_query = (ibase_query *)zend_fetch_resource_ex(query, LE_QUERY, le_query); - - do { - int expected_n = ib_query->in_sqlda ? ib_query->in_sqlda->sqld : 0; - - if (bind_n != expected_n) { - php_error_docref(NULL, (bind_n < expected_n) ? E_WARNING : E_NOTICE, - "Statement expects %d arguments, %d given", expected_n, bind_n); - - if (bind_n < expected_n) { - break; - } - } - - /* Have we used this cursor before and it's still open (exec proc has no cursor) ? */ - if (ib_query->result_res != NULL - && ib_query->statement_type != isc_info_sql_stmt_exec_procedure) { - IBDEBUG("Implicitly closing a cursor"); - - if (isc_dsql_free_statement(IB_STATUS, &ib_query->stmt, DSQL_close)) { - _php_ibase_error(); - break; - } - zend_list_delete(ib_query->result_res); - ib_query->result_res = NULL; - } - - if (FAILURE == _php_ibase_exec(INTERNAL_FUNCTION_PARAM_PASSTHRU, &result, ib_query, - args)) { - break; - } - - /* free the query if trans handle was released */ - if (ib_query->trans->handle == 0) { - zend_list_delete(Z_RES_P(query)); - } - - if (result != NULL) { - zval *ret; - - result->type = EXECUTE_RESULT; - if (ib_query->statement_type == isc_info_sql_stmt_exec_procedure) { - result->stmt = 0; - } - - ret = zend_list_insert(result, le_result); - ib_query->result_res = Z_RES_P(ret); - ZVAL_COPY_VALUE(return_value, ret); - Z_TRY_ADDREF_P(return_value); - Z_TRY_ADDREF_P(return_value); - } - } while (0); -} -/* }}} */ - -/* {{{ 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_parse_parameters(ZEND_NUM_ARGS(), "r", &query_arg) == FAILURE) { - return; - } - - ib_query = (ibase_query *)zend_fetch_resource_ex(query_arg, LE_QUERY, le_query); - if (!ib_query) { - RETURN_FALSE; - } - - zend_list_close(Z_RES_P(query_arg)); - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto int ibase_num_fields(resource query_result) - Get the number of fields in result */ -PHP_FUNCTION(ibase_num_fields) -{ - zval *result; - int type; - XSQLDA *sqlda; - - RESET_ERRMSG; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "r", &result) == FAILURE) { - return; - } - - type = Z_RES_P(result)->type; - - if (type == le_query) { - ibase_query *ib_query; - - ib_query = (ibase_query *)zend_fetch_resource_ex(result, LE_QUERY, le_query); - sqlda = ib_query->out_sqlda; - } else { - ibase_result *ib_result; - - ib_result = (ibase_result *)zend_fetch_resource_ex(result, LE_RESULT, le_result); - sqlda = ib_result->out_sqlda; - } - - if (sqlda == NULL) { - RETURN_LONG(0); - } else { - RETURN_LONG(sqlda->sqld); - } -} -/* }}} */ - -static void _php_ibase_field_info(zval *return_value, XSQLVAR *var) /* {{{ */ -{ - unsigned short len; - char buf[16], *s = buf; - - array_init(return_value); - - add_index_stringl(return_value, 0, var->sqlname, var->sqlname_length); - add_assoc_stringl(return_value, "name", var->sqlname, var->sqlname_length); - - add_index_stringl(return_value, 1, var->aliasname, var->aliasname_length); - add_assoc_stringl(return_value, "alias", var->aliasname, var->aliasname_length); - - add_index_stringl(return_value, 2, var->relname, var->relname_length); - add_assoc_stringl(return_value, "relation", var->relname, var->relname_length); - - len = slprintf(buf, 16, "%d", var->sqllen); - add_index_stringl(return_value, 3, buf, len); - add_assoc_stringl(return_value, "length", buf, len); - - if (var->sqlscale < 0) { - unsigned short precision = 0; - - switch (var->sqltype & ~1) { - - case SQL_SHORT: - precision = 4; - break; - case SQL_LONG: - precision = 9; - break; - case SQL_INT64: - precision = 18; - break; - } - len = slprintf(buf, 16, "NUMERIC(%d,%d)", precision, -var->sqlscale); - add_index_stringl(return_value, 4, s, len); - add_assoc_stringl(return_value, "type", s, len); - } else { - switch (var->sqltype & ~1) { - case SQL_TEXT: - s = "CHAR"; - break; - case SQL_VARYING: - s = "VARCHAR"; - break; - case SQL_SHORT: - s = "SMALLINT"; - break; - case SQL_LONG: - s = "INTEGER"; - break; - case SQL_FLOAT: - s = "FLOAT"; break; - case SQL_DOUBLE: - case SQL_D_FLOAT: - s = "DOUBLE PRECISION"; break; - case SQL_INT64: - s = "BIGINT"; - break; - case SQL_TIMESTAMP: - s = "TIMESTAMP"; - break; - case SQL_TYPE_DATE: - s = "DATE"; - break; - case SQL_TYPE_TIME: - s = "TIME"; - break; - case SQL_BLOB: - s = "BLOB"; - break; - case SQL_ARRAY: - s = "ARRAY"; - break; - /* FIXME: provide more detailed information about the field type, field size - * and array dimensions */ - case SQL_QUAD: - s = "QUAD"; - break; - } - add_index_string(return_value, 4, s); - add_assoc_string(return_value, "type", s); - } -} -/* }}} */ - -/* {{{ proto array ibase_field_info(resource query_result, int field_number) - Get information about a field */ -PHP_FUNCTION(ibase_field_info) -{ - zval *result_arg; - zend_long field_arg; - int type; - XSQLDA *sqlda; - - RESET_ERRMSG; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "rl", &result_arg, &field_arg) == FAILURE) { - return; - } - - type = Z_RES_P(result_arg)->type; - - if (type == le_query) { - ibase_query *ib_query; - - ib_query= (ibase_query *)zend_fetch_resource_ex(result_arg, LE_QUERY, le_query); - sqlda = ib_query->out_sqlda; - } else { - ibase_result *ib_result; - - ib_result = (ibase_result *)zend_fetch_resource_ex(result_arg, LE_RESULT, le_result); - sqlda = ib_result->out_sqlda; - } - - if (sqlda == NULL) { - _php_ibase_module_error("Trying to get field info from a non-select query"); - RETURN_FALSE; - } - - if (field_arg < 0 || field_arg >= sqlda->sqld) { - RETURN_FALSE; - } - _php_ibase_field_info(return_value, sqlda->sqlvar + field_arg); -} -/* }}} */ - -/* {{{ proto int ibase_num_params(resource query) - Get the number of params in a prepared query */ -PHP_FUNCTION(ibase_num_params) -{ - zval *result; - ibase_query *ib_query; - - RESET_ERRMSG; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "r", &result) == FAILURE) { - return; - } - - ib_query = (ibase_query *)zend_fetch_resource_ex(result, LE_QUERY, le_query); - - if (ib_query->in_sqlda == NULL) { - RETURN_LONG(0); - } else { - RETURN_LONG(ib_query->in_sqlda->sqld); - } -} -/* }}} */ - -/* {{{ proto array ibase_param_info(resource query, int field_number) - Get information about a parameter */ -PHP_FUNCTION(ibase_param_info) -{ - zval *result_arg; - zend_long field_arg; - ibase_query *ib_query; - - RESET_ERRMSG; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "rl", &result_arg, &field_arg) == FAILURE) { - return; - } - - ib_query = (ibase_query *)zend_fetch_resource_ex(result_arg, LE_QUERY, le_query); - - if (ib_query->in_sqlda == NULL) { - RETURN_FALSE; - } - - if (field_arg < 0 || field_arg >= ib_query->in_sqlda->sqld) { - RETURN_FALSE; - } - - _php_ibase_field_info(return_value,ib_query->in_sqlda->sqlvar + field_arg); -} -/* }}} */ - -#endif /* HAVE_IBASE */ diff --git a/ext/interbase/ibase_service.c b/ext/interbase/ibase_service.c deleted file mode 100644 index 8108726bdd..0000000000 --- a/ext/interbase/ibase_service.c +++ /dev/null @@ -1,620 +0,0 @@ -/* - +----------------------------------------------------------------------+ - | PHP Version 7 | - +----------------------------------------------------------------------+ - | Copyright (c) The PHP Group | - +----------------------------------------------------------------------+ - | This source file is subject to version 3.01 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_01.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: Ard Biesheuvel <a.k.biesheuvel@its.tudelft.nl> | - +----------------------------------------------------------------------+ - */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif - -#include "php.h" - -#if HAVE_IBASE - -#include "php_interbase.h" -#include "php_ibase_includes.h" - -typedef struct { - isc_svc_handle handle; - char *hostname; - char *username; - zend_resource *res; -} ibase_service; - -static int le_service; - -static void _php_ibase_free_service(zend_resource *rsrc) /* {{{ */ -{ - ibase_service *sv = (ibase_service *) rsrc->ptr; - - if (isc_service_detach(IB_STATUS, &sv->handle)) { - _php_ibase_error(); - } - - if (sv->hostname) { - efree(sv->hostname); - } - if (sv->username) { - efree(sv->username); - } - - efree(sv); -} -/* }}} */ - -/* the svc api seems to get confused after an error has occurred, - so invalidate the handle on errors */ -#define IBASE_SVC_ERROR(svm) \ - do { zend_list_delete(svm->res); _php_ibase_error(); } while (0) - - -void php_ibase_service_minit(INIT_FUNC_ARGS) /* {{{ */ -{ - le_service = zend_register_list_destructors_ex(_php_ibase_free_service, NULL, - "interbase service manager handle", module_number); - - /* backup options */ - REGISTER_LONG_CONSTANT("IBASE_BKP_IGNORE_CHECKSUMS", isc_spb_bkp_ignore_checksums, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_BKP_IGNORE_LIMBO", isc_spb_bkp_ignore_limbo, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_BKP_METADATA_ONLY", isc_spb_bkp_metadata_only, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_BKP_NO_GARBAGE_COLLECT", isc_spb_bkp_no_garbage_collect, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_BKP_OLD_DESCRIPTIONS", isc_spb_bkp_old_descriptions, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_BKP_NON_TRANSPORTABLE", isc_spb_bkp_non_transportable, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_BKP_CONVERT", isc_spb_bkp_convert, CONST_PERSISTENT); - - /* restore options */ - REGISTER_LONG_CONSTANT("IBASE_RES_DEACTIVATE_IDX", isc_spb_res_deactivate_idx, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_RES_NO_SHADOW", isc_spb_res_no_shadow, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_RES_NO_VALIDITY", isc_spb_res_no_validity, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_RES_ONE_AT_A_TIME", isc_spb_res_one_at_a_time, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_RES_REPLACE", isc_spb_res_replace, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_RES_CREATE", isc_spb_res_create, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_RES_USE_ALL_SPACE", isc_spb_res_use_all_space, CONST_PERSISTENT); - - /* manage options */ - REGISTER_LONG_CONSTANT("IBASE_PRP_PAGE_BUFFERS", isc_spb_prp_page_buffers, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_SWEEP_INTERVAL", isc_spb_prp_sweep_interval, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_SHUTDOWN_DB", isc_spb_prp_shutdown_db, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_DENY_NEW_TRANSACTIONS", isc_spb_prp_deny_new_transactions, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_DENY_NEW_ATTACHMENTS", isc_spb_prp_deny_new_attachments, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_RESERVE_SPACE", isc_spb_prp_reserve_space, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_RES_USE_FULL", isc_spb_prp_res_use_full, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_RES", isc_spb_prp_res, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_WRITE_MODE", isc_spb_prp_write_mode, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_WM_ASYNC", isc_spb_prp_wm_async, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_WM_SYNC", isc_spb_prp_wm_sync, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_ACCESS_MODE", isc_spb_prp_access_mode, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_AM_READONLY", isc_spb_prp_am_readonly, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_AM_READWRITE", isc_spb_prp_am_readwrite, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_SET_SQL_DIALECT", isc_spb_prp_set_sql_dialect, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_ACTIVATE", isc_spb_prp_activate, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_PRP_DB_ONLINE", isc_spb_prp_db_online, CONST_PERSISTENT); - - /* repair options */ - REGISTER_LONG_CONSTANT("IBASE_RPR_CHECK_DB", isc_spb_rpr_check_db, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_RPR_IGNORE_CHECKSUM", isc_spb_rpr_ignore_checksum, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_RPR_KILL_SHADOWS", isc_spb_rpr_kill_shadows, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_RPR_MEND_DB", isc_spb_rpr_mend_db, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_RPR_VALIDATE_DB", isc_spb_rpr_validate_db, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_RPR_FULL", isc_spb_rpr_full, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_RPR_SWEEP_DB", isc_spb_rpr_sweep_db, CONST_PERSISTENT); - - /* db info arguments */ - REGISTER_LONG_CONSTANT("IBASE_STS_DATA_PAGES", isc_spb_sts_data_pages, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_STS_DB_LOG", isc_spb_sts_db_log, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_STS_HDR_PAGES", isc_spb_sts_hdr_pages, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_STS_IDX_PAGES", isc_spb_sts_idx_pages, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_STS_SYS_RELATIONS", isc_spb_sts_sys_relations, CONST_PERSISTENT); - - /* server info arguments */ - REGISTER_LONG_CONSTANT("IBASE_SVC_SERVER_VERSION", isc_info_svc_server_version, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_SVC_IMPLEMENTATION", isc_info_svc_implementation, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_SVC_GET_ENV", isc_info_svc_get_env, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_SVC_GET_ENV_LOCK", isc_info_svc_get_env_lock, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_SVC_GET_ENV_MSG", isc_info_svc_get_env_msg, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_SVC_USER_DBPATH", isc_info_svc_user_dbpath, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_SVC_SVR_DB_INFO", isc_info_svc_svr_db_info, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_SVC_GET_USERS", isc_info_svc_get_users, CONST_PERSISTENT); -} -/* }}} */ - -static void _php_ibase_user(INTERNAL_FUNCTION_PARAMETERS, char operation) /* {{{ */ -{ - /* user = 0, password = 1, first_name = 2, middle_name = 3, last_name = 4 */ - static char const user_flags[] = { isc_spb_sec_username, isc_spb_sec_password, - isc_spb_sec_firstname, isc_spb_sec_middlename, isc_spb_sec_lastname }; - char buf[128], *args[] = { NULL, NULL, NULL, NULL, NULL }; - int i, args_len[] = { 0, 0, 0, 0, 0 }; - unsigned short spb_len = 1; - zval *res; - ibase_service *svm; - - RESET_ERRMSG; - - if (FAILURE == zend_parse_parameters(ZEND_NUM_ARGS(), - (operation == isc_action_svc_delete_user) ? "rs" : "rss|sss", - &res, &args[0], &args_len[0], &args[1], &args_len[1], &args[2], &args_len[2], - &args[3], &args_len[3], &args[4], &args_len[4])) { - RETURN_FALSE; - } - - svm = (ibase_service *)zend_fetch_resource_ex(res, "Interbase service manager handle", - le_service); - - buf[0] = operation; - - for (i = 0; i < sizeof(user_flags); ++i) { - if (args[i] != NULL) { - int chunk = slprintf(&buf[spb_len], sizeof(buf) - spb_len, "%c%c%c%s", - user_flags[i], (char)args_len[i], (char)(args_len[i] >> 8), args[i]); - - if ((spb_len + chunk) > sizeof(buf) || chunk <= 0) { - _php_ibase_module_error("Internal error: insufficient buffer space for SPB (%d)", spb_len); - RETURN_FALSE; - } - spb_len += chunk; - } - } - - /* now start the job */ - if (isc_service_start(IB_STATUS, &svm->handle, NULL, spb_len, buf)) { - IBASE_SVC_ERROR(svm); - RETURN_FALSE; - } - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto bool ibase_add_user(resource service_handle, string user_name, string password [, string first_name [, string middle_name [, string last_name]]]) - Add a user to security database */ -PHP_FUNCTION(ibase_add_user) -{ - _php_ibase_user(INTERNAL_FUNCTION_PARAM_PASSTHRU, isc_action_svc_add_user); -} -/* }}} */ - -/* {{{ proto bool ibase_modify_user(resource service_handle, string user_name, string password [, string first_name [, string middle_name [, string last_name]]]) - Modify a user in security database */ -PHP_FUNCTION(ibase_modify_user) -{ - _php_ibase_user(INTERNAL_FUNCTION_PARAM_PASSTHRU, isc_action_svc_modify_user); -} -/* }}} */ - -/* {{{ proto bool ibase_delete_user(resource service_handle, string user_name, string password [, string first_name [, string middle_name [, string last_name]]]) - Delete a user from security database */ -PHP_FUNCTION(ibase_delete_user) -{ - _php_ibase_user(INTERNAL_FUNCTION_PARAM_PASSTHRU, isc_action_svc_delete_user); -} -/* }}} */ - -/* {{{ proto resource ibase_service_attach(string host, string dba_username, string dba_password) - Connect to the service manager */ -PHP_FUNCTION(ibase_service_attach) -{ - size_t hlen, ulen, plen, spb_len; - ibase_service *svm; - char buf[128], *host, *user, *pass, *loc; - isc_svc_handle handle = 0; - - RESET_ERRMSG; - - if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS(), "sss", - &host, &hlen, &user, &ulen, &pass, &plen)) { - - RETURN_FALSE; - } - - /* construct the spb, hack the service name into it as well */ - spb_len = slprintf(buf, sizeof(buf), "%c%c%c%c%s%c%c%s" "%s:service_mgr", - isc_spb_version, isc_spb_current_version, isc_spb_user_name, (char)ulen, - user, isc_spb_password, (char)plen, pass, host); - - if (spb_len > sizeof(buf) || spb_len == -1) { - _php_ibase_module_error("Internal error: insufficient buffer space for SPB (%zd)", spb_len); - RETURN_FALSE; - } - - spb_len -= hlen + 12; - loc = buf + spb_len; /* points to %s:service_mgr part */ - - /* attach to the service manager */ - if (isc_service_attach(IB_STATUS, 0, loc, &handle, (unsigned short)spb_len, buf)) { - _php_ibase_error(); - RETURN_FALSE; - } - - svm = (ibase_service*)emalloc(sizeof(ibase_service)); - svm->handle = handle; - svm->hostname = estrdup(host); - svm->username = estrdup(user); - - RETVAL_RES(zend_register_resource(svm, le_service)); - Z_TRY_ADDREF_P(return_value); - svm->res = Z_RES_P(return_value); -} -/* }}} */ - -/* {{{ proto bool ibase_service_detach(resource service_handle) - Disconnect from the service manager */ -PHP_FUNCTION(ibase_service_detach) -{ - zval *res; - - RESET_ERRMSG; - - if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS(), "r", &res)) { - RETURN_FALSE; - } - - zend_list_delete(Z_RES_P(res)); - - RETURN_TRUE; -} -/* }}} */ - -static void _php_ibase_service_query(INTERNAL_FUNCTION_PARAMETERS, /* {{{ */ - ibase_service *svm, char info_action) -{ - static char spb[] = { isc_info_svc_timeout, 10, 0, 0, 0 }; - - char res_buf[400], *result, *heap_buf = NULL, *heap_p; - zend_long heap_buf_size = 200, line_len; - - /* info about users requires an action first */ - if (info_action == isc_info_svc_get_users) { - static char action[] = { isc_action_svc_display_user }; - - if (isc_service_start(IB_STATUS, &svm->handle, NULL, sizeof(action), action)) { - IBASE_SVC_ERROR(svm); - RETURN_FALSE; - } - } - -query_loop: - result = res_buf; - - if (isc_service_query(IB_STATUS, &svm->handle, NULL, sizeof(spb), spb, - 1, &info_action, sizeof(res_buf), res_buf)) { - - IBASE_SVC_ERROR(svm); - RETURN_FALSE; - } - while (*result != isc_info_end) { - switch (*result++) { - default: - RETURN_FALSE; - - case isc_info_svc_line: - if (! (line_len = isc_vax_integer(result, 2))) { - /* done */ - if (heap_buf) { - RETVAL_STRING(heap_buf); - efree(heap_buf); - return; - } else { - RETURN_TRUE; - } - } - if (!heap_buf || (heap_p - heap_buf + line_len +2) > heap_buf_size) { - zend_long res_size = heap_buf ? heap_p - heap_buf : 0; - - while (heap_buf_size < (res_size + line_len +2)) { - heap_buf_size *= 2; - } - heap_buf = (char*) erealloc(heap_buf, heap_buf_size); - heap_p = heap_buf + res_size; - } - result += 2; - *(result+line_len) = 0; - snprintf(heap_p, heap_buf_size - (heap_p - heap_buf), "%s\n", result); - heap_p += line_len +1; - goto query_loop; /* repeat until result is exhausted */ - - case isc_info_svc_server_version: - case isc_info_svc_implementation: - case isc_info_svc_get_env: - case isc_info_svc_get_env_lock: - case isc_info_svc_get_env_msg: - case isc_info_svc_user_dbpath: - RETURN_STRINGL(result + 2, isc_vax_integer(result, 2)); - - case isc_info_svc_svr_db_info: - array_init(return_value); - - do { - switch (*result++) { - int len; - - case isc_spb_num_att: - add_assoc_long(return_value, "attachments", isc_vax_integer(result,4)); - result += 4; - break; - - case isc_spb_num_db: - add_assoc_long(return_value, "databases", isc_vax_integer(result,4)); - result += 4; - break; - - case isc_spb_dbname: - len = isc_vax_integer(result,2); - add_next_index_stringl(return_value, result +2, len); - result += len+2; - } - } while (*result != isc_info_flag_end); - return; - - case isc_info_svc_get_users: { - zval user; - array_init(return_value); - - while (*result != isc_info_end) { - - switch (*result++) { - int len; - - case isc_spb_sec_username: - /* it appears that the username is always first */ - array_init(&user); - add_next_index_zval(return_value, &user); - - len = isc_vax_integer(result,2); - add_assoc_stringl(&user, "user_name", result +2, len); - result += len+2; - break; - - case isc_spb_sec_firstname: - len = isc_vax_integer(result,2); - add_assoc_stringl(&user, "first_name", result +2, len); - result += len+2; - break; - - case isc_spb_sec_middlename: - len = isc_vax_integer(result,2); - add_assoc_stringl(&user, "middle_name", result +2, len); - result += len+2; - break; - - case isc_spb_sec_lastname: - len = isc_vax_integer(result,2); - add_assoc_stringl(&user, "last_name", result +2, len); - result += len+2; - break; - - case isc_spb_sec_userid: - add_assoc_long(&user, "user_id", isc_vax_integer(result, 4)); - result += 4; - break; - - case isc_spb_sec_groupid: - add_assoc_long(&user, "group_id", isc_vax_integer(result, 4)); - result += 4; - break; - } - } - return; - } - } - } -} -/* }}} */ - -static void _php_ibase_backup_restore(INTERNAL_FUNCTION_PARAMETERS, char operation) /* {{{ */ -{ - /** - * It appears that the service API is a little bit confused about which flag - * to use for the source and destination in the case of a restore operation. - * When passing the backup file as isc_spb_dbname and the destination db as - * bpk_file, things work well. - */ - zval *res; - char *db, *bk, buf[200]; - size_t dblen, bklen, spb_len; - zend_long opts = 0; - zend_bool verbose = 0; - ibase_service *svm; - - RESET_ERRMSG; - - if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS(), "rss|lb", - &res, &db, &dblen, &bk, &bklen, &opts, &verbose)) { - RETURN_FALSE; - } - - svm = (ibase_service *)zend_fetch_resource_ex(res, - "Interbase service manager handle", le_service); - - /* fill the param buffer */ - spb_len = slprintf(buf, sizeof(buf), "%c%c%c%c%s%c%c%c%s%c%c%c%c%c", - operation, isc_spb_dbname, (char)dblen, (char)(dblen >> 8), db, - isc_spb_bkp_file, (char)bklen, (char)(bklen >> 8), bk, isc_spb_options, - (char)opts,(char)(opts >> 8), (char)(opts >> 16), (char)(opts >> 24)); - - if (verbose) { - buf[spb_len++] = isc_spb_verbose; - } - - if (spb_len > sizeof(buf) || spb_len <= 0) { - _php_ibase_module_error("Internal error: insufficient buffer space for SPB (%zd)", spb_len); - RETURN_FALSE; - } - - /* now start the backup/restore job */ - if (isc_service_start(IB_STATUS, &svm->handle, NULL, (unsigned short)spb_len, buf)) { - IBASE_SVC_ERROR(svm); - RETURN_FALSE; - } - - if (!verbose) { - RETURN_TRUE; - } else { - _php_ibase_service_query(INTERNAL_FUNCTION_PARAM_PASSTHRU, svm, isc_info_svc_line); - } -} -/* }}} */ - -/* {{{ proto mixed ibase_backup(resource service_handle, string source_db, string dest_file [, int options [, bool verbose]]) - Initiates a backup task in the service manager and returns immediately */ -PHP_FUNCTION(ibase_backup) -{ - _php_ibase_backup_restore(INTERNAL_FUNCTION_PARAM_PASSTHRU, isc_action_svc_backup); -} -/* }}} */ - -/* {{{ proto mixed ibase_restore(resource service_handle, string source_file, string dest_db [, int options [, bool verbose]]) - Initiates a restore task in the service manager and returns immediately */ -PHP_FUNCTION(ibase_restore) -{ - _php_ibase_backup_restore(INTERNAL_FUNCTION_PARAM_PASSTHRU, isc_action_svc_restore); -} -/* }}} */ - -static void _php_ibase_service_action(INTERNAL_FUNCTION_PARAMETERS, char svc_action) /* {{{ */ -{ - zval *res; - char buf[128], *db; - size_t dblen; - int spb_len; - zend_long action, argument = 0; - ibase_service *svm; - - RESET_ERRMSG; - - if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS(), "rsl|l", - &res, &db, &dblen, &action, &argument)) { - RETURN_FALSE; - } - - svm = (ibase_service *)zend_fetch_resource_ex(res, - "Interbase service manager handle", le_service); - - if (svc_action == isc_action_svc_db_stats) { - switch (action) { - default: - goto unknown_option; - - case isc_spb_sts_data_pages: - case isc_spb_sts_db_log: - case isc_spb_sts_hdr_pages: - case isc_spb_sts_idx_pages: - case isc_spb_sts_sys_relations: - goto options_argument; - } - } else { - /* these actions all expect different types of arguments */ - switch (action) { - default: -unknown_option: - _php_ibase_module_error("Unrecognised option (" ZEND_LONG_FMT ")", action); - RETURN_FALSE; - - case isc_spb_rpr_check_db: - case isc_spb_rpr_ignore_checksum: - case isc_spb_rpr_kill_shadows: - case isc_spb_rpr_mend_db: - case isc_spb_rpr_validate_db: - case isc_spb_rpr_sweep_db: - svc_action = isc_action_svc_repair; - - case isc_spb_prp_activate: - case isc_spb_prp_db_online: -options_argument: - argument |= action; - action = isc_spb_options; - - case isc_spb_prp_page_buffers: - case isc_spb_prp_sweep_interval: - case isc_spb_prp_shutdown_db: - case isc_spb_prp_deny_new_transactions: - case isc_spb_prp_deny_new_attachments: - case isc_spb_prp_set_sql_dialect: - spb_len = slprintf(buf, sizeof(buf), "%c%c%c%c%s%c%c%c%c%c", - svc_action, isc_spb_dbname, (char)dblen, (char)(dblen >> 8), db, - (char)action, (char)argument, (char)(argument >> 8), (char)(argument >> 16), - (char)(argument >> 24)); - break; - - case isc_spb_prp_reserve_space: - case isc_spb_prp_write_mode: - case isc_spb_prp_access_mode: - spb_len = slprintf(buf, sizeof(buf), "%c%c%c%c%s%c%c", - isc_action_svc_properties, isc_spb_dbname, (char)dblen, (char)(dblen >> 8), - db, (char)action, (char)argument); - } - } - - if (spb_len > sizeof(buf) || spb_len == -1) { - _php_ibase_module_error("Internal error: insufficient buffer space for SPB (%d)", spb_len); - RETURN_FALSE; - } - - if (isc_service_start(IB_STATUS, &svm->handle, NULL, (unsigned short)spb_len, buf)) { - IBASE_SVC_ERROR(svm); - RETURN_FALSE; - } - - if (svc_action == isc_action_svc_db_stats) { - _php_ibase_service_query(INTERNAL_FUNCTION_PARAM_PASSTHRU, svm, isc_info_svc_line); - } else { - RETURN_TRUE; - } -} -/* }}} */ - -/* {{{ proto bool ibase_maintain_db(resource service_handle, string db, int action [, int argument]) - Execute a maintenance command on the database server */ -PHP_FUNCTION(ibase_maintain_db) -{ - _php_ibase_service_action(INTERNAL_FUNCTION_PARAM_PASSTHRU, isc_action_svc_properties); -} -/* }}} */ - -/* {{{ proto string ibase_db_info(resource service_handle, string db, int action [, int argument]) - Request statistics about a database */ -PHP_FUNCTION(ibase_db_info) -{ - _php_ibase_service_action(INTERNAL_FUNCTION_PARAM_PASSTHRU, isc_action_svc_db_stats); -} -/* }}} */ - -/* {{{ proto string ibase_server_info(resource service_handle, int action) - Request information about a database server */ -PHP_FUNCTION(ibase_server_info) -{ - zval *res; - zend_long action; - ibase_service *svm; - - RESET_ERRMSG; - - if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS(), "rl", &res, &action)) { - RETURN_FALSE; - } - - svm = (ibase_service *)zend_fetch_resource_ex(res, - "Interbase service manager handle", le_service); - - _php_ibase_service_query(INTERNAL_FUNCTION_PARAM_PASSTHRU, svm, (char)action); -} -/* }}} */ - -#else - -void php_ibase_register_service_constants(INIT_FUNC_ARGS) { /* nop */ } - -#endif /* HAVE_IBASE */ diff --git a/ext/interbase/interbase.c b/ext/interbase/interbase.c deleted file mode 100644 index b69a76f26e..0000000000 --- a/ext/interbase/interbase.c +++ /dev/null @@ -1,1467 +0,0 @@ -/* - +----------------------------------------------------------------------+ - | PHP Version 7 | - +----------------------------------------------------------------------+ - | Copyright (c) The PHP Group | - +----------------------------------------------------------------------+ - | This source file is subject to version 3.01 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_01.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> | - | Ard Biesheuvel <a.k.biesheuvel@ewi.tudelft.nl> | - +----------------------------------------------------------------------+ - */ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif - -#define _GNU_SOURCE - -#include "php.h" - -#if HAVE_IBASE - -#include "php_ini.h" -#include "ext/standard/php_standard.h" -#include "ext/standard/md5.h" -#include "php_interbase.h" -#include "php_ibase_includes.h" -#include "SAPI.h" - -#include <time.h> - -#define ROLLBACK 0 -#define COMMIT 1 -#define RETAIN 2 - -#define CHECK_LINK(link) { if (link==NULL) { php_error_docref(NULL, E_WARNING, "A link to the server could not be established"); RETURN_FALSE; } } - -ZEND_DECLARE_MODULE_GLOBALS(ibase) -static PHP_GINIT_FUNCTION(ibase); - -/* {{{ arginfo */ -ZEND_BEGIN_ARG_INFO(arginfo_ibase_errmsg, 0) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO(arginfo_ibase_errcode, 0) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_connect, 0, 0, 0) - ZEND_ARG_INFO(0, database) - ZEND_ARG_INFO(0, username) - ZEND_ARG_INFO(0, password) - ZEND_ARG_INFO(0, charset) - ZEND_ARG_INFO(0, buffers) - ZEND_ARG_INFO(0, dialect) - ZEND_ARG_INFO(0, role) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_pconnect, 0, 0, 0) - ZEND_ARG_INFO(0, database) - ZEND_ARG_INFO(0, username) - ZEND_ARG_INFO(0, password) - ZEND_ARG_INFO(0, charset) - ZEND_ARG_INFO(0, buffers) - ZEND_ARG_INFO(0, dialect) - ZEND_ARG_INFO(0, role) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_close, 0, 0, 0) - ZEND_ARG_INFO(0, link_identifier) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_drop_db, 0, 0, 0) - ZEND_ARG_INFO(0, link_identifier) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_trans, 0, 0, 0) - ZEND_ARG_INFO(0, trans_args) - ZEND_ARG_INFO(0, link_identifier) - ZEND_ARG_INFO(0, trans_args) - ZEND_ARG_INFO(0, link_identifier) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_commit, 0, 0, 1) - ZEND_ARG_INFO(0, link_identifier) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_rollback, 0, 0, 1) - ZEND_ARG_INFO(0, link_identifier) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_commit_ret, 0, 0, 1) - ZEND_ARG_INFO(0, link_identifier) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_rollback_ret, 0, 0, 1) - ZEND_ARG_INFO(0, link_identifier) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_gen_id, 0, 0, 1) - ZEND_ARG_INFO(0, generator) - ZEND_ARG_INFO(0, increment) - ZEND_ARG_INFO(0, link_identifier) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_blob_create, 0, 0, 0) - ZEND_ARG_INFO(0, link_identifier) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_blob_open, 0, 0, 0) - ZEND_ARG_INFO(0, link_identifier) - ZEND_ARG_INFO(0, blob_id) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_blob_add, 0, 0, 2) - ZEND_ARG_INFO(0, blob_handle) - ZEND_ARG_INFO(0, data) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_blob_get, 0, 0, 2) - ZEND_ARG_INFO(0, blob_handle) - ZEND_ARG_INFO(0, len) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_blob_close, 0, 0, 1) - ZEND_ARG_INFO(0, blob_handle) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_blob_cancel, 0, 0, 1) - ZEND_ARG_INFO(0, blob_handle) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_blob_info, 0, 0, 0) - ZEND_ARG_INFO(0, link_identifier) - ZEND_ARG_INFO(0, blob_id) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_blob_echo, 0, 0, 0) - ZEND_ARG_INFO(0, link_identifier) - ZEND_ARG_INFO(0, blob_id) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_blob_import, 0, 0, 0) - ZEND_ARG_INFO(0, link_identifier) - ZEND_ARG_INFO(0, file) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_query, 0, 0, 0) - ZEND_ARG_INFO(0, link_identifier) - ZEND_ARG_INFO(0, link_identifier) - ZEND_ARG_INFO(0, query) - ZEND_ARG_INFO(0, bind_arg) - ZEND_ARG_INFO(0, bind_arg) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_affected_rows, 0, 0, 0) - ZEND_ARG_INFO(0, link_identifier) -ZEND_END_ARG_INFO() - -#if abies_0 -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_num_rows, 0, 0, 1) - ZEND_ARG_INFO(0, result_identifier) -ZEND_END_ARG_INFO() -#endif - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_fetch_row, 0, 0, 1) - ZEND_ARG_INFO(0, result) - ZEND_ARG_INFO(0, fetch_flags) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_fetch_assoc, 0, 0, 1) - ZEND_ARG_INFO(0, result) - ZEND_ARG_INFO(0, fetch_flags) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_fetch_object, 0, 0, 1) - ZEND_ARG_INFO(0, result) - ZEND_ARG_INFO(0, fetch_flags) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_name_result, 0, 0, 2) - ZEND_ARG_INFO(0, result) - ZEND_ARG_INFO(0, name) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_free_result, 0, 0, 1) - ZEND_ARG_INFO(0, result) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_prepare, 0, 0, 0) - ZEND_ARG_INFO(0, link_identifier) - ZEND_ARG_INFO(0, query) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_execute, 0, 0, 1) - ZEND_ARG_INFO(0, query) - ZEND_ARG_INFO(0, bind_arg) - ZEND_ARG_INFO(0, bind_arg) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_free_query, 0, 0, 1) - ZEND_ARG_INFO(0, query) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_num_fields, 0, 0, 1) - ZEND_ARG_INFO(0, query_result) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_field_info, 0, 0, 2) - ZEND_ARG_INFO(0, query_result) - ZEND_ARG_INFO(0, field_number) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_num_params, 0, 0, 1) - ZEND_ARG_INFO(0, query) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_param_info, 0, 0, 2) - ZEND_ARG_INFO(0, query) - ZEND_ARG_INFO(0, field_number) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_add_user, 0, 0, 3) - ZEND_ARG_INFO(0, service_handle) - ZEND_ARG_INFO(0, user_name) - ZEND_ARG_INFO(0, password) - ZEND_ARG_INFO(0, first_name) - ZEND_ARG_INFO(0, middle_name) - ZEND_ARG_INFO(0, last_name) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_modify_user, 0, 0, 3) - ZEND_ARG_INFO(0, service_handle) - ZEND_ARG_INFO(0, user_name) - ZEND_ARG_INFO(0, password) - ZEND_ARG_INFO(0, first_name) - ZEND_ARG_INFO(0, middle_name) - ZEND_ARG_INFO(0, last_name) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_delete_user, 0, 0, 3) - ZEND_ARG_INFO(0, service_handle) - ZEND_ARG_INFO(0, user_name) - ZEND_ARG_INFO(0, password) - ZEND_ARG_INFO(0, first_name) - ZEND_ARG_INFO(0, middle_name) - ZEND_ARG_INFO(0, last_name) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_service_attach, 0, 0, 3) - ZEND_ARG_INFO(0, host) - ZEND_ARG_INFO(0, dba_username) - ZEND_ARG_INFO(0, dba_password) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_service_detach, 0, 0, 1) - ZEND_ARG_INFO(0, service_handle) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_backup, 0, 0, 3) - ZEND_ARG_INFO(0, service_handle) - ZEND_ARG_INFO(0, source_db) - ZEND_ARG_INFO(0, dest_file) - ZEND_ARG_INFO(0, options) - ZEND_ARG_INFO(0, verbose) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_restore, 0, 0, 3) - ZEND_ARG_INFO(0, service_handle) - ZEND_ARG_INFO(0, source_file) - ZEND_ARG_INFO(0, dest_db) - ZEND_ARG_INFO(0, options) - ZEND_ARG_INFO(0, verbose) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_maintain_db, 0, 0, 3) - ZEND_ARG_INFO(0, service_handle) - ZEND_ARG_INFO(0, db) - ZEND_ARG_INFO(0, action) - ZEND_ARG_INFO(0, argument) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_db_info, 0, 0, 3) - ZEND_ARG_INFO(0, service_handle) - ZEND_ARG_INFO(0, db) - ZEND_ARG_INFO(0, action) - ZEND_ARG_INFO(0, argument) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_server_info, 0, 0, 2) - ZEND_ARG_INFO(0, service_handle) - ZEND_ARG_INFO(0, action) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_wait_event, 0, 0, 1) - ZEND_ARG_INFO(0, link_identifier) - ZEND_ARG_INFO(0, event) - ZEND_ARG_INFO(0, event2) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_set_event_handler, 0, 0, 2) - ZEND_ARG_INFO(0, link_identifier) - ZEND_ARG_INFO(0, handler) - ZEND_ARG_INFO(0, event) - ZEND_ARG_INFO(0, event2) -ZEND_END_ARG_INFO() - -ZEND_BEGIN_ARG_INFO_EX(arginfo_ibase_free_event_handler, 0, 0, 1) - ZEND_ARG_INFO(0, event) -ZEND_END_ARG_INFO() -/* }}} */ - -/* {{{ extension definition structures */ -static const zend_function_entry ibase_functions[] = { - PHP_FE(ibase_connect, arginfo_ibase_connect) - PHP_FE(ibase_pconnect, arginfo_ibase_pconnect) - PHP_FE(ibase_close, arginfo_ibase_close) - PHP_FE(ibase_drop_db, arginfo_ibase_drop_db) - PHP_FE(ibase_query, arginfo_ibase_query) - PHP_FE(ibase_fetch_row, arginfo_ibase_fetch_row) - PHP_FE(ibase_fetch_assoc, arginfo_ibase_fetch_assoc) - PHP_FE(ibase_fetch_object, arginfo_ibase_fetch_object) - PHP_FE(ibase_free_result, arginfo_ibase_free_result) - PHP_FE(ibase_name_result, arginfo_ibase_name_result) - PHP_FE(ibase_prepare, arginfo_ibase_prepare) - PHP_FE(ibase_execute, arginfo_ibase_execute) - PHP_FE(ibase_free_query, arginfo_ibase_free_query) - PHP_FE(ibase_gen_id, arginfo_ibase_gen_id) - PHP_FE(ibase_num_fields, arginfo_ibase_num_fields) - PHP_FE(ibase_num_params, arginfo_ibase_num_params) -#if abies_0 - PHP_FE(ibase_num_rows, arginfo_ibase_num_rows) -#endif - PHP_FE(ibase_affected_rows, arginfo_ibase_affected_rows) - PHP_FE(ibase_field_info, arginfo_ibase_field_info) - PHP_FE(ibase_param_info, arginfo_ibase_param_info) - - PHP_FE(ibase_trans, arginfo_ibase_trans) - PHP_FE(ibase_commit, arginfo_ibase_commit) - PHP_FE(ibase_rollback, arginfo_ibase_rollback) - PHP_FE(ibase_commit_ret, arginfo_ibase_commit_ret) - PHP_FE(ibase_rollback_ret, arginfo_ibase_rollback_ret) - - PHP_FE(ibase_blob_info, arginfo_ibase_blob_info) - PHP_FE(ibase_blob_create, arginfo_ibase_blob_create) - PHP_FE(ibase_blob_add, arginfo_ibase_blob_add) - PHP_FE(ibase_blob_cancel, arginfo_ibase_blob_cancel) - PHP_FE(ibase_blob_close, arginfo_ibase_blob_close) - PHP_FE(ibase_blob_open, arginfo_ibase_blob_open) - PHP_FE(ibase_blob_get, arginfo_ibase_blob_get) - PHP_FE(ibase_blob_echo, arginfo_ibase_blob_echo) - PHP_FE(ibase_blob_import, arginfo_ibase_blob_import) - PHP_FE(ibase_errmsg, arginfo_ibase_errmsg) - PHP_FE(ibase_errcode, arginfo_ibase_errcode) - - PHP_FE(ibase_add_user, arginfo_ibase_add_user) - PHP_FE(ibase_modify_user, arginfo_ibase_modify_user) - PHP_FE(ibase_delete_user, arginfo_ibase_delete_user) - - PHP_FE(ibase_service_attach, arginfo_ibase_service_attach) - PHP_FE(ibase_service_detach, arginfo_ibase_service_detach) - PHP_FE(ibase_backup, arginfo_ibase_backup) - PHP_FE(ibase_restore, arginfo_ibase_restore) - PHP_FE(ibase_maintain_db, arginfo_ibase_maintain_db) - PHP_FE(ibase_db_info, arginfo_ibase_db_info) - PHP_FE(ibase_server_info, arginfo_ibase_server_info) - - PHP_FE(ibase_wait_event, arginfo_ibase_wait_event) - PHP_FE(ibase_set_event_handler, arginfo_ibase_set_event_handler) - PHP_FE(ibase_free_event_handler, arginfo_ibase_free_event_handler) - - /** - * These aliases are provided in order to maintain forward compatibility. As Firebird - * and InterBase are developed independently, functionality might be different between - * the two branches in future versions. - * Firebird users should use the aliases, so future InterBase-specific changes will - * not affect their code - */ - PHP_FALIAS(fbird_connect, ibase_connect, arginfo_ibase_connect) - PHP_FALIAS(fbird_pconnect, ibase_pconnect, arginfo_ibase_pconnect) - PHP_FALIAS(fbird_close, ibase_close, arginfo_ibase_close) - PHP_FALIAS(fbird_drop_db, ibase_drop_db, arginfo_ibase_drop_db) - PHP_FALIAS(fbird_query, ibase_query, arginfo_ibase_query) - PHP_FALIAS(fbird_fetch_row, ibase_fetch_row, arginfo_ibase_fetch_row) - PHP_FALIAS(fbird_fetch_assoc, ibase_fetch_assoc, arginfo_ibase_fetch_assoc) - PHP_FALIAS(fbird_fetch_object, ibase_fetch_object, arginfo_ibase_fetch_object) - PHP_FALIAS(fbird_free_result, ibase_free_result, arginfo_ibase_free_result) - PHP_FALIAS(fbird_name_result, ibase_name_result, arginfo_ibase_name_result) - PHP_FALIAS(fbird_prepare, ibase_prepare, arginfo_ibase_prepare) - PHP_FALIAS(fbird_execute, ibase_execute, arginfo_ibase_execute) - PHP_FALIAS(fbird_free_query, ibase_free_query, arginfo_ibase_free_query) - PHP_FALIAS(fbird_gen_id, ibase_gen_id, arginfo_ibase_gen_id) - PHP_FALIAS(fbird_num_fields, ibase_num_fields, arginfo_ibase_num_fields) - PHP_FALIAS(fbird_num_params, ibase_num_params, arginfo_ibase_num_params) -#if abies_0 - PHP_FALIAS(fbird_num_rows, ibase_num_rows, arginfo_ibase_num_rows) -#endif - PHP_FALIAS(fbird_affected_rows, ibase_affected_rows, arginfo_ibase_affected_rows) - PHP_FALIAS(fbird_field_info, ibase_field_info, arginfo_ibase_field_info) - PHP_FALIAS(fbird_param_info, ibase_param_info, arginfo_ibase_param_info) - - PHP_FALIAS(fbird_trans, ibase_trans, arginfo_ibase_trans) - PHP_FALIAS(fbird_commit, ibase_commit, arginfo_ibase_commit) - PHP_FALIAS(fbird_rollback, ibase_rollback, arginfo_ibase_rollback) - PHP_FALIAS(fbird_commit_ret, ibase_commit_ret, arginfo_ibase_commit_ret) - PHP_FALIAS(fbird_rollback_ret, ibase_rollback_ret, arginfo_ibase_rollback_ret) - - PHP_FALIAS(fbird_blob_info, ibase_blob_info, arginfo_ibase_blob_info) - PHP_FALIAS(fbird_blob_create, ibase_blob_create, arginfo_ibase_blob_create) - PHP_FALIAS(fbird_blob_add, ibase_blob_add, arginfo_ibase_blob_add) - PHP_FALIAS(fbird_blob_cancel, ibase_blob_cancel, arginfo_ibase_blob_cancel) - PHP_FALIAS(fbird_blob_close, ibase_blob_close, arginfo_ibase_blob_close) - PHP_FALIAS(fbird_blob_open, ibase_blob_open, arginfo_ibase_blob_open) - PHP_FALIAS(fbird_blob_get, ibase_blob_get, arginfo_ibase_blob_get) - PHP_FALIAS(fbird_blob_echo, ibase_blob_echo, arginfo_ibase_blob_echo) - PHP_FALIAS(fbird_blob_import, ibase_blob_import, arginfo_ibase_blob_import) - PHP_FALIAS(fbird_errmsg, ibase_errmsg, arginfo_ibase_errmsg) - PHP_FALIAS(fbird_errcode, ibase_errcode, arginfo_ibase_errcode) - - PHP_FALIAS(fbird_add_user, ibase_add_user, arginfo_ibase_add_user) - PHP_FALIAS(fbird_modify_user, ibase_modify_user, arginfo_ibase_modify_user) - PHP_FALIAS(fbird_delete_user, ibase_delete_user, arginfo_ibase_delete_user) - - PHP_FALIAS(fbird_service_attach, ibase_service_attach, arginfo_ibase_service_attach) - PHP_FALIAS(fbird_service_detach, ibase_service_detach, arginfo_ibase_service_detach) - PHP_FALIAS(fbird_backup, ibase_backup, arginfo_ibase_backup) - PHP_FALIAS(fbird_restore, ibase_restore, arginfo_ibase_restore) - PHP_FALIAS(fbird_maintain_db, ibase_maintain_db, arginfo_ibase_maintain_db) - PHP_FALIAS(fbird_db_info, ibase_db_info, arginfo_ibase_db_info) - PHP_FALIAS(fbird_server_info, ibase_server_info, arginfo_ibase_server_info) - - PHP_FALIAS(fbird_wait_event, ibase_wait_event, arginfo_ibase_wait_event) - PHP_FALIAS(fbird_set_event_handler, ibase_set_event_handler, arginfo_ibase_set_event_handler) - PHP_FALIAS(fbird_free_event_handler, ibase_free_event_handler, arginfo_ibase_free_event_handler) - PHP_FE_END -}; - -zend_module_entry ibase_module_entry = { - STANDARD_MODULE_HEADER, - "interbase", - ibase_functions, - PHP_MINIT(ibase), - PHP_MSHUTDOWN(ibase), - NULL, - PHP_RSHUTDOWN(ibase), - PHP_MINFO(ibase), - PHP_INTERBASE_VERSION, - PHP_MODULE_GLOBALS(ibase), - PHP_GINIT(ibase), - NULL, - NULL, - STANDARD_MODULE_PROPERTIES_EX -}; - -#ifdef COMPILE_DL_INTERBASE -#ifdef ZTS -ZEND_TSRMLS_CACHE_DEFINE() -#endif -ZEND_GET_MODULE(ibase) -#endif - -/* True globals, no need for thread safety */ -int le_link, le_plink, le_trans; - -/* }}} */ - -/* error handling ---------------------------- */ - -/* {{{ proto string ibase_errmsg(void) - Return error message */ -PHP_FUNCTION(ibase_errmsg) -{ - if (zend_parse_parameters_none() == FAILURE) { - return; - } - - if (IBG(sql_code) != 0) { - RETURN_STRING(IBG(errmsg)); - } - - RETURN_FALSE; -} -/* }}} */ - -/* {{{ proto int ibase_errcode(void) - Return error code */ -PHP_FUNCTION(ibase_errcode) -{ - if (zend_parse_parameters_none() == FAILURE) { - return; - } - - if (IBG(sql_code) != 0) { - RETURN_LONG(IBG(sql_code)); - } - RETURN_FALSE; -} -/* }}} */ - -/* print interbase error and save it for ibase_errmsg() */ -void _php_ibase_error(void) /* {{{ */ -{ - char *s = IBG(errmsg); - const ISC_STATUS *statusp = IB_STATUS; - - IBG(sql_code) = isc_sqlcode(IB_STATUS); - - while ((s - IBG(errmsg)) < MAX_ERRMSG && fb_interpret(s, MAX_ERRMSG - strlen(IBG(errmsg)) - 1, &statusp)) { - strcat(IBG(errmsg), " "); - s = IBG(errmsg) + strlen(IBG(errmsg)); - } - - php_error_docref(NULL, E_WARNING, "%s", IBG(errmsg)); -} -/* }}} */ - -/* print php interbase module error and save it for ibase_errmsg() */ -void _php_ibase_module_error(char *msg, ...) /* {{{ */ -{ - va_list ap; - - 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); - - IBG(sql_code) = -999; /* no SQL error */ - - php_error_docref(NULL, E_WARNING, "%s", IBG(errmsg)); -} -/* }}} */ - -/* {{{ internal macros, functions and structures */ -typedef struct { - isc_db_handle *db_ptr; - zend_long tpb_len; - char *tpb_ptr; -} ISC_TEB; - -/* }}} */ - -/* Fill ib_link and trans with the correct database link and transaction. */ -void _php_ibase_get_link_trans(INTERNAL_FUNCTION_PARAMETERS, /* {{{ */ - zval *link_id, ibase_db_link **ib_link, ibase_trans **trans) -{ - IBDEBUG("Transaction or database link?"); - if (Z_RES_P(link_id)->type == le_trans) { - /* Transaction resource: make sure it refers to one link only, then - fetch it; database link is stored in ib_trans->db_link[]. */ - IBDEBUG("Type is le_trans"); - *trans = (ibase_trans *)zend_fetch_resource_ex(link_id, LE_TRANS, le_trans); - if ((*trans)->link_cnt > 1) { - _php_ibase_module_error("Link id is ambiguous: transaction spans multiple connections." - ); - return; - } - *ib_link = (*trans)->db_link[0]; - return; - } - IBDEBUG("Type is le_[p]link or id not found"); - /* Database link resource, use default transaction. */ - *trans = NULL; - *ib_link = (ibase_db_link *)zend_fetch_resource2_ex(link_id, LE_LINK, le_link, le_plink); -} -/* }}} */ - -/* destructors ---------------------- */ - -static void _php_ibase_commit_link(ibase_db_link *link) /* {{{ */ -{ - unsigned short i = 0, j; - ibase_tr_list *l; - ibase_event *e; - IBDEBUG("Checking transactions to close..."); - - for (l = link->tr_list; l != NULL; ++i) { - ibase_tr_list *p = l; - if (p->trans != 0) { - if (i == 0) { - if (p->trans->handle != 0) { - IBDEBUG("Committing default transaction..."); - if (isc_commit_transaction(IB_STATUS, &p->trans->handle)) { - _php_ibase_error(); - } - } - efree(p->trans); /* default transaction is not a registered resource: clean up */ - } else { - if (p->trans->handle != 0) { - /* non-default trans 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(); - } - } - /* set this link pointer to NULL in the transaction */ - for (j = 0; j < p->trans->link_cnt; ++j) { - if (p->trans->db_link[j] == link) { - p->trans->db_link[j] = NULL; - break; - } - } - } - } - l = l->next; - efree(p); - } - link->tr_list = NULL; - - for (e = link->event_head; e; e = e->event_next) { - _php_ibase_free_event(e); - e->link = NULL; - } -} - -/* }}} */ - -static void php_ibase_commit_link_rsrc(zend_resource *rsrc) /* {{{ */ -{ - ibase_db_link *link = (ibase_db_link *) rsrc->ptr; - - _php_ibase_commit_link(link); -} -/* }}} */ - -static void _php_ibase_close_link(zend_resource *rsrc) /* {{{ */ -{ - ibase_db_link *link = (ibase_db_link *) rsrc->ptr; - - _php_ibase_commit_link(link); - if (link->handle != 0) { - IBDEBUG("Closing normal link..."); - isc_detach_database(IB_STATUS, &link->handle); - } - IBG(num_links)--; - efree(link); -} -/* }}} */ - -static void _php_ibase_close_plink(zend_resource *rsrc) /* {{{ */ -{ - ibase_db_link *link = (ibase_db_link *) rsrc->ptr; - - _php_ibase_commit_link(link); - IBDEBUG("Closing permanent link..."); - if (link->handle != 0) { - isc_detach_database(IB_STATUS, &link->handle); - } - IBG(num_persistent)--; - IBG(num_links)--; - free(link); -} -/* }}} */ - -static void _php_ibase_free_trans(zend_resource *rsrc) /* {{{ */ -{ - ibase_trans *trans = (ibase_trans *)rsrc->ptr; - unsigned short i; - - IBDEBUG("Cleaning up transaction resource..."); - if (trans->handle != 0) { - IBDEBUG("Rolling back unhandled transaction..."); - if (isc_rollback_transaction(IB_STATUS, &trans->handle)) { - _php_ibase_error(); - } - } - - /* now remove this transaction from all the connection-transaction lists */ - for (i = 0; i < trans->link_cnt; ++i) { - if (trans->db_link[i] != NULL) { - ibase_tr_list **l; - for (l = &trans->db_link[i]->tr_list; *l != NULL; l = &(*l)->next) { - if ( (*l)->trans == trans) { - ibase_tr_list *p = *l; - *l = p->next; - efree(p); - break; - } - } - } - } - efree(trans); -} -/* }}} */ - -/* TODO this function should be part of either Zend or PHP API */ -static PHP_INI_DISP(php_ibase_password_displayer_cb) -{ - - if ((type == PHP_INI_DISPLAY_ORIG && ini_entry->orig_value) - || (type == PHP_INI_DISPLAY_ACTIVE && ini_entry->value)) { - PUTS("********"); - } else if (!sapi_module.phpinfo_as_text) { - PUTS("<i>no value</i>"); - } else { - PUTS("no value"); - } -} - -/* {{{ startup, shutdown and info functions */ -PHP_INI_BEGIN() - PHP_INI_ENTRY_EX("ibase.allow_persistent", "1", PHP_INI_SYSTEM, NULL, zend_ini_boolean_displayer_cb) - PHP_INI_ENTRY_EX("ibase.max_persistent", "-1", PHP_INI_SYSTEM, NULL, display_link_numbers) - PHP_INI_ENTRY_EX("ibase.max_links", "-1", PHP_INI_SYSTEM, NULL, display_link_numbers) - PHP_INI_ENTRY("ibase.default_db", NULL, PHP_INI_SYSTEM, NULL) - PHP_INI_ENTRY("ibase.default_user", NULL, PHP_INI_ALL, NULL) - PHP_INI_ENTRY_EX("ibase.default_password", NULL, PHP_INI_ALL, NULL, php_ibase_password_displayer_cb) - PHP_INI_ENTRY("ibase.default_charset", NULL, PHP_INI_ALL, NULL) - PHP_INI_ENTRY("ibase.timestampformat", IB_DEF_DATE_FMT " " IB_DEF_TIME_FMT, PHP_INI_ALL, NULL) - PHP_INI_ENTRY("ibase.dateformat", IB_DEF_DATE_FMT, PHP_INI_ALL, NULL) - PHP_INI_ENTRY("ibase.timeformat", IB_DEF_TIME_FMT, PHP_INI_ALL, NULL) -PHP_INI_END() - -static PHP_GINIT_FUNCTION(ibase) -{ -#if defined(COMPILE_DL_INTERBASE) && defined(ZTS) - ZEND_TSRMLS_CACHE_UPDATE(); -#endif - ibase_globals->num_persistent = ibase_globals->num_links = 0; - ibase_globals->sql_code = *ibase_globals->errmsg = 0; - ibase_globals->default_link = NULL; -} - -PHP_MINIT_FUNCTION(ibase) -{ - REGISTER_INI_ENTRIES(); - - le_link = zend_register_list_destructors_ex(_php_ibase_close_link, NULL, LE_LINK, module_number); - le_plink = zend_register_list_destructors_ex(php_ibase_commit_link_rsrc, _php_ibase_close_plink, LE_PLINK, module_number); - le_trans = zend_register_list_destructors_ex(_php_ibase_free_trans, NULL, LE_TRANS, module_number); - - REGISTER_LONG_CONSTANT("IBASE_DEFAULT", PHP_IBASE_DEFAULT, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_CREATE", PHP_IBASE_CREATE, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_TEXT", PHP_IBASE_FETCH_BLOBS, CONST_PERSISTENT); /* deprecated, for BC only */ - REGISTER_LONG_CONSTANT("IBASE_FETCH_BLOBS", PHP_IBASE_FETCH_BLOBS, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_FETCH_ARRAYS", PHP_IBASE_FETCH_ARRAYS, CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("IBASE_UNIXTIME", PHP_IBASE_UNIXTIME, 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); - - php_ibase_query_minit(INIT_FUNC_ARGS_PASSTHRU); - php_ibase_blobs_minit(INIT_FUNC_ARGS_PASSTHRU); - php_ibase_events_minit(INIT_FUNC_ARGS_PASSTHRU); - php_ibase_service_minit(INIT_FUNC_ARGS_PASSTHRU); - - return SUCCESS; -} - -PHP_MSHUTDOWN_FUNCTION(ibase) -{ -#ifndef PHP_WIN32 - /** - * When the Interbase client API library libgds.so is first loaded, it registers a call to - * gds__cleanup() with atexit(), in order to clean up after itself when the process exits. - * This means that the library is called at process shutdown, and cannot be unloaded beforehand. - * PHP tries to unload modules after every request [dl()'ed modules], and right before the - * process shuts down [modules loaded from php.ini]. This results in a segfault for this module. - * By NULLing the dlopen() handle in the module entry, Zend omits the call to dlclose(), - * ensuring that the module will remain present until the process exits. However, the functions - * and classes exported by the module will not be available until the module is 'reloaded'. - * When reloaded, dlopen() will return the handle of the already loaded module. The module will - * be unloaded automatically when the process exits. - */ - zend_module_entry *ibase_entry; - if ((ibase_entry = zend_hash_str_find_ptr(&module_registry, ibase_module_entry.name, - strlen(ibase_module_entry.name))) != NULL) { - ibase_entry->handle = 0; - } -#endif - UNREGISTER_INI_ENTRIES(); - return SUCCESS; -} - -PHP_RSHUTDOWN_FUNCTION(ibase) -{ - IBG(num_links) = IBG(num_persistent); - IBG(default_link)= NULL; - - RESET_ERRMSG; - - return SUCCESS; -} - -PHP_MINFO_FUNCTION(ibase) -{ - char tmp[64], *s; - - php_info_print_table_start(); - php_info_print_table_row(2, "Firebird/InterBase Support", -#ifdef COMPILE_DL_INTERBASE - "dynamic"); -#else - "static"); -#endif - -#ifdef FB_API_VER - snprintf( (s = tmp), sizeof(tmp), "Firebird API version %d", FB_API_VER); -#elif (SQLDA_CURRENT_VERSION > 1) - s = "Interbase 7.0 and up"; -#endif - php_info_print_table_row(2, "Compile-time Client Library Version", s); - -#if defined(__GNUC__) || defined(PHP_WIN32) - do { - info_func_t info_func = NULL; -#ifdef __GNUC__ - info_func = (info_func_t)dlsym(RTLD_DEFAULT, "isc_get_client_version"); -#else - HMODULE l = GetModuleHandle("fbclient"); - - if (!l && !(l = GetModuleHandle("gds32"))) { - break; - } - info_func = (info_func_t)GetProcAddress(l, "isc_get_client_version"); -#endif - if (info_func) { - info_func(s = tmp); - } - php_info_print_table_row(2, "Run-time Client Library Version", s); - } while (0); -#endif - php_info_print_table_end(); - - DISPLAY_INI_ENTRIES(); - -} -/* }}} */ - -enum connect_args { DB = 0, USER = 1, PASS = 2, CSET = 3, ROLE = 4, BUF = 0, DLECT = 1, SYNC = 2 }; - -static char const dpb_args[] = { - 0, isc_dpb_user_name, isc_dpb_password, isc_dpb_lc_ctype, isc_dpb_sql_role_name, 0 -}; - -int _php_ibase_attach_db(char **args, size_t *len, zend_long *largs, isc_db_handle *db) /* {{{ */ -{ - short i, dpb_len, buf_len = 257-2; /* version byte at the front, and a null at the end */ - char dpb_buffer[257] = { isc_dpb_version1, 0 }, *dpb; - - dpb = dpb_buffer + 1; - - for (i = 0; i < sizeof(dpb_args); ++i) { - if (dpb_args[i] && args[i] && len[i] && buf_len > 0) { - dpb_len = slprintf(dpb, buf_len, "%c%c%s", dpb_args[i],(unsigned char)len[i],args[i]); - dpb += dpb_len; - buf_len -= dpb_len; - } - } - if (largs[BUF] && buf_len > 0) { - dpb_len = slprintf(dpb, buf_len, "%c\2%c%c", isc_dpb_num_buffers, - (char)(largs[BUF] >> 8), (char)(largs[BUF] & 0xff)); - dpb += dpb_len; - buf_len -= dpb_len; - } - if (largs[SYNC] && buf_len > 0) { - dpb_len = slprintf(dpb, buf_len, "%c\1%c", isc_dpb_force_write, largs[SYNC] == isc_spb_prp_wm_sync); - dpb += dpb_len; - buf_len -= dpb_len; - } - if (isc_attach_database(IB_STATUS, (short)len[DB], args[DB], db, (short)(dpb-dpb_buffer), dpb_buffer)) { - _php_ibase_error(); - return FAILURE; - } - return SUCCESS; -} -/* }}} */ - -static void _php_ibase_connect(INTERNAL_FUNCTION_PARAMETERS, int persistent) /* {{{ */ -{ - char *c, hash[16], *args[] = { NULL, NULL, NULL, NULL, NULL }; - int i; - size_t len[] = { 0, 0, 0, 0, 0 }; - zend_long largs[] = { 0, 0, 0 }; - PHP_MD5_CTX hash_context; - zend_resource new_index_ptr, *le; - isc_db_handle db_handle = 0; - ibase_db_link *ib_link; - - RESET_ERRMSG; - - if (FAILURE == zend_parse_parameters(ZEND_NUM_ARGS(), "|ssssllsl", - &args[DB], &len[DB], &args[USER], &len[USER], &args[PASS], &len[PASS], - &args[CSET], &len[CSET], &largs[BUF], &largs[DLECT], &args[ROLE], &len[ROLE], - &largs[SYNC])) { - RETURN_FALSE; - } - - /* restrict to the server/db in the .ini if in safe mode */ - if (!len[DB] && (c = INI_STR("ibase.default_db"))) { - args[DB] = c; - len[DB] = strlen(c); - } - if (!len[USER] && (c = INI_STR("ibase.default_user"))) { - args[USER] = c; - len[USER] = strlen(c); - } - if (!len[PASS] && (c = INI_STR("ibase.default_password"))) { - args[PASS] = c; - len[PASS] = strlen(c); - } - if (!len[CSET] && (c = INI_STR("ibase.default_charset"))) { - args[CSET] = c; - len[CSET] = strlen(c); - } - - /* don't want usernames and passwords floating around */ - PHP_MD5Init(&hash_context); - for (i = 0; i < sizeof(args)/sizeof(char*); ++i) { - PHP_MD5Update(&hash_context,args[i],len[i]); - } - for (i = 0; i < sizeof(largs)/sizeof(zend_long); ++i) { - PHP_MD5Update(&hash_context,(char*)&largs[i],sizeof(zend_long)); - } - PHP_MD5Final((unsigned char*)hash, &hash_context); - - /* try to reuse a connection */ - if ((le = zend_hash_str_find_ptr(&EG(regular_list), hash, sizeof(hash)-1)) != NULL) { - zend_resource *xlink; - - if (le->type != le_index_ptr) { - RETURN_FALSE; - } - - xlink = (zend_resource*) le->ptr; - if ((!persistent && xlink->type == le_link) || xlink->type == le_plink) { - if (IBG(default_link) != xlink) { - GC_ADDREF(xlink); - if (IBG(default_link)) { - zend_list_delete(IBG(default_link)); - } - IBG(default_link) = xlink; - } - GC_ADDREF(xlink); - RETURN_RES(xlink); - } else { - zend_hash_str_del(&EG(regular_list), hash, sizeof(hash)-1); - } - } - - /* ... or a persistent one */ - do { - zend_long l; - static char info[] = { isc_info_base_level, isc_info_end }; - char result[8]; - ISC_STATUS status[20]; - - if ((le = zend_hash_str_find_ptr(&EG(persistent_list), hash, sizeof(hash)-1)) != NULL) { - if (le->type != le_plink) { - RETURN_FALSE; - } - /* check if connection has timed out */ - ib_link = (ibase_db_link *) le->ptr; - if (!isc_database_info(status, &ib_link->handle, sizeof(info), info, sizeof(result), result)) { - RETVAL_RES(zend_register_resource(ib_link, le_plink)); - break; - } - zend_hash_str_del(&EG(persistent_list), hash, sizeof(hash)-1); - } - - /* no link found, so we have to open one */ - - if ((l = INI_INT("ibase.max_links")) != -1 && IBG(num_links) >= l) { - _php_ibase_module_error("Too many open links (%ld)", IBG(num_links)); - RETURN_FALSE; - } - - /* create the ib_link */ - if (FAILURE == _php_ibase_attach_db(args, len, largs, &db_handle)) { - RETURN_FALSE; - } - - /* use non-persistent if allowed number of persistent links is exceeded */ - if (!persistent || ((l = INI_INT("ibase.max_persistent") != -1) && IBG(num_persistent) >= l)) { - ib_link = (ibase_db_link *) emalloc(sizeof(ibase_db_link)); - RETVAL_RES(zend_register_resource(ib_link, le_link)); - } else { - ib_link = (ibase_db_link *) malloc(sizeof(ibase_db_link)); - if (!ib_link) { - RETURN_FALSE; - } - - /* hash it up */ - if (zend_register_persistent_resource(hash, sizeof(hash)-1, ib_link, le_plink) == NULL) { - free(ib_link); - RETURN_FALSE; - } - RETVAL_RES(zend_register_resource(ib_link, le_plink)); - ++IBG(num_persistent); - } - ib_link->handle = db_handle; - ib_link->dialect = largs[DLECT] ? (unsigned short)largs[DLECT] : SQL_DIALECT_CURRENT; - ib_link->tr_list = NULL; - ib_link->event_head = NULL; - - ++IBG(num_links); - } while (0); - - /* add it to the hash */ - new_index_ptr.ptr = (void *) Z_RES_P(return_value); - new_index_ptr.type = le_index_ptr; - zend_hash_str_update_mem(&EG(regular_list), hash, sizeof(hash)-1, - (void *) &new_index_ptr, sizeof(zend_resource)); - if (IBG(default_link)) { - zend_list_delete(IBG(default_link)); - } - IBG(default_link) = Z_RES_P(return_value); - Z_TRY_ADDREF_P(return_value); - Z_TRY_ADDREF_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, INI_INT("ibase.allow_persistent")); -} -/* }}} */ - -/* {{{ proto bool ibase_close([resource link_identifier]) - Close an InterBase connection */ -PHP_FUNCTION(ibase_close) -{ - zval *link_arg = NULL; - zend_resource *link_res; - - RESET_ERRMSG; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "|r", &link_arg) == FAILURE) { - return; - } - - if (ZEND_NUM_ARGS() == 0) { - link_res = IBG(default_link); - CHECK_LINK(link_res); - IBG(default_link) = NULL; - } else { - link_res = Z_RES_P(link_arg); - } - - /* we have at least 3 additional references to this resource ??? */ - if (GC_REFCOUNT(link_res) < 4) { - zend_list_close(link_res); - } else { - zend_list_delete(link_res); - } - 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; - zend_resource *link_res; - - RESET_ERRMSG; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "|r", &link_arg) == FAILURE) { - return; - } - - if (ZEND_NUM_ARGS() == 0) { - link_res = IBG(default_link); - CHECK_LINK(link_res); - IBG(default_link) = NULL; - } else { - link_res = Z_RES_P(link_arg); - } - - ib_link = (ibase_db_link *)zend_fetch_resource2(link_res, LE_LINK, le_link, le_plink); - - if (!ib_link) { - RETURN_FALSE; - } - - if (isc_drop_database(IB_STATUS, &ib_link->handle)) { - _php_ibase_error(); - RETURN_FALSE; - } - - /* isc_drop_database() doesn't invalidate the transaction handles */ - for (l = ib_link->tr_list; l != NULL; l = l->next) { - if (l->trans != NULL) l->trans->handle = 0; - } - - zend_list_delete(link_res); - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ 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, link_cnt = 0, tpb_len = 0; - int argn = ZEND_NUM_ARGS(); - char last_tpb[TPB_MAX_SIZE]; - ibase_db_link **ib_link = NULL; - ibase_trans *ib_trans; - isc_tr_handle tr_handle = 0; - ISC_STATUS result; - - RESET_ERRMSG; - - /* (1+argn) is an upper bound for the number of links this trans connects to */ - ib_link = (ibase_db_link **) safe_emalloc(sizeof(ibase_db_link *),1+argn,0); - - if (argn > 0) { - zend_long trans_argl = 0; - char *tpb; - ISC_TEB *teb; - zval *args = NULL; - - if (zend_parse_parameters(argn, "+", &args, &argn) == FAILURE) { - efree(ib_link); - RETURN_FALSE; - } - - teb = (ISC_TEB *) safe_emalloc(sizeof(ISC_TEB),argn,0); - tpb = (char *) safe_emalloc(TPB_MAX_SIZE,argn,0); - - /* 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(args[i]) == IS_RESOURCE) { - - if ((ib_link[link_cnt] = (ibase_db_link *)zend_fetch_resource2_ex(&args[i], LE_LINK, le_link, le_plink)) == NULL) { - efree(teb); - efree(tpb); - efree(ib_link); - RETURN_FALSE; - } - - /* 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]->handle; - 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(args[i]); - - if (trans_argl != PHP_IBASE_DEFAULT) { - last_tpb[tpb_len++] = isc_tpb_version3; - - /* access mode */ - if (PHP_IBASE_READ == (trans_argl & PHP_IBASE_READ)) { - last_tpb[tpb_len++] = isc_tpb_read; - } else if (PHP_IBASE_WRITE == (trans_argl & PHP_IBASE_WRITE)) { - last_tpb[tpb_len++] = isc_tpb_write; - } - - /* isolation level */ - if (PHP_IBASE_COMMITTED == (trans_argl & PHP_IBASE_COMMITTED)) { - last_tpb[tpb_len++] = isc_tpb_read_committed; - if (PHP_IBASE_REC_VERSION == (trans_argl & PHP_IBASE_REC_VERSION)) { - last_tpb[tpb_len++] = isc_tpb_rec_version; - } else if (PHP_IBASE_REC_NO_VERSION == (trans_argl & PHP_IBASE_REC_NO_VERSION)) { - last_tpb[tpb_len++] = isc_tpb_no_rec_version; - } - } else if (PHP_IBASE_CONSISTENCY == (trans_argl & PHP_IBASE_CONSISTENCY)) { - last_tpb[tpb_len++] = isc_tpb_consistency; - } else if (PHP_IBASE_CONCURRENCY == (trans_argl & PHP_IBASE_CONCURRENCY)) { - last_tpb[tpb_len++] = isc_tpb_concurrency; - } - - /* lock resolution */ - if (PHP_IBASE_NOWAIT == (trans_argl & PHP_IBASE_NOWAIT)) { - last_tpb[tpb_len++] = isc_tpb_nowait; - } else if (PHP_IBASE_WAIT == (trans_argl & PHP_IBASE_WAIT)) { - last_tpb[tpb_len++] = isc_tpb_wait; - } - } - } - } - - if (link_cnt > 0) { - result = isc_start_multiple(IB_STATUS, &tr_handle, link_cnt, teb); - } - - efree(tpb); - efree(teb); - } - - if (link_cnt == 0) { - link_cnt = 1; - if ((ib_link[0] = (ibase_db_link *)zend_fetch_resource2(IBG(default_link), LE_LINK, le_link, le_plink)) == NULL) { - efree(ib_link); - RETURN_FALSE; - } - result = isc_start_transaction(IB_STATUS, &tr_handle, 1, &ib_link[0]->handle, tpb_len, last_tpb); - } - - /* start the transaction */ - if (result) { - _php_ibase_error(); - efree(ib_link); - RETURN_FALSE; - } - - /* register the transaction in our own data structures */ - ib_trans = (ibase_trans *) safe_emalloc(link_cnt-1, sizeof(ibase_db_link *), sizeof(ibase_trans)); - ib_trans->handle = tr_handle; - ib_trans->link_cnt = link_cnt; - ib_trans->affected_rows = 0; - for (i = 0; i < link_cnt; ++i) { - ibase_tr_list **l; - ib_trans->db_link[i] = ib_link[i]; - - /* the first item in the connection-transaction list is reserved for the default transaction */ - if (ib_link[i]->tr_list == NULL) { - ib_link[i]->tr_list = (ibase_tr_list *) emalloc(sizeof(ibase_tr_list)); - ib_link[i]->tr_list->trans = NULL; - ib_link[i]->tr_list->next = NULL; - } - - /* link the transaction into the connection-transaction list */ - for (l = &ib_link[i]->tr_list; *l != NULL; l = &(*l)->next); - *l = (ibase_tr_list *) emalloc(sizeof(ibase_tr_list)); - (*l)->trans = ib_trans; - (*l)->next = NULL; - } - efree(ib_link); - RETVAL_RES(zend_register_resource(ib_trans, le_trans)); - Z_TRY_ADDREF_P(return_value); -} -/* }}} */ - -int _php_ibase_def_trans(ibase_db_link *ib_link, ibase_trans **trans) /* {{{ */ -{ - if (ib_link == NULL) { - php_error_docref(NULL, E_WARNING, "Invalid database link"); - return FAILURE; - } - - /* the first item in the connection-transaction list is reserved for the default transaction */ - if (ib_link->tr_list == NULL) { - ib_link->tr_list = (ibase_tr_list *) emalloc(sizeof(ibase_tr_list)); - ib_link->tr_list->trans = NULL; - ib_link->tr_list->next = NULL; - } - - if (*trans == NULL) { - ibase_trans *tr = ib_link->tr_list->trans; - - if (tr == NULL) { - tr = (ibase_trans *) emalloc(sizeof(ibase_trans)); - tr->handle = 0; - tr->link_cnt = 1; - tr->affected_rows = 0; - tr->db_link[0] = ib_link; - ib_link->tr_list->trans = tr; - } - if (tr->handle == 0) { - if (isc_start_transaction(IB_STATUS, &tr->handle, 1, &ib_link->handle, 0, NULL)) { - _php_ibase_error(); - return FAILURE; - } - } - *trans = tr; - } - return SUCCESS; -} -/* }}} */ - -static void _php_ibase_trans_end(INTERNAL_FUNCTION_PARAMETERS, int commit) /* {{{ */ -{ - ibase_trans *trans = NULL; - int res_id = 0; - ISC_STATUS result; - ibase_db_link *ib_link; - zval *arg = NULL; - - RESET_ERRMSG; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "|r", &arg) == FAILURE) { - return; - } - - if (ZEND_NUM_ARGS() == 0) { - ib_link = (ibase_db_link *)zend_fetch_resource2(IBG(default_link), LE_LINK, le_link, le_plink); - if (ib_link->tr_list == NULL || ib_link->tr_list->trans == NULL) { - /* this link doesn't have a default transaction */ - _php_ibase_module_error("Default link has no default transaction"); - RETURN_FALSE; - } - trans = ib_link->tr_list->trans; - } else { - /* one id was passed, could be db or trans id */ - if (Z_RES_P(arg)->type == le_trans) { - trans = (ibase_trans *)zend_fetch_resource_ex(arg, LE_TRANS, le_trans); - res_id = Z_RES_P(arg)->handle; - } else { - ib_link = (ibase_db_link *)zend_fetch_resource2_ex(arg, LE_LINK, le_link, le_plink); - - if (ib_link->tr_list == NULL || ib_link->tr_list->trans == NULL) { - /* this link doesn't have a default transaction */ - _php_ibase_module_error("Link has no default transaction"); - RETURN_FALSE; - } - trans = ib_link->tr_list->trans; - } - } - - switch (commit) { - default: /* == 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(); - RETURN_FALSE; - } - - /* Don't try to destroy implicitly opened transaction from list... */ - if ((commit & RETAIN) == 0 && res_id != 0) { - zend_list_delete(Z_RES_P(arg)); - } - 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 int ibase_gen_id(string generator [, int increment [, resource link_identifier ]]) - Increments the named generator and returns its new value */ -PHP_FUNCTION(ibase_gen_id) -{ - zval *link = NULL; - char query[128], *generator; - size_t gen_len; - zend_long inc = 1; - ibase_db_link *ib_link; - ibase_trans *trans = NULL; - XSQLDA out_sqlda; - ISC_INT64 result; - - RESET_ERRMSG; - - if (FAILURE == zend_parse_parameters(ZEND_NUM_ARGS(), "s|lr", &generator, &gen_len, - &inc, &link)) { - RETURN_FALSE; - } - - if (gen_len > 31) { - php_error_docref(NULL, E_WARNING, "Invalid generator name"); - RETURN_FALSE; - } - - PHP_IBASE_LINK_TRANS(link, ib_link, trans); - - snprintf(query, sizeof(query), "SELECT GEN_ID(%s,%ld) FROM rdb$database", generator, inc); - - /* allocate a minimal descriptor area */ - out_sqlda.sqln = out_sqlda.sqld = 1; - out_sqlda.version = SQLDA_CURRENT_VERSION; - - /* allocate the field for the result */ - out_sqlda.sqlvar[0].sqltype = SQL_INT64; - out_sqlda.sqlvar[0].sqlscale = 0; - out_sqlda.sqlvar[0].sqllen = sizeof(result); - out_sqlda.sqlvar[0].sqldata = (void*) &result; - - /* execute the query */ - if (isc_dsql_exec_immed2(IB_STATUS, &ib_link->handle, &trans->handle, 0, query, - SQL_DIALECT_CURRENT, NULL, &out_sqlda)) { - _php_ibase_error(); - RETURN_FALSE; - } - - /* don't return the generator value as a string unless it doesn't fit in a long */ -#if SIZEOF_ZEND_LONG < 8 - if (result < ZEND_LONG_MIN || result > ZEND_LONG_MAX) { - char *res; - int l; - - l = spprintf(&res, 0, "%" LL_MASK "d", result); - RETURN_STRINGL(res, l); - } -#endif - RETURN_LONG((zend_long)result); -} - -/* }}} */ - -#endif /* HAVE_IBASE */ diff --git a/ext/interbase/php_ibase_includes.h b/ext/interbase/php_ibase_includes.h deleted file mode 100644 index 66f3809a6b..0000000000 --- a/ext/interbase/php_ibase_includes.h +++ /dev/null @@ -1,193 +0,0 @@ -/* - +----------------------------------------------------------------------+ - | PHP Version 7 | - +----------------------------------------------------------------------+ - | Copyright (c) The PHP Group | - +----------------------------------------------------------------------+ - | This source file is subject to version 3.01 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_01.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@simgts.mv.ru> | - | Ard Biesheuvel <a.k.biesheuvel@ewi.tudelft.nl> | - +----------------------------------------------------------------------+ - */ - -#ifndef PHP_IBASE_INCLUDES_H -#define PHP_IBASE_INCLUDES_H - -#include <ibase.h> - -#ifndef SQLDA_CURRENT_VERSION -#define SQLDA_CURRENT_VERSION SQLDA_VERSION1 -#endif - -#ifndef METADATALENGTH -#define METADATALENGTH 68 -#endif - -#define RESET_ERRMSG do { IBG(errmsg)[0] = '\0'; IBG(sql_code) = 0; } while (0) - -#define IB_STATUS (IBG(status)) - -#ifdef IBASE_DEBUG -#define IBDEBUG(a) php_printf("::: %s (%d)\n", a, __LINE__); -#endif - -#ifndef IBDEBUG -#define IBDEBUG(a) -#endif - -extern int le_link, le_plink, le_trans; - -#define LE_LINK "Firebird/InterBase link" -#define LE_PLINK "Firebird/InterBase persistent link" -#define LE_TRANS "Firebird/InterBase transaction" - -#define IBASE_MSGSIZE 512 -#define MAX_ERRMSG (IBASE_MSGSIZE*2) - -#define IB_DEF_DATE_FMT "%Y-%m-%d" -#define IB_DEF_TIME_FMT "%H:%M:%S" - -/* this value should never be > USHRT_MAX */ -#define IBASE_BLOB_SEG 4096 - -ZEND_BEGIN_MODULE_GLOBALS(ibase) - ISC_STATUS status[20]; - zend_resource *default_link; - zend_long num_links, num_persistent; - char errmsg[MAX_ERRMSG]; - zend_long sql_code; -ZEND_END_MODULE_GLOBALS(ibase) - -ZEND_EXTERN_MODULE_GLOBALS(ibase) - -typedef struct { - isc_db_handle handle; - struct tr_list *tr_list; - unsigned short dialect; - struct event *event_head; -} ibase_db_link; - -typedef struct { - isc_tr_handle handle; - unsigned short link_cnt; - unsigned long affected_rows; - ibase_db_link *db_link[1]; /* last member */ -} ibase_trans; - -typedef struct tr_list { - ibase_trans *trans; - struct tr_list *next; -} ibase_tr_list; - -typedef struct { - isc_blob_handle bl_handle; - unsigned short type; - ISC_QUAD bl_qd; -} ibase_blob; - -typedef struct event { - ibase_db_link *link; - zend_resource* link_res; - ISC_LONG event_id; - unsigned short event_count; - char **events; - char *event_buffer, *result_buffer; - zval callback; - void *thread_ctx; - struct event *event_next; - enum event_state { NEW, ACTIVE, DEAD } state; -} ibase_event; - -enum php_interbase_option { - PHP_IBASE_DEFAULT = 0, - PHP_IBASE_CREATE = 0, - /* fetch flags */ - PHP_IBASE_FETCH_BLOBS = 1, - PHP_IBASE_FETCH_ARRAYS = 2, - PHP_IBASE_UNIXTIME = 4, - /* transaction access mode */ - PHP_IBASE_WRITE = 1, - PHP_IBASE_READ = 2, - /* transaction isolation level */ - PHP_IBASE_CONCURRENCY = 4, - PHP_IBASE_COMMITTED = 8, - PHP_IBASE_REC_NO_VERSION = 32, - PHP_IBASE_REC_VERSION = 64, - PHP_IBASE_CONSISTENCY = 16, - /* transaction lock resolution */ - PHP_IBASE_WAIT = 128, - PHP_IBASE_NOWAIT = 256 -}; - -#define IBG(v) ZEND_MODULE_GLOBALS_ACCESSOR(ibase, v) - -#if defined(ZTS) && defined(COMPILE_DL_INTERBASE) -ZEND_TSRMLS_CACHE_EXTERN() -#endif - -#define BLOB_ID_LEN 18 -#define BLOB_ID_MASK "0x%" LL_MASK "x" - -#define BLOB_INPUT 1 -#define BLOB_OUTPUT 2 - -#ifdef PHP_WIN32 -#define LL_MASK "I64" -#define LL_LIT(lit) lit ## I64 -typedef void (__stdcall *info_func_t)(char*); -#else -#define LL_MASK "ll" -#define LL_LIT(lit) lit ## ll -typedef void (*info_func_t)(char*); -#endif - -void _php_ibase_error(void); -void _php_ibase_module_error(char *, ...) - PHP_ATTRIBUTE_FORMAT(printf,1,2); - -/* determine if a resource is a link or transaction handle */ -#define PHP_IBASE_LINK_TRANS(zv, lh, th) \ - do { \ - if (!zv) { \ - lh = (ibase_db_link *)zend_fetch_resource2( \ - IBG(default_link), "InterBase link", le_link, le_plink); \ - } else { \ - _php_ibase_get_link_trans(INTERNAL_FUNCTION_PARAM_PASSTHRU, zv, &lh, &th); \ - } \ - if (SUCCESS != _php_ibase_def_trans(lh, &th)) { RETURN_FALSE; } \ - } while (0) - -int _php_ibase_def_trans(ibase_db_link *ib_link, ibase_trans **trans); -void _php_ibase_get_link_trans(INTERNAL_FUNCTION_PARAMETERS, zval *link_id, - ibase_db_link **ib_link, ibase_trans **trans); - -/* provided by ibase_query.c */ -void php_ibase_query_minit(INIT_FUNC_ARGS); - -/* provided by ibase_blobs.c */ -void php_ibase_blobs_minit(INIT_FUNC_ARGS); -int _php_ibase_string_to_quad(char const *id, ISC_QUAD *qd); -zend_string *_php_ibase_quad_to_string(ISC_QUAD const qd); -int _php_ibase_blob_get(zval *return_value, ibase_blob *ib_blob, zend_ulong max_len); -int _php_ibase_blob_add(zval *string_arg, ibase_blob *ib_blob); - -/* provided by ibase_events.c */ -void php_ibase_events_minit(INIT_FUNC_ARGS); -void _php_ibase_free_event(ibase_event *event); - -/* provided by ibase_service.c */ -void php_ibase_service_minit(INIT_FUNC_ARGS); - -#ifndef max -#define max(a,b) ((a)>(b)?(a):(b)) -#endif - -#endif /* PHP_IBASE_INCLUDES_H */ diff --git a/ext/interbase/php_ibase_udf.c b/ext/interbase/php_ibase_udf.c deleted file mode 100644 index dabc7ba428..0000000000 --- a/ext/interbase/php_ibase_udf.c +++ /dev/null @@ -1,406 +0,0 @@ -/* - +----------------------------------------------------------------------+ - | PHP Version 7 | - +----------------------------------------------------------------------+ - | Copyright (c) The PHP Group | - +----------------------------------------------------------------------+ - | This source file is subject to version 3.01 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_01.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. | - +----------------------------------------------------------------------+ - | Author: Ard Biesheuvel <a.k.biesheuvel@ewi.tudelft.nl> | - +----------------------------------------------------------------------+ - */ - -/** -* This UDF library adds the ability to call PHP functions from SQL -* statements. Because of SQL's strong typing, you will have to declare -* an external function for every combination { output type, #args } that -* your application requires. -* -* Declare the functions like this: -* -* DECLARE EXTERNAL FUNCTION CALL_PHP1 -* CSTRING(xx), -* <return type> BY DESCRIPTOR, -* INTEGER BY DESCRIPTOR -* RETURNS PARAMETER 2 -* ENTRY_POINT 'udf_call_php1' MODULE_NAME 'php_ibase_udf' -* -* DECLARE EXTERNAL FUNCTION CALL_PHP2 -* CSTRING(xx), -* <return type> BY DESCRIPTOR, -* INTEGER BY DESCRIPTOR, -* INTEGER BY DESCRIPTOR -* RETURNS PARAMETER 2 -* ENTRY_POINT 'udf_call_php2' MODULE_NAME 'php_ibase_udf' -* -* ... and so on. [for up to 8 input arguments] -* -* The first input parameter contains the name of the PHP function you want -* to call. The second argument is the result. (omit this argument when calling -* the function) The return type of the function is the declared type of the -* result. The value returned from the PHP function being called will -* automatically be converted if necessary. -* The arguments should have their types declared as well, but you're free -* to pass arguments of other types instead. They will be converted to the -* best matching PHP type before being passed to the PHP function. -* -* The declared functions can be called from SQL like: -* -* SELECT * FROM <table> WHERE CALL_PHP1('soundex',<field>) NOT LIKE ? -* or -* UPDATE <table> SET <field> = CALL_PHP1('ucwords',<field>) -* -* Additionally, there's a function 'exec_php' which allows the contents -* of text BLOB fields to be parsed and executed by PHP. This is most useful -* for declaring functions that can then be called with CALL_PHPx. -* -* DECLARE EXTERNAL FUNCTION EXEC_PHP -* BLOB, -* INTEGER BY DESCRIPTOR, -* SMALLINT -* RETURNS PARAMETER 2 -* ENTRY_POINT 'exec_php' MODULE_NAME 'php_ibase_udf' -* -* The function will return 1 if execution succeeded and 0 if an error -* occurred. The result that is returned from the executed PHP code is -* ignored. You can pass a non-zero value as second argument to force -* the embedded PHP engine to re-initialise. -* -* There are several ways to build this library, depending on which way the -* database is accessed. If you're using the classic server on a local -* connection, you should compile the library like this: -* -* gcc -shared `php-config --includes` `php-config --ldflags` \ -* `php-config --libs` -o php_ibase_udf.so php_ibase_udf.c -* -* If you connect to the classic server by TCP/IP, you should build the -* PHP embedded static library and link against that. -* -* gcc -shared `php-config --includes` `php-config --ldflags` \ -* `php-config --libs` -o php_ibase_udf.so php_ibase_udf.c \ -* /usr/lib/libphp7.a -* -* If you use the super server, you should also link against the embedded -* library, but be sure to enable thread safety, as the super server is -* multi-threaded. After building, copy the resulting file to the folder -* where your database expects to find its UDFs. -*/ - -#include "zend.h" -#include "zend_API.h" - -#include "php.h" -#include "php_ini.h" - -#include "ibase.h" - -#define min(a,b) ((a)<(b)?(a):(b)) - -#ifdef PHP_WIN32 -#define LL_LIT(lit) lit ## I64 -#else -#define LL_LIT(lit) lit ## ll -#endif - -#ifdef ZTS -# include <pthread.h> - -static void ***tsrm_ls; -pthread_mutex_t mtx_res = PTHREAD_MUTEX_INITIALIZER; - -#define LOCK() do { pthread_mutex_lock(&mtx_res); } while (0) -#define UNLOCK() do { pthread_mutex_unlock(&mtx_res); } while (0) -#else -#define LOCK() -#define UNLOCK() -#endif - -#ifdef PHP_EMBED -# include "php_main.h" -# include "sapi/embed/php_embed.h" - -static void __attribute__((constructor)) init() -{ - php_embed_init(0, NULL P); -} - -static void __attribute__((destructor)) fini() -{ - php_embed_shutdown(); -} - -#endif - -/** -* Gets the contents of the BLOB b and offers it to Zend for parsing/execution -*/ -void exec_php(BLOBCALLBACK b, PARAMDSC *res, ISC_SHORT *init) -{ - int result, remaining = b->blob_total_length, i = 0; - char *code = pemalloc(remaining+1, 1); - ISC_USHORT read; - - for (code[remaining] = '\0'; remaining > 0; remaining -= read) - b->blob_get_segment(b->blob_handle, &code[i++<<16],min(0x10000,remaining), &read); - - LOCK(); - - switch (init && *init) { - - default: -#ifdef PHP_EMBED - php_request_shutdown(NULL); - if (FAILURE == (result = php_request_startup())) { - break; - } - case 0: -#endif - /* feed it to the parser */ - zend_first_try { - result = zend_eval_stringl(code, b->blob_total_length, NULL, "Firebird Embedded PHP engine"); - } zend_end_try(); - } - - UNLOCK(); - - free(code); - - res->dsc_dtype = dtype_long; - *(ISC_LONG*)res->dsc_address = (result == SUCCESS); -} - -static ISC_INT64 const scales[] = { 1, 10, 100, 1000, 10000, 100000, 1000000, 100000000, 1000000000, - 1000000000, LL_LIT(10000000000),LL_LIT(100000000000),LL_LIT(10000000000000),LL_LIT(100000000000000), - LL_LIT(1000000000000000),LL_LIT(1000000000000000),LL_LIT(1000000000000000000) }; - - -static void call_php(char *name, PARAMDSC *r, int argc, PARAMDSC **argv) -{ - do { - zval callback, args[4], return_value; - PARAMVARY *res = (PARAMVARY*)r->dsc_address; - int i; - - ZVAL_STRING(&callback, name); - - LOCK(); - - /* check if the requested function exists */ - if (!zend_is_callable(&callback, 0, NULL)) { - break; - } - - UNLOCK(); - - /* create the argument array */ - for (i = 0; i < argc; ++i) { - - /* test arg for null */ - if (argv[i]->dsc_flags & DSC_null) { - ZVAL_NULL(&args[i]); - continue; - } - - switch (argv[i]->dsc_dtype) { - ISC_INT64 l; - struct tm t; - char const *fmt; - char d[64]; - - case dtype_cstring: -//??? - ZVAL_STRING(&args[i], (char*)argv[i]->dsc_address); - break; - - case dtype_text: -//??? - ZVAL_STRINGL(&args[i], (char*)argv[i]->dsc_address, argv[i]->dsc_length); - break; - - case dtype_varying: -//??? - ZVAL_STRINGL(&args[i], ((PARAMVARY*)argv[i]->dsc_address)->vary_string, - ((PARAMVARY*)argv[i]->dsc_address)->vary_length); - break; - - case dtype_short: - if (argv[i]->dsc_scale == 0) { - ZVAL_LONG(&args[i], *(short*)argv[i]->dsc_address); - } else { - ZVAL_DOUBLE(&args[i], - ((double)*(short*)argv[i]->dsc_address)/scales[-argv[i]->dsc_scale]); - } - break; - - case dtype_long: - if (argv[i]->dsc_scale == 0) { - ZVAL_LONG(&args[i], *(ISC_LONG*)argv[i]->dsc_address); - } else { - ZVAL_DOUBLE(&args[i], - ((double)*(ISC_LONG*)argv[i]->dsc_address)/scales[-argv[i]->dsc_scale]); - } - break; - - case dtype_int64: - l = *(ISC_INT64*)argv[i]->dsc_address; - - if (argv[i]->dsc_scale == 0 && l <= ZEND_LONG_MAX && l >= ZEND_LONG_MIN) { - ZVAL_LONG(&args[i], (zend_long)l); - } else { - ZVAL_DOUBLE(&args[i], ((double)l)/scales[-argv[i]->dsc_scale]); - } - break; - - case dtype_real: - ZVAL_DOUBLE(&args[i], *(float*)argv[i]->dsc_address); - break; - - case dtype_double: - ZVAL_DOUBLE(&args[i], *(double*)argv[i]->dsc_address); - break; - - case dtype_sql_date: - isc_decode_sql_date((ISC_DATE*)argv[i]->dsc_address, &t); - ZVAL_STRINGL(&args[i], d, strftime(d, sizeof(d), INI_STR("ibase.dateformat"), &t),1); - break; - - case dtype_sql_time: - isc_decode_sql_time((ISC_TIME*)argv[i]->dsc_address, &t); - ZVAL_STRINGL(&args[i], d, strftime(d, sizeof(d), INI_STR("ibase.timeformat"), &t),1); - break; - - case dtype_timestamp: - isc_decode_timestamp((ISC_TIMESTAMP*)argv[i]->dsc_address, &t); - ZVAL_STRINGL(&args[i], d, strftime(d, sizeof(d), INI_STR("ibase.timestampformat"), &t)); - break; - } - } - - LOCK(); - - /* now call the function */ - if (FAILURE == call_user_function(NULL, NULL, - &callback, &return_value, argc, args)) { - UNLOCK(); - break; - } - - UNLOCK(); - - for (i = 0; i < argc; ++i) { - switch (argv[i]->dsc_dtype) { - case dtype_sql_date: - case dtype_sql_time: - case dtype_timestamp: - zval_ptr_dtor_nogc(&args[i]); - } - } - - zval_ptr_dtor_str(&callback); - - /* return whatever type we got back from the callback: let DB handle conversion */ - switch (Z_TYPE(return_value)) { - - case IS_LONG: - r->dsc_dtype = dtype_long; - *(zend_long*)r->dsc_address = Z_LVAL(return_value); - r->dsc_length = sizeof(zend_long); - break; - - case IS_DOUBLE: - r->dsc_dtype = dtype_double; - *(double*)r->dsc_address = Z_DVAL(return_value); - r->dsc_length = sizeof(double); - break; - - case IS_NULL: - r->dsc_flags |= DSC_null; - break; - - default: - convert_to_string(&return_value); - - case IS_STRING: - r->dsc_dtype = dtype_varying; - memcpy(res->vary_string, Z_STRVAL(return_value), - (res->vary_length = min(r->dsc_length-2,Z_STRLEN(return_value)))); - r->dsc_length = res->vary_length+2; - break; - } - - zval_ptr_dtor(&return_value); - - return; - - } while (0); - - /** - * If we end up here, we should report an error back to the DB engine, but - * that's not possible. We can however report it back to PHP. - */ - LOCK(); - php_error_docref(NULL, E_WARNING, "Error calling function '%s' from database", name); - UNLOCK(); -} - - -/* Entry points for the DB engine */ - -void udf_call_php1(char *name, PARAMDSC *r, PARAMDSC *arg1) -{ - PARAMDSC *args[1] = { arg1 }; - call_php(name, r, 1, args); -} - -void udf_call_php2(char *name, PARAMDSC *r, PARAMDSC *arg1, PARAMDSC *arg2) -{ - PARAMDSC *args[2] = { arg1, arg2 }; - call_php(name, r, 2, args); -} - -void udf_call_php3(char *name, PARAMDSC *r, PARAMDSC *arg1, PARAMDSC *arg2, PARAMDSC *arg3) -{ - PARAMDSC *args[3] = { arg1, arg2, arg3 }; - call_php(name, r, 3, args); -} - -void udf_call_php4(char *name, PARAMDSC *r, PARAMDSC *arg1, PARAMDSC *arg2, PARAMDSC *arg3, - PARAMDSC *arg4) -{ - PARAMDSC *args[4] = { arg1, arg2, arg3, arg4 }; - call_php(name, r, 4, args); -} - -void udf_call_php5(char *name, PARAMDSC *r, PARAMDSC *arg1, PARAMDSC *arg2, PARAMDSC *arg3, - PARAMDSC *arg4, PARAMDSC *arg5) -{ - PARAMDSC *args[5] = { arg1, arg2, arg3, arg4, arg5 }; - call_php(name, r, 5, args); -} - -void udf_call_php6(char *name, PARAMDSC *r, PARAMDSC *arg1, PARAMDSC *arg2, PARAMDSC *arg3, - PARAMDSC *arg4, PARAMDSC *arg5, PARAMDSC *arg6) -{ - PARAMDSC *args[6] = { arg1, arg2, arg3, arg4, arg5, arg6 }; - call_php(name, r, 6, args); -} - -void udf_call_php7(char *name, PARAMDSC *r, PARAMDSC *arg1, PARAMDSC *arg2, PARAMDSC *arg3, - PARAMDSC *arg4, PARAMDSC *arg5, PARAMDSC *arg6, PARAMDSC *arg7) -{ - PARAMDSC *args[7] = { arg1, arg2, arg3, arg4, arg5, arg6, arg7 }; - call_php(name, r, 7, args); -} - -void udf_call_php8(char *name, PARAMDSC *r, PARAMDSC *arg1, PARAMDSC *arg2, PARAMDSC *arg3, - PARAMDSC *arg4, PARAMDSC *arg5, PARAMDSC *arg6, PARAMDSC *arg7, PARAMDSC *arg8) -{ - PARAMDSC *args[8] = { arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8 }; - call_php(name, r, 8, args); -} diff --git a/ext/interbase/php_interbase.h b/ext/interbase/php_interbase.h deleted file mode 100644 index 674d416136..0000000000 --- a/ext/interbase/php_interbase.h +++ /dev/null @@ -1,101 +0,0 @@ -/* - +----------------------------------------------------------------------+ - | PHP Version 7 | - +----------------------------------------------------------------------+ - | Copyright (c) The PHP Group | - +----------------------------------------------------------------------+ - | This source file is subject to version 3.01 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_01.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@simgts.mv.ru> | - | Ard Biesheuvel <a.k.biesheuvel@its.tudelft.nl> | - +----------------------------------------------------------------------+ - */ - -#ifndef PHP_INTERBASE_H -#define PHP_INTERBASE_H - -extern zend_module_entry ibase_module_entry; -#define phpext_interbase_ptr &ibase_module_entry - -#include "php_version.h" -#define PHP_INTERBASE_VERSION PHP_VERSION - -PHP_MINIT_FUNCTION(ibase); -PHP_RINIT_FUNCTION(ibase); -PHP_MSHUTDOWN_FUNCTION(ibase); -PHP_RSHUTDOWN_FUNCTION(ibase); -PHP_MINFO_FUNCTION(ibase); - -PHP_FUNCTION(ibase_connect); -PHP_FUNCTION(ibase_pconnect); -PHP_FUNCTION(ibase_close); -PHP_FUNCTION(ibase_drop_db); -PHP_FUNCTION(ibase_query); -PHP_FUNCTION(ibase_fetch_row); -PHP_FUNCTION(ibase_fetch_assoc); -PHP_FUNCTION(ibase_fetch_object); -PHP_FUNCTION(ibase_free_result); -PHP_FUNCTION(ibase_name_result); -PHP_FUNCTION(ibase_prepare); -PHP_FUNCTION(ibase_execute); -PHP_FUNCTION(ibase_free_query); - -PHP_FUNCTION(ibase_timefmt); - -PHP_FUNCTION(ibase_gen_id); -PHP_FUNCTION(ibase_num_fields); -PHP_FUNCTION(ibase_num_params); -#if abies_0 -PHP_FUNCTION(ibase_num_rows); -#endif -PHP_FUNCTION(ibase_affected_rows); -PHP_FUNCTION(ibase_field_info); -PHP_FUNCTION(ibase_param_info); - -PHP_FUNCTION(ibase_trans); -PHP_FUNCTION(ibase_commit); -PHP_FUNCTION(ibase_rollback); -PHP_FUNCTION(ibase_commit_ret); -PHP_FUNCTION(ibase_rollback_ret); - -PHP_FUNCTION(ibase_blob_create); -PHP_FUNCTION(ibase_blob_add); -PHP_FUNCTION(ibase_blob_cancel); -PHP_FUNCTION(ibase_blob_open); -PHP_FUNCTION(ibase_blob_get); -PHP_FUNCTION(ibase_blob_close); -PHP_FUNCTION(ibase_blob_echo); -PHP_FUNCTION(ibase_blob_info); -PHP_FUNCTION(ibase_blob_import); - -PHP_FUNCTION(ibase_add_user); -PHP_FUNCTION(ibase_modify_user); -PHP_FUNCTION(ibase_delete_user); - -PHP_FUNCTION(ibase_service_attach); -PHP_FUNCTION(ibase_service_detach); -PHP_FUNCTION(ibase_backup); -PHP_FUNCTION(ibase_restore); -PHP_FUNCTION(ibase_maintain_db); -PHP_FUNCTION(ibase_db_info); -PHP_FUNCTION(ibase_server_info); - -PHP_FUNCTION(ibase_errmsg); -PHP_FUNCTION(ibase_errcode); - -PHP_FUNCTION(ibase_wait_event); -PHP_FUNCTION(ibase_set_event_handler); -PHP_FUNCTION(ibase_free_event_handler); - -#else - -#define phpext_interbase_ptr NULL - -#endif /* PHP_INTERBASE_H */ diff --git a/ext/interbase/tests/002.phpt b/ext/interbase/tests/002.phpt deleted file mode 100644 index 6c7d780588..0000000000 --- a/ext/interbase/tests/002.phpt +++ /dev/null @@ -1,33 +0,0 @@ ---TEST-- -InterBase: connect, close and pconnect ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - - require("interbase.inc"); - - ibase_connect($test_base); - out_table("test1"); - ibase_close(); - - $con = ibase_connect($test_base); - $pcon1 = ibase_pconnect($test_base); - $pcon2 = ibase_pconnect($test_base); - ibase_close($con); - unset($con); - ibase_close($pcon1); - unset($pcon1); - - out_table("test1"); - - ibase_close($pcon2); - unset($pcon2); -?> ---EXPECT-- ---- test1 --- -1 test table not created with isql ---- ---- test1 --- -1 test table not created with isql ---- diff --git a/ext/interbase/tests/003.phpt b/ext/interbase/tests/003.phpt deleted file mode 100644 index 70fa5f0d30..0000000000 --- a/ext/interbase/tests/003.phpt +++ /dev/null @@ -1,183 +0,0 @@ ---TEST-- -InterBase: misc sql types (may take a while) ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - - require("interbase.inc"); - ibase_connect($test_base); - - ibase_query( - "create table test3 ( - iter integer not null, - v_char char(1000), - v_date timestamp, - v_decimal4_2 decimal(4,2), - v_decimal4_0 decimal(4,0), - v_decimal7_2 decimal(7,2), - v_decimal7_0 decimal(7,0), - v_numeric15_15 numeric(15,15), - v_numeric15_0 numeric(15,0), - v_double double precision, - v_float float, - v_integer integer, - v_smallint smallint, - v_varchar varchar(10000) - )"); - ibase_commit(); - - /* should fail, but gracefully */ - @ibase_query("insert into test3 (iter) values (?)", null); - - /* if timefmt is not supported, suppress error here */ - ini_set('ibase.timestampformat',"%m/%d/%Y %H:%M:%S"); - - for($iter = 0; $iter < 10; $iter++){ - /* prepare data */ - $v_char = rand_str(1000); - $v_date = rand_datetime(); - $v_decimal4_2 = rand_number(4,2); - $v_decimal4_0 = rand_number(4,0); - $v_decimal7_2 = rand_number(7,2); - $v_decimal7_0 = rand_number(7,0); - $v_numeric15_15 = rand_number(15,15); - $v_numeric15_0 = $iter ? rand_number(15,0) : 0; - $v_double = rand_number(18); - $v_float = rand_number(7); - $v_integer = rand_number(9,0); - $v_smallint = rand_number(5) % 32767; - $v_varchar = rand_str(10000); - - ibase_query( - "insert into test3 (iter, v_char,v_date,v_decimal4_2, v_decimal4_0, v_decimal7_2, v_decimal7_0,v_numeric15_15, v_numeric15_0,v_double,v_float,v_integer,v_smallint,v_varchar) - values ($iter, '$v_char','$v_date',$v_decimal4_2, $v_decimal4_0, $v_decimal7_2, $v_decimal7_0,$v_numeric15_15, $v_numeric15_0,$v_double,$v_float,$v_integer,$v_smallint,'$v_varchar')"); - $sel = ibase_query("select * from test3 where iter = $iter"); - $row = ibase_fetch_object($sel); - if(substr($row->V_CHAR,0,strlen($v_char)) != $v_char){ - echo " CHAR fail:\n"; - echo " in: $v_char\n"; - echo " out: $row->V_CHAR\n"; - } - if($row->V_DATE != $v_date){ - echo " DATE fail\n"; - echo " in: $v_date\n"; - echo " out: $row->V_DATE\n"; - } - if($row->V_DECIMAL4_2 != $v_decimal4_2){ - echo " DECIMAL4_2 fail\n"; - echo " in: $v_decimal4_2\n"; - echo " out: $row->V_DECIMAL4_2\n"; - } - if($row->V_DECIMAL4_0 != $v_decimal4_0){ - echo " DECIMAL4_0 fail\n"; - echo " in: $v_decimal4_0\n"; - echo " out: $row->V_DECIMAL4_0\n"; - } - if($row->V_DECIMAL7_2 != $v_decimal7_2){ - echo " DECIMAL7_2 fail\n"; - echo " in: $v_decimal7_2\n"; - echo " out: $row->V_DECIMAL7_2\n"; - } - if($row->V_DECIMAL7_0 != $v_decimal7_0){ - echo " DECIMAL7_0 fail\n"; - echo " in: $v_decimal7_0\n"; - echo " out: $row->V_DECIMAL7_0\n"; - } - if($row->V_NUMERIC15_15 != $v_numeric15_15){ - echo " NUMERIC15_15 fail\n"; - echo " in: $v_numeric15_15\n"; - echo " out: $row->V_NUMERIC15_15\n"; - } - if($row->V_NUMERIC15_0 != (string)$v_numeric15_0){ - echo " NUMERIC15_0 fail\n"; - echo " in: $v_numeric15_0\n"; - echo " out: $row->V_NUMERIC15_0\n"; - } - - if(abs($row->V_DOUBLE - $v_double) > abs($v_double / 1E15)){ - echo " DOUBLE fail\n"; - echo " in: $v_double\n"; - echo " out: $row->V_DOUBLE\n"; - } - if(abs($row->V_FLOAT - $v_float) > abs($v_float / 1E7)){ - echo " FLOAT fail\n"; - echo " in: $v_float\n"; - echo " out: $row->V_FLOAT\n"; - } - if($row->V_INTEGER != $v_integer){ - echo " INTEGER fail\n"; - echo " in: $v_integer\n"; - echo " out: $row->V_INTEGER\n"; - } - if($row->V_SMALLINT != $v_smallint){ - echo " SMALLINT fail\n"; - echo " in: $v_smallint\n"; - echo " out: $row->V_SMALLINT\n"; - } - - if(substr($row->V_VARCHAR,0,strlen($v_varchar)) != $v_varchar){ - echo " VARCHAR fail:\n"; - echo " in: $v_varchar\n"; - echo " out: $row->V_VARCHAR\n"; - } - - ibase_free_result($sel); - } /* for($iter) */ - - /* check for correct handling of duplicate field names */ - $q = ibase_query('SELECT 1 AS id, 2 AS id, 3 AS id, 4 AS id, 5 AS id, 6 AS id, 7 AS id, 8 AS id, 9 AS id, - 10 AS id, 11 AS id, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22 FROM rdb$database'); - var_dump(ibase_fetch_assoc($q)); - - ibase_close(); - echo "end of test\n"; -?> ---EXPECT-- -array(22) { - ["ID"]=> - int(1) - ["ID_01"]=> - int(2) - ["ID_02"]=> - int(3) - ["ID_03"]=> - int(4) - ["ID_04"]=> - int(5) - ["ID_05"]=> - int(6) - ["ID_06"]=> - int(7) - ["ID_07"]=> - int(8) - ["ID_08"]=> - int(9) - ["ID_09"]=> - int(10) - ["ID_10"]=> - int(11) - ["CONSTANT"]=> - int(12) - ["CONSTANT_01"]=> - int(13) - ["CONSTANT_02"]=> - int(14) - ["CONSTANT_03"]=> - int(15) - ["CONSTANT_04"]=> - int(16) - ["CONSTANT_05"]=> - int(17) - ["CONSTANT_06"]=> - int(18) - ["CONSTANT_07"]=> - int(19) - ["CONSTANT_08"]=> - int(20) - ["CONSTANT_09"]=> - int(21) - ["CONSTANT_10"]=> - int(22) -} -end of test diff --git a/ext/interbase/tests/004.phpt b/ext/interbase/tests/004.phpt deleted file mode 100644 index 20f314ee6b..0000000000 --- a/ext/interbase/tests/004.phpt +++ /dev/null @@ -1,182 +0,0 @@ ---TEST-- -InterBase: BLOB test ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - - require("interbase.inc"); - - $link = ibase_connect($test_base); - - ibase_query( - "CREATE TABLE test4 ( - v_integer integer, - v_blob blob)"); - ibase_commit(); - - /* create 100k blob file */ - $blob_str = rand_binstr(100*1024); - - $name = tempnam(__DIR__,"blob.tmp"); - $ftmp = fopen($name,"w"); - fwrite($ftmp,$blob_str); - fclose($ftmp); - - echo "import blob 1\n"; - $ftmp = fopen($name,"r"); - $bl_s = ibase_blob_import($ftmp); - ibase_query("INSERT INTO test4 (v_integer, v_blob) VALUES (1, ?)", $bl_s); - - $bl_s = ibase_blob_import($link,$ftmp); - ibase_query($link, "INSERT INTO test4 (v_integer, v_blob) VALUES (1, ?)", $bl_s); - fclose($ftmp); - - echo "test blob 1\n"; - $q = ibase_query("SELECT v_blob FROM test4 WHERE v_integer = 1"); - - $row = ibase_fetch_object($q); - $bl_h = ibase_blob_open($row->V_BLOB); - - $blob = ''; - while($piece = ibase_blob_get($bl_h, 1 + rand() % 1024)) - $blob .= $piece; - if($blob != $blob_str) - echo " BLOB 1 fail (1)\n"; - ibase_blob_close($bl_h); - - $bl_h = ibase_blob_open($link,$row->V_BLOB); - - $blob = ''; - while($piece = ibase_blob_get($bl_h, 100 * 1024)) - $blob .= $piece; - if($blob != $blob_str) - echo " BLOB 1 fail (2)\n"; - ibase_blob_close($bl_h); - ibase_free_result($q); - unset($blob); - - echo "create blob 2\n"; - - ibase_query("INSERT INTO test4 (v_integer, v_blob) VALUES (2, ?)", $blob_str); - - echo "test blob 2\n"; - - $q = ibase_query("SELECT v_blob FROM test4 WHERE v_integer = 2"); - $row = ibase_fetch_object($q,IBASE_TEXT); - - if($row->V_BLOB != $blob_str) - echo " BLOB 2 fail\n"; - ibase_free_result($q); - unset($blob); - - - echo "create blob 3\n"; - - $bl_h = ibase_blob_create($link); - - ibase_blob_add($bl_h, "+----------------------------------------------------------------------+\n"); - ibase_blob_add($bl_h, "| PHP HTML Embedded Scripting Language Version 3.0 |\n"); - ibase_blob_add($bl_h, "+----------------------------------------------------------------------+\n"); - ibase_blob_add($bl_h, "| Copyright (c) 1997-2000 PHP Development Team (See Credits file) |\n"); - ibase_blob_add($bl_h, "+----------------------------------------------------------------------+\n"); - ibase_blob_add($bl_h, "| This program is free software; you can redistribute it and/or modify |\n"); - ibase_blob_add($bl_h, "| it under the terms of one of the following licenses: |\n"); - ibase_blob_add($bl_h, "| |\n"); - ibase_blob_add($bl_h, "| A) the GNU General Public License as published by the Free Software |\n"); - ibase_blob_add($bl_h, "| Foundation; either version 2 of the License, or (at your option) |\n"); - ibase_blob_add($bl_h, "| any later version. |\n"); - ibase_blob_add($bl_h, "| |\n"); - ibase_blob_add($bl_h, "| B) the PHP License as published by the PHP Development Team and |\n"); - ibase_blob_add($bl_h, "| included in the distribution in the file: LICENSE |\n"); - ibase_blob_add($bl_h, "| |\n"); - ibase_blob_add($bl_h, "| This program is distributed in the hope that it will be useful, |\n"); - ibase_blob_add($bl_h, "| but WITHOUT ANY WARRANTY; without even the implied warranty of |\n"); - ibase_blob_add($bl_h, "| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |\n"); - ibase_blob_add($bl_h, "| GNU General Public License for more details. |\n"); - ibase_blob_add($bl_h, "| |\n"); - ibase_blob_add($bl_h, "| You should have received a copy of both licenses referred to here. |\n"); - ibase_blob_add($bl_h, "| If you did not, or have any questions about PHP licensing, please |\n"); - ibase_blob_add($bl_h, "| contact core@php.net. |\n"); - ibase_blob_add($bl_h, "+----------------------------------------------------------------------+\n"); - $bl_s = ibase_blob_close($bl_h); - ibase_query("INSERT INTO test4 (v_integer, v_blob) VALUES (3, ?)", $bl_s); - ibase_commit(); - echo "echo blob 3\n"; - - $q = ibase_query("SELECT v_blob FROM test4 WHERE v_integer = 3"); - $row = ibase_fetch_object($q); - ibase_commit(); - ibase_close(); - - $link = ibase_connect($test_base); - ibase_blob_echo($link, $row->V_BLOB); - ibase_free_result($q); - - echo "fetch blob 3\n"; - $q = ibase_query("SELECT v_blob FROM test4 WHERE v_integer = 3"); - $row = ibase_fetch_object($q,IBASE_TEXT); - echo $row->V_BLOB; - ibase_free_result($q); - - ibase_close(); - unlink($name); - echo "end of test\n"; -?> ---EXPECT-- -import blob 1 -test blob 1 -create blob 2 -test blob 2 -create blob 3 -echo blob 3 -+----------------------------------------------------------------------+ -| PHP HTML Embedded Scripting Language Version 3.0 | -+----------------------------------------------------------------------+ -| Copyright (c) 1997-2000 PHP Development Team (See Credits file) | -+----------------------------------------------------------------------+ -| This program is free software; you can redistribute it and/or modify | -| it under the terms of one of the following licenses: | -| | -| A) the GNU General Public License as published by the Free Software | -| Foundation; either version 2 of the License, or (at your option) | -| any later version. | -| | -| B) the PHP License as published by the PHP Development Team and | -| included in the distribution in the file: LICENSE | -| | -| This program is distributed in the hope that it will be useful, | -| but WITHOUT ANY WARRANTY; without even the implied warranty of | -| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | -| GNU General Public License for more details. | -| | -| You should have received a copy of both licenses referred to here. | -| If you did not, or have any questions about PHP licensing, please | -| contact core@php.net. | -+----------------------------------------------------------------------+ -fetch blob 3 -+----------------------------------------------------------------------+ -| PHP HTML Embedded Scripting Language Version 3.0 | -+----------------------------------------------------------------------+ -| Copyright (c) 1997-2000 PHP Development Team (See Credits file) | -+----------------------------------------------------------------------+ -| This program is free software; you can redistribute it and/or modify | -| it under the terms of one of the following licenses: | -| | -| A) the GNU General Public License as published by the Free Software | -| Foundation; either version 2 of the License, or (at your option) | -| any later version. | -| | -| B) the PHP License as published by the PHP Development Team and | -| included in the distribution in the file: LICENSE | -| | -| This program is distributed in the hope that it will be useful, | -| but WITHOUT ANY WARRANTY; without even the implied warranty of | -| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | -| GNU General Public License for more details. | -| | -| You should have received a copy of both licenses referred to here. | -| If you did not, or have any questions about PHP licensing, please | -| contact core@php.net. | -+----------------------------------------------------------------------+ -end of test diff --git a/ext/interbase/tests/005.phpt b/ext/interbase/tests/005.phpt deleted file mode 100644 index 9a9acfd092..0000000000 --- a/ext/interbase/tests/005.phpt +++ /dev/null @@ -1,289 +0,0 @@ ---TEST-- -InterBase: transactions ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - - require("interbase.inc"); - - ibase_connect($test_base); - - @ibase_query("create table test5 (i integer)"); - @ibase_query("delete from test5"); - ibase_close(); - - - echo "default transaction:\n"; - -/* -Difference between default and other transactions: -default committed when you call ibase_close(). -Other transaction doing rollback. - -If you not open default transaction with -ibase_trans, default transaction open -when you call ibase_query(), ibase_prepare(), -ibase_blob_create(), ibase_blob_import() first time. -*/ - -/* -simple default transaction test without ibase_trans() -*/ - - ibase_connect($test_base); - - echo "empty table\n"; - - /* out_table call ibase_query() - and ibase_query() start default transaction */ - out_table("test5"); - - /* in default transaction context */ - ibase_query("insert into test5 (i) values (1)"); - - echo "one row\n"; - out_table("test5"); - - ibase_rollback(); /* default rolled */ - - echo "after rollback table empty again\n"; - out_table("test5"); /* started new default transaction */ - - ibase_query("insert into test5 (i) values (2)"); - - ibase_close(); /* commit here! */ - - ibase_connect($test_base); - - echo "one row\n"; - out_table("test5"); - ibase_close(); - -/* -default transaction on default link -First open transaction on link will be default. -$tr_def_l1 may be omitted. All queryes without link and trans -parameters run in this context -*/ - - $link_def = ibase_connect($test_base); - - $tr_def_l1 = ibase_trans(IBASE_READ); /* here transaction start */ - - /* all default */ - $res = ibase_query("select * from test5"); - - echo "one row\n"; - out_result($res,"test5"); - - ibase_free_result($res); - - /* specify transaction context... */ - $res = ibase_query($tr_def_l1, "select * from test5"); - - echo "one row... again.\n"; - out_result($res,"test5"); - - ibase_free_result($res); - - /* specify default transaction on link */ - $res = ibase_query($link_def, "select * from test5"); - - echo "one row.\n"; - out_result($res,"test5"); - - ibase_free_result($res); - - ibase_rollback($link_def); /* just for example */ - - ibase_close(); - -/* -three transaction on default link -*/ - ibase_connect($test_base); - - $res = ibase_query("select * from test5"); - - echo "one row\n"; - out_result($res,"test5"); - - ibase_free_result($res); - - $tr_1 = ibase_query("SET TRANSACTION"); - $tr_2 = ibase_query("SET TRANSACTION READ ONLY"); - $tr_3 = ibase_trans(IBASE_READ+IBASE_COMMITTED+IBASE_REC_VERSION+IBASE_WAIT); - $tr_4 = ibase_trans(IBASE_READ+IBASE_COMMITTED+IBASE_REC_NO_VERSION+IBASE_NOWAIT); - - /* insert in first transaction context... */ - /* as default */ - ibase_query("insert into test5 (i) values (3)"); - /* specify context */ - ibase_query($tr_1, "insert into test5 (i) values (4)"); - - $res = ibase_query("select * from test5"); - - echo "two rows\n"; - out_result($res,"test5"); - - ibase_free_result($res); - - $res = ibase_query($tr_1, "select * from test5"); - - echo "two rows again\n"; - out_result($res,"test5"); - - ibase_free_result($res); - - ibase_commit(); - ibase_commit($tr_1); - - $tr_1 = ibase_trans(); - ibase_query($tr_1, "insert into test5 (i) values (5)"); - - /* tr_2 is IBASE_READ + IBASE_CONCURRENCY + IBASE_WAIT */ - $res = ibase_query($tr_2, "select * from test5"); - - echo "one row in second transaction\n"; - out_result($res,"test5"); - - ibase_free_result($res); - - /* tr_3 is IBASE_COMMITTED + IBASE_REC_VERSION + IBASE_WAIT */ - $res = ibase_query($tr_3, "select * from test5"); - - echo "three rows in third transaction\n"; - out_result($res,"test5"); - - ibase_free_result($res); - - /* tr_4 IBASE_COMMITTED + IBASE_REC_NO_VERSION + IBASE_NOWAIT */ - $res = ibase_query($tr_4, "select * from test5"); - - echo "three rows in fourth transaction with deadlock\n"; - out_result_trap_error($res,"test5"); - - ibase_free_result($res); - - ibase_rollback($tr_1); - ibase_close(); -/* -transactions on second link -*/ - $link_1 = ibase_pconnect($test_base); - $link_2 = ibase_pconnect($test_base); - - $tr_1 = ibase_trans(IBASE_DEFAULT, $link_2); /* this default transaction also */ - $tr_2 = ibase_trans(IBASE_COMMITTED, $link_2); - - $res = ibase_query($tr_1, "select * from test5"); - - echo "three rows\n"; - out_result($res,"test5"); - - ibase_free_result($res); - - ibase_query($tr_1, "insert into test5 (i) values (5)"); - - $res = ibase_query($tr_1, "select * from test5"); - - echo "four rows\n"; - out_result($res,"test5"); - - ibase_free_result($res); - - ibase_commit($tr_1); - - $res = ibase_query($tr_2, "select * from test5"); - - echo "four rows again\n"; - out_result($res,"test5"); - - ibase_free_result($res); - - ibase_close($link_1); - ibase_close($link_2); - - echo "end of test\n"; -?> ---EXPECTF-- -default transaction: -empty table ---- test5 --- ---- -one row ---- test5 --- -1 ---- -after rollback table empty again ---- test5 --- ---- -one row ---- test5 --- -2 ---- -one row ---- test5 --- -2 ---- -one row... again. ---- test5 --- -2 ---- -one row. ---- test5 --- -2 ---- -one row ---- test5 --- -2 ---- -two rows ---- test5 --- -2 -3 ---- -two rows again ---- test5 --- -2 -4 ---- -one row in second transaction ---- test5 --- -2 ---- -three rows in third transaction ---- test5 --- -2 -3 -4 ---- -three rows in fourth transaction with deadlock ---- test5 --- -2 -3 -4 -errmsg [lock conflict on no wait transaction deadlock %a] ---- -three rows ---- test5 --- -2 -3 -4 ---- -four rows ---- test5 --- -2 -3 -4 -5 ---- -four rows again ---- test5 --- -2 -3 -4 -5 ---- -end of test diff --git a/ext/interbase/tests/006.phpt b/ext/interbase/tests/006.phpt deleted file mode 100644 index b3ced2337b..0000000000 --- a/ext/interbase/tests/006.phpt +++ /dev/null @@ -1,300 +0,0 @@ ---TEST-- -InterBase: binding (may take a while) ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - - require("interbase.inc"); - - ibase_connect($test_base); - - ibase_query( - "create table test6 ( - iter integer, - v_char char(1000), - v_date timestamp, - v_decimal decimal(12,3), - v_double double precision, - v_float float, - v_integer integer, - v_numeric numeric(4,2), - v_smallint smallint, - v_varchar varchar(10000) - )"); - ibase_query( - "create procedure add1 (arg integer) - returns (result integer) - as - begin - result = arg +1; - end"); - ibase_commit(); - - /* if timefmt not supported, hide error */ - ini_set('ibase.timestampformat',"%m/%d/%Y %H:%M:%S"); - - echo "insert\n"; - - for($iter = 0; $iter < 3; $iter++) { - /* prepare data */ - $v_char = rand_str(1000); - $v_date = rand_datetime(); - $v_decimal = rand_number(12,3); - $v_double = rand_number(20); - $v_float = rand_number(7); - $v_integer = rand_number(9,0); - $v_numeric = rand_number(4,2); - $v_smallint = rand_number(5) % 32767; - $v_varchar = rand_str(10000); - - ibase_query("insert into test6 - (iter,v_char,v_date,v_decimal,v_double,v_float, - v_integer,v_numeric,v_smallint,v_varchar) - values (?,?,?,?,?,?,?,?,?,?)", - $iter, $v_char, $v_date, $v_decimal, $v_double, $v_float, - $v_integer, $v_numeric, $v_smallint, $v_varchar); - $sel = ibase_query("select * from test6 where iter = ?", $iter); - - $row = ibase_fetch_object($sel); - if(substr($row->V_CHAR,0,strlen($v_char)) != $v_char) { - echo " CHAR fail:\n"; - echo " in: $v_char\n"; - echo " out: $row->V_CHAR\n"; - } - if($row->V_DATE != $v_date) { - echo " DATE fail\n"; - echo " in: $v_date\n"; - echo " out: $row->V_DATE\n"; - } - if($row->V_DECIMAL != $v_decimal) { - echo " DECIMAL fail\n"; - echo " in: $v_decimal\n"; - echo " out: $row->V_DECIMAL\n"; - } - if(abs($row->V_DOUBLE - $v_double) > abs($v_double / 1E15)) { - echo " DOUBLE fail\n"; - echo " in: $v_double\n"; - echo " out: $row->V_DOUBLE\n"; - } - if(abs($row->V_FLOAT - $v_float) > abs($v_float / 1E7)) { - echo " FLOAT fail\n"; - echo " in: $v_float\n"; - echo " out: $row->V_FLOAT\n"; - } - if($row->V_INTEGER != $v_integer) { - echo " INTEGER fail\n"; - echo " in: $v_integer\n"; - echo " out: $row->V_INTEGER\n"; - } - if ($row->V_NUMERIC != $v_numeric) { - echo " NUMERIC fail\n"; - echo " in: $v_numeric\n"; - echo " out: $row->V_NUMERIC\n"; - } - if ($row->V_SMALLINT != $v_smallint) { - echo " SMALLINT fail\n"; - echo " in: $v_smallint\n"; - echo " out: $row->V_SMALLINT\n"; - } - if ($row->V_VARCHAR != $v_varchar) { - echo " VARCHAR fail:\n"; - echo " in: $v_varchar\n"; - echo " out: $row->V_VARCHAR\n"; - } - ibase_free_result($sel); - }/* for($iter)*/ - - echo "select\n"; - for($iter = 0; $iter < 3; $iter++) { - /* prepare data */ - $v_char = rand_str(1000); - $v_date = (int)rand_number(10,0,0); - $v_decimal = rand_number(12,3); - $v_double = rand_number(20); - $v_float = rand_number(7); - $v_integer = rand_number(9,0); - $v_numeric = rand_number(4,2); - $v_smallint = rand_number(5) % 32767; - $v_varchar = rand_str(10000); - - /* clear table*/ - ibase_query("delete from test6"); - - /* make one record */ - ibase_query("insert into test6 - (iter, v_char,v_date,v_decimal, - v_integer,v_numeric,v_smallint,v_varchar) - values (666, '$v_char',?,$v_decimal, $v_integer, - $v_numeric, $v_smallint, '$v_varchar')",$v_date); - - /* test all types */ - if(!($sel = ibase_query( - "select iter from test6 where v_char = ?", $v_char)) || - !ibase_fetch_row($sel)) { - echo "CHAR fail\n"; - } - ibase_free_result($sel); - if(!($sel = ibase_query( - "select iter from test6 where v_date = ?", $v_date)) || - !ibase_fetch_row($sel)) { - echo "DATE fail\n"; - } - ibase_free_result($sel); - if(!($sel = ibase_query( - "select iter from test6 where v_decimal = ?", $v_decimal)) || - !ibase_fetch_row($sel)) { - echo "DECIMAL fail\n"; - } - ibase_free_result($sel); - if(!($sel = ibase_query( - "select iter from test6 where v_integer = ?", $v_integer)) || - !ibase_fetch_row($sel)) { - echo "INTEGER fail\n"; - } - ibase_free_result($sel); - if(!($sel = ibase_query( - "select iter from test6 where v_numeric = ?", $v_numeric)) || - !ibase_fetch_row($sel)) { - echo "NUMERIC fail\n"; - } - ibase_free_result($sel); - if(!($sel = ibase_query( - "select iter from test6 where v_smallint = ?", $v_smallint)) || - !ibase_fetch_row($sel)) { - echo "SMALLINT fail\n"; - } - ibase_free_result($sel); - if(!($sel = ibase_query( - "select iter from test6 where v_varchar = ?", $v_varchar)) || - !ibase_fetch_row($sel)) { - echo "VARCHAR fail\n"; - } - ibase_free_result($sel); - - } /*for iter*/ - - echo "prepare and exec insert\n"; - - /* prepare table */ - ibase_query("delete from test6"); - - /* prepare query */ - $query = ibase_prepare( - "insert into test6 (v_integer) values (?)"); - - for($i = 0; $i < 10; $i++) { - ibase_execute($query, $i); - } - - out_table("test6"); - - ibase_free_query($query); - - echo "prepare and exec select\n"; - - /* prepare query */ - $query = ibase_prepare("select * from test6 - where v_integer between ? and ?"); - - $low_border = 2; - $high_border = 6; - - $res = ibase_execute($query, $low_border, $high_border); - out_result($res, "test6"); - ibase_free_result($res); - - $low_border = 0; - $high_border = 4; - $res = ibase_execute($query, $low_border, $high_border); - out_result($res, "test6"); - ibase_free_result($res); - - $res = ibase_execute($query, "5", 7.499); - out_result($res, "test6"); - ibase_free_result($res); - - ibase_free_query($query); - - /* test execute procedure */ - $query = ibase_prepare("execute procedure add1(?)"); - $res = array(); - for ($i = 0; $i < 10; $i++) { - $res[] = ibase_execute($query,$i); - } - ibase_free_query($query); - foreach ($res as $r) { - out_result($r, "proc add1"); - ibase_free_result($r); - } - - ibase_close(); - echo "end of test\n"; -?> ---EXPECT-- -insert -select -prepare and exec insert ---- test6 --- - 0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 ---- -prepare and exec select ---- test6 --- - 2 - 3 - 4 - 5 - 6 ---- ---- test6 --- - 0 - 1 - 2 - 3 - 4 ---- ---- test6 --- - 5 - 6 - 7 ---- ---- proc add1 --- -1 ---- ---- proc add1 --- -2 ---- ---- proc add1 --- -3 ---- ---- proc add1 --- -4 ---- ---- proc add1 --- -5 ---- ---- proc add1 --- -6 ---- ---- proc add1 --- -7 ---- ---- proc add1 --- -8 ---- ---- proc add1 --- -9 ---- ---- proc add1 --- -10 ---- -end of test diff --git a/ext/interbase/tests/007.phpt b/ext/interbase/tests/007.phpt deleted file mode 100644 index 8afe6e6ca3..0000000000 --- a/ext/interbase/tests/007.phpt +++ /dev/null @@ -1,183 +0,0 @@ ---TEST-- -InterBase: array handling ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - - require("interbase.inc"); - - ibase_connect($test_base); - - ibase_query( - "create table test7 ( - iter integer, - v_multi integer[10,10,10], - v_char char(100)[10], - v_date timestamp[10], - v_decimal decimal(18,3)[10], - v_double double precision[10], - v_float float[10], - v_integer integer[10], - v_numeric numeric(9,2)[10], - v_smallint smallint[10], - v_varchar varchar(1000)[10] - )"); - ibase_commit(); - - /* if timefmt not supported, hide error */ - ini_set('ibase.timestampformat',"%m/%d/%Y %H:%M:%S"); - - echo "insert\n"; - - for ($i = 1; $i <= 10; ++$i) { - for ($j = 1; $j <= 10; ++$j) { - for ($k = 1; $k <= 10; ++$k) { - $v_multi[$i][$j][$k] = $i * $j * $k; - } - } - } - - for($iter = 0; $iter < 3; $iter++) { - - /* prepare data */ - $v_char = array(); - $v_date = array(); - $v_decimal = array(); - $v_double = array(); - $v_float = array(); - $v_integer = array(); - $v_numeric = array(); - $v_smallint = array(); - $v_varchar = array(); - - for ($i = 1; $i <= 10; ++$i) { - $v_char[$i] = rand_str(100); - $v_date[$i] = rand_datetime(); - $v_decimal[$i] = rand_number(18,3); - $v_double[$i] = rand_number(20); - $v_float[$i] = rand_number(7); - $v_integer[$i] = rand_number(9,0); - $v_numeric[$i] = rand_number(9,2); - $v_smallint[$i] = rand_number(5) % 32767; - $v_varchar[$i] = rand_str(1000); - } - - ibase_query("insert into test7 - (iter,v_multi,v_char,v_date,v_decimal,v_double,v_float, - v_integer,v_numeric,v_smallint,v_varchar) - values (?,?,?,?,?,?,?,?,?,?,?)", - $iter, $v_multi, $v_char, $v_date, $v_decimal, $v_double, $v_float, - $v_integer, $v_numeric, $v_smallint, $v_varchar); - $sel = ibase_query("select * from test7 where iter = $iter"); - - $row = ibase_fetch_object($sel,IBASE_FETCH_ARRAYS); - for ($i = 1; $i <= 10; ++$i) { - - if(strncmp($row->V_CHAR[$i],$v_char[$i],strlen($v_char[$i])) != 0) { - echo " CHAR[$i] fail:\n"; - echo " in: ".$v_char[$i]."\n"; - echo " out: ".$row->V_CHAR[$i]."\n"; - } - if($row->V_DATE[$i] != $v_date[$i]) { - echo " DATE[$i] fail\n"; - echo " in: ".$v_date[$i]."\n"; - echo " out: ".$row->V_DATE[$i]."\n"; - } - if($row->V_DECIMAL[$i] != $v_decimal[$i]) { - echo " DECIMAL[$i] fail\n"; - echo " in: ".$v_decimal[$i]."\n"; - echo " out: ".$row->V_DECIMAL[$i]."\n"; - } - if(abs($row->V_DOUBLE[$i] - $v_double[$i]) > abs($v_double[$i] / 1E15)) { - echo " DOUBLE[$i] fail\n"; - echo " in: ".$v_double[$i]."\n"; - echo " out: ".$row->V_DOUBLE[$i]."\n"; - } - if(abs($row->V_FLOAT[$i] - $v_float[$i]) > abs($v_float[$i] / 1E7)) { - echo " FLOAT[$i] fail\n"; - echo " in: ".$v_float[$i]."\n"; - echo " out: ".$row->V_FLOAT[$i]."\n"; - } - if($row->V_INTEGER[$i] != $v_integer[$i]) { - echo " INTEGER[$i] fail\n"; - echo " in: ".$v_integer[$i]."\n"; - echo " out: ".$row->V_INTEGER[$i]."\n"; - } - if ($row->V_NUMERIC[$i] != $v_numeric[$i]) { - echo " NUMERIC[$i] fail\n"; - echo " in: ".$v_numeric[$i]."\n"; - echo " out: ".$row->V_NUMERIC[$i]."\n"; - } - if ($row->V_SMALLINT[$i] != $v_smallint[$i]) { - echo " SMALLINT[$i] fail\n"; - echo " in: ".$v_smallint[$i]."\n"; - echo " out: ".$row->V_SMALLINT[$i]."\n"; - } - if ($row->V_VARCHAR[$i] != $v_varchar[$i]) { - echo " VARCHAR[$i] fail:\n"; - echo " in: ".$v_varchar[$i]."\n"; - echo " out: ".$row->V_VARCHAR[$i]."\n"; - } - } - ibase_free_result($sel); - }/* for($iter) */ - - echo "select\n"; - - $sel = ibase_query("SELECT v_multi[5,5,5],v_multi[10,10,10] FROM test7 WHERE iter = 0"); - print_r(ibase_fetch_row($sel)); - ibase_free_result($sel); - - for($iter = 1; $iter <= 3; $iter++) { - - if(!($sel = ibase_query( - "select iter from test7 where v_char[$iter] LIKE ?", $v_char[$iter]."%")) || - !ibase_fetch_row($sel)) { - echo "CHAR fail\n"; - } - ibase_free_result($sel); - - if(!($sel = ibase_query( - "select iter from test7 where v_date[$iter] = ?", $v_date[$iter])) || - !ibase_fetch_row($sel)) { - echo "DATE fail\n"; - } - ibase_free_result($sel); - if(!($sel = ibase_query( - "select iter from test7 where v_decimal[$iter] = ?", $v_decimal[$iter])) || - !ibase_fetch_row($sel)) { - echo "DECIMAL fail\n"; - } - ibase_free_result($sel); - if(!($sel = ibase_query( - "select iter from test7 where v_integer[$iter] = ?", $v_integer[$iter])) || - !ibase_fetch_row($sel)) { - echo "INTEGER fail\n"; - } - ibase_free_result($sel); - if(!($sel = ibase_query( - "select iter from test7 where v_numeric[$iter] = ?", $v_numeric[$iter])) || - !ibase_fetch_row($sel)) { - echo "NUMERIC fail\n"; - } - ibase_free_result($sel); - if(!($sel = ibase_query( - "select iter from test7 where v_smallint[$iter] = ?", $v_smallint[$iter])) || - !ibase_fetch_row($sel)) { - echo "SMALLINT fail\n"; - } - ibase_free_result($sel); - } - ibase_close(); - echo "end of test\n"; -?> ---EXPECT-- -insert -select -Array -( - [0] => 125 - [1] => 1000 -) -end of test diff --git a/ext/interbase/tests/008.phpt b/ext/interbase/tests/008.phpt deleted file mode 100644 index c7b01dc2ed..0000000000 --- a/ext/interbase/tests/008.phpt +++ /dev/null @@ -1,48 +0,0 @@ ---TEST-- -InterBase: event handling ---SKIPIF-- -<?php -if (PHP_OS == "WINNT") echo "skip"; -include("skipif.inc"); -?> ---FILE-- -<?php - -require("interbase.inc"); - -$count = 0; - -function event_callback($event) -{ - global $count; - if ($event == 'TEST1') echo "FAIL TEST1\n"; - return (++$count < 5); /* cancel event */ -} - -$link = ibase_connect($test_base); - -ibase_query("CREATE PROCEDURE pevent AS BEGIN POST_EVENT 'TEST1'; POST_EVENT 'TEST2'; END"); -ibase_commit(); - -$e = ibase_set_event_handler('event_callback','TEST1'); -ibase_free_event_handler($e); - -ibase_set_event_handler('event_callback','TEST2'); - -usleep(5E+5); - -for ($i = 0; $i < 8; ++$i) { - ibase_query("EXECUTE PROCEDURE pevent"); - ibase_commit(); - - usleep(3E+5); -} - -usleep(5E+5); - -if (!$count || $count > 5) echo "FAIL ($count)\n"; -echo "end of test\n"; - -?> ---EXPECT-- -end of test diff --git a/ext/interbase/tests/bug45373.phpt b/ext/interbase/tests/bug45373.phpt deleted file mode 100644 index 57ac126d07..0000000000 --- a/ext/interbase/tests/bug45373.phpt +++ /dev/null @@ -1,47 +0,0 @@ ---TEST-- -Bug #45373 (php crash on query with errors in params) ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - - require("interbase.inc"); - - $db = ibase_connect($test_base); - - - $sql = "select * from test1 where i = ? and c = ?"; - - $q = ibase_prepare($db, $sql); - $r = ibase_execute($q, 1, 'test table not created with isql'); - var_dump(ibase_fetch_assoc($r)); - ibase_free_result($r); - - $r = ibase_execute($q, 1, 'test table not created with isql', 1); - var_dump(ibase_fetch_assoc($r)); - ibase_free_result($r); - - $r = ibase_execute($q, 1); - var_dump(ibase_fetch_assoc($r)); - -?> ---EXPECTF-- -array(2) { - ["I"]=> - int(1) - ["C"]=> - string(32) "test table not created with isql" -} - -Notice: ibase_execute(): Statement expects 2 arguments, 3 given in %s on line %d -array(2) { - ["I"]=> - int(1) - ["C"]=> - string(32) "test table not created with isql" -} - -Warning: ibase_execute(): Statement expects 2 arguments, 1 given in %s on line %d - -Warning: ibase_fetch_assoc() expects parameter 1 to be resource, bool given in %s on line %d -NULL diff --git a/ext/interbase/tests/bug45575.phpt b/ext/interbase/tests/bug45575.phpt deleted file mode 100644 index ca0fa831e0..0000000000 --- a/ext/interbase/tests/bug45575.phpt +++ /dev/null @@ -1,22 +0,0 @@ ---TEST-- -Bug #45575 (Segfault with invalid non-string as event handler callback) ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -$db = ibase_connect($test_base); - -function foobar($var) { var_dump($var); return true; } - -ibase_set_event_handler($db, null, 'TEST1'); -ibase_set_event_handler($db, 1, 'TEST1'); -ibase_set_event_handler('foobar', 'TEST1'); - -?> ---EXPECTF-- -Warning: ibase_set_event_handler(): Callback argument is not a callable function in %s on line %d - -Warning: ibase_set_event_handler(): Callback argument 1 is not a callable function in %s on line %d diff --git a/ext/interbase/tests/bug46247.phpt b/ext/interbase/tests/bug46247.phpt deleted file mode 100644 index f682ff66f0..0000000000 --- a/ext/interbase/tests/bug46247.phpt +++ /dev/null @@ -1,35 +0,0 @@ ---TEST-- -Bug #46247 (ibase_set_event_handler() is allowing to pass callback without event) ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -$db = ibase_connect($test_base); - -function test() { } - -ibase_set_event_handler(); - -ibase_set_event_handler('test', 1); -ibase_set_event_handler($db, 'test', 1); -ibase_set_event_handler(NULL, 'test', 1); - - -ibase_set_event_handler('foo', 1); -ibase_set_event_handler($db, 'foo', 1); -ibase_set_event_handler(NULL, 'foo', 1); - -?> ---EXPECTF-- -Warning: Wrong parameter count for ibase_set_event_handler() in %s on line %d - -Warning: ibase_set_event_handler(): supplied argument is not a valid InterBase link resource in %s on line %d - -Warning: ibase_set_event_handler(): Callback argument foo is not a callable function in %s on line %d - -Warning: ibase_set_event_handler(): Callback argument foo is not a callable function in %s on line %d - -Warning: ibase_set_event_handler(): supplied argument is not a valid InterBase link resource in %s on line %d diff --git a/ext/interbase/tests/bug46543.phpt b/ext/interbase/tests/bug46543.phpt deleted file mode 100644 index 88f38a6bd1..0000000000 --- a/ext/interbase/tests/bug46543.phpt +++ /dev/null @@ -1,28 +0,0 @@ ---TEST-- -Bug #46543 (ibase_trans() memory leaks when using wrong parameters) ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -@ibase_close(); - -ibase_trans(1); -ibase_trans(); -ibase_trans('foo'); -ibase_trans(fopen(__FILE__, 'r')); - -$x = ibase_connect($test_base); -ibase_trans(1, 2, $x, $x, 3); - -?> ---EXPECTF-- -Warning: ibase_trans(): supplied resource is not a valid Firebird/InterBase link resource in %sbug46543.php on line %d - -Warning: ibase_trans(): supplied resource is not a valid Firebird/InterBase link resource in %sbug46543.php on line %d - -Warning: ibase_trans(): supplied resource is not a valid Firebird/InterBase link resource in %sbug46543.php on line %d - -Warning: ibase_trans(): supplied resource is not a valid Firebird/InterBase link resource in %sbug46543.php on line %d diff --git a/ext/interbase/tests/ibase_affected_rows_001.phpt b/ext/interbase/tests/ibase_affected_rows_001.phpt deleted file mode 100644 index 398a84c8bb..0000000000 --- a/ext/interbase/tests/ibase_affected_rows_001.phpt +++ /dev/null @@ -1,32 +0,0 @@ ---TEST-- -ibase_affected_rows(): Basic test ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -$x = ibase_connect($test_base); - -ibase_query($x, 'INSERT INTO test1 VALUES (1, 100)'); -ibase_query($x, 'INSERT INTO test1 VALUES (10000, 100)'); - -ibase_query($x, 'UPDATE test1 SET i = 10000'); -var_dump(ibase_affected_rows($x)); - - -ibase_query($x, 'UPDATE test1 SET i = 10000 WHERE i = 2.0'); -var_dump(ibase_affected_rows($x)); - -ibase_query($x, 'UPDATE test1 SET i ='); -var_dump(ibase_affected_rows($x)); - - -?> ---EXPECTF-- -int(3) -int(0) - -Warning: ibase_query(): Dynamic SQL Error SQL error code = -104 %s on line %d -int(0) diff --git a/ext/interbase/tests/ibase_close_001.phpt b/ext/interbase/tests/ibase_close_001.phpt deleted file mode 100644 index 80c17314d0..0000000000 --- a/ext/interbase/tests/ibase_close_001.phpt +++ /dev/null @@ -1,23 +0,0 @@ ---TEST-- -ibase_close(): Basic test ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -$x = ibase_connect($test_base); -var_dump(ibase_close($x)); -var_dump(ibase_close($x)); -var_dump(ibase_close()); -var_dump(ibase_close('foo')); - -?> ---EXPECTF-- -bool(true) -bool(true) -bool(true) - -Warning: ibase_close() expects parameter 1 to be resource, string given in %s on line %d -NULL diff --git a/ext/interbase/tests/ibase_drop_db_001.phpt b/ext/interbase/tests/ibase_drop_db_001.phpt deleted file mode 100644 index 5aabb8bffe..0000000000 --- a/ext/interbase/tests/ibase_drop_db_001.phpt +++ /dev/null @@ -1,31 +0,0 @@ ---TEST-- -ibase_drop_db(): Basic test ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -unlink($file = tempnam('/tmp',"php_ibase_test")); - - -$db = ibase_query(IBASE_CREATE, - sprintf("CREATE SCHEMA '%s' USER '%s' PASSWORD '%s' DEFAULT CHARACTER SET %s",$file, - $user, $password, ($charset = ini_get('ibase.default_charset')) ? $charset : 'NONE')); - -var_dump($db); -var_dump(ibase_drop_db($db)); -var_dump(ibase_drop_db(1)); -var_dump(ibase_drop_db(NULL)); - -?> ---EXPECTF-- -resource(%d) of type (Firebird/InterBase link) -bool(true) - -Warning: ibase_drop_db() expects parameter 1 to be resource, int given in %s on line %d -NULL - -Warning: ibase_drop_db() expects parameter 1 to be resource, null given in %s on line %d -NULL diff --git a/ext/interbase/tests/ibase_errmsg_001.phpt b/ext/interbase/tests/ibase_errmsg_001.phpt deleted file mode 100644 index ad0e827f98..0000000000 --- a/ext/interbase/tests/ibase_errmsg_001.phpt +++ /dev/null @@ -1,22 +0,0 @@ ---TEST-- -ibase_errmsg(): Basic test ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -$x = ibase_connect($test_base); - -ibase_query('SELECT Foobar'); -var_dump(ibase_errmsg()); - -ibase_close($x); -var_dump(ibase_errmsg()); - -?> ---EXPECTF-- -Warning: ibase_query(): Dynamic SQL Error SQL error code = -104 %s on line %d -string(%d) "Dynamic SQL Error SQL error code = -104 %s" -bool(false) diff --git a/ext/interbase/tests/ibase_free_query_001.phpt b/ext/interbase/tests/ibase_free_query_001.phpt deleted file mode 100644 index 069f0f0424..0000000000 --- a/ext/interbase/tests/ibase_free_query_001.phpt +++ /dev/null @@ -1,28 +0,0 @@ ---TEST-- -ibase_free_query(): Basic test ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -$x = ibase_connect($test_base); - -$q =ibase_prepare($x, 'SELECT 1 FROM test1 WHERE i = ?'); -$q =ibase_prepare($x, 'SELECT 1 FROM test1 WHERE i = ?'); -$q = ibase_prepare($x, 'SELECT 1 FROM test1 WHERE i = ?'); - -var_dump(ibase_free_query($q)); -var_dump(ibase_free_query($q)); -var_dump(ibase_free_query($x)); - -?> ---EXPECTF-- -bool(true) - -Warning: ibase_free_query(): supplied resource is not a valid Firebird/InterBase query resource in %s on line %d -bool(false) - -Warning: ibase_free_query(): supplied resource is not a valid Firebird/InterBase query resource in %s on line %d -bool(false) diff --git a/ext/interbase/tests/ibase_num_fields_001.phpt b/ext/interbase/tests/ibase_num_fields_001.phpt deleted file mode 100644 index 3c4074e244..0000000000 --- a/ext/interbase/tests/ibase_num_fields_001.phpt +++ /dev/null @@ -1,25 +0,0 @@ ---TEST-- -ibase_num_fields(): Basic test ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -$x = ibase_connect($test_base); - -var_dump(ibase_num_fields(ibase_query('SELECT * FROM test1'))); - -var_dump(ibase_num_fields(1)); -var_dump(ibase_num_fields()); - -?> ---EXPECTF-- -int(2) - -Warning: ibase_num_fields() expects parameter 1 to be resource, int given in %s on line %d -NULL - -Warning: ibase_num_fields() expects exactly 1 parameter, 0 given in %s on line %d -NULL diff --git a/ext/interbase/tests/ibase_num_params_001.phpt b/ext/interbase/tests/ibase_num_params_001.phpt deleted file mode 100644 index 709c9b769b..0000000000 --- a/ext/interbase/tests/ibase_num_params_001.phpt +++ /dev/null @@ -1,32 +0,0 @@ ---TEST-- -ibase_num_params(): Basic test ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -$x = ibase_connect($test_base); - -$rs = ibase_prepare('SELECT * FROM test1 WHERE 1 = ? AND 2 = ?'); -var_dump(ibase_num_params($rs)); - -$rs = ibase_prepare('SELECT * FROM test1 WHERE 1 = ? AND 2 = ?'); -var_dump(ibase_num_params()); - -$rs = ibase_prepare('SELECT * FROM test1 WHERE 1 = ? AND 2 = ? AND 3 = :x'); -var_dump(ibase_num_params($rs)); - - -?> ---EXPECTF-- -int(2) - -Warning: ibase_num_params() expects exactly 1 parameter, 0 given in %s on line %d -NULL - -Warning: ibase_prepare(): Dynamic SQL Error SQL error code = -206 %s in %s on line %d - -Warning: ibase_num_params() expects parameter 1 to be resource, bool given in %s on line %d -NULL diff --git a/ext/interbase/tests/ibase_param_info_001.phpt b/ext/interbase/tests/ibase_param_info_001.phpt deleted file mode 100644 index 31fe196ce6..0000000000 --- a/ext/interbase/tests/ibase_param_info_001.phpt +++ /dev/null @@ -1,53 +0,0 @@ ---TEST-- -ibase_param_info(): Basic test ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -$x = ibase_connect($test_base); - -$rs = ibase_prepare('SELECT * FROM test1 WHERE 1 = ? AND 2 = ?'); -var_dump(ibase_param_info($rs, 1)); - -print "---\n"; - -var_dump(ibase_param_info($rs, 100)); - -print "---\n"; - -var_dump(ibase_param_info(100)); - - -?> ---EXPECTF-- -array(10) { - [0]=> - string(0) "" - ["name"]=> - string(0) "" - [1]=> - string(0) "" - ["alias"]=> - string(0) "" - [2]=> - string(0) "" - ["relation"]=> - string(0) "" - [3]=> - string(1) "4" - ["length"]=> - string(1) "4" - [4]=> - string(7) "INTEGER" - ["type"]=> - string(7) "INTEGER" -} ---- -bool(false) ---- - -Warning: ibase_param_info() expects exactly 2 parameters, 1 given in %s on line %d -NULL diff --git a/ext/interbase/tests/ibase_rollback_001.phpt b/ext/interbase/tests/ibase_rollback_001.phpt deleted file mode 100644 index 3cde5e9d46..0000000000 --- a/ext/interbase/tests/ibase_rollback_001.phpt +++ /dev/null @@ -1,41 +0,0 @@ ---TEST-- -ibase_rollback(): Basic test ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -$x = ibase_connect($test_base); - -ibase_query('INSERT INTO test1 VALUES (100, 2)'); -ibase_query('INSERT INTO test1 VALUES (100, 2)'); -ibase_query('INSERT INTO test1 VALUES (100, 2)'); - -$rs = ibase_query('SELECT COUNT(*) FROM test1 WHERE i = 100'); -var_dump(ibase_fetch_row($rs)); - -var_dump(ibase_rollback($x)); - -$rs = ibase_query('SELECT COUNT(*) FROM test1 WHERE i = 100'); -var_dump(ibase_fetch_row($rs)); - -var_dump(ibase_rollback($x)); -var_dump(ibase_rollback()); - -?> ---EXPECTF-- -array(1) { - [0]=> - int(3) -} -bool(true) -array(1) { - [0]=> - int(0) -} -bool(true) - -Warning: ibase_rollback(): invalid transaction handle (expecting explicit transaction start) in %s on line %d -bool(false) diff --git a/ext/interbase/tests/ibase_trans_001.phpt b/ext/interbase/tests/ibase_trans_001.phpt deleted file mode 100644 index cceb60e9a1..0000000000 --- a/ext/interbase/tests/ibase_trans_001.phpt +++ /dev/null @@ -1,21 +0,0 @@ ---TEST-- -ibase_trans(): Basic test ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -$x = ibase_connect($test_base); -var_dump(ibase_trans($x)); -var_dump(ibase_trans(1)); -var_dump(ibase_close()); -var_dump(ibase_close($x)); - -?> ---EXPECTF-- -resource(%d) of type (Firebird/InterBase transaction) -resource(%d) of type (Firebird/InterBase transaction) -bool(true) -bool(true) diff --git a/ext/interbase/tests/ibase_trans_002.phpt b/ext/interbase/tests/ibase_trans_002.phpt deleted file mode 100644 index be7c073ca3..0000000000 --- a/ext/interbase/tests/ibase_trans_002.phpt +++ /dev/null @@ -1,34 +0,0 @@ ---TEST-- -ibase_trans(): Basic operations ---SKIPIF-- -<?php include("skipif.inc"); ?> ---FILE-- -<?php - -require("interbase.inc"); - -$x = ibase_connect($test_base); - -$trans = ibase_trans(IBASE_DEFAULT, $x); -$sth = ibase_prepare($trans, 'INSERT INTO test1 VALUES (?, ?)'); - -$res = ibase_execute($sth, 100, 100); -var_dump($res); - -ibase_commit($trans); - -$rs = ibase_query($x, 'SELECT * FROM test1 WHERE i = 100'); -var_dump(ibase_fetch_assoc($rs)); - -ibase_free_query($sth); -unset($res); - -?> ---EXPECT-- -int(1) -array(2) { - ["I"]=> - int(100) - ["C"]=> - string(3) "100" -} diff --git a/ext/interbase/tests/interbase.inc b/ext/interbase/tests/interbase.inc deleted file mode 100644 index eb762b5d90..0000000000 --- a/ext/interbase/tests/interbase.inc +++ /dev/null @@ -1,120 +0,0 @@ -<?php - -srand((double)microtime()*1000000); - -$user = 'SYSDBA'; -$password = 'masterkey'; -ini_set('ibase.default_user',$user); -ini_set('ibase.default_password',$password); - -/* we need just the generated name, not the file itself */ -unlink($test_base = tempnam(sys_get_temp_dir(),"php_ibase_test")); - -function init_db() -{ - global $test_base, $user, $password; - - $test_db = ibase_query(IBASE_CREATE, - sprintf("CREATE SCHEMA '%s' USER '%s' PASSWORD '%s' DEFAULT CHARACTER SET %s",$test_base, - $user, $password, ($charset = ini_get('ibase.default_charset')) ? $charset : 'NONE')); - $tr = ibase_trans($test_db); - ibase_query($tr,"create table test1 (i integer, c varchar(100))"); - ibase_commit_ret($tr); - ibase_query($tr,"insert into test1(i, c) values(1, 'test table not created with isql')"); - ibase_commit($tr); - ibase_close($test_db); -} - -function cleanup_db() -{ - global $test_base; - - $r = ibase_connect($test_base); - ibase_drop_db($r); -} - -register_shutdown_function('cleanup_db'); -init_db(); - -function out_table($table_name) -{ - echo "--- $table_name ---\n"; - $res = ibase_query("select * from $table_name"); - while ($r = ibase_fetch_row($res)) { - echo join("\t",$r)."\t\n"; - } - ibase_free_result($res); - echo "---\n"; -} - -function out_result($result, $table_name = "") -{ - echo "--- $table_name ---\n"; - while ($r = ibase_fetch_row($result)) { - echo join("\t",$r)."\t\n"; - } - echo "---\n"; -} - -function out_result_trap_error($result, $table_name = "") -{ - echo "--- $table_name ---\n"; - while ($r = @ibase_fetch_row($result)) { - echo join("\t",$r)."\t\n"; - } - echo "errmsg [" . ibase_errmsg() . "]\n"; - echo "---\n"; -} - -/* M/D/Y H:M:S */ -function rand_datetime() -{ - return sprintf("%02d/%02d/%4d %02d:%02d:%02d", - rand()%12+1, rand()%28+1, rand()%100+1910, - rand()%24, rand()%60, rand()%60); -} - -/* random binary string */ -function rand_binstr($max_len) -{ - $len = rand() % $max_len; - $s = ""; - while($len--) { - $s .= sprintf("%c", rand() % 256); - } - return $s; -} - -function rand_str($max_len) -{ - $len = rand() % $max_len; - $s = ""; - while ($len--) { - $s .= sprintf("%c", rand() % 26 + 65); - } - return $s; -} - -function rand_number($len , $prec = -1, $sign = 1) -{ - if ($prec == -1) { - $n = substr(rand() . rand(), 0, rand() % $len + 1); - if (strlen($n) < $len) { - $n .= "." . substr(rand(), 0, rand() % ($len - strlen($n)) + 1); - } - } else if ($prec == 0) { - $n = substr(rand() . rand(), 0, rand() % $len + 1); - } else if (($prec - $len) == 0) { - $n = substr(rand() . rand(), 0, 1); - $n .= "." . substr(rand(), 0, $prec); - } else { - $n = substr(rand() . rand(), 0, rand() % ($len - $prec) + 1); - $n .= "." . substr(rand(), 0, $prec); - } - if ($sign && (rand() % 3 == 0)) { - $n = "-" .$n; - } - return $n; -} - -?> diff --git a/ext/interbase/tests/skipif.inc b/ext/interbase/tests/skipif.inc deleted file mode 100644 index c854f5bc99..0000000000 --- a/ext/interbase/tests/skipif.inc +++ /dev/null @@ -1,8 +0,0 @@ -<?php - -if (!extension_loaded("interbase")) print "skip interbase extension not available"; -require("interbase.inc"); -if(!@ibase_connect($test_base)){ - die("skip cannot connect"); -} -?> diff --git a/ext/standard/credits_ext.h b/ext/standard/credits_ext.h index 4af3f22f2c..0df11f4109 100644 --- a/ext/standard/credits_ext.h +++ b/ext/standard/credits_ext.h @@ -32,7 +32,6 @@ CREDIT_LINE("GNU GMP support", "Stanislav Malyshev"); CREDIT_LINE("Iconv", "Rui Hirokawa, Stig Bakken, Moriyoshi Koizumi"); CREDIT_LINE("IMAP", "Rex Logan, Mark Musone, Brian Wang, Kaj-Michael Lang, Antoni Pamies Olive, Rasmus Lerdorf, Andrew Skalski, Chuck Hagenbuch, Daniel R Kalowsky"); CREDIT_LINE("Input Filter", "Rasmus Lerdorf, Derick Rethans, Pierre-Alain Joye, Ilia Alshanetsky"); -CREDIT_LINE("InterBase", "Jouni Ahto, Andrew Avdeev, Ard Biesheuvel"); CREDIT_LINE("Internationalization", "Ed Batutis, Vladimir Iordanov, Dmitry Lakhtyuk, Stanislav Malyshev, Vadim Savchuk, Kirti Velankar"); CREDIT_LINE("JSON", "Jakub Zelenka, Omar Kilani, Scott MacVicar"); CREDIT_LINE("LDAP", "Amitay Isaacs, Eric Warnke, Rasmus Lerdorf, Gerrit Thomson, Stig Venaas"); |