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

PPCAbstractLiteralNode subclass:#PPCNotLiteralNode

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'PetitCompiler-Nodes'

!

!PPCNotLiteralNode methodsFor:'accessing'!

asInlined

	^ PPCInlineNotLiteralNode new

		name: name;

		literal: literal;

		yourself

!

firstCharParser

	^ literal first asParser

!

literal

	^ literal

!

literal: anObject

	literal := anObject

!

prefix

	^ #notLit

! !

!PPCNotLiteralNode methodsFor:'as yet unclassified'!

compileWith: compiler effect: effect id: id

	| encodedLiteral size |

	encodedLiteral := self encodeQuotes: literal.

	size := literal size asString.

	compiler startMethod: id.

	compiler add: '((context peek: ', size, ') =#''', encodedLiteral, ''')'.

	compiler indent.

	compiler add: ' ifTrue: [ self error: ''', encodedLiteral, ' not expected'' ]'.

	compiler add: ' ifFalse: [ nil ].'.

	compiler dedent.

 ^ compiler stopMethod.

! !