Bugfix in HGPackageModelRegistry class>>flush: and pull command output parsing.
"{ Package: 'stx:libscm/git' }"
GitRepositoryObject subclass:#GitObject
instanceVariableNames:'oid'
classVariableNames:''
poolDictionaries:'GitObjectType'
category:'SCM-Git-Core'
!
!GitObject class methodsFor:'instance creation'!
newForType: type
type == OBJ_ANY ifTrue:[
^self new
].
type == OBJ_COMMIT ifTrue:[
^GitCommit new
].
type == OBJ_TREE ifTrue:[
^GitTree new
].
type == OBJ_TAG ifTrue:[
^GitTag new
].
type == OBJ_BLOB ifTrue:[
^GitBlob new
].
self error:'Unsupported git object type: ', type printString.
"Created: / 10-09-2012 / 18:52:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GitObject class methodsFor:'accessing'!
structSize
"Returns size of undelaying structure in bytes"
^0
! !
!GitObject methodsFor:'accessing'!
oid
oid isNil ifTrue:[
" Replace by proper git_*_id call ------------v "
oid := GitOid fromBytes: (GitPrimitives subclassResponsibility).
].
^ oid
"Modified: / 30-09-2012 / 10:39:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GitObject methodsFor:'initialization'!
setOid: aGitOid
oid := aGitOid
"Created: / 10-09-2012 / 18:54:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GitObject methodsFor:'initialization & release'!
free
handle notNil ifTrue:[
GitPrimitives prim_git_object_free: handle.
handle := nil.
].
"Created: / 17-09-2012 / 21:16:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GitObject methodsFor:'testing'!
isGitObject
^true
"Created: / 19-09-2012 / 13:55:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GitObject class methodsFor:'documentation'!
version_GIT
"Never, ever change this method. Ask JV or CG why"
^thisContext method mclass theNonMetaclass instVarNamed: #revision
!
version_SVN
^ '$Id:: $'
! !