--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/xquery/XQuery__VariableProxy.st Tue May 12 12:20:53 2015 +0100
@@ -0,0 +1,88 @@
+"{ Package: 'stx:goodies/xmlsuite/xquery' }"
+
+"{ NameSpace: XQuery }"
+
+Perseus::VariableProxy subclass:#VariableProxy
+ instanceVariableNames:'nativeContext'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'XQuery-Debugging-Model'
+!
+
+
+!VariableProxy methodsFor:'accessing'!
+
+name
+ ^ name
+
+ "Created: / 18-09-2008 / 18:13:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+name:something
+ name := something.
+
+ "Created: / 18-09-2008 / 18:13:56 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+nativeContext
+ ^ nativeContext
+
+ "Created: / 18-09-2008 / 18:13:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+nativeContext:something
+ nativeContext := something.
+
+ "Created: / 18-09-2008 / 18:13:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+typeName
+ "Superclass Perseus::VariableProxy says that I am responsible to implement this method"
+
+ ^self value typeName
+
+ "Created: / 18-09-2008 / 18:14:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 20-04-2010 / 20:40:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+value
+ "Superclass Perseus::VariableProxy says that I am responsible to implement this method"
+
+ ^nativeContext variableAt: name
+
+ "Created: / 18-09-2008 / 18:14:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+value: anObject
+ "Superclass Perseus::VariableProxy says that I am responsible to implement this method"
+
+ ^nativeContext variableAt: name put: anObject
+
+ "Created: / 18-09-2008 / 18:14:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+valueString
+
+ | value |
+ value := self value.
+ ^value isAtomicValue
+ ifTrue:[value value printString]
+ ifFalse:[value dmStringValue]
+
+ "Created: / 20-04-2010 / 20:58:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!VariableProxy methodsFor:'converting'!
+
+asDocumentFragment
+
+ ^self value asDocumentFragment
+
+ "Created: / 23-04-2010 / 11:46:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!VariableProxy class methodsFor:'documentation'!
+
+version_SVN
+ ^ '$Id$'
+! !