3c479c37f8
Direct .xs routine. Note that it does not work 100% correctly when you juggle multiple repository objects, but it is not that bad either. The trouble is that we might reuse packs information for another Git project; that is not an issue since Git depends on uniqueness of SHA1 ids so if we have found the object somewhere else, it is nevertheless going to be the same object. It merely makes object existence detection through this method unreliable; it is duly noted in the documentation. At least that's how I see it, I hope I didn't overlook any other potential problem. I tested it for memory leaks and it appears to be doing ok. Signed-off-by: Petr Baudis <pasky@suse.cz> Signed-off-by: Junio C Hamano <junkio@cox.net>
173 lines
2.7 KiB
Plaintext
173 lines
2.7 KiB
Plaintext
/* By carefully stacking #includes here (even if WE don't really need them)
|
|
* we strive to make the thing actually compile. Git header files aren't very
|
|
* nice. Perl headers are one of the signs of the coming apocalypse. */
|
|
#include <ctype.h>
|
|
/* Ok, it hasn't been so bad so far. */
|
|
|
|
/* libgit interface */
|
|
#include "../cache.h"
|
|
#include "../exec_cmd.h"
|
|
|
|
/* XS and Perl interface */
|
|
#include "EXTERN.h"
|
|
#include "perl.h"
|
|
#include "XSUB.h"
|
|
|
|
|
|
static char *
|
|
report_xs(const char *prefix, const char *err, va_list params)
|
|
{
|
|
static char buf[4096];
|
|
strcpy(buf, prefix);
|
|
vsnprintf(buf + strlen(prefix), 4096 - strlen(prefix), err, params);
|
|
return buf;
|
|
}
|
|
|
|
static void NORETURN
|
|
die_xs(const char *err, va_list params)
|
|
{
|
|
char *str;
|
|
str = report_xs("fatal: ", err, params);
|
|
croak(str);
|
|
}
|
|
|
|
static void
|
|
error_xs(const char *err, va_list params)
|
|
{
|
|
char *str;
|
|
str = report_xs("error: ", err, params);
|
|
warn(str);
|
|
}
|
|
|
|
|
|
MODULE = Git PACKAGE = Git
|
|
|
|
PROTOTYPES: DISABLE
|
|
|
|
|
|
BOOT:
|
|
{
|
|
set_error_routine(error_xs);
|
|
set_die_routine(die_xs);
|
|
}
|
|
|
|
|
|
void
|
|
xs__call_gate(repoid, git_dir)
|
|
long repoid;
|
|
char *git_dir;
|
|
CODE:
|
|
{
|
|
static long last_repoid;
|
|
if (repoid != last_repoid) {
|
|
setup_git(git_dir,
|
|
getenv(DB_ENVIRONMENT),
|
|
getenv(INDEX_ENVIRONMENT),
|
|
getenv(GRAFT_ENVIRONMENT));
|
|
last_repoid = repoid;
|
|
}
|
|
}
|
|
|
|
|
|
char *
|
|
xs_version()
|
|
CODE:
|
|
{
|
|
RETVAL = GIT_VERSION;
|
|
}
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
|
|
char *
|
|
xs_exec_path()
|
|
CODE:
|
|
{
|
|
RETVAL = (char *)git_exec_path();
|
|
}
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
|
|
void
|
|
xs__execv_git_cmd(...)
|
|
CODE:
|
|
{
|
|
const char **argv;
|
|
int i;
|
|
|
|
argv = malloc(sizeof(const char *) * (items + 1));
|
|
if (!argv)
|
|
croak("malloc failed");
|
|
for (i = 0; i < items; i++)
|
|
argv[i] = strdup(SvPV_nolen(ST(i)));
|
|
argv[i] = NULL;
|
|
|
|
execv_git_cmd(argv);
|
|
|
|
for (i = 0; i < items; i++)
|
|
if (argv[i])
|
|
free((char *) argv[i]);
|
|
free((char **) argv);
|
|
}
|
|
|
|
|
|
SV *
|
|
xs_get_object(type, id)
|
|
char *type;
|
|
char *id;
|
|
CODE:
|
|
{
|
|
unsigned char sha1[20];
|
|
unsigned long size;
|
|
void *buf;
|
|
|
|
if (strlen(id) != 40 || get_sha1_hex(id, sha1) < 0)
|
|
XSRETURN_UNDEF;
|
|
|
|
buf = read_sha1_file(sha1, type, &size);
|
|
if (!buf)
|
|
XSRETURN_UNDEF;
|
|
RETVAL = newSVpvn(buf, size);
|
|
free(buf);
|
|
}
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
|
|
char *
|
|
xs_hash_object_pipe(type, fd)
|
|
char *type;
|
|
int fd;
|
|
CODE:
|
|
{
|
|
unsigned char sha1[20];
|
|
|
|
if (index_pipe(sha1, fd, type, 0))
|
|
croak("Unable to hash given filehandle");
|
|
RETVAL = sha1_to_hex(sha1);
|
|
}
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
char *
|
|
xs_hash_object_file(type, path)
|
|
char *type;
|
|
char *path;
|
|
CODE:
|
|
{
|
|
unsigned char sha1[20];
|
|
int fd = open(path, O_RDONLY);
|
|
struct stat st;
|
|
|
|
if (fd < 0 ||
|
|
fstat(fd, &st) < 0 ||
|
|
index_fd(sha1, fd, &st, 0, type))
|
|
croak("Unable to hash %s", path);
|
|
close(fd);
|
|
|
|
RETVAL = sha1_to_hex(sha1);
|
|
}
|
|
OUTPUT:
|
|
RETVAL
|