"

 COPYRIGHT (c) 2005 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libjavascript' }"

ParseNode subclass:#JavaScriptClassNode

	instanceVariableNames:'className superClassName privateVariables environment

		staticVariables'

	classVariableNames:''

	poolDictionaries:''

	category:'Languages-JavaScript-Compiling & Parsing'

!

!JavaScriptClassNode class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2005 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

! !

!JavaScriptClassNode methodsFor:'* As yet uncategorized *'!

isInnerFunction

    ^ false

! !

!JavaScriptClassNode methodsFor:'accessing'!

_argVariables

    ^ nil

!

_localVariables

    ^ self _variables

!

_localVariables:aCollection

    self _variables:aCollection

!

_outerEnvironment

    ^ environment

    "Created: / 17.5.1998 / 00:41:00 / cg"

!

_outerEnvironment:anEnvironment

    environment := anEnvironment

    "Created: / 17.5.1998 / 00:41:11 / cg"

!

_variables

    ^ privateVariables

!

_variables:aVariablesEnvironment

    privateVariables := aVariablesEnvironment

!

className

    "return the value of the instance variable 'className' (automatically generated)"

    ^ className

!

className:something

    "set the value of the instance variable 'className' (automatically generated)"

    className := something.

!

staticVariables

    ^ staticVariables

!

staticVariables:something

    staticVariables := something.

!

superClassName

    "return the value of the instance variable 'superClassName' (automatically generated)"

    ^ superClassName

!

superClassName:something

    "set the value of the instance variable 'superClassName' (automatically generated)"

    superClassName := something.

! !

!JavaScriptClassNode methodsFor:'evaluation'!

evaluate

    |superClass oldClass newClass instVarNames classVarNames category environment|

    superClass := Smalltalk at:superClassName asSymbol.

    instVarNames := ''.

    privateVariables size > 0 ifTrue:[

        privateVariables keysAndValuesDo:[:varName :var |

            instVarNames size ~= 0 ifTrue:[

                instVarNames := instVarNames , ' '

            ].

            instVarNames := instVarNames , varName

        ]

    ].

    classVarNames := ''.

    staticVariables size > 0 ifTrue:[

        staticVariables keysAndValuesDo:[:varName :var |

            classVarNames size ~= 0 ifTrue:[

                classVarNames := classVarNames , ' '

            ].

            classVarNames := classVarNames , varName

        ]

    ].

    environment := Class nameSpaceQuerySignal query.

    oldClass := environment classNamed:className.

    category := Class classCategoryQuerySignal query.

"/    oldClass notNil ifTrue:[

"/        category := oldClass category.   

"/    ] ifFalse:[

"/        category := superClass category

"/    ].

    newClass := JavaScriptMetaclass basicNew

            name:(className asSymbol)  

            inEnvironment:environment

            subclassOf:superClass

            instanceVariableNames:instVarNames

            variable:false

            words:false

            pointers:false

            classVariableNames:classVarNames

            poolDictionaries:''

            category:category

            comment:nil

            changed:true. 

    "initialize static variables..."

    staticVariables notNil ifTrue:[

        staticVariables keysAndValuesDo:[:varName :var |

            var expressionForSetup notNil ifTrue:[

                newClass classVarAt: varName put: (var expressionForSetup evaluate).

            ]

        ].

    ].

    ^ newClass

    "Modified: / 17-07-2012 / 12:41:13 / cg"

! !

!JavaScriptClassNode methodsFor:'testing'!

_isFunctionEnvironment

    ^ false

    "Created: / 30-01-2011 / 17:11:10 / cg"

! !

!JavaScriptClassNode methodsFor:'visiting'!

acceptVisitor:visitor 

    "Double dispatch back to the visitor, passing my type encoded in

     the selector (visitor pattern)"

    "stub code automatically generated - please change if required"

    ^ visitor visitJavaScriptClassNode:self 

! !

!JavaScriptClassNode class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !