"{ Package: 'stx:libsvn' }"

"{ NameSpace: SVN }"

Object subclass:#RepositoryConfiguration

	instanceVariableNames:'package url'

	classVariableNames:''

	poolDictionaries:''

	category:'SVN-Core'

!

!RepositoryConfiguration class methodsFor:'instance creation'!

package: package url: url

    ^self new

        package: package;

        url: url

    "Created: / 19-08-2009 / 12:17:39 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!RepositoryConfiguration methodsFor:'accessing'!

package

    ^ package

!

package:aString

    package := aString.

!

packagePattern: aString

    <resource: #obsolete>

    self package: aString

    "Created: / 16-08-2009 / 16:59:27 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

url

    ^ url

!

url: aStringOrUrl 

    | givenUrl |

    givenUrl := aStringOrUrl asURL.

    "Modified: / 16-08-2009 / 16:42:20 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

urlForPackage: pkg

    | packageAsPath |

    packageAsPath := pkg asString copy replaceAll:$: with:$/.

    ^url asString expandPlaceholdersWith:

        (Dictionary new

            at: 'p' put: packageAsPath;

            yourself)

    "Created: / 16-08-2009 / 16:56:22 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

urlPattern: aString

    <resource: #obsolete>

    self url: aString

    "Created: / 16-08-2009 / 16:59:45 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

urlString

    url isNil ifTrue: [^''].

    ^ url urlPrintString

    "Created: / 16-08-2009 / 17:28:44 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!RepositoryConfiguration methodsFor:'comparing'!

= anotherConf

    ^self class == anotherConf class

        and:[package = anotherConf package

            and:[url = anotherConf url]].

    "Created: / 25-05-2009 / 18:54:47 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 16-08-2009 / 17:24:37 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

hash

    ^package hash bitXor:

        url hash

    "Created: / 25-05-2009 / 18:53:53 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!RepositoryConfiguration methodsFor:'converting'!

literalArrayEncoding

    ^Array

        with: self class name

        with: #package:

        with: package literalArrayEncoding

        with: #url:

        with: url asString.

    "

        (SVN::RepositoryConfiguration package:'stx:goodies/libsvn' url: 'http://smalltalk.felk.cvut.cz/svn/stx/goodies/libsvn')

            literalArrayEncoding

            decodeAsLiteralArray

    "

    "Created: / 19-08-2009 / 21:56:21 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!RepositoryConfiguration methodsFor:'printing & storing'!

printOn:aStream

    "append a printed representation if the receiver to the argument, aStream"

    self class storeOn:aStream.

    aStream space.

    aStream nextPutAll:'package: '.

    package storeOn:aStream.

    aStream space.

    aStream nextPutAll:'url: '.

    url asString storeOn:aStream.

    "Modified: / 19-08-2009 / 12:18:04 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!RepositoryConfiguration methodsFor:'queries'!

matchesPackage: pkg

    ^pkg 

        ifNil:[false]

        ifNotNil:[pkg matches: package]

    "Created: / 26-05-2008 / 09:36:27 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 16-08-2009 / 16:29:21 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!RepositoryConfiguration class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

!

version_SVN

    ^'§Id: SVN__RepositoryConfiguration.st 111 2009-08-19 20:07:10Z vranyj1 §'

! !