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

GitLibraryObject subclass:#GitIndex
	instanceVariableNames:'repository'
	classVariableNames:''
	poolDictionaries:'GitObjectType'
	category:'SCM-Git-Core'
!


!GitIndex class methodsFor:'instance creation'!

on: path
    "Creates new index on given file. If the file does not exist,
     the index is only in-memory. To write it to disk, use #write"

    | err ref |

    ref := ByteArray new: ExternalBytes sizeofPointer.
    err := GitPrimitives prim_git_index_open: ref index_path: path asString.
            GitError raiseIfError: err.
    ^GitIndex new
        setHandleFromRef: ref;
        yourself

    "Created: / 02-10-2012 / 15:39:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!GitIndex methodsFor:'accessing'!

tree
    | oid err |

    oid := GitOid new.
    err := GitPrimitives prim_git_tree_create_fromindex: oid index: handle.
    GitError raiseIfError: err.
    ^repository lookup: oid type: OBJ_TREE

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

!GitIndex methodsFor:'adding & removing'!

add: entry
    ^self add: entry stage: 0

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

add: entry stage: stage
    | path err |

    path := entry pathNameRelative.
    err := GitPrimitives prim_git_index_add: handle path: path stage: stage.
    GitError raiseIfError: err.

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

!GitIndex methodsFor:'initialization & release'!

free
    handle notNil ifTrue:[
        GitPrimitives prim_git_index_free: handle. 
        handle := nil.
    ].

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

!GitIndex methodsFor:'operations'!

read
    "Add or update an index entry from a file in disk"

    | err |     
    err := GitPrimitives prim_git_index_read: handle.
    GitError raiseIfError: err.

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

unique
    "Add or update an index entry from a file in disk"

    | err |     
    err := GitPrimitives prim_git_index_uniq: handle.
    GitError raiseIfError: err.

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

write
    | err |     

"/    err := GitPrimitives prim_git_index_uniq: handle.
"/    GitError raiseIfError: err.
    err := GitPrimitives prim_git_index_write: handle.
    GitError raiseIfError: err.

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

!GitIndex methodsFor:'private-accessing'!

getHandleClass
    ^GitIndexHandle

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

setRepository: aGitRepository
    repository := aGitRepository

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

!GitIndex class methodsFor:'documentation'!

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

version_SVN
    ^ '$Id$'
! !