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 }"
PPCNode subclass:#PPCAbstractPredicateNode
instanceVariableNames:'predicate'
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Nodes'
!
!PPCAbstractPredicateNode methodsFor:'accessing'!
defaultName
^ #predicate
!
predicate
^ predicate
!
predicate: anObject
predicate := anObject
! !
!PPCAbstractPredicateNode methodsFor:'analysis'!
acceptsEpsilon
^ false
!
firstCharSet
^ PPCharSetPredicate on: predicate
! !
!PPCAbstractPredicateNode methodsFor:'comparing'!
= anotherNode
super = anotherNode ifFalse: [ ^ false ].
^ predicate = anotherNode predicate.
!
hash
^ super hash bitXor: predicate hash
!
recognizedSentencesPrim
| retval |
retval := OrderedCollection new.
"TODO JK: Works only for ASCII :("
1 to: 255 do: [ :i |
(predicate value: (Character codePoint: i)) ifTrue: [
retval add: (Character codePoint: i) asString
]
].
^ retval
! !
!PPCAbstractPredicateNode methodsFor:'compiling'!
extendClassification: classification
^ (classification asOrderedCollection addLast: false; yourself) asArray
! !
!PPCAbstractPredicateNode class methodsFor:'documentation'!
version_HG
^ '$Changeset: <not expanded> $'
! !