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

GitHandle subclass:#GitObject
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:'GitObjectType'
	category:'Git-Model'
!


!GitObject class methodsFor:'instance creation'!

type: type addressBytes: abytes
    type == OBJ_ANY ifTrue:[
        ^self new setAddressFromBytes: abytes
    ].
    type == OBJ_COMMIT ifTrue:[
        ^GitCommit new setAddressFromBytes: abytes
    ].
    type == OBJ_TREE ifTrue:[
        ^GitTree new setAddressFromBytes: abytes
    ].
    type == OBJ_TAG ifTrue:[
        ^GitTag new setAddressFromBytes: abytes
    ].
    type == OBJ_BLOB ifTrue:[
        ^GitBlob new setAddressFromBytes: abytes
    ].
    self error:'Unsupported git object type: ', type printString.

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

!GitObject class methodsFor:'accessing'!

structSize
    "Returns size of undelaying structure in bytes"

    ^0
! !

!GitObject methodsFor:'finalization'!

basicFree
    ^GitPrimitives prim_git_object_free: self.

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

!GitObject class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !