"

 Copyright (c) 2007-2010 Jan Vrany

 Copyright (c) 2009-2010 eXept Software AG

 Permission is hereby granted, free of charge, to any person

 obtaining a copy of this software and associated documentation

 files (the 'Software'), to deal in the Software without

 restriction, including without limitation the rights to use,

 copy, modify, merge, publish, distribute, sublicense, and/or sell

 copies of the Software, and to permit persons to whom the

 Software is furnished to do so, subject to the following

 conditions:

 The above copyright notice and this permission notice shall be

 included in all copies or substantial portions of the Software.

 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,

 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES

 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT

 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

 OTHER DEALINGS IN THE SOFTWARE.

"

"{ Package: 'stx:libsvn' }"

"{ NameSpace: SVN }"

Object subclass:#WorkingCopy

	instanceVariableNames:'path repository branch packageClassesChanged

		packageExtensionsChanged'

	classVariableNames:''

	poolDictionaries:''

	category:'SVN-Core'

!

!WorkingCopy class methodsFor:'documentation'!

copyright

"

 Copyright (c) 2007-2010 Jan Vrany

 Copyright (c) 2009-2010 eXept Software AG

 Permission is hereby granted, free of charge, to any person

 obtaining a copy of this software and associated documentation

 files (the 'Software'), to deal in the Software without

 restriction, including without limitation the rights to use,

 copy, modify, merge, publish, distribute, sublicense, and/or sell

 copies of the Software, and to permit persons to whom the

 Software is furnished to do so, subject to the following

 conditions:

 The above copyright notice and this permission notice shall be

 included in all copies or substantial portions of the Software.

 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,

 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES

 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT

 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

 OTHER DEALINGS IN THE SOFTWARE.

"

! !

!WorkingCopy class methodsFor:'instance creation'!

branch: aBranch path: aStringOrFilename

    ^self new 

        branch: aBranch; 

        path: aStringOrFilename;

        yourself

    "Created: / 19-08-2009 / 11:25:06 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

path: aStringOrFilename

    ^self new 

        path: aStringOrFilename;

        yourself

    "Created: / 19-08-2009 / 11:25:06 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Created: / 07-02-2012 / 22:31:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!WorkingCopy class methodsFor:'others'!

version_CVS

    ^ '$Header$'

! !

!WorkingCopy methodsFor:'accessing'!

branch

    branch ifNil:[ 

        branch := self isValid

                    ifTrue:[self branchFromWorkingCopy]

                    ifFalse:[self branchFromQuery].

        branch ifNil:[branch := self defaultBranch]].

    ^ branch value

    "Created: / 31-03-2008 / 12:50:17 / janfrog"

    "Modified: / 14-04-2008 / 12:44:25 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 09-01-2010 / 12:10:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

branch: branchOrString

    branch := branchOrString isString

        ifFalse:

            [repository := branchOrString repository.

            branchOrString]

        ifTrue:

            ["Do it in separate thread to speedup things"

            Promise value:

                [branch := 

                    repository branches

                        detect:[:branch|branch path = branchOrString]

                        ifNone:[self error:'No such branch: ', branchOrString]]].

    "Created: / 31-03-2008 / 13:29:13 / janfrog"

    "Modified: / 19-08-2009 / 11:22:45 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 09-01-2010 / 12:12:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

branchOrNil           

    | branches |

    branch ifNil:

        [branches := repository branches.

        branches size = 1 ifTrue:[^branch := branches anyOne].

        repository preferredBranch 

            ifNotNil:

                [branch := branches 

                    detect:[:branch|branch asString = repository preferredBranch]

                    ifNone:[nil]]].

    ^branch

    "Created: / 31-03-2008 / 12:50:17 / janfrog"

    "Modified: / 14-04-2008 / 12:44:25 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 29-03-2010 / 13:58:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

