--- parser3/src/classes/xnode.C 2002/01/10 15:41:49 1.20 +++ parser3/src/classes/xnode.C 2002/04/18 15:54:39 1.45 @@ -1,32 +1,105 @@ /** @file Parser: @b dom parser class. - Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com) - Author: Alexander Petrosyan (http://paf.design.ru) + Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com) + Author: Alexandr Petrosian (http://paf.design.ru) - $Id: xnode.C,v 1.20 2002/01/10 15:41:49 paf Exp $ + $Id: xnode.C,v 1.45 2002/04/18 15:54:39 paf Exp $ */ #include "classes.h" #ifdef XML +#include "pa_charset.h" #include "pa_request.h" #include "pa_vxnode.h" +#include "pa_vxdoc.h" +#include "pa_vvoid.h" #include "xnode.h" +extern "C" { +#include "gdomecore/gdome-xml-node.h" +#include "gdomecore/gdome-xml-document.h" +}; #include "gdome.h" +#include "libxml/xpath.h" -// defines +// classes -#define XNODE_CLASS_NAME "xnode" +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 -GdomeNode *as_node(Pool& pool, const String& method_name, MethodParams *params, +GdomeNode *as_node(const String& method_name, MethodParams *params, int index, const char *msg) { Value& value=params->as_no_junction(index, msg); - if(strcmp(value.type(), VXNODE_TYPE)!=0) - throw Exception(0, 0, + if(!(strcmp(value.type(), VXNODE_TYPE)==0 + || strcmp(value.type(), VXDOC_TYPE)==0)) + throw Exception("parser.runtime", &method_name, msg); @@ -38,10 +111,10 @@ GdomeNode *as_node(Pool& pool, const Str GdomeAttr * as_attr(Pool& pool, const String& method_name, MethodParams *params, int index, const char *msg) { - GdomeNode *node=as_node(pool, method_name, params, index, msg); + GdomeNode *node=as_node(method_name, params, index, msg); GdomeException exc; if(gdome_n_nodeType(node, &exc)!=GDOME_ATTRIBUTE_NODE) - throw Exception(0, 0, + throw Exception("parser.runtime", &method_name, msg); @@ -57,8 +130,8 @@ static void _insertBefore(Request& r, co Pool& pool=r.pool(); VXnode& vnode=*static_cast(r.self); GdomeNode *selfNode=vnode.get_node(&method_name); - GdomeNode *newChild=as_node(pool, method_name, params, 0, "newChild must be node"); - GdomeNode *refChild=as_node(pool, method_name, params, 1, "refChild must be node"); + GdomeNode *newChild=as_node(method_name, params, 0, "newChild must be node"); + GdomeNode *refChild=as_node(method_name, params, 1, "refChild must be node"); GdomeException exc; if(GdomeNode *retNode=gdome_n_insertBefore(selfNode, newChild, refChild, &exc)) { @@ -66,7 +139,7 @@ static void _insertBefore(Request& r, co VXnode& result=*new(pool) VXnode(pool, retNode); r.write_no_lang(result); } else - throw Exception(0, 0, + throw Exception( &method_name, exc); } @@ -76,15 +149,15 @@ static void _replaceChild(Request& r, co Pool& pool=r.pool(); VXnode& vnode=*static_cast(r.self); GdomeNode *selfNode=vnode.get_node(&method_name); - GdomeNode *newChild=as_node(pool, method_name, params, 0, "newChild must be node"); - GdomeNode *refChild=as_node(pool, method_name, params, 1, "refChild must be node"); + GdomeNode *newChild=as_node(method_name, params, 0, "newChild must be node"); + GdomeNode *refChild=as_node(method_name, params, 1, "refChild must be node"); GdomeException exc; if(GdomeNode *retNode=gdome_n_replaceChild(selfNode, newChild, refChild, &exc)) { // write out result r.write_no_lang(*new(pool) VXnode(pool, retNode)); } else - throw Exception(0, 0, + throw Exception( &method_name, exc); } @@ -94,14 +167,14 @@ static void _removeChild(Request& r, con Pool& pool=r.pool(); VXnode& vnode=*static_cast(r.self); GdomeNode *selfNode=vnode.get_node(&method_name); - GdomeNode *oldChild=as_node(pool, method_name, params, 0, "oldChild must be node"); + GdomeNode *oldChild=as_node(method_name, params, 0, "oldChild must be node"); GdomeException exc; if(GdomeNode *retNode=gdome_n_removeChild(selfNode, oldChild, &exc)) { // write out result r.write_no_lang(*new(pool) VXnode(pool, retNode)); } else - throw Exception(0, 0, + throw Exception( &method_name, exc); } @@ -111,14 +184,14 @@ static void _appendChild(Request& r, con Pool& pool=r.pool(); VXnode& vnode=*static_cast(r.self); GdomeNode *selfNode=vnode.get_node(&method_name); - GdomeNode *newChild=as_node(pool, method_name, params, 0, "newChild must be node"); + GdomeNode *newChild=as_node(method_name, params, 0, "newChild must be node"); GdomeException exc; if(GdomeNode *retNode=gdome_n_appendChild(selfNode, newChild, &exc)) { // write out result r.write_no_lang(*new(pool) VXnode(pool, retNode)); } else - throw Exception(0, 0, + throw Exception( &method_name, exc); } @@ -131,13 +204,11 @@ static void _hasChildNodes(Request& r, c GdomeException exc; // write out result - VBool& result=*new(pool) VBool(pool, gdome_n_hasChildNodes(node, &exc)!=0); - result.set_name(method_name); - r.write_no_lang(result); + bool result=gdome_n_hasChildNodes(node, &exc)!=0; + r.write_no_lang(*new(pool) VBool(pool, result)); } // Node cloneNode(in boolean deep); -/// @test ownerDocument=? static void _cloneNode(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); VXnode& vnode=*static_cast(r.self); @@ -147,9 +218,7 @@ static void _cloneNode(Request& r, const GdomeException exc; // write out result - VXnode& result=*new(pool) VXnode(pool, gdome_n_cloneNode(node, deep, &exc)); - result.set_name(method_name); - r.write_no_lang(result); + r.write_no_lang(*new(pool) VXnode(pool, gdome_n_cloneNode(node, deep, &exc))); } // DOM1 element @@ -161,7 +230,7 @@ GdomeElement *get_self_element(Request& GdomeException exc; if(gdome_n_nodeType(node, &exc)!=GDOME_ELEMENT_NODE) - throw Exception(0, 0, + throw Exception("parser.runtime", &method_name, "method can be called on node of ELEMENT type"); @@ -176,9 +245,9 @@ static void _getAttribute(Request& r, co GdomeException exc; GdomeDOMString *attribute_value= - gdome_el_getAttribute(element, pool.transcode(name), &exc); + gdome_el_getAttribute(element, pool.transcode(name).get(), &exc); // write out result - r.write_no_lang(*new(pool) VString(pool.transcode(attribute_value))); + r.write_no_lang(pool.transcode(attribute_value)); } // void setAttribute(in DOMString name, in DOMString value) raises(DOMException); @@ -190,11 +259,11 @@ static void _setAttribute(Request& r, co GdomeException exc; gdome_el_setAttribute(element, - pool.transcode(name), - pool.transcode(attribute_value), + pool.transcode(name).get(), + pool.transcode(attribute_value).get(), &exc); if(exc) - throw Exception(0, 0, + throw Exception( &method_name, exc); } @@ -206,9 +275,9 @@ static void _removeAttribute(Request& r, const String& name=params->as_string(0, "name must be string"); GdomeException exc; - gdome_el_removeAttribute(element, pool.transcode(name), &exc); + gdome_el_removeAttribute(element, pool.transcode(name).get(), &exc); if(exc) - throw Exception(0, 0, + throw Exception( &method_name, exc); } @@ -220,12 +289,12 @@ static void _getAttributeNode(Request& r const String& name=params->as_string(0, "name must be string"); GdomeException exc; - if(GdomeAttr *attr=gdome_el_getAttributeNode(element, pool.transcode(name), &exc)) { + if(GdomeAttr *attr=gdome_el_getAttributeNode(element, pool.transcode(name).get(), &exc)) { // write out result VXnode& result=*new(pool) VXnode(pool, (GdomeNode *)attr); r.write_no_lang(result); } else if(exc) - throw Exception(0, 0, + throw Exception( &method_name, exc); } @@ -242,7 +311,7 @@ static void _setAttributeNode(Request& r VXnode& result=*new(pool) VXnode(pool, (GdomeNode *)returnAttr); r.write_no_lang(result); } else - throw Exception(0, 0, + throw Exception( &method_name, exc); } @@ -256,9 +325,9 @@ static void _removeAttributeNode(Request GdomeException exc; gdome_el_removeAttributeNode(element, oldAttr, &exc); if(exc) - throw Exception(0, 0, - &method_name, - exc); + throw Exception( + &method_name, + exc); } // NodeList getElementsByTagName(in DOMString name); @@ -271,7 +340,7 @@ static void _getElementsByTagName(Reques VHash& result=*new(pool) VHash(pool); GdomeException exc; if(GdomeNodeList *nodes= - gdome_el_getElementsByTagName(element, pool.transcode(name), &exc)) { + gdome_el_getElementsByTagName(element, pool.transcode(name).get(), &exc)) { gulong length=gdome_nl_length(nodes, &exc); for(gulong i=0; ias_string(0, "namespaceURI must be string"); + const String& localName=params->as_string(1, "localName must be string"); + + GdomeException exc; + VHash& result=*new(pool) VHash(pool); + if(GdomeNodeList *nodes= + gdome_el_getElementsByTagNameNS( + element, + pool.transcode(namespaceURI).get(), + pool.transcode(localName).get(), + &exc)) { + gulong length=gdome_nl_length(nodes, &exc); + for(gulong i=0; i(r.self); // expression const String& expression=params->as_string(0, "expression must be string"); - const char *expression_cstr=expression.cstr(); - XalanDOMString dstring(expression_cstr); - const XalanDOMChar *expression_dcstr=dstring.c_str(); - - XPathEvaluator evaluator; - // We'll use these to parse the XML file. - XalanSourceTreeDOMSupport dom_support; - - try { - NodeRefList list=evaluator.selectNodeList(dom_support, - &vnode.get_node(&method_name), - expression_dcstr); - VHash& result=*new(pool) VHash(pool); - for(int i=0; inode=gdome_xml_n_get_xmlNode(dome_node); + /*error to stderr for now*/ + xmlXPathObject_auto_ptr res( + xmlXPathEvalExpression(BAD_CAST pool.transcode(expression)->str, ctxt.get())); + + if(xmlHaveGenericErrors()) { + GdomeException exc=0; + throw Exception(&expression, exc); + } + + Value *result=0; + if(res.get()) + handler(pool, expression, res, result); + if(result) + r.write_no_lang(*result); +} + +static void selectNodesHandler(Pool& pool, + const String& expression, + xmlXPathObject_auto_ptr res, + Value *& result) { + VHash *vhash=new(pool) VHash(pool); result=vhash; + switch(res->type) { + case XPATH_UNDEFINED: + break; + case XPATH_NODESET: + if(res->nodesetval) + if(int size=res->nodesetval->nodeNr) { + Hash& hash=vhash->hash(0); + for(int i=0; inodesetval->nodeTab[i]))); + } } + break; + default: + throw Exception(0, + &expression, + "wrong xmlXPathEvalExpression result type (%d)", res->type); + break; // never + } +} - result.hash(0).put(skey, new(pool) VXnode(pool, list.item(i), false)); +static void selectNodeHandler(Pool& pool, + const String& expression, + xmlXPathObject_auto_ptr res, + 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=new(pool) VXnode(pool, gdome_xml_n_mkref(res->nodesetval->nodeTab[0])); } - result.set_name(method_name); - r.write_no_lang(result); - } catch(const XSLException& e) { - Exception::provide_source(pool, &expression, e); + break; + case XPATH_BOOLEAN: + result=new(pool) VBool(pool, res->boolval!=0); + break; + case XPATH_NUMBER: + result=new(pool) VDouble(pool, res->floatval); + break; + case XPATH_STRING: + result=new(pool) VString( + pool.transcode( + GdomeDOMString_auto_ptr( + gdome_str_mkref_dup((const gchar *)res->stringval)).get())); + break; + default: + throw Exception("parser.runtime", + &expression, + "wrong xmlXPathEvalExpression result type (%d)", res->type); + break; // never } } -static void _selectSingle(Request& r, const String& method_name, MethodParams *params) { -// _asm int 3; - Pool& pool=r.pool(); - VXnode& vnode=*static_cast(r.self); - - // expression - const String& expression=params->as_string(0, "expression must be string"); +static void selectBoolHandler(Pool& pool, + const String& expression, + xmlXPathObject_auto_ptr res, + Value *& result) { + switch(res->type) { + case XPATH_BOOLEAN: + result=new(pool) VBool(pool, 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 + } +} - GdomeException exc; - GdomeDocument *document=gdome_n_ownerDocument(vnode, &exc); - xmlXPathContext *ctxt=xmlXPathNewContext(document); - ctxt->node = xmlDocGetRootElement(document); - xmlXPathObject *res = xmlXPathEvalExpression(BAD_CAST str, ctxt); - if(ctxt->error) { - if(res) - xmlXPathFreeObject(res); - xmlXPathFreeContext(ctxt); - - throw Exception(0, 0, - expression, - "bad xpath expression (%d)", ctxt->error); +static void selectNumberHandler(Pool& pool, + const String& expression, + xmlXPathObject_auto_ptr res, + Value *& result) { + switch(res->type) { + case XPATH_NUMBER: + result=new(pool) VDouble(pool, 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 } +} - xmlXPathFreeObject(res); - xmlXPathFreeContext(ctxt); -zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz - - const char *expression_cstr=expression.cstr(); - XalanDOMString dstring(expression_cstr); - const XalanDOMChar *expression_dcstr=dstring.c_str(); - - XPathEvaluator evaluator; - // Initialize the XalanSourceTree subsystem... -// XalanSourceTreeInit theSourceTreeInit; - // We'll use these to parse the XML file. - XalanSourceTreeDOMSupport dom_support; - - try { - if(GdomeNode *node=evaluator.selectSingleNode(dom_support, - &vnode.get_node(&method_name), - expression_dcstr)) { - - VXnode& result=*new(pool) VXnode(pool, node, false); - result.set_name(method_name); - r.write_no_lang(result); - } - } catch(const XSLException& e) { - Exception::provide_source(pool, &expression, e); +static void selectStringHandler(Pool& pool, + const String& expression, + xmlXPathObject_auto_ptr res, + Value *& result) { + switch(res->type) { + case XPATH_UNDEFINED: + break; + case XPATH_STRING: + result=new(pool) VString( + pool.transcode( + GdomeDOMString_auto_ptr( + gdome_str_mkref_dup((const gchar *)res->stringval)).get())); + 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(Request& r, const String& method_name, MethodParams *params) { + _selectX(r, method_name, params, + selectNodesHandler); +} + +static void _selectSingle(Request& r, const String& method_name, MethodParams *params) { + _selectX(r, method_name, params, + selectNodeHandler); +} + +static void _selectBool(Request& r, const String& method_name, MethodParams *params) { + _selectX(r, method_name, params, + selectBoolHandler); +} + +static void _selectNumber(Request& r, const String& method_name, MethodParams *params) { + _selectX(r, method_name, params, + selectNumberHandler); +} + +static void _selectString(Request& r, const String& method_name, MethodParams *params) { + _selectX(r, method_name, params, + selectStringHandler); +} + // constructor -MXnode::MXnode(Pool& apool) : Methoded(apool), - consts(apool) { - set_name(*NEW String(pool(), XNODE_CLASS_NAME)); +MXnode::MXnode(Pool& apool, const char *aname, VStateless_class *abase) : + Methoded(apool, aname?aname:"xnode", abase), + consts(apool) +{ /// DOM1 node // Node insertBefore(in Node newChild,in Node refChild) raises(DOMException); @@ -432,6 +642,8 @@ MXnode::MXnode(Pool& apool) : Methoded(a 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); @@ -439,8 +651,14 @@ MXnode::MXnode(Pool& apool) : Methoded(a // ^node.select[/some/xpath/query] = hash $.#[dnode] add_native_method("select", Method::CT_DYNAMIC, _select, 1, 1); - // ^node.selectSingle[/some/xpath/query] = first dnode + // ^node.selectSingle[/some/xpath/query] = first node [if any] 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