Fixed CI scripts on Windows
For an unknown reason, unzip on Windows reports status code 50
(presumably "the disk is (or was) full during extraction.") even
if there's plenty of space. To workaround this, simply ignore
status code 50 on Windows. Sigh.
"{ Package: 'stx:goodies/petitparser/compiler' }"
"{ NameSpace: Smalltalk }"
PEGFsaTransition subclass:#PEGFsaPredicateTransition
instanceVariableNames:'predicate'
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-FSA'
!
!PEGFsaPredicateTransition methodsFor:'accessing'!
predicate
^ predicate
!
predicate: anObject
predicate := anObject
! !
!PEGFsaPredicateTransition methodsFor:'comparing'!
equals: anotherTransition
(super equals: anotherTransition) ifFalse: [ ^ false ].
(predicate asString = anotherTransition predicate asString) ifFalse: [ ^ false ].
^ true
! !
!PEGFsaPredicateTransition methodsFor:'gt'!
gtName
| gtName |
gtName := self predicate asString.
priority < 0 ifTrue: [ gtName := gtName, ',', priority asString ].
^ gtName
! !
!PEGFsaPredicateTransition methodsFor:'set operations'!
intersection: transition
| intersection |
intersection := Array new: 255 withAll: false.
^ intersection
! !
!PEGFsaPredicateTransition methodsFor:'testing'!
accepts: character
self assert: character isCharacter.
^ self acceptsCodePoint: character codePoint
!
acceptsCodePoint: codePoint
self assert: codePoint isInteger.
^ predicate value: codePoint
!
isCharacterTransition
^ false
!
isEOF
^ false
!
isParser
self halt: 'delete me!!'.
^ false
!
isPredicateTransition
^ true
!
overlapsWith: transition
^ false
! !