10 changed files with 433 additions and 27 deletions
-
2ext/dbx/config.m4
-
19ext/dbx/dbx.c
-
8ext/dbx/dbx.dsp
-
273ext/dbx/dbx_sqlite.c
-
62ext/dbx/dbx_sqlite.h
-
1ext/dbx/tests/002.phpt
-
84ext/dbx/tests/003.phpt
-
2ext/dbx/tests/004.phpt
-
1ext/dbx/tests/006.phpt
-
8ext/dbx/tests/dbx_test.p
@ -0,0 +1,273 @@ |
|||
/* |
|||
+----------------------------------------------------------------------+ |
|||
| PHP Version 4 | |
|||
+----------------------------------------------------------------------+ |
|||
| Copyright (c) 1997-2003 The PHP Group | |
|||
+----------------------------------------------------------------------+ |
|||
| dbx module version 1.0 | |
|||
+----------------------------------------------------------------------+ |
|||
| Copyright (c) 2001 Guidance Rotterdam BV | |
|||
+----------------------------------------------------------------------+ |
|||
| This source file is subject to version 3.0 of the PHP license, | |
|||
| that is bundled with this package in the file LICENSE, and is | |
|||
| available through the world-wide-web at the following url: | |
|||
| http://www.php.net/license/3_0.txt. | |
|||
| If you did not receive a copy of the PHP license and are unable to | |
|||
| obtain it through the world-wide-web, please send a note to | |
|||
| license@php.net so we can mail you a copy immediately. | |
|||
+----------------------------------------------------------------------+ |
|||
| Author : Marc Boeren <marc@guidance.nl> | |
|||
+----------------------------------------------------------------------+ |
|||
*/ |
|||
|
|||
/* $Id$ */ |
|||
|
|||
#include "dbx.h" |
|||
#include "dbx_sqlite.h" |
|||
|
|||
#define SQLITE_ASSOC 1 |
|||
#define SQLITE_NUM 2 |
|||
#define SQLITE_BOTH 3 |
|||
|
|||
int dbx_sqlite_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=1; |
|||
zval **arguments[1]; |
|||
zval *returned_zval=NULL; |
|||
|
|||
arguments[0]=db; |
|||
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "sqlite_open", &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; |
|||
} |
|||
|
|||
MOVE_RETURNED_TO_RV(rv, returned_zval); |
|||
return 1; |
|||
} |
|||
|
|||
int dbx_sqlite_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=1; |
|||
zval **arguments[1]; |
|||
zval *returned_zval=NULL; |
|||
|
|||
arguments[0]=db; |
|||
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "sqlite_popen", &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; |
|||
} |
|||
MOVE_RETURNED_TO_RV(rv, returned_zval); |
|||
return 1; |
|||
} |
|||
|
|||
int dbx_sqlite_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, "sqlite_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_sqlite_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; |
|||
|
|||
number_of_arguments=2; |
|||
arguments[0]=dbx_handle; |
|||
arguments[1]=sql_statement; |
|||
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "sqlite_query", &returned_zval, number_of_arguments, arguments); |
|||
/* sqlite_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_sqlite_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, "sqlite_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_sqlite_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, "sqlite_field_name", &returned_zval, number_of_arguments, arguments); |
|||
/* sqlite_field_name returns a string */ |
|||
if (!returned_zval || Z_TYPE_P(returned_zval)!=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_sqlite_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, "sqlite_field_type", &returned_zval, number_of_arguments, arguments); |
|||
*/ |
|||
/* sqlite_field_type returns a string */ |
|||
/* |
|||
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_STRING) { |
|||
if (returned_zval) zval_ptr_dtor(&returned_zval); |
|||
FREE_ZVAL(zval_column_index); |
|||
return 0; |
|||
} |
|||
FREE_ZVAL(zval_column_index); |
|||
*/ |
|||
MAKE_STD_ZVAL(returned_zval); |
|||
ZVAL_STRING(returned_zval, "string", 1); /* fake field type */ |
|||
|
|||
MOVE_RETURNED_TO_RV(rv, returned_zval); |
|||
return 1; |
|||
} |
|||
|
|||
int dbx_sqlite_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, SQLITE_NUM); |
|||
arguments[0]=result_handle; |
|||
arguments[1]=&zval_resulttype; |
|||
/* optional boolean third parameter 'decode_binary' skipped */ |
|||
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "sqlite_fetch_array", &returned_zval, number_of_arguments, arguments); |
|||
if (!returned_zval || Z_TYPE_P(returned_zval)!=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_sqlite_error(zval **rv, zval **dbx_handle, INTERNAL_FUNCTION_PARAMETERS) |
|||
{ |
|||
/* returns string */ |
|||
int number_of_arguments=1; |
|||
zval **arguments[1]; |
|||
zval *returned_zval_errcode=NULL; |
|||
zval *returned_zval=NULL; |
|||
|
|||
arguments[0]=dbx_handle; |
|||
if (!dbx_handle) number_of_arguments=0; |
|||
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "sqlite_last_error", &returned_zval_errcode, number_of_arguments, arguments); |
|||
if (!returned_zval_errcode || Z_TYPE_P(returned_zval_errcode)!=IS_LONG) { |
|||
if (returned_zval_errcode) zval_ptr_dtor(&returned_zval_errcode); |
|||
return 0; |
|||
} |
|||
if (Z_LVAL_P(returned_zval_errcode) == 0) { |
|||
zval_ptr_dtor(&returned_zval_errcode); |
|||
ZVAL_EMPTY_STRING(*rv); |
|||
return 1; |
|||
} |
|||
arguments[0]=&returned_zval_errcode; |
|||
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "sqlite_error_string", &returned_zval, number_of_arguments, arguments); |
|||
zval_ptr_dtor(&returned_zval_errcode); |
|||
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; |
|||
} |
|||
|
|||
int dbx_sqlite_esc(zval **rv, zval **dbx_handle, zval **string, INTERNAL_FUNCTION_PARAMETERS) |
|||
{ |
|||
/* returns escaped string */ |
|||
int number_of_arguments=1; |
|||
zval **arguments[1]; |
|||
zval *returned_zval=NULL; |
|||
char * str; |
|||
int len; |
|||
char * tmpstr; |
|||
int tmplen; |
|||
|
|||
if (Z_STRLEN_PP(string) == 0) { |
|||
ZVAL_EMPTY_STRING(*rv); |
|||
return 1; |
|||
} |
|||
arguments[0]=string; |
|||
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "sqlite_escape_string", &returned_zval, number_of_arguments, arguments); |
|||
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_STRING) { |
|||
if (returned_zval) zval_ptr_dtor(&returned_zval); |
|||
/* sqlite_escape_string failed, just do my own escaping then */ |
|||
/* replace ' with '' */ |
|||
tmpstr = estrdup(Z_STRVAL_PP(string)); |
|||
tmplen = Z_STRLEN_PP(string); |
|||
/* php_str_to_str uses a smart_str that allocates memory */ |
|||
/* this memory must be freed or passed on to rv */ |
|||
str = php_str_to_str(tmpstr, tmplen, "'", 1, "''", 2, &len); |
|||
efree(tmpstr); |
|||
|
|||
ZVAL_STRINGL(*rv, str, len, 0); |
|||
return 1; |
|||
} |
|||
MOVE_RETURNED_TO_RV(rv, returned_zval); |
|||
return 1; |
|||
} |
|||
|
|||
/* |
|||
* Local variables: |
|||
* tab-width: 4 |
|||
* c-basic-offset: 4 |
|||
* End: |
|||
*/ |
|||
@ -0,0 +1,62 @@ |
|||
/* |
|||
+----------------------------------------------------------------------+ |
|||
| PHP Version 4 | |
|||
+----------------------------------------------------------------------+ |
|||
| Copyright (c) 1997-2003 The PHP Group | |
|||
+----------------------------------------------------------------------+ |
|||
| dbx module version 1.0 | |
|||
+----------------------------------------------------------------------+ |
|||
| Copyright (c) 2001 Guidance Rotterdam BV | |
|||
+----------------------------------------------------------------------+ |
|||
| This source file is subject to version 3.0 of the PHP license, | |
|||
| that is bundled with this package in the file LICENSE, and is | |
|||
| available through the world-wide-web at the following url: | |
|||
| http://www.php.net/license/3_0.txt. | |
|||
| If you did not receive a copy of the PHP license and are unable to | |
|||
| obtain it through the world-wide-web, please send a note to | |
|||
| license@php.net so we can mail you a copy immediately. | |
|||
+----------------------------------------------------------------------+ |
|||
| Author : Marc Boeren <marc@guidance.nl> | |
|||
+----------------------------------------------------------------------+ |
|||
*/ |
|||
|
|||
/* $Id$ */ |
|||
|
|||
#ifndef ZEND_DBX_SQLITE_H |
|||
#define ZEND_DBX_SQLITE_H |
|||
|
|||
#ifndef INIT_FUNC_ARGS |
|||
#include "zend_modules.h" |
|||
#endif |
|||
|
|||
#include "php.h" |
|||
|
|||
int dbx_sqlite_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_sqlite_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_sqlite_close(zval **rv, zval **dbx_handle, INTERNAL_FUNCTION_PARAMETERS); |
|||
/* returns 1 as long on success or 0 as long on failure */ |
|||
int dbx_sqlite_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_sqlite_getcolumncount(zval **rv, zval **result_handle, INTERNAL_FUNCTION_PARAMETERS); |
|||
/* returns column-count as long on success or 0 as long on failure */ |
|||
int dbx_sqlite_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_sqlite_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_sqlite_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_sqlite_error(zval **rv, zval **dbx_handle, INTERNAL_FUNCTION_PARAMETERS); |
|||
/* returns string */ |
|||
int dbx_sqlite_esc(zval **rv, zval **dbx_handle, zval **string, INTERNAL_FUNCTION_PARAMETERS); |
|||
/* returns escaped string */ |
|||
|
|||
#endif /* ZEND_DBX_SQLITE_H */ |
|||
|
|||
/* |
|||
* Local variables: |
|||
* tab-width: 4 |
|||
* c-basic-offset: 4 |
|||
* End: |
|||
*/ |
|||
Write
Preview
Loading…
Cancel
Save
Reference in new issue