xquery/XQuery__XPathElementTest.st
author Patrik Svestka <patrik.svestka@gmail.com>
Wed, 14 Nov 2018 13:13:37 +0100
changeset 306 fb9d45df523b
parent 296 ea3dbc023c80
permissions -rw-r--r--
Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present - All source *.st files are now Unicode UTF8 without BOM Files are in two groups (fileOut works this way in Smalltalk/X): - containing a unicode character have "{ Encoding: utf8 }" at the header - ASCII only are without the header

"{ Package: 'stx:goodies/xmlsuite/xquery' }"

"{ NameSpace: XQuery }"

XPathKindTest subclass:#XPathElementTest
	instanceVariableNames:'elementName'
	classVariableNames:''
	poolDictionaries:''
	category:'XQuery-AST-XPath'
!


!XPathElementTest methodsFor:'accessing'!

elementName
    ^ elementName

    "Created: / 28-02-2009 / 18:58:44 / Jan Kurs <kursj1@fel.cvut.cz>"
!

elementName:something
    elementName := something.

    "Created: / 28-02-2009 / 18:58:44 / Jan Kurs <kursj1@fel.cvut.cz>"
!

elementNameAsString
 ^ elementName elementName content.

    "Created: / 28-02-2009 / 19:12:13 / Jan Kurs <kursj1@fel.cvut.cz>"
! !

!XPathElementTest methodsFor:'printing'!

printOn: stream

    stream nextPutAll:'element('.
    elementName ifNotNil:[stream nextPutAll: self elementNameAsString].
    stream nextPut:$)

    "Created: / 15-11-2007 / 22:02:22 / janfrog"
    "Modified: / 28-02-2009 / 19:14:43 / Jan Kurs <kursj1@fel.cvut.cz>"
! !

!XPathElementTest methodsFor:'testing'!

isXPathElementTest
    ^ true

    "Created: / 21-11-2007 / 11:07:13 / janfrog"
! !

!XPathElementTest methodsFor:'visiting'!

acceptVisitor:aVisitor 
    "Double dispatch back to the visitor, passing my type encoded in
     the selector (visitor pattern)"

    "stub code automatically generated - please change if required"

    ^ aVisitor visitXPathElementTest:self

    "Created: / 17-11-2007 / 15:31:52 / janfrog"
! !

!XPathElementTest class methodsFor:'documentation'!

version_SVN
    ^ '$Id$'
! !