compiler/PPCLiteralNode.st
changeset 452 9f4558b3be66
parent 438 20598d7ce9fa
child 486 0dd7eb52b5a1
equal deleted inserted replaced
438:20598d7ce9fa 452:9f4558b3be66
     7 	classVariableNames:''
     7 	classVariableNames:''
     8 	poolDictionaries:''
     8 	poolDictionaries:''
     9 	category:'PetitCompiler-Nodes'
     9 	category:'PetitCompiler-Nodes'
    10 !
    10 !
    11 
    11 
       
    12 !PPCLiteralNode methodsFor:'comparing'!
       
    13 
       
    14 recognizedSentencesPrim
       
    15     ^ Array with: literal.
       
    16 ! !
       
    17 
       
    18 !PPCLiteralNode methodsFor:'printing'!
       
    19 
       
    20 printNameOn: aStream
       
    21     super printNameOn: aStream.
       
    22     aStream nextPutAll: ', '; print: literal
       
    23 ! !
       
    24 
    12 !PPCLiteralNode methodsFor:'visiting'!
    25 !PPCLiteralNode methodsFor:'visiting'!
    13 
    26 
    14 accept: visitor
    27 accept: visitor
    15 	^ visitor visitLiteralNode: self
    28     ^ visitor visitLiteralNode: self
    16 ! !
    29 ! !
    17 
    30