"

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/mercurial' }"

SCMAbstractCommitTask subclass:#HGCommitTask

	instanceVariableNames:'author remote branch'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Mercurial-StX-Tasks'

!

!HGCommitTask 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

"

! !

!HGCommitTask methodsFor:'accessing'!

author

    ^author isNil ifTrue:[

        | a |     

        a := HGAuthorQuery query.

        a isNil ifTrue:[

            a := temporaryWorkingCopy repository config ui_username.

        ].

        a

    ] ifFalse:[

        author

    ]

    "Modified: / 07-12-2012 / 16:17:02 / jv"

    "Modified: / 18-02-2014 / 11:33:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

author:aString

    author := aString.

!

branch

    ^ branch

!

branch:aString

    branch := aString.

!

message

            ]

        ].

    ].

    "Created: / 01-04-2013 / 13:53:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

remote

    ^ remote

!

remote:something

    remote := something.

! !

!HGCommitTask methodsFor:'executing'!

doCommit: msg files: containers

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

    self synchronized:[    

        wc := temporaryWorkingCopy.

        createBranch := branch notNil and:[branch ~= wc branch name].

        createBranch ifTrue:[

                HGCommitError raiseErrorString: 'Commiting to an existing branch is not allowed'.

                ^self.

            ].

            wc branch: branch.

        ].

        "/Cannot commit only some files after merge, in that case, commit everything"

        self isMergeCommit ifTrue:[

            wc commit: msg files: nil author: self author.

        ] ifFalse:[

            wc commit: msg files: containers author: self author.

        ].

        self isPackageCommit ifTrue:[

            wc repository push: nil force: true.

            remote notNil ifTrue:[

            ]. 

            "/Also, mark original (package) working copy as given branch

            "/so subsequent 'hg update' will update from that branch

            createBranch ifTrue:[

            ].

        ]

    ].

    "Created: / 15-11-2012 / 16:52:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 10-12-2012 / 10:53:14 / jv"

!

doPrepareWorkingCopy2

    self isPackageCommit ifTrue:[

        self do:[

            self doFileOut

        ]

    ].

    "Created: / 28-11-2012 / 09:42:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGCommitTask methodsFor:'executing - private'!

!

doCompileVersionMethods

    "Created: / 09-10-2013 / 11:58:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

        ^self.

    ].

! !

!HGCommitTask methodsFor:'queries'!

commitingNewHead

    "Return true, if a new head is to be commited, false otherwise.

     !!!!!!NOTE!!!!!!

     When there is no head at all such as when commiting to a fresh repository

     or into a just-created branch, this method returns FALSE.

     "

    | heads changeset |

    heads := temporaryWorkingCopy heads.

    heads isEmpty ifTrue:[ ^ false ].

    changeset := temporaryWorkingCopy changeset.

    ^(heads includes: changeset) not

    "Created: / 08-03-2013 / 20:11:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 01-04-2013 / 12:57:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

isMergeCommit

    "Return true, if this commit is a merge commit, i.e., 

     if commited changeset will have two parents"

    ^temporaryWorkingCopy parent2Id isNull not

    "Created: / 01-04-2013 / 13:03:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGCommitTask class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

!

version_SVN

    ^ '§Id::                                                                                                                        §'

! !