"{ Package: 'stx:goodies/cypress' }"

CypressModel subclass:#CypressClass

	instanceVariableNames:'comment methods'

	classVariableNames:''

	poolDictionaries:''

	category:'Cypress-New-Model'

!

!CypressClass class methodsFor:'instance creation'!

fromClass: aClass

    "Returns a CypressPackage for given (real) class"

    ^self class initializeFromClass: aClass.

    "Created: / 10-09-2012 / 23:48:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressClass methodsFor:'accessing'!

methods

    methods isNil ifTrue:[

        methods := OrderedCollection new.

        (Smalltalk at: name asSymbol) instAndClassMethodsDo:[:mthd|

            methods add: (CypressMethod fromMethod: mthd)

        ]

    ].

    ^methods

    "Created: / 11-09-2012 / 00:03:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

package

    "Returns a CypressPackage which the receiver belongs to"

    ^ self shouldImplement

! !

!CypressClass methodsFor:'initialization'!

initializeFromClass: aClass

    name := aClass name.

    properties := Dictionary new.

    properties 

        at:'name'           put: aClass nameWithoutPrefix;

        at:'super'          put: aClass superclass nameWithoutPrefix;

        at:'namespace'      put: aClass nameSpace nameWithoutPrefix;

        at:'superNamespace' put: aClass nameSpace nameSpace;

        at:'instvars'       put: aClass instVarNames;

        at:'classinstvars'  put: aClass class instVarNames;

        at:'classvars'      put: aClass classVarNames;

        at:'pools'          put: aClass sharedPoolNames;

        at:'category'       put: aClass category.

    aClass definitionSelector ~~ Object definitionSelector ifTrue:[

        properties

        at:'_stx_type'      put: aClass definitionSelector

    ].

    "Created: / 10-09-2012 / 23:48:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressClass methodsFor:'reading & writing'!

readFrom:filename

    "Initializes the receiver from directory/file named 'filename'"

    ^ self shouldImplement

!

writeTo:filename notice:copyrightNotice

    "Writes the receiver into directory/file named 'filename'

     with given copyrightNotice"

    ^ self shouldImplement

! !

!CypressClass class methodsFor:'documentation'!

version_SVN

    ^ '$Id::                                                                                                                        $'

! !