--- parser3/src/classes/xnode.C	2003/07/24 11:31:20	1.56
+++ parser3/src/classes/xnode.C	2005/08/09 08:14:48	1.71
@@ -1,13 +1,13 @@
 /** @file
 	Parser: @b dom parser class.
 
-	Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)
+	Copyright (c) 2001-2005 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 #include "classes.h"
 #ifdef XML
 
-static const char* IDENT_XNODE_C="$Date: 2003/07/24 11:31:20 $";
+static const char * const IDENT_XNODE_C="$Date: 2005/08/09 08:14:48 $";
 
 #include "pa_vmethod_frame.h"
 
@@ -16,15 +16,11 @@ static const char* IDENT_XNODE_C="$Date:
 #include "pa_vxnode.h"
 #include "pa_vxdoc.h"
 #include "pa_vvoid.h"
+#include "pa_xml_exception.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"
+#include "libxml/xpathInternals.h"
 
 // global variable
 
@@ -110,7 +106,6 @@ GdomeNode* as_node(MethodParams& params,
 		throw Exception("parser.runtime",
 			0,
 			msg);
-		result=0; // calm, compiler
 	}
 
 	return result;
@@ -144,9 +139,9 @@ static void _insertBefore(Request& r, Me
 	GdomeException exc;
 	if(GdomeNode* retNode=gdome_n_insertBefore(selfNode, newChild, refChild, &exc)) {
 		// write out result
-		r.write_no_lang(*new VXnode(&r.charsets, retNode));
+		r.write_no_lang(*new VXnode(&r.charsets, vnode.get_xdoc(), retNode));
 	} else
-		throw Exception(0, exc);
+		throw XmlException(0, exc);
 }
 
 // Node replaceChild(in Node newChild,in Node oldChild) raises(DOMException);
@@ -154,14 +149,14 @@ static void _replaceChild(Request& r, Me
 	VXnode& vnode=GET_SELF(r, VXnode);
 	GdomeNode* selfNode=vnode.get_node();
 	GdomeNode* newChild=as_node(params, 0, "newChild must be node");
-	GdomeNode* refChild=as_node(params, 1, "refChild must be node");
+	GdomeNode* oldChild=as_node(params, 1, "oldChild must be node");
 	
 	GdomeException exc;
-	if(GdomeNode* retNode=gdome_n_replaceChild(selfNode, newChild, refChild, &exc)) {
+	if(GdomeNode* retNode=gdome_n_replaceChild(selfNode, newChild, oldChild, &exc)) {
 		// write out result
-		r.write_no_lang(*new VXnode(&r.charsets, retNode));
+		r.write_no_lang(*new VXnode(&r.charsets, vnode.get_xdoc(), retNode));
 	} else
-		throw Exception(0, exc);
+		throw XmlException(0, exc);
 }
 
 // Node removeChild(in Node oldChild) raises(DOMException);
@@ -173,9 +168,9 @@ static void _removeChild(Request& r, Met
 	GdomeException exc;
 	if(GdomeNode* retNode=gdome_n_removeChild(selfNode, oldChild, &exc)) {
 		// write out result
-		r.write_no_lang(*new VXnode(&r.charsets, retNode));
+		r.write_no_lang(*new VXnode(&r.charsets, vnode.get_xdoc(), retNode));
 	} else
-		throw Exception(0, exc);
+		throw XmlException(0, exc);
 }
 
 // Node appendChild(in Node newChild) raises(DOMException);
@@ -187,9 +182,9 @@ static void _appendChild(Request& r, Met
 	GdomeException exc;
 	if(GdomeNode* retNode=gdome_n_appendChild(selfNode, newChild, &exc)) {
 		// write out result
-		r.write_no_lang(*new VXnode(&r.charsets, retNode));		
+		r.write_no_lang(*new VXnode(&r.charsets, vnode.get_xdoc(), retNode));
 	}  else
-		throw Exception(0, exc);
+		throw XmlException(0, exc);
 }
 
 // boolean hasChildNodes();
@@ -212,13 +207,12 @@ static void _cloneNode(Request& r, Metho
 
 	GdomeException exc;
 	// write out result
-	r.write_no_lang(*new VXnode(&r.charsets, gdome_n_cloneNode(node, deep, &exc)));
+	r.write_no_lang(*new VXnode(&r.charsets, vnode.get_xdoc(), gdome_n_cloneNode(node, deep, &exc)));
 }
 
 // DOM1 element
 
-GdomeElement* get_self_element(Request& r) {
-	VXnode& vnode=GET_SELF(r, VXnode);
+GdomeElement* get_self_element(VXnode& vnode) {
 	GdomeNode* node=vnode.get_node();
 
 	GdomeException exc;
@@ -232,21 +226,23 @@ GdomeElement* get_self_element(Request&
 
 
 
-// DOMString getAttribute(in DOMString name);
+/// @bug attribute_value must be freed!  [// DOMString getAttribute(in DOMString name);
 static void _getAttribute(Request& r, MethodParams& params) {
-	GdomeElement* element=get_self_element(r);
+	VXnode& vnode=GET_SELF(r, VXnode);
+	GdomeElement* element=get_self_element(vnode);
 	const String& name=params.as_string(0, "name must be string");
 
 	GdomeException exc;
 	GdomeDOMString *attribute_value=
 		gdome_el_getAttribute(element, r.transcode(name).use(), &exc);
 	// write out result
-	r.write_no_lang(r.transcode(attribute_value));
+	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) {
-	GdomeElement* element=get_self_element(r);
+	VXnode& vnode=GET_SELF(r, VXnode);
+	GdomeElement* element=get_self_element(vnode);
 	const String& name=params.as_string(0, "name must be string");
 	const String& attribute_value=params.as_string(1, "value must be string");
 
@@ -256,67 +252,66 @@ static void _setAttribute(Request& r, Me
 		r.transcode(attribute_value).use(),
 		&exc);
 	if(exc)
-		throw Exception(0, exc);
+		throw XmlException(0, exc);
 }
 
 // void removeAttribute(in DOMString name) raises(DOMException);
 static void _removeAttribute(Request& r, MethodParams& params) {
-	GdomeElement* element=get_self_element(r);
+	VXnode& vnode=GET_SELF(r, VXnode);
+	GdomeElement* element=get_self_element(vnode);
 	const String& name=params.as_string(0, "name must be string");
 
 	GdomeException exc;
 	gdome_el_removeAttribute(element, r.transcode(name).use(), &exc);
 	if(exc)
-		throw Exception(0, exc);
+		throw XmlException(0, exc);
 }
 
 // Attr getAttributeNode(in DOMString name);
 static void _getAttributeNode(Request& r, MethodParams& params) {
-	GdomeElement* element=get_self_element(r);
+	VXnode& vnode=GET_SELF(r, VXnode);
+	GdomeElement* element=get_self_element(vnode);
 	const String& name=params.as_string(0, "name must be string");
 
 	GdomeException exc;
 	if(GdomeAttr *attr=gdome_el_getAttributeNode(element, 
 		r.transcode(name).use(), &exc)) {
 		// write out result
-		r.write_no_lang(*new VXnode(&r.charsets, (GdomeNode* )attr));
+		r.write_no_lang(*new VXnode(&r.charsets, vnode.get_xdoc(), (GdomeNode* )attr));
 	} else if(exc)
-		throw Exception(
-			0, 
-			exc);
+		throw XmlException(0, exc);
 }	
 
 // Attr setAttributeNode(in Attr newAttr) raises(DOMException);
 static void _setAttributeNode(Request& r, MethodParams& params) {
-	GdomeElement* element=get_self_element(r);
+	VXnode& vnode=GET_SELF(r, VXnode);
+	GdomeElement* element=get_self_element(vnode);
 	GdomeAttr * newAttr=as_attr(params, 0, "newAttr must be ATTRIBUTE node");
 
 	GdomeException exc;
 	if(GdomeAttr *returnAttr=gdome_el_setAttributeNode(element, newAttr, &exc)) {
 		// write out result
-		r.write_no_lang(*new VXnode(&r.charsets, (GdomeNode* )returnAttr));
+		r.write_no_lang(*new VXnode(&r.charsets, vnode.get_xdoc(), (GdomeNode* )returnAttr));
 	} else
-		throw Exception(
-			0, 
-			exc);
+		throw XmlException(0, exc);
 }	
 
 // Attr removeAttributeNode(in Attr oldAttr) raises(DOMException);
 static void _removeAttributeNode(Request& r, MethodParams& params) {
-	GdomeElement* element=get_self_element(r);
+	VXnode& vnode=GET_SELF(r, VXnode);
+	GdomeElement* element=get_self_element(vnode);
 	GdomeAttr * oldAttr=as_attr(params, 0, "oldAttr must be ATTRIBUTE node");
 
 	GdomeException exc;
 	gdome_el_removeAttributeNode(element, oldAttr, &exc);
 	if(exc)
-		throw Exception(
-			0, 
-			exc);
+		throw XmlException(0, exc);
 }	
 
 // NodeList getElementsByTagName(in DOMString name);
 static void _getElementsByTagName(Request& r, MethodParams& params) {
-	GdomeElement* element=get_self_element(r);
+	VXnode& vnode=GET_SELF(r, VXnode);
+	GdomeElement* element=get_self_element(vnode);
 
 	const String& name=params.as_string(0, "name must be string");
 
@@ -327,19 +322,133 @@ static void _getElementsByTagName(Reques
 		gulong length=gdome_nl_length(nodes, &exc);
 		for(gulong i=0; i<length; i++)
 			result.hash().put(
-				StringBody::Format(i), 
-				new VXnode(&r.charsets, gdome_nl_item(nodes, i, &exc)));
+				String::Body::Format(i), 
+				new VXnode(&r.charsets, vnode.get_xdoc(), gdome_nl_item(nodes, i, &exc)));
 	} else if(exc)
-		throw Exception(
-			0, 
-			exc);
+		throw XmlException(0, exc);
 
 	// 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);
+	GdomeElement* element=get_self_element(vnode);
+	
+	const String& namespaceURI=params.as_string(0, "namespaceURI must be string");
+	const String& localName=params.as_string(0, "localName must be string");
+
+	GdomeException exc;
+	GdomeDOMString *attribute_value=
+		gdome_el_getAttributeNS(element, 
+			r.transcode(namespaceURI).use(),
+			r.transcode(localName).use(), &exc);
+	// 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);
+	GdomeElement* element=get_self_element(vnode);
+	const String& namespaceURI=params.as_string(0, "namespaceURI must be string");
+	const String& qualifiedName=params.as_string(1, "qualifiedName must be string");
+	const String& attribute_value=params.as_string(2, "value must be string");
+
+	GdomeException exc;
+	gdome_el_setAttributeNS(element,
+		r.transcode(namespaceURI).use(),
+		r.transcode(qualifiedName).use(), 
+		r.transcode(attribute_value).use(),
+		&exc);
+	if(exc)
+		throw XmlException(0, exc);
+}
+
+// void removeAttributeNS(in DOMString namespaceURI, in DOMString localName) raises(DOMException);
+static void _removeAttributeNS(Request& r, MethodParams& params) {
+	VXnode& vnode=GET_SELF(r, VXnode);
+	GdomeElement* element=get_self_element(vnode);
+	const String& namespaceURI=params.as_string(0, "namespaceURI must be string");
+	const String& localName=params.as_string(1, "localName must be string");
+
+	GdomeException exc;
+	gdome_el_removeAttributeNS(element, 
+	r.transcode(namespaceURI).use(),
+	r.transcode(localName).use(), 
+	&exc);
+	if(exc)
+		throw XmlException(0, exc);
+}
+
+// Attr getAttributeNodeNS(in DOMString namespaceURI, in DOMString localName);
+static void _getAttributeNodeNS(Request& r, MethodParams& params) {
+	VXnode& vnode=GET_SELF(r, VXnode);
+	GdomeElement* element=get_self_element(vnode);
+	const String& namespaceURI=params.as_string(0, "namespaceURI must be string");
+	const String& name=params.as_string(1, "name must be string");
+
+	GdomeException exc;
+	if(GdomeAttr *attr=gdome_el_getAttributeNodeNS(element, 
+		r.transcode(namespaceURI).use(), r.transcode(name).use(), &exc)) {
+		// write out result
+		r.write_no_lang(*new VXnode(&r.charsets, vnode.get_xdoc(), (GdomeNode* )attr));
+	} else if(exc)
+		throw XmlException(0, exc);
+}
+
+// Attr setAttributeNodeNS(in Attr newAttr) raises(DOMException);
+static void _setAttributeNodeNS(Request& r, MethodParams& params) {
+	VXnode& vnode=GET_SELF(r, VXnode);
+	GdomeElement* element=get_self_element(vnode);
+	GdomeAttr * newAttr=as_attr(params, 0, "newAttr must be ATTRIBUTE node");
+
+	GdomeException exc;
+	if(GdomeAttr *returnAttr=gdome_el_setAttributeNodeNS(element, newAttr, &exc)) {
+		// write out result
+		r.write_no_lang(*new VXnode(&r.charsets, vnode.get_xdoc(), (GdomeNode* )returnAttr));
+	} else
+		throw XmlException(0, exc);
+}
+
+// boolean hasAttribute(in DOMString name) raises(DOMException);
+static void _hasAttribute(Request& r, MethodParams& params) {
+	VXnode& vnode=GET_SELF(r, VXnode);
+	GdomeElement* element=get_self_element(vnode);
+
+	const String& name=params.as_string(0, "name must be string");
+
+	GdomeException exc;
+	// write out result
+	bool result=gdome_el_hasAttribute(element, 
+	r.transcode(name).use(),
+	&exc)!=0;
+	r.write_no_lang(*new VBool(result));
+}
+
+// boolean hasAttributeNS(n DOMString namespaceURI, in DOMString localName) raises(DOMException);
+static void _hasAttributeNS(Request& r, MethodParams& params) {
+	VXnode& vnode=GET_SELF(r, VXnode);
+	GdomeElement* element=get_self_element(vnode);
+
+	const String& namespaceURI=params.as_string(0, "namespaceURI must be string");
+	const String& localName=params.as_string(1, "localName must be string");
+
+	GdomeException exc;
+	// write out result
+	bool result=gdome_el_hasAttributeNS(element, 
+	r.transcode(namespaceURI).use(),
+	r.transcode(localName).use(),
+	&exc)!=0;
+	r.write_no_lang(*new VBool(result));
+}
+
 static void _getElementsByTagNameNS(Request& r, MethodParams& params) {
-	GdomeElement* element=get_self_element(r);
+	VXnode& vnode=GET_SELF(r, VXnode);
+	GdomeElement* element=get_self_element(vnode);
 
 	// namespaceURI;localName
 	const String& namespaceURI=params.as_string(0, "namespaceURI must be string");
@@ -356,8 +465,8 @@ static void _getElementsByTagNameNS(Requ
 		gulong length=gdome_nl_length(nodes, &exc);
 		for(gulong i=0; i<length; i++)
 			result.hash().put(
-				StringBody::Format(i), 
-				new VXnode(&r.charsets, gdome_nl_item(nodes, i, &exc)));
+				String::Body::Format(i), 
+				new VXnode(&r.charsets, vnode.get_xdoc(), gdome_nl_item(nodes, i, &exc)));
 	}
 
 	// write out result
@@ -372,21 +481,38 @@ static void _normalize(Request& r, Metho
 	GdomeException exc;
 	gdome_n_normalize(selfNode, &exc);
 	if(exc)
-		throw Exception(
-			0, 
-			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, 
+			BAD_CAST info->r->transcode(key)->str, 
+			BAD_CAST info->r->transcode(*svalue)->str);
+	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);
 
 	// expression
 	const String& expression=params.as_string(0, "expression must be string");
-
 	GdomeException exc;
 	GdomeNode* dome_node=vnode.get_node();
 	GdomeDocument *dome_document=gdome_n_ownerDocument(dome_node, &exc);
@@ -394,6 +520,10 @@ static void _selectX(Request& r, MethodP
 		dome_document=GDOME_DOC(dome_node); // and we need downcast
 	xmlDoc *xml_document=gdome_xml_doc_get_xmlDoc(dome_document);
 	xmlXPathContext_auto_ptr ctxt(xmlXPathNewContext(xml_document));
+	{
+		Register_one_ns_info info={&r, ctxt.get()};
+		vnode.get_xdoc().search_namespaces.hash().for_each(register_one_ns, &info);
+	}
 	ctxt->node=gdome_xml_n_get_xmlNode(dome_node);
 	/*error to stderr for now*/
 	xmlXPathObject_auto_ptr res(
@@ -401,12 +531,12 @@ static void _selectX(Request& r, MethodP
 
 	if(xmlHaveGenericErrors()) {
 		GdomeException exc=0;
-		throw Exception(&expression, exc);
+		throw XmlException(&expression, exc);
 	}
 
 	Value* result=0;
    	if(res.get())
-		handler(r, expression, res, result);
+		handler(r, expression, res, vnode.get_xdoc(), result);
 	if(result)
 		r.write_no_lang(*result);
 }
@@ -414,6 +544,7 @@ static void _selectX(Request& r, MethodP
 static void selectNodesHandler(Request& r,
 			       const String& expression,
 			       xmlXPathObject_auto_ptr res,
+				   VXdoc& xdoc,
 			       Value*& result) {
 	VHash& vhash=*new VHash;  result=&vhash;
 	switch(res->type) {
@@ -425,9 +556,10 @@ static void selectNodesHandler(Request&
 				HashStringValue& hash=vhash.hash();
 				for(int i=0; i<size; i++)
 					hash.put(
-						StringBody::Format(i), 
+						String::Body::Format(i), 
 						new VXnode(
 							&r.charsets, 
+							xdoc,
 							gdome_xml_n_mkref(res->nodesetval->nodeTab[i])));
 			}
 		break;
@@ -441,8 +573,9 @@ static void selectNodesHandler(Request&
 
 static void selectNodeHandler(Request& r,
 			      const String& expression,
-			      xmlXPathObject_auto_ptr res,
-			      Value*& result) {
+				  xmlXPathObject_auto_ptr res,
+				  VXdoc& xdoc,
+				  Value*& result) {
 	switch(res->type) {
 	case XPATH_UNDEFINED: 
 		break;
@@ -455,6 +588,7 @@ static void selectNodeHandler(Request& r
 			
 			result=new VXnode(
 				&r.charsets, 
+				xdoc,
 				gdome_xml_n_mkref(res->nodesetval->nodeTab[0]));
 		}
 		break;
@@ -476,9 +610,10 @@ static void selectNodeHandler(Request& r
 	}
 }
 
-static void selectBoolHandler(Request& r,
+static void selectBoolHandler(Request&,
 			      const String& expression,
 			      xmlXPathObject_auto_ptr res,
+				  VXdoc& /*xdoc*/,
 			      Value*& result) {
 	switch(res->type) {
 	case XPATH_BOOLEAN: 
@@ -496,9 +631,10 @@ static void selectBoolHandler(Request& r
 	}
 }
 
-static void selectNumberHandler(Request& r,
+static void selectNumberHandler(Request&,
 				const String& expression,
 				xmlXPathObject_auto_ptr res,
+				VXdoc& /*xdoc*/,
 				Value*& result) {
 	switch(res->type) {
 	case XPATH_NUMBER: 
@@ -519,6 +655,7 @@ static void selectNumberHandler(Request&
 static void selectStringHandler(Request& r,
 							  const String& expression,
 							  xmlXPathObject_auto_ptr res,
+							  VXdoc& /*xdoc*/,
 							  Value*& result) {
 	switch(res->type) {
 	case XPATH_UNDEFINED: 
@@ -605,6 +742,23 @@ MXnode::MXnode(const char* aname, VState
 	// 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, _setAttributeNodeNS, 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);
+
 	/// parser
 	// ^node.select[/some/xpath/query] = hash $.#[dnode]
 	add_native_method("select", Method::CT_DYNAMIC, _select, 1, 1);
@@ -621,7 +775,7 @@ MXnode::MXnode(const char* aname, VState
 	// consts
 
 #define CONST(name) \
-	consts.put(StringBody(#name), new VInt(GDOME_##name))
+	consts.put(String::Body(#name), new VInt(GDOME_##name))
 
 	CONST(ELEMENT_NODE);
 	CONST(ATTRIBUTE_NODE);