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

GitModel subclass:#GitSignature

	instanceVariableNames:'name email timestamp'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Git-Model'

!

!GitSignature methodsFor:'accessing'!

email

    (email isNil and:[handle notNil]) ifTrue:[

        email := handle email copyCStringFromHeap utf8Decoded

    ].

    ^email

    "Modified: / 19-09-2012 / 01:56:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

name

    (name isNil and:[handle notNil]) ifTrue:[

        name := handle name copyCStringFromHeap utf8Decoded

    ].

    ^name

    "Modified: / 19-09-2012 / 01:56:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

timestamp

    (timestamp isNil and:[handle notNil]) ifTrue:[

        timestamp := Timestamp new osTime: handle when time

    ].

    ^timestamp

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

! !

!GitSignature methodsFor:'private-accessing'!

getHandleClass

    ^GitSignatureStructure

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

!

setHandle: hndl

    self assert: (hndl isNil or:[hndl class == self getHandleClass]).

    handle := hndl.

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

! !

!GitSignature class methodsFor:'documentation'!

version_SVN

    ^ '$Id::                                                                                                                        $'

! !