hg/stx-goodies-petitparser: parsers/java/PJStringLiteralNode.st@0ca7a70db0f5 (annotated)

435 3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/parsers/java' }"
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	PJExpressionNode subclass:#PJStringLiteralNode
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'literalValue'
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'PetitJava-AST'
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	PJStringLiteralNode comment:'A node of a string literal.'
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	!PJStringLiteralNode class methodsFor:'instance creation'!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	literalValue: aString
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	^(self new) literalValue: aString
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	! !
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	!PJStringLiteralNode methodsFor:'accessing'!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	literalValue
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	^ literalValue
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	literalValue: anObject
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	literalValue := anObject
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	! !
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	!PJStringLiteralNode methodsFor:'visiting'!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	acceptVisitor: aVisitor
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	^ aVisitor visitStringLiteralNode: self
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	! !
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 16 Jun 2015 06:45:26 +0100
changeset 489	0ca7a70db0f5
parent 435	3bc08fb90133
permissions	-rw-r--r--