revision.hon commit Move "parse_commit()" into common revision.h file. (89d21f4)
   1#ifndef REVISION_H
   2#define REVISION_H
   3
   4/*
   5 * The low 16 bits of the "flags" field shows whether
   6 * a commit is part of the path to the root for that
   7 * parent.
   8 *
   9 * Bit 16 is an internal flag that we've seen the
  10 * definition for this rev, and not just seen it as
  11 * a parent target.
  12 */
  13#define marked(rev)     ((rev)->flags & 0xffff)
  14#define SEEN 0x10000
  15#define USED 0x20000
  16#define REACHABLE 0x40000
  17
  18struct parent {
  19        struct revision *parent;
  20        struct parent *next;
  21};
  22
  23struct revision {
  24        unsigned int flags;
  25        unsigned char sha1[20];
  26        unsigned long date;
  27        struct parent *parent;
  28};
  29
  30static struct revision **revs;
  31static int nr_revs, rev_allocs;
  32
  33static int find_rev(unsigned char *sha1)
  34{
  35        int first = 0, last = nr_revs;
  36
  37        while (first < last) {
  38                int next = (first + last) / 2;
  39                struct revision *rev = revs[next];
  40                int cmp;
  41
  42                cmp = memcmp(sha1, rev->sha1, 20);
  43                if (!cmp)
  44                        return next;
  45                if (cmp < 0) {
  46                        last = next;
  47                        continue;
  48                }
  49                first = next+1;
  50        }
  51        return -first-1;
  52}
  53
  54static struct revision *lookup_rev(unsigned char *sha1)
  55{
  56        int pos = find_rev(sha1);
  57        struct revision *n;
  58
  59        if (pos >= 0)
  60                return revs[pos];
  61        
  62        pos = -pos-1;
  63
  64        if (rev_allocs == nr_revs) {
  65                rev_allocs = alloc_nr(rev_allocs);
  66                revs = realloc(revs, rev_allocs * sizeof(struct revision *));
  67        }
  68        n = malloc(sizeof(struct revision));
  69
  70        n->flags = 0;
  71        memcpy(n->sha1, sha1, 20);
  72        n->parent = NULL;
  73
  74        /* Insert it into the right place */
  75        memmove(revs + pos + 1, revs + pos, (nr_revs - pos) * sizeof(struct revision *));
  76        revs[pos] = n;
  77        nr_revs++;
  78
  79        return n;
  80}
  81
  82static struct revision *add_relationship(struct revision *rev, unsigned char *needs)
  83{
  84        struct revision *parent_rev = lookup_rev(needs);
  85        struct parent **pp = &rev->parent, *p;
  86
  87        while ((p = *pp) != NULL) {
  88                if (p->parent == parent_rev)
  89                        return parent_rev;
  90                pp = &p->next;
  91        }
  92
  93        p = malloc(sizeof(*p));
  94        p->parent = parent_rev;
  95        p->next = NULL;
  96        *pp = p;
  97        return parent_rev;
  98}
  99
 100static void mark_reachable(struct revision *rev)
 101{
 102        struct parent *p = rev->parent;
 103
 104        /* If we've been here already, don't bother */
 105        if (rev->flags & REACHABLE)
 106                return;
 107        rev->flags |= REACHABLE | USED;
 108        while (p) {
 109                mark_reachable(p->parent);
 110                p = p->next;
 111        }
 112}
 113
 114static unsigned long parse_commit_date(const char *buf)
 115{
 116        if (memcmp(buf, "author", 6))
 117                return 0;
 118        while (*buf++ != '\n')
 119                /* nada */;
 120        if (memcmp(buf, "committer", 9))
 121                return 0;
 122        while (*buf++ != '>')
 123                /* nada */;
 124
 125        return strtoul(buf, NULL, 10);
 126}
 127
 128static int parse_commit(unsigned char *sha1)
 129{
 130        struct revision *rev = lookup_rev(sha1);
 131
 132        if (!(rev->flags & SEEN)) {
 133                void *buffer, *bufptr;
 134                unsigned long size;
 135                char type[20];
 136                unsigned char parent[20];
 137
 138                rev->flags |= SEEN;
 139                buffer = bufptr = read_sha1_file(sha1, type, &size);
 140                if (!buffer || strcmp(type, "commit"))
 141                        return -1;
 142                bufptr += 46; /* "tree " + "hex sha1" + "\n" */
 143                while (!memcmp(bufptr, "parent ", 7) && !get_sha1_hex(bufptr+7, parent)) {
 144                        add_relationship(rev, parent);
 145                        parse_commit(parent);
 146                        bufptr += 48;   /* "parent " + "hex sha1" + "\n" */
 147                }
 148                rev->date = parse_commit_date(bufptr);
 149                free(buffer);
 150        }
 151        return 0;       
 152}
 153
 154#endif /* REVISION_H */