Back to index

php5  5.3.10
Functions | Variables
xsltprocessor.c File Reference
#include "php.h"
#include "php_xsl.h"
#include "ext/libxml/php_libxml.h"

Go to the source code of this file.

Functions

 ZEND_END_ARG_INFO ()
static char * php_xsl_xslt_string_to_xpathexpr (const char *str TSRMLS_DC)
static char ** php_xsl_xslt_make_params (HashTable *parht, int xpath_params TSRMLS_DC)
static void xsl_ext_function_php (xmlXPathParserContextPtr ctxt, int nargs, int type)
void xsl_ext_function_string_php (xmlXPathParserContextPtr ctxt, int nargs)
void xsl_ext_function_object_php (xmlXPathParserContextPtr ctxt, int nargs)
 PHP_FUNCTION (xsl_xsltprocessor_import_stylesheet)
static xmlDocPtr php_xsl_apply_stylesheet (zval *id, xsl_object *intern, xsltStylesheetPtr style, zval *docp TSRMLS_DC)
 PHP_FUNCTION (xsl_xsltprocessor_transform_to_doc)
 PHP_FUNCTION (xsl_xsltprocessor_transform_to_uri)
 PHP_FUNCTION (xsl_xsltprocessor_transform_to_xml)
 PHP_FUNCTION (xsl_xsltprocessor_set_parameter)
 PHP_FUNCTION (xsl_xsltprocessor_get_parameter)
 PHP_FUNCTION (xsl_xsltprocessor_remove_parameter)
 PHP_FUNCTION (xsl_xsltprocessor_register_php_functions)
 PHP_FUNCTION (xsl_xsltprocessor_set_profiling)
 PHP_FUNCTION (xsl_xsltprocessor_has_exslt_support)

Variables

const zend_function_entry php_xsl_xsltprocessor_class_functions []

Function Documentation

PHP_FUNCTION ( xsl_xsltprocessor_import_stylesheet  )

Definition at line 383 of file xsltprocessor.c.

{
       zval *id, *docp = NULL;
       xmlDoc *doc = NULL, *newdoc = NULL;
       xsltStylesheetPtr sheetp, oldsheetp;
       xsl_object *intern;
       int prevSubstValue, prevExtDtdValue, clone_docu = 0;
       xmlNode *nodep = NULL;
       zend_object_handlers *std_hnd;
       zval *cloneDocu, *member;
       
       if (zend_parse_method_parameters(ZEND_NUM_ARGS() TSRMLS_CC, getThis(), "Oo", &id, xsl_xsltprocessor_class_entry, &docp) == FAILURE) {
              RETURN_FALSE;
       }

       nodep = php_libxml_import_node(docp TSRMLS_CC);
       
       if (nodep) {
              doc = nodep->doc;
       }
       if (doc == NULL) {
              php_error(E_WARNING, "Invalid Document");
              RETURN_FALSE;
       }

       /* libxslt uses _private, so we must copy the imported 
       stylesheet document otherwise the node proxies will be a mess */
       newdoc = xmlCopyDoc(doc, 1);
       xmlNodeSetBase((xmlNodePtr) newdoc, (xmlChar *)doc->URL);
       prevSubstValue = xmlSubstituteEntitiesDefault(1);
       prevExtDtdValue = xmlLoadExtDtdDefaultValue;
       xmlLoadExtDtdDefaultValue = XML_DETECT_IDS | XML_COMPLETE_ATTRS;

       sheetp = xsltParseStylesheetDoc(newdoc);
       xmlSubstituteEntitiesDefault(prevSubstValue);
       xmlLoadExtDtdDefaultValue = prevExtDtdValue;

       if (!sheetp) {
              xmlFreeDoc(newdoc);
              RETURN_FALSE;
       }

       intern = (xsl_object *)zend_object_store_get_object(id TSRMLS_CC); 

       std_hnd = zend_get_std_object_handlers();
       MAKE_STD_ZVAL(member);
       ZVAL_STRING(member, "cloneDocument", 0);
       cloneDocu = std_hnd->read_property(id, member, BP_VAR_IS TSRMLS_CC);
       if (Z_TYPE_P(cloneDocu) != IS_NULL) {
              convert_to_long(cloneDocu);
              clone_docu = Z_LVAL_P(cloneDocu);
       }
       efree(member);
       if (clone_docu == 0) {
              /* check if the stylesheet is using xsl:key, if yes, we have to clone the document _always_ before a transformation */
              nodep = xmlDocGetRootElement(sheetp->doc);
              if (nodep && (nodep = nodep->children)) {
                     while (nodep) {
                            if (nodep->type == XML_ELEMENT_NODE && xmlStrEqual(nodep->name, "key") && xmlStrEqual(nodep->ns->href, XSLT_NAMESPACE)) {
                                   intern->hasKeys = 1;
                                   break;
                            }
                            nodep = nodep->next;
                     }
              }
       } else {
              intern->hasKeys = clone_docu;
       }

       if ((oldsheetp = (xsltStylesheetPtr)intern->ptr)) { 
              /* free wrapper */
              if (((xsltStylesheetPtr) intern->ptr)->_private != NULL) {
                     ((xsltStylesheetPtr) intern->ptr)->_private = NULL;   
              }
              xsltFreeStylesheet((xsltStylesheetPtr) intern->ptr);
              intern->ptr = NULL;
       }

       php_xsl_set_object(id, sheetp TSRMLS_CC);
       RETVAL_TRUE;
}

