--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/xquery/XQuery__XQueryExecutor.st	Tue May 12 12:20:53 2015 +0100
@@ -0,0 +1,136 @@
+"{ Package: 'stx:goodies/xmlsuite/xquery' }"
+
+"{ NameSpace: XQuery }"
+
+Object subclass:#XQueryExecutor
+	instanceVariableNames:'interpreter'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'XQuery-Compat'
+!
+
+
+!XQueryExecutor class methodsFor:'instance creation'!
+
+new
+    ^ self basicNew initialize.
+
+    "Created: / 29-08-2007 / 09:39:50 / janfrog"
+! !
+
+!XQueryExecutor methodsFor:'accessing'!
+
+documentProvider
+
+    <resource: #obsolete>
+
+    ^interpreter documentProvider
+
+    "Created: / 19-10-2006 / 23:12:33 / ked"
+    "Modified: / 10-12-2006 / 13:30:28 / janfrog"
+    "Modified: / 18-09-2008 / 16:38:56 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+documentProvider:aDocumentProvider
+
+    <resource: #obsolete>
+    self obsoleteMethodWarning.
+    
+    self setDocumentProvider: aDocumentProvider
+
+    "Created: / 19-10-2006 / 23:12:33 / ked"
+    "Modified: / 10-12-2006 / 13:28:58 / janfrog"
+!
+
+xqueryInterpreterClass
+    ^ XQueryInterpreter
+
+    "Created: / 14-11-2007 / 11:25:27 / janfrog"
+! !
+
+!XQueryExecutor methodsFor:'accessing - document'!
+
+documentAdaptorsFor: aURI
+
+    <resource: #obsolete>
+
+    ^interpreter documentAdaptorsFor: aURI
+
+    "Modified: / 02-12-2006 / 11:59:45 / ked"
+    "Created: / 20-09-2007 / 10:34:10 / janfrog"
+    "Modified: / 18-09-2008 / 16:38:37 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+releaseDocumentAdaptors
+
+    <resource: #obsolete>
+
+    ^interpreter releaseDocumentAdaptors
+
+    "Created: / 25-10-2006 / 09:24:43 / ked"
+    "Modified: / 02-11-2006 / 10:28:44 / ked"
+    "Modified: / 18-09-2008 / 16:38:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!XQueryExecutor methodsFor:'evaluation'!
+
+evaluate: aString
+
+    "Provided for compatibility with @class XMLv2::XPathProcessor"
+
+    ^interpreter evaluate: aString
+
+    "Created: / 10-12-2006 / 13:32:17 / janfrog"
+    "Modified: / 18-09-2008 / 17:14:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!XQueryExecutor methodsFor:'initialization'!
+
+initialize
+    "Invoked when a new instance is created."
+    "/ please change as required (and remove this comment)
+    "/ astTree := nil.
+    "/ documentProvider := nil.
+    "/ documentAdaptorsPool := nil.
+    "/ super initialize.   -- commented since inherited method does nothing
+    
+    interpreter := self xqueryInterpreterClass new
+
+    "Created: / 29-08-2007 / 09:39:50 / janfrog"
+    "Modified: / 14-11-2007 / 11:25:27 / janfrog"
+!
+
+setDocumentAdaptor: aDocumentAdaptor
+
+    "Ignored. Provided fr compatilibility with @class XPathProcessor"
+
+    "Created: / 10-12-2006 / 13:30:13 / janfrog"
+!
+
+setDocumentProvider: aDocumentProvider
+
+    <resource: #obsolete>
+
+    interpreter setDocumentProvider: aDocumentProvider
+
+    "Created: / 10-12-2006 / 13:29:28 / janfrog"
+    "Modified: / 18-09-2008 / 16:38:47 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!XQueryExecutor methodsFor:'libraries'!
+
+loadFunctionLibrary: aFunctionLibrary
+
+    <resource: #obsolete>
+
+    interpreter loadFunctionLibrary: aFunctionLibrary
+
+    "Created: / 29-08-2007 / 09:39:23 / janfrog"
+    "Modified: / 18-09-2008 / 16:40:28 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!XQueryExecutor class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id$'
+! !