--- parser3/src/classes/xdoc.C	2001/10/15 11:48:04	1.16
+++ parser3/src/classes/xdoc.C	2001/10/18 06:38:11	1.19
@@ -4,7 +4,7 @@
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: xdoc.C,v 1.16 2001/10/15 11:48:04 parser Exp $
+	$Id: xdoc.C,v 1.19 2001/10/18 06:38:11 parser Exp $
 */
 #include "classes.h"
 #ifdef XML
@@ -388,10 +388,7 @@ static void create_optioned_listener(
 					String(pool, XDOC_OUTPUT_ENCODING_OPTION_NAME)))) {
 					scharset=&vencoding->as_string();
 				}
-			} else
-				PTHROW(0, 0,
-					&method_name,
-					"options must be hash");
+			}
 		}
 	}
 
@@ -554,6 +551,44 @@ static void _set(Request& r, const Strin
 	vdoc.set_parsed_source(*parsedSource);
 }
 
+static void _create(Request& r, const String& method_name, MethodParams *params) {
+	Pool& pool=r.pool();
+	VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
+
+	Value& vqualifiedName=params->as_junction(0, "qualifiedName must be code");
+	Temp_lang temp_lang(r, String::UL_XML);
+	const String& qualifiedName=r.process(vqualifiedName).as_string();
+
+	String xml(pool, "<?xml version=\"1.0\"?>\n");
+	xml << "<" << qualifiedName << " />";
+
+	std::istrstream stream(xml.cstr());
+
+	const XalanParsedSource* parsedSource;
+
+	try {
+		parsedSource = new XalanDefaultParsedSource2(&stream);
+	}
+	catch (XSLException& e)	{
+		pool.exception()._throw(pool, &method_name, e);
+	}
+	catch (SAXParseException& e)	{
+		pool.exception()._throw(pool, &method_name, e);
+	}
+	catch (SAXException& e)	{
+		pool.exception()._throw(pool, &method_name, e);
+	}
+	catch (XMLException& e) {
+		pool.exception()._throw(pool, &method_name, e);
+	}
+	catch(const XalanDOMException& e)	{
+		pool.exception()._throw(pool, &method_name, e);
+	}
+
+	// replace any previous parsed source
+	vdoc.set_parsed_source(*parsedSource);
+}
+
 static void _load(Request& r, const String& method_name, MethodParams *params) {
 	Pool& pool=r.pool();
 	VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
@@ -727,6 +762,8 @@ MXdoc::MXdoc(Pool& apool) : MXnode(apool
 
 	// ^xdoc::set[<some>xml</some>]
 	add_native_method("set", Method::CT_DYNAMIC, _set, 1, 1);
+	// ^xdoc::create{qualifiedName}
+	add_native_method("create", Method::CT_DYNAMIC, _create, 1, 1);	
 
 	// ^xdoc::load[some.xml]
 	add_native_method("load", Method::CT_DYNAMIC, _load, 1, 1);