"{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }"

"{ NameSpace: Smalltalk }"

PPCLRPTransition subclass:#PPCLRPWildcardTransition

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'PetitCompiler-Extras-Tests-LRP'

!

!PPCLRPWildcardTransition class methodsFor:'instance creation'!

on: anEvent from: startState to: endState name: aString

    self error: 'Wildcard transitions have no from state. Use on:to:name: instead.'

!

on: anEvent to: endState name: aString

    |retval|

    retval := self new.

    retval eventname: anEvent.

    retval from: '*'.

    retval to: endState.

    retval name: aString.

    ^ retval.

! !

!PPCLRPWildcardTransition methodsFor:'printing'!

printOn: aStream

    aStream nextPutAll: 'PPCLRPWildcardTransition '.

    aStream nextPutAll: self name.

    aStream nextPutAll: ' : *->'.

    aStream nextPutAll: self to.

    aStream nextPutAll: ' on '.

    aStream nextPutAll: self eventname.

! !