Here is the call graph for this function:

PHP_FUNCTION ( xsl_xsltprocessor_transform_to_doc  )

Definition at line 615 of file xsltprocessor.c.

{
       zval *id, *rv = NULL, *docp = NULL;
       xmlDoc *newdocp;
       xsltStylesheetPtr sheetp;
       int ret, ret_class_len=0;
       char *ret_class = NULL;
       xsl_object *intern;

       id = getThis();
       intern = (xsl_object *)zend_object_store_get_object(id TSRMLS_CC);
       sheetp = (xsltStylesheetPtr) intern->ptr;

       if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "o|s!", &docp, &ret_class, &ret_class_len) == FAILURE) {
              RETURN_FALSE;
       }

       newdocp = php_xsl_apply_stylesheet(id, intern, sheetp, docp TSRMLS_CC);

       if (newdocp) {
              if (ret_class) {
                     int found;
                     char *curclass_name;
                     zend_class_entry *curce, **ce;
                     php_libxml_node_object *interndoc;

                     curce = Z_OBJCE_P(docp);
                     curclass_name = curce->name;
                     while (curce->parent != NULL) {
                            curce = curce->parent;
                     }

                     found = zend_lookup_class(ret_class, ret_class_len, &ce TSRMLS_CC);
                     if ((found != SUCCESS) || !instanceof_function(*ce, curce TSRMLS_CC)) {
                            xmlFreeDoc(newdocp);
                            php_error_docref(NULL TSRMLS_CC, E_WARNING, 
                                   "Expecting class compatible with %s, '%s' given", curclass_name, ret_class);
                            RETURN_FALSE;
                     }

                     object_init_ex(return_value, *ce);
              
                     interndoc = (php_libxml_node_object *)zend_objects_get_address(return_value TSRMLS_CC);
                     php_libxml_increment_doc_ref(interndoc, newdocp TSRMLS_CC);
                     php_libxml_increment_node_ptr(interndoc, (xmlNodePtr)newdocp, (void *)interndoc TSRMLS_CC);
              } else {
                     DOM_RET_OBJ(rv, (xmlNodePtr) newdocp, &ret, NULL);
              }
       } else {
              RETURN_FALSE;
       }
       
}

Here is the call graph for this function:

PHP_FUNCTION ( xsl_xsltprocessor_transform_to_uri  )

Definition at line 672 of file xsltprocessor.c.

{
       zval *id, *docp = NULL;
       xmlDoc *newdocp;
       xsltStylesheetPtr sheetp;
       int ret, uri_len;
       char *uri;
       xsl_object *intern;
       
       id = getThis();
       intern = (xsl_object *)zend_object_store_get_object(id TSRMLS_CC);
       sheetp = (xsltStylesheetPtr) intern->ptr;

       if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "os", &docp, &uri, &uri_len) == FAILURE) {
              RETURN_FALSE;
       }

       newdocp = php_xsl_apply_stylesheet(id, intern, sheetp, docp TSRMLS_CC);

       ret = -1;
       if (newdocp) {
              if (strlen(uri) != uri_len) {
                     xmlFreeDoc(newdocp);
                     RETURN_FALSE;
              }
              ret = xsltSaveResultToFilename(uri, newdocp, sheetp, 0);
              xmlFreeDoc(newdocp);
       }

       RETVAL_LONG(ret);
}

