"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2013 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

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

SCMAbstractFileoutLikeTask subclass:#SCMAbstractCommitTask

	instanceVariableNames:'message paths'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Common-StX-Tasks'

!

!SCMAbstractCommitTask class methodsFor:'documentation'!

copyright

"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2013 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

! !

!SCMAbstractCommitTask methodsFor:'accessing'!

message

!

message:aString

    message := aString.

!

paths

    ^ paths

!

paths:aCollection

    paths := aCollection.

! !

!SCMAbstractCommitTask methodsFor:'executing'!

do

    self

        doPrepareWorkingCopy;

        doCommit

    "Created: / 23-03-2009 / 11:15:37 / Jan Vrany <vranyj1@fel.cvut.cz>"

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

!

doCommit

    |containers commitLabel msg |

    msg := ((message ? '<no commit message>') asStringCollection

                reject: [:line|line size >= 2 and:[line first == $# and:[line second == $#]]])

                asString.

    self do:[                             

        self isPackageCommit ifFalse:[

            paths notEmptyOrNil ifTrue:[

                commitLabel := paths size > 2

                    ifTrue:[((paths upTo: 2) asStringWith:', ') , (' and %1 others' bindWith: paths size - 3)]

                    ifFalse:[paths asStringWith:', '].

            ] ifFalse:[

                commitLabel := temporaryWorkingCopy pathName.

            ].

            containers := paths

        ] ifTrue:[

            commitLabel := (paths isEmptyOrNil or:[paths size > 2]) 

                            ifTrue:[packages size == 1 ifTrue:[ packages anElement name ] ifFalse:[ packages first name , ', ...' ]]

                            ifFalse:[paths asStringWith:', '].

            containers := paths isEmptyOrNil 

                ifTrue:[self isSelectiveFileoutTask 

                                ifTrue:[self containersToFileOut]

                                ifFalse:[nil "Meaning - all modified files will be commited"]]

                ifFalse:[paths].

        ].

        (containers isNil or:[containers notEmpty]) ifTrue: [ 

            ActivityNotification notify:'Commiting ' , commitLabel.

            self doCommit: msg files: containers.

        ].

        ActivityNotification notify:'Shrinking changes'.

        self isPackageCommit ifTrue:[

            self doShrinkChanges.

        ].

    ].

    self isPackageCommit ifTrue:[

        packages do:[:each | each isVirtual ifFalse: [ each commited ] ]

    ].

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

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

    "Modified: / 14-03-2012 / 17:42:25 / jv"

    "Modified: / 27-02-2014 / 22:54:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doPrepareWorkingCopy

    self doPrepareWorkingCopy1.

    self doPrepareWorkingCopy2.

    "Created: / 11-04-2008 / 09:19:27 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 17-08-2009 / 18:28:34 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 07-10-2012 / 09:32:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doPrepareWorkingCopy1

    self isPackageCommit ifTrue:[

        self do:[

            self doUpdateCode.

        ]

    ].

    "Created: / 10-05-2012 / 17:08:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doPrepareWorkingCopy2

    self isPackageCommit ifTrue:[

        self do:[

            | p |

            p := packages anElement.

            p ensureTemporaryWorkingCopy.

            self doFileOut

        ]

    ].

    "Created: / 10-05-2012 / 17:08:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 21-02-2014 / 23:28:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SCMAbstractCommitTask methodsFor:'executing-private'!

doCommit: msg files: containers

    "Actually commit the changes, To be overridden by subclasses"

    self synchronized:[

        self halt: 'Have to be smart here!!!!!!'.

        self package workingCopy commit: msg files: containers.

"/      "Update the working copy. We need svn info

"/       to report commited revision"

"/      (UpdateCommand new)

"/          workingCopy:self workingCopy;

"/          execute

    ].

    "Created: / 15-11-2012 / 09:39:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 21-02-2014 / 23:27:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doSanityChecks

    "Perform some sanity checks on the package

     (or individual classes and/or methods). 

     Return a project checker. Use #problems to get the

     list of problems"

    | checker |

    self isPackageCommit ifFalse:[ ^ nil ].

    (ConfigurableFeatures includesFeature:#ProjectChecker) ifFalse:[ ^ nil ].

    checker := ProjectChecker new.

    packages do:[:each | each isVirtual ifFalse: [ checker package: each name ] ].

    checker

        classes: classes;

        methods: (extensionMethods = #() ifTrue:[nil] ifFalse:[extensionMethods]);

        check.

    ^ checker

    "Created: / 11-04-2008 / 09:19:27 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 17-08-2009 / 18:28:34 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Created: / 13-02-2012 / 16:36:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 27-02-2014 / 22:54:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doShrinkChanges

    "Do this only iff this is a package commit"

    self isPackageCommit ifTrue:[

        packages do:[:each |

            each isVirtual ifFalse: [ 

               (ChangeSet current)

                   condenseChangesForPackageAfterCommit:each name;

                   condenseChangesForExtensionsInPackage:each name;

                   flushChangedClassesCache;

                   yourself.

            ]

        ]

    ].

    "Created: / 15-11-2012 / 09:41:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 27-02-2014 / 22:54:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SCMAbstractCommitTask methodsFor:'queries'!

isCommitingAllChangedPackages

    "Return true, if package group contain all changed packages

     of given repository, false otherwise."

    ^ packages containsAllChangedPackages

    "Created: / 03-03-2014 / 00:12:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SCMAbstractCommitTask methodsFor:'testing'!

isPackageCommit

    "Returns true iff this task is for a package

     (or part of it). False if this is ad-hoc commit task -

    for example ad-hoc commit from a file browser"

    ^ packages notEmpty" and:[paths isEmptyOrNil]"

    "Modified: / 14-03-2012 / 17:27:17 / jv"

    "Modified: / 21-02-2014 / 22:54:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SCMAbstractCommitTask class methodsFor:'documentation'!

version_GIT

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

    ^thisContext method mclass theNonMetaclass instVarNamed: #revision

!

version_HG

    ^ '$Changeset: <not expanded> $'

!

version_SVN

    ^ '§Id::                                                                                                                        §'

! !