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 }"
PPCDelegateNode subclass:#PPCStarNode
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Nodes'
!
!PPCStarNode methodsFor:'accessing'!
acceptsEpsilon
^ true
!
acceptsEpsilonOpenSet: set
^ true
!
defaultName
^ #star
! !
!PPCStarNode methodsFor:'analysis'!
isNullable
^ true
!
recognizedSentencesPrim
^ #()
! !
!PPCStarNode methodsFor:'first follow next'!
followSets: aFollowDictionary firstSets: aFirstDictionary into: aSet suchThat: aBlock
| first |
super followSets: aFollowDictionary firstSets: aFirstDictionary into: aSet suchThat: aBlock.
first := aFirstDictionary at: self.
self children do: [ :el |
(aFollowDictionary at: el) addAll: (first reject: [:each | each isNullable])
]
! !
!PPCStarNode methodsFor:'visiting'!
accept: visitor
^ visitor visitStarNode: self
! !