"{ Package: 'stx:libscm/git' }"

SCMAbstractPackageModelRegistry subclass:#GitPackageModelRegistry

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Git-StX'

!

!GitPackageModelRegistry methodsFor:'accessing'!

packageNamed:package

    "Returns a GitPackageWorkingCopy for given package."

    | dir repo |

    packages at: package ifPresent: [ :pkg | ^ pkg ].

    wcs at: package ifPresent:[ :wc | ^ wc ].

    dir := Smalltalk getPackageDirectoryForPackage: package.

    dir := GitRepository discover: dir.

    dir isNil ifTrue:[

        GitError raiseErrorString: 'No repository found for package ',package.

        ^nil.

    ].

    repo := repositories at: dir ifAbsentPut: [ GitRepository open: dir ].

    ^packages at: package ifAbsentPut: [ GitPackageModel name: package repository: repo ].

    "Created: / 06-10-2012 / 22:40:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 14-11-2012 / 00:34:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitPackageModelRegistry class methodsFor:'documentation'!

version_GIT

    "Never, ever change this method. Ask JV or CG why"

    ^thisContext method mclass theNonMetaclass instVarNamed: #revision

!

version_SVN

    ^ '$Id$'

! !