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

PPCNode subclass:#PPCPluggableNode

	instanceVariableNames:'block'

	classVariableNames:''

	poolDictionaries:''

	category:'PetitCompiler-Nodes'

!

!PPCPluggableNode methodsFor:'accessing'!

block

	^ block

!

block: anObject

	block := anObject

! !

!PPCPluggableNode methodsFor:'as yet unclassified'!

acceptsEpsilon

	^ true

!

acceptsEpsilonOpenSet: set

	^ true

!

asInlined

    "Sadly, on Smalltalk/X blocks cannot be inlined because

     the VM does not provide enough information to map

     it back to source code. Very bad indeed!!"

    ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[

		^ super asInlined

    ] ifFalse:[

		^ PPCInlinePluggableNode new

			name: name;

			block: block;

			yourself

    ]

!

compileWith: compiler effect: effect id: id

	| blockId |

	blockId := compiler idFor: block prefixed: #block.

	compiler startMethod: id.

	compiler addConstant: block as: blockId.

	compiler add: '^ ', blockId, ' value: context.'.

 ^ compiler stopMethod.

!

firstCharSet

	^ PPCharSetPredicate on: [:char | (block asParser parse: char asString) isPetitFailure not ]

!

prefix

	^ #plug

! !

!PPCPluggableNode methodsFor:'comparing'!

= anotherNode

	super = anotherNode ifFalse: [ ^ false ].

	^ block = anotherNode block.

!

hash

	^ super hash bitXor: block hash

! !