--- parser3/src/classes/xdoc.C	2002/04/18 15:54:39	1.92
+++ 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.92 2002/04/18 15:54:39 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);
@@ -332,15 +400,13 @@ GdomeElement *gdome_doc_createElementNS
 GdomeAttr *gdome_doc_createAttributeNS (GdomeDocument *self, GdomeDOMString *namespaceURI, GdomeDOMString *qualifiedName, GdomeException *exc);
 */
 
-
 static void _create(Request& r, const String& method_name, MethodParams *params) {
-	//_asm int 3;
 	Pool& pool=r.pool();
 	VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
 
-	Value& param=params->get(0);
+	Value& param=params->get(params->size()-1);
 	GdomeDocument *document;
-	if(param.get_junction()) { // {<tag/>}
+	if(param.get_junction()) { // {<?xml?>...}
 		Temp_lang temp_lang(r, String::UL_XML);
 		const String& xml=r.process_to_string(param);
 
@@ -383,6 +449,18 @@ static void _create(Request& r, const St
 
 		/// +xalan createXMLDecl ?
 	}
+	
+	// URI 
+	const char *URI_cstr;
+	if(params->size()>1) { // absolute(param)
+		const String& URI=params->as_string(0, "URI must be string");
+		URI_cstr=r.absolute(URI).cstr();
+	} else // default = disk path to requested document
+		URI_cstr=r.info.path_translated;
+	xmlDoc *doc=gdome_xml_doc_get_xmlDoc(document);
+	if(URI_cstr)
+		doc->URL=pool.transcode_buf2xchar(URI_cstr, strlen(URI_cstr));
+
 	// replace any previous parsed source
 	vdoc.set_document(document);
 }
@@ -630,34 +708,9 @@ static void add_xslt_param(const Hash::K
 	*current_transform_param++=pool.transcode(aattribute)->str;
 	*current_transform_param++=pool.transcode(meaning->as_string())->str;
 }
-static void _transform(Request& r, const String& method_name, MethodParams *params) {
-	//_asm int 3;
-	Pool& pool=r.pool();
-	VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
-
-	// params
-	const char **transform_params=0;
-	if(params->size()>1) {
-		Value& vparams=params->as_no_junction(1, "transform parameters must be hash");
-		if(vparams.is_defined())
-			if(Hash *params=vparams.get_hash(&method_name)) {
-				const char **current_transform_param=transform_params=
-					(const char **)pool.malloc(sizeof(const char *)*(params->size()*2+1));
-				params->for_each(add_xslt_param, &current_transform_param);
-				transform_params[params->size()*2]=0;				
-			} else
-				throw Exception("parser.runtime",
-					&method_name,
-					"transform parameters parameter must be hash");
-	}
-
-	// stylesheet
-	const String& stylesheet_filespec=r.absolute(params->as_string(0, "file name must be string"));
-	Stylesheet_connection_ptr connection=stylesheet_manager->get_connection(stylesheet_filespec);
-
-	// prepare to transform
-	xsltStylesheet *stylesheet=connection->stylesheet(false/*nocache*/);
-	xmlDoc *document=gdome_xml_doc_get_xmlDoc(vdoc.get_document(&method_name));
+static VXdoc& _transform(Pool& pool, const String *doc_source, const String *stylesheet_source, 
+						 VXdoc& vdoc, xsltStylesheetPtr stylesheet, const char **transform_params) {
+	xmlDoc *document=gdome_xml_doc_get_xmlDoc(vdoc.get_document(doc_source));
 	xsltTransformContext_auto_ptr transformContext(
 		xsltNewTransformContext(stylesheet, document));
 	// make params literal
@@ -675,7 +728,7 @@ static void _transform(Request& r, const
 	if(!transformed || xmlHaveGenericErrors()) {
 		GdomeException exc=0;
 		throw Exception(
-			&stylesheet_filespec, 
+			stylesheet_source, 
 			exc);
 	}
 
@@ -685,7 +738,7 @@ static void _transform(Request& r, const
 	GdomeDocument *gdomeDocument=gdome_xml_doc_mkref(transformed);
 	if(!gdomeDocument)
 		throw Exception(0,
-			&method_name,
+			doc_source,
 			"gdome_xml_doc_mkref failed");
 	VXdoc& result=*new(pool) VXdoc(pool, gdomeDocument);
 	/* grabbing options
@@ -716,8 +769,67 @@ static void _transform(Request& r, const
 	oo.standalone=stylesheet->standalone!=0;
 	oo.omitXmlDeclaration=stylesheet->omitXmlDeclaration!=0;
 
+	// return
+	return result;
+}
+static void _transform(Request& r, const String& method_name, MethodParams *params) {
+	Pool& pool=r.pool();
+	VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
+
+	// params
+	const char **transform_params=0;
+	if(params->size()>1) {
+		Value& vparams=params->as_no_junction(1, "transform parameters must be hash");
+		if(vparams.is_defined())
+			if(Hash *params=vparams.get_hash(&method_name)) {
+				const char **current_transform_param=transform_params=
+					(const char **)pool.malloc(sizeof(const char *)*(params->size()*2+1));
+				params->for_each(add_xslt_param, &current_transform_param);
+				transform_params[params->size()*2]=0;				
+			} else
+				throw Exception("parser.runtime",
+					&method_name,
+					"transform parameters parameter must be hash");
+	}
+
+	VXdoc *result;
+	Value& vmaybe_xdoc=params->get(0);
+	if(Value *vxdoc=vmaybe_xdoc.as(VXDOC_TYPE, false)) { // stylesheet (xdoc)
+		xmlDoc *document=gdome_xml_doc_get_xmlDoc(
+			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
+		// we don't need that
+		stylesheet_ptr->doc=0;
+		if(xmlHaveGenericErrors()) {
+			GdomeException exc=0;
+			throw Exception(&method_name, exc);
+		}
+		if(!stylesheet_ptr.get())
+			throw Exception("xml",
+				&method_name,
+				"stylesheet failed to compile");
+
+		// transform!
+		result=&_transform(pool, &method_name, &method_name,
+			vdoc, stylesheet_ptr.get(),
+			transform_params);
+	} else { // stylesheet (file name)
+		// extablish stylesheet connection
+		const String& stylesheet_filespec=
+			r.absolute(params->as_string(0, "stylesheet must be file name (string) or DOM document (xdoc)"));
+		Stylesheet_connection_ptr connection=stylesheet_manager->get_connection(stylesheet_filespec);
+
+		// load and compile file to stylesheet [or get cached if any]
+		// transform!
+		result=&_transform(pool, &method_name, &stylesheet_filespec,
+			vdoc, connection->stylesheet(false/*nocache*/),
+			transform_params);
+	}
+
 	// write out result
-	r.write_no_lang(result);
+	r.write_no_lang(*result);
 }
 
 // constructor
@@ -742,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
 
@@ -751,11 +865,15 @@ 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}
-	// ^xdoc::_create[<some>xml</some>]
-	add_native_method("create", Method::CT_DYNAMIC, _create, 1, 1);	
+	// ^xdoc::create[<some>xml</some>]
+	// ^xdoc::create[URI][<some>xml</some>]
+	add_native_method("create", Method::CT_DYNAMIC, _create, 1, 2);	
 	// for backward compatibility with <=v 1.82 2002/01/31 11:51:46 paf
 	add_native_method("set", Method::CT_DYNAMIC, _create, 1, 1);
 
@@ -774,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);
 
 }