git/GitError.st
author Jan Vrany <jan.vrany@labware.com>
Fri, 19 Feb 2021 08:29:41 +0000
changeset 924 4d92f234f671
parent 481 0cfef855baa2
permissions -rw-r--r--
Rework and fix HGSourceCodeManager >> #revisionLogOf:...directory:module:` This commit changes the logic in two ways: 1. #newestRevision is now the newest revision in the branch that *contains* given file (not necesarily modidfes it). If there are multiple heads in that branch, pretty much random one is returned. This changes old behavior and therefore this commit updates tests. 2. If a specific single revision is requested, i.e., both from and to revisions are the same, revision log with that single revision is returned no matter whether it modifies the file or even contains that file at all. This is essentially a workaround to fix issue #305. Moreover, this commit simplifies the code a lot by delegating all the changeset searching and filtering to mercurial using revset expressions. See https://swing.fit.cvut.cz/projects/stx-jv/ticket/305#comment:3

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

Error subclass:#GitError
	instanceVariableNames:'code klass'
	classVariableNames:''
	poolDictionaries:'GitErrorKlass'
	category:'SCM-Git-Exceptions'
!


!GitError class methodsFor:'raising'!

raise: code
    "Raises a GitError with given code. Class and message is
     take from last giterr_last, which is then cleared."

    ^self new raise: code

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

raiseIfError: code
    "Raises a GitError with given code if its an error. 
     Class and message is take from last giterr_last, which is then cleared."

    code ~~ 0"OK" ifTrue:[
        self new raise: code
    ].

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

!GitError methodsFor:'accessing'!

code
    ^ code
!

code:anInteger
    code := anInteger.
!

klass
    ^ klass
!

klass:anInteger
    klass := anInteger.
! !

!GitError methodsFor:'raising'!

raise: gitErrorCode
    "Raises a GitError with given code. Class and message is
     take from last giterr_last, which is then cleared."

    | git_error |

    code := gitErrorCode.
    git_error := GitPrimitives prim_giterr_last.
    git_error setSize: 8.
    messageText := (git_error pointerAt: 1) copyCStringFromHeap.
    klass := git_error longAt:1+4.
    GitPrimitives prim_giterr_clear.

    ^self raise

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

!GitError class methodsFor:'documentation'!

version_GIT
    "Never, ever change this method. Ask JV or CG why"
    ^thisContext method mclass theNonMetaclass instVarNamed: #revision
!

version_SVN
    ^ '$Id$'
! !