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

GitRepositoryObject subclass:#GitWorkingCopy
	instanceVariableNames:'reference commit index root detached'
	classVariableNames:''
	poolDictionaries:'GitStatusCodes'
	category:'SCM-Git-Core'
!


!GitWorkingCopy methodsFor:'accessing'!

commit
    commit isNil ifTrue:[
        commit := repository lookup: self reference oid.
    ].
    ^ commit

    "Modified: / 30-09-2012 / 10:25:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

index
    "Get the Index file for this repository."

    ^repository index

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

reference
    reference isNil ifTrue:[
        reference := repository head.
        detached := repository headIsDetached.
    ].
    ^reference

    "Created: / 30-09-2012 / 10:24:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

root
    ^ root
! !

!GitWorkingCopy methodsFor:'actions'!

checkout
    self checkout: self reference

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

checkout: aStringOrOidOrTreeishOrReference
    | obj |

    aStringOrOidOrTreeishOrReference isGitTreeish ifTrue:[
        obj := aStringOrOidOrTreeishOrReference 
    ] ifFalse:[
        | oid |

        aStringOrOidOrTreeishOrReference isGitOid  ifTrue:[
            oid := aStringOrOidOrTreeishOrReference
        ] ifFalse:[
            aStringOrOidOrTreeishOrReference isGitReference ifTrue:[
                oid := aStringOrOidOrTreeishOrReference oid.
            ] ifFalse:[
                oid := GitOid fromString: aStringOrOidOrTreeishOrReference
            ].
        ].
        obj := repository lookup: oid.
    ].

    repository checkout: obj.
    commit := obj.

    "Created: / 19-09-2012 / 14:00:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

commit: message
    ^self commit: message tree: self index tree

    "Created: / 25-09-2012 / 10:19:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

commit: message tree: tree
    ^self commit: message tree: tree parents: (Array with: self commit)

    "Created: / 25-09-2012 / 11:09:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

commit: message tree: tree parents: parents 
    ^self commit: message tree: tree parents: parents update: self reference.

    "Created: / 25-09-2012 / 11:11:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

commit: message tree: tree parents: parents update: refOrNil
    ^self commit: message tree: tree parents: parents update: refOrNil commiter: nil.

    "Created: / 25-09-2012 / 12:24:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

commit: message tree: tree parents: parents update: refOrNil commiter: commiterOrNil
    ^self commit: message tree: tree parents: parents update: refOrNil commiter: commiterOrNil author: nil

    "Created: / 25-09-2012 / 14:50:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

commit: message tree: tree parents: parents update: refOrNil commiter: commiterOrNil author: authorOrNil
    reference := commit := detached := nil.
    ^repository commit: message tree: tree parents: parents update: refOrNil commiter: commiterOrNil author: authorOrNil

    "Created: / 25-09-2012 / 14:50:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

stage
    "Stage all unstaged files"

    self entriesAndStatusesDo: [:entry :status|
        (status bitAnd: (GIT_STATUS_WT_MODIFIED | GIT_STATUS_WT_DELETED)) ~~ 0 ifTrue:[
            self index add: entry.            
        ] ifFalse:[
            (status bitAnd: (GIT_STATUS_WT_DELETED)) ~~ 0 ifTrue:[
                self index remove: entry.
            ].
        ].
    ].
    self index write

    "Created: / 25-09-2012 / 00:13:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!GitWorkingCopy methodsFor:'enumerating'!

entriesAndStatusesDo: aBlock
    | cb err |

    cb := ExternalFunctionCallback new.
    cb returnType:#int argumentTypes: #(charPointer int pointer).
    cb action:[:path :status :payload|
        aBlock value: (root / path copyCStringFromHeap) value: status
    ].
    cb generateClosure.
    err := GitPrimitives prim_git_status_foreach: repository getHandle callback: cb payload: nil.
    GitError raiseIfError: err.

    "Created: / 25-09-2012 / 00:11:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!GitWorkingCopy methodsFor:'initialization'!

setRepository: aGitRepository
    super setRepository: aGitRepository.
    handle := aGitRepository getHandle.
    root := GitWorkingCopyEntry wc: self path: repository workdir.

    "Created: / 19-09-2012 / 09:43:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!GitWorkingCopy methodsFor:'initialization & release'!

free
    "Nothing to do, I have no backing structure"

    "Modified: / 25-09-2012 / 00:39:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!GitWorkingCopy methodsFor:'instance creation'!

/ aString
    ^root construct: aString

    "Created: / 24-09-2012 / 13:49:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

construct: aString

    ^root construct: aString

    "Created: / 24-09-2012 / 13:50:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!GitWorkingCopy methodsFor:'private'!

statusOf: aStringOrFilenameOrWorkingCopyEntry
    ^repository statusOf: aStringOrFilenameOrWorkingCopyEntry

    "Created: / 24-09-2012 / 22:36:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!GitWorkingCopy methodsFor:'private-accessing'!

getHandleClass
    ^ self shouldNotImplement

    "Modified (comment): / 25-09-2012 / 00:39:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!GitWorkingCopy methodsFor:'testing'!

isOffRepo
    "Return true, if the working copy is off-repository, i.e.,
     whether working copy path is not the same as repository
     path."

    ^repository hasOffRepoWorkdir

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

!GitWorkingCopy class methodsFor:'documentation'!

version_GIT
    "Never, ever change this method. Ask JV or CG why"
    ^thisContext method mclass theNonMetaclass instVarNamed: #revision
!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !