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 }"
PPCSequenceNode subclass:#PPCTrimNode
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Nodes'
!
!PPCTrimNode methodsFor:'accessing'!
child
^ children at: 2
!
child: anObject
children at: 2 put: anObject
!
defaultName
^ #trim
!
trimmer
^ children at: 1
!
trimmer: anObject
children at: 1 put: anObject
! !
!PPCTrimNode methodsFor:'analysis'!
acceptsEpsilon
^ self child acceptsEpsilonOpenSet: (IdentitySet with: self).
!
acceptsEpsilonOpenSet: set
(set includes: self child) ifFalse: [
set add: self child.
^ self child acceptsEpsilonOpenSet: set
].
^ false
! !
!PPCTrimNode methodsFor:'initialization'!
defaultTrimmer
| message |
message := PPCMessagePredicateNode new
message: #isSeparator;
predicate: [ :char | char isSeparator ]
yourself.
^ PPCStarNode new
child: message;
yourself.
!
initialize
super initialize.
children := Array new: 2.
children at: 1 put: self defaultTrimmer.
! !
!PPCTrimNode methodsFor:'visiting'!
accept: visitor
^ visitor visitTrimNode: self
! !