Here is the call graph for this function:

PHP_FUNCTION ( xsl_xsltprocessor_transform_to_xml  )

Definition at line 707 of file xsltprocessor.c.

{
       zval *id, *docp = NULL;
       xmlDoc *newdocp;
       xsltStylesheetPtr sheetp;
       int ret;
       xmlChar *doc_txt_ptr;
       int doc_txt_len;
       xsl_object *intern;
       
       id = getThis();
       intern = (xsl_object *)zend_object_store_get_object(id TSRMLS_CC);
       sheetp = (xsltStylesheetPtr) intern->ptr;

       if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "o", &docp) == FAILURE) {
              RETURN_FALSE;
       }

       newdocp = php_xsl_apply_stylesheet(id, intern, sheetp, docp TSRMLS_CC);

       ret = -1;
       if (newdocp) {
              ret = xsltSaveResultToString(&doc_txt_ptr, &doc_txt_len, newdocp, sheetp);
              if (doc_txt_ptr && doc_txt_len) {
                     RETVAL_STRINGL(doc_txt_ptr, doc_txt_len, 1);
                     xmlFree(doc_txt_ptr);
              }
              xmlFreeDoc(newdocp);
       }

       if (ret < 0) {
              RETURN_FALSE;
       }
}

Here is the call graph for this function:

PHP_FUNCTION ( xsl_xsltprocessor_set_parameter  )

Definition at line 745 of file xsltprocessor.c.

{
 
       zval *id;
       zval *array_value, **entry, *new_string;
       xsl_object *intern;
       char *string_key, *name, *value, *namespace;
       ulong idx;
       int string_key_len, namespace_len, name_len, value_len;
       DOM_GET_THIS(id);

       if (zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, ZEND_NUM_ARGS() TSRMLS_CC, "sa", &namespace, &namespace_len, &array_value) == SUCCESS) {
              intern = (xsl_object *)zend_object_store_get_object(id TSRMLS_CC);
              zend_hash_internal_pointer_reset(Z_ARRVAL_P(array_value));

              while (zend_hash_get_current_data(Z_ARRVAL_P(array_value), (void **)&entry) == SUCCESS) {
                     SEPARATE_ZVAL(entry);
                     convert_to_string_ex(entry);
                     
                     if (zend_hash_get_current_key_ex(Z_ARRVAL_P(array_value), &string_key, &string_key_len, &idx, 0, NULL) != HASH_KEY_IS_STRING) {
                            php_error_docref(NULL TSRMLS_CC, E_WARNING, "Invalid parameter array");
                            RETURN_FALSE;
                     }
                     
                     ALLOC_ZVAL(new_string);
                     Z_ADDREF_PP(entry);
                     COPY_PZVAL_TO_ZVAL(*new_string, *entry);
                     
                     zend_hash_update(intern->parameter, string_key, string_key_len, &new_string, sizeof(zval*), NULL);
                     zend_hash_move_forward(Z_ARRVAL_P(array_value));
              }
              RETURN_TRUE;

       } else if (zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, ZEND_NUM_ARGS() TSRMLS_CC, "sss", &namespace, &namespace_len, &name, &name_len, &value, &value_len) == SUCCESS) {
              
              intern = (xsl_object *)zend_object_store_get_object(id TSRMLS_CC);
              
              MAKE_STD_ZVAL(new_string);
              ZVAL_STRING(new_string, value, 1);
              
              zend_hash_update(intern->parameter, name, name_len + 1, &new_string, sizeof(zval*), NULL);
              RETURN_TRUE;
       } else {
              WRONG_PARAM_COUNT;
       }
       
}

Here is the call graph for this function:

PHP_FUNCTION ( xsl_xsltprocessor_get_parameter  )

Definition at line 796 of file xsltprocessor.c.

