compiler/PPCStarNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sat, 19 Mar 2016 00:12:47 +0100
changeset 556 51c6afba5c91
parent 515 b5316ef15274
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 }"

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
! !