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

CypressModel subclass:#CypressRepository

	instanceVariableNames:'directory readerClass writerClass'

	classVariableNames:''

	poolDictionaries:''

	category:'Cypress-New-Model'

!

!CypressRepository class methodsFor:'documentation'!

documentation

"

    An abstraction of Cypress repository. Use it to read & write packages

    in Cypress format.

    Usage:

      creating repository:

        crepo := CypressRepository on:'~/Projects/SmalltalkX/repositories/git/cypress/implementations/smalltalkx/packages'.

      writing package:

        crepo write: #'stx:goodies/cypress'

    [author:]

        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!CypressRepository class methodsFor:'instance creation'!

on: directory

    ^self new directory: directory

    "Created: / 13-09-2012 / 14:49:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressRepository class methodsFor:'private'!

packageDirectoryForPackageName: pkgName in: repoDir

    | pkgDir |

    pkgDir := repoDir / pkgName.

    pkgDir exists ifTrue:[ ^ pkgDir ].

    "/Try add .package"

    pkgDir := pkgDir withSuffix: 'package'.

    pkgDir exists ifTrue:[ ^ pkgDir ].

    "/Hmm...maybe stx package name

    pkgDir := repoDir / ((pkgName asString copy replaceAll:$: with:$_; replaceAll:$/ with:$_) , '.package').

    pkgDir exists ifTrue:[ ^ pkgDir ].

    "/ No luck, return nil

    ^nil

    "Created: / 18-09-2012 / 13:33:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressRepository methodsFor:'accessing'!

directory

    "Returns the root directory of the repository"

    ^ directory

    "Modified (comment): / 13-09-2012 / 11:55:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

directory:aStringOrFilename

    "Sets the root directory of a Cypress Repository"

    directory := aStringOrFilename asFilename.

    self initialize

    "Modified: / 17-09-2012 / 22:29:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

readerClass

    ^ readerClass

!

readerClass:something

    readerClass := something.

!

writerClass

    ^ writerClass

!

writerClass:something

    writerClass := something.

! !

!CypressRepository methodsFor:'converting'!

asChange

    "superclass CypressModel says that I am responsible to implement this method"

    ^ self shouldNotImplement

    "Modified: / 18-09-2012 / 10:18:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressRepository methodsFor:'initialization'!

initialize

    | props |

    writerClass := CypressWriter.

    readerClass := nil.

    directory isNil ifTrue:[ ^ self ].

    directory exists ifFalse:[ ^ self ].

    ( props := directory / 'properties.json' ) exists ifTrue:[

        readerClass := CypressFileTreeReader.

        properties := CypressJSONReader parse: props.

    ].

    ( props := directory / 'properties.ston' ) exists ifTrue:[

        readerClass := CypressReader.

        properties := CypressJSONReader parse: props.

    ].

    "Created: / 17-09-2012 / 22:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressRepository methodsFor:'private'!

changesInto:aChangeSet

    "superclass CypressModel says that I am responsible to implement this method"

    ^ self shouldNotImplement

    "Modified: / 18-09-2012 / 10:58:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

writer

    ^writerClass onRepository: self

    "Created: / 17-09-2012 / 22:22:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressRepository methodsFor:'reading'!

read: packageName

    ^self read: packageName as: nil

    "Created: / 18-09-2012 / 09:34:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

read: packageName as: packageId

    | readerCls |

    readerCls := readerClass.

    readerCls isNil ifTrue:[

        | pdir |

        pdir := self class packageDirectoryForPackageName: packageName in: directory.

        pdir notNil ifTrue:[

            readerCls := (pdir / 'properties.json') exists 

                    ifTrue:[CypressFileTreeReader]

                    ifFalse:[CypressReader].

        ] ifFalse:[

            self error:'No such package found'.

        ].

    ].

    ^(readerCls onRepository: self) readPackage: packageName as: packageId from: directory

    "Created: / 18-09-2012 / 13:15:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressRepository methodsFor:'writing'!

write: packageIdOrProjectDefinition

    self writer writePackage: packageIdOrProjectDefinition asCypressPackage to: directory

    "Created: / 17-09-2012 / 22:12:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

write: packageIdOrProjectDefinition as: nm

    self writer writePackage: packageIdOrProjectDefinition asCypressPackage as: nm to: directory

    "Created: / 17-09-2012 / 22:23:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!CypressRepository class methodsFor:'documentation'!

version_SVN

    ^ '$Id::                                                                                                                        $'

! !