{
       zval *id;
       int name_len = 0, namespace_len = 0;
       char *name, *namespace;
       zval **value;
       xsl_object *intern;

       DOM_GET_THIS(id);
       
       if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ss", &namespace, &namespace_len, &name, &name_len) == FAILURE) {
              RETURN_FALSE;
       }
       intern = (xsl_object *)zend_object_store_get_object(id TSRMLS_CC);
       if ( zend_hash_find(intern->parameter, name, name_len + 1,  (void**) &value) == SUCCESS) {
              convert_to_string_ex(value);
              RETVAL_STRING(Z_STRVAL_PP(value),1);
       } else {
              RETURN_FALSE;
       }
}

Here is the call graph for this function:

PHP_FUNCTION ( xsl_xsltprocessor_remove_parameter  )

Definition at line 821 of file xsltprocessor.c.

{
       zval *id;
       int name_len = 0, namespace_len = 0;
       char *name, *namespace;
       xsl_object *intern;

       DOM_GET_THIS(id);
       
       if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ss", &namespace, &namespace_len, &name, &name_len) == FAILURE) {
              RETURN_FALSE;
       }
       intern = (xsl_object *)zend_object_store_get_object(id TSRMLS_CC);
       if ( zend_hash_del(intern->parameter, name, name_len + 1) == SUCCESS) {
              RETURN_TRUE;
       } else {
              RETURN_FALSE;
       }
}

Here is the call graph for this function:

PHP_FUNCTION ( xsl_xsltprocessor_register_php_functions  )

Definition at line 844 of file xsltprocessor.c.

{
       zval *id;
       xsl_object *intern;
       zval *array_value, **entry, *new_string;
       int  name_len = 0;
       char *name;

       DOM_GET_THIS(id);
       
       if (zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, ZEND_NUM_ARGS() TSRMLS_CC, "a",  &array_value) == SUCCESS) {
              intern = (xsl_object *)zend_object_store_get_object(id TSRMLS_CC);
              zend_hash_internal_pointer_reset(Z_ARRVAL_P(array_value));

              while (zend_hash_get_current_data(Z_ARRVAL_P(array_value), (void **)&entry) == SUCCESS) {
                     SEPARATE_ZVAL(entry);
                     convert_to_string_ex(entry);
                     
                     MAKE_STD_ZVAL(new_string);
                     ZVAL_LONG(new_string,1);
              
                     zend_hash_update(intern->registered_phpfunctions, Z_STRVAL_PP(entry), Z_STRLEN_PP(entry) + 1, &new_string, sizeof(zval*), NULL);
                     zend_hash_move_forward(Z_ARRVAL_P(array_value));
              }
              intern->registerPhpFunctions = 2;

       } else if (zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, ZEND_NUM_ARGS() TSRMLS_CC, "s",  &name, &name_len) == SUCCESS) {
              intern = (xsl_object *)zend_object_store_get_object(id TSRMLS_CC);
              
              MAKE_STD_ZVAL(new_string);
              ZVAL_LONG(new_string,1);
              zend_hash_update(intern->registered_phpfunctions, name, name_len + 1, &new_string, sizeof(zval*), NULL);
              intern->registerPhpFunctions = 2;
              
       } else {
              intern = (xsl_object *)zend_object_store_get_object(id TSRMLS_CC);
              intern->registerPhpFunctions = 1;
       }
       
}

Here is the call graph for this function:

PHP_FUNCTION ( xsl_xsltprocessor_set_profiling  )

Definition at line 887 of file xsltprocessor.c.

{
       zval *id;
       xsl_object *intern;
       char *filename = NULL;
       int filename_len;
       DOM_GET_THIS(id);

       if (zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, ZEND_NUM_ARGS() TSRMLS_CC, "s!", &filename, &filename_len) == SUCCESS) {
              intern = (xsl_object *)zend_object_store_get_object(id TSRMLS_CC);
              if (intern->profiling) {
                     efree(intern->profiling);
              }
              if (filename != NULL && strlen(filename) == filename_len) {
                     intern->profiling = estrndup(filename,filename_len);
              } else {
                     intern->profiling = NULL;
              }
              RETURN_TRUE;
       } else {
              WRONG_PARAM_COUNT;
       }
}

Here is the call graph for this function:

PHP_FUNCTION ( xsl_xsltprocessor_has_exslt_support  )

Definition at line 914 of file xsltprocessor.c.

