--- parser3/src/classes/xnode.C	2002/01/11 12:24:27	1.22
+++ parser3/src/classes/xnode.C	2002/01/24 13:26:01	1.30
@@ -4,7 +4,7 @@
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexander Petrosyan <paf@design.ru> (http://paf.design.ru)
 
-	$Id: xnode.C,v 1.22 2002/01/11 12:24:27 paf Exp $
+	$Id: xnode.C,v 1.30 2002/01/24 13:26:01 paf Exp $
 */
 #include "classes.h"
 #ifdef XML
@@ -12,13 +12,14 @@
 #include "pa_charset.h"
 #include "pa_request.h"
 #include "pa_vxnode.h"
+#include "pa_vvoid.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"
 
@@ -26,8 +27,8 @@ extern "C" {
 
 class xmlXPathObject_auto_ptr {
 public:
-	explicit xmlXPathObject_auto_ptr(xmlXPathObject *_P = 0) 
-		: _Owns(_P != 0), _Ptr(_P) {}
+	explicit xmlXPathObject_auto_ptr(xmlXPathObject *_APtr = 0) 
+		: _Owns(_APtr != 0), _Ptr(_APtr) {}
 	xmlXPathObject_auto_ptr(const xmlXPathObject_auto_ptr& _Y) 
 		: _Owns(_Y._Owns), _Ptr(_Y.release()) {}
 	xmlXPathObject_auto_ptr& operator=(const xmlXPathObject_auto_ptr& _Y) 
@@ -59,8 +60,8 @@ private:
 
 class xmlXPathContext_auto_ptr {
 public:
-	explicit xmlXPathContext_auto_ptr(xmlXPathContext *_P = 0) 
-		: _Owns(_P != 0), _Ptr(_P) {}
+	explicit xmlXPathContext_auto_ptr(xmlXPathContext *_APtr = 0) 
+		: _Owns(_APtr != 0), _Ptr(_APtr) {}
 	xmlXPathContext_auto_ptr(const xmlXPathContext_auto_ptr& _Y) 
 		: _Owns(_Y._Owns), _Ptr(_Y.release()) {}
 	xmlXPathContext_auto_ptr& operator=(const xmlXPathContext_auto_ptr& _Y) 
@@ -331,8 +332,8 @@ static void _removeAttributeNode(Request
 	gdome_el_removeAttributeNode(element, oldAttr, &exc);
 	if(exc)
 		throw Exception(0, 0, 
-		&method_name, 
-		exc);
+			&method_name, 
+			exc);
 }	
 
 // NodeList getElementsByTagName(in DOMString name);
@@ -359,8 +360,8 @@ static void _getElementsByTagName(Reques
 		}
 	} else if(exc)
 		throw Exception(0, 0, 
-		&method_name, 
-		exc);
+			&method_name, 
+			exc);
 
 	// write out result
 	r.write_no_lang(result);
@@ -376,49 +377,15 @@ static void _normalize(Request& r, const
 	gdome_n_normalize(selfNode, &exc);
 	if(exc)
 		throw Exception(0, 0, 
-		&method_name, 
-		exc);
+			&method_name, 
+			exc);
 }
