instanceVariableNames:'name superclassName variables category type comment commentStamp

		traitComposition classTraitComposition'

					traitComposition: '{}'

					classTraitComposition: '{}'

					category: categoryString 

					instVarNames: ivarArray

					classVarNames: cvarArray

					poolDictionaryNames: poolArray

					classInstVarNames: civarArray

					type: typeSymbol

					comment: commentString

					commentStamp: stampString)

!

name: nameString

superclassName: superclassString

traitComposition: traitCompositionString

classTraitComposition: classTraitCompositionString

category: categoryString 

instVarNames: ivarArray

classVarNames: cvarArray

poolDictionaryNames: poolArray

classInstVarNames: civarArray

type: typeSymbol

comment: commentString

commentStamp: stampString

	^ self instanceLike:

		(self new initializeWithName: nameString

					superclassName: superclassString

					traitComposition: traitCompositionString

					classTraitComposition: classTraitCompositionString

classTraitComposition

	^classTraitComposition

!

classTraitCompositionString

	^self classTraitComposition ifNil: ['{}'].

!

        ^ comment ? ''

    "Modified: / 12-09-2010 / 17:07:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

traitComposition

	^traitComposition

!

traitCompositionString

	^self traitComposition ifNil: ['{}'].

!

	hash := String stringHash: name initialHash: 0.

	hash := String stringHash: superclassName initialHash: hash.

	hash := String stringHash: self traitCompositionString initialHash: hash.

	hash := String stringHash: self classTraitComposition asString initialHash: hash.

	hash := String stringHash: (category ifNil: ['']) initialHash: hash.

	hash := String stringHash: type initialHash: hash.

		hash := String stringHash: v name initialHash: hash.

!MCClassDefinition methodsFor:'converting'!

asChange

    ^ClassDefinitionChange new

        mcDefinition: self;

        className: name;

        superClassName: superclassName;

        instanceVariableNames: (String streamContents: [:s|variables do:[:v|s nextPutAll: v name; space]]) ;

        category: category;

        yourself

    "Created: / 13-10-2010 / 17:11:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 08-11-2010 / 17:56:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

        | superClass class |

        superClass := Smalltalk at: superclassName.

        "Create class if not exists"

        superClass ifNil:[superClass := Class undeclared: superclassName].

        class := (ClassBuilder new)

        self traitComposition ifNotNil: [

                class setTraitComposition: (Compiler

                        evaluate: self traitComposition) asTraitComposition ].

        self classTraitComposition ifNotNil: [

                class class setTraitComposition: (Compiler

                        evaluate: self classTraitComposition) asTraitComposition ].

        ^class.

    "Modified: / 09-11-2010 / 08:30:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    | class |

    (class := self createClass) ifNotNil:

        [class class instanceVariableNames: self classInstanceVariablesString.

        self hasComment ifTrue: [class classComment: comment stamp: commentStamp]].

    class package: MCStXPackageQuery query.

    "Modified: / 14-09-2010 / 22:10:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

stringForSortedVariablesOfType: aSymbol

	^ String streamContents:

		[:stream |

		(self selectVariables: aSymbol) asSortedCollection

			do: [:ea | stream nextPutAll: ea]

			separatedBy: [stream space]]

	^ self stringForSortedVariablesOfType: #isClassVariable

        type = #normal ifTrue: [^ ' subclass:'].

        type = #words ifTrue: [^ ' variableWordSubclass:'].

        type = #variable ifTrue: [^ ' variableSubclass:'].

        type = #bytes ifTrue: [^ ' variableByteSubclass:'].

        type = #weak ifTrue: [^ ' weakSubclass:' ].

        type = #compiledMethod ifTrue: [^ ' variableByteSubclass:' ].

        self error: 'Unrecognized class type'

    "Modified: / 11-09-2010 / 18:13:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

                stream 

                        nextPutAll: self superclassName;

                        nextPutAll: self kindOfSubclass;

                        nextPut: $# ;

                        nextPutAll: self className;

                        cr; tab.

                self hasTraitComposition ifTrue: [

                        stream 

                                nextPutAll: 'uses: ';

                                nextPutAll: self traitCompositionString;

                                cr; tab ].

                stream

                        nextPutAll: 'instanceVariableNames:';

                        store: self instanceVariablesString;

                        cr; tab;

                        nextPutAll: 'classVariableNames:';

                        store: self classVariablesString;

                        cr; tab;

                        nextPutAll: 'poolDictionaries:';

                        store: self sharedPoolsString;

                        cr; tab;

                        nextPutAll: 'category:';

                        store: self category asString

    "Modified: / 11-09-2010 / 18:11:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

	^ self stringForSortedVariablesOfType: #isPoolImport

        name := nameString asSymbol.

        superclassName := superclassString ifNil: ['nil'] ifNotNil: [superclassString asSymbol].

        category := categoryString.

        name = #CompiledMethod ifTrue: [type := #compiledMethod] ifFalse: [type := typeSymbol].

        comment := (commentString ? '') asStringWithSqueakLineEndings.

        commentStamp := stampStringOrNil ifNil: [self defaultCommentStamp].

        variables := OrderedCollection  new.

    "Modified: / 12-09-2010 / 17:09:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

storeDataOn: aDataStream

	| instVarSize |

	instVarSize := (self hasTraitComposition or: [ self hasClassTraitComposition ])

		ifTrue: [ self class instSize ]

		ifFalse: [ self class instSize - 2 ].

	aDataStream

		beginInstance: self class

		size: instVarSize.

	1 to: instVarSize do: [ :index |

		aDataStream nextPut: (self instVarAt: index) ].

hasClassTraitComposition

	^self classTraitCompositionString ~= '{}'

!

	^ comment isEmptyOrNil not

!

hasTraitComposition

	^self traitCompositionString ~= '{}'

= aDefinition

        ^super = aDefinition

                and: [superclassName = aDefinition superclassName

                and: [self traitCompositionString = aDefinition traitCompositionString

                and: [self classTraitCompositionString = aDefinition classTraitCompositionString

                and: [category = aDefinition category

                and: [type = aDefinition type

                and: [variables = aDefinition variables

                and: [comment = aDefinition comment]]]]]]]

    "Modified: / 18-08-2009 / 10:19:27 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

	aVisitor visitClassDefinition: self.

	(self hasClassInstanceVariables or: [self hasClassTraitComposition])

		ifTrue: [aVisitor visitMetaclassDefinition: self].

!

initializeWithName: nameString

superclassName: superclassString

traitComposition: traitCompositionString

classTraitComposition: classTraitCompositionString

category: categoryString 

instVarNames: ivarArray

classVarNames: cvarArray

poolDictionaryNames: poolArray

classInstVarNames: civarArray

type: typeSymbol

comment: commentString

commentStamp: stampStringOrNil