blob: 9e754d25385f80dd402c61ea9c05e00cc5aa8b74 (
plain)
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
74
75
76
|
/* 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"
#include "ppport.h"
MODULE = Git PACKAGE = Git
PROTOTYPES: DISABLE
# /* TODO: xs_call_gate(). See Git.pm. */
const char *
xs_exec_path()
CODE:
{
RETVAL = git_exec_path();
}
OUTPUT:
RETVAL
char *
xs_hash_object(file, type = "blob")
SV *file;
char *type;
CODE:
{
unsigned char sha1[20];
if (SvTYPE(file) == SVt_RV)
file = SvRV(file);
if (SvTYPE(file) == SVt_PVGV) {
/* Filehandle */
PerlIO *pio;
pio = IoIFP(sv_2io(file));
if (!pio)
croak("You passed me something weird - a dir glob?");
/* XXX: I just hope PerlIO didn't read anything from it yet.
* --pasky */
if (index_pipe(sha1, PerlIO_fileno(pio), type, 0))
croak("Unable to hash given filehandle");
/* Avoid any nasty surprises. */
PerlIO_close(pio);
} else {
/* String */
char *path = SvPV_nolen(file);
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
|
