Post-convert fixes
Removed intermediate `trunk` directories used for branching in SVN
"{ Package: 'stx:goodies/xmlsuite/xquery' }"
"{ NameSpace: XQuery }"
XDMAdaptor subclass:#ConstructedNodeXDMAdaptor
instanceVariableNames:'xdmAccessor'
classVariableNames:''
poolDictionaries:''
category:'XQuery-XDM'
!
ConstructedNodeXDMAdaptor class instanceVariableNames:'instance'
"
No other class instance variables are inherited by this class.
"
!
!ConstructedNodeXDMAdaptor class methodsFor:'documentation'!
documentation
"
Document adaptor for constructed XQuery items. Originally the class has
different functionality and was rewriten many times, so there are still
some strange codes. The code clean-up is required.
[author:]
[instance variables:]
[class variables:]
[see also:]
"
! !
!ConstructedNodeXDMAdaptor class methodsFor:'accessing'!
documentClass
^self
"Created: / 02-11-2006 / 11:51:56 / ked"
"Modified: / 03-11-2006 / 11:29:24 / ked"
!
instance
instance ifNil:[
instance := self new.
].
^ instance
"Created: / 03-11-2006 / 11:19:39 / ked"
! !
!ConstructedNodeXDMAdaptor methodsFor:'accessing'!
documentURI
^ '#xquery-constructed-document'.
"Created: / 12-06-2009 / 23:33:58 / Jan Kurs <kursj1@fel.cvut.cz>"
!
itemKind
^ ConstructedNodeKind instance.
"Created: / 27-06-2009 / 18:38:31 / Jan Kurs <kursj1@fel.cvut.cz>"
"Modified: / 07-10-2009 / 10:29:01 / Jan Kurs <kursj1@fel.cvut.cz>"
!
xdmAccessor
xdmAccessor ifNil: [
xdmAccessor := XDMAccessors instance.
].
^ xdmAccessor
"Modified: / 29-09-2009 / 12:17:21 / Jan Kurs <kursj1@fel.cvut.cz>"
!
xdmAccessor:something
xdmAccessor := something.
! !
!ConstructedNodeXDMAdaptor methodsFor:'checking'!
ensureIsValidNodeId:anObject
^self
"Created: / 03-11-2006 / 11:28:23 / ked"
!
ensureNotReleased
^self
"Created: / 03-11-2006 / 12:19:28 / ked"
! !
!ConstructedNodeXDMAdaptor methodsFor:'deprecated'!
xpathDocumentOf: aNodeId
"this method could be deleted???"
self shouldNeverBeReached.
aNodeId nodeParent
ifNil:[ ^ aNodeId. ]
ifNotNil:[ ^ self xpathDocumentOf:aNodeId nodeParent. ].
"Modified: / 03-11-2006 / 20:53:39 / ked"
"Created: / 14-12-2006 / 23:25:54 / janfrog"
"Modified: / 22-06-2009 / 17:48:52 / Jan Kurs <kursj1@fel.cvut.cz>"
! !
!ConstructedNodeXDMAdaptor methodsFor:'item changing'!
addAttribute: attribute of: constructedItem
| attributes |
self shouldNeverBeSent.
attributes := self xdmAccessor dmAttributesFor: constructedItem.
attributes add: attribute.
self xdmAccessor dmAttributes: attributes for: constructedItem.
"Created: / 26-07-2009 / 15:46:23 / Jan Kurs <kursj1@fel.cvut.cz>"
"Modified: / 07-10-2009 / 12:28:13 / Jan Kurs <kursj1@fel.cvut.cz>"
!
addChild: childNode of: constructedItem
| children |
self shouldNeverBeSent.
children := self xdmAccessor dmChildrenFor: constructedItem.
children add: childNode.
self xdmAccessor dmChildren: children for: constructedItem.
"Created: / 26-07-2009 / 15:50:38 / Jan Kurs <kursj1@fel.cvut.cz>"
"Modified: / 07-10-2009 / 12:28:28 / Jan Kurs <kursj1@fel.cvut.cz>"
!
nodeParent: element of: nodeId
self shouldNeverBeSent.
self xdmAccessor dmParent: element for: nodeId.
"Created: / 26-07-2009 / 15:46:45 / Jan Kurs <kursj1@fel.cvut.cz>"
"Modified: / 07-10-2009 / 12:30:10 / Jan Kurs <kursj1@fel.cvut.cz>"
!
nodeValue: value of: nodeId
self shouldNeverBeSent.
nodeId itemValue: value.
"Created: / 26-07-2009 / 15:44:55 / Jan Kurs <kursj1@fel.cvut.cz>"
"Modified: / 07-10-2009 / 12:30:14 / Jan Kurs <kursj1@fel.cvut.cz>"
! !
!ConstructedNodeXDMAdaptor methodsFor:'node importing'!
importingBuilderClass
"Superclass XMLv2::XPathDocumentAdaptor says that I am responsible to implement this method"
self shouldImplement
! !
!ConstructedNodeXDMAdaptor methodsFor:'resource management'!
primReleaseResources
^self
"Created: / 12-12-2006 / 10:46:25 / janfrog"
! !
!ConstructedNodeXDMAdaptor methodsFor:'xdm accessors'!
dmAttributes: constructedItem
^ self xdmAccessor dmAttributesFor: constructedItem .
"Created: / 15-09-2009 / 19:34:27 / Jan Kurs <kursj1@fel.cvut.cz>"
"Modified: / 29-09-2009 / 12:18:07 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmBaseUri: constructedItem
^ self xdmAccessor dmBaseUriFor: constructedItem .
"Modified: / 29-09-2009 / 11:58:00 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmChildren: constructedItem
^ self xdmAccessor dmChildrenFor: constructedItem .
"Created: / 29-09-2009 / 12:18:21 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmDocumentUri: constructedItem
^ self xdmAccessor dmDocumentUriFor: constructedItem .
"Created: / 29-09-2009 / 12:18:36 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmNodeKind: constructedItem
^ self xdmAccessor dmNodeKindFor: constructedItem.
"Created: / 15-09-2009 / 20:29:16 / Jan Kurs <kursj1@fel.cvut.cz>"
"Modified: / 29-09-2009 / 12:56:21 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmNodeName: constructedItem
^ self xdmAccessor dmNodeNameFor: constructedItem .
"Created: / 29-09-2009 / 12:19:06 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmParent: constructedItem
^ self xdmAccessor dmParentFor: constructedItem .
"Created: / 29-09-2009 / 12:19:20 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmStringValue: constructedItem
^ self xdmAccessor dmStringValueFor: constructedItem .
"Created: / 29-09-2009 / 12:19:45 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmTypeName: constructedItem
^ self xdmAccessor dmTypeNameFor: constructedItem .
"Created: / 29-09-2009 / 12:19:57 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmTypedValue: constructedItem
^ self xdmAccessor dmTypedValueFor: constructedItem .
"Created: / 29-09-2009 / 12:20:08 / Jan Kurs <kursj1@fel.cvut.cz>"
! !
!ConstructedNodeXDMAdaptor methodsFor:'xdm setters'!
dmAttributes: attributes for: constructedItem
^ self xdmAccessor dmAttributes: attributes for: constructedItem .
"Created: / 07-10-2009 / 12:26:48 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmBaseUri: baseUri for: constructedItem
^ self xdmAccessor dmBaseUri: baseUri for: constructedItem .
"Created: / 03-10-2009 / 13:41:29 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmChildren: children for: constructedItem
^ self xdmAccessor dmChildren: children for: constructedItem .
"Created: / 07-10-2009 / 12:30:56 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmNodeKind: nodeKind for: constructedItem
self xdmAccessor dmNodeKind: nodeKind for: constructedItem .
"Created: / 03-10-2009 / 13:48:21 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmNodeName: nodeName for: constructedItem
self xdmAccessor dmNodeName: nodeName for: constructedItem .
"Created: / 03-10-2009 / 14:23:55 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmParent: parent for: constructedItem
self xdmAccessor dmParent: parent for: constructedItem .
"Created: / 03-10-2009 / 17:43:47 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmStringValue: stringValue for: constructedItem
self xdmAccessor dmStringValue: stringValue for: constructedItem .
"Created: / 03-10-2009 / 13:52:29 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmTypeName: typeName for: constructedItem
self xdmAccessor dmTypeName: typeName for: constructedItem .
"Created: / 03-10-2009 / 13:49:25 / Jan Kurs <kursj1@fel.cvut.cz>"
!
dmTypedValue: typedValue for: constructedItem
self xdmAccessor dmTypedValue: typedValue for: constructedItem .
"Created: / 03-10-2009 / 13:48:21 / Jan Kurs <kursj1@fel.cvut.cz>"
! !
!ConstructedNodeXDMAdaptor class methodsFor:'documentation'!
version_SVN
^ '$Id$'
! !