CI: Use VM provided by Pharo team on both Linux and Windows.
Hand-crafter Pharo VM is no longer needed as the Linux slave in
SWING build farm has been upgraded so it has compatible GLIBC.
This makes CI scripts simpler and more usable for other people.
"{ Package: 'stx:goodies/petitparser/compiler' }"
"{ NameSpace: Smalltalk }"
PPCScannerResultStrategy subclass:#PPCUniversalResultStrategy
instanceVariableNames:'tokens'
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Scanner'
!
!PPCUniversalResultStrategy methodsFor:'accessing'!
indexForRetval: retval
" tokens withIndexDo: [ :e :index |
(e == retval) ifTrue: [ ^ index ]
].
self error: 'This should not happen!!'
"
^ codeGen idGen numericIdFor: retval
!
tokens
^ tokens
!
tokens: array
self assert: (array isArray).
tokens := array
! !
!PPCUniversalResultStrategy methodsFor:'as yet unclassified'!
recordFailure: retval
self error: 'deprecated?'.
codeGen codeRecordFailure: (self indexForRetval: retval)
!
recordFailure: retval offset: offset
codeGen codeRecordFailure: (self indexForRetval: retval)
!
recordMatch: retval
self error: 'deprecated?'.
codeGen codeComment: 'symbol: ', retval storeString.
codeGen codeRecordMatch: (self indexForRetval: retval)
!
recordMatch: retval offset: offset
codeGen codeComment: 'symbol: ', retval storeString.
codeGen codeRecordMatch: (self indexForRetval: retval) offset: offset
!
reset
" ^ codeGen code: 'self reset:', tokens storeString, '.'"
^ codeGen code: 'self reset.'
!
returnMatch: retval offset: offset
codeGen codeComment: 'symbol: ', retval storeString.
codeGen codeReturn: [ codeGen codeRecordMatch: (self indexForRetval: retval) offset: offset ]
!
returnResult: state
self assert: (state isKindOf: PEGFsaState).
codeGen codeReturn.
! !