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

GitLibraryObject subclass:#GitSignature

	instanceVariableNames:'name namePtr email emailPtr timestamp'

	classVariableNames:'Default'

	poolDictionaries:''

	category:'SCM-Git-Core'

!

!GitSignature class methodsFor:'instance creation'!

name: name email: email

    | ref |

    ref := ByteArray new: ExternalBytes sizeofPointer.

    GitError raiseIfError: (GitPrimitives prim_git_signature_new: ref name: name email: email time: 0 offset: 0 ).

    ^self basicNew 

        setHandleFromRef:ref;

        yourself

    "

        self new

    "

    "Created: / 30-09-2012 / 10:00:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

new

    <todo: 'Replace with values from git config'>

    ^self name: '**unitialized**' email: '**unitialized**'

    "Created: / 25-09-2012 / 12:32:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitSignature class methodsFor:'accessing-default'!

default

    Default isNil ifTrue:[ 

        Default := self new.

        Default name: OperatingSystem getFullUserName.

        Default email: (Dialog request:'Git - Enter your email')

    ].

    ^ Default.

    "

        GitSignature default

    "

    "Created: / 25-09-2012 / 11:15:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitSignature methodsFor:'accessing'!

email

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

        email := (emailPtr := handle email) copyCStringFromHeap utf8Decoded

    ].

    ^email

    "Modified: / 25-09-2012 / 11:28:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

email:aString

    email := aString.

    emailPtr := ExternalBytes newNullTerminatedFromString:aString.

    handle email: emailPtr address

    "Modified: / 25-09-2012 / 14:26:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

name

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

        name := (namePtr := handle name) copyCStringFromHeap utf8Decoded

    ].

    ^name

    "Modified: / 25-09-2012 / 11:28:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

name:aString

    name := aString.

    namePtr := ExternalBytes newNullTerminatedFromString:aString.

    handle name: namePtr address

    "Modified: / 25-09-2012 / 14:26:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

timestamp

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

        timestamp := Timestamp utcSecondsSince1970: handle time + handle offset

    ].

    ^timestamp

    "Modified: / 29-09-2012 / 23:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

timestamp: aTimestamp

    timestamp := aTimestamp. 

    handle notNil ifTrue:[

        handle time: timestamp utcSecondsSince1970.

        handle offset: 0

    ].

    ^timestamp

    "Created: / 25-09-2012 / 14:36:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitSignature methodsFor:'copying'!

copyNow

    ^self copy timestamp: Timestamp now; yourself

    "Created: / 25-09-2012 / 14:40:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

shallowCopy

    ^self class basicNew 

        setHandle:(GitPrimitives prim_git_signature_dup: handle);

        yourself

    "Created: / 25-09-2012 / 14:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitSignature methodsFor:'printing & storing'!

printOn:aStream

    "append a printed representation if the receiver to the argument, aStream"

    aStream 

        nextPutAll: self name;

        space;

        nextPut:$<;

        nextPutAll: self email;

        nextPut:$>;

        space.

    self timestamp printOn: aStream

    "Modified: / 25-09-2012 / 14:40:41 / 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_GIT

    "Never, ever change this method. Ask JV or CG why"

    ^thisContext method mclass theNonMetaclass instVarNamed: #revision

!

version_SVN

    ^ '$Id$'

! !