--- parser3/src/classes/Attic/dnode.C	2001/09/18 12:25:06	1.1
+++ parser3/src/classes/Attic/dnode.C	2001/09/20 07:31:51	1.3
@@ -5,7 +5,7 @@
 
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 */
-static const char *RCSId="$Id: dnode.C,v 1.1 2001/09/18 12:25:06 parser Exp $"; 
+static const char *RCSId="$Id: dnode.C,v 1.3 2001/09/20 07:31:51 parser Exp $"; 
 
 #if _MSC_VER
 #	pragma warning(disable:4291)   // disable warning 
@@ -15,10 +15,10 @@ static const char *RCSId="$Id: dnode.C,v
 #include "classes.h"
 #include "pa_request.h"
 #include "pa_vdnode.h"
+
 #include "dnode.h"
 
 #include <util/XMLString.hpp>
-//#include <XalanSourceTree/XalanSourceTreeInit.hpp>
 #include <XalanSourceTree/XalanSourceTreeDOMSupport.hpp>
 #include <XPath/XPathEvaluator.hpp>
 #include <XPath/NodeRefList.hpp>
@@ -31,10 +31,10 @@ static const char *RCSId="$Id: dnode.C,v
 
 // methods
 
-static void _xpath(Request& r, const String& method_name, MethodParams *params) {
+static void _select(Request& r, const String& method_name, MethodParams *params) {
 //	_asm int 3;
 	Pool& pool=r.pool();
-	VDnode& vdnode=*static_cast<VDnode *>(r.self);
+	VDnode& vnode=*static_cast<VDnode *>(r.self);
 
 	// expression
 	const String& expression=params->as_string(0, "expression must not be code");
@@ -50,7 +50,7 @@ static void _xpath(Request& r, const Str
 
 	try {
 		NodeRefList list=evaluator.selectNodeList(dom_support, 
-			&vdnode.get_node(pool, &method_name), 
+			&vnode.get_node(pool, &method_name), 
 			expression_dcstr);
 
 		VHash& result=*new(pool) VHash(pool);
@@ -71,13 +71,47 @@ static void _xpath(Request& r, const Str
 	}
 }
 
+static void _select_single(Request& r, const String& method_name, MethodParams *params) {
+//	_asm int 3;
+	Pool& pool=r.pool();
+	VDnode& vnode=*static_cast<VDnode *>(r.self);
+
+	// expression
+	const String& expression=params->as_string(0, "expression must not be code");
+	const char *expression_cstr=expression.cstr(String::UL_AS_IS);
+	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(XalanNode *node=evaluator.selectSingleNode(dom_support, 
+			&vnode.get_node(pool, &method_name), 
+			expression_dcstr)) {
+
+			VDnode& result=*new(pool) VDnode(pool, node);
+			result.set_name(method_name);
+			r.write_no_lang(result);
+		}
+	} catch(const XSLException& e) {
+		_throw(pool, &expression, e);
+	}
+}
+
 // constructor
 
 MDnode::MDnode(Pool& apool) : Methoded(apool) {
 	set_name(*NEW String(pool(), DNODE_CLASS_NAME));
 
-	// ^node.xpath[/some/xpath/query]
-	add_native_method("xpath", Method::CT_DYNAMIC, _xpath, 1, 1);
+	// ^node.select[/some/xpath/query] = hash $.#[dnode]
+	add_native_method("select", Method::CT_DYNAMIC, _select, 1, 1);
+
+	// ^node.select-single[/some/xpath/query] = first dnode
+	add_native_method("select-single", Method::CT_DYNAMIC, _select_single, 1, 1);
 
 }
 // global variable