diff -r 6f0eb79b3dda -r d333233f7ebd compiler/PPCInlineLiteralNode.st --- 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 -! ! -