--- parser3/src/classes/xdoc.C	2002/06/28 09:59:00	1.95
+++ parser3/src/classes/xdoc.C	2002/08/19 09:48:39	1.99
@@ -3,12 +3,13 @@
 
 	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
-
-	$Id: xdoc.C,v 1.95 2002/06/28 09:59:00 paf Exp $
 */
+
 #include "classes.h"
 #ifdef XML
 
+static const char* IDENT_XDOC_C="$Date: 2002/08/19 09:48:39 $";
+
 #include "pa_stylesheet_connection.h"
 #include "pa_request.h"
 #include "pa_vxdoc.h"
@@ -285,6 +286,73 @@ static void _createEntityReference(Reque
 	writeNode(r, method_name, node, exc);
 }
 
+// NodeList getElementsByTagName(in DOMString name);
+static void _getElementsByTagName(Request& r, const String& method_name, MethodParams *params) {
+	Pool& pool=r.pool();
+	VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
+
+	const String& name=params->as_string(0, "name must be string");
+
+	VHash& result=*new(pool) VHash(pool);
+	GdomeException exc;
+	if(GdomeNodeList *nodes=
+		gdome_doc_getElementsByTagName(
+			vdoc.get_document(&method_name), 
+			pool.transcode(name).get(), 
+			&exc)) {
+		gulong length=gdome_nl_length(nodes, &exc);
+		for(gulong i=0; i<length; i++) {
+			String& skey=*new(pool) String(pool);
+			{
+				char *buf=(char *)pool.malloc(MAX_NUMBER);
+				snprintf(buf, MAX_NUMBER, "%d", i);
+				skey << buf;
+			}
+
+			result.hash(0).put(skey, new(pool) VXnode(pool, gdome_nl_item(nodes, i, &exc)));
+		}
+	} else if(exc)
+		throw Exception(
+			&method_name, 
+			exc);
+
+	// write out result
+	r.write_no_lang(result);
+}
+
+static void _getElementsByTagNameNS(Request& r, const String& method_name, MethodParams *params) {
+	Pool& pool=r.pool();
+	VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
+
+	// namespaceURI;localName
+	const String& namespaceURI=params->as_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_doc_getElementsByTagNameNS(
+			vdoc.get_document(&method_name), 
+			pool.transcode(namespaceURI).get(),
+			pool.transcode(localName).get(),
+			&exc)) {
+		gulong length=gdome_nl_length(nodes, &exc);
+		for(gulong i=0; i<length; i++) {
+			String& skey=*new(pool) String(pool);
+			{
+				char *buf=(char *)pool.malloc(MAX_NUMBER);
+				snprintf(buf, MAX_NUMBER, "%d", i);
+				skey << buf;
+			}
+
+			result.hash(0).put(skey, new(pool) VXnode(pool, gdome_nl_item(nodes, i, &exc)));
+		}
+	}
+
+	// write out result
+	r.write_no_lang(result);
+}
+
 static void _getElementById(Request& r, const String& method_name, MethodParams *params) {
 	Pool& pool=r.pool();
 	VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
@@ -726,9 +794,9 @@ static void _transform(Request& r, const
 
 	VXdoc *result;
 	Value& vmaybe_xdoc=params->get(0);
-	if(strcmp(vmaybe_xdoc.type(), VXDOC_TYPE)==0) { // stylesheet (xdoc)
+	if(Value *vxdoc=vmaybe_xdoc.as(VXDOC_TYPE, false)) { // stylesheet (xdoc)
 		xmlDoc *document=gdome_xml_doc_get_xmlDoc(
-			static_cast<VXdoc *>(&vmaybe_xdoc)->get_document(&method_name));
+			static_cast<VXdoc *>(vxdoc)->get_document(&method_name));
 		// compile xdoc stylesheet
 		xsltStylesheet_auto_ptr stylesheet_ptr(xsltParseStylesheetDoc(document)); 
 		// strange thing - xsltParseStylesheetDoc records document and destroys it in stylesheet destructor
@@ -786,6 +854,8 @@ MXdoc::MXdoc(Pool& apool) : MXnode(apool
 	add_native_method("createAttribute", Method::CT_DYNAMIC, _createAttribute, 1, 1);
 	// EntityReference createEntityReference(in DOMString name) raises(DOMException);
 	add_native_method("createEntityReference", Method::CT_DYNAMIC, _createEntityReference, 1, 1);
+	// NodeList getElementsByTagName(in DOMString name);
+	add_native_method("getElementsByTagName", Method::CT_DYNAMIC, _getElementsByTagName, 1, 1);
 
 	/// DOM2
 
@@ -795,6 +865,9 @@ MXdoc::MXdoc(Pool& apool) : MXnode(apool
     // Node (in Node importedNode, in boolean deep) raises(DOMException)
 	add_native_method("importNode", Method::CT_DYNAMIC, _importNode, 2, 2);
 
+	// NodeList getElementsByTagNameNS(in DOMString namespaceURI, in DOMString localName);
+	add_native_method("getElementsByTagNameNS", Method::CT_DYNAMIC, _getElementsByTagNameNS, 2, 2);
+
 	/// parser
 	
 	// ^xdoc::create{qualifiedName}
@@ -819,8 +892,8 @@ MXdoc::MXdoc(Pool& apool) : MXnode(apool
 	// ^xdoc.file[options hash] file with "<doc/>"
 	add_native_method("file", Method::CT_DYNAMIC, _file, 0, 1);
 
-	// ^xdoc.transform[stylesheet file_name]
-	// ^xdoc.transform[stylesheet file_name;params hash]
+	// ^xdoc.transform[stylesheet file_name/xdoc]
+	// ^xdoc.transform[stylesheet file_name/xdoc;params hash]
 	add_native_method("transform", Method::CT_DYNAMIC, _transform, 1, 2);
 
 }