Marc Boeren
25 years ago
10 changed files with 385 additions and 8 deletions
-
1ext/dbx/CREDITS
-
2ext/dbx/Makefile.in
-
16ext/dbx/dbx.c
-
10ext/dbx/dbx.dsp
-
282ext/dbx/dbx_sybasect.c
-
60ext/dbx/dbx_sybasect.h
-
1ext/dbx/tests/002.phpt
-
5ext/dbx/tests/005.phpt
-
6ext/dbx/tests/006.phpt
-
10ext/dbx/tests/dbx_test.p
@ -1,6 +1,6 @@ |
|||
|
|||
LTLIBRARY_NAME = libdbx.la |
|||
LTLIBRARY_SOURCES = dbx.c dbx_mysql.c dbx_odbc.c dbx_pgsql.c dbx_mssql.c dbx_fbsql.c dbx_oci8.c |
|||
LTLIBRARY_SOURCES = dbx.c dbx_mysql.c dbx_odbc.c dbx_pgsql.c dbx_mssql.c dbx_fbsql.c dbx_oci8.c dbx_sybasect.c |
|||
LTLIBRARY_SHARED_NAME = dbx.la |
|||
|
|||
include $(top_srcdir)/build/dynlib.mk |
|||
@ -0,0 +1,282 @@ |
|||
/* |
|||
+----------------------------------------------------------------------+ |
|||
| PHP Version 4 | |
|||
+----------------------------------------------------------------------+ |
|||
| Copyright (c) 1997-2002 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 | |
|||
| license@php.net so we can mail you a copy immediately. | |
|||
+----------------------------------------------------------------------+ |
|||
| Author : Marc Boeren <marc@guidance.nl> | |
|||
+----------------------------------------------------------------------+ |
|||
*/ |
|||
|
|||
/* $Id$ */ |
|||
|
|||
#include "dbx.h" |
|||
#include "dbx_sybasect.h" |
|||
|
|||
#define MYSQL_ASSOC 1<<0 |
|||
#define MYSQL_NUM 1<<1 |
|||
|
|||
int dbx_sybasect_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, "sybase_connect", &returned_zval, number_of_arguments, arguments); |
|||
if (!returned_zval || Z_TYPE_P(returned_zval)!=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, "sybase_select_db", &select_db_zval, number_of_arguments, arguments); |
|||
if (!select_db_zval || (Z_TYPE_P(select_db_zval)==IS_BOOL && Z_LVAL_P(select_db_zval)==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(Z_LVAL_P(returned_zval)); |
|||
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "sybase_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_sybasect_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, "sybase_pconnect", &returned_zval, number_of_arguments, arguments); |
|||
if (!returned_zval || Z_TYPE_P(returned_zval)!=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, "sybase_select_db", &select_db_zval, number_of_arguments, arguments); |
|||
if (!select_db_zval || (Z_TYPE_P(select_db_zval)==IS_BOOL && Z_LVAL_P(select_db_zval)==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(Z_LVAL_P(returned_zval)); |
|||
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "sybase_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_sybasect_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, "sybase_close", &returned_zval, number_of_arguments, arguments); |
|||
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_BOOL) { |
|||
if (returned_zval) zval_ptr_dtor(&returned_zval); |
|||
return 0; |
|||
} |
|||
MOVE_RETURNED_TO_RV(rv, returned_zval); |
|||
return 1; |
|||
} |
|||
|
|||
int dbx_sybasect_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=2; |
|||
zval **arguments[2]; |
|||
zval *returned_zval=NULL; |
|||
zval *select_db_zval=NULL; |
|||
|
|||
number_of_arguments=2; |
|||
arguments[0]=db_name; |
|||
arguments[1]=dbx_handle; |
|||
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "sybase_select_db", &select_db_zval, number_of_arguments, arguments); |
|||
zval_ptr_dtor(&select_db_zval); |
|||
|
|||
number_of_arguments=2; |
|||
arguments[0]=sql_statement; |
|||
arguments[1]=dbx_handle; |
|||
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "sybase_query", &returned_zval, number_of_arguments, arguments); |
|||
/* sybase_query returns a bool for success or failure, or a result_identifier for select statements */ |
|||
if (!returned_zval || (Z_TYPE_P(returned_zval)!=IS_BOOL && Z_TYPE_P(returned_zval)!=IS_RESOURCE)) { |
|||
if (returned_zval) zval_ptr_dtor(&returned_zval); |
|||
return 0; |
|||
} |
|||
MOVE_RETURNED_TO_RV(rv, returned_zval); |
|||
return 1; |
|||
} |
|||
|
|||
int dbx_sybasect_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, "sybase_num_fields", &returned_zval, number_of_arguments, arguments); |
|||
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_LONG) { |
|||
if (returned_zval) zval_ptr_dtor(&returned_zval); |
|||
return 0; |
|||
} |
|||
MOVE_RETURNED_TO_RV(rv, returned_zval); |
|||
return 1; |
|||
} |
|||
|
|||
int dbx_sybasect_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; |
|||
zval **zv_name=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, "sybase_fetch_field", &returned_zval, number_of_arguments, arguments); |
|||
/* sybase_fetch_field returns an object */ |
|||
/* we need only the 'name' member here */ |
|||
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_OBJECT) { |
|||
if (returned_zval) zval_ptr_dtor(&returned_zval); |
|||
FREE_ZVAL(zval_column_index); |
|||
return 0; |
|||
} |
|||
if (zend_hash_find(returned_zval->value.obj.properties, "name", 5, (void **) &zv_name)==FAILURE) { |
|||
zval_ptr_dtor(&returned_zval); |
|||
FREE_ZVAL(zval_column_index); |
|||
return 0; |
|||
} |
|||
|
|||
**rv = **zv_name; |
|||
zval_copy_ctor(*rv); |
|||
zval_ptr_dtor(&returned_zval); |
|||
zval_ptr_dtor(zv_name); |
|||
|
|||
FREE_ZVAL(zval_column_index); |
|||
// MOVE_RETURNED_TO_RV(rv, returned_zval); |
|||
return 1; |
|||
} |
|||
|
|||
int dbx_sybasect_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; |
|||
zval **zv_type=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, "sybase_fetch_field", &returned_zval, number_of_arguments, arguments); |
|||
/* sybase_fetch_field returns an object */ |
|||
/* we need only the 'type' member here */ |
|||
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_OBJECT) { |
|||
if (returned_zval) zval_ptr_dtor(&returned_zval); |
|||
FREE_ZVAL(zval_column_index); |
|||
return 0; |
|||
} |
|||
if (zend_hash_find(returned_zval->value.obj.properties, "type", 5, (void **) &zv_type)==FAILURE) { |
|||
zval_ptr_dtor(&returned_zval); |
|||
FREE_ZVAL(zval_column_index); |
|||
return 0; |
|||
} |
|||
|
|||
**rv = **zv_type; |
|||
zval_copy_ctor(*rv); |
|||
zval_ptr_dtor(&returned_zval); |
|||
zval_ptr_dtor(zv_type); |
|||
|
|||
FREE_ZVAL(zval_column_index); |
|||
// MOVE_RETURNED_TO_RV(rv, returned_zval); |
|||
return 1; |
|||
} |
|||
|
|||
int dbx_sybasect_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=1; |
|||
zval **arguments[1]; |
|||
zval *returned_zval=NULL; |
|||
|
|||
arguments[0]=result_handle; |
|||
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "sybase_fetch_row", &returned_zval, number_of_arguments, arguments); |
|||
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_ARRAY) { |
|||
if (returned_zval) zval_ptr_dtor(&returned_zval); |
|||
return 0; |
|||
} |
|||
MOVE_RETURNED_TO_RV(rv, returned_zval); |
|||
return 1; |
|||
} |
|||
|
|||
int dbx_sybasect_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, "sybase_get_last_message", &returned_zval, number_of_arguments, arguments); |
|||
if (!returned_zval || Z_TYPE_P(returned_zval)!=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: |
|||
*/ |
|||
@ -0,0 +1,60 @@ |
|||
/* |
|||
+----------------------------------------------------------------------+ |
|||
| PHP Version 4 | |
|||
+----------------------------------------------------------------------+ |
|||
| Copyright (c) 1997-2002 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 | |
|||
| license@php.net so we can mail you a copy immediately. | |
|||
+----------------------------------------------------------------------+ |
|||
| Author : Marc Boeren <marc@guidance.nl> | |
|||
+----------------------------------------------------------------------+ |
|||
*/ |
|||
|
|||
/* $Id$ */ |
|||
|
|||
#ifndef ZEND_DBX_MYSQL_H |
|||
#define ZEND_DBX_MYSQL_H |
|||
|
|||
#ifndef INIT_FUNC_ARGS |
|||
#include "zend_modules.h" |
|||
#endif |
|||
|
|||
#include "php.h" |
|||
|
|||
int dbx_sybasect_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 dbx_sybasect_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 dbx_sybasect_close(zval **rv, zval **dbx_handle, INTERNAL_FUNCTION_PARAMETERS); |
|||
/* returns 1 as long on success or 0 as long on failure */ |
|||
int dbx_sybasect_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 dbx_sybasect_getcolumncount(zval **rv, zval **result_handle, INTERNAL_FUNCTION_PARAMETERS); |
|||
/* returns column-count as long on success or 0 as long on failure */ |
|||
int dbx_sybasect_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 dbx_sybasect_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 dbx_sybasect_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 dbx_sybasect_error(zval **rv, zval **dbx_handle, INTERNAL_FUNCTION_PARAMETERS); |
|||
/* returns string */ |
|||
|
|||
#endif /* ZEND_DBX_MYSQL_H */ |
|||
|
|||
/* |
|||
* Local variables: |
|||
* tab-width: 4 |
|||
* c-basic-offset: 4 |
|||
* End: |
|||
*/ |
|||
Write
Preview
Loading…
Cancel
Save
Reference in new issue