commitMode

    "UI Helper"

    ^self packageClassesChanged ifTrue:[#full] ifFalse:[#fast]

    "Created: / 13-08-2009 / 15:12:41 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

commitMode: mode

    mode == #full ifTrue:[packageClassesChanged := true].

    "Created: / 13-08-2009 / 15:13:08 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

defaultBranch

    ^repository branches 

        detect:[:branch | branch isTrunk ]

        ifNone:[self error: 'No branch!!'].

    "Created: / 11-04-2008 / 13:15:34 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 14-04-2008 / 11:53:04 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

manager

    ^repository manager

    "Created: / 11-06-2009 / 13:33:17 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

package

    ^self branch package

    "Created: / 31-03-2008 / 13:04:52 / janfrog"

    "Modified: / 08-02-2012 / 18:25:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

packageClasses

    ^self packageClassesWithPrivate reject:[:cls|cls owningClass notNil]

    "Created: / 31-03-2008 / 13:06:13 / janfrog"

    "Modified: / 23-03-2009 / 12:16:51 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

packageClassesChanged

    packageClassesChanged :=

        (packageClassesChanged == true)

            or:[self computePackageClassesChanged].

    ^ packageClassesChanged

    "Modified: / 13-08-2009 / 10:21:19 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 21-04-2010 / 23:29:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

packageClassesFiltered: classFilter

    ^self packageClasses select: [:class|classFilter value: class].

    "Created: / 23-03-2009 / 12:04:18 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

packageClassesWithPrivate

    ^ProjectDefinition searchForClassesWithProject: self package

    "Created: / 23-03-2009 / 12:06:58 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

packageClassesWithPrivateFiltered: classFilter

    ^self packageClassesWithPrivate select: [:class|classFilter value: class].

    "Created: / 23-03-2009 / 12:07:58 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

packageDefinition

    ^ Smalltalk 

        at:(ProjectDefinition initialClassNameForDefinitionOf:self package) 

                asSymbol.

    "Created: / 15-06-2009 / 12:41:20 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

packageExtensions

    ^ProjectDefinition searchForExtensionsWithProject: self package

    "Created: / 31-03-2008 / 13:06:13 / janfrog"

    "Modified: / 11-04-2008 / 08:25:00 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

packageExtensionsChanged

    packageExtensionsChanged :=

        (packageExtensionsChanged == true)

            or:[self computePackageExtensionsChanged].

    ^ packageExtensionsChanged

    "Modified: / 13-08-2009 / 10:22:23 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 21-04-2010 / 23:30:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

packageExtensionsFiltered:aBlock

    ^self packageExtensions select:aBlock

    "Created: / 11-06-2009 / 13:37:27 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

path

    ^ path

    "Created: / 31-03-2008 / 12:42:42 / janfrog"

    "Modified: / 21-08-2009 / 17:47:30 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

path:aStringOrFilename

    path := aStringOrFilename asFilename.

    "Created: / 31-03-2008 / 12:42:42 / janfrog"

!

pathBase

    ^self manager workingCopyBase.

    "Created: / 11-06-2009 / 13:32:54 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

repository

    ^ repository

    "Created: / 31-03-2008 / 12:42:22 / janfrog"

!

repository:aRepository

    repository := aRepository.

    "Created: / 31-03-2008 / 12:42:22 / janfrog"

!

url

    ^branch url

    "Created: / 31-03-2008 / 13:05:01 / janfrog"

! !

!WorkingCopy methodsFor:'accessing - change sets'!

changeSet

    ^self changeSetIgnoreAutoloaded: false

    "Created: / 23-03-2009 / 18:57:16 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 12-08-2009 / 14:26:55 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

changeSetForContainer: containerName

    ^(ChangeSet fromStream:

        (self containerReadStreamFor: containerName))

        name: containerName;

        yourself

    "Created: / 09-10-2008 / 20:21:56 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 07-07-2011 / 21:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

changeSetForContainer: containerName revision: rev

    | containerContents |

    containerContents := self cat: containerName revision: rev.

    ^(ChangeSet fromStream: containerContents readStream)

        name: containerName , ' (' , rev printString , ')';

        yourself

    "Created: / 10-02-2012 / 09:57:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

changeSetForUpdate

    |diffSet classesToRemove|

    diffSet := self diffSetBetweenImageAndWorkingCopy.

    classesToRemove := Set new.

    ActivityNotification notify:'Computing update change set'.

     "self = image, arg = revision"

    ^ (diffSet onlyInArg) 

        , (diffSet changed collect:[:changePair | changePair second ]) 

            , (diffSet onlyInReceiver 

                    select:[:change | change isClassDefinitionChange ]

                    thenCollect:[:change | 

                        classesToRemove add:change className.

                        ClassRemoveChange className:change className

                    ]) 

            , (diffSet onlyInReceiver 

                    select:[:change | 

                        change isMethodDefinitionChange 

                            and:[ (classesToRemove includes:change className) not ]

                    ]

                    thenCollect:[:change | 

                        MethodRemoveChange className:change className selector:change selector

                    ])

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

!

changeSetIgnoreAutoloaded: ignoreAutoloaded

    | containersToIgnore changeSet |

    containersToIgnore :=

        (self packageClassesFiltered:[:cls|cls isLoaded not])

            collect:[:cls|repository containerNameForClass: cls].

    changeSet := ChangeSet new.

    self containers do:

        [:container |

        (containersToIgnore includes: container)

            ifFalse:

                [changeSet addAll: 

                    (self changeSetForContainer: container)]].

    ^changeSet

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

! !

!WorkingCopy methodsFor:'accessing - containers'!

containerFilenameFor: containerName

    ^self path construct: containerName

    "Created: / 09-10-2008 / 20:25:02 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

containerReadStreamFor: containerName

    | containerFile containerStream |

    containerFile := self containerFilenameFor: containerName. 

    OperatingSystem isMSWINDOWSlike

        ifTrue:

            ["

            Dirty hack for MS Windows:

            Windows do not allow me to open some files for the first

            time (OpenError is raised). Second try after some time is usually OK.

            I don't know why this happens. Claus, do you have any idea?

            "

            [ containerStream := containerFile readStream ]

                on: OpenError do: 

                    [Delay waitForMilliseconds: 100. "A magic constant here :-("

                    containerStream := containerFile readStream]]

        ifFalse:

            ["

            Unix behaves pretty fine :-)

            "

            containerStream := containerFile readStream].

    ^containerStream

    "Created: / 09-10-2008 / 20:26:03 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

