Help language development. Donate to The Perl Foundation

LibGit2 cpan:CTILMES last updated on 2020-08-18

lib/Git/Object.rakumod
use NativeCall;
use Git::Oid;
use Git::Error;
use Git::Buffer;

enum Git::Type # git_otype
(
    GIT_OBJ_ANY       => -2,
    GIT_OBJ_BAD       => -1,
    GIT_OBJ__EXT1     => 0,
    GIT_OBJ_COMMIT    => 1,
    GIT_OBJ_TREE      => 2,
    GIT_OBJ_BLOB      => 3,
    GIT_OBJ_TAG       => 4,
    GIT_OBJ__EXT2     => 5,
    GIT_OBJ_OFS_DELTA => 6,
    GIT_OBJ_REF_DELTA => 7,
);

role Git::Objectish
{
    sub git_object_free(Pointer)
        is native('git2') {}

    method free
    {
        git_object_free(nativecast(Pointer, self))
    }

    sub git_object_id(Pointer --> Git::Oid)
        is native('git2') {}

    method id(--> Git::Oid)
    {
        git_object_id(nativecast(Pointer, self))
    }

    sub git_object_type(Pointer --> int32)
        is native('git2') {}

    multi method type(Pointer $ptr --> Git::Type)
    {
        Git::Type(git_object_type($ptr))
    }

    multi method type(--> Git::Type)
    {
        Git::Type(git_object_type(nativecast(Pointer, self)))
    }

    sub git_object_string2type(Str --> int32)
        is native('git2') {}

    multi method type(Str $str)
    {
        Git::Type(git_object_string2type($str))
    }

    sub git_object_type2string(int32 --> Str)
        is native('git2') {}

    method type-string(--> Str)
    {
        git_object_type2string(git_object_type(nativecast(Pointer, self)))
    }

    sub git_object_owner(Pointer --> Pointer)
        is native('git2') {}

    method owner
    {
        my $ptr = git_object_owner(nativecast(Pointer, self));
        nativecast(::("Git::Repository"), $ptr)
    }

    method object(Pointer:D $ptr)
    {
        given Git::Type(git_object_type($ptr))
        {
            when GIT_OBJ_TAG    { nativecast(::('Git::Tag'), $ptr)    }
            when GIT_OBJ_COMMIT { nativecast(::('Git::Commit'), $ptr) }
            when GIT_OBJ_TREE   { nativecast(::('Git::Tree'), $ptr)   }
            when GIT_OBJ_BLOB   { nativecast(::('Git::Blob'), $ptr)   }
            default             { nativecast(::('Git::Object'), $ptr) }
        }
    }

    sub git_object_short_id(Git::Buffer, Pointer --> int32) is native('git2') { }

    method short-id(--> Str)
    {
        my Git::Buffer $buf .= new;
        check(git_object_short_id($buf, nativecast(Pointer, self)));
        $buf.str
    }
}

class Git::Object is repr('CPointer') does Git::Objectish
{
    submethod DESTROY { self.free }

}