compiler/tests/extras/PPCLRPContainedElement.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 31 Jul 2015 09:35:15 +0100
changeset 513 7b8093caf796
parent 511 527038bc8edf
child 534 a949c4fe44df
permissions -rw-r--r--
Portability fix: do not use "/ style comments in PetitParser code.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
511
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }"
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
"{ NameSpace: Smalltalk }"
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
PPCLRPNode subclass:#PPCLRPContainedElement
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	instanceVariableNames:'container'
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	classVariableNames:''
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
	poolDictionaries:''
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
	category:'PetitCompiler-Extras-Tests-LRP'
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
!
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
!PPCLRPContainedElement methodsFor:'accessing'!
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
container
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
    ^ container
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
!
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
container: anObject
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
    container := anObject
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
! !
527038bc8edf Added LRPParser from Live Robots Prograaming project
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21