containerSuffixes

    ^ProgrammingLanguage all collect:[:each|each sourceFileSuffix]

    "Created: / 23-03-2009 / 18:53:56 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 30-12-2009 / 18:15:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

containerWriteStreamFor: containerName

    ^(self containerFilenameFor: containerName) writeStream

        eolMode: #nl;

        yourself

    "Created: / 09-10-2008 / 20:24:44 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

containerWriteStreamForExtensions: aProgrammingLanguage

    ^self containerWriteStreamFor: 

        (Repository containerNameForExtensions: aProgrammingLanguage)

    "Created: / 30-12-2009 / 18:14:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 30-12-2009 / 22:00:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

containers

    ^(self path directoryContents 

        select:

            [:container|self containerSuffixes anySatisfy:

                [:suffix|container endsWith:suffix]]) asSet

    "Created: / 23-03-2009 / 18:52:27 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 12-06-2009 / 21:44:06 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

containersToKeep

    | containers extensions |

    containers := self packageClasses 

        collect:[:cls|self repository containerNameForClass: cls].

    (extensions := self packageExtensions) notEmpty ifTrue:

        [| languages |

        languages :=  (extensions collect:[:each|each programmingLanguage]) asSet.

        languages do:

            [:lang|containers add: (Repository containerNameForExtensions: lang)]].    

    "Keep all directories"

    path directoryContents do:

        [:f|

        (f ~= '.svn' and: [(path / f) isDirectory]) ifTrue:

            [containers add: f]].

    "Keep all .st files that are for with other operating systems"

    self packageDefinition classNamesAndAttributesDo: [:nm :attributes|

        attributes do:[:attr|

            (#(win32 unix vms autoload) includes: attr) ifTrue:[

                containers add: ((SVN::Repository containerNameWithoutSuffixForClassNamed: nm) , '.st')

            ]

        ]

    ].

    ^containers asSet.

    "Created: / 12-06-2009 / 21:27:12 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 28-09-2011 / 17:15:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

containersWriteStreamForClass:cls 

    ^self containerWriteStreamFor: (repository containerNameForClass:cls)

    "Created: / 09-10-2008 / 20:23:59 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!WorkingCopy methodsFor:'accessing - diff sets'!

diffSetBetweenImageAndWorkingCopy

    | imageChangeSet revisionChangeSet |

    imageChangeSet := ChangeSet forPackage: self package ignoreAutoloaded: true.

    revisionChangeSet := self changeSetIgnoreAutoloaded: true.

    ^imageChangeSet diffSetsAgainst: revisionChangeSet

    "Created: / 24-03-2009 / 08:17:26 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 12-08-2009 / 14:32:03 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!WorkingCopy methodsFor:'accessing - tasks'!

commitTask