{
#if HAVE_XSL_EXSLT
       RETURN_TRUE;
#else
       RETURN_FALSE;
#endif
}
static xmlDocPtr php_xsl_apply_stylesheet ( zval *  id,
xsl_object intern,
xsltStylesheetPtr  style,
zval *docp  TSRMLS_DC 
) [static]

Definition at line 466 of file xsltprocessor.c.

{
       xmlDocPtr newdocp;
       xmlDocPtr doc = NULL;
       xmlNodePtr node = NULL;
       xsltTransformContextPtr ctxt;
       php_libxml_node_object *object;
       char **params = NULL;
       int clone;
       zval *doXInclude, *member;
       zend_object_handlers *std_hnd;
       FILE *f;
       int secPrefsError = 0;
       int secPrefsValue;
       xsltSecurityPrefsPtr secPrefs = NULL;

       node = php_libxml_import_node(docp TSRMLS_CC);
       
       if (node) {
              doc = node->doc;
       }
       if (doc == NULL) {
              php_error_docref(NULL TSRMLS_CC, E_WARNING, "Invalid Document");
              return NULL;
       }

       if (style == NULL) {
              php_error_docref(NULL TSRMLS_CC, E_WARNING, "No stylesheet associated to this object");
              return NULL;
       }
       
       if (intern->profiling) {
              if (php_check_open_basedir(intern->profiling TSRMLS_CC)) {
                     f = NULL;
              } else {
                     f = VCWD_FOPEN(intern->profiling, "w");
              }
       } else {
              f = NULL;
       }
       
       if (intern->parameter) {
              params = php_xsl_xslt_make_params(intern->parameter, 0 TSRMLS_CC);
       }

       intern->doc = emalloc(sizeof(php_libxml_node_object));
       memset(intern->doc, 0, sizeof(php_libxml_node_object));

       if (intern->hasKeys == 1) {
              doc = xmlCopyDoc(doc, 1);
       } else {
              object = (php_libxml_node_object *)zend_object_store_get_object(docp TSRMLS_CC);
              intern->doc->document = object->document;
       }

       php_libxml_increment_doc_ref(intern->doc, doc TSRMLS_CC);

       ctxt = xsltNewTransformContext(style, doc);
       ctxt->_private = (void *) intern;

       std_hnd = zend_get_std_object_handlers();

       MAKE_STD_ZVAL(member);
       ZVAL_STRING(member, "doXInclude", 0);
       doXInclude = std_hnd->read_property(id, member, BP_VAR_IS TSRMLS_CC);
       if (Z_TYPE_P(doXInclude) != IS_NULL) {
              convert_to_long(doXInclude);
              ctxt->xinclude = Z_LVAL_P(doXInclude);
       }
       efree(member);

       
       secPrefsValue = INI_INT("xsl.security_prefs");
       
       /* if securityPrefs is set to NONE, we don't have to do any checks, but otherwise... */
       if (secPrefsValue != XSL_SECPREF_NONE) {
              secPrefs = xsltNewSecurityPrefs(); 
              if (secPrefsValue & XSL_SECPREF_READ_FILE ) { 
                     if (0 != xsltSetSecurityPrefs(secPrefs, XSLT_SECPREF_READ_FILE, xsltSecurityForbid)) { 
                            secPrefsError = 1;
                     }
              }
              if (secPrefsValue & XSL_SECPREF_WRITE_FILE ) { 
                     if (0 != xsltSetSecurityPrefs(secPrefs, XSLT_SECPREF_WRITE_FILE, xsltSecurityForbid)) { 
                            secPrefsError = 1;
                     }
              }
              if (secPrefsValue & XSL_SECPREF_CREATE_DIRECTORY ) { 
                     if (0 != xsltSetSecurityPrefs(secPrefs, XSLT_SECPREF_CREATE_DIRECTORY, xsltSecurityForbid)) { 
                            secPrefsError = 1;
                     }
              }
              if (secPrefsValue & XSL_SECPREF_READ_NETWORK) { 
                     if (0 != xsltSetSecurityPrefs(secPrefs, XSLT_SECPREF_READ_NETWORK, xsltSecurityForbid)) { 
                            secPrefsError = 1;
                     }
              }
              if (secPrefsValue & XSL_SECPREF_WRITE_NETWORK) { 
                     if (0 != xsltSetSecurityPrefs(secPrefs, XSLT_SECPREF_WRITE_NETWORK, xsltSecurityForbid)) { 
                            secPrefsError = 1;
                     }
              }
       
              if (0 != xsltSetCtxtSecurityPrefs(secPrefs, ctxt)) { 
                     secPrefsError = 1;
              }
       }
       
       if (secPrefsError == 1) {
              php_error_docref(NULL TSRMLS_CC, E_WARNING, "Can't set libxslt security properties, not doing transformation for security reasons");
       } else {
              newdocp = xsltApplyStylesheetUser(style, doc, (const char**) params,  NULL, f, ctxt);
       }
       if (f) {
              fclose(f);
       }
       
       xsltFreeTransformContext(ctxt);
       if (secPrefs) {
              xsltFreeSecurityPrefs(secPrefs);
       }

       if (intern->node_list != NULL) {
              zend_hash_destroy(intern->node_list);
              FREE_HASHTABLE(intern->node_list); 
              intern->node_list = NULL;
       }

       php_libxml_decrement_doc_ref(intern->doc TSRMLS_CC);
       efree(intern->doc);
       intern->doc = NULL;

       if (params) {
              clone = 0;
              while(params[clone]) {
                     efree(params[clone++]);
              }
              efree(params);
       }

       return newdocp;

}

