[BACK]Return to xnode.C CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / classes

Diff for /parser3/src/classes/xnode.C between versions 1.2 and 1.78

version 1.2, 2001/09/26 15:43:59 version 1.78, 2007/08/20 08:56:46
Line 1 Line 1
 /** @file  /** @file
         Parser: @b dom parser class.          Parser: @b dom parser class.
   
         Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)          Copyright (c) 2001-2005 ArtLebedev Group (http://www.artlebedev.com)
         Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)          Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
   
         $Id$  
 */  */
 #include "classes.h"  #include "classes.h"
 #ifdef XML  #ifdef XML
   
   static const char * const IDENT_XNODE_C="$Date$";
   
   #include "pa_vmethod_frame.h"
   
   #include "pa_charset.h"
 #include "pa_request.h"  #include "pa_request.h"
 #include "pa_vxnode.h"  #include "pa_vxnode.h"
   #include "pa_vxdoc.h"
   #include "pa_vvoid.h"
   #include "pa_xml_exception.h"
   #include "pa_vbool.h"
   
 #include "xnode.h"  #include "xnode.h"
   #include "libxml/xpath.h"
   #include "libxml/xpathInternals.h"
   
   // global variable
   
   DECLARE_CLASS_VAR(xnode, new MXnode, 0);
   
   // classes
   
   class xmlXPathObject_auto_ptr {
   public:
           explicit xmlXPathObject_auto_ptr(xmlXPathObject *_APtr = 0) 
                   : _Owns(_APtr != 0), _Ptr(_APtr) {}
           xmlXPathObject_auto_ptr(const xmlXPathObject_auto_ptr& _Y) 
                   : _Owns(_Y._Owns), _Ptr(_Y.release()) {}
           xmlXPathObject_auto_ptr& operator=(const xmlXPathObject_auto_ptr& _Y) 
                   {if (this != &_Y)
                           {if (_Ptr != _Y.get())
                                   {if (_Owns && _Ptr)
                                           xmlXPathFreeObject(_Ptr);
                                   _Owns = _Y._Owns; }
                           else if (_Y._Owns)
                                   _Owns = true;
                           _Ptr = _Y.release(); }
                   return (*this); }
           ~xmlXPathObject_auto_ptr()
                   {if (_Owns && _Ptr)
                           xmlXPathFreeObject(_Ptr); }
           xmlXPathObject& operator*() const 
                   {return (*get()); }
           xmlXPathObject *operator->() const 
                   {return (get()); }
           xmlXPathObject *get() const 
                   {return (_Ptr); }
           xmlXPathObject *release() const 
                   {((xmlXPathObject_auto_ptr *)this)->_Owns = false;
                   return (_Ptr); }
   private:
           bool _Owns;
           xmlXPathObject *_Ptr;
   };
   
   class xmlXPathContext_auto_ptr {
   public:
           explicit xmlXPathContext_auto_ptr(xmlXPathContext *_APtr = 0) 
                   : _Owns(_APtr != 0), _Ptr(_APtr) {}
           xmlXPathContext_auto_ptr(const xmlXPathContext_auto_ptr& _Y) 
                   : _Owns(_Y._Owns), _Ptr(_Y.release()) {}
           xmlXPathContext_auto_ptr& operator=(const xmlXPathContext_auto_ptr& _Y) 
                   {if (this != &_Y)
                           {if (_Ptr != _Y.get())
                                   {if (_Owns && _Ptr)
                                           xmlXPathFreeContext(_Ptr);
                                   _Owns = _Y._Owns; }
                           else if (_Y._Owns)
                                   _Owns = true;
                           _Ptr = _Y.release(); }
                   return (*this); }
           ~xmlXPathContext_auto_ptr()
                   {if (_Owns && _Ptr)
                           xmlXPathFreeContext(_Ptr); }
           xmlXPathContext& operator*() const 
                   {return (*get()); }
           xmlXPathContext *operator->() const 
                   {return (get()); }
           xmlXPathContext *get() const 
                   {return (_Ptr); }
           xmlXPathContext *release() const 
                   {((xmlXPathContext_auto_ptr *)this)->_Owns = false;
                   return (_Ptr); }
   private:
           bool _Owns;
           xmlXPathContext *_Ptr;
   };
   
   // helpers
   
   xmlNode& as_node(MethodParams& params, int index, const char* msg) {
           Value& value=params.as_no_junction(index, msg);
           if(Value* vxnode=value.as(VXNODE_TYPE, false))
                   return static_cast<VXnode*>(vxnode)->get_xmlnode();
           else
                   throw Exception(PARSER_RUNTIME,
                           0,
                           msg);
   }
   
   xmlChar* as_xmlchar(Request& r, MethodParams& params, int index, const char* msg) {
           return r.transcode(params.as_string(index, msg));
   }
   
   xmlAttr& as_attr(MethodParams& params, int index, const char* msg) {
           xmlNode& xmlnode=as_node(params, index, msg);
           if(xmlnode.type!=XML_ATTRIBUTE_NODE)
                   throw Exception(PARSER_RUNTIME,
                           0,
                           msg);
   
           return *(xmlAttr*)&xmlnode;
   }
   
   static void writeNode(Request& r, VXdoc& xdoc, xmlNode* node) {
           if(!node|| xmlHaveGenericErrors())
                   throw XmlException(0); // OOM, bad name, things like that
   
           // write out result
           r.write_no_lang(xdoc.wrap(*node));
   }
   
   static xmlNode* pa_getAttributeNodeNS(xmlNode& selfNode, 
                                                                             const xmlChar* localName,
                                                                             const xmlChar* namespaceURI) 
   {
           for(xmlNode* currentNode=(xmlNode*)selfNode.properties;
                   currentNode;
                   currentNode=currentNode->next)
           {
                   if(!namespaceURI || currentNode->ns && xmlStrEqual(currentNode->ns->href, namespaceURI))
                           if(!localName || xmlStrEqual(currentNode->name, localName))
                                   return currentNode;
           }
           return 0;
   }
   
   xmlNs& pa_xmlMapNs(xmlDoc& doc, const xmlChar *href, const xmlChar *prefix) {
           assert(href);
           // prefix can be null
   
           xmlNs *cur=doc.oldNs;
           while (cur != NULL &&
                                    ((cur->prefix == NULL && prefix != NULL) ||
                                           (cur->prefix != NULL && prefix == NULL) ||
                                           !xmlStrEqual (cur->prefix, prefix)) &&
                                    !xmlStrEqual (cur->href, href))
                   cur = cur->next;
   
           if (cur == NULL) {
                   cur = xmlNewNs (NULL, href, prefix);
                   if(!cur || xmlHaveGenericErrors())
                           throw XmlException(0);
                   cur->next = doc.oldNs;
                   doc.oldNs = cur;
           }
   
           return *cur;
   }
   
 #include <util/XMLString.hpp>  /// todo: проверить, обновляется ли parent!
 #include <XalanSourceTree/XalanSourceTreeDOMSupport.hpp>  static void pa_addAttributeNode(xmlNode& selfNode, xmlAttr& attrNode) 
 #include <XPath/XPathEvaluator.hpp>  {
 #include <XPath/NodeRefList.hpp>          if(attrNode.type!=XML_ATTRIBUTE_NODE)
                   throw Exception(PARSER_RUNTIME,
                           0,
                           "must be ATTRIBUTE_NODE");
   
       /*
        * Add it at the end to preserve parsing order ...
        */
       if (selfNode.properties == NULL) {
           selfNode.properties = &attrNode;
       } else {
           xmlAttrPtr prev = selfNode.properties;
   
           while (prev->next != NULL)
               prev = prev->next;
           prev->next = &attrNode;
           attrNode.prev = prev;
       }
   
 // defines      if (xmlIsID(selfNode.doc, &selfNode, &attrNode) == 1)
           xmlAddID(NULL, selfNode.doc, xmlNodeGetContent((xmlNode*)&attrNode), &attrNode);
   }
   
   static const xmlChar *
   pa_xmlGetNsURI(xmlNode *node) {
           if (node == NULL || node->ns == NULL)
                   return NULL;
   
           return node->ns->href;
   }
   
   #ifndef DOXYGEN
   struct AccumulateFoundInfo
   {
           HashStringValue* hash;
           VXdoc* vdoc;
           int index;
   };
   #endif
   static void AccumulateFound(xmlNode& node, AccumulateFoundInfo* info)
   {
           info->hash->put(
                   String::Body::Format(info->index++), 
                   &info->vdoc->wrap(node));
   }
   template<typename I> static void
   pa_xmlNamedPreorderTraversal (
                                                             xmlNode *root, 
                                                             xmlChar *tagURI, 
                                                             xmlChar *tagName, 
                                                             void callback(xmlNode& node, I info),
                                                             I info) 
   {
           for(xmlNode *iter=root->children; iter; iter = iter->next) {
                   if(iter->type == XML_ELEMENT_NODE &&
                           (xmlStrEqual(iter->name, tagName) ||
                           xmlStrEqual(tagName, (const xmlChar*)"*"))) {
                                   if(tagURI != NULL &&
                                           (xmlStrEqual(pa_xmlGetNsURI(iter), tagURI) ||
                                           xmlStrEqual(tagURI, (const xmlChar*)"*")))
                                           callback(*iter, info);
                                   else if(tagURI == NULL)
                                           callback(*iter, info);
                           }
                           pa_xmlNamedPreorderTraversal(iter, tagURI, tagName, callback, info);
           }
   
 #define XNODE_CLASS_NAME "xnode"          return;
   }
   
 // class  
   
 // methods  // methods
   
 static void _select(Request& r, const String& method_name, MethodParams *params) {  // DOM1 node
 //      _asm int 3;  
         Pool& pool=r.pool();  // Node insertBefore(in Node newChild,in Node refChild) raises(DOMException);
         VXnode& vnode=*static_cast<VXnode *>(r.self);  static void _insertBefore(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           VXdoc& vxdoc=vnode.get_vxdoc();
   
           //xmlNode& selfNode=vnode.get_xmlnode();
           xmlNode& newChild=as_node(params, 0, "newChild must be node");
           xmlNode& refChild=as_node(params, 1, "refChild must be node");
           
           xmlNode* retNode=xmlAddPrevSibling(&refChild, &newChild);
           // write out result
           writeNode(r, vxdoc, retNode);
   }
   
   // Node replaceChild(in Node newChild,in Node oldChild) raises(DOMException);
   static void _replaceChild(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           VXdoc& vxdoc=vnode.get_vxdoc();
           xmlDoc& xmldoc=vxdoc.get_xmldoc();
           xmlNode& selfNode=vnode.get_xmlnode();
           xmlNode& newChild=as_node(params, 0, "newChild must be node");
           xmlNode& oldChild=as_node(params, 1, "oldChild must be node");
   
           if(newChild.doc!=&xmldoc)
                   throw Exception("xml.dom",
                           0,
                           "WRONG_DOCUMENT_ERR");
           if(oldChild.doc!=&xmldoc)
                   throw Exception("xml.dom",
                           0,
                           "WRONG_DOCUMENT_ERR");
   
           if(oldChild.parent!=&selfNode)
                   throw Exception("xml.dom",
                           0,
                           "NOT_FOUND_ERR");
   
           xmlNode* refChild=oldChild.next;
           xmlUnlinkNode(&oldChild);
           xmlNode* retNode;
           if(refChild)
                   retNode=xmlAddPrevSibling(refChild, &newChild);
           else
                   retNode=xmlAddChild(&selfNode, &newChild);
   
           // write out result
           writeNode(r, vxdoc, retNode);
   }
   
   // Node removeChild(in Node oldChild) raises(DOMException);
   static void _removeChild(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           VXdoc& vxdoc=vnode.get_vxdoc();
           xmlDoc& xmldoc=vxdoc.get_xmldoc();
   //      xmlNode& selfNode=vnode.get_xmlnode();
           xmlNode& oldChild=as_node(params, 0, "refChild must be node");
           
           if(oldChild.doc!=&xmldoc)
                   throw Exception("xml.dom",
                           0,
                           "WRONG_DOCUMENT_ERR");
   
           xmlUnlinkNode(&oldChild);
           // write out result
           writeNode(r, vxdoc, &oldChild);
   }
   
   // Node appendChild(in Node newChild) raises(DOMException);
   static void _appendChild(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           VXdoc& vxdoc=vnode.get_vxdoc();
           xmlNode& selfNode=vnode.get_xmlnode();
           xmlNode& newChild=as_node(params, 0, "newChild must be node");
           
           xmlNode* retNode=xmlAddChild(&selfNode, &newChild);
           // write out result
           writeNode(r, vxdoc, retNode);
   }
   
   // boolean hasChildNodes();
   static void _hasChildNodes(Request& r, MethodParams&) {
           VXnode& vnode=GET_SELF(r, VXnode);
           xmlNode& node=vnode.get_xmlnode();
   
           // write out result
           bool result=node.children!=0;
           r.write_no_lang(*new VBool(result));
   }
   
   // Node cloneNode(in boolean deep);
   static void _cloneNode(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           xmlNode& selfNode=vnode.get_xmlnode();
           VXdoc& vxdoc=vnode.get_vxdoc();
           xmlDoc& xmldoc=vxdoc.get_xmldoc();
   
           bool deep=params.as_bool(0, "deep must be bool", r);
   
           xmlNode* retNode=xmlDocCopyNode(&selfNode, &xmldoc, deep?1: 0);
           // write out result
           writeNode(r, vxdoc, retNode);
   }
   
   // DOM1 element
   
   xmlNode& get_self_element(VXnode& vnode) {
           xmlNode& node=vnode.get_xmlnode();
   
           if(node.type!=XML_ELEMENT_NODE)
                   throw Exception(PARSER_RUNTIME,
                           0,
                           "method can only be called on nodes of ELEMENT type");
   
           return node;
   }
   
   
   static void _getAttribute(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           xmlNode& element=get_self_element(vnode);
           const xmlChar* name=as_xmlchar(r, params, 0, "name must be string");
   
           // todo: when name="xmlns"
           xmlChar* attribute_value=xmlGetProp(&element, name);
           // write out result
           r.write_pass_lang(r.transcode(attribute_value));
   }
   
   // void setAttribute(in DOMString name, in DOMString value) raises(DOMException);
   static void _setAttribute(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           xmlNode& element=get_self_element(vnode);
           const xmlChar* name=as_xmlchar(r, params, 0, "name must be string");
           const xmlChar* attribute_value=as_xmlchar(r, params, 1, "value must be string");
   
           // todo: when name="xmlns"
           if(!xmlSetProp(&element, name,  attribute_value))
                   throw XmlException(0);
   }
   
   // void removeAttribute(in DOMString name) raises(DOMException);
   static void _removeAttribute(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           xmlNode& element=get_self_element(vnode);
           const xmlChar* name=as_xmlchar(r, params, 0, "name must be string");
   
           // todo: when name="xmlns"
           xmlUnsetProp(&element, name);
   }
   
   // Attr getAttributeNode(in DOMString name);
   static void _getAttributeNode(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           VXdoc& vxdoc=vnode.get_vxdoc();
           xmlNode& element=get_self_element(vnode);
           const xmlChar* localName=as_xmlchar(r, params, 0, "name must be string");
   
           if(xmlNode* retNode=pa_getAttributeNodeNS(element, localName, 0)){
                   // write out result
                   writeNode(r, vxdoc, retNode);
           }
   }       
   
   // Attr setAttributeNode(in Attr newAttr) raises(DOMException);
   // Attr setAttributeNodeNS(in Attr newAttr) raises(DOMException);
   static void _setAttributeNode(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           VXdoc& vxdoc=vnode.get_vxdoc();
           xmlNode& element=get_self_element(vnode);
           xmlDoc& xmldoc=vxdoc.get_xmldoc();
           xmlAttr& newAttr=as_attr(params, 0, "newAttr must be ATTRIBUTE node");
   
           if(newAttr.doc!=&xmldoc)
                   throw Exception("xml.dom",
                           0,
                           "WRONG_DOCUMENT_ERR");
   
           if(newAttr.parent)
                   throw Exception("xml.dom",
                           0,
                           "INUSE_ATTRIBUTE_ERR");
           
           if(xmlNode* retNode=pa_getAttributeNodeNS(element, newAttr.name, pa_xmlGetNsURI((xmlNode*)&newAttr))) {
                   // write out result
                   writeNode(r, vxdoc, retNode);
                   xmlUnlinkNode(retNode);
           }
   
           pa_addAttributeNode(element, newAttr);
   }       
   
   // Attr removeAttributeNode(in Attr oldAttr) raises(DOMException);
   static void _removeAttributeNode(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           VXdoc& vxdoc=vnode.get_vxdoc();
           xmlNode& element=get_self_element(vnode);
           xmlAttr& oldAttr=as_attr(params, 0, "oldAttr must be ATTRIBUTE node");
   
           if(oldAttr.parent!=&element)
                   throw Exception("xml.dom",
                           0,
                           "NOT_FOUND_ERR");
   
           xmlUnlinkNode((xmlNode*)&oldAttr);
   
           // write out result
           writeNode(r, vxdoc, (xmlNode*)&oldAttr);
   }       
   
   // NodeList getElementsByTagName(in DOMString name);
   static void _getElementsByTagName(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           VXdoc& vxdoc=vnode.get_vxdoc();
           xmlNode& xmlnode=vnode.get_xmlnode();
   
           xmlChar* tagName=as_xmlchar(r, params, 0, "name must be string");
   
           VHash& result=*new VHash;
           AccumulateFoundInfo info={&result.hash(), &vxdoc, 0};
           pa_xmlNamedPreorderTraversal(&xmlnode, 
                                                             0, 
                                                             tagName, 
                                                             AccumulateFound,
                                                             &info);
   
           // write out result
           r.write_no_lang(result);
   }
   
   // DOM 2
   
   // DOMString getAttributeNS(in DOMString namespaceURI, in DOMString localName);
   static void _getAttributeNS(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           xmlNode& element=get_self_element(vnode);
           
           xmlChar* namespaceURI=as_xmlchar(r, params, 0, "namespaceURI must be string");
           xmlChar* localName=as_xmlchar(r, params, 1, "localName must be string");
   
           // todo: when name="xmlns"
           xmlChar* attribute_value=xmlGetNsProp(&element, localName, namespaceURI);
           // write out result
           r.write_pass_lang(r.transcode(attribute_value));
   }
   
   
   // void setAttributeNS(in DOMString namespaceURI, in DOMString qualifiedName, in DOMString value) raises(DOMException);
   static void _setAttributeNS(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           xmlNode& element=get_self_element(vnode);
           VXdoc& vxdoc=vnode.get_vxdoc();
           xmlDoc& xmldoc=vxdoc.get_xmldoc();
           const xmlChar* namespaceURI=as_xmlchar(r, params, 0, "namespaceURI must be string");
           const xmlChar* qualifiedName=as_xmlchar(r, params, 1, "qualifiedName must be string");
           const xmlChar* attribute_value=as_xmlchar(r, params, 2, "value must be string");
   
           xmlChar* prefix=0;
           xmlChar* localName=xmlSplitQName2(qualifiedName, &prefix);
   
           // todo: name=xmlns
           xmlAttr* attrNode;
           if(localName) {
                   xmlNs& ns=pa_xmlMapNs(xmldoc, namespaceURI, prefix);
                   
                   attrNode=xmlSetNsProp(&element, &ns,
                           localName,
                           attribute_value);
           } else {
                   attrNode=xmlSetProp(&element, 
                           qualifiedName/*unqualified, actually*/,
                           attribute_value);
           }
   
           if(!attrNode)
                   throw XmlException(0);
   }
   
   // void removeAttributeNS(in DOMString namespaceURI, in DOMString localName) raises(DOMException);
   static void _removeAttributeNS(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           xmlNode& element=get_self_element(vnode);
           VXdoc& vxdoc=vnode.get_vxdoc();
           xmlDoc& xmldoc=vxdoc.get_xmldoc();
           const xmlChar* namespaceURI=as_xmlchar(r, params, 0, "namespaceURI must be string");
           const xmlChar* localName=as_xmlchar(r, params, 1, "localName must be string");
   
           // todo: when name="xmlns"
           xmlNs& ns=pa_xmlMapNs(xmldoc, namespaceURI, 0);
           xmlUnsetNsProp(&element, &ns, localName);
   }
   
   // Attr getAttributeNodeNS(in DOMString namespaceURI, in DOMString localName);
   static void _getAttributeNodeNS(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           VXdoc& vxdoc=vnode.get_vxdoc();
           xmlNode& element=get_self_element(vnode);
           const xmlChar* namespaceURI=as_xmlchar(r, params, 0, "namespaceURI must be string");
           const xmlChar* localName=as_xmlchar(r, params, 1, "localName must be string");
   
           if(xmlNode* retNode=pa_getAttributeNodeNS(element, localName, namespaceURI)){
                   // write out result
                   writeNode(r, vxdoc, retNode);
           }
   }       
   
   // boolean hasAttribute(in DOMString name) raises(DOMException);
   static void _hasAttribute(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           xmlNode& element=get_self_element(vnode);
   
           const xmlChar* name=as_xmlchar(r, params, 0, "name must be string");
   
           xmlChar* prop=xmlGetProp(&element, name);
           // todo: when name="xmlns"
           // write out result
           r.write_no_lang(*new VBool(prop!=0));
   }
   
   // boolean hasAttributeNS(n DOMString namespaceURI, in DOMString localName) raises(DOMException);
   static void _hasAttributeNS(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           xmlNode& element=get_self_element(vnode);
   
           const xmlChar* namespaceURI=as_xmlchar(r, params, 0, "namespaceURI must be string");
           const xmlChar* localName=as_xmlchar(r, params, 1, "localName must be string");
   
           xmlChar* prop=xmlGetNsProp(&element, localName, namespaceURI);
           // write out result
           r.write_no_lang(*new VBool(prop!=0));
   }
   
   // boolean hasAttributes
   static void _hasAttributes(Request& r, MethodParams&) {
           VXnode& vnode=GET_SELF(r, VXnode);
           xmlNode& element=get_self_element(vnode);
   
           // write out result
           r.write_no_lang(*new VBool(element.properties!=0));
   }
   
   static void _getElementsByTagNameNS(Request& r, MethodParams& params) {
           VXnode& vnode=GET_SELF(r, VXnode);
           VXdoc& vdoc=vnode.get_vxdoc();
           xmlDoc& xmldoc=vdoc.get_xmldoc();
   
           // namespaceURI;localName
           xmlChar* namespaceURI=as_xmlchar(r, params, 0, "namespaceURI must be string");
           xmlChar* localName=as_xmlchar(r, params, 1, "name must be string");
   
           VHash& result=*new VHash;
           AccumulateFoundInfo info={&result.hash(), &vdoc, 0};
           pa_xmlNamedPreorderTraversal((xmlNode*)&xmldoc, 
                                                             namespaceURI, 
                                                             localName, 
                                                             AccumulateFound,
                                                             &info);
   
           // write out result
           r.write_no_lang(result);
   }
   
   
   // void normalize();
   static void _normalize(Request&, MethodParams&) {
   /*maybe someday
           VXnode& vnode=GET_SELF(r, VXnode);
           xmlNode& selfNode=vnode.get_xmlnode();
   
           gdome_n_normalize(selfNode, &exc);
           if(exc)
                   throw XmlException(0, exc);
   */
   }
   
   #ifndef DOXYGEN
   struct Register_one_ns_info {
           Request* r;
           xmlXPathContextPtr ctxt;
   };
   #endif
   static void register_one_ns(
                                                                     HashStringValue::key_type key, 
                                                                     HashStringValue::value_type value, 
                                                                     Register_one_ns_info* info) {
           if(const String* svalue=value->get_string())
                   xmlXPathRegisterNs(info->ctxt, 
                           info->r->transcode(key), 
                           info->r->transcode(*svalue));
           else
                   throw Exception(PARSER_RUNTIME,
                           new String(key, String::L_TAINTED),
                           "value is %s, must be string or number", value->type());
   }
   static void _selectX(Request& r, MethodParams& params,
                                            void (*handler)(Request& r,
                                                             const String& expression, 
                                                             xmlXPathObject_auto_ptr res,
                                                             VXdoc& xdoc,
                                                             Value*& result)) 
   {
           VXnode& vnode=GET_SELF(r, VXnode);
           xmlNode& xmlnode=vnode.get_xmlnode();
           VXdoc& vdoc=vnode.get_vxdoc();
           xmlDoc& xmldoc=vdoc.get_xmldoc();
   
         // expression          // expression
         const String& expression=params->as_string(0, "expression must not be code");          const String& expression=params.as_string(0, "expression must be string");
         const char *expression_cstr=expression.cstr(String::UL_AS_IS);          xmlXPathContext_auto_ptr ctxt(xmlXPathNewContext(&xmldoc));
         XalanDOMString dstring(expression_cstr);          {
         const XalanDOMChar *expression_dcstr=dstring.c_str();                  Register_one_ns_info info={&r, ctxt.get()};
                   vdoc.search_namespaces.hash().for_each<Register_one_ns_info*>(register_one_ns, &info);
         XPathEvaluator evaluator;          }
         // We'll use these to parse the XML file.          ctxt->node=&xmlnode;
         XalanSourceTreeDOMSupport dom_support;          /*error to stderr for now*/
           xmlXPathObject_auto_ptr res(
         try {                  xmlXPathEvalExpression(r.transcode(expression), ctxt.get()));
                 NodeRefList list=evaluator.selectNodeList(dom_support,   
                         &vnode.get_node(pool, &method_name),           if(xmlHaveGenericErrors())
                         expression_dcstr);                  throw XmlException(0);
   
                 VHash& result=*new(pool) VHash(pool);          Value* result=0;
                 for(int i=0; i<list.getLength(); i++) {          if(res.get())
                         String& skey=*new(pool) String(pool);                  handler(r, expression, res, vdoc, result);
                         {          if(result)
                                 char *buf=(char *)pool.malloc(MAX_NUMBER);                  r.write_no_lang(*result);
                                 snprintf(buf, MAX_NUMBER, "%d", i);  }
                                 skey << buf;  
   static void selectNodesHandler(Request&,
                                  const String& expression,
                                  xmlXPathObject_auto_ptr res,
                                      VXdoc& xdoc,
                                  Value*& result) {
           VHash& vhash=*new VHash;  result=&vhash;
           switch(res->type) {
           case XPATH_UNDEFINED: 
                   break;
           case XPATH_NODESET:
                   if(res->nodesetval)
                           if(int size=res->nodesetval->nodeNr) {
                                   HashStringValue& hash=vhash.hash();
                                   for(int i=0; i<size; i++)
                                           hash.put(
                                                   String::Body::Format(i), 
                                                   &xdoc.wrap(*res->nodesetval->nodeTab[i]));
                         }                          }
                   break;
           default: 
                   throw Exception(PARSER_RUNTIME,
                           &expression,
                           "wrong xmlXPathEvalExpression result type (%d)", res->type);
                   break; // never
           }
   }
   
                         result.hash().put(skey, new(pool) VXnode(pool, list.item(i)));  static void selectNodeHandler(Request& r,
                                 const String& expression,
                                     xmlXPathObject_auto_ptr res,
                                     VXdoc& xdoc,
                                     Value*& result) {
           switch(res->type) {
           case XPATH_UNDEFINED: 
                   break;
           case XPATH_NODESET: 
                   if(res->nodesetval && res->nodesetval->nodeNr) { // empty result strangly has NODESET  res->type
                           if(res->nodesetval->nodeNr>1)
                                   throw Exception(PARSER_RUNTIME,
                                           &expression,
                                           "resulted not in a single node (%d)", res->nodesetval->nodeNr);
                           
                           result=&xdoc.wrap(*res->nodesetval->nodeTab[0]);
                 }                  }
                 result.set_name(method_name);                  break;
                 r.write_no_lang(result);          case XPATH_BOOLEAN: 
         } catch(const XSLException& e) {                  result=new VBool(res->boolval!=0);
                 r._throw(&expression, e);                  break;
           case XPATH_NUMBER: 
                   result=new VDouble(res->floatval);
                   break;
           case XPATH_STRING:
                   result=new VString(r.transcode((xmlChar*)res->stringval));
                   break;
           default: 
                   throw Exception(PARSER_RUNTIME,
                           &expression,
                           "wrong xmlXPathEvalExpression result type (%d)", res->type);
           }
   }
   
   static void selectBoolHandler(Request&,
                                 const String& expression,
                                 xmlXPathObject_auto_ptr res,
                                     VXdoc& /*xdoc*/,
                                 Value*& result) {
           switch(res->type) {
           case XPATH_BOOLEAN: 
                   result=new VBool(res->boolval!=0);
                   break;
           case XPATH_NODESET: 
                   if(!(res->nodesetval && res->nodesetval->nodeNr))
                           break;
                   // else[nodeset] fall down to default
           default: 
                   throw Exception(PARSER_RUNTIME,
                           &expression,
                           "wrong xmlXPathEvalExpression result type (%d)", res->type);
                   break; // never
         }          }
 }  }
   
 static void _select_single(Request& r, const String& method_name, MethodParams *params) {  static void selectNumberHandler(Request&,
 //      _asm int 3;                                  const String& expression,
         Pool& pool=r.pool();                                  xmlXPathObject_auto_ptr res,
         VXnode& vnode=*static_cast<VXnode *>(r.self);                                  VXdoc& /*xdoc*/,
                                   Value*& result) {
           switch(res->type) {
           case XPATH_NUMBER: 
                   result=new VDouble(res->floatval);
                   break;
           case XPATH_NODESET:
                   if(!(res->nodesetval && res->nodesetval->nodeNr))
                           break;
                   // else[nodeset] fall down to default
           default: 
                   throw Exception(PARSER_RUNTIME,
                           &expression,
                           "wrong xmlXPathEvalExpression result type (%d)", res->type);
                   break; // never
           }
   }
   
         // expression  static void selectStringHandler(Request& r,
         const String& expression=params->as_string(0, "expression must not be code");                                                            const String& expression,
         const char *expression_cstr=expression.cstr(String::UL_AS_IS);                                                            xmlXPathObject_auto_ptr res,
         XalanDOMString dstring(expression_cstr);                                                            VXdoc& /*xdoc*/,
         const XalanDOMChar *expression_dcstr=dstring.c_str();                                                            Value*& result) {
           switch(res->type) {
         XPathEvaluator evaluator;          case XPATH_UNDEFINED: 
         // Initialize the XalanSourceTree subsystem...                  break;
 //      XalanSourceTreeInit             theSourceTreeInit;          case XPATH_STRING:
         // We'll use these to parse the XML file.                  result=new VString(r.transcode((xmlChar*)res->stringval));
         XalanSourceTreeDOMSupport dom_support;                  break;
           case XPATH_NODESET: 
         try {                  if(!(res->nodesetval && res->nodesetval->nodeNr))
                  if(XalanNode *node=evaluator.selectSingleNode(dom_support,                           break;
                         &vnode.get_node(pool, &method_name),                   // else[nodeset] fall down to default
                         expression_dcstr)) {          default: 
                   throw Exception(PARSER_RUNTIME,
                         VXnode& result=*new(pool) VXnode(pool, node);                          &expression,
                         result.set_name(method_name);                          "wrong xmlXPathEvalExpression result type (%d)", res->type);
                         r.write_no_lang(result);                  break; // never
                 }  
         } catch(const XSLException& e) {  
                 r._throw(&expression, e);  
         }          }
 }  }
   
   static void _select(Request& r, MethodParams& params) {
           _selectX(r, params,
                   selectNodesHandler);
   }
   
   static void _selectSingle(Request& r, MethodParams& params) {
           _selectX(r, params,
                   selectNodeHandler);
   }
   
   static void _selectBool(Request& r, MethodParams& params) {
           _selectX(r, params,
                   selectBoolHandler);
   }
   
   static void _selectNumber(Request& r, MethodParams& params) {
           _selectX(r, params,
                   selectNumberHandler);
   }
   
   static void _selectString(Request& r, MethodParams& params) {
           _selectX(r, params,
                   selectStringHandler);
   }
   
 // constructor  // constructor
   
 MXnode::MXnode(Pool& apool) : Methoded(apool),   /// @bug one can change const and ruin other's work, we need unchangable VIntConst class
         consts(apool) {  MXnode::MXnode(const char* aname, VStateless_class *abase):
         set_name(*NEW String(pool(), XNODE_CLASS_NAME));          Methoded(aname?aname:"xnode", abase)
   {
           /// DOM1 node
   
           // Node insertBefore(in Node newChild,in Node refChild) raises(DOMException);
           add_native_method("insertBefore", Method::CT_DYNAMIC, _insertBefore, 2, 2);
           // Node replaceChild(in Node newChild,in Node oldChild) raises(DOMException);
           add_native_method("replaceChild", Method::CT_DYNAMIC, _replaceChild, 2, 2);
           // Node removeChild(in Node oldChild) raises(DOMException);
           add_native_method("removeChild", Method::CT_DYNAMIC, _removeChild, 1, 1);
           // Node appendChild(in Node newChild) raises(DOMException);
           add_native_method("appendChild", Method::CT_DYNAMIC, _appendChild, 1, 1);
           // boolean hasChildNodes();
           add_native_method("hasChildNodes", Method::CT_DYNAMIC, _hasChildNodes, 0, 0);
           // Node cloneNode(in boolean deep);
           add_native_method("cloneNode", Method::CT_DYNAMIC, _cloneNode, 1, 1);
   
           /// DOM1 element
   
           // DOMString getAttribute(in DOMString name);
           add_native_method("getAttribute", Method::CT_DYNAMIC, _getAttribute, 1, 1);
           // void setAttribute(in DOMString name, in DOMString value) raises(DOMException);
           add_native_method("setAttribute", Method::CT_DYNAMIC, _setAttribute, 2, 2);
           // void removeAttribute(in DOMString name) raises(DOMException);
           add_native_method("removeAttribute", Method::CT_DYNAMIC, _removeAttribute, 1, 1);
           // Attr getAttributeNode(in DOMString name);
           add_native_method("getAttributeNode", Method::CT_DYNAMIC, _getAttributeNode, 1, 1);
           // Attr setAttributeNode(in Attr newAttr) raises(DOMException);
           add_native_method("setAttributeNode", Method::CT_DYNAMIC, _setAttributeNode, 1, 1);
           // Attr removeAttributeNode(in Attr oldAttr) raises(DOMException);
           add_native_method("removeAttributeNode", Method::CT_DYNAMIC, _removeAttributeNode, 1, 1);
           // NodeList getElementsByTagName(in DOMString name);
           add_native_method("getElementsByTagName", Method::CT_DYNAMIC, _getElementsByTagName, 1, 1);
           // NodeList getElementsByTagNameNS(in DOMString namespaceURI, in DOMString localName);
           add_native_method("getElementsByTagNameNS", Method::CT_DYNAMIC, _getElementsByTagNameNS, 2, 2);
           // void normalize();
           add_native_method("normalize", Method::CT_DYNAMIC, _normalize, 0, 0);
   
           /// DOM2 element
   
           // DOMString getAttributeNS(in DOMString namespaceURI, in DOMString localName);
           add_native_method("getAttributeNS", Method::CT_DYNAMIC, _getAttributeNS, 2, 2);
           // void setAttributeNS(in DOMString namespaceURI, in DOMString qualifiedName, in DOMString value) raises(DOMException);
           add_native_method("setAttributeNS", Method::CT_DYNAMIC, _setAttributeNS, 3, 3);
           // void removeAttributeNS(in DOMString namespaceURI, in DOMString localName) raises(DOMException);
           add_native_method("removeAttributeNS", Method::CT_DYNAMIC, _removeAttributeNS, 2, 2);
           // Attr getAttributeNodeNS(in DOMString namespaceURI, in DOMString localName);
           add_native_method("getAttributeNodeNS", Method::CT_DYNAMIC, _getAttributeNodeNS, 2, 2);
           // Attr setAttributeNodeNS(in Attr newAttr) raises(DOMException);
           add_native_method("setAttributeNodeNS", Method::CT_DYNAMIC, _setAttributeNode, 1, 1);
           // boolean hasAttribute(in DOMString name) raises(DOMException);
           add_native_method("hasAttribute", Method::CT_DYNAMIC, _hasAttribute, 1, 1);
           // boolean hasAttributeNS(in DOMString namespaceURI, in DOMString localName) raises(DOMException);
           add_native_method("hasAttributeNS", Method::CT_DYNAMIC, _hasAttributeNS, 2, 2);
           // boolean hasAttributes
           add_native_method("hasAttributes", Method::CT_DYNAMIC, _hasAttributes, 0, 0);
           
   
           /// parser
         // ^node.select[/some/xpath/query] = hash $.#[dnode]          // ^node.select[/some/xpath/query] = hash $.#[dnode]
         add_native_method("select", Method::CT_DYNAMIC, _select, 1, 1);          add_native_method("select", Method::CT_DYNAMIC, _select, 1, 1);
   
         // ^node.select-single[/some/xpath/query] = first dnode          // ^node.selectSingle[/some/xpath/query] = first node [if any]
         add_native_method("select-single", Method::CT_DYNAMIC, _select_single, 1, 1);          add_native_method("selectSingle", Method::CT_DYNAMIC, _selectSingle, 1, 1);
           // ^node.selectBool[/some/xpath/query] = bool value [if any]
           add_native_method("selectBool", Method::CT_DYNAMIC, _selectBool, 1, 1);
           // ^node.selectNumber[/some/xpath/query] = double value [if any]
           add_native_method("selectNumber", Method::CT_DYNAMIC, _selectNumber, 1, 1);
           // ^node.selectString[/some/xpath/query] = strinv value [if any]
           add_native_method("selectString", Method::CT_DYNAMIC, _selectString, 1, 1);
   
         // consts          // consts
   
 #define CONST(name, value) \  #define CONST(name) \
         consts.put(*new(pool()) String(pool(), #name), new(pool()) VInt(pool(), value))          consts.put(String::Body(#name), new VInt(XML_##name))
   #define CONST2(name, value) \
           consts.put(String::Body(#name), new VInt(value))
   
           CONST(ELEMENT_NODE);
           CONST(ATTRIBUTE_NODE);
           CONST(TEXT_NODE);
           CONST(CDATA_SECTION_NODE);
           CONST2(ENTITY_REFERENCE_NODE, XML_ENTITY_REF_NODE);
           CONST(ENTITY_NODE);
           CONST2(PROCESSING_INSTRUCTION_NODE, XML_PI_NODE);
           CONST(COMMENT_NODE);
           CONST(DOCUMENT_NODE);
           CONST(DOCUMENT_TYPE_NODE);
           CONST2(DOCUMENT_FRAGMENT_NODE, XML_DOCUMENT_FRAG_NODE);
           CONST(NOTATION_NODE);
   }
   
         CONST(ELEMENT_NODE, 1);  #else
     CONST(ATTRIBUTE_NODE,  2);  
     CONST(TEXT_NODE,  3);  
     CONST(CDATA_SECTION_NODE,  4);  
     CONST(ENTITY_REFERENCE_NODE,  5);  
     CONST(ENTITY_NODE,  6);  
     CONST(PROCESSING_INSTRUCTION_NODE,  7);  
     CONST(COMMENT_NODE,  8);  
     CONST(DOCUMENT_NODE,  9);  
     CONST(DOCUMENT_TYPE_NODE,  10);  
     CONST(DOCUMENT_FRAGMENT_NODE,  11);  
     CONST(NOTATION_NODE,  12);  
   
 }  
 // global variable  // global variable
   
 Methoded *Xnode_class;  DECLARE_CLASS_VAR(xnode, 0, 0); // fictive
   
 #endif  #endif
   
 // creator  
 Methoded *MXnode_create(Pool& pool) {  
         return   
 #ifdef XML  
                 Xnode_class=new(pool) MXnode(pool)  
 #else  
                 0  
 #endif  
                 ;  
 }  
Removed from v.1.2  
changed lines
  Added in v.1.78

E-mail: