-
Notifications
You must be signed in to change notification settings - Fork 0
/
Libgit2.xs
74 lines (60 loc) · 1.79 KB
/
Libgit2.xs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"
#include <git2.h>
#include <git2/repository.h>
#include <errno.h>
const char* error_string(signed char code)
{
const char* rv;
switch (code)
{
case GIT_ERROR : rv = "operation failed"; break;
case GIT_ENOTOID : rv = "object ID not well formed"; break;
case GIT_ENOTFOUND : rv = "not found"; break;
case GIT_ENOMEM : rv = "out of space"; break;
case GIT_EOSERR :
if (errno > sys_nerr-1) {
rv = "unknown OS error";
}
else {
rv = sys_errlist[errno];
};
break;
case GIT_EOBJTYPE : rv = "invalid object type"; break;
case GIT_EOBJCORRUPTED : rv = "object data corrupted"; break;
case GIT_ENOTAREPO : rv = "not a git repo"; break;
case GIT_EINVALIDTYPE : rv = "object type mismatch"; break;
case GIT_EMISSINGOBJDATA : rv = "object required field missing"; break;
case GIT_EPACKCORRUPTED : rv = "packfile corrupt"; break;
case GIT_EFLOCKFAIL : rv = "failed to acquire lock"; break;
case GIT_EZLIB : rv = "zlib failure"; break;
case GIT_EBUSY : rv = "object busy"; break;
case GIT_EBAREINDEX : rv = "The index file is not backed up by an existing repository."; break;
default : rv = "unknown error";
}
return rv;
}
MODULE = Git::Libgit2 PACKAGE = Git::Libgit2
PROTOTYPES: DISABLE
git_repository *
git_repository_open(gitdir)
const char *gitdir;
CODE:
git_repository* repo;
SV *isv, *self;
int error = git_repository_open( &repo, gitdir );
if (error != 0) {
Perl_croak(aTHX_ "%s trying to open repository at %s\n",
error_string(error), gitdir);
}
RETVAL = repo;
OUTPUT:
RETVAL
void
git_repository_free(repo)
git_repository * repo;
git_odb*
git_repository_database(repo)
git_repository * repo;