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

     2 

     3 "{ NameSpace: XMLv2 }"

     4 

     5 XPathAxis subclass:#XPathAxisParent

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XML Suite-XPath-Axes'

    10 !

    11 

    12 

    13 !XPathAxisParent methodsFor:'filtering'!

    14 

    15 createNodeSetFromContext:aContext 

    16     |parent|

    17 

    18     parent := (aContext documentAdaptor xpathParentOf:aContext node).

    19     ^parent 

    20         ifNil:[aContext newNodeSet]

    21         ifNotNil:[aContext newNodeSetWith:parent]

    22 

    23     "Modified: / 13-10-2006 / 20:42:51 / janfrog"

    24 ! !

    25 

    26 !XPathAxisParent methodsFor:'printing'!

    27 

    28 printOn: stream

    29 

    30     stream nextPutAll:'parent::'

    31 

    32     "Created: / 15-11-2007 / 22:06:03 / janfrog"

    33 ! !

    34 

    35 !XPathAxisParent methodsFor:'testing'!

    36 

    37 isXPathAxisParent

    38     ^ true

    39 

    40     "Created: / 16-11-2007 / 09:25:08 / janfrog"

    41 ! !

    42 

    43 !XPathAxisParent 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 visitXPathAxisParent:self

    52 

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

    54 ! !

    55 

    56 !XPathAxisParent class methodsFor:'documentation'!

    57 

    58 version

    59     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xpath/XMLv2__XPathAxisParent.st,v 1.5 2007-11-18 08:58:16 vranyj1 Exp $'

    60 ! !