xpath/XMLv2__XPathPredicate.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/xpath' }"

"{ NameSpace: XMLv2 }"

XPathASTNode subclass:#XPathPredicate
	instanceVariableNames:'expr'
	classVariableNames:''
	poolDictionaries:''
	category:'XML Suite-XPath'
!


!XPathPredicate methodsFor:'accessing'!

expr
    ^ expr

    "Created: / 17-11-2007 / 09:12:10 / janfrog"
!

expr:anASTNode
    expr := anASTNode.

    "Created: / 17-11-2007 / 09:12:10 / janfrog"
! !

!XPathPredicate methodsFor:'printing'!

printOn: stream

    stream 
        nextPut:$[.
    expr ifNotNil:[
        stream nextPutAll:'...'].

    stream
        nextPut:$]

    "Created: / 15-11-2007 / 23:22:38 / janfrog"
    "Modified: / 17-11-2007 / 09:13:28 / janfrog"
! !

!XPathPredicate 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 visitXPathPredicate:self

    "Created: / 17-11-2007 / 15:24:14 / janfrog"
! !

!XPathPredicate class methodsFor:'documentation'!

version
    ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xpath/XMLv2__XPathPredicate.st,v 1.3 2007-11-18 08:56:19 vranyj1 Exp $'
! !