From fe7380600b725245ec1a693476a4bf83c7824171 Mon Sep 17 00:00:00 2001
From: hns <hannesw@gmail.com>
Date: Sat, 8 Sep 2001 17:47:08 +0000
Subject: [PATCH] Implemented possibility to call back into an already running
 Evaluator. Implemented JavaScript replacement evaluation for mimicking
 IPathElement interface.

---
 src/helma/framework/core/Application.java | 24 +++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/src/helma/framework/core/Application.java b/src/helma/framework/core/Application.java
index 04ef3967..41b1b1e9 100644
--- a/src/helma/framework/core/Application.java
+++ b/src/helma/framework/core/Application.java
@@ -717,6 +717,21 @@ public class Application extends UnicastRemoteObject implements IRemoteApp, IRep
 	return debug;
     }
 
+    private Object invokeFunction (Object obj, String func, Object[] args) {
+	Thread thread = Thread.currentThread ();
+	RequestEvaluator reval = null;
+	int l = allThreads.size();
+	for (int i=0; i<l; i++) {
+	    RequestEvaluator r = (RequestEvaluator) allThreads.get (i);
+	    if (r != null && r.rtx == thread)
+	        reval = r;
+	}
+	if (reval != null) try {
+	    return reval.invokeDirectFunction (obj, func, args);
+	} catch (Exception x) {}
+	return null;
+    }
+
     //////////////////////////////////////////////////////////////////////////////////////////////////////////
     ///   The following methods minic the IPathElement interface. This allows as
     ///   to script any Java object: If the object implements IPathElement (as does
@@ -731,6 +746,9 @@ public class Application extends UnicastRemoteObject implements IRemoteApp, IRep
     public String getElementName (Object obj) {
 	if (obj instanceof IPathElement)
 	    return ((IPathElement) obj).getElementName ();
+	Object retval = invokeFunction (obj, "getElementName", null);
+	if (retval != null)
+	    return retval.toString ();
 	return null;
     }
 
@@ -740,7 +758,9 @@ public class Application extends UnicastRemoteObject implements IRemoteApp, IRep
     public Object getChildElement (Object obj, String name) {
 	if (obj instanceof IPathElement)
 	    return ((IPathElement) obj).getChildElement (name);
-	return null;
+	Object[] arg = new Object[1];
+	arg[0] = name;
+	return invokeFunction (obj, "getChildElement", arg);
     }
 
     /**
@@ -749,7 +769,7 @@ public class Application extends UnicastRemoteObject implements IRemoteApp, IRep
     public Object getParentElement (Object obj) {
 	if (obj instanceof IPathElement)
 	    return ((IPathElement) obj).getParentElement ();
-	return null;
+	return invokeFunction (obj, "getParentElement", null);
     }