"{ Package: 'stx:libsvn' }"

AbstractSourceCodeManager subclass:#SVNSourceCodeManager

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'System-SourceCodeManagement'

!

!SVNSourceCodeManager class methodsFor:'documentation'!

documentation

"

    For now, this is a dummy SourceCodeManager.

    It is only provided to deliver the correct versionMethodNameTemplates

    and versionMethod names.

    Might get more in the future.

"

! !

!SVNSourceCodeManager class methodsFor:'queries'!

isExperimental

    ^ OperatingSystem getLoginName ~= 'cg'. 

    ^ true

    "

     self isExperimental

    "

!

isResponsibleForPackage:packageId

    ^ SVN::RepositoryManager notNil

    and:[ SVN::RepositoryManager current hasRepositoryForPackage: packageId ]

!

managerTypeName

    ^ 'SVN'

!

nameOfVersionMethodForExtensions

    ^ #'extensionsVersion_SVN'

!

nameOfVersionMethodInClasses

    ^ #'version_SVN'

! !

!SVNSourceCodeManager class methodsFor:'source code access'!

loadPackageWithId: aPackageId fromRepositoryAsAutoloaded: doLoadAsAutoloaded

     "Return true if loaded, false otherwise."

    | retval loadBlock |

    loadBlock := [

        | repo packageDir manager|

        manager := SVN::RepositoryManager current.

        repo := manager repositoryForPackage: aPackageId.

        retval := (repo notNil and:[repo exists]) ifTrue:[

            repo workingCopy checkout.

            packageDir := Smalltalk packageDirectoryForPackageId:aPackageId.

            Smalltalk

                loadPackage:aPackageId

                fromDirectory:packageDir

                asAutoloaded:doLoadAsAutoloaded

        ] ifFalse:[false]

    ].

    (Query query == true)

        ifTrue:[loadBlock value]

        ifFalse:[

            Query 

                answer: true 

                do:[

                    SVN::ProgressDialog

                        openOn: loadBlock

                        title: ' Loading...'

                        subtitle: aPackageId asText allItalic

                ]

    ].

    ^ retval

    "Created: / 09-04-2009 / 17:20:01 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!SVNSourceCodeManager class methodsFor:'source code administration'!

revisionInfoFromString:aString

    "{ Pragma: +optSpace }"

    "return a dictionary filled with revision info.

     This extracts the relevant info from aString."

    ^ self revisionInfoFromRCSString:aString

    "

     self revisionInfoFromString:(Array version_CVS)   

     self revisionInfoFromString:(stx_libbasic2 extensionsVersion_CVS)   

    "

    "Modified: 29.1.1997 / 19:00:35 / cg"

! !

!SVNSourceCodeManager class methodsFor:'testing'!

isSVN

    ^ true

! !

!SVNSourceCodeManager class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !