--- a/compiler/PPCInlineLiteralNode.st Fri May 01 13:44:43 2015 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,37 +0,0 @@
-"{ Package: 'stx:goodies/petitparser/compiler' }"
-
-"{ NameSpace: Smalltalk }"
-
-PPCLiteralNode subclass:#PPCInlineLiteralNode
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'PetitCompiler-Nodes'
-!
-
-!PPCInlineLiteralNode methodsFor:'compiling'!
-
-compileWith: compiler effect: effect id: id
- | encodedLiteral |
-
- encodedLiteral := self encodeQuotes: literal.
- compiler startInline: id.
- compiler add: '((context peek: ', literal size asString, ') = #''', encodedLiteral, ''')'.
- compiler indent.
- compiler add: ' ifTrue: [ context skip: ', literal size asString, '. #''', encodedLiteral, ''']'.
- compiler add: ' ifFalse: [ self error: ''', encodedLiteral, ' expected'' ].'.
- compiler dedent.
- ^ compiler stopInline.
-! !
-
-!PPCInlineLiteralNode methodsFor:'printing'!
-
-asInlined
- ^ self
-!
-
-printOn: aStream
- aStream nextPutAll: '#inline'.
- super printOn: aStream
-! !
-