Here is the call graph for this function:

Here is the caller graph for this function:

static char** php_xsl_xslt_make_params ( HashTable parht,
int xpath_params  TSRMLS_DC 
) [static]

Definition at line 125 of file xsltprocessor.c.

{
       
       int parsize;
       zval **value;
       char *xpath_expr, *string_key = NULL;
       ulong num_key;
       char **params = NULL;
       int i = 0;

       parsize = (2 * zend_hash_num_elements(parht) + 1) * sizeof(char *);
       params = (char **)safe_emalloc((2 * zend_hash_num_elements(parht) + 1), sizeof(char *), 0);
       memset((char *)params, 0, parsize);

       for (zend_hash_internal_pointer_reset(parht);
              zend_hash_get_current_data(parht, (void **)&value) == SUCCESS;
              zend_hash_move_forward(parht)) {

              if (zend_hash_get_current_key(parht, &string_key, &num_key, 1) != HASH_KEY_IS_STRING) {
                     php_error_docref(NULL TSRMLS_CC, E_WARNING, "Invalid argument or parameter array");
                     efree(params);
                     return NULL;
              } else {
                     if (Z_TYPE_PP(value) != IS_STRING) {
                            SEPARATE_ZVAL(value);
                            convert_to_string(*value);
                     }
                     
                     if (!xpath_params) {
                            xpath_expr = php_xsl_xslt_string_to_xpathexpr(Z_STRVAL_PP(value) TSRMLS_CC);
                     } else {
                            xpath_expr = estrndup(Z_STRVAL_PP(value), Z_STRLEN_PP(value));
                     }
                     if (xpath_expr) {
                            params[i++] = string_key;
                            params[i++] = xpath_expr;
                     } else {
                            efree(string_key);
                     }
              }
       }

       params[i++] = NULL;

       return params;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static char* php_xsl_xslt_string_to_xpathexpr ( const char *str  TSRMLS_DC) [static]

Definition at line 99 of file xsltprocessor.c.

{
       const xmlChar *string = (const xmlChar *)str;

       xmlChar *value;
       int str_len;
       
       str_len = xmlStrlen(string) + 3;
       
       if (xmlStrchr(string, '"')) {
              if (xmlStrchr(string, '\'')) {
                     php_error_docref(NULL TSRMLS_CC, E_WARNING, "Cannot create XPath expression (string contains both quote and double-quotes)");
                     return NULL;
              }
              value = (xmlChar*) safe_emalloc (str_len, sizeof(xmlChar), 0);
              snprintf(value, str_len, "'%s'", string);
       } else {
              value = (xmlChar*) safe_emalloc (str_len, sizeof(xmlChar), 0);
              snprintf(value, str_len, "\"%s\"", string);
       }
       return (char *) value;
}

Here is the caller graph for this function:

void xsl_ext_function_object_php ( xmlXPathParserContextPtr  ctxt,
int  nargs 
)

Definition at line 373 of file xsltprocessor.c.

{
       xsl_ext_function_php(ctxt, nargs, 2);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static void xsl_ext_function_php ( xmlXPathParserContextPtr  ctxt,
int  nargs,
int  type 
) [static]

Definition at line 173 of file xsltprocessor.c.

{
       xsltTransformContextPtr tctxt;
       zval **args;
       zval *retval;
       int result, i, ret;
       int error = 0;
       zend_fcall_info fci;
       zval handler;
       xmlXPathObjectPtr obj;
       char *str;
       char *callable = NULL;
       xsl_object *intern;
       
       TSRMLS_FETCH();

       if (! zend_is_executing(TSRMLS_C)) {
              xsltGenericError(xsltGenericErrorContext,
              "xsltExtFunctionTest: Function called from outside of PHP\n");
              error = 1;
       } else {
              tctxt = xsltXPathGetTransformContext(ctxt);
              if (tctxt == NULL) {
                     xsltGenericError(xsltGenericErrorContext,
                     "xsltExtFunctionTest: failed to get the transformation context\n");
                     error = 1;
              } else {
                     intern = (xsl_object *) tctxt->_private;
                     if (intern == NULL) {
                            xsltGenericError(xsltGenericErrorContext,
                            "xsltExtFunctionTest: failed to get the internal object\n");
                            error = 1;
                     }
                     else if (intern->registerPhpFunctions == 0) {
                            xsltGenericError(xsltGenericErrorContext,
                            "xsltExtFunctionTest: PHP Object did not register PHP functions\n");
                            error = 1;
                     }
              }
       }
       
       if (error == 1) {
              for (i = nargs - 1; i >= 0; i--) {
                     obj = valuePop(ctxt);
                     xmlXPathFreeObject(obj);
              }
              return;
       }
              
       fci.param_count = nargs - 1;
       if (fci.param_count > 0) {
              fci.params = safe_emalloc(fci.param_count, sizeof(zval**), 0);
              args = safe_emalloc(fci.param_count, sizeof(zval *), 0);
       }
       /* Reverse order to pop values off ctxt stack */
       for (i = nargs - 2; i >= 0; i--) {
              obj = valuePop(ctxt);
              MAKE_STD_ZVAL(args[i]);
              switch (obj->type) {
                     case XPATH_STRING:
                            ZVAL_STRING(args[i],  obj->stringval, 1);
                            break;
                     case XPATH_BOOLEAN:
                            ZVAL_BOOL(args[i],  obj->boolval);
                            break;
                     case XPATH_NUMBER:
                            ZVAL_DOUBLE(args[i], obj->floatval);
                            break;
                     case XPATH_NODESET:
                            if (type == 1) {
                                   str = xmlXPathCastToString(obj);
                                   ZVAL_STRING(args[i], str, 1);
                                   xmlFree(str);
                            } else if (type == 2) {
                                   int j;
                                   dom_object *domintern = (dom_object *)intern->doc;
                                   array_init(args[i]);
                                   if (obj->nodesetval && obj->nodesetval->nodeNr > 0) {
                                          for (j = 0; j < obj->nodesetval->nodeNr; j++) {
                                                 xmlNodePtr node = obj->nodesetval->nodeTab[j];
                                                 zval *child;
                                                 MAKE_STD_ZVAL(child);
                                                 /* not sure, if we need this... it's copied from xpath.c */
                                                 if (node->type == XML_NAMESPACE_DECL) {
                                                        xmlNsPtr curns;
                                                        xmlNodePtr nsparent;
                                                        
                                                        nsparent = node->_private;
                                                        curns = xmlNewNs(NULL, node->name, NULL);
                                                        if (node->children) {
                                                               curns->prefix = xmlStrdup((char *) node->children);
                                                        }
                                                        if (node->children) {
                                                               node = xmlNewDocNode(node->doc, NULL, (char *) node->children, node->name);
                                                        } else {
                                                               node = xmlNewDocNode(node->doc, NULL, "xmlns", node->name);
                                                        }
                                                        node->type = XML_NAMESPACE_DECL;
                                                        node->parent = nsparent;
                                                        node->ns = curns;
                                                 }
                                                 child = php_dom_create_object(node, &ret, NULL, child, domintern TSRMLS_CC);
                                                 add_next_index_zval(args[i], child);
                                          }
                                   }
                            }
                            break;
                     default:
                            str = xmlXPathCastToString(obj);
                            ZVAL_STRING(args[i], str, 1);
                            xmlFree(str);
              }
              xmlXPathFreeObject(obj);
              fci.params[i] = &args[i];
       }
       
       fci.size = sizeof(fci);
       fci.function_table = EG(function_table);
       
       obj = valuePop(ctxt);
       if (obj->stringval == NULL) {
              php_error_docref(NULL TSRMLS_CC, E_WARNING, "Handler name must be a string");
              xmlXPathFreeObject(obj);
              if (fci.param_count > 0) {
                     for (i = 0; i < nargs - 1; i++) {
                            zval_ptr_dtor(&args[i]);
                     }
                     efree(args);
                     efree(fci.params);
              }
              return; 
       }
       INIT_PZVAL(&handler);
       ZVAL_STRING(&handler, obj->stringval, 1);
       xmlXPathFreeObject(obj);
       
       fci.function_name = &handler;
       fci.symbol_table = NULL;
       fci.object_ptr = NULL;
       fci.retval_ptr_ptr = &retval;
       fci.no_separation = 0;
       /*fci.function_handler_cache = &function_ptr;*/
       if (!zend_make_callable(&handler, &callable TSRMLS_CC)) {
              php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to call handler %s()", callable);
              
       } else if ( intern->registerPhpFunctions == 2 && zend_hash_exists(intern->registered_phpfunctions, callable, strlen(callable) + 1) == 0) { 
              php_error_docref(NULL TSRMLS_CC, E_WARNING, "Not allowed to call handler '%s()'", callable);
              /* Push an empty string, so that we at least have an xslt result... */
              valuePush(ctxt, xmlXPathNewString(""));
       } else {
              result = zend_call_function(&fci, NULL TSRMLS_CC);
              if (result == FAILURE) {
                     if (Z_TYPE(handler) == IS_STRING) {
                            php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to call handler %s()", Z_STRVAL_P(&handler));
                     }
              /* retval is == NULL, when an exception occured, don't report anything, because PHP itself will handle that */
              } else if (retval == NULL) {
              } else {
                     if (retval->type == IS_OBJECT && instanceof_function( Z_OBJCE_P(retval), dom_node_class_entry TSRMLS_CC)) {
                            xmlNode *nodep;
                            dom_object *obj;
                            if (intern->node_list == NULL) {
                                   ALLOC_HASHTABLE(intern->node_list);
                                   zend_hash_init(intern->node_list, 0, NULL, ZVAL_PTR_DTOR, 0);
                            }
                            zval_add_ref(&retval);
                            zend_hash_next_index_insert(intern->node_list, &retval, sizeof(zval *), NULL);
                            obj = (dom_object *)zend_object_store_get_object(retval TSRMLS_CC);
                            nodep = dom_object_get_node(obj);
                            valuePush(ctxt, xmlXPathNewNodeSet(nodep));
                     } else if (retval->type == IS_BOOL) {
                            valuePush(ctxt, xmlXPathNewBoolean(retval->value.lval));
                     } else if (retval->type == IS_OBJECT) {
                            php_error_docref(NULL TSRMLS_CC, E_WARNING, "A PHP Object cannot be converted to a XPath-string");
                            valuePush(ctxt, xmlXPathNewString(""));
                     } else {
                            convert_to_string_ex(&retval);
                            valuePush(ctxt, xmlXPathNewString( Z_STRVAL_P(retval)));
                     }
                     zval_ptr_dtor(&retval);
              }
       }
       efree(callable);
       zval_dtor(&handler);
       if (fci.param_count > 0) {
              for (i = 0; i < nargs - 1; i++) {
                     zval_ptr_dtor(&args[i]);
              }
              efree(args);
              efree(fci.params);
       }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void xsl_ext_function_string_php ( xmlXPathParserContextPtr  ctxt,
int  nargs 
)

Definition at line 367 of file xsltprocessor.c.

{
       xsl_ext_function_php(ctxt, nargs, 1);
}

Here is the call graph for this function:

Here is the caller graph for this function:


Variable Documentation

Initial value:
 {









       PHP_FALIAS(setProfiling, xsl_xsltprocessor_set_profiling, arginfo_xsl_xsltprocessor_set_profiling)
       {NULL, NULL, NULL}
}

Definition at line 83 of file xsltprocessor.c.