--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/xquery/trunk/XQuery__DocumentAccessor.st Wed Apr 07 12:37:26 2010 +0000
@@ -0,0 +1,42 @@
+"{ Package: 'stx:goodies/xmlsuite/xquery' }"
+
+"{ NameSpace: XQuery }"
+
+XDMAccessors subclass:#DocumentAccessor
+ instanceVariableNames:'baseUri'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'XQuery-Sequence'
+!
+
+
+!DocumentAccessor methodsFor:'xdm accessors - private'!
+
+primDmChildrenFor: xdm
+ xdm children ifNil:
+ [
+ ^ OrderedCollection new.
+ ]
+ ifNotNil:
+ [
+ ^ xdm children.
+ ].
+
+ "Created: / 03-10-2009 / 14:13:35 / Jan Kurs <kursj1@fel.cvut.cz>"
+! !
+
+!DocumentAccessor methodsFor:'xdm setters - private'!
+
+primDmNodeName: nodeName for: xdm
+ " there is no such property"
+ ^ self
+
+ "Created: / 03-10-2009 / 13:32:16 / Jan Kurs <kursj1@fel.cvut.cz>"
+ "Modified: / 06-10-2009 / 16:50:03 / Jan Kurs <kursj1@fel.cvut.cz>"
+! !
+
+!DocumentAccessor class methodsFor:'documentation'!
+
+version_SVN
+ ^ '$Id$'
+! !