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

Object subclass:#GitLibraryObject
	instanceVariableNames:'handle'
	classVariableNames:''
	poolDictionaries:''
	category:'SCM-Git-Core'
!

!GitLibraryObject class methodsFor:'documentation'!

documentation
"
    An abstract superclass for all libgit2 objects.

    [author:]
        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]
        handle          <GitHandle>     a pointer to underlayng
                                        C object (structure)

    [class variables:]

    [see also:]

"
! !

!GitLibraryObject methodsFor:'finalization'!

executor
    ^self class basicNew setHandleFromOriginal: self

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

finalize
    self free

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

!GitLibraryObject methodsFor:'initialization & release'!

free
    handle notNil ifTrue:[
        self subclassResponsibility.
        handle := nil.
    ].

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

!GitLibraryObject methodsFor:'private-accessing'!

getHandle
    ^handle

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

getHandleClass
    "Returns a class of my handle."

    ^self subclassResponsibility

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

setHandle: hndl
    self assert: (hndl isNil or:[hndl class == self getHandleClass]).
    handle := hndl.
    handle notNil ifTrue:[
        self registerForFinalization.
    ].

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

setHandleFromExternalAddress: anExternalAddress
    | cls |

    cls := self getHandleClass.
    self setHandle: (self getHandleClass new setAddress: anExternalAddress address size: cls structSize)

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

setHandleFromOriginal: original
    "To be called only from #executor"
    handle := original getHandle

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

setHandleFromRef: aByteArray
    "Initalized a handle from a reference. The passed bytearray
     is supposed to contain a C pointer data to the underlaing
     C object"

    self assert: aByteArray isByteArray.
    self assert: aByteArray size == ExternalAddress pointerSize.
    self setHandle: (self getHandleClass newAddress: (aByteArray longAt: 1))

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

!GitLibraryObject class methodsFor:'documentation'!

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

version_SVN
    ^ '$Id$'
! !