equal
deleted
inserted
replaced
1 "{ Package: 'cvut:stx/goodies/newcompiler' }" |
1 "{ Package: 'cvut:stx/goodies/newcompiler' }"! |
2 |
|
3 ! |
|
4 |
2 |
5 !ByteCodeCompiler methodsFor:'accessing'! |
3 !ByteCodeCompiler methodsFor:'accessing'! |
6 |
4 |
7 literalArray: anArray |
5 literalArray: anArray |
8 "return the literal array - only valid after parsing" |
6 "return the literal array - only valid after parsing" |
9 |
7 |
10 litArray := anArray |
8 litArray := anArray |
11 |
9 |
12 "Created: / 03-11-2008 / 14:09:33 / Jan Vrany <vranyj1@fel.cvut.cz>" |
10 "Created: / 03-11-2008 / 14:09:33 / Jan Vrany <vranyj1@fel.cvut.cz>" |
13 ! ! |
11 ! ! |
|
12 |
14 !Class methodsFor:'accessing'! |
13 !Class methodsFor:'accessing'! |
15 |
14 |
16 binding |
15 binding |
17 |
16 |
18 ^self fullName asSymbol |
17 ^self fullName asSymbol |
19 |
18 |
20 "Created: / 11-06-2008 / 11:20:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
19 "Created: / 11-06-2008 / 11:20:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
21 ! ! |
20 ! ! |
|
21 |
|
22 !Class methodsFor:'accessing'! |
|
23 |
|
24 bindingOf: classVarName |
|
25 |
|
26 ^(self fullName , ':' , classVarName) asSymbol |
|
27 |
|
28 "Created: / 11-06-2008 / 11:29:19 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
29 ! ! |
|
30 |
22 !cvut_stx_goodies_newcompiler class methodsFor:'documentation'! |
31 !cvut_stx_goodies_newcompiler class methodsFor:'documentation'! |
23 |
32 |
24 extensionsVersion_SVN |
33 extensionsVersion_SVN |
25 ^ '$Id$' |
34 ^ '$Id:: $' |
26 ! ! |
35 ! ! |