t9700-perl-git.sh: Fix a test failure on Cygwin
[git/dscho.git] / unpack-file.c
blobac9cbf7cd8ed1367151de0e8b96668f498b7f1a1
1 #include "cache.h"
2 #include "blob.h"
3 #include "exec_cmd.h"
5 static char *create_temp_file(unsigned char *sha1)
7 static char path[50];
8 void *buf;
9 enum object_type type;
10 unsigned long size;
11 int fd;
13 buf = read_sha1_file(sha1, &type, &size);
14 if (!buf || type != OBJ_BLOB)
15 die("unable to read blob object %s", sha1_to_hex(sha1));
17 strcpy(path, ".merge_file_XXXXXX");
18 fd = xmkstemp(path);
19 if (write_in_full(fd, buf, size) != size)
20 die_errno("unable to write temp-file");
21 close(fd);
22 return path;
25 int main(int argc, char **argv)
27 unsigned char sha1[20];
29 git_extract_argv0_path(argv[0]);
31 if (argc != 2)
32 usage("git unpack-file <sha1>");
33 if (get_sha1(argv[1], sha1))
34 die("Not a valid object name %s", argv[1]);
36 setup_git_directory();
37 git_config(git_default_config, NULL);
39 puts(create_temp_file(sha1));
40 return 0;