author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Wed, 03 Jun 2015 08:48:59 +0100 | |
changeset 482 | 9a7e7a05233f |
parent 436 | e1c44b571db9 |
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 |