"{ Package: 'stx:libscm/git' }"
GitLibraryObject subclass:#GitReference
instanceVariableNames:'name'
classVariableNames:''
poolDictionaries:''
category:'SCM-Git-Core'
!
!GitReference methodsFor:'accessing'!
name
name isNil ifTrue:[
name := (GitPrimitives prim_git_reference_name: handle)
].
^name
"Created: / 25-09-2012 / 11:00:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
oid
^ GitOid fromBytes: (GitPrimitives prim_git_reference_oid: handle).
"Created: / 25-09-2012 / 10:48:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GitReference methodsFor:'initialization & release'!
free
handle notNil ifTrue:[
GitPrimitives prim_git_reference_free: handle.
handle := nil.
].
"Created: / 25-09-2012 / 10:44:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GitReference methodsFor:'private-accessing'!
getHandleClass
^GitReferenceHandle
"Created: / 25-09-2012 / 10:44:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GitReference methodsFor:'testing'!
isGitReference
^true
"Created: / 02-10-2012 / 16:12:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GitReference class methodsFor:'documentation'!
version_GIT
"Never, ever change this method. Ask JV or CG why"
^thisContext method mclass theNonMetaclass instVarNamed: #revision
!
version_SVN
^ '$Id$'
! !