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

"{ NameSpace: XMLv2 }"

Object subclass:#XPathNodePositionComparator
	instanceVariableNames:'documentAdaptor'
	classVariableNames:''
	poolDictionaries:''
	category:'XML Suite-XPath'
!


!XPathNodePositionComparator methodsFor:'accessing'!

documentAdaptor:anXPathDocumentAdaptor
    documentAdaptor := anXPathDocumentAdaptor.

    "Created: / 13-10-2006 / 19:52:50 / janfrog"
! !

!XPathNodePositionComparator methodsFor:'block mimicry'!

numArgs

    ^2

    "Created: / 13-10-2006 / 19:54:38 / janfrog"
! !

!XPathNodePositionComparator methodsFor:'evaluation'!

value: a value: b

    | aPos bPos |

    aPos := documentAdaptor xpathPositionVectorOf: a.
    bPos := documentAdaptor xpathPositionVectorOf: b.

    1 to: (aPos elementPosition size min:bPos elementPosition size) do:
        [:i|
        (aPos elementPosition at:i) < (bPos elementPosition at:i) ifTrue:[^true].
        (aPos elementPosition at:i) > (bPos elementPosition at:i) ifTrue:[^false]].

    (aPos elementPosition size) < (bPos elementPosition size) ifTrue:[^true].
    (aPos elementPosition size) > (bPos elementPosition size) ifTrue:[^false].

    1 to: (aPos attributePosition size min:bPos attributePosition size) do:
        [:i|
        (aPos attributePosition at:i) < (bPos attributePosition at:i) ifTrue:[^true].
        (aPos attributePosition at:i) > (bPos attributePosition at:i) ifTrue:[^false]].

    (aPos attributePosition size) < (bPos attributePosition size) ifTrue:[^true].
    (aPos attributePosition size) > (bPos attributePosition size) ifTrue:[^false].

    ^false

    "Created: / 13-10-2006 / 19:50:59 / janfrog"
! !

!XPathNodePositionComparator class methodsFor:'documentation'!

version
    ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xpath/XMLv2__XPathNodePositionComparator.st,v 1.1 2006-10-14 05:41:53 vranyj1 Exp $'
! !