1 "{ Package: 'stx:goodies/xmlsuite/xpath' }"

     2 

     3 "{ NameSpace: XMLv2 }"

     4 

     5 XPathASTNode subclass:#XPathPredicate

     6 	instanceVariableNames:'expr'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XML Suite-XPath'

    10 !

    11 

    12 

    13 !XPathPredicate methodsFor:'accessing'!

    14 

    15 expr

    16     ^ expr

    17 

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

    19 !

    20 

    21 expr:anASTNode

    22     expr := anASTNode.

    23 

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

    25 ! !

    26 

    27 !XPathPredicate methodsFor:'printing'!

    28 

    29 printOn: stream

    30 

    31     stream 

    32         nextPut:$[.

    33     expr ifNotNil:[

    34         stream nextPutAll:'...'].

    35 

    36     stream

    37         nextPut:$]

    38 

    39     "Created: / 15-11-2007 / 23:22:38 / janfrog"

    40     "Modified: / 17-11-2007 / 09:13:28 / janfrog"

    41 ! !

    42 

    43 !XPathPredicate methodsFor:'visiting'!

    44 

    45 acceptVisitor:aVisitor 

    46     "Double dispatch back to the visitor, passing my type encoded in

    47      the selector (visitor pattern)"

    48 

    49     "stub code automatically generated - please change if required"

    50 

    51     ^ aVisitor visitXPathPredicate:self

    52 

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

    54 ! !

    55 

    56 !XPathPredicate class methodsFor:'documentation'!

    57 

    58 version

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

    60 ! !