"{ Package: 'stx:goodies/petitparser/compiler' }"

"{ NameSpace: Smalltalk }"

Object subclass:#PEGFsaPair
	instanceVariableNames:'first second'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-FSA'
!

!PEGFsaPair class methodsFor:'instance creation'!

with: a with: b
    ^ PEGFsaPair new
        first: a;
        second: b;
        yourself
! !

!PEGFsaPair methodsFor:'accessing'!

first
    ^ first
!

first: anObject
    first := anObject
!

second
    ^ second
!

second: anObject
    second := anObject
! !

!PEGFsaPair methodsFor:'comparing'!

= anObject
    (anObject == self) ifTrue: [ ^ true ].
    (anObject class == self class) ifFalse: [ ^ false ].
    
    ((anObject first == first) and: [anObject second == second]) ifTrue: [ ^ true ].
    ((anObject first == second) and: [anObject second == first]) ifTrue: [ ^ true ].
    
    ^ false	
!

hash
    ^ first hash bitXor: second hash
! !

!PEGFsaPair methodsFor:'enumerating'!

detect: block
    (block value: self first) ifTrue: [ ^ self first ].
    (block value: self second) ifTrue: [ ^ self second ].	
    
    self error: 'not found!!'
! !

!PEGFsaPair methodsFor:'testing'!

contains: block
    ^ (block value: self first) or: [ block value: self second  ]
!

includes: anObject
    ^ self first == anObject or: [ self second == anObject ]
! !