archive/php-src
1
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2025-08-18 15:08:55 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

@ Added the xslt_set_base function. (Sterling)

Browse source 
Added the SABLOT_SET_ERROR() macro to set sablotron errors...
This commit is contained in:
Sterling Hughes 2001-01-16 12:02:47 +00:00
parent 12537e9787
commit fa0727e794
2 changed files with 55 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
ext/sablot/php_sablot.h
View file

@ -56,6 +56,7 @@ PHP_FUNCTION(xslt_set_error_handler);
#ifdef HAVE_SABLOT_SET_ENCODING
PHP_FUNCTION(xslt_set_encoding);
#endif
PHP_FUNCTION(xslt_set_base);
PHP_FUNCTION(xslt_fetch_result);
PHP_FUNCTION(xslt_free);

54
ext/sablot/sablot.c
View file

@ -99,6 +99,15 @@ static zval *_php_sablot_resource_zval(long);
#define SABLOT_BASIC_HANDLE SABLOTG(processor)
#define SABLOT_SET_ERROR(handle, error) \
if (error != 0) { \
if (handle) { \
handle->last_errno = error; \
} \
\
SABLOTG(last_errno) = error; \
}
/**
* SAX Handler structure, this defines the different functions to be
* called when Sablotron's internal expat parser reaches the
@ -150,6 +159,7 @@ function_entry sablot_functions[] = {
PHP_FE(xslt_closelog, NULL)
PHP_FE(xslt_set_sax_handler, NULL)
PHP_FE(xslt_set_error_handler, NULL)
PHP_FE(xslt_set_base, NULL)
#ifdef HAVE_SABLOT_SET_ENCODING
PHP_FE(xslt_set_encoding, NULL)
#endif
@ -865,6 +875,50 @@ PHP_FUNCTION(xslt_set_encoding)
#endif
/* {{{ proto bool xslt_set_base(resource xh, string scheme, string base)
Overrides the default base for a resource. If scheme is non-null, it only affects the uri given by scheme */
PHP_FUNCTION(xslt_set_base)
{
zval **xh, **scheme, **base;
php_sablot *handle;
int argc = ZEND_NUM_ARGS(),
ret = 0;
SABLOTLS_FETCH();
if (argc < 2 || argc > 3 ||
zend_get_parameters_ex(argc, &xh, &scheme, &base,) == FAILURE) {
WRONG_PARAM_COUNT;
}
if (argc > 2) {
ZEND_FETCH_RESOURCE(handle, php_sablot *, xh, -1, "PHP-Sablotron handle", le_sablot);
if (Z_TYPE_PP(scheme) != IS_STRING) {
ret = SablotSetBase(handle->p, Z_STRVAL_PP(base));
} else {
ret = SablotSetBaseForScheme((void *) handle->p,
Z_STRVAL_PP(scheme),
Z_STRVAL_PP(base));
}
} else {
if (Z_TYPE_PP(scheme) != IS_STRING) {
ret = SablotSetBase(SABLOTG(processor), Z_STRVAL_PP(base));
} else {
ret = SablotSetBaseForScheme((void *) SABLOTG(processor),
Z_STRVAL_PP(scheme),
Z_STRVAL_PP(base));
}
}
SABLOT_SET_ERROR(handle, ret);
if (ret != 0) {
RETURN_FALSE;
} else {
RETURN_TRUE;
}
}
/* }}} */
/* }}} */