diff options
Diffstat (limited to 'ext/domxml/php_domxml.c')
| -rw-r--r-- | ext/domxml/php_domxml.c | 2583 |
1 files changed, 0 insertions, 2583 deletions
diff --git a/ext/domxml/php_domxml.c b/ext/domxml/php_domxml.c deleted file mode 100644 index 51d0caebaa..0000000000 --- a/ext/domxml/php_domxml.c +++ /dev/null @@ -1,2583 +0,0 @@ -/* - +----------------------------------------------------------------------+ - | PHP version 4.0 | - +----------------------------------------------------------------------+ - | Copyright (c) 1997-2001 The PHP Group | - +----------------------------------------------------------------------+ - | This source file is subject to version 2.02 of the PHP license, | - | that is bundled with this package in the file LICENSE, and is | - | available at through the world-wide-web at | - | http://www.php.net/license/2_02.txt. | - | If you did not receive a copy of the PHP license and are unable to | - | obtain it through the world-wide-web, please send a note to | - | license@php.net so we can mail you a copy immediately. | - +----------------------------------------------------------------------+ - | Authors: Uwe Steinmann <steinm@php.net> | - +----------------------------------------------------------------------+ - */ - -/* $Id$ */ - - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif - -#include "php.h" -#include "php_domxml.h" - -#if HAVE_DOMXML -#include "ext/standard/info.h" -#define PHP_XPATH 1 -#define PHP_XPTR 2 - -static int le_domxmldocp; -static int le_domxmldoctypep; -static int le_domxmldtdp; -static int le_domxmlnodep; -static int le_domxmlelementp; -static int le_domxmlattrp; -static int le_domxmlcdatap; -static int le_domxmltextp; -static int le_domxmlpip; -static int le_domxmlcommentp; -static int le_domxmlnotationp; -/*static int le_domxmlentityp;*/ -static int le_domxmlentityrefp; -/*static int le_domxmlnsp;*/ - -#if defined(LIBXML_XPATH_ENABLED) -static int le_xpathctxp; -static int le_xpathobjectp; -#endif - -zend_class_entry *domxmldoc_class_entry; -zend_class_entry *domxmldoctype_class_entry; -zend_class_entry *domxmlelement_class_entry; -zend_class_entry *domxmldtd_class_entry; -zend_class_entry *domxmlnode_class_entry; -zend_class_entry *domxmlattr_class_entry; -zend_class_entry *domxmlcdata_class_entry; -zend_class_entry *domxmltext_class_entry; -zend_class_entry *domxmlpi_class_entry; -zend_class_entry *domxmlcomment_class_entry; -zend_class_entry *domxmlnotation_class_entry; -zend_class_entry *domxmlentity_class_entry; -zend_class_entry *domxmlentityref_class_entry; -zend_class_entry *domxmlns_class_entry; -#if defined(LIBXML_XPATH_ENABLED) -zend_class_entry *xpathctx_class_entry; -zend_class_entry *xpathobject_class_entry; -#endif - - -static int node_attributes(zval **attributes, xmlNode *nodep); -static int node_children(zval **children, xmlNode *nodep); - -static zend_function_entry domxml_functions[] = { - PHP_FE(domxml_version, NULL) - PHP_FE(xmldoc, NULL) - PHP_FE(xmldocfile, NULL) - PHP_FE(xmltree, NULL) - PHP_FALIAS(domxml_root, domxml_doc_document_element, NULL) - PHP_FE(domxml_add_root, NULL) - PHP_FE(domxml_dumpmem, NULL) - PHP_FE(domxml_node_attributes, NULL) - PHP_FALIAS(domxml_attributes, domxml_node_attributes, NULL) - PHP_FE(domxml_elem_get_attribute, NULL) - PHP_FALIAS(domxml_get_attribute, domxml_elem_get_attribute, NULL) - PHP_FALIAS(domxml_getattr, domxml_elem_get_attribute, NULL) - PHP_FE(domxml_elem_set_attribute, NULL) - PHP_FALIAS(domxml_set_attribute, domxml_elem_set_attribute, NULL) - PHP_FALIAS(domxml_setattr, domxml_elem_set_attribute, NULL) - PHP_FE(domxml_node_children, NULL) - PHP_FALIAS(domxml_children, domxml_node_children, NULL) - PHP_FE(domxml_node_new_child, NULL) - PHP_FALIAS(domxml_new_child, domxml_node_new_child, NULL) - PHP_FE(domxml_node, NULL) - PHP_FE(domxml_node_unlink_node, NULL) - PHP_FALIAS(domxml_unlink_node, domxml_node_unlink_node, NULL) - PHP_FE(domxml_node_set_content, NULL) - PHP_FALIAS(set_content, domxml_node_set_content, NULL) - PHP_FE(domxml_new_xmldoc, NULL) - PHP_FALIAS(new_xmldoc, domxml_new_xmldoc, NULL) -#if defined(LIBXML_XPATH_ENABLED) -/* PHP_FE(xpath_new_context, NULL) - PHP_FE(xpath_eval, NULL) - PHP_FE(xpath_eval_expression, NULL) */ -#endif -#if defined(LIBXML_XPTR_ENABLED) -/* PHP_FE(xptr_new_context, NULL) - PHP_FE(xptr_eval, NULL) */ -#endif - {NULL, NULL, NULL} -}; - - -static function_entry php_domxmldoc_class_functions[] = { -/* PHP_FALIAS(domdocument, xmldoc, NULL) */ - {"domdocument", PHP_FN(xmldoc), NULL}, - PHP_FALIAS(doctype, domxml_doc_doctype, NULL) - PHP_FALIAS(implementation, domxml_doc_implementation, NULL) - PHP_FALIAS(root, domxml_doc_document_element, NULL) /* not DOM */ - PHP_FALIAS(document_element, domxml_doc_document_element, NULL) - PHP_FALIAS(documentelement, domxml_doc_document_element, NULL) - PHP_FALIAS(createelement, domxml_doc_create_element, NULL) - PHP_FALIAS(create_element, domxml_doc_create_element, NULL) - PHP_FALIAS(createtextnode, domxml_doc_create_text_node, NULL) - PHP_FALIAS(create_text_node, domxml_doc_create_text_node, NULL) - PHP_FALIAS(createcomment, domxml_doc_create_comment, NULL) - PHP_FALIAS(create_comment, domxml_doc_create_comment, NULL) - PHP_FALIAS(createattribute, domxml_doc_create_attribute, NULL) - PHP_FALIAS(create_attribute, domxml_doc_create_attribute, NULL) - PHP_FALIAS(createprocessinginstruction, domxml_doc_create_processing_instruction, NULL) - PHP_FALIAS(create_processing_instruction, domxml_doc_create_processing_instruction, NULL) - PHP_FALIAS(children, domxml_node_children, NULL) - PHP_FALIAS(add_root, domxml_add_root, NULL) - PHP_FALIAS(importednode, domxml_doc_imported_node, NULL) - PHP_FALIAS(imported_node, domxml_doc_imported_node, NULL) - PHP_FALIAS(dtd, domxml_intdtd, NULL) - PHP_FALIAS(dumpmem, domxml_dumpmem, NULL) -/* PHP_FALIAS(createcdatasection, domxml_create_cdata_section, NULL) - PHP_FALIAS(create_cdata_section, domxml_create_cdata_section, NULL) -*/ -#if defined(LIBXML_XPATH_ENABLED) - PHP_FALIAS(xpath_init, xpath_init, NULL) - PHP_FALIAS(xpath_new_context, xpath_new_context, NULL) - PHP_FALIAS(xptr_new_context, xptr_new_context, NULL) -#endif - {NULL, NULL, NULL} -}; - -static function_entry php_domxmldoctype_class_functions[] = { - PHP_FALIAS(name, domxml_doctype_name, NULL) -/* PHP_FALIAS(entities, domxml_doctype_entities, NULL) - PHP_FALIAS(notations, domxml_doctype_notations, NULL) - PHP_FALIAS(systemid, domxml_doctype_system_id, NULL) - PHP_FALIAS(system_id, domxml_doctype_system_id, NULL) - PHP_FALIAS(publicid, domxml_doctype_public_id, NULL) - PHP_FALIAS(public_id, domxml_doctype_public_id, NULL) - PHP_FALIAS(internalsubset, domxml_doctype_internal_subset, NULL) - PHP_FALIAS(internal_subset, domxml_doctype_internal_subset, NULL) -*/ {NULL, NULL, NULL} -}; - -static zend_function_entry php_domxmldtd_class_functions[] = { - {NULL, NULL, NULL} -}; - -static zend_function_entry php_domxmlnode_class_functions[] = { - PHP_FALIAS(domnode, domxml_node, NULL) - PHP_FALIAS(firstchild, domxml_node_first_child, NULL) - PHP_FALIAS(first_child, domxml_node_first_child, NULL) - PHP_FALIAS(lastchild, domxml_node_last_child, NULL) - PHP_FALIAS(last_child, domxml_node_last_child, NULL) - PHP_FALIAS(add_child, domxml_node_add_child, NULL) - PHP_FALIAS(children, domxml_node_children, NULL) - PHP_FALIAS(childnodes, domxml_node_children, NULL) - PHP_FALIAS(child_nodes, domxml_node_children, NULL) - PHP_FALIAS(previoussibling, domxml_node_previous_sibling, NULL) - PHP_FALIAS(previous_sibling, domxml_node_previous_sibling, NULL) - PHP_FALIAS(nextsibling, domxml_node_next_sibling, NULL) - PHP_FALIAS(next_sibling, domxml_node_next_sibling, NULL) - PHP_FALIAS(has_child_nodes, domxml_node_has_child_nodes, NULL) - PHP_FALIAS(haschildnodes, domxml_node_has_child_nodes, NULL) - PHP_FALIAS(prefix, domxml_node_prefix, NULL) - PHP_FALIAS(parent, domxml_node_parent, NULL) - PHP_FALIAS(parentnode, domxml_node_parent, NULL) - PHP_FALIAS(parent_node, domxml_node_parent, NULL) - PHP_FALIAS(insert_before, domxml_node_insert_before, NULL) - PHP_FALIAS(insertbefore, domxml_node_insert_before, NULL) - PHP_FALIAS(append_child, domxml_node_append_child, NULL) - PHP_FALIAS(appendchild, domxml_node_append_child, NULL) - PHP_FALIAS(ownerdocument, domxml_node_owner_document, NULL) - PHP_FALIAS(owner_document, domxml_node_owner_document, NULL) - PHP_FALIAS(new_child, domxml_node_new_child, NULL) - PHP_FALIAS(attributes, domxml_node_attributes, NULL) - PHP_FALIAS(node, domxml_node, NULL) - PHP_FALIAS(unlink, domxml_node_unlink_node, NULL) - PHP_FALIAS(set_content, domxml_node_set_content, NULL) - PHP_FALIAS(text_concat, domxml_node_text_concat, NULL) - PHP_FALIAS(set_name, domxml_node_set_name, NULL) - PHP_FALIAS(node_name, domxml_node_name, NULL) - PHP_FALIAS(nodename, domxml_node_name, NULL) - PHP_FALIAS(node_value, domxml_node_value, NULL) - PHP_FALIAS(nodevalue, domxml_node_value, NULL) - {NULL, NULL, NULL} -}; - -static zend_function_entry php_domxmlelement_class_functions[] = { - PHP_FALIAS(domelement, domxml_element, NULL) - PHP_FALIAS(tagname, domxml_elem_tagname, NULL) - PHP_FALIAS(getattribute, domxml_elem_get_attribute, NULL) - PHP_FALIAS(get_attribute, domxml_elem_get_attribute, NULL) - PHP_FALIAS(setattribute, domxml_elem_set_attribute, NULL) - PHP_FALIAS(set_attribute, domxml_elem_set_attribute, NULL) - PHP_FALIAS(removeattribute, domxml_elem_remove_attribute, NULL) - PHP_FALIAS(remove_attribute, domxml_elem_remove_attribute, NULL) - PHP_FALIAS(getattributenode, domxml_elem_get_attribute_node, NULL) - PHP_FALIAS(get_attributenode, domxml_elem_get_attribute_node, NULL) - PHP_FALIAS(setattributenode, domxml_elem_set_attribute_node, NULL) - PHP_FALIAS(set_attributenode, domxml_elem_set_attribute_node, NULL) - PHP_FALIAS(getelementbytagname, domxml_elem_get_element_by_tagname, NULL) - PHP_FALIAS(get_element_by_tagname, domxml_elem_get_element_by_tagname, NULL) - {NULL, NULL, NULL} -}; - -static zend_function_entry php_domxmlcdata_class_functions[] = { - PHP_FALIAS(length, domxml_cdata_length, NULL) - {NULL, NULL, NULL} -}; - -static zend_function_entry php_domxmltext_class_functions[] = { - {NULL, NULL, NULL} -}; - -static zend_function_entry php_domxmlcomment_class_functions[] = { - {NULL, NULL, NULL} -}; - -static zend_function_entry php_domxmlnotation_class_functions[] = { - PHP_FALIAS(publicid, domxml_notation_public_id, NULL) - PHP_FALIAS(public_id, domxml_notation_public_id, NULL) - PHP_FALIAS(systemid, domxml_notation_system_id, NULL) - PHP_FALIAS(system_id, domxml_notation_system_id, NULL) - {NULL, NULL, NULL} -}; - -static zend_function_entry php_domxmlentityref_class_functions[] = { - {NULL, NULL, NULL} -}; - -static zend_function_entry php_domxmlentity_class_functions[] = { -/* PHP_FALIAS(publicid, domxml_entity_public_id, NULL) - PHP_FALIAS(public_id, domxml_entity_public_id, NULL) - PHP_FALIAS(systemid, domxml_entity_system_id, NULL) - PHP_FALIAS(system_id, domxml_entity_system_id, NULL) - PHP_FALIAS(notationname, domxml_entity_notation_name, NULL) - PHP_FALIAS(notation_name, domxml_entity_notation_name, NULL) -*/ {NULL, NULL, NULL} -}; - -static zend_function_entry php_domxmlpi_class_functions[] = { - PHP_FALIAS(target, domxml_pi_target, NULL) - PHP_FALIAS(data, domxml_pi_data, NULL) - {NULL, NULL, NULL} -}; - -#if defined(LIBXML_XPATH_ENABLED) -static zend_function_entry php_xpathctx_class_functions[] = { - PHP_FALIAS(xpath_eval, xpath_eval, NULL) - PHP_FALIAS(xpath_eval_expression, xpath_eval_expression, NULL) - {NULL, NULL, NULL} -}; - -static zend_function_entry php_xpathobject_class_functions[] = { - {NULL, NULL, NULL} -}; -#endif - -static zend_function_entry php_domxmlattr_class_functions[] = { - PHP_FALIAS(name, domxml_attr_name, NULL) - PHP_FALIAS(value, domxml_attr_value, NULL) - PHP_FALIAS(specified, domxml_attr_specified, NULL) -/* PHP_FALIAS(ownerelement, domxml_attr_owner_element, NULL) - PHP_FALIAS(owner_element, domxml_attr_owner_element, NULL) -*/ {NULL, NULL, NULL} -}; - -static zend_function_entry php_domxmlns_class_functions[] = { - {NULL, NULL, NULL} -}; - -zend_module_entry domxml_module_entry = { - "domxml", domxml_functions, PHP_MINIT(domxml), NULL, PHP_RINIT(domxml), NULL, PHP_MINFO(domxml), STANDARD_MODULE_PROPERTIES -}; - -#ifdef COMPILE_DL_DOMXML -ZEND_GET_MODULE(domxml) -#endif - -static void dom_object_set_data(void *obj, zval *wrapper) { - /* - char tmp[20]; - sprintf(tmp, "%08X", obj); - fprintf(stderr, "Adding %s to hash\n", tmp); - */ - ((xmlNodePtr) obj)->_private = wrapper; -} - -static zval *dom_object_get_data(void *obj) { - /* char tmp[20]; - sprintf(tmp, "%08X", obj); - fprintf(stderr, "Trying getting %s from object ...", tmp); - if(((xmlNodePtr) obj)->_private) - fprintf(stderr," found\n"); - else - fprintf(stderr," not found\n"); */ - return((zval *) (((xmlNodePtr) obj)->_private)); -} - -static inline void node_wrapper_dtor(xmlNodePtr node) -{ - zval *wrapper; - - if (!node || node->type == XML_DTD_NODE) - return; - - wrapper = dom_object_get_data(node); - if (wrapper) - zval_ptr_dtor(&wrapper); -} - -static inline void attr_list_wrapper_dtor(xmlAttrPtr attr) -{ - while (attr != NULL) { - node_wrapper_dtor((xmlNodePtr) attr); - attr = attr->next; - } -} - -static inline void node_list_wrapper_dtor(xmlNodePtr node) -{ - while (node != NULL) { - node_list_wrapper_dtor(node->children); - attr_list_wrapper_dtor(node->properties); - node_wrapper_dtor(node); - node = node->next; - } -} - -static void php_free_xml_doc(zend_rsrc_list_entry *rsrc) -{ - xmlDoc *doc = (xmlDoc *)rsrc->ptr; - - if (doc) { - node_list_wrapper_dtor(doc->children); - - node_wrapper_dtor((xmlNodePtr) doc); - xmlFreeDoc(doc); - } -} - -static void php_free_xml_node(zend_rsrc_list_entry *rsrc) { - xmlNodePtr node = (xmlNodePtr) rsrc->ptr; - - if (node) { - zval *wrapper = dom_object_get_data(node); - if (wrapper) - zval_ptr_dtor(&wrapper); - } -} - -#if defined(LIBXML_XPATH_ENABLED) -static void php_free_xpath_context(zend_rsrc_list_entry *rsrc) -{ - xmlXPathContextPtr ctx = (xmlXPathContextPtr)rsrc->ptr; - if(ctx) - xmlXPathFreeContext(ctx); -} - -static void php_free_xpath_object(zend_rsrc_list_entry *rsrc) -{ - xmlXPathObjectPtr obj = (xmlXPathObjectPtr)rsrc->ptr; - if(obj) - xmlXPathFreeObject(obj); -} -#endif - -void *php_xpath_get_object(zval *wrapper, int rsrc_type1, int rsrc_type2) -{ - void *obj; - zval **handle; - int type; - - if (Z_TYPE_P(wrapper) != IS_OBJECT) { - php_error(E_ERROR, "Wrapper is not an object"); - } - if (zend_hash_index_find(Z_OBJPROP_P(wrapper), 0, (void **)&handle) == FAILURE) { - php_error(E_ERROR, "Underlying object missing"); - } - obj = zend_list_find(Z_LVAL_PP(handle), &type); - if (!obj || ((type != rsrc_type1) && (type != rsrc_type2))) { - php_error(E_ERROR, "Underlying object missing or of invalid type"); - } - - return obj; -} - -static void xpath_object_set_data(void *obj, zval *wrapper) { -/* char tmp[20]; - sprintf(tmp, "%08X", obj); - fprintf(stderr, "Adding %s to hash\n", tmp); */ - ((xmlXPathObjectPtr) obj)->user = wrapper; -} - -static zval *xpath_object_get_data(void *obj) { -/* char tmp[20]; - sprintf(tmp, "%08X", obj); - fprintf(stderr, "Trying getting %s from hash ...", tmp); - if(((xmlXPathObjectPtr) obj)->user) - fprintf(stderr," found\n"); - else - fprintf(stderr," not found\n"); */ - return((zval *) (((xmlXPathObjectPtr) obj)->user)); -} - -static void php_xpath_set_object(zval *wrapper, void *obj, int rsrc_type) { - zval *handle, *addr; - - MAKE_STD_ZVAL(handle); - Z_TYPE_P(handle) = IS_LONG; - Z_LVAL_P(handle) = zend_list_insert(obj, rsrc_type); - MAKE_STD_ZVAL(addr); - Z_TYPE_P(addr) = IS_LONG; - Z_LVAL_P(addr) = (int) obj; - zend_hash_index_update(Z_OBJPROP_P(wrapper), 0, &handle, sizeof(zval *), NULL); - zend_hash_index_update(Z_OBJPROP_P(wrapper), 1, &addr, sizeof(zval *), NULL); - zval_add_ref(&wrapper); - xpath_object_set_data(obj, wrapper); -} - -static zval *php_xpathobject_new(xmlXPathObjectPtr obj, int *found) { - zval *wrapper; - int rsrc_type; - - *found = 0; - if (!obj) { - MAKE_STD_ZVAL(wrapper); - ZVAL_NULL(wrapper); - return wrapper; - } - - if ((wrapper = (zval *)xpath_object_get_data((void *)obj))) { - zval_add_ref(&wrapper); - *found = 1; - return wrapper; - } - - MAKE_STD_ZVAL(wrapper); -/* fprintf(stderr, "Adding new XPath Object\n"); */ - object_init_ex(wrapper, xpathobject_class_entry); - rsrc_type = le_xpathobjectp; - php_xpath_set_object(wrapper, (void *) obj, rsrc_type); - - return(wrapper); -} - -void *php_xpath_get_context(zval *wrapper, int rsrc_type1, int rsrc_type2) -{ - void *obj; - zval **handle; - int type; - - if (Z_TYPE_P(wrapper) != IS_OBJECT) { - php_error(E_ERROR, "Wrapper is not an object"); - } - if (zend_hash_index_find(Z_OBJPROP_P(wrapper), 0, (void **)&handle) == FAILURE) { - php_error(E_ERROR, "Underlying object missing"); - } - obj = zend_list_find(Z_LVAL_PP(handle), &type); - if (!obj || ((type != rsrc_type1) && (type != rsrc_type2))) { - php_error(E_ERROR, "Underlying object missing or of invalid type"); - } - - return obj; -} - -static void xpath_context_set_data(void *obj, zval *wrapper) { -/* char tmp[20]; - sprintf(tmp, "%08X", obj); - fprintf(stderr, "Adding %s to hash\n", tmp); */ - ((xmlXPathContextPtr) obj)->user = (void *) wrapper; -} - -static zval *xpath_context_get_data(void *obj) { -/* char tmp[20]; - sprintf(tmp, "%08X", obj); - fprintf(stderr, "Trying getting %s from hash ...", tmp); - if(((xmlXPathContextPtr) obj)->user) - fprintf(stderr," found\n"); - else - fprintf(stderr," not found\n"); */ - return((zval *) (((xmlXPathContextPtr) obj)->user)); -} - -static void php_xpath_set_context(zval *wrapper, void *obj, int rsrc_type) { - zval *handle, *addr; - - MAKE_STD_ZVAL(handle); - Z_TYPE_P(handle) = IS_LONG; - Z_LVAL_P(handle) = zend_list_insert(obj, rsrc_type); - MAKE_STD_ZVAL(addr); - Z_TYPE_P(addr) = IS_LONG; - Z_LVAL_P(addr) = (int) obj; - zend_hash_index_update(Z_OBJPROP_P(wrapper), 0, &handle, sizeof(zval *), NULL); - zend_hash_index_update(Z_OBJPROP_P(wrapper), 1, &addr, sizeof(zval *), NULL); - zval_add_ref(&wrapper); - xpath_context_set_data(obj, wrapper); -} - -static zval *php_xpathcontext_new(xmlXPathContextPtr obj, int *found) { - zval *wrapper; - int rsrc_type; - - *found = 0; - if (!obj) { - MAKE_STD_ZVAL(wrapper); - ZVAL_NULL(wrapper); - return wrapper; - } - - if ((wrapper = (zval *)xpath_context_get_data((void *)obj))) { - zval_add_ref(&wrapper); - *found = 1; - return wrapper; - } - - MAKE_STD_ZVAL(wrapper); -/* fprintf(stderr, "Adding new XPath Context\n"); */ - object_init_ex(wrapper, xpathctx_class_entry); - rsrc_type = le_xpathctxp; - php_xpath_set_context(wrapper, (void *) obj, rsrc_type); - - return(wrapper); -} - -void *php_dom_get_object(zval *wrapper, int rsrc_type1, int rsrc_type2) -{ - void *obj; - zval **handle; - int type; - - if (Z_TYPE_P(wrapper) != IS_OBJECT) { - php_error(E_ERROR, "Wrapper is not an object"); - } - if (zend_hash_index_find(Z_OBJPROP_P(wrapper), 0, (void **)&handle) == FAILURE) { - php_error(E_ERROR, "Underlying object missing"); - } - obj = zend_list_find(Z_LVAL_PP(handle), &type); -/* The following test should be replaced with search in all parents */ - if (!obj) { /* || ((type != rsrc_type1) && (type != rsrc_type2))) { */ - php_error(E_ERROR, "Underlying object missing or of invalid type"); - } - - return obj; -} - -static void php_dom_set_object(zval *wrapper, void *obj, int rsrc_type) { - zval *handle, *addr; - - MAKE_STD_ZVAL(handle); - Z_TYPE_P(handle) = IS_LONG; - Z_LVAL_P(handle) = zend_list_insert(obj, rsrc_type); - MAKE_STD_ZVAL(addr); - Z_TYPE_P(addr) = IS_LONG; - Z_LVAL_P(addr) = (int) obj; - zend_hash_index_update(Z_OBJPROP_P(wrapper), 0, &handle, sizeof(zval *), NULL); - zend_hash_index_update(Z_OBJPROP_P(wrapper), 1, &addr, sizeof(zval *), NULL); - zval_add_ref(&wrapper); - dom_object_set_data(obj, wrapper); -} - -static zval *php_domobject_new(xmlNodePtr obj, int *found) { - zval *wrapper; - char *content; - int rsrc_type; - - *found = 0; - if (!obj) { - MAKE_STD_ZVAL(wrapper); - ZVAL_NULL(wrapper); - return wrapper; - } - - if ((wrapper = (zval *)dom_object_get_data((void *)obj))) { - zval_add_ref(&wrapper); - *found = 1; - return wrapper; - } - - MAKE_STD_ZVAL(wrapper); -/* fprintf(stderr, "Adding new Node of type: %d\n", obj->type); */ - switch(obj->type) { - case XML_ELEMENT_NODE: { - xmlNodePtr nodep = obj; - object_init_ex(wrapper, domxmlelement_class_entry); - rsrc_type = le_domxmlelementp; - add_property_long(wrapper, "type", nodep->type); - add_property_stringl(wrapper, "tagname", (char *) nodep->name, strlen(nodep->name), 1); - break; - } - case XML_TEXT_NODE: { - xmlNodePtr nodep = obj; - object_init_ex(wrapper, domxmltext_class_entry); - rsrc_type = le_domxmltextp; - content = xmlNodeGetContent(nodep); - if(content) - add_property_stringl(wrapper, "content", (char *) content, strlen(content), 1); - break; - } - case XML_COMMENT_NODE: { - xmlNodePtr nodep = obj; - object_init_ex(wrapper, domxmlcomment_class_entry); - rsrc_type = le_domxmlcommentp; - content = xmlNodeGetContent(nodep); - if(content) - add_property_stringl(wrapper, "content", (char *) content, strlen(content), 1); - break; - } - case XML_PI_NODE: { - xmlNodePtr nodep = obj; - object_init_ex(wrapper, domxmlpi_class_entry); - rsrc_type = le_domxmlpip; - content = xmlNodeGetContent(nodep); - add_property_stringl(wrapper, "target", (char *) nodep->name, strlen(nodep->name), 1); - if(content) - add_property_stringl(wrapper, "data", (char *) content, strlen(content), 1); - break; - } - case XML_ENTITY_REF_NODE: { - xmlNodePtr nodep = obj; - object_init_ex(wrapper, domxmlentityref_class_entry); - rsrc_type = le_domxmlentityrefp; - content = xmlNodeGetContent(nodep); - add_property_stringl(wrapper, "name", (char *) nodep->name, strlen(nodep->name), 1); - if(content) - add_property_stringl(wrapper, "content", (char *) content, strlen(content), 1); - break; - } - case XML_ENTITY_DECL: - case XML_ELEMENT_DECL: { - xmlNodePtr nodep = obj; - object_init_ex(wrapper, domxmlnode_class_entry); - rsrc_type = le_domxmlnodep; - add_property_long(wrapper, "type", nodep->type); - add_property_stringl(wrapper, "name", (char *) nodep->name, strlen(nodep->name), 1); - if(obj->type == XML_ENTITY_REF_NODE) { - content = xmlNodeGetContent(nodep); - if(content) - add_property_stringl(wrapper, "content", (char *) content, strlen(content), 1); - } - break; - } - case XML_ATTRIBUTE_NODE: { - xmlAttrPtr attrp = (xmlAttrPtr) obj; - object_init_ex(wrapper, domxmlattr_class_entry); - rsrc_type = le_domxmlattrp; - add_property_stringl(wrapper, "name", (char *) attrp->name, strlen(attrp->name), 1); - content = xmlNodeGetContent((xmlNodePtr) attrp); - if(content) - add_property_stringl(wrapper, "value", (char *) content, strlen(content), 1); - break; - } - case XML_DOCUMENT_NODE: { - xmlDocPtr docp = (xmlDocPtr) obj; - object_init_ex(wrapper, domxmldoc_class_entry); - rsrc_type = le_domxmldocp; - if(docp->name) - add_property_stringl(wrapper, "name", (char *) docp->name, strlen(docp->name), 1); - else - add_property_stringl(wrapper, "name", "", 0, 1); - if(docp->URL) - add_property_stringl(wrapper, "url", (char *) docp->URL, strlen(docp->URL), 1); - else - add_property_stringl(wrapper, "url", "", 0, 1); - add_property_stringl(wrapper, "version", (char *) docp->version, strlen(docp->version), 1); - if(docp->encoding) - add_property_stringl(wrapper, "encoding", (char *) docp->encoding, strlen(docp->encoding), 1); - add_property_long(wrapper, "standalone", docp->standalone); - add_property_long(wrapper, "type", docp->type); - add_property_long(wrapper, "compression", docp->compression); - add_property_long(wrapper, "charset", docp->charset); - break; - } - case XML_DTD_NODE: { - xmlDtdPtr dtd = (xmlDtdPtr) obj; - object_init_ex(wrapper, domxmldtd_class_entry); - rsrc_type = le_domxmldtdp; - if(dtd->ExternalID) - add_property_string(wrapper, "publicId", (char *) dtd->ExternalID, 1); - if(dtd->SystemID) - add_property_string(wrapper, "systemId", (char *) dtd->SystemID, 1); - if(dtd->name) - add_property_string(wrapper, "name", (char *) dtd->name, 1); - break; - } - default: - fprintf(stderr, "Unsupported Node type: %d\n", obj->type); - return NULL; - } - php_dom_set_object(wrapper, (void *) obj, rsrc_type); - - return(wrapper); -} - -PHP_RINIT_FUNCTION(domxml) -{ - return SUCCESS; -} - -PHP_MINIT_FUNCTION(domxml) -{ - zend_class_entry ce; - le_domxmldocp = zend_register_list_destructors_ex(php_free_xml_doc, NULL, "domdocument", module_number); - /* Freeing the document contains freeing the complete tree. - Therefore nodes, attributes etc. may not be freed seperately. - */ - le_domxmlnodep = zend_register_list_destructors_ex(php_free_xml_node, NULL, "domnode", module_number); - le_domxmlattrp = zend_register_list_destructors_ex(php_free_xml_node, NULL, "domattribute", module_number); - le_domxmlelementp = zend_register_list_destructors_ex(php_free_xml_node, NULL, "domelement", module_number); -#if defined(LIBXML_XPATH_ENABLED) - le_xpathctxp = zend_register_list_destructors_ex(php_free_xpath_context, NULL, "xpathcontext", module_number); - le_xpathobjectp = zend_register_list_destructors_ex(php_free_xpath_object, NULL, "xpathobject", module_number); -#endif - -/* le_domxmlnsp = register_list_destructors(NULL, NULL); */ - - INIT_OVERLOADED_CLASS_ENTRY(ce, "DomNode", php_domxmlnode_class_functions, NULL, NULL, NULL); - domxmlnode_class_entry = zend_register_internal_class_ex(&ce, NULL, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "DomDocument", php_domxmldoc_class_functions, NULL, NULL, NULL); - domxmldoc_class_entry = zend_register_internal_class_ex(&ce, domxmlnode_class_entry, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "DomDocumentType", php_domxmldoctype_class_functions, NULL, NULL, NULL); - domxmldoctype_class_entry = zend_register_internal_class_ex(&ce, domxmlnode_class_entry, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "Dtd", php_domxmldtd_class_functions, NULL, NULL, NULL); - domxmldtd_class_entry = zend_register_internal_class_ex(&ce, domxmlnode_class_entry, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "DomElement", php_domxmlelement_class_functions, NULL, NULL, NULL); - domxmlelement_class_entry = zend_register_internal_class_ex(&ce, domxmlnode_class_entry, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "DomAttribute", php_domxmlattr_class_functions, NULL, NULL, NULL); - domxmlattr_class_entry = zend_register_internal_class_ex(&ce, domxmlnode_class_entry, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "DomCData", php_domxmlcdata_class_functions, NULL, NULL, NULL); - domxmlcdata_class_entry = zend_register_internal_class_ex(&ce, domxmlnode_class_entry, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "DomText", php_domxmltext_class_functions, NULL, NULL, NULL); - domxmltext_class_entry = zend_register_internal_class_ex(&ce, domxmlcdata_class_entry, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "DomComment", php_domxmlcomment_class_functions, NULL, NULL, NULL); - domxmlcomment_class_entry = zend_register_internal_class_ex(&ce, domxmlcdata_class_entry, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "DomProcessingInstruction", php_domxmlpi_class_functions, NULL, NULL, NULL); - domxmlpi_class_entry = zend_register_internal_class_ex(&ce, domxmlnode_class_entry, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "DomNotation", php_domxmlnotation_class_functions, NULL, NULL, NULL); - domxmlnotation_class_entry = zend_register_internal_class_ex(&ce, domxmlnode_class_entry, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "DomEntity", php_domxmlentity_class_functions, NULL, NULL, NULL); - domxmlentity_class_entry = zend_register_internal_class_ex(&ce, domxmlnode_class_entry, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "DomEntityReference", php_domxmlentityref_class_functions, NULL, NULL, NULL); - domxmlentityref_class_entry = zend_register_internal_class_ex(&ce, domxmlnode_class_entry, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "DomNamespace", php_domxmlns_class_functions, NULL, NULL, NULL); - domxmlns_class_entry = zend_register_internal_class_ex(&ce, NULL, NULL); - -#if defined(LIBXML_XPATH_ENABLED) - INIT_OVERLOADED_CLASS_ENTRY(ce, "XPathContext", php_xpathctx_class_functions, NULL, NULL, NULL); - xpathctx_class_entry = zend_register_internal_class_ex(&ce, NULL, NULL); - - INIT_OVERLOADED_CLASS_ENTRY(ce, "XPathObject", php_xpathobject_class_functions, NULL, NULL, NULL); - xpathobject_class_entry = zend_register_internal_class_ex(&ce, NULL, NULL); -#endif - - REGISTER_LONG_CONSTANT("XML_ELEMENT_NODE", XML_ELEMENT_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ATTRIBUTE_NODE", XML_ATTRIBUTE_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_TEXT_NODE", XML_TEXT_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_CDATA_SECTION_NODE", XML_CDATA_SECTION_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ENTITY_REF_NODE", XML_ENTITY_REF_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ENTITY_NODE", XML_ENTITY_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_PI_NODE", XML_PI_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_COMMENT_NODE", XML_COMMENT_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_DOCUMENT_NODE", XML_DOCUMENT_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_DOCUMENT_TYPE_NODE", XML_DOCUMENT_TYPE_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_DOCUMENT_FRAG_NODE", XML_DOCUMENT_FRAG_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_NOTATION_NODE", XML_NOTATION_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_HTML_DOCUMENT_NODE", XML_HTML_DOCUMENT_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_DTD_NODE", XML_DTD_NODE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ELEMENT_DECL_NODE", XML_ELEMENT_DECL, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ATTRIBUTE_DECL_NODE", XML_ATTRIBUTE_DECL, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ENTITY_DECL_NODE", XML_ENTITY_DECL, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_NAMESPACE_DECL_NODE", XML_NAMESPACE_DECL, CONST_CS | CONST_PERSISTENT); -#ifdef XML_GLOBAL_NAMESPACE - REGISTER_LONG_CONSTANT("XML_GLOBAL_NAMESPACE", XML_GLOBAL_NAMESPACE, CONST_CS | CONST_PERSISTENT); -#endif - REGISTER_LONG_CONSTANT("XML_LOCAL_NAMESPACE", XML_LOCAL_NAMESPACE, CONST_CS | CONST_PERSISTENT); - - REGISTER_LONG_CONSTANT("XML_ATTRIBUTE_CDATA", XML_ATTRIBUTE_CDATA, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ATTRIBUTE_ID", XML_ATTRIBUTE_ID, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ATTRIBUTE_IDREF", XML_ATTRIBUTE_IDREF, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ATTRIBUTE_IDREFS", XML_ATTRIBUTE_IDREFS, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ATTRIBUTE_ENTITY", XML_ATTRIBUTE_ENTITIES, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ATTRIBUTE_NMTOKEN", XML_ATTRIBUTE_NMTOKEN, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ATTRIBUTE_NMTOKENS", XML_ATTRIBUTE_NMTOKENS, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ATTRIBUTE_ENUMERATION", XML_ATTRIBUTE_ENUMERATION, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XML_ATTRIBUTE_NOTATION", XML_ATTRIBUTE_NOTATION, CONST_CS | CONST_PERSISTENT); - -#if defined(LIBXML_XPATH_ENABLED) - REGISTER_LONG_CONSTANT("XPATH_UNDEFINED", XPATH_UNDEFINED, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XPATH_NODESET", XPATH_NODESET, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XPATH_BOOLEAN", XPATH_BOOLEAN, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XPATH_NUMBER", XPATH_NUMBER, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XPATH_STRING", XPATH_STRING, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XPATH_POINT", XPATH_POINT, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XPATH_RANGE", XPATH_RANGE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XPATH_LOCATIONSET", XPATH_LOCATIONSET, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("XPATH_USERS", XPATH_USERS, CONST_CS | CONST_PERSISTENT); -#endif - - return SUCCESS; -} - -/* {{{ proto int domxml_test(int id) - Unity function for testing */ -PHP_FUNCTION(domxml_test) -{ - zval *id; - - if ((ZEND_NUM_ARGS() != 1) || getParameters(ht, 1, &id) == FAILURE) - WRONG_PARAM_COUNT; - - convert_to_long(id); - RETURN_LONG(id->value.lval); -} -/* }}} */ - -/* }}} */ - -PHP_MINFO_FUNCTION(domxml) -{ - /* don't know why that line was commented out in the previous version, so i left it (cmv) */ - php_info_print_table_start(); - php_info_print_table_row(2, "DOM/XML", "enabled"); - php_info_print_table_row(2, "libxml Version", LIBXML_DOTTED_VERSION ); -#if defined(LIBXML_XPATH_ENABLED) - php_info_print_table_row(2, "XPath Support", "enabled"); -#endif -#if defined(LIBXML_XPTR_ENABLED) - php_info_print_table_row(2, "XPointer Support", "enabled"); -#endif - php_info_print_table_end(); -} - -/* {{{ Methods of Class DomAttribute */ - -/* {{{ proto array domxml_attr_name() - Returns list of attribute names */ -PHP_FUNCTION(domxml_attr_name) -{ - zval *id; - xmlAttrPtr attrp; - - id = getThis(); - attrp = php_dom_get_object(id, le_domxmlattrp, 0); - - RETURN_STRING((char *) (attrp->name), 1); -} -/* }}} */ - -/* {{{ proto array domxml_attr_value() - Returns list of attribute names */ -PHP_FUNCTION(domxml_attr_value) -{ - zval *id; - xmlAttrPtr attrp; - - id = getThis(); - attrp = php_dom_get_object(id, le_domxmlattrp, 0); - - RETURN_STRING((char *) xmlNodeGetContent((xmlNodePtr) attrp), 1); -} -/* }}} */ - -/* {{{ proto array domxml_attr_specified() - Returns list of attribute names */ -PHP_FUNCTION(domxml_attr_specified) -{ - zval *id; - xmlAttrPtr attrp; - - id = getThis(); - attrp = php_dom_get_object(id, le_domxmlattrp, 0); - - RETURN_TRUE; -} -/* }}} */ -/* End of Methods DomAttr }}} */ - -/* {{{ Methods of Class DomProcessingInstruction */ - -/* {{{ proto array domxml_pi_target() - Returns target of pi */ -PHP_FUNCTION(domxml_pi_target) -{ - zval *id; - xmlNodePtr nodep; - - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlpip, 0); - - RETURN_STRING((char *)nodep->name, 1); -} -/* }}} */ - -/* {{{ proto array domxml_pi_data() - Returns data of pi */ -PHP_FUNCTION(domxml_pi_data) -{ - zval *id; - xmlNodePtr nodep; - - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlpip, 0); - - RETURN_STRING(xmlNodeGetContent(nodep), 1); -} -/* }}} */ -/* End of Methods of DomProcessingInstruction }}} */ - -/* {{{ Methods of Class DomCData */ - -/* {{{ proto array domxml_cdata_length() - Returns list of attribute names */ -PHP_FUNCTION(domxml_cdata_length) -{ - zval *id; - xmlNodePtr nodep; - - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlcdatap, 0); - - RETURN_LONG(1); -} -/* }}} */ -/* End of Methods DomCDdata }}} */ - -/* {{{ Methods of Class DomNode */ - -/* {{{ proto object domxml_node(string name) - Creates node */ -PHP_FUNCTION(domxml_node) -{ - zval *arg, *rv; - xmlNode *node; - int ret; - - if (ZEND_NUM_ARGS() != 1 || getParameters(ht, 1, &arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(arg); - - node = xmlNewNode(NULL, arg->value.str.val); - if (!node) { - RETURN_FALSE; - } - rv = php_domobject_new(node, &ret); - if (!rv) { - RETURN_FALSE; - } - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_node_name() - Returns name of node */ -PHP_FUNCTION(domxml_node_name) -{ - zval *id; - xmlNode *n; - const char *str = NULL; - - id = getThis(); - n = php_dom_get_object(id, le_domxmlnodep, 0); - - switch (n->type) - { - case XML_ELEMENT_NODE: - str = n->name; - break; - case XML_TEXT_NODE: - str = "#text"; - break; - case XML_CDATA_SECTION_NODE: - str = "#cdata-section"; - break; - case XML_ENTITY_REF_NODE: - str = n->name; - break; - case XML_ENTITY_NODE: - str = NULL; - break; - case XML_PI_NODE: - str = n->name; - break; - case XML_COMMENT_NODE: - str = "#comment"; - break; - case XML_DOCUMENT_FRAG_NODE: - str = "#document-fragment"; - break; - default: - str = NULL; - break; - } - RETURN_STRING((char *) str, 1); -} -/* }}} */ - -/* {{{ proto object domxml_node_value() - Returns name of value */ -PHP_FUNCTION(domxml_node_value) -{ - zval *id; - xmlNode *n; - char *str = NULL; - - id = getThis(); - n = php_dom_get_object(id, le_domxmlnodep, 0); - - if (!n) { - RETURN_FALSE; - } - switch (n->type) - { - case XML_TEXT_NODE: - case XML_COMMENT_NODE: - case XML_CDATA_SECTION_NODE: - case XML_PI_NODE: - str = n->content; - break; - default: - str = NULL; - break; - } - RETURN_STRING(str, 1); -} -/* }}} */ - -PHP_FUNCTION(domxml_node_type) -{ - zval *id; - xmlNode *n; - - id = getThis(); - n = php_dom_get_object(id, le_domxmlnodep, 0); - - if (!n) { - RETURN_FALSE; - } - RETURN_LONG(n->type); -} -/* }}} */ - -/* {{{ proto object domxml_node_first_child() - Returns first child from list of children */ -PHP_FUNCTION(domxml_node_first_child) -{ - zval *id, *rv; - xmlNode *nodep, *first; - int ret; - - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlnodep, 0); - - first = nodep->children; - if (!first) { - RETURN_FALSE; - } - - rv = php_domobject_new(first, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_node_last_child() - Returns last child from list of children */ -PHP_FUNCTION(domxml_node_last_child) -{ - zval *id, *rv; - xmlNode *nodep, *last; - int ret; - - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlnodep, 0); - - last = nodep->last; - if (!last) { - RETURN_FALSE; - } - - rv = php_domobject_new(last, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_node_next_sibling() - Returns next child from list of children */ -PHP_FUNCTION(domxml_node_next_sibling) -{ - zval *id, *rv; - xmlNode *nodep, *first; - int ret; - - id = getThis(); - if(NULL == (nodep = php_dom_get_object(id, le_domxmlnodep, 0))) - RETURN_FALSE; - - first = nodep->next; - if (!first) { - RETURN_FALSE; - } - - rv = php_domobject_new(first, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_node_previous_sibling() - Returns previous child from list of children */ -PHP_FUNCTION(domxml_node_previous_sibling) -{ - zval *id, *rv; - xmlNode *nodep, *first; - int ret; - - id = getThis(); - if(NULL == (nodep = php_dom_get_object(id, le_domxmlnodep, 0))) - RETURN_FALSE; - - first = nodep->prev; - if (!first) { - RETURN_FALSE; - } - - rv = php_domobject_new(first, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_node_owner_document() - Returns document this node belongs to */ -PHP_FUNCTION(domxml_node_owner_document) -{ - zval *id, *rv; - xmlNode *nodep; - xmlDocPtr docp; - int ret; - - id = getThis(); - if(NULL == (nodep = php_dom_get_object(id, le_domxmlnodep, 0))) - RETURN_FALSE; - - docp = nodep->doc; - if (!docp) { - RETURN_FALSE; - } - - rv = php_domobject_new((xmlNodePtr) docp, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_node_has_child_nodes() - Returns true if node has children */ -PHP_FUNCTION(domxml_node_has_child_nodes) -{ - zval *id; - xmlNode *nodep; - - id = getThis(); - if(NULL == (nodep = php_dom_get_object(id, le_domxmlnodep, 0))) - RETURN_FALSE; - - if (nodep->children) { - RETURN_TRUE; - } else { - RETURN_FALSE; - } -} -/* }}} */ - -/* {{{ proto object domxml_node_has_attributes() - Returns true if node has attributes */ -PHP_FUNCTION(domxml_node_has_attributes) -{ - zval *id; - xmlNode *nodep; - - id = getThis(); - if(NULL == (nodep = php_dom_get_object(id, le_domxmlnodep, 0))) - RETURN_FALSE; - - if(nodep->type != XML_ELEMENT_NODE) - RETURN_FALSE; - - if (nodep->properties) { - RETURN_TRUE; - } else { - RETURN_FALSE; - } -} -/* }}} */ - -/* {{{ proto object domxml_node_prefix() - Returns namespace prefix of node */ -PHP_FUNCTION(domxml_node_prefix) -{ - zval *id; - xmlNode *nodep; - xmlNsPtr ns; - - id = getThis(); - if(NULL == (nodep = php_dom_get_object(id, le_domxmlnodep, 0))) - RETURN_FALSE; - - ns = nodep->ns; - if (!ns) { - RETURN_EMPTY_STRING(); - } - - if(ns->prefix) { - RETURN_STRING((char *) (ns->prefix), 1); - } else { - RETURN_EMPTY_STRING(); - } -} -/* }}} */ - -/* {{{ proto object domxml_node_parent() - Returns parent of node */ -PHP_FUNCTION(domxml_node_parent) -{ - zval *id, *rv; - xmlNode *nodep, *last; - int ret; - - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlnodep, 0); - - last = nodep->parent; - if (!last) { - RETURN_FALSE; - } - rv = php_domobject_new(last, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto array domxml_node_children() - Returns list of children nodes */ -PHP_FUNCTION(domxml_node_children) -{ - zval *id; - xmlNode *nodep, *last; - int ret; - - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlnodep, le_domxmldocp); - - /* Even if the nodep is a XML_DOCUMENT_NODE the type is at the - same position. - */ - if(nodep->type == XML_DOCUMENT_NODE) - last = ((xmlDoc *) nodep)->children; - else - last = nodep->children; - if (!last) { - RETURN_FALSE; - } - - if (array_init(return_value) == FAILURE) { - RETURN_FALSE; - } - - while(last) { - zval *child; - child = php_domobject_new(last, &ret); - add_next_index_zval(return_value, child); - last = last->next; - } -} -/* }}} */ - -/* {{{ proto object domxml_node_unlink_node() - Deletes node */ -PHP_FUNCTION(domxml_node_unlink_node) -{ - zval *id; - xmlNode *nodep; - - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlnodep, 0); - - xmlUnlinkNode(nodep); - xmlFreeNode(nodep); - zval_dtor(id); /* This is not enough because the children won't be deleted */ - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto object domxml_node_add_child(int domnode) - Adds existing node to parent node */ -PHP_FUNCTION(domxml_node_add_child) -{ - zval *id, *rv, *node; - xmlNodePtr child, nodep; - int ret; - - if (ZEND_NUM_ARGS() != 1 || getParameters(ht, 1, &node) == FAILURE) { - WRONG_PARAM_COUNT; - } - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlnodep, 0); - child = php_dom_get_object(node, le_domxmlnodep, 0); - - if (!child || !nodep) { - RETURN_FALSE; - } - - child = xmlAddChild(nodep, child); - rv = php_domobject_new(child, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_node_append_child(int domnode) - Adds node to list of children */ -PHP_FUNCTION(domxml_node_append_child) -{ - zval *id, *rv, *node; - xmlNodePtr child, nodep; - int ret; - - if (ZEND_NUM_ARGS() != 1 || getParameters(ht, 1, &node) == FAILURE) { - WRONG_PARAM_COUNT; - } - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlnodep, 0); - child = php_dom_get_object(node, le_domxmlnodep, 0); - - if (!child || !nodep) { - RETURN_FALSE; - } - - child = xmlAddSibling(nodep, child); - rv = php_domobject_new(child, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_node_insert_before(int newnode, int refnode) - Adds node in list of nodes before given node */ -PHP_FUNCTION(domxml_node_insert_before) -{ - zval *id, *rv, *node, *ref; - xmlNodePtr child, nodep, refp; - int ret; - - if (ZEND_NUM_ARGS() != 2 || getParameters(ht, 2, &node, &ref) == FAILURE) { - WRONG_PARAM_COUNT; - } - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlnodep, 0); - child = php_dom_get_object(node, le_domxmlnodep, 0); - refp = php_dom_get_object(ref, le_domxmlnodep, 0); - - if (!child || !nodep || !refp) { - RETURN_FALSE; - } - - child = xmlAddPrevSibling(refp, child); - rv = php_domobject_new(child, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto bool domxml_node_set_name(string name) - Sets name of a node */ -PHP_FUNCTION(domxml_node_set_name) -{ - zval *id, *name; - xmlNode *nodep; - - if ((ZEND_NUM_ARGS() != 1) || getParameters(ht, 1, &name) == FAILURE) { - WRONG_PARAM_COUNT; - } - - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlnodep, 0); - convert_to_string(name); - - if(name->value.str.len) - xmlNodeSetName(nodep, name->value.str.val); - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto array domxml_node_attributes() - Returns list of attributes of node */ -PHP_FUNCTION(domxml_node_attributes) -{ - zval *id, *attrs; - xmlNode *nodep; -#ifdef oldstyle_for_libxml_1_8_7 - xmlAttr *attr; -#endif - - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlnodep, 0); - - if(node_attributes(&attrs, nodep) < 0) - RETURN_FALSE; - - *return_value = *attrs; - FREE_ZVAL(attrs); - -#ifdef oldstyle_for_libxml_1_8_7 - attr = nodep->properties; - if (!attr) { - RETURN_FALSE; - } - - if (array_init(return_value) == FAILURE) { - RETURN_FALSE; - } - - while(attr) { - add_assoc_string(return_value, (char *) attr->name, xmlNodeGetContent(attr), 1); - attr = attr->next; - } -#endif -} -/* }}} */ - -/* {{{ proto object domxml_new_child(string name, string content) - Adds child node to parent node */ -PHP_FUNCTION(domxml_node_new_child) -{ - zval *id, *name, *content, *rv; - xmlNodePtr child, nodep; - int ret; - - if (ZEND_NUM_ARGS() != 2 || getParameters(ht, 2, &name, &content) == FAILURE) { - WRONG_PARAM_COUNT; - } - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlnodep, 0); - - convert_to_string(name); - convert_to_string(content); - - if(content->value.str.len) - child = xmlNewChild(nodep, NULL, name->value.str.val, content->value.str.val); - else - child = xmlNewChild(nodep, NULL, name->value.str.val, NULL); - if (!child) { - RETURN_FALSE; - } - rv = php_domobject_new(child, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto bool domxml_node_set_content(string content) - Set content of a node */ -PHP_FUNCTION(domxml_node_set_content) -{ - zval *id, *content; - xmlNode *nodep; - - if ((ZEND_NUM_ARGS() != 1) || getParameters(ht, 1, &content) == FAILURE) { - WRONG_PARAM_COUNT; - } - - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlnodep, 0); - convert_to_string(content); - - if(content->value.str.len) - xmlNodeSetContent(nodep, content->value.str.val); - - /* FIXME: Actually the property 'content' of the node has to be updated - as well. Since 'content' should disappear sooner or later and being - replaces by a function 'content()' I skip this for now - */ - RETURN_TRUE; -} - -/* End of Methods DomNode }}} */ - -/* {{{ Methods of Class DomNotation */ - -/* {{{ proto string domxml_notation_public_id() - Returns public id of notation node */ -PHP_FUNCTION(domxml_notation_public_id) -{ - zval *id; - xmlNotationPtr nodep; - - id = getThis(); - nodep = (xmlNotationPtr) php_dom_get_object(id, le_domxmlnotationp, 0); - - RETURN_STRING((char *) (nodep->PublicID), 1); -} -/* }}} */ - -/* {{{ proto string domxml_notation_system_id() - Returns system id of notation node */ -PHP_FUNCTION(domxml_notation_system_id) -{ - zval *id; - xmlNotationPtr nodep; - - id = getThis(); - nodep = (xmlNotationPtr) php_dom_get_object(id, le_domxmlnotationp, 0); - - RETURN_STRING((char *) (nodep->SystemID), 1); -} -/* }}} */ - -/* End of Methods DomNotation }}} */ - -/* {{{ Methods of Class DomElement */ - -/* {{{ proto object domxml_element(string name) - Constructor of DomElement */ -PHP_FUNCTION(domxml_element) -{ - zval *arg, *rv; - xmlNode *node; - int ret; - - if (ZEND_NUM_ARGS() != 1 || getParameters(ht, 1, &arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(arg); - - node = xmlNewNode(NULL, arg->value.str.val); - if (!node) { - RETURN_FALSE; - } - rv = php_domobject_new(node, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto string domxml_elem_tagname() - Returns tag name of element node */ -PHP_FUNCTION(domxml_elem_tagname) -{ - zval *id; - xmlNode *nodep; - - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlelementp, 0); - - RETURN_STRING((char *) (nodep->name), 1); -} -/* }}} */ - -/* {{{ proto string domxml_elem_get_attribute(string attrname) - Returns value of given attribute */ -PHP_FUNCTION(domxml_elem_get_attribute) -{ - zval *id, *arg1; - xmlNode *nodep; - char *value; - - if ((ZEND_NUM_ARGS() == 1) && getParameters(ht, 1, &arg1) == SUCCESS) { - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlelementp, 0); - } else { - WRONG_PARAM_COUNT; - } - - convert_to_string(arg1); - - value = xmlGetProp(nodep, arg1->value.str.val); - if (!value) { - RETURN_EMPTY_STRING(); - } else { - RETURN_STRING(value, 1); - } -} -/* }}} */ - -/* {{{ proto bool domxml_elem_set_attribute(string attrname, string value) - Sets value of given attribute */ -PHP_FUNCTION(domxml_elem_set_attribute) -{ - zval *id, *rv, *arg1, *arg2; - xmlNode *nodep; - xmlAttr *attr; - int ret; - - if ((ZEND_NUM_ARGS() == 2) && getParameters(ht, 2, &arg1, &arg2) == SUCCESS) { - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlelementp, 0); - } else { - WRONG_PARAM_COUNT; - } - - convert_to_string(arg1); - convert_to_string(arg2); - - attr = xmlSetProp(nodep, arg1->value.str.val, arg2->value.str.val); - if (!attr) { - php_error(E_WARNING, "No such attribute '%s'", arg1->value.str.val); - RETURN_FALSE; - } - rv = php_domobject_new((xmlNodePtr) attr, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto string domxml_elem_remove_attribute(string attrname) - Remove given attribute */ -PHP_FUNCTION(domxml_elem_remove_attribute) -{ - zval *id, *arg1; - xmlNode *nodep; - - if ((ZEND_NUM_ARGS() == 1) && getParameters(ht, 1, &arg1) == SUCCESS) { - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlelementp, 0); - } else { - WRONG_PARAM_COUNT; - } - - convert_to_string(arg1); - - /* FIXME: not implemented */ - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto string domxml_elem_get_attribute_node(string attrname) - Returns value of given attribute */ -PHP_FUNCTION(domxml_elem_get_attribute_node) -{ - zval *id, *arg1; - xmlNode *nodep; - - if ((ZEND_NUM_ARGS() == 1) && getParameters(ht, 1, &arg1) == SUCCESS) { - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlelementp, 0); - } else { - WRONG_PARAM_COUNT; - } - - convert_to_string(arg1); - - /* FIXME: not implemented */ - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto bool domxml_elem_set_attribute_node(int attr) - Sets value of given attribute */ -PHP_FUNCTION(domxml_elem_set_attribute_node) -{ - zval *id, *arg1; - xmlNode *nodep; - xmlAttr *attrp; - - if ((ZEND_NUM_ARGS() == 1) && getParameters(ht, 1, &arg1) == SUCCESS) { - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlelementp, 0); - attrp = php_dom_get_object(arg1, le_domxmlattrp, 0); - } else { - WRONG_PARAM_COUNT; - } - - /* FIXME: not implemented */ - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto string domxml_elem_get_element_by_tagname(string tagname) - Returns element for given attribute */ -PHP_FUNCTION(domxml_elem_get_element_by_tagname) -{ - zval *id, *arg1; - xmlNode *nodep; - - if ((ZEND_NUM_ARGS() == 1) && getParameters(ht, 1, &arg1) == SUCCESS) { - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlelementp, 0); - } else { - WRONG_PARAM_COUNT; - } - - convert_to_string(arg1); - - /* FIXME: not implemented */ - -} -/* }}} */ -/* End of Methods DomElement }}} */ - -/* {{{ Methods of Class DomDocumentType */ - -/* {{{ proto array domxml_doctype_name() - Return name of DocumentType */ -PHP_FUNCTION(domxml_doctype_name) -{ - zval *id; - xmlNodePtr attrp; - - id = getThis(); - attrp = php_dom_get_object(id, le_domxmldoctypep, 0); - - RETURN_STRING((char *) (attrp->name), 1); -} -/* }}} */ - -/* End of Methods DomElementType }}} */ - -/* {{{ Methods of Class DomDocument */ - -/* {{{ proto object domxml_doc_doctype() - Returns DomDocumentType */ -PHP_FUNCTION(domxml_doc_doctype) -{ - zval *id, *rv; - xmlDtdPtr dtd; - xmlDocPtr docp; - int ret; - - id = getThis(); - if(NULL == (docp = php_dom_get_object(id, le_domxmldocp, 0))) { - RETURN_FALSE; - } - - dtd = xmlGetIntSubset(docp); - rv = php_domobject_new((xmlNodePtr) dtd, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_doc_implementation() - Returns DomeDOMImplementation */ -PHP_FUNCTION(domxml_doc_implementation) -{ - zval *id; - xmlDocPtr docp; - - id = getThis(); - if(NULL == (docp = php_dom_get_object(id, le_domxmldocp, 0))) { - RETURN_FALSE; - } - -/* rv = php_domobject_new(node, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; -*/ -} -/* }}} */ - -/* {{{ proto array domxml_doc_document_element() - Returns root node of document */ -PHP_FUNCTION(domxml_doc_document_element) -{ - zval *id; - xmlDoc *docp; - xmlNode *node; - int ret; - - id = getThis(); - docp = php_dom_get_object(id, le_domxmldocp, 0); - - node = docp->children; - if (!node) { - RETURN_FALSE; - } - - while(node) { - if(node->type == XML_ELEMENT_NODE) { - zval *rv; - rv = php_domobject_new(node, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); - return; - } - node = node->next; - } -} -/* }}} */ - -/* {{{ proto object domxml_doc_create_element(string name) - Creates new element node */ -PHP_FUNCTION(domxml_doc_create_element) -{ - zval *arg, *id, *rv; - xmlNode *node; - xmlDocPtr docp; - int ret; - - id = getThis(); - if(NULL == (docp = php_dom_get_object(id, le_domxmldocp, 0))) { - RETURN_FALSE; - } - - if (ZEND_NUM_ARGS() != 1 || getParameters(ht, 1, &arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(arg); - - node = xmlNewNode(NULL, arg->value.str.val); - if (!node) { - RETURN_FALSE; - } - node->doc = docp; - - rv = php_domobject_new(node, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_doc_create_text_node(string name) - Creates new text node */ -PHP_FUNCTION(domxml_doc_create_text_node) -{ - zval *arg, *id, *rv; - xmlNode *node; - xmlDocPtr docp; - int ret; - - id = getThis(); - if(NULL == (docp = php_dom_get_object(id, le_domxmldocp, 0))) { - RETURN_FALSE; - } - - if (ZEND_NUM_ARGS() != 1 || getParameters(ht, 1, &arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(arg); - - node = xmlNewText(arg->value.str.val); - if (!node) { - RETURN_FALSE; - } - node->doc = docp; - - rv = php_domobject_new(node, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_doc_create_comment(string name) - Creates new comment node */ -PHP_FUNCTION(domxml_doc_create_comment) -{ - zval *arg, *id, *rv; - xmlNode *node; - xmlDocPtr docp; - int ret; - - id = getThis(); - if(NULL == (docp = php_dom_get_object(id, le_domxmldocp, 0))) { - RETURN_FALSE; - } - - if (ZEND_NUM_ARGS() != 1 || getParameters(ht, 1, &arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(arg); - - node = xmlNewComment(arg->value.str.val); - if (!node) { - RETURN_FALSE; - } - node->doc = docp; - - rv = php_domobject_new(node, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_doc_create_attribute(string name) - Creates new attribute node */ -PHP_FUNCTION(domxml_doc_create_attribute) -{ - zval *arg1, *arg2, *id, *rv; - xmlAttrPtr node; - xmlDocPtr docp; - int ret; - - id = getThis(); - if(NULL == (docp = php_dom_get_object(id, le_domxmldocp, 0))) { - RETURN_FALSE; - } - - if (ZEND_NUM_ARGS() != 2 || getParameters(ht, 2, &arg1, &arg2) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(arg1); - convert_to_string(arg2); - - node = xmlNewProp(NULL, Z_STRVAL_P(arg1), Z_STRVAL_P(arg2)); - if (!node) { - RETURN_FALSE; - } - node->doc = docp; - - rv = php_domobject_new((xmlNodePtr) node, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_doc_create_processing_instruction(string name) - Creates new processing_instruction node */ -PHP_FUNCTION(domxml_doc_create_processing_instruction) -{ - zval *arg1, *arg2, *id, *rv; - xmlNode *node; - xmlDocPtr docp; - int ret; - - id = getThis(); - if(NULL == (docp = php_dom_get_object(id, le_domxmldocp, 0))) { - RETURN_FALSE; - } - - if (ZEND_NUM_ARGS() != 2 || getParameters(ht, 2, &arg1, &arg2) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(arg1); - convert_to_string(arg2); - - node = xmlNewPI(Z_STRVAL_P(arg1), Z_STRVAL_P(arg2)); - if (!node) { - RETURN_FALSE; - } - node->doc = docp; - - rv = php_domobject_new(node, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_doc_imported_node(int node, bool recursive) - Creates new element node */ -PHP_FUNCTION(domxml_doc_imported_node) -{ - zval *arg1, *arg2, *id, *rv; - xmlNodePtr node, srcnode; - xmlDocPtr docp; - int ret; - - id = getThis(); - if(NULL == (docp = php_dom_get_object(id, le_domxmldocp, 0))) { - RETURN_FALSE; - } - - if (ZEND_NUM_ARGS() != 2 || getParameters(ht, 2, &arg1, &arg2) == FAILURE) { - WRONG_PARAM_COUNT; - } - srcnode = php_dom_get_object(arg1, le_domxmlnodep, 0); - if(!srcnode) - RETURN_FALSE; - - convert_to_long(arg2); - - node = xmlCopyNode(srcnode, arg2->value.lval); - if (!node) { - RETURN_FALSE; - } - node->doc = docp; /* Not enough because other nodes in the tree are not set */ - - rv = php_domobject_new(node, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_dtd([int doc_handle]) - Returns DTD of document */ -PHP_FUNCTION(domxml_intdtd) -{ - zval *id, *rv; - xmlDoc *docp; - xmlDtd *dtd; - int ret; - - id = getThis(); - docp = php_dom_get_object(id, le_domxmldocp, 0); - - dtd = xmlGetIntSubset(docp); - if (!dtd) { - RETURN_FALSE; - } - rv = php_domobject_new((xmlNodePtr) dtd, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto string domxml_dumpmem([int doc_handle]) - Dumps document into string */ -PHP_FUNCTION(domxml_dumpmem) -{ - zval *id; - xmlDoc *docp; - xmlChar *mem; - int size; - - id = getThis(); - if(NULL == (docp = php_dom_get_object(id, le_domxmldocp, 0))) { - RETURN_FALSE; - } - - xmlDocDumpMemory(docp, &mem, &size); - if (!size) { - RETURN_FALSE; - } - RETURN_STRINGL(mem, size, 1); -} -/* }}} */ - -/* {{{ proto object xmldoc(string xmldoc) - Creates DOM object of XML document */ -PHP_FUNCTION(xmldoc) -{ - zval **argv[2], *rv; - int argc = ZEND_NUM_ARGS(); - xmlDoc *docp; - int ret; - - if(argc > 2) - WRONG_PARAM_COUNT; - if(zend_get_parameters_array_ex(argc, argv) == FAILURE) - WRONG_PARAM_COUNT; - - convert_to_string_ex(argv[0]); - if(argc == 2) { - convert_to_boolean_ex(argv[1]); - if(Z_BVAL_PP(argv[1])) { - docp = xmlParseFile(Z_STRVAL_PP(argv[0])); - } else { - docp = xmlParseDoc((*argv[0])->value.str.val); - } - } else { - docp = xmlParseDoc((*argv[0])->value.str.val); - } - if (!docp) - RETURN_FALSE; - rv = php_domobject_new((xmlNodePtr) docp, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object xmldocfile(string filename) - Creates DOM object of XML document in file*/ -PHP_FUNCTION(xmldocfile) -{ - zval *arg; - xmlDoc *docp; - int ret; - - if (ZEND_NUM_ARGS() != 1 || getParameters(ht, 1, &arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(arg); - - docp = xmlParseFile(arg->value.str.val); - if (!docp) { - RETURN_FALSE; - } - ret = zend_list_insert(docp, le_domxmldocp); - - /* construct an object with some methods */ - object_init_ex(return_value, domxmldoc_class_entry); - add_property_resource(return_value, "doc", ret); - if(docp->name) - add_property_stringl(return_value, "name", (char *) docp->name, strlen(docp->name), 1); - if(docp->URL) - add_property_stringl(return_value, "url", (char *) docp->URL, strlen(docp->URL), 1); - add_property_stringl(return_value, "version", (char *) docp->version, strlen(docp->version), 1); - if(docp->encoding) - add_property_stringl(return_value, "encoding", (char *) docp->encoding, strlen(docp->encoding), 1); - add_property_long(return_value, "standalone", docp->standalone); - add_property_long(return_value, "type", docp->type); - add_property_long(return_value, "compression", docp->compression); - add_property_long(return_value, "charset", docp->charset); - zend_list_addref(ret); -} -/* }}} */ - -/* {{{ proto bool domxml_node_text_concat(string content) - Add string tocontent of a node */ -PHP_FUNCTION(domxml_node_text_concat) -{ - zval *id, *content; - xmlNode *nodep; - - if ((ZEND_NUM_ARGS() != 1) || getParameters(ht, 1, &content) == FAILURE) { - WRONG_PARAM_COUNT; - } - - id = getThis(); - nodep = php_dom_get_object(id, le_domxmlnodep, 0); - convert_to_string(content); - - if(content->value.str.len) - xmlTextConcat(nodep, content->value.str.val, content->value.str.len); - - RETURN_TRUE; -} -/* }}} */ - -/* {{{ proto object domxml_add_root(string name) - Adds root node to document */ -PHP_FUNCTION(domxml_add_root) -{ - zval *id, *name, *rv; - xmlDoc *docp; - xmlNode *nodep; - int ret; - - if (ZEND_NUM_ARGS() != 1 || getParameters(ht, 1, &name)==FAILURE) { - WRONG_PARAM_COUNT; - } - - id = getThis(); - docp = php_dom_get_object(id, le_domxmldocp, 0); - convert_to_string(name); - - nodep = xmlNewDocNode(docp, NULL, name->value.str.val, NULL); - if (!nodep) { - RETURN_FALSE; - } - - xmlDocSetRootElement(docp, nodep); - rv = php_domobject_new(nodep, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto object domxml_new_xmldoc(string version) - Creates new xmldoc */ -PHP_FUNCTION(domxml_new_xmldoc) -{ - zval *arg, *rv; - xmlDoc *docp; - int ret; - - if (ZEND_NUM_ARGS() != 1 || getParameters(ht, 1, &arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(arg); - - docp = xmlNewDoc(arg->value.str.val); - if (!docp) { - RETURN_FALSE; - } - rv = php_domobject_new((xmlNodePtr) docp, &ret); - if (!rv) { - RETURN_FALSE; - } - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -#ifdef newcode -/* {{{ proto int node_namespace([int node]) - Returns list of namespaces */ -static int node_namespace(zval **attributes, xmlNode *nodep) -{ - xmlNs *ns; - - /* Get the children of the current node */ - ns = nodep->ns; - if (!ns) { - return -1; - } - - /* create an php array for the children */ - MAKE_STD_ZVAL(*attributes); - if (array_init(*attributes) == FAILURE) { - return -1; - } - - while(ns) { - zval *pattr; - int ret; - - pattr = php_domobject_new((xmlNodePtr) ns, &ret); - SEPARATE_ZVAL(&pattr); -/* if(!ret) { */ - if(ns->href) - add_property_stringl(pattr, "href", (char *) ns->href, strlen(ns->href), 1); - if(ns->prefix) - add_property_stringl(pattr, "prefix", (char *) ns->prefix, strlen(ns->prefix), 1); - add_property_long(pattr, "type", ns->type); -/* } */ - zend_hash_next_index_insert((*attributes)->value.ht, &pattr, sizeof(zval *), NULL); - ns = ns->next; - } - return 0; -} -#endif - -/* {{{ proto int node_attributes(zval **attributes, int node) - Returns list of children nodes */ -static int node_attributes(zval **attributes, xmlNode *nodep) -{ - xmlAttr *attr; - int count = 0; - - /* Get the children of the current node */ - if(nodep->type != XML_ELEMENT_NODE) - return -1; - attr = nodep->properties; - if (!attr) - return -1; - - /* create an php array for the children */ - MAKE_STD_ZVAL(*attributes); - array_init(*attributes); - - while(attr) { - zval *pattr; - int ret; - - pattr = php_domobject_new((xmlNodePtr) attr, &ret); -/* if(0 <= (n = node_children(&children, attr->children))) { - zend_hash_update(pattr->value.obj.properties, "children", sizeof("children"), (void *) &children, sizeof(zval *), NULL); - } -*/ add_property_string(pattr, "name", (char *) (attr->name), 1); - add_property_string(pattr, "value", xmlNodeGetContent((xmlNodePtr) attr), 1); - zend_hash_next_index_insert((*attributes)->value.ht, &pattr, sizeof(zval *), NULL); - attr = attr->next; - count++; - } - return count; -} - -/* {{{ proto int node_children([int node]) - Returns list of children nodes */ -static int node_children(zval **children, xmlNode *nodep) -{ - zval *mchildren, *attributes; - /* zval *namespace; */ - xmlNode *last; - int count = 0; - - /* Get the children of the current node */ - last = nodep; - if (!last) { - return -1; - } - - /* create an php array for the children */ - MAKE_STD_ZVAL(*children); - array_init(*children); - - while(last) { - zval *child; - int ret; - - child = php_domobject_new(last, &ret); - zend_hash_next_index_insert((*children)->value.ht, &child, sizeof(zval *), NULL); - - /* Get the namespace of the current node and add it as a property */ -/* if(!node_namespace(&namespace, last)) - zend_hash_update(child->value.obj.properties, "namespace", sizeof("namespace"), (void *) &namespace, sizeof(zval *), NULL); -*/ - - /* Get the attributes of the current node and add it as a property */ - if(node_attributes(&attributes, last) >= 0) - zend_hash_update(child->value.obj.properties, "attributes", sizeof("attributes"), (void *) &attributes, sizeof(zval *), NULL); - - /* Get recursively the children of the current node and add it as a property */ - if(node_children(&mchildren, last->children) >= 0) - zend_hash_update(child->value.obj.properties, "children", sizeof("children"), (void *) &mchildren, sizeof(zval *), NULL); - count++; - last = last->next; - } - return count; -} -/* }}} */ - -/* {{{ proto object xmltree(string xmltree) - Create a tree of PHP objects from an XML document */ -PHP_FUNCTION(xmltree) -{ - zval *arg, *children, *rv; - xmlDoc *docp; - xmlNode *root; - int ret; - - if (ZEND_NUM_ARGS() != 1 || getParameters(ht, 1, &arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(arg); - - /* Create a new xml document */ - docp = xmlParseDoc(arg->value.str.val); - if (!docp) { - RETURN_FALSE; - } - - /* get the root and add as a property to the document */ - root = docp->children; - if (!root) { - xmlFreeDoc(docp); - RETURN_FALSE; - } - - rv = php_domobject_new((xmlNodePtr) docp, &ret); - if (!rv) { - RETURN_FALSE; - } - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); - - /* The root itself maybe an array. Though you may not have two Elements - as root, you may have a comment, pi and and element as root. - Thanks to Paul DuBois for pointing me at this. - */ - if (node_children(&children, root) >= 0) { - zend_hash_update(return_value->value.obj.properties, "children", - sizeof("children"), (void *) &children, sizeof(zval *), NULL); - } -/* xmlFreeDoc(docp); */ -} -/* }}} */ - -#if defined(LIBXML_XPATH_ENABLED) -/* {{{ proto bool xpath_init(void) - Initializing XPath environment */ -PHP_FUNCTION(xpath_init) -{ - xmlXPathInit(); - RETURN_TRUE; -} -/* }}} */ - -static void php_xpathptr_new_context(INTERNAL_FUNCTION_PARAMETERS, int mode) -{ - zval *id, *rv; - xmlXPathContextPtr ctx; - xmlDocPtr docp; - int ret; - - id = getThis(); - docp = php_dom_get_object(id, le_domxmldocp, 0); - -#if defined(LIBXML_XPTR_ENABLED) - if(mode == PHP_XPTR) - ctx = xmlXPtrNewContext(docp, NULL, NULL); - else -#endif - ctx = xmlXPathNewContext(docp); - if (!ctx) { - RETURN_FALSE; - } - rv = php_xpathcontext_new(ctx, &ret); - SEPARATE_ZVAL(&rv); - *return_value = *rv; - FREE_ZVAL(rv); -} -/* }}} */ - -/* {{{ proto string xpath_new_context([int doc_handle]) - Create new XPath context */ -PHP_FUNCTION(xpath_new_context) { - php_xpathptr_new_context(INTERNAL_FUNCTION_PARAM_PASSTHRU, PHP_XPATH); -} -/* }}} */ - -/* {{{ proto string xptr_new_context([int doc_handle]) - Create new XPath context */ -PHP_FUNCTION(xptr_new_context) { - php_xpathptr_new_context(INTERNAL_FUNCTION_PARAM_PASSTHRU, PHP_XPTR); -} -/* }}} */ - -static void php_xpathptr_eval(INTERNAL_FUNCTION_PARAMETERS, int mode, int expr) -{ - zval *id, *str, *rv; - xmlXPathContextPtr ctxp; - xmlXPathObjectPtr xpathobjp; - int ret; - - if (ZEND_NUM_ARGS() != 1 || getParameters(ht, 1, &str) == FAILURE) { - WRONG_PARAM_COUNT; - } - - id = getThis(); - ctxp = php_xpath_get_context(id, le_xpathctxp, 0); - convert_to_string(str); - -#if defined(LIBXML_XPTR_ENABLED) - if(mode == PHP_XPTR) { - xpathobjp = xmlXPtrEval(BAD_CAST str->value.str.val, ctxp); - } else{ -#endif - if(expr) - xpathobjp = xmlXPathEvalExpression(str->value.str.val, ctxp); - else - xpathobjp = xmlXPathEval(str->value.str.val, ctxp); -#if defined(LIBXML_XPTR_ENABLED) - } -#endif - - if (!xpathobjp) { - RETURN_FALSE; - } - - rv = php_xpathobject_new(xpathobjp, &ret); - SEPARATE_ZVAL(&rv); - - add_property_long(rv, "type", xpathobjp->type); - switch(xpathobjp->type) { - case XPATH_UNDEFINED: - break; - case XPATH_NODESET: { - int i; - zval *arr; - xmlNodeSetPtr nodesetp; - - MAKE_STD_ZVAL(arr); - if (array_init(arr) == FAILURE) { - zval_dtor(rv); - RETURN_FALSE; - } - if(NULL == (nodesetp = xpathobjp->nodesetval)) { - zval_dtor(rv); - RETURN_FALSE; - } - - for(i = 0;i < nodesetp->nodeNr;i++) { - xmlNodePtr node = nodesetp->nodeTab[i]; - zval *child; - int retnode; - - /* construct a node object */ - child = php_domobject_new(node, &retnode); - zend_hash_next_index_insert(arr->value.ht, &child, sizeof(zval *), NULL); - } - zend_hash_update(rv->value.obj.properties, "nodeset", sizeof("nodeset"), (void *) &arr, sizeof(zval *), NULL); - break; - } - case XPATH_BOOLEAN: - add_property_bool(rv, "value", xpathobjp->boolval); - break; - case XPATH_NUMBER: - add_property_double(rv, "value", xpathobjp->floatval); - break; - case XPATH_STRING: - add_property_string(rv, "value", xpathobjp->stringval, 1); - break; - case XPATH_POINT: - break; - case XPATH_RANGE: - break; - case XPATH_LOCATIONSET: - break; - case XPATH_USERS: - break; - case XPATH_XSLT_TREE: - break; - } - *return_value = *rv; -} -/* }}} */ - -/* {{{ proto int xpath_eval([int xpathctx_handle,] string str) - Evaluate the XPath Location Path in the given string */ -PHP_FUNCTION(xpath_eval) { - php_xpathptr_eval(INTERNAL_FUNCTION_PARAM_PASSTHRU, PHP_XPATH, 0); -} -/* }}} */ - -/* {{{ proto int xpath_eval_expression([int xpathctx_handle,] string str) - Evaluate the XPath Location Path in the given string */ -PHP_FUNCTION(xpath_eval_expression) { - php_xpathptr_eval(INTERNAL_FUNCTION_PARAM_PASSTHRU, PHP_XPATH, 1); -} -/* }}} */ -#endif /* defined(LIBXML_XPATH_ENABLED) */ - -#if defined(LIBXML_XPTR_ENABLED) -/* {{{ proto int xptr_eval([int xpathctx_handle,] string str) - Evaluate the XPtr Location Path in the given string */ -PHP_FUNCTION(xptr_eval) { - php_xpathptr_eval(INTERNAL_FUNCTION_PARAM_PASSTHRU, PHP_XPTR, 0); -} -/* }}} */ -#endif /* LIBXML_XPTR_ENABLED */ - -/* {{{ proto string domxml_version() - Dumps document into string */ -PHP_FUNCTION(domxml_version) -{ - - RETURN_STRING(LIBXML_DOTTED_VERSION, 1); -} -/* }}} */ - -#endif /* HAVE_DOMXML */ -/* - * Local variables: - * tab-width: 4 - * c-basic-offset: 4 - * End: - */ |