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

CypressModel subclass:#CypressPackage

	instanceVariableNames:'definition comment classes extensions'

	classVariableNames:''

	poolDictionaries:''

	category:'Cypress-New-Model'

!

!CypressPackage class methodsFor:'instance creation'!

fromPackage: packageId

    "Creates new CypressPackage for given package id"

    ^self fromPackageDefinition: (ProjectDefinition definitionClassForPackage: packageId createIfAbsent: true).

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

!

fromPackageDefinition: projectDefinition

    ^self new initializeFromPackageDefinition: projectDefinition

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

! !

!CypressPackage methodsFor:'accessing'!

classes

    classes isNil ifTrue:[

        classes := definition classes collect:[:cls|

            CypressClass fromClass: cls.

        ]

    ].

    ^classes

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

!

package

    "Returns a CypressPackage which the receiver belongs to"

    ^ self shouldImplement

! !

!CypressPackage methodsFor:'initialization'!

initializeFromPackageDefinition: projectDefinition

    definition := projectDefinition.

    name := projectDefinition package.

    properties := Dictionary new.

    properties 

        at: '_cypress_copyright' put: (definition legalCopyright);

        at: '_stx_name' put: name.

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

! !

!CypressPackage 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 writePropertiesTo: filename notice: copyrightNotice.

    self classes do:[:cypressCls|

        self halt.

    ]

    "Modified: / 11-09-2012 / 00:38:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressPackage class methodsFor:'documentation'!

version_SVN

    ^ '$Id::                                                                                                                        $'

! !