1 "{ Package: 'cvut:stx/goodies/newcompiler' }"

     2 "{ Package: 'cvut:stx/goodies/newcompiler' }"

     2 !

     4 !

     3 

     5 

     4 !ByteCodeCompiler methodsFor:'accessing'!

     6 !ByteCodeCompiler methodsFor:'accessing'!

     5 

     7 

     6 literalArray: anArray

     8 literalArray: anArray

     8 

    10 

     9     litArray := anArray

    11     litArray := anArray

    10 

    12 

    11     "Created: / 03-11-2008 / 14:09:33 / Jan Vrany <vranyj1@fel.cvut.cz>"

    13     "Created: / 03-11-2008 / 14:09:33 / Jan Vrany <vranyj1@fel.cvut.cz>"

    12 ! !

    14 ! !

    14 !Class methodsFor:'accessing'!

    15 !Class methodsFor:'accessing'!

    15 

    16 

    16 binding

    17 binding

    17 

    18 

    18     ^self fullName asSymbol

    19     ^self fullName asSymbol

    19 

    20 

    20     "Created: / 11-06-2008 / 11:20:35 / Jan Vrany <vranyj1@fel.cvut.cz>"

    21     "Created: / 11-06-2008 / 11:20:35 / Jan Vrany <vranyj1@fel.cvut.cz>"

    21 ! !

    22 ! !

    23 !Class methodsFor:'accessing'!

    23 !Class methodsFor:'accessing'!

    24 

    24 

    25 bindingOf: classVarName

    25 bindingOf: classVarName

    26 

    26 

    27     ^(self fullName , ':' , classVarName) asSymbol

    27     ^(self fullName , ':' , classVarName) asSymbol

    28 

    28 

    29     "Created: / 11-06-2008 / 11:29:19 / Jan Vrany <vranyj1@fel.cvut.cz>"

    29     "Created: / 11-06-2008 / 11:29:19 / Jan Vrany <vranyj1@fel.cvut.cz>"

    30 ! !

    30 ! !