Make use of original working copy the default
Also use shared working copy if original working copy cannot
be used. These two options has been used (by JV) for more than
a year and seem to work fine.
"{ 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$'
! !