[PATCH] git-cat-file: '-s' to find out object size.
[git.git] / cat-file.c
1 /*
2  * GIT - The information manager from hell
3  *
4  * Copyright (C) Linus Torvalds, 2005
5  */
6 #include "cache.h"
7
8 int main(int argc, char **argv)
9 {
10         unsigned char sha1[20];
11         char type[20];
12         void *buf;
13         unsigned long size;
14
15         if (argc != 3 || get_sha1(argv[2], sha1))
16                 usage("git-cat-file [-t | -s | tagname] <sha1>");
17
18         if (!strcmp("-t", argv[1]) || !strcmp("-s", argv[1])) {
19                 if (!sha1_object_info(sha1, type, &size)) {
20                         switch (argv[1][1]) {
21                         case 't':
22                                 printf("%s\n", type);
23                                 break;
24                         case 's':
25                                 printf("%lu\n", size);
26                                 break;
27                         }
28                         return 0;
29                 }
30                 buf = NULL;
31         } else {
32                 buf = read_object_with_reference(sha1, argv[1], &size, NULL);
33         }
34
35         if (!buf)
36                 die("git-cat-file %s: bad file", argv[2]);
37
38         while (size > 0) {
39                 long ret = write(1, buf, size);
40                 if (ret < 0) {
41                         if (errno == EAGAIN)
42                                 continue;
43                         /* Ignore epipe */
44                         if (errno == EPIPE)
45                                 break;
46                         die("git-cat-file: %s", strerror(errno));
47                 } else if (!ret) {
48                         die("git-cat-file: disk full?");
49                 }
50                 size -= ret;
51                 buf += ret;
52         }
53         return 0;
54 }