compiler/PPCNotMessagePredicateNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sat, 19 Mar 2016 00:12:47 +0100
changeset 556 51c6afba5c91
parent 452 9f4558b3be66
permissions -rw-r--r--
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 }"

PPCAbstractPredicateNode subclass:#PPCNotMessagePredicateNode
	instanceVariableNames:'message'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Nodes'
!

!PPCNotMessagePredicateNode methodsFor:'accessing'!

message
    
    ^ message
!

message: anObject
    
    message := anObject
! !

!PPCNotMessagePredicateNode methodsFor:'analysis'!

firstCharSet
    ^ PPCharSetPredicate on: [:e | (predicate value:e)  not ]

    "Modified: / 23-04-2015 / 22:11:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!PPCNotMessagePredicateNode methodsFor:'comparison'!

= anotherNode
    super = anotherNode ifFalse: [ ^ false ].
    ^ message = anotherNode message.
!

hash
    ^ super hash bitXor: message hash
! !

!PPCNotMessagePredicateNode methodsFor:'visiting'!

accept: visitor
    ^ visitor visitNotMessagePredicateNode: self
! !