-/*
-static void _select(Request& r, const String& method_name, MethodParams *params) {
-//	_asm int 3;
-	Pool& pool=r.pool();
-	VXnode& vnode=*static_cast<VXnode *>(r.self);
-
-	// expression
-	const String& expression=params->as_string(0, "expression must be string");
-	const char *expression_cstr=expression.cstr();
-	XalanDOMString dstring(expression_cstr);
-	const XalanDOMChar *expression_dcstr=dstring.c_str();
-
-	XPathEvaluator evaluator;
-	// We'll use these to parse the XML file.
-	XalanSourceTreeDOMSupport dom_support;
-
-	try {
-		NodeRefList list=evaluator.selectNodeList(dom_support, 
-			&vnode.get_node(&method_name), 
-			expression_dcstr);
-
-		VHash& result=*new(pool) VHash(pool);
-		for(int i=0; i<list.getLength(); 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, list.item(i), false));
-		}
-		result.set_name(method_name);
-		r.write_no_lang(result);
-	} catch(const XSLException& e) {
-		Exception::provide_source(pool, &expression, e);
-	}
-}
-*/
-static void _selectSingle(Request& r, const String& method_name, MethodParams *params) {
+static void _selectX(Request& r, const String& method_name, MethodParams *params,
+					 void (*handler)(Pool& pool,
+							  const String& expression, 
+							  xmlXPathObject_auto_ptr res,
+							  Value *& result)) {
 //	_asm int 3;
 	Pool& pool=r.pool();
 	VXnode& vnode=*static_cast<VXnode *>(r.self);
@@ -438,32 +405,180 @@ static void _selectSingle(Request& r, co
 	xmlXPathObject_auto_ptr res(
 		xmlXPathEvalExpression(BAD_CAST pool.transcode(expression)->str, ctxt.get()));
 
+	if(xmlHaveGenericErrors()) {
+		GdomeException exc=0;
+		throw Exception(0, 0,
+			&expression, 
+			exc);
+	}
+
+	Value *result=0;
    	if(res.get())
-		switch(res->type) {
-		case XPATH_UNDEFINED: break;
-		case XPATH_NODESET: 
-			{
-				if(res->nodesetval->nodeNr>1)
-					throw Exception(0, 0,
-					&expression,
-					"resulted not in a single node (%d)", res->nodesetval->nodeNr);
-				
-				VXnode& result=*new(pool) VXnode(
-					pool, 
-					gdome_xml_n_mkref(res->nodesetval->nodeTab[0]));
-				result.set_name(method_name);
-				r.write_no_lang(result);
-				break;
+		handler(pool, expression, res, result);
+	if(result) {
+		result->set_name(method_name);
+		r.write_no_lang(*result);
+	}
+}
+
+static void selectNodesHandler(Pool& pool,
+							  const String& expression,
+							  xmlXPathObject_auto_ptr res,
+							  Value *& result) {
+	switch(res->type) {
+	case XPATH_UNDEFINED: 
+		break;
+	case XPATH_NODESET:
+		if(int size=res->nodesetval->nodeNr) {
+			VHash *vhash=new(pool) VHash(pool);
+			Hash& hash=vhash->hash(0);
+			for(int i=0; i<size; i++) {
+				String& skey=*new(pool) String(pool);
+				{
+					char *buf=(char *)pool.malloc(MAX_NUMBER);
+					snprintf(buf, MAX_NUMBER, "%d", i);
+					skey << buf;
+				}
+
+				hash.put(skey, new(pool) VXnode(pool, 
+					gdome_xml_n_mkref(res->nodesetval->nodeTab[i])));
 			}
-		//case XPATH_BOOLEAN: nothing; break;
-		//case XPATH_NUMBER: nothing; break;
-		//case XPATH_STRING: nothing; break;
-		default: 
-			throw Exception(0, 0,
+			result=vhash;
+		}
+		break;
+	default: 
+		throw Exception(0, 0,
+			&expression,
+			"wrong xmlXPathEvalExpression result type (%d)", res->type);
+		break; // never
+	}
+}
+
+static void selectNodeHandler(Pool& pool,
+							  const String& expression,
+							  xmlXPathObject_auto_ptr res,
+							  Value *& result) {
+	switch(res->type) {
+	case XPATH_UNDEFINED: 
+		break;
+	case XPATH_NODESET: 
+		if(res->nodesetval->nodeNr) { // empty result strangly has NODESET  res->type
+			if(res->nodesetval->nodeNr>1)
+				throw Exception(0, 0,
 				&expression,
-				"unrecognized xmlXPathEvalExpression result type (%d)", res->type);
-			break; // never
+				"resulted not in a single node (%d)", res->nodesetval->nodeNr);
+			
+			result=new(pool) VXnode(pool, gdome_xml_n_mkref(res->nodesetval->nodeTab[0]));
 		}
+		break;
+	case XPATH_BOOLEAN: 
+		result=new(pool) VBool(pool, res->boolval!=0);
+		break;
+	case XPATH_NUMBER: 
+		result=new(pool) VDouble(pool, res->floatval);
+		break;
+	case XPATH_STRING:
+		result=new(pool) VString(
+			pool.transcode(
+				GdomeDOMString_auto_ptr(
+					gdome_str_mkref_dup((const gchar *)res->stringval)).get()));
+		break;
+	default: 
+		throw Exception(0, 0,
+			&expression,
+			"wrong xmlXPathEvalExpression result type (%d)", res->type);
+		break; // never
+	}
+}
+
+static void selectBoolHandler(Pool& pool,
+							  const String& expression,
+							  xmlXPathObject_auto_ptr res,
+							  Value *& result) {
+	switch(res->type) {
+	case XPATH_BOOLEAN: 
+		result=new(pool) VBool(pool, res->boolval!=0);
+		break;
+	case XPATH_NODESET: 
+		if(!res->nodesetval->nodeNr)
+			break;
+		// else[nodeset] fall down to default
+	default: 
+		throw Exception(0, 0,
+			&expression,
+			"wrong xmlXPathEvalExpression result type (%d)", res->type);
+		break; // never
+	}
+}
+
+static void selectNumberHandler(Pool& pool,
+							  const String& expression,
+							  xmlXPathObject_auto_ptr res,
+							  Value *& result) {
+	switch(res->type) {
+	case XPATH_NUMBER: 
+		result=new(pool) VDouble(pool, res->floatval);
+		break;
+	case XPATH_NODESET:
+		if(!res->nodesetval->nodeNr)
+			break;
+		// else[nodeset] fall down to default
+	default: 
+		throw Exception(0, 0,
+			&expression,
+			"wrong xmlXPathEvalExpression result type (%d)", res->type);
+		break; // never
+	}
+}
+
+static void selectStringHandler(Pool& pool,
+							  const String& expression,
+							  xmlXPathObject_auto_ptr res,
+							  Value *& result) {
+	switch(res->type) {
+	case XPATH_UNDEFINED: 
+		break;
+	case XPATH_STRING:
+		result=new(pool) VString(
+			pool.transcode(
+				GdomeDOMString_auto_ptr(
+					gdome_str_mkref_dup((const gchar *)res->stringval)).get()));
+		break;
+	case XPATH_NODESET: 
+		if(!res->nodesetval->nodeNr)
+			break;
+		// else[nodeset] fall down to default
+	default: 
+		throw Exception(0, 0,
+			&expression,
+			"wrong xmlXPathEvalExpression result type (%d)", res->type);
+		break; // never
+	}
+}
+
+static void _select(Request& r, const String& method_name, MethodParams *params) {
+	_selectX(r, method_name, params,
+		selectNodesHandler);
+}
+
+static void _selectSingle(Request& r, const String& method_name, MethodParams *params) {
+	_selectX(r, method_name, params,
+		selectNodeHandler);
+}
+
+static void _selectBool(Request& r, const String& method_name, MethodParams *params) {
+	_selectX(r, method_name, params,
+		selectBoolHandler);
+}
+
+static void _selectNumber(Request& r, const String& method_name, MethodParams *params) {
+	_selectX(r, method_name, params,
+		selectNumberHandler);
+}
+
+static void _selectString(Request& r, const String& method_name, MethodParams *params) {
+	_selectX(r, method_name, params,
+		selectStringHandler);
 }
 
 // constructor
@@ -508,10 +623,16 @@ MXnode::MXnode(Pool& apool) : Methoded(a
 
 	/// parser
 	// ^node.select[/some/xpath/query] = hash $.#[dnode]
-//	add_native_method("select", Method::CT_DYNAMIC, _select, 1, 1);
+	add_native_method("select", Method::CT_DYNAMIC, _select, 1, 1);
 
-	// ^node.selectSingle[/some/xpath/query] = first dnode
+	// ^node.selectSingle[/some/xpath/query] = first node [if any]
 	add_native_method("selectSingle", Method::CT_DYNAMIC, _selectSingle, 1, 1);
+	// ^node.selectBool[/some/xpath/query] = bool value [if any]
+	add_native_method("selectBool", Method::CT_DYNAMIC, _selectBool, 1, 1);
+	// ^node.selectNumber[/some/xpath/query] = double value [if any]
+	add_native_method("selectNumber", Method::CT_DYNAMIC, _selectNumber, 1, 1);
+	// ^node.selectString[/some/xpath/query] = strinv value [if any]
+	add_native_method("selectString", Method::CT_DYNAMIC, _selectString, 1, 1);
 
 	// consts