void dbplus_destruct_relation(zend_rsrc_list_entry *rsrc TSRMLS_DC)
{
- relf *conn = (relf *)(rsrc->ptr);
+ relf *conn = (relf *)(rsrc->ptr);
- cdb_close(conn);
+ cdb_close(conn);
}
void dbplus_destruct_tupel(zend_rsrc_list_entry *rsrc TSRMLS_DC)
{
- tuple *t = (tuple *)(rsrc->ptr);
+ tuple *t = (tuple *)(rsrc->ptr);
- efree(t);
+ efree(t);
}
/* }}} */
/* Every user visible function must have an entry in dbplus_functions[].
*/
function_entry dbplus_functions[] = {
- PHP_FE(dbplus_add, NULL)
- PHP_FE(dbplus_aql, NULL)
- PHP_FE(dbplus_chdir, NULL)
- PHP_FE(dbplus_close, NULL)
- PHP_FE(dbplus_curr, NULL)
- PHP_FE(dbplus_errno, NULL)
- PHP_FE(dbplus_errcode, NULL)
- PHP_FE(dbplus_find, NULL)
- PHP_FE(dbplus_first, NULL)
- PHP_FE(dbplus_flush, NULL)
- PHP_FE(dbplus_freealllocks, NULL)
- PHP_FE(dbplus_freelock, NULL)
- PHP_FE(dbplus_freerlocks, NULL)
- PHP_FE(dbplus_getlock, NULL)
- PHP_FE(dbplus_getunique, NULL)
- PHP_FE(dbplus_info, NULL)
- PHP_FE(dbplus_last, NULL)
- PHP_FE(dbplus_next, NULL)
- PHP_FE(dbplus_open, NULL)
- PHP_FE(dbplus_prev, NULL)
- PHP_FE(dbplus_rchperm, NULL)
- PHP_FE(dbplus_rcreate, NULL)
- PHP_FE(dbplus_rcrtexact, NULL)
- PHP_FE(dbplus_rcrtlike, NULL)
- PHP_FE(dbplus_resolve, NULL)
- PHP_FE(dbplus_restorepos, NULL)
- PHP_FE(dbplus_rkeys, NULL)
- PHP_FE(dbplus_ropen, NULL)
- PHP_FE(dbplus_rquery, NULL)
- PHP_FE(dbplus_rrename, NULL)
- PHP_FE(dbplus_rsecindex, NULL)
- PHP_FE(dbplus_runlink, NULL)
- PHP_FE(dbplus_rzap, NULL)
- PHP_FE(dbplus_savepos, NULL)
- PHP_FE(dbplus_setindex, NULL)
- PHP_FE(dbplus_setindexbynumber, NULL)
- PHP_FE(dbplus_sql, NULL)
- PHP_FE(dbplus_tcl, NULL)
- PHP_FE(dbplus_tremove, NULL)
- PHP_FE(dbplus_undo, NULL)
- PHP_FE(dbplus_undoprepare, NULL)
- PHP_FE(dbplus_unlockrel, NULL)
- PHP_FE(dbplus_unselect, NULL)
- PHP_FE(dbplus_update, NULL)
- PHP_FE(dbplus_xlockrel, NULL)
- PHP_FE(dbplus_xunlockrel, NULL)
- {NULL, NULL, NULL} /* Must be the last line in dbplus_functions[] */
+ PHP_FE(dbplus_add, NULL)
+ PHP_FE(dbplus_aql, NULL)
+ PHP_FE(dbplus_chdir, NULL)
+ PHP_FE(dbplus_close, NULL)
+ PHP_FE(dbplus_curr, NULL)
+ PHP_FE(dbplus_errno, NULL)
+ PHP_FE(dbplus_errcode, NULL)
+ PHP_FE(dbplus_find, NULL)
+ PHP_FE(dbplus_first, NULL)
+ PHP_FE(dbplus_flush, NULL)
+ PHP_FE(dbplus_freealllocks, NULL)
+ PHP_FE(dbplus_freelock, NULL)
+ PHP_FE(dbplus_freerlocks, NULL)
+ PHP_FE(dbplus_getlock, NULL)
+ PHP_FE(dbplus_getunique, NULL)
+ PHP_FE(dbplus_info, NULL)
+ PHP_FE(dbplus_last, NULL)
+ PHP_FE(dbplus_next, NULL)
+ PHP_FE(dbplus_open, NULL)
+ PHP_FE(dbplus_prev, NULL)
+ PHP_FE(dbplus_rchperm, NULL)
+ PHP_FE(dbplus_rcreate, NULL)
+ PHP_FE(dbplus_rcrtexact, NULL)
+ PHP_FE(dbplus_rcrtlike, NULL)
+ PHP_FE(dbplus_resolve, NULL)
+ PHP_FE(dbplus_restorepos, NULL)
+ PHP_FE(dbplus_rkeys, NULL)
+ PHP_FE(dbplus_ropen, NULL)
+ PHP_FE(dbplus_rquery, NULL)
+ PHP_FE(dbplus_rrename, NULL)
+ PHP_FE(dbplus_rsecindex, NULL)
+ PHP_FE(dbplus_runlink, NULL)
+ PHP_FE(dbplus_rzap, NULL)
+ PHP_FE(dbplus_savepos, NULL)
+ PHP_FE(dbplus_setindex, NULL)
+ PHP_FE(dbplus_setindexbynumber, NULL)
+ PHP_FE(dbplus_sql, NULL)
+ PHP_FE(dbplus_tcl, NULL)
+ PHP_FE(dbplus_tremove, NULL)
+ PHP_FE(dbplus_undo, NULL)
+ PHP_FE(dbplus_undoprepare, NULL)
+ PHP_FE(dbplus_unlockrel, NULL)
+ PHP_FE(dbplus_unselect, NULL)
+ PHP_FE(dbplus_update, NULL)
+ PHP_FE(dbplus_xlockrel, NULL)
+ PHP_FE(dbplus_xunlockrel, NULL)
+ {NULL, NULL, NULL} /* Must be the last line in dbplus_functions[] */
};
/* }}} */
/* {{{ module entry */
zend_module_entry dbplus_module_entry = {
- "dbplus",
- dbplus_functions,
- PHP_MINIT(dbplus),
- PHP_MSHUTDOWN(dbplus),
- PHP_RINIT(dbplus), /* Replace with NULL if there's nothing to do at request start */
- PHP_RSHUTDOWN(dbplus), /* Replace with NULL if there's nothing to do at request end */
- PHP_MINFO(dbplus),
- STANDARD_MODULE_PROPERTIES
+ "dbplus",
+ dbplus_functions,
+ PHP_MINIT(dbplus),
+ PHP_MSHUTDOWN(dbplus),
+ PHP_RINIT(dbplus), /* Replace with NULL if there's nothing to do at request start */
+ PHP_RSHUTDOWN(dbplus), /* Replace with NULL if there's nothing to do at request end */
+ PHP_MINFO(dbplus),
+ STANDARD_MODULE_PROPERTIES
};
/* }}} */
PHP_MINIT_FUNCTION(dbplus)
{
- /* resource id for cdb connections */
- le_dbplus_relation = zend_register_list_destructors_ex(dbplus_destruct_relation, NULL, "dbplus_relation", module_number);
- le_dbplus_tupel = zend_register_list_destructors_ex(dbplus_destruct_tupel , NULL, "dbplus_tuple" , module_number);
-
- /* constants for DBPLUS error codes */
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_NOERR", ERR_NOERR, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_DUPLICATE", ERR_DUPLICATE, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_EOSCAN", ERR_EOSCAN, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_EMPTY", ERR_EMPTY, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_CLOSE", ERR_CLOSE, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_WLOCKED", ERR_WLOCKED, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_LOCKED", ERR_LOCKED, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_NOLOCK", ERR_NOLOCK, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_READ", ERR_READ, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_WRITE", ERR_WRITE, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_CREATE", ERR_CREATE, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_LSEEK", ERR_LSEEK, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_LENGTH", ERR_LENGTH, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_OPEN", ERR_OPEN, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_WOPEN", ERR_WOPEN, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_MAGIC", ERR_MAGIC, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_VERSION", ERR_VERSION, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_PGSIZE", ERR_PGSIZE, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_CRC", ERR_CRC, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_PIPE", ERR_PIPE, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_NIDX", ERR_NIDX, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_MALLOC", ERR_MALLOC, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_NUSERS", ERR_NUSERS, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_PREEXIT", ERR_PREEXIT, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_ONTRAP", ERR_ONTRAP, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_PREPROC", ERR_PREPROC, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_DBPARSE", ERR_DBPARSE, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_DBRUNERR", ERR_DBRUNERR, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_DBPREEXIT", ERR_DBPREEXIT, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_WAIT", ERR_WAIT, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_CORRUPT_TUPLE", ERR_CORRUPT_TUPLE, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_WARNING0", ERR_WARNING0, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_PANIC", ERR_PANIC, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_FIFO", ERR_FIFO, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_PERM", ERR_PERM, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_TCL", ERR_TCL, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_RESTRICTED", ERR_RESTRICTED, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_USER", ERR_USER, CONST_CS | CONST_PERSISTENT);
- REGISTER_LONG_CONSTANT("DBPLUS_ERR_UNKNOWN", ERR_UNKNOWN, CONST_CS | CONST_PERSISTENT);
-
- return SUCCESS;
+ /* resource id for cdb connections */
+ le_dbplus_relation = zend_register_list_destructors_ex(dbplus_destruct_relation, NULL, "dbplus_relation", module_number);
+ le_dbplus_tupel = zend_register_list_destructors_ex(dbplus_destruct_tupel , NULL, "dbplus_tuple" , module_number);
+
+ /* constants for DBPLUS error codes */
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_NOERR", ERR_NOERR, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_DUPLICATE", ERR_DUPLICATE, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_EOSCAN", ERR_EOSCAN, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_EMPTY", ERR_EMPTY, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_CLOSE", ERR_CLOSE, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_WLOCKED", ERR_WLOCKED, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_LOCKED", ERR_LOCKED, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_NOLOCK", ERR_NOLOCK, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_READ", ERR_READ, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_WRITE", ERR_WRITE, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_CREATE", ERR_CREATE, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_LSEEK", ERR_LSEEK, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_LENGTH", ERR_LENGTH, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_OPEN", ERR_OPEN, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_WOPEN", ERR_WOPEN, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_MAGIC", ERR_MAGIC, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_VERSION", ERR_VERSION, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_PGSIZE", ERR_PGSIZE, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_CRC", ERR_CRC, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_PIPE", ERR_PIPE, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_NIDX", ERR_NIDX, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_MALLOC", ERR_MALLOC, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_NUSERS", ERR_NUSERS, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_PREEXIT", ERR_PREEXIT, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_ONTRAP", ERR_ONTRAP, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_PREPROC", ERR_PREPROC, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_DBPARSE", ERR_DBPARSE, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_DBRUNERR", ERR_DBRUNERR, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_DBPREEXIT", ERR_DBPREEXIT, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_WAIT", ERR_WAIT, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_CORRUPT_TUPLE", ERR_CORRUPT_TUPLE, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_WARNING0", ERR_WARNING0, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_PANIC", ERR_PANIC, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_FIFO", ERR_FIFO, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_PERM", ERR_PERM, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_TCL", ERR_TCL, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_RESTRICTED", ERR_RESTRICTED, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_USER", ERR_USER, CONST_CS | CONST_PERSISTENT);
+ REGISTER_LONG_CONSTANT("DBPLUS_ERR_UNKNOWN", ERR_UNKNOWN, CONST_CS | CONST_PERSISTENT);
+
+ return SUCCESS;
}
/* }}} */
PHP_MSHUTDOWN_FUNCTION(dbplus)
{
- return SUCCESS;
+ return SUCCESS;
}
/* }}} */
/* Remove if there's nothing to do at request start */
PHP_RINIT_FUNCTION(dbplus)
{
- return SUCCESS;
+ return SUCCESS;
}
/* }}} */
/* Remove if there's nothing to do at request end */
PHP_RSHUTDOWN_FUNCTION(dbplus)
{
- return SUCCESS;
+ return SUCCESS;
}
/* }}} */
PHP_MINFO_FUNCTION(dbplus)
{
- php_info_print_table_start();
- php_info_print_table_header(2, "dbplus support", "enabled");
- php_info_print_table_end();
+ php_info_print_table_start();
+ php_info_print_table_header(2, "dbplus support", "enabled");
+ php_info_print_table_end();
- /* Remove comments if you have entries in php.ini
- DISPLAY_INI_ENTRIES();
- */
+ /* Remove comments if you have entries in php.ini
+ DISPLAY_INI_ENTRIES();
+ */
}
/* }}} */
*/
PHP_FUNCTION(dbplus_open)
{
- relf *conn;
+ relf *conn;
- zval **name, **writing, **searchpath;
- if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &name, &writing, &searchpath) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ zval **name, **writing, **searchpath;
+ if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &name, &writing, &searchpath) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- convert_to_string_ex(name);
- convert_to_long_ex(writing);
- convert_to_long_ex(searchpath);
+ convert_to_string_ex(name);
+ convert_to_long_ex(writing);
+ convert_to_long_ex(searchpath);
- conn = cdb_open((*name)->value.str.val, (*writing)->value.lval, (*searchpath)->value.lval);
- if(conn == NULL) {
- /* TODO error handling */
- RETURN_FALSE;
- }
+ conn = cdb_open((*name)->value.str.val, (*writing)->value.lval, (*searchpath)->value.lval);
+ if(conn == NULL) {
+ /* TODO error handling */
+ RETURN_FALSE;
+ }
- ZEND_REGISTER_RESOURCE(return_value, conn, le_dbplus);
+ ZEND_REGISTER_RESOURCE(return_value, conn, le_dbplus);
}
/* }}} */
*/
PHP_FUNCTION(dbplus_close)
{
- zval **conn;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &conn) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ zval **conn;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &conn) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- convert_to_long_ex(conn);
+ convert_to_long_ex(conn);
- /* TODO resource type check */
+ /* TODO resource type check */
- zend_list_delete((*conn)->value.lval);
+ zend_list_delete((*conn)->value.lval);
}
/* }}} */
#endif
#define _INT(x) ((*x)->value.lval)
#define _HASH(x) ((*x)->value.ht)
-#define DBPLUS_FETCH_RESOURCE(r, z) ZEND_FETCH_RESOURCE(r, relf *, z, -1, "dbplus_relation", le_dbplus_relation); \
- if(!r) RETURN_LONG(ERR_UNKNOWN);
+#define DBPLUS_FETCH_RESOURCE(r, z) ZEND_FETCH_RESOURCE(r, relf *, z, -1, "dbplus_relation", le_dbplus_relation); \
+ if(!r) RETURN_LONG(ERR_UNKNOWN);
static int
-var2tuple(relf *r, zval **zv, tuple *t)
+var2tuple(relf *r, zval **zv, tuple *t)
{
- register attribute *ap ;
- unsigned deg ;
- zval **element;
-
- if ((*zv)->type!=IS_ARRAY)
- return 1;
-
- rtupinit(r, t);
-
- ap = r->r_atts;
- deg = r->r_rel.rel_deg;
- do {
- if(SUCCESS!=zend_hash_find((*zv)->value.ht, ap->att_name, strlen(ap->att_name)+1, (void **)&element))
- continue;
-
- if (! *element) return 1;
-
- switch(ap->att_type) {
- case FT_SHORT:
- convert_to_long_ex(element);
- AFFIX(ap, t)->f_short = (short) (*element)->value.lval;
- break;
- case FT_UNSIGNED:
- convert_to_long_ex(element);
- AFFIX(ap, t)->f_unsigned = (unsigned) (*element)->value.lval;
- break;
- case FT_SEQUENCE:
- case FT_LONG:
- convert_to_long_ex(element);
- AFFIX(ap, t)->f_long = (long) (*element)->value.lval;
- break;
- case FT_DATE:
- convert_to_long_ex(element);
- AFFIX(ap, t)->f_date = (long) (*element)->value.lval;
- break;
- case FT_FLOAT:
- convert_to_double_ex(element);
- AFFIX(ap, t)->f_float = (float) (*element)->value.dval;
- break;
- case FT_DOUBLE:
- convert_to_double_ex(element);
- AFFIX(ap, t)->f_double = (double) (*element)->value.dval;
- break;
- case FT_STRING: case FT_DEUTSCH: case FT_CHAR:
- convert_to_string_ex(element);
- afput(ap, t, (field *)0, (*element)->value.str.val);
- break;
- case FT_TIMESTAMP:
- /* TODO
- str2timestamp(SvPV(sv, na), (timestamp *)AFFIX(ap, t));
- */
- break;
- case FT_BINARY:
- case FT_BLOB:
- case FT_MEMO:
- break;
- }
- } while (ap++, --deg);
- return 0;
+ register attribute *ap ;
+ unsigned deg ;
+ zval **element;
+
+ if ((*zv)->type!=IS_ARRAY)
+ return 1;
+
+ rtupinit(r, t);
+
+ ap = r->r_atts;
+ deg = r->r_rel.rel_deg;
+ do {
+ if(SUCCESS!=zend_hash_find((*zv)->value.ht, ap->att_name, strlen(ap->att_name)+1, (void **)&element))
+ continue;
+
+ if (! *element) return 1;
+
+ switch(ap->att_type) {
+ case FT_SHORT:
+ convert_to_long_ex(element);
+ AFFIX(ap, t)->f_short = (short) (*element)->value.lval;
+ break;
+ case FT_UNSIGNED:
+ convert_to_long_ex(element);
+ AFFIX(ap, t)->f_unsigned = (unsigned) (*element)->value.lval;
+ break;
+ case FT_SEQUENCE:
+ case FT_LONG:
+ convert_to_long_ex(element);
+ AFFIX(ap, t)->f_long = (long) (*element)->value.lval;
+ break;
+ case FT_DATE:
+ convert_to_long_ex(element);
+ AFFIX(ap, t)->f_date = (long) (*element)->value.lval;
+ break;
+ case FT_FLOAT:
+ convert_to_double_ex(element);
+ AFFIX(ap, t)->f_float = (float) (*element)->value.dval;
+ break;
+ case FT_DOUBLE:
+ convert_to_double_ex(element);
+ AFFIX(ap, t)->f_double = (double) (*element)->value.dval;
+ break;
+ case FT_STRING: case FT_DEUTSCH: case FT_CHAR:
+ convert_to_string_ex(element);
+ afput(ap, t, (field *)0, (*element)->value.str.val);
+ break;
+ case FT_TIMESTAMP:
+ /* TODO
+ str2timestamp(SvPV(sv, na), (timestamp *)AFFIX(ap, t));
+ */
+ break;
+ case FT_BINARY:
+ case FT_BLOB:
+ case FT_MEMO:
+ break;
+ }
+ } while (ap++, --deg);
+ return 0;
}
register attribute *ap ;
unsigned deg ;
char buf[20];
- zval *element;
+ zval *element;
- zval_dtor(*zv);
- if (array_init(*zv) == FAILURE) {
- return 1;
- }
+ zval_dtor(*zv);
+ if (array_init(*zv) == FAILURE) {
+ return 1;
+ }
ap = r->r_atts;
deg = r->r_rel.rel_deg;
do {
- MAKE_STD_ZVAL(element); element->type=IS_NULL;
-
- switch(ap->att_type) {
- case FT_SHORT:
- ZVAL_LONG(element, AFFIX(ap, t)->f_short);
- break;
-
- case FT_UNSIGNED:
- ZVAL_LONG(element, AFFIX(ap, t)->f_unsigned);
- break;
-
- case FT_LONG:
- case FT_SEQUENCE:
- ZVAL_LONG(element, AFFIX(ap, t)->f_long);
- break;
-
- case FT_FLOAT:
- ZVAL_DOUBLE(element, AFFIX(ap, t)->f_float);
- break;
-
- case FT_DOUBLE:
- ZVAL_DOUBLE(element, AFFIX(ap, t)->f_double);
- break;
-
- case FT_STRING:
- case FT_DEUTSCH:
- case FT_CHAR:
- ZVAL_STRING(element, AFVAR(ap, t)->f_string, 1);
- break;
-
- }
-
- if(element->type!=IS_NULL)
- zend_hash_update((*zv)->value.ht,
- ap->att_name,
- strlen(ap->att_name)+1,
- (void *)&element,
- sizeof(zval*),
- NULL);
-
+ MAKE_STD_ZVAL(element); element->type=IS_NULL;
+
+ switch(ap->att_type) {
+ case FT_SHORT:
+ ZVAL_LONG(element, AFFIX(ap, t)->f_short);
+ break;
+
+ case FT_UNSIGNED:
+ ZVAL_LONG(element, AFFIX(ap, t)->f_unsigned);
+ break;
+
+ case FT_LONG:
+ case FT_SEQUENCE:
+ ZVAL_LONG(element, AFFIX(ap, t)->f_long);
+ break;
+
+ case FT_FLOAT:
+ ZVAL_DOUBLE(element, AFFIX(ap, t)->f_float);
+ break;
+
+ case FT_DOUBLE:
+ ZVAL_DOUBLE(element, AFFIX(ap, t)->f_double);
+ break;
+
+ case FT_STRING:
+ case FT_DEUTSCH:
+ case FT_CHAR:
+ ZVAL_STRING(element, AFVAR(ap, t)->f_string, 1);
+ break;
+
+ }
+
+ if(element->type!=IS_NULL)
+ zend_hash_update((*zv)->value.ht,
+ ap->att_name,
+ strlen(ap->att_name)+1,
+ (void *)&element,
+ sizeof(zval*),
+ NULL);
+
} while (ap++, --deg);
return 0;
}
static constraint *
ary2constr(relf * r, zval** constr)
{
- attribute *ap;
- static constraint c;
- int len;
- int alen;
- field *f;
- enum scalop sop;
- int n_elems;
- int n;
- char * dom;
- char * val;
- char * op;
- zval **zdata;
-
- /* init first */
- db_coninit(r, &c);
-
- if ((*constr)->type != IS_ARRAY) {
- php_error(E_WARNING, "Constraint is not an array");
- return NULL;
- }
-
- zend_hash_internal_pointer_reset(_HASH(constr));
- if(zend_hash_get_current_data(_HASH(constr), (void **)&zdata)!=SUCCESS) {
- php_error(E_WARNING, "Constraint array is empty");
- return NULL;
- }
-
- switch((*zdata)->type) {
- case IS_STRING: /* constraints in plain string array */
- if (_HASH(constr)->nNumOfElements%3) {
- php_error(E_WARNING, "Constraint array has to have triples of strings");
- return NULL;
- }
-
- do {
- convert_to_string_ex(zdata);
- dom = _STRING(zdata);
- zend_hash_move_forward(_HASH(constr));
- zend_hash_get_current_data(_HASH(constr), (void **)&zdata);
- convert_to_string_ex(zdata);
- op = _STRING(zdata);
- zend_hash_move_forward(_HASH(constr));
- zend_hash_get_current_data(_HASH(constr), (void **)&zdata);
- convert_to_string_ex(zdata);
- val = _STRING(zdata);
- zend_hash_move_forward(_HASH(constr));
-
- if (!(ap = (attribute *) attno (r, dom))) {
- fprintf(stderr, "Invalid domain \"%s\"\n", dom);
- return 0;
- }
-
- /* operator */
- string_to_scalop(op, &sop);
-
- /* value */
- f = string_to_field(val, ap, 0);
-
- (void) db_constrain(r, &c, dom, sop, f ? f : (field *) val);
- } while(SUCCESS==zend_hash_get_current_data(_HASH(constr), (void **)&zdata));
-
- break;
- case IS_ARRAY:
- {
- zval **entry;
- for(zend_hash_internal_pointer_reset(_HASH(constr));
- SUCCESS==zend_hash_get_current_data(_HASH(constr), (void **)&zdata);
- zend_hash_move_forward(_HASH(constr))) {
- if(!((*zdata)->type==IS_ARRAY)) {
- php_error(E_WARNING, "Constraint array element not an array");
- return NULL;
- }
- if(_HASH(zdata)->nNumOfElements!=3) {
- php_error(E_WARNING, "Constraint array element not an array of size 3");
- return NULL;
- }
-
- zend_hash_internal_pointer_reset(_HASH(zdata));
- zend_hash_get_current_data(_HASH(zdata), (void **)&entry);
- convert_to_string_ex(entry);
- dom=_STRING(entry);
-
- zend_hash_move_forward(_HASH(zdata));
- zend_hash_get_current_data(_HASH(zdata), (void **)&entry);
- convert_to_string_ex(entry);
- op=_STRING(entry);
-
- zend_hash_move_forward(_HASH(zdata));
- zend_hash_get_current_data(_HASH(zdata), (void **)&entry);
- convert_to_string_ex(entry);
- val=_STRING(entry);
-
- if (!(ap = (attribute *) attno (r, dom))) {
- fprintf(stderr, "Invalid domain \"%s\"\n", dom);
- return 0;
- }
-
- /* operator */
- string_to_scalop(op, &sop);
-
- /* value */
- f = string_to_field(val, ap, 0);
-
- (void) db_constrain(r, &c, dom, sop, f ? f : (field *) val);
- }
-
- }
- break;
- default:
- /* TODO error-handling */
- return NULL;
- }
-
- return &c;
+ attribute *ap;
+ static constraint c;
+ int len;
+ int alen;
+ field *f;
+ enum scalop sop;
+ int n_elems;
+ int n;
+ char * dom;
+ char * val;
+ char * op;
+ zval **zdata;
+
+ /* init first */
+ db_coninit(r, &c);
+
+ if ((*constr)->type != IS_ARRAY) {
+ php_error(E_WARNING, "Constraint is not an array");
+ return NULL;
+ }
+
+ zend_hash_internal_pointer_reset(_HASH(constr));
+ if(zend_hash_get_current_data(_HASH(constr), (void **)&zdata)!=SUCCESS) {
+ php_error(E_WARNING, "Constraint array is empty");
+ return NULL;
+ }
+
+ switch((*zdata)->type) {
+ case IS_STRING: /* constraints in plain string array */
+ if (_HASH(constr)->nNumOfElements%3) {
+ php_error(E_WARNING, "Constraint array has to have triples of strings");
+ return NULL;
+ }
+
+ do {
+ convert_to_string_ex(zdata);
+ dom = _STRING(zdata);
+ zend_hash_move_forward(_HASH(constr));
+ zend_hash_get_current_data(_HASH(constr), (void **)&zdata);
+ convert_to_string_ex(zdata);
+ op = _STRING(zdata);
+ zend_hash_move_forward(_HASH(constr));
+ zend_hash_get_current_data(_HASH(constr), (void **)&zdata);
+ convert_to_string_ex(zdata);
+ val = _STRING(zdata);
+ zend_hash_move_forward(_HASH(constr));
+
+ if (!(ap = (attribute *) attno (r, dom))) {
+ fprintf(stderr, "Invalid domain \"%s\"\n", dom);
+ return 0;
+ }
+
+ /* operator */
+ string_to_scalop(op, &sop);
+
+ /* value */
+ f = string_to_field(val, ap, 0);
+
+ (void) db_constrain(r, &c, dom, sop, f ? f : (field *) val);
+ } while(SUCCESS==zend_hash_get_current_data(_HASH(constr), (void **)&zdata));
+
+ break;
+ case IS_ARRAY:
+ {
+ zval **entry;
+ for(zend_hash_internal_pointer_reset(_HASH(constr));
+ SUCCESS==zend_hash_get_current_data(_HASH(constr), (void **)&zdata);
+ zend_hash_move_forward(_HASH(constr))) {
+ if(!((*zdata)->type==IS_ARRAY)) {
+ php_error(E_WARNING, "Constraint array element not an array");
+ return NULL;
+ }
+ if(_HASH(zdata)->nNumOfElements!=3) {
+ php_error(E_WARNING, "Constraint array element not an array of size 3");
+ return NULL;
+ }
+
+ zend_hash_internal_pointer_reset(_HASH(zdata));
+ zend_hash_get_current_data(_HASH(zdata), (void **)&entry);
+ convert_to_string_ex(entry);
+ dom=_STRING(entry);
+
+ zend_hash_move_forward(_HASH(zdata));
+ zend_hash_get_current_data(_HASH(zdata), (void **)&entry);
+ convert_to_string_ex(entry);
+ op=_STRING(entry);
+
+ zend_hash_move_forward(_HASH(zdata));
+ zend_hash_get_current_data(_HASH(zdata), (void **)&entry);
+ convert_to_string_ex(entry);
+ val=_STRING(entry);
+
+ if (!(ap = (attribute *) attno (r, dom))) {
+ fprintf(stderr, "Invalid domain \"%s\"\n", dom);
+ return 0;
+ }
+
+ /* operator */
+ string_to_scalop(op, &sop);
+
+ /* value */
+ f = string_to_field(val, ap, 0);
+
+ (void) db_constrain(r, &c, dom, sop, f ? f : (field *) val);
+ }
+
+ }
+ break;
+ default:
+ /* TODO error-handling */
+ return NULL;
+ }
+
+ return &c;
}
Add a tuple to a relation */
PHP_FUNCTION(dbplus_add)
{
- zval **relation, **data, **element;
- enum errorcond stat = ERR_UNKNOWN;
- relf *r;
- tuple t;
+ zval **relation, **data, **element;
+ enum errorcond stat = ERR_UNKNOWN;
+ relf *r;
+ tuple t;
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &data) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &data) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
- convert_to_array_ex(data);
-
- if(var2tuple(r, data, &t))
- RETURN_LONG(ERR_UNKNOWN);
+ DBPLUS_FETCH_RESOURCE(r, relation);
+ convert_to_array_ex(data);
+
+ if(var2tuple(r, data, &t))
+ RETURN_LONG(ERR_UNKNOWN);
- stat=cdb_add(r, &t);
- if(stat==ERR_NOERR) {
- tuple2var(r, &t, data);
- }
+ stat=cdb_add(r, &t);
+ if(stat==ERR_NOERR) {
+ tuple2var(r, &t, data);
+ }
- RETURN_LONG(stat);
+ RETURN_LONG(stat);
}
/* }}} */
Perform AQL query */
PHP_FUNCTION(dbplus_aql)
{
- int argc;
- zval **query, **server, **dbpath;
- relf *r;
-
- argc = ZEND_NUM_ARGS();
- if (argc < 1 || argc > 3 || zend_get_parameters_ex(argc, &query, &server, &dbpath) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- switch (argc) {
- case 3:
- convert_to_string_ex(dbpath);
- php_error(E_WARNING, "Arg dbpath: %s", _STRING(dbpath));
- /* Fall-through. */
- case 2:
- convert_to_string_ex(server);
- php_error(E_WARNING, "Arg server: %s", _STRING(server));
- /* Fall-through. */
- case 1:
- convert_to_string_ex(query);
- php_error(E_WARNING, "Arg query: %s", _STRING(query));
- break;
- }
-
- r = cdb_aql((argc>=2)?_STRING(server):"localhost",
- _STRING(query),
- (argc==3)?_STRING(dbpath):NULL);
- if(r == NULL) {
- /* TODO error handling */
- RETURN_FALSE;
- }
-
- ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
+ int argc;
+ zval **query, **server, **dbpath;
+ relf *r;
+
+ argc = ZEND_NUM_ARGS();
+ if (argc < 1 || argc > 3 || zend_get_parameters_ex(argc, &query, &server, &dbpath) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ switch (argc) {
+ case 3:
+ convert_to_string_ex(dbpath);
+ php_error(E_WARNING, "Arg dbpath: %s", _STRING(dbpath));
+ /* Fall-through. */
+ case 2:
+ convert_to_string_ex(server);
+ php_error(E_WARNING, "Arg server: %s", _STRING(server));
+ /* Fall-through. */
+ case 1:
+ convert_to_string_ex(query);
+ php_error(E_WARNING, "Arg query: %s", _STRING(query));
+ break;
+ }
+
+ r = cdb_aql((argc>=2)?_STRING(server):"localhost",
+ _STRING(query),
+ (argc==3)?_STRING(dbpath):NULL);
+ if(r == NULL) {
+ /* TODO error handling */
+ RETURN_FALSE;
+ }
+
+ ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
}
/* }}} */
Get/Set database virtual current directory */
PHP_FUNCTION(dbplus_chdir)
{
- int argc;
- char *p;
- zval **newdir;
-
- argc = ZEND_NUM_ARGS();
- switch(argc) {
- case 0:
- break;
- case 1:
- if(zend_get_parameters_ex(1, &newdir) == FAILURE) {
- WRONG_PARAM_COUNT;
- } else {
- convert_to_string_ex(newdir);
- }
- break;
- default:
- WRONG_PARAM_COUNT;
- }
-
- p = cdb_chdir((argc)?_STRING(newdir):NULL);
- if(p) {
- RETURN_STRING(p, 1);
- } else {
- RETURN_FALSE;
- }
+ int argc;
+ char *p;
+ zval **newdir;
+
+ argc = ZEND_NUM_ARGS();
+ switch(argc) {
+ case 0:
+ break;
+ case 1:
+ if(zend_get_parameters_ex(1, &newdir) == FAILURE) {
+ WRONG_PARAM_COUNT;
+ } else {
+ convert_to_string_ex(newdir);
+ }
+ break;
+ default:
+ WRONG_PARAM_COUNT;
+ }
+
+ p = cdb_chdir((argc)?_STRING(newdir):NULL);
+ if(p) {
+ RETURN_STRING(p, 1);
+ } else {
+ RETURN_FALSE;
+ }
}
/* }}} */
Close a relation */
PHP_FUNCTION(dbplus_close)
{
- relf *r;
- zval **relation;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- zend_list_delete((*relation)->value.lval);
+ zend_list_delete((*relation)->value.lval);
- RETURN_TRUE;
+ RETURN_TRUE;
}
/* }}} */
Get current tuple from relation */
PHP_FUNCTION(dbplus_curr)
{
- zval **relation, **tname;
- relf *r;
- tuple t;
- int stat;
-
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &tname) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- DBPLUS_FETCH_RESOURCE(r, relation);
-
- stat = cdb_current(r, &t);
- if(stat==ERR_NOERR) {
- tuple2var(r, &t, tname);
- }
-
- RETURN_LONG(stat);
+ zval **relation, **tname;
+ relf *r;
+ tuple t;
+ int stat;
+
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &tname) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ DBPLUS_FETCH_RESOURCE(r, relation);
+
+ stat = cdb_current(r, &t);
+ if(stat==ERR_NOERR) {
+ tuple2var(r, &t, tname);
+ }
+
+ RETURN_LONG(stat);
}
/* }}} */
Get error string for given errorcode or last error */
PHP_FUNCTION(dbplus_errcode)
{
- zval **err;
- int errno;
-
- switch (ZEND_NUM_ARGS()) {
- case 0:
- errno=-1;
- break;
- case 1:
- if( zend_get_parameters_ex(1, &err) == FAILURE){
- WRONG_PARAM_COUNT;
- }
- convert_to_long_ex(err);
- errno = _INT(err);
- }
-
- if(errno==-1) errno = Acc_error;
-
- RETURN_STRING(dbErrorMsg(errno, NULL), 1);
+ zval **err;
+ int errno;
+
+ switch (ZEND_NUM_ARGS()) {
+ case 0:
+ errno=-1;
+ break;
+ case 1:
+ if( zend_get_parameters_ex(1, &err) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+ convert_to_long_ex(err);
+ errno = _INT(err);
+ }
+
+ if(errno==-1) errno = Acc_error;
+
+ RETURN_STRING(dbErrorMsg(errno, NULL), 1);
}
/* }}} */
Get error code for last operation */
PHP_FUNCTION(dbplus_errno)
{
- RETURN_LONG(Acc_error);
+ RETURN_LONG(Acc_error);
}
/* }}} */
Set a constraint on a relation*/
PHP_FUNCTION(dbplus_find)
{
- relf *r;
- zval **relation, **constr, **data;
- constraint *c;
- tuple t;
- int stat;
+ relf *r;
+ zval **relation, **constr, **data;
+ constraint *c;
+ tuple t;
+ int stat;
- if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &relation, &constr, &data) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &relation, &constr, &data) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- if ((*constr)->type != IS_ARRAY) {
- php_error(E_WARNING, "Constraint is not an array");
- RETURN_LONG(ERR_UNKNOWN);
- }
+ if ((*constr)->type != IS_ARRAY) {
+ php_error(E_WARNING, "Constraint is not an array");
+ RETURN_LONG(ERR_UNKNOWN);
+ }
- convert_to_array_ex(data);
+ convert_to_array_ex(data);
- c = ary2constr(r, constr);
-
- if (!c){
- RETURN_LONG(ERR_USER);
- }
+ c = ary2constr(r, constr);
+
+ if (!c){
+ RETURN_LONG(ERR_USER);
+ }
- stat = cdb_find(r, &t, c);
-
- if(stat==ERR_NOERR)
- tuple2var(r, &t, data);
+ stat = cdb_find(r, &t, c);
+
+ if(stat==ERR_NOERR)
+ tuple2var(r, &t, data);
- RETURN_LONG(stat);
+ RETURN_LONG(stat);
}
/* }}} */
Get first tuple from relation */
PHP_FUNCTION(dbplus_first)
{
- zval **relation, **tname;
- relf *r;
- tuple t;
- int stat;
-
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &tname) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- DBPLUS_FETCH_RESOURCE(r, relation);
-
- stat = cdb_first(r, &t);
- if(stat==ERR_NOERR) {
- tuple2var(r, &t, tname);
- }
-
- RETURN_LONG(stat);
+ zval **relation, **tname;
+ relf *r;
+ tuple t;
+ int stat;
+
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &tname) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ DBPLUS_FETCH_RESOURCE(r, relation);
+
+ stat = cdb_first(r, &t);
+ if(stat==ERR_NOERR) {
+ tuple2var(r, &t, tname);
+ }
+
+ RETURN_LONG(stat);
}
/* }}} */
??? */
PHP_FUNCTION(dbplus_flush)
{
- relf *r;
- zval **relation;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- RETURN_LONG(cdb_flush(r));
+ RETURN_LONG(cdb_flush(r));
}
/* }}} */
Free all locks held by this client */
PHP_FUNCTION(dbplus_freealllocks)
{
- RETURN_LONG(cdbFreeAllLocks());
+ RETURN_LONG(cdbFreeAllLocks());
}
/* }}} */
Release write lock on tuple */
PHP_FUNCTION(dbplus_freelock)
{
- zval **relation, **data, **element;
- enum errorcond stat = ERR_UNKNOWN;
- relf *r;
- tuple t;
+ zval **relation, **data, **element;
+ enum errorcond stat = ERR_UNKNOWN;
+ relf *r;
+ tuple t;
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &data) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &data) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- convert_to_array_ex(data);
-
- if(var2tuple(r, data, &t))
- RETURN_LONG(ERR_UNKNOWN);
+ convert_to_array_ex(data);
+
+ if(var2tuple(r, data, &t))
+ RETURN_LONG(ERR_UNKNOWN);
- stat=cdb_freelock(r, &t);
+ stat=cdb_freelock(r, &t);
- RETURN_LONG(stat);
+ RETURN_LONG(stat);
}
/* }}} */
Free all locks on given relation */
PHP_FUNCTION(dbplus_freerlocks)
{
- relf *r;
- zval **relation;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- RETURN_LONG(cdb_freerlocks(r));
+ RETURN_LONG(cdb_freerlocks(r));
}
/* }}} */
Request locking of tuple */
PHP_FUNCTION(dbplus_getlock)
{
- zval **relation, **data, **element;
- enum errorcond stat = ERR_UNKNOWN;
- relf *r;
- tuple t;
+ zval **relation, **data, **element;
+ enum errorcond stat = ERR_UNKNOWN;
+ relf *r;
+ tuple t;
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &data) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &data) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- convert_to_array_ex(data);
-
- if(var2tuple(r, data, &t))
- RETURN_LONG(ERR_UNKNOWN);
+ convert_to_array_ex(data);
+
+ if(var2tuple(r, data, &t))
+ RETURN_LONG(ERR_UNKNOWN);
- stat=cdb_getlock(r, &t);
+ stat=cdb_getlock(r, &t);
- RETURN_LONG(stat);
+ RETURN_LONG(stat);
}
/* }}} */
Get a id number unique to a relation */
PHP_FUNCTION(dbplus_getunique)
{
- relf *r;
- zval **relation, **uniqueid;
- long l;
- int stat;
-
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &uniqueid) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- DBPLUS_FETCH_RESOURCE(r, relation);
-
- stat = cdb_getunique(r, &l, 1);
- if(!stat) {
- ZVAL_LONG(*uniqueid,l);
- }
-
- RETURN_LONG(stat);
+ relf *r;
+ zval **relation, **uniqueid;
+ long l;
+ int stat;
+
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &uniqueid) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ DBPLUS_FETCH_RESOURCE(r, relation);
+
+ stat = cdb_getunique(r, &l, 1);
+ if(!stat) {
+ ZVAL_LONG(*uniqueid,l);
+ }
+
+ RETURN_LONG(stat);
}
/* }}} */
??? */
PHP_FUNCTION(dbplus_info)
{
- zval **relation, **key, **result, *element;
- relf *r;
- register attribute *ap;
- unsigned deg;
-
- if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &relation, &key, &result) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- DBPLUS_FETCH_RESOURCE(r, relation);
-
- ap = r->r_atts;
- deg = r->r_rel.rel_deg;
-
- convert_to_string_ex(key);
-
- zval_dtor(*result);
- if (array_init(*result) == FAILURE)
- RETURN_LONG(ERR_USER);
-
- if(!strcmp("atts", (*key)->value.str.val)) {
- do {
- MAKE_STD_ZVAL(element);
-
- ZVAL_STRING(element, ap->att_name, 1);
-
- zend_hash_update((*result)->value.ht,
- ap->att_name,
- strlen(ap->att_name)+1,
- (void *)&element,
- sizeof(zval*),
- NULL);
- } while (ap++, deg--);
- RETURN_LONG(ERR_NOERR);
- }
-
- RETURN_LONG(ERR_USER);
+ zval **relation, **key, **result, *element;
+ relf *r;
+ register attribute *ap;
+ unsigned deg;
+
+ if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &relation, &key, &result) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ DBPLUS_FETCH_RESOURCE(r, relation);
+
+ ap = r->r_atts;
+ deg = r->r_rel.rel_deg;
+
+ convert_to_string_ex(key);
+
+ zval_dtor(*result);
+ if (array_init(*result) == FAILURE)
+ RETURN_LONG(ERR_USER);
+
+ if(!strcmp("atts", (*key)->value.str.val)) {
+ do {
+ MAKE_STD_ZVAL(element);
+
+ ZVAL_STRING(element, ap->att_name, 1);
+
+ zend_hash_update((*result)->value.ht,
+ ap->att_name,
+ strlen(ap->att_name)+1,
+ (void *)&element,
+ sizeof(zval*),
+ NULL);
+ } while (ap++, deg--);
+ RETURN_LONG(ERR_NOERR);
+ }
+
+ RETURN_LONG(ERR_USER);
}
/* }}} */
Get last tuple from relation */
PHP_FUNCTION(dbplus_last)
{
- zval **relation, **tname;
- relf *r;
- tuple t;
- int stat;
-
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &tname) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- DBPLUS_FETCH_RESOURCE(r, relation);
-
- stat = cdb_last(r, &t);
- if(stat==ERR_NOERR) {
- tuple2var(r, &t, tname);
- }
-
- RETURN_LONG(stat);
+ zval **relation, **tname;
+ relf *r;
+ tuple t;
+ int stat;
+
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &tname) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ DBPLUS_FETCH_RESOURCE(r, relation);
+
+ stat = cdb_last(r, &t);
+ if(stat==ERR_NOERR) {
+ tuple2var(r, &t, tname);
+ }
+
+ RETURN_LONG(stat);
}
/* }}} */
Request write lock on relation */
PHP_FUNCTION(dbplus_lockrel)
{
- relf *r;
- zval **relation;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- RETURN_LONG(cdb_lockrel(r));
+ RETURN_LONG(cdb_lockrel(r));
}
/* }}} */
Get next tuple from relation */
PHP_FUNCTION(dbplus_next)
{
- zval **relation, **tname, *element;
- relf *r;
- tuple t;
- int stat;
-
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &tname) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- DBPLUS_FETCH_RESOURCE(r, relation);
-
- stat = cdb_next(r, &t);
- if(stat==ERR_NOERR) {
- tuple2var(r, &t, tname);
- }
-
- RETURN_LONG(stat);
+ zval **relation, **tname, *element;
+ relf *r;
+ tuple t;
+ int stat;
+
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &tname) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ DBPLUS_FETCH_RESOURCE(r, relation);
+
+ stat = cdb_next(r, &t);
+ if(stat==ERR_NOERR) {
+ tuple2var(r, &t, tname);
+ }
+
+ RETURN_LONG(stat);
}
/* }}} */
Open a relation file */
PHP_FUNCTION(dbplus_open)
{
- relf *r;
- zval **tname;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &tname) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **tname;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &tname) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- convert_to_string_ex(tname);
+ convert_to_string_ex(tname);
- r = cdb_open((*tname)->value.str.val, 1, 1);
- if(r == NULL) {
- /* TODO error handling */
- RETURN_FALSE;
- }
+ r = cdb_open((*tname)->value.str.val, 1, 1);
+ if(r == NULL) {
+ /* TODO error handling */
+ RETURN_FALSE;
+ }
- ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
+ ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
}
/* }}} */
Get previous tuple from relation */
PHP_FUNCTION(dbplus_prev)
{
- zval **relation, **tname;
- relf *r;
- tuple t;
- int stat;
-
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &tname) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- DBPLUS_FETCH_RESOURCE(r, relation);
-
- stat = cdb_previous(r, &t);
- if(stat==ERR_NOERR) {
- tuple2var(r, &t, tname);
- }
-
- RETURN_LONG(stat);
+ zval **relation, **tname;
+ relf *r;
+ tuple t;
+ int stat;
+
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &tname) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ DBPLUS_FETCH_RESOURCE(r, relation);
+
+ stat = cdb_previous(r, &t);
+ if(stat==ERR_NOERR) {
+ tuple2var(r, &t, tname);
+ }
+
+ RETURN_LONG(stat);
}
/* }}} */
*/
PHP_FUNCTION(dbplus_rchperm)
{
- relf *r;
- zval **relation, **mask, **user, **group;
- if (ZEND_NUM_ARGS() != 4 || zend_get_parameters_ex(4, &relation, &mask, &user, &group) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation, **mask, **user, **group;
+ if (ZEND_NUM_ARGS() != 4 || zend_get_parameters_ex(4, &relation, &mask, &user, &group) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- convert_to_long_ex(mask);
- convert_to_string_ex(user);
- convert_to_string_ex(group);
+ convert_to_long_ex(mask);
+ convert_to_string_ex(user);
+ convert_to_string_ex(group);
- RETURN_LONG(cdbRchperm(r, _INT(mask), _STRING(user), _STRING(group)));
+ RETURN_LONG(cdbRchperm(r, _INT(mask), _STRING(user), _STRING(group)));
}
/* }}} */
*/
PHP_FUNCTION(dbplus_rcreate)
{
- zval **name, **domlist, **overwrite;
- relf *r=NULL;
- int flag, ndoms, argc = ZEND_NUM_ARGS();
- attdef *at0;
-
- switch(argc) {
- case 3:
- if(zend_get_parameters_ex(3, &name, &domlist, &overwrite) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
- convert_to_long_ex(overwrite);
- flag=_INT(overwrite);
- break;
- case 2:
- if(zend_get_parameters_ex(3, &name, &domlist) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
- flag=0;
- break;
- default:
- WRONG_PARAM_COUNT;
- break;
- }
-
- convert_to_string_ex(name);
- convert_to_string_ex(domlist);
-
- at0 = create2att(_STRING(domlist), &ndoms);
- if (at0) {
- r = cdbRcreate(_STRING(name), 0666, 0, ndoms, at0, flag);
- dbxfree((char *) at0);
- }
- if(r == NULL) {
- /* TODO error handling */
- RETURN_FALSE;
- }
-
- ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
+ zval **name, **domlist, **overwrite;
+ relf *r=NULL;
+ int flag, ndoms, argc = ZEND_NUM_ARGS();
+ attdef *at0;
+
+ switch(argc) {
+ case 3:
+ if(zend_get_parameters_ex(3, &name, &domlist, &overwrite) == FAILURE) {
+ WRONG_PARAM_COUNT;
+ }
+ convert_to_long_ex(overwrite);
+ flag=_INT(overwrite);
+ break;
+ case 2:
+ if(zend_get_parameters_ex(3, &name, &domlist) == FAILURE) {
+ WRONG_PARAM_COUNT;
+ }
+ flag=0;
+ break;
+ default:
+ WRONG_PARAM_COUNT;
+ break;
+ }
+
+ convert_to_string_ex(name);
+ convert_to_string_ex(domlist);
+
+ at0 = create2att(_STRING(domlist), &ndoms);
+ if (at0) {
+ r = cdbRcreate(_STRING(name), 0666, 0, ndoms, at0, flag);
+ dbxfree((char *) at0);
+ }
+ if(r == NULL) {
+ /* TODO error handling */
+ RETURN_FALSE;
+ }
+
+ ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
}
/* }}} */
*/
PHP_FUNCTION(dbplus_rcrtexact)
{
- zval **name, **relation, **overwrite;
- relf *r;
- int f,argc = ZEND_NUM_ARGS();
-
- switch(argc) {
- case 3:
- if(zend_get_parameters_ex(3, &name, &relation, &overwrite) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
- convert_to_long_ex(overwrite);
- f=_INT(overwrite);
- break;
- case 2:
- if(zend_get_parameters_ex(3, &name, &relation) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
- f=0;
- break;
- default:
- WRONG_PARAM_COUNT;
- break;
- }
-
- convert_to_string_ex(name);
- DBPLUS_FETCH_RESOURCE(r, relation);
-
- r = cdbRcrtexact(_STRING(name), 0666, r, f);
- if(r == NULL) {
- /* TODO error handling */
- RETURN_FALSE;
- }
-
- ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
+ zval **name, **relation, **overwrite;
+ relf *r;
+ int f,argc = ZEND_NUM_ARGS();
+
+ switch(argc) {
+ case 3:
+ if(zend_get_parameters_ex(3, &name, &relation, &overwrite) == FAILURE) {
+ WRONG_PARAM_COUNT;
+ }
+ convert_to_long_ex(overwrite);
+ f=_INT(overwrite);
+ break;
+ case 2:
+ if(zend_get_parameters_ex(3, &name, &relation) == FAILURE) {
+ WRONG_PARAM_COUNT;
+ }
+ f=0;
+ break;
+ default:
+ WRONG_PARAM_COUNT;
+ break;
+ }
+
+ convert_to_string_ex(name);
+ DBPLUS_FETCH_RESOURCE(r, relation);
+
+ r = cdbRcrtexact(_STRING(name), 0666, r, f);
+ if(r == NULL) {
+ /* TODO error handling */
+ RETURN_FALSE;
+ }
+
+ ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
}
/* }}} */
*/
PHP_FUNCTION(dbplus_rcrtlike)
{
- zval **name, **relation, **overwrite;
- relf *r;
- int f,argc = ZEND_NUM_ARGS();
-
- switch(argc) {
- case 3:
- if(zend_get_parameters_ex(3, &name, &relation, &overwrite) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
- convert_to_long_ex(overwrite);
- f=_INT(overwrite);
- break;
- case 2:
- if(zend_get_parameters_ex(3, &name, &relation) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
- f=0;
- break;
- default:
- WRONG_PARAM_COUNT;
- break;
- }
-
- convert_to_string_ex(name);
- DBPLUS_FETCH_RESOURCE(r, relation);
-
- r = cdbRcrtlike(_STRING(name), 0666, 0, r, f);
- if(r == NULL) {
- /* TODO error handling */
- RETURN_FALSE;
- }
-
- ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
+ zval **name, **relation, **overwrite;
+ relf *r;
+ int f,argc = ZEND_NUM_ARGS();
+
+ switch(argc) {
+ case 3:
+ if(zend_get_parameters_ex(3, &name, &relation, &overwrite) == FAILURE) {
+ WRONG_PARAM_COUNT;
+ }
+ convert_to_long_ex(overwrite);
+ f=_INT(overwrite);
+ break;
+ case 2:
+ if(zend_get_parameters_ex(3, &name, &relation) == FAILURE) {
+ WRONG_PARAM_COUNT;
+ }
+ f=0;
+ break;
+ default:
+ WRONG_PARAM_COUNT;
+ break;
+ }
+
+ convert_to_string_ex(name);
+ DBPLUS_FETCH_RESOURCE(r, relation);
+
+ r = cdbRcrtlike(_STRING(name), 0666, 0, r, f);
+ if(r == NULL) {
+ /* TODO error handling */
+ RETURN_FALSE;
+ }
+
+ ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
}
/* }}} */
Resolve host information for relation */
PHP_FUNCTION(dbplus_resolve)
{
- zval **name, *element;
- char * host;
- char * host_path;
- int sid;
+ zval **name, *element;
+ char * host;
+ char * host_path;
+ int sid;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &name) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &name) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- convert_to_string_ex(name);
+ convert_to_string_ex(name);
- sid = cdb_resolve(_STRING(name), &host, &host_path);
- if (sid <= 0)
- RETURN_FALSE;
+ sid = cdb_resolve(_STRING(name), &host, &host_path);
+ if (sid <= 0)
+ RETURN_FALSE;
- if (array_init(return_value) == FAILURE) {
- RETURN_FALSE;
- }
+ if (array_init(return_value) == FAILURE) {
+ RETURN_FALSE;
+ }
- MAKE_STD_ZVAL(element); element->type=IS_NULL;
- ZVAL_LONG(element,sid);
- zend_hash_update(Z_ARRVAL_P(return_value), "sid", 4,
- &element, sizeof(zval *), NULL);
+ MAKE_STD_ZVAL(element); element->type=IS_NULL;
+ ZVAL_LONG(element,sid);
+ zend_hash_update(Z_ARRVAL_P(return_value), "sid", 4,
+ &element, sizeof(zval *), NULL);
- MAKE_STD_ZVAL(element); element->type=IS_NULL;
- ZVAL_STRING(element,host,1);
- zend_hash_update(Z_ARRVAL_P(return_value), "host", 5,
- &element, sizeof(zval *), NULL);
+ MAKE_STD_ZVAL(element); element->type=IS_NULL;
+ ZVAL_STRING(element,host,1);
+ zend_hash_update(Z_ARRVAL_P(return_value), "host", 5,
+ &element, sizeof(zval *), NULL);
- MAKE_STD_ZVAL(element); element->type=IS_NULL;
- ZVAL_STRING(element,host_path,1);
- zend_hash_update(Z_ARRVAL_P(return_value), "host_path", 10,
- &element, sizeof(zval *), NULL);
+ MAKE_STD_ZVAL(element); element->type=IS_NULL;
+ ZVAL_STRING(element,host_path,1);
+ zend_hash_update(Z_ARRVAL_P(return_value), "host_path", 10,
+ &element, sizeof(zval *), NULL);
}
/* }}} */
??? */
PHP_FUNCTION(dbplus_restorepos)
{
- zval **relation, **tname;
- relf *r;
- tuple t;
- int stat;
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &tname) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- DBPLUS_FETCH_RESOURCE(r, relation);
-
- stat = cdb_next(r, &t);
- if(stat==ERR_NOERR) {
- tuple2var(r, &t, tname);
- }
-
- RETURN_LONG(stat);
+ zval **relation, **tname;
+ relf *r;
+ tuple t;
+ int stat;
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &tname) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ DBPLUS_FETCH_RESOURCE(r, relation);
+
+ stat = cdb_next(r, &t);
+ if(stat==ERR_NOERR) {
+ tuple2var(r, &t, tname);
+ }
+
+ RETURN_LONG(stat);
}
/* }}} */
*/
PHP_FUNCTION(dbplus_rkeys)
{
- relf *r, *rnew;
- zval **relation, **domlist, **zdata;
- int nkeys=0;
- char *p, *name=NULL, *keys[40]; /* TODO hardcoded magic number ??? */
-
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &domlist) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- DBPLUS_FETCH_RESOURCE(r, relation);
-
- if((*domlist)->type == IS_ARRAY) {
- convert_to_array_ex(domlist);
- for(zend_hash_internal_pointer_reset(_HASH(domlist));
- SUCCESS==zend_hash_get_current_data(_HASH(domlist), (void **)&zdata);
- zend_hash_move_forward(_HASH(domlist))) {
- if((*zdata)->type==IS_STRING)
- keys[nkeys++] = _STRING(zdata);
- else {
- php_error(E_WARNING, "Domlist array contains non-string value(s)");
- Acc_error = ERR_USER;
- RETURN_FALSE;
- }
- }
- } else {
- convert_to_string_ex(domlist);
- name = estrdup(_STRING(domlist));
- while (p = strtok(nkeys ? 0 : name, " \t"))
- keys[nkeys++] = p;
- }
-
- rnew = cdbRkeys(r, nkeys, keys);
- if(name) efree(name);
-
- if(rnew) {
- /* TODO realy delete old relation resource ? */
- zend_list_delete((*relation)->value.lval);
-
- ZEND_REGISTER_RESOURCE(return_value, rnew, le_dbplus_relation);
- } else {
- /* TODO error reporting */
- RETURN_FALSE;
- }
+ relf *r, *rnew;
+ zval **relation, **domlist, **zdata;
+ int nkeys=0;
+ char *p, *name=NULL, *keys[40]; /* TODO hardcoded magic number ??? */
+
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &domlist) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ DBPLUS_FETCH_RESOURCE(r, relation);
+
+ if((*domlist)->type == IS_ARRAY) {
+ convert_to_array_ex(domlist);
+ for(zend_hash_internal_pointer_reset(_HASH(domlist));
+ SUCCESS==zend_hash_get_current_data(_HASH(domlist), (void **)&zdata);
+ zend_hash_move_forward(_HASH(domlist))) {
+ if((*zdata)->type==IS_STRING)
+ keys[nkeys++] = _STRING(zdata);
+ else {
+ php_error(E_WARNING, "Domlist array contains non-string value(s)");
+ Acc_error = ERR_USER;
+ RETURN_FALSE;
+ }
+ }
+ } else {
+ convert_to_string_ex(domlist);
+ name = estrdup(_STRING(domlist));
+ while (p = strtok(nkeys ? 0 : name, " \t"))
+ keys[nkeys++] = p;
+ }
+
+ rnew = cdbRkeys(r, nkeys, keys);
+ if(name) efree(name);
+
+ if(rnew) {
+ /* TODO realy delete old relation resource ? */
+ zend_list_delete((*relation)->value.lval);
+
+ ZEND_REGISTER_RESOURCE(return_value, rnew, le_dbplus_relation);
+ } else {
+ /* TODO error reporting */
+ RETURN_FALSE;
+ }
}
/* }}} */
Open relation file ... ??? */
PHP_FUNCTION(dbplus_ropen)
{
- relf *r;
- zval **tname;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &tname) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **tname;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &tname) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- convert_to_string_ex(tname);
+ convert_to_string_ex(tname);
- r = ropen((*tname)->value.str.val, 0, 0);
- if(r == NULL) {
- /* TODO error handling */
- RETURN_FALSE;
- }
+ r = ropen((*tname)->value.str.val, 0, 0);
+ if(r == NULL) {
+ /* TODO error handling */
+ RETURN_FALSE;
+ }
- ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
+ ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
}
/* }}} */
*/
PHP_FUNCTION(dbplus_rquery)
{
- relf *r;
- zval **name, **dbpath;
- int argc;
-
- if (argc <1 || argc>2 || zend_get_parameters_ex(1, &name, &dbpath) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- r = aql_exec(_STRING(name), (argc==2)?_STRING(dbpath):NULL);
-
- if(!r) {
- /* TODO error handling */
- RETURN_FALSE;
- }
-
- ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
+ relf *r;
+ zval **name, **dbpath;
+ int argc;
+
+ if (argc <1 || argc>2 || zend_get_parameters_ex(1, &name, &dbpath) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ r = aql_exec(_STRING(name), (argc==2)?_STRING(dbpath):NULL);
+
+ if(!r) {
+ /* TODO error handling */
+ RETURN_FALSE;
+ }
+
+ ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
}
/* }}} */
*/
PHP_FUNCTION(dbplus_rrename)
{
- relf *r;
- zval **relation, **name;
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &name) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation, **name;
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &name) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- convert_to_string_ex(name);
+ convert_to_string_ex(name);
- RETURN_LONG(cdbRrename(r, _STRING(name), 0));
+ RETURN_LONG(cdbRrename(r, _STRING(name), 0));
}
/* }}} */
*/
PHP_FUNCTION(dbplus_rsecindex)
{
- relf *r, *rnew;
- zval **relation, **domlist, **compact, **zdata;
- int nkeys=0;
- char *p, *name=NULL, *keys[40]; /* TODO hardcoded magic number ??? */
-
- if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &relation, &domlist, &compact) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- DBPLUS_FETCH_RESOURCE(r, relation);
-
- if((*domlist)->type == IS_ARRAY) {
- convert_to_array_ex(domlist);
- for(zend_hash_internal_pointer_reset(_HASH(domlist));
- SUCCESS==zend_hash_get_current_data(_HASH(domlist), (void **)&zdata);
- zend_hash_move_forward(_HASH(domlist))) {
- if((*zdata)->type==IS_STRING)
- keys[nkeys++] = _STRING(zdata);
- else {
- php_error(E_WARNING, "Domlist array contains non-string value(s)");
- Acc_error = ERR_USER;
- RETURN_FALSE;
- }
- }
- } else {
- convert_to_string_ex(domlist);
- name = estrdup(_STRING(domlist));
- while (p = strtok(nkeys ? 0 : name, " "))
- keys[nkeys++] = p;
- }
-
- convert_to_long_ex(compact);
-
- rnew = cdbRsecindex(r, nkeys, keys, _INT(compact));
- if(name) efree(name);
-
- if(rnew) {
- /* TODO realy delete old relation resource ? */
- zend_list_delete((*relation)->value.lval);
-
- ZEND_REGISTER_RESOURCE(return_value, rnew, le_dbplus_relation);
- } else {
- /* TODO error reporting */
- RETURN_FALSE;
- }
+ relf *r, *rnew;
+ zval **relation, **domlist, **compact, **zdata;
+ int nkeys=0;
+ char *p, *name=NULL, *keys[40]; /* TODO hardcoded magic number ??? */
+
+ if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &relation, &domlist, &compact) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ DBPLUS_FETCH_RESOURCE(r, relation);
+
+ if((*domlist)->type == IS_ARRAY) {
+ convert_to_array_ex(domlist);
+ for(zend_hash_internal_pointer_reset(_HASH(domlist));
+ SUCCESS==zend_hash_get_current_data(_HASH(domlist), (void **)&zdata);
+ zend_hash_move_forward(_HASH(domlist))) {
+ if((*zdata)->type==IS_STRING)
+ keys[nkeys++] = _STRING(zdata);
+ else {
+ php_error(E_WARNING, "Domlist array contains non-string value(s)");
+ Acc_error = ERR_USER;
+ RETURN_FALSE;
+ }
+ }
+ } else {
+ convert_to_string_ex(domlist);
+ name = estrdup(_STRING(domlist));
+ while (p = strtok(nkeys ? 0 : name, " "))
+ keys[nkeys++] = p;
+ }
+
+ convert_to_long_ex(compact);
+
+ rnew = cdbRsecindex(r, nkeys, keys, _INT(compact));
+ if(name) efree(name);
+
+ if(rnew) {
+ /* TODO realy delete old relation resource ? */
+ zend_list_delete((*relation)->value.lval);
+
+ ZEND_REGISTER_RESOURCE(return_value, rnew, le_dbplus_relation);
+ } else {
+ /* TODO error reporting */
+ RETURN_FALSE;
+ }
}
/* }}} */
Remove relation from filesystem */
PHP_FUNCTION(dbplus_runlink)
{
- relf *r;
- zval **relation;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- RETURN_LONG(cdbRunlink(&r));
+ RETURN_LONG(cdbRunlink(&r));
}
/* }}} */
PHP_FUNCTION(dbplus_rzap)
{
- /* todo: optional argument */
- relf *r;
- zval **relation, **truncate;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ /* todo: optional argument */
+ relf *r;
+ zval **relation, **truncate;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- RETURN_LONG(cdbRzap(r, 1));
+ RETURN_LONG(cdbRzap(r, 1));
}
/* }}} */
??? */
PHP_FUNCTION(dbplus_savepos)
{
- relf *r;
- zval **relation;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
RETURN_LONG(cdb_savepos(r));
}
???? */
PHP_FUNCTION(dbplus_setindex)
{
- relf *r;
- zval **relation, **idx_name;
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &idx_name) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation, **idx_name;
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &idx_name) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- convert_to_string_ex(idx_name);
-
- RETURN_LONG(cdb_setindex(r, _STRING(idx_name)));
+ convert_to_string_ex(idx_name);
+
+ RETURN_LONG(cdb_setindex(r, _STRING(idx_name)));
}
/* }}} */
??? */
PHP_FUNCTION(dbplus_setindexbynumber)
{
- relf *r;
- zval **relation, **idx_number;
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &idx_number) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation, **idx_number;
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &relation, &idx_number) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- convert_to_long_ex(idx_number);
-
- RETURN_LONG(cdb_setindexbynumber(r, (*idx_number)->value.lval));
+ convert_to_long_ex(idx_number);
+
+ RETURN_LONG(cdb_setindexbynumber(r, (*idx_number)->value.lval));
}
/* }}} */
Perform SQL query */
PHP_FUNCTION(dbplus_sql)
{
- int argc;
- zval **query, **server, **dbpath;
- relf *r;
-
- argc = ZEND_NUM_ARGS();
- if (argc < 1 || argc > 3 || zend_get_parameters_ex(argc, &query, &server, &dbpath) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- switch (argc) {
- case 3:
- convert_to_string_ex(dbpath);
- php_error(E_WARNING, "Arg dbpath: %s", _STRING(dbpath));
- /* Fall-through. */
- case 2:
- convert_to_string_ex(server);
- php_error(E_WARNING, "Arg server: %s", _STRING(server));
- /* Fall-through. */
- case 1:
- convert_to_string_ex(query);
- php_error(E_WARNING, "Arg query: %s", _STRING(query));
- break;
- }
-
- r = cdb_sql((argc>=2)?_STRING(server):"localhost",
- _STRING(query),
- (argc==3)?_STRING(dbpath):NULL);
- if(r == NULL) {
- /* TODO error handling */
- RETURN_FALSE;
- }
-
- ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
+ int argc;
+ zval **query, **server, **dbpath;
+ relf *r;
+
+ argc = ZEND_NUM_ARGS();
+ if (argc < 1 || argc > 3 || zend_get_parameters_ex(argc, &query, &server, &dbpath) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ switch (argc) {
+ case 3:
+ convert_to_string_ex(dbpath);
+ php_error(E_WARNING, "Arg dbpath: %s", _STRING(dbpath));
+ /* Fall-through. */
+ case 2:
+ convert_to_string_ex(server);
+ php_error(E_WARNING, "Arg server: %s", _STRING(server));
+ /* Fall-through. */
+ case 1:
+ convert_to_string_ex(query);
+ php_error(E_WARNING, "Arg query: %s", _STRING(query));
+ break;
+ }
+
+ r = cdb_sql((argc>=2)?_STRING(server):"localhost",
+ _STRING(query),
+ (argc==3)?_STRING(dbpath):NULL);
+ if(r == NULL) {
+ /* TODO error handling */
+ RETURN_FALSE;
+ }
+
+ ZEND_REGISTER_RESOURCE(return_value, r, le_dbplus_relation);
}
/* }}} */
*/
PHP_FUNCTION(dbplus_tcl)
{
- zval **sid, **script;
- char *ret;
- int result_type;
+ zval **sid, **script;
+ char *ret;
+ int result_type;
- if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &sid, &script) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &sid, &script) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- convert_to_long_ex(sid);
- convert_to_string_ex(script);
+ convert_to_long_ex(sid);
+ convert_to_string_ex(script);
- cdb_tcl(_INT(sid),_STRING(script),&ret,&result_type);
+ cdb_tcl(_INT(sid),_STRING(script),&ret,&result_type);
- if(ret) {
- RETURN_STRING(ret,1);
- } else {
- RETURN_FALSE;
- }
+ if(ret) {
+ RETURN_STRING(ret,1);
+ } else {
+ RETURN_FALSE;
+ }
}
/* }}} */
Remove tuple and return new current tuple */
PHP_FUNCTION(dbplus_tremove)
{
- zval **relation, **old, **current;
- enum errorcond stat = ERR_UNKNOWN;
- relf *r;
- tuple told, tcurr;
- int argc;
-
- argc = ZEND_NUM_ARGS();
- if ( argc<2 || argc>3 || zend_get_parameters_ex(2, &relation, &old, ¤t) == FAILURE){
- WRONG_PARAM_COUNT;
- }
-
- DBPLUS_FETCH_RESOURCE(r, relation);
-
- convert_to_array_ex(old);
-
- if(var2tuple(r, old, &told))
- RETURN_LONG(ERR_UNKNOWN);
-
- stat=cdbTremove(r, &told, &tcurr);
-
- if((stat==ERR_NOERR) && (argc==3))
- tuple2var(r, &tcurr, current);
-
- RETURN_LONG(stat);
+ zval **relation, **old, **current;
+ enum errorcond stat = ERR_UNKNOWN;
+ relf *r;
+ tuple told, tcurr;
+ int argc;
+
+ argc = ZEND_NUM_ARGS();
+ if ( argc<2 || argc>3 || zend_get_parameters_ex(2, &relation, &old, ¤t) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
+
+ DBPLUS_FETCH_RESOURCE(r, relation);
+
+ convert_to_array_ex(old);
+
+ if(var2tuple(r, old, &told))
+ RETURN_LONG(ERR_UNKNOWN);
+
+ stat=cdbTremove(r, &told, &tcurr);
+
+ if((stat==ERR_NOERR) && (argc==3))
+ tuple2var(r, &tcurr, current);
+
+ RETURN_LONG(stat);
}
/* }}} */
??? */
PHP_FUNCTION(dbplus_undo)
{
- relf *r;
- zval **relation;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- RETURN_LONG(cdb_undo(r));
+ RETURN_LONG(cdb_undo(r));
}
/* }}} */
??? */
PHP_FUNCTION(dbplus_undoprepare)
{
- relf *r;
- zval **relation;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- RETURN_LONG(cdb_undoprepare(r));
+ RETURN_LONG(cdb_undoprepare(r));
}
/* }}} */
Give up write lock on relation */
PHP_FUNCTION(dbplus_unlockrel)
{
- relf *r;
- zval **relation;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- RETURN_LONG(cdb_unlockrel(r));
+ RETURN_LONG(cdb_unlockrel(r));
}
/* }}} */
Remove constraint from relation */
PHP_FUNCTION(dbplus_unselect)
{
- relf *r;
- zval **relation;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- RETURN_LONG(cdb_unselect(r));
+ RETURN_LONG(cdb_unselect(r));
}
/* }}} */
Update specified tuple in relation */
PHP_FUNCTION(dbplus_update)
{
- zval **relation, **old, **new;
- enum errorcond stat = ERR_UNKNOWN;
- relf *r;
- tuple told, tnew;
+ zval **relation, **old, **new;
+ enum errorcond stat = ERR_UNKNOWN;
+ relf *r;
+ tuple told, tnew;
- if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &relation, &old, &new) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &relation, &old, &new) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- convert_to_array_ex(old);
- convert_to_array_ex(new);
-
- if(var2tuple(r, old, &told))
- RETURN_LONG(ERR_UNKNOWN);
+ convert_to_array_ex(old);
+ convert_to_array_ex(new);
+
+ if(var2tuple(r, old, &told))
+ RETURN_LONG(ERR_UNKNOWN);
- if(var2tuple(r, new, &tnew))
- RETURN_LONG(ERR_UNKNOWN);
+ if(var2tuple(r, new, &tnew))
+ RETURN_LONG(ERR_UNKNOWN);
- stat=cdb_update(r, &told, &tnew);
-
- RETURN_LONG(stat);
+ stat=cdb_update(r, &told, &tnew);
+
+ RETURN_LONG(stat);
}
/* }}} */
Request exclusive lock on relation */
PHP_FUNCTION(dbplus_xlockrel)
{
- relf *r;
- zval **relation;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- RETURN_LONG(cdb_xlockrel(r));
+ RETURN_LONG(cdb_xlockrel(r));
}
/* }}} */
Free exclusive lock on relation */
PHP_FUNCTION(dbplus_xunlockrel)
{
- relf *r;
- zval **relation;
- if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
- WRONG_PARAM_COUNT;
- }
+ relf *r;
+ zval **relation;
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &relation) == FAILURE){
+ WRONG_PARAM_COUNT;
+ }
- DBPLUS_FETCH_RESOURCE(r, relation);
+ DBPLUS_FETCH_RESOURCE(r, relation);
- RETURN_LONG(cdb_xunlockrel(r));
+ RETURN_LONG(cdb_xunlockrel(r));
}
/* }}} */
projects / php / commitdiff