forked from php/php-src
-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Adding FrontBase support to the DBX extension
- Loading branch information
Showing
4 changed files
with
330 additions
and
1 deletion.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,248 @@ | ||
| /* | ||
| +----------------------------------------------------------------------+ | ||
| | PHP version 4.0 | | ||
| +----------------------------------------------------------------------+ | ||
| | Copyright (c) 1997-2001 The PHP Group | | ||
| +----------------------------------------------------------------------+ | ||
| | dbx module version 1.0 | | ||
| +----------------------------------------------------------------------+ | ||
| | Copyright (c) 2001 Guidance Rotterdam BV | | ||
| +----------------------------------------------------------------------+ | ||
| | This source file is subject to version 2.02 of the PHP license, | | ||
| | that is bundled with this package in the file LICENSE, and is | | ||
| | available at through the world-wide-web at | | ||
| | http://www.php.net/license/2_02.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 | | ||
| | [email protected] so we can mail you a copy immediately. | | ||
| +----------------------------------------------------------------------+ | ||
| | Author : Marc Boeren <[email protected]> | | ||
| | Frank M. Kromann <[email protected]> | | ||
| +----------------------------------------------------------------------+ | ||
| */ | ||
|
|
||
| #include "dbx.h" | ||
| #include "dbx_fbsql.h" | ||
|
|
||
| #define FBSQL_ASSOC 1<<0 | ||
| #define FBSQL_NUM 1<<1 | ||
|
|
||
| int dbx_fbsql_connect(zval ** rv, zval ** host, zval ** db, zval ** username, zval ** password, INTERNAL_FUNCTION_PARAMETERS) { | ||
| /* returns connection handle as resource on success or 0 as long on failure */ | ||
| int number_of_arguments=3; | ||
| zval ** arguments[3]; | ||
| zval * returned_zval=NULL; | ||
| zval * select_db_zval=NULL; | ||
|
|
||
| arguments[0]=host; | ||
| arguments[1]=username; | ||
| arguments[2]=password; | ||
| dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "fbsql_connect", &returned_zval, number_of_arguments, arguments); | ||
| if (!returned_zval || returned_zval->type!=IS_RESOURCE) { | ||
| if (returned_zval) zval_ptr_dtor(&returned_zval); | ||
| return 0; | ||
| } | ||
|
|
||
| number_of_arguments=2; | ||
| arguments[0]=db; | ||
| arguments[1]=&returned_zval; | ||
| dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "fbsql_select_db", &select_db_zval, number_of_arguments, arguments); | ||
| if (!select_db_zval || (select_db_zval->type==IS_BOOL && select_db_zval->value.lval==0) ) { | ||
| if (select_db_zval) zval_ptr_dtor(&select_db_zval); | ||
| /* also close connection */ | ||
| number_of_arguments=1; | ||
| arguments[0]=&returned_zval; | ||
| zend_list_addref(returned_zval->value.lval); | ||
| dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "fbsql_close", &select_db_zval, number_of_arguments, arguments); | ||
| if (select_db_zval) zval_ptr_dtor(&select_db_zval); | ||
| zval_ptr_dtor(&returned_zval); | ||
| return 0; | ||
| } | ||
| zval_ptr_dtor(&select_db_zval); | ||
|
|
||
| MOVE_RETURNED_TO_RV(rv, returned_zval); | ||
|
|
||
| return 1; | ||
| } | ||
|
|
||
| int dbx_fbsql_pconnect(zval ** rv, zval ** host, zval ** db, zval ** username, zval ** password, INTERNAL_FUNCTION_PARAMETERS) { | ||
| /* returns persistent connection handle as resource on success or 0 as long on failure */ | ||
| int number_of_arguments=3; | ||
| zval ** arguments[3]; | ||
| zval * returned_zval=NULL; | ||
| zval * select_db_zval=NULL; | ||
|
|
||
| arguments[0]=host; | ||
| arguments[1]=username; | ||
| arguments[2]=password; | ||
| dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "fbsql_pconnect", &returned_zval, number_of_arguments, arguments); | ||
| if (!returned_zval || returned_zval->type!=IS_RESOURCE) { | ||
| if (returned_zval) zval_ptr_dtor(&returned_zval); | ||
| return 0; | ||
| } | ||
|
|
||
| number_of_arguments=2; | ||
| arguments[0]=db; | ||
| arguments[1]=&returned_zval; | ||
| dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "fbsql_select_db", &select_db_zval, number_of_arguments, arguments); | ||
| if (!select_db_zval || (select_db_zval->type==IS_BOOL && select_db_zval->value.lval==0) ) { | ||
| if (select_db_zval) zval_ptr_dtor(&select_db_zval); | ||
| /* also close connection */ | ||
| number_of_arguments=1; | ||
| arguments[0]=&returned_zval; | ||
| zend_list_addref(returned_zval->value.lval); | ||
| dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "fbsql_close", &select_db_zval, number_of_arguments, arguments); | ||
| if (select_db_zval) zval_ptr_dtor(&select_db_zval); | ||
| zval_ptr_dtor(&returned_zval); | ||
| return 0; | ||
| } | ||
| zval_ptr_dtor(&select_db_zval); | ||
|
|
||
| MOVE_RETURNED_TO_RV(rv, returned_zval); | ||
|
|
||
| return 1; | ||
| } | ||
|
|
||
| int dbx_fbsql_close(zval ** rv, zval ** dbx_handle, INTERNAL_FUNCTION_PARAMETERS) { | ||
| /* returns 1 as long on success or 0 as long on failure */ | ||
| int number_of_arguments=1; | ||
| zval ** arguments[1]; | ||
| zval * returned_zval=NULL; | ||
|
|
||
| arguments[0]=dbx_handle; | ||
| dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "fbsql_close", &returned_zval, number_of_arguments, arguments); | ||
| if (!returned_zval || returned_zval->type!=IS_BOOL) { | ||
| if (returned_zval) zval_ptr_dtor(&returned_zval); | ||
| return 0; | ||
| } | ||
| MOVE_RETURNED_TO_RV(rv, returned_zval); | ||
| return 1; | ||
| } | ||
|
|
||
| int dbx_fbsql_query(zval ** rv, zval ** dbx_handle, zval ** db_name, zval ** sql_statement, INTERNAL_FUNCTION_PARAMETERS) { | ||
| /* returns 1 as long or a result identifier as resource on success or 0 as long on failure */ | ||
| int number_of_arguments=3; | ||
| zval ** arguments[3]; | ||
| zval * returned_zval=NULL; | ||
|
|
||
| arguments[0]=db_name; | ||
| arguments[1]=sql_statement; | ||
| arguments[2]=dbx_handle; | ||
| dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "fbsql_db_query", &returned_zval, number_of_arguments, arguments); | ||
| /* fbsql_query returns a bool for success or failure, or a result_identifier for select statements */ | ||
| if (!returned_zval || (returned_zval->type!=IS_BOOL && returned_zval->type!=IS_RESOURCE)) { | ||
| if (returned_zval) zval_ptr_dtor(&returned_zval); | ||
| return 0; | ||
| } | ||
| MOVE_RETURNED_TO_RV(rv, returned_zval); | ||
| return 1; | ||
| } | ||
|
|
||
| int dbx_fbsql_getcolumncount(zval ** rv, zval ** result_handle, INTERNAL_FUNCTION_PARAMETERS) { | ||
| /* returns column-count as long on success or 0 as long on failure */ | ||
| int number_of_arguments=1; | ||
| zval ** arguments[1]; | ||
| zval * returned_zval=NULL; | ||
|
|
||
| arguments[0]=result_handle; | ||
| dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "fbsql_num_fields", &returned_zval, number_of_arguments, arguments); | ||
| if (!returned_zval || returned_zval->type!=IS_LONG) { | ||
| if (returned_zval) zval_ptr_dtor(&returned_zval); | ||
| return 0; | ||
| } | ||
| MOVE_RETURNED_TO_RV(rv, returned_zval); | ||
| return 1; | ||
| } | ||
|
|
||
| int dbx_fbsql_getcolumnname(zval ** rv, zval ** result_handle, long column_index, INTERNAL_FUNCTION_PARAMETERS) { | ||
| /* returns column-name as string on success or 0 as long on failure */ | ||
| int number_of_arguments=2; | ||
| zval ** arguments[2]; | ||
| zval * zval_column_index; | ||
| zval * returned_zval=NULL; | ||
|
|
||
| MAKE_STD_ZVAL(zval_column_index); | ||
| ZVAL_LONG(zval_column_index, column_index); | ||
| arguments[0]=result_handle; | ||
| arguments[1]=&zval_column_index; | ||
| dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "fbsql_field_name", &returned_zval, number_of_arguments, arguments); | ||
| /* fbsql_field_name returns a string */ | ||
| if (!returned_zval || returned_zval->type!=IS_STRING) { | ||
| if (returned_zval) zval_ptr_dtor(&returned_zval); | ||
| FREE_ZVAL(zval_column_index); | ||
| return 0; | ||
| } | ||
| FREE_ZVAL(zval_column_index); | ||
| MOVE_RETURNED_TO_RV(rv, returned_zval); | ||
| return 1; | ||
| } | ||
|
|
||
| int dbx_fbsql_getcolumntype(zval ** rv, zval ** result_handle, long column_index, INTERNAL_FUNCTION_PARAMETERS) { | ||
| /* returns column-type as string on success or 0 as long on failure */ | ||
| int number_of_arguments=2; | ||
| zval ** arguments[2]; | ||
| zval * zval_column_index; | ||
| zval * returned_zval=NULL; | ||
|
|
||
| MAKE_STD_ZVAL(zval_column_index); | ||
| ZVAL_LONG(zval_column_index, column_index); | ||
| arguments[0]=result_handle; | ||
| arguments[1]=&zval_column_index; | ||
| dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "fbsql_field_type", &returned_zval, number_of_arguments, arguments); | ||
| /* fbsql_field_name returns a string */ | ||
| if (!returned_zval || returned_zval->type!=IS_STRING) { | ||
| if (returned_zval) zval_ptr_dtor(&returned_zval); | ||
| FREE_ZVAL(zval_column_index); | ||
| return 0; | ||
| } | ||
| FREE_ZVAL(zval_column_index); | ||
|
|
||
| MOVE_RETURNED_TO_RV(rv, returned_zval); | ||
| return 1; | ||
| } | ||
|
|
||
| int dbx_fbsql_getrow(zval ** rv, zval ** result_handle, long row_number, INTERNAL_FUNCTION_PARAMETERS) { | ||
| /* returns array[0..columncount-1] as strings on success or 0 as long on failure */ | ||
| int number_of_arguments=2; | ||
| zval ** arguments[2]; | ||
| zval * zval_resulttype=NULL; | ||
| zval * returned_zval=NULL; | ||
|
|
||
| MAKE_STD_ZVAL(zval_resulttype); | ||
| ZVAL_LONG(zval_resulttype, FBSQL_NUM); | ||
| arguments[0]=result_handle; | ||
| arguments[1]=&zval_resulttype; | ||
| dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "fbsql_fetch_array", &returned_zval, number_of_arguments, arguments); | ||
| if (!returned_zval || returned_zval->type!=IS_ARRAY) { | ||
| if (returned_zval) zval_ptr_dtor(&returned_zval); | ||
| FREE_ZVAL(zval_resulttype); | ||
| return 0; | ||
| } | ||
| FREE_ZVAL(zval_resulttype); | ||
| MOVE_RETURNED_TO_RV(rv, returned_zval); | ||
| return 1; | ||
| } | ||
|
|
||
| int dbx_fbsql_error(zval ** rv, zval ** dbx_handle, INTERNAL_FUNCTION_PARAMETERS) { | ||
| /* returns string */ | ||
| int number_of_arguments=1; | ||
| zval ** arguments[1]; | ||
| zval * returned_zval=NULL; | ||
|
|
||
| arguments[0]=dbx_handle; | ||
| if (!dbx_handle) number_of_arguments=0; | ||
| dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "fbsql_error", &returned_zval, number_of_arguments, arguments); | ||
| if (!returned_zval || returned_zval->type!=IS_STRING) { | ||
| if (returned_zval) zval_ptr_dtor(&returned_zval); | ||
| return 0; | ||
| } | ||
| MOVE_RETURNED_TO_RV(rv, returned_zval); | ||
| return 1; | ||
| } | ||
|
|
||
| /* | ||
| * Local variables: | ||
| * tab-width: 4 | ||
| * c-basic-offset: 4 | ||
| * End: | ||
| */ |
Oops, something went wrong.