Oops, forgot to export PETITCOMPILER_DATA_DIRECTORY variable
...so Smalltalk code could not read it. Also fixed test for "include" scripts
so they are not downloaded again when already downloaded.
"{ Package: 'stx:goodies/petitparser/compiler' }"
"{ NameSpace: Smalltalk }"
PEGFsaTransition subclass:#PEGFsaEpsilonTransition
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-FSA'
!
!PEGFsaEpsilonTransition methodsFor:'gt'!
gtName
| gtName |
gtName := '<eps>'.
priority < 0 ifTrue: [ gtName := gtName, ',', priority asString ].
^ gtName
! !
!PEGFsaEpsilonTransition methodsFor:'modifications'!
decreasePriorityBy: value
"
My value has special semantics, when I have negative priority, all the reachable states and transitions should
be decreased by that value.
In case I am preceded by another epsilon with negative priority, I do not decrease my value, that would multiply
the the negative priority effect....
"
^ self
! !
!PEGFsaEpsilonTransition methodsFor:'set operations'!
intersection: anotherState
^ anotherState
! !
!PEGFsaEpsilonTransition methodsFor:'testing'!
isEpsilon
^ true
!
isEpsilonTransition
^ true
! !