author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Tue, 21 Apr 2015 17:06:24 +0100 | |
changeset 436 | e1c44b571db9 |
parent 435 | 3bc08fb90133 |
permissions | -rw-r--r-- |
435 | 1 |
"{ Package: 'stx:goodies/petitparser/parsers/java' }" |
2 |
||
3 |
"{ NameSpace: Smalltalk }" |
|
4 |
||
5 |
PJASTNode subclass:#PJTypeNode |
|
6 |
instanceVariableNames:'type' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'PetitJava-AST' |
|
10 |
! |
|
11 |
||
12 |
!PJTypeNode class methodsFor:'instance creation'! |
|
13 |
||
14 |
type: aString |
|
15 |
||
16 |
^(self new) type: aString; yourself |
|
17 |
! ! |
|
18 |
||
19 |
!PJTypeNode methodsFor:'accessing'! |
|
20 |
||
21 |
type |
|
22 |
^ type |
|
23 |
! |
|
24 |
||
25 |
type: anObject |
|
26 |
type := anObject |
|
27 |
! ! |
|
28 |