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 }"
PPParser subclass:#PPCBridge
instanceVariableNames:'selector'
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Core'
!
!PPCBridge class methodsFor:'as yet unclassified'!
on: aSymbol
^ self new
selector: aSymbol;
yourself
! !
!PPCBridge methodsFor:'as yet unclassified'!
call
^ 'self callParser: ', self id, '.'.
!
selector: aSymbol
selector := aSymbol
! !
!PPCBridge methodsFor:'parsing'!
parseOn: aPPContext
| retval |
retval := (aPPContext compiledParser) perform: selector.
(aPPContext compiledParser isError) ifTrue: [
aPPContext compiledParser clearError.
^ PPFailure message: 'error' context: aPPContext
].
^ retval
! !