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

GitObject subclass:#GitCommit

	instanceVariableNames:'author commiter message timestamp tree parents'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Git-Core'

!

!GitCommit class methodsFor:'accessing'!

libraryName

    OperatingSystem isUNIXlike ifTrue:[^'libgit2.so'].

    OperatingSystem isMSWINDOWSlike ifTrue:[^'git2.dll'].

    self error:'Library name for host OS is not known'

!

structSize

    "Returns size of undelaying structure in bytes"

    ^0

! !

!GitCommit methodsFor:'accessing'!

/ name

    "Returns an tree entry with given name"

    ^self tree / name

    "Created: / 10-09-2012 / 19:03:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

author

    author isNil ifTrue:[

	author := GitSignature new

		    setHandle: (GitPrimitives prim_git_commit_author: handle)

		    yourself.

    ].

    ^author

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

!

committer

    commiter isNil ifTrue:[

	commiter := GitSignature new

		    setHandleFromExternalAddress: (GitPrimitives prim_git_commit_committer: handle)

		    yourself.

    ].

    ^commiter

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

!

message

    message isNil ifTrue:[

	message := GitPrimitives prim_git_commit_message: handle.

    ].

    ^message

    "Created: / 10-09-2012 / 14:34:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

oid

    oid isNil ifTrue:[

	oid := GitOid fromBytes: (GitPrimitives prim_git_commit_id: handle).

    ].

    ^ oid

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

!

parents

    parents isNil ifTrue:[

	| nparents ref err |

	nparents := GitPrimitives prim_git_commit_parentcount: handle.

	parents := Array new: nparents.

	ref := ByteArray new: ExternalBytes sizeofPointer.

	0 to: nparents - 1 do:[:n|

	    | parent |

	    err := GitPrimitives prim_git_commit_parent: ref commit: handle n: n.

	    GitError raiseIfError: err.

	    parent := GitCommit new.

	    parent setHandleFromRef: ref.

	    parents at: n + 1 put: parent.

	].

    ].

    ^parents.

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

!

tree

    "Return a GitTree associated with this commit"

    tree isNil ifTrue:[

	| ref oid |

	ref := ByteArray new: ExternalBytes sizeofPointer.

	GitError raiseIfError: (GitPrimitives prim_git_commit_tree: ref commit: handle).

	oid := GitPrimitives prim_git_commit_tree_oid: handle.

	tree := GitTree new

		    setHandleFromRef: ref;

		    setOid: oid;

		    setRepository: self repository;

		    yourself.

    ].

    ^tree

    "Created: / 10-09-2012 / 19:02:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitCommit methodsFor:'private-accessing'!

getHandleClass

    ^GitCommitHandle

    "Created: / 17-09-2012 / 21:20:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitCommit methodsFor:'testing'!

isGitCommit

    ^true

    "Created: / 19-09-2012 / 13:57:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

isGitTreeish

    ^true

    "Created: / 19-09-2012 / 13:57:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitCommit class methodsFor:'documentation'!

version_GIT

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

    ^thisContext method mclass theNonMetaclass instVarNamed: #revision

!

version_SVN

    ^ '$Id$'

! !