builtin-for-each-ref.c

   1 #include "cache.h"
   2 #include "refs.h"
   3 #include "object.h"
   4 #include "tag.h"
   5 #include "commit.h"
   6 #include "tree.h"
   7 #include "blob.h"
   8 #include "quote.h"
   9
  10 /* Quoting styles */
  11 #define QUOTE_NONE 0
  12 #define QUOTE_SHELL 1
  13 #define QUOTE_PERL 2
  14 #define QUOTE_PYTHON 3
  15 #define QUOTE_TCL 4
  16
  17 typedef enum { FIELD_STR, FIELD_ULONG, FIELD_TIME } cmp_type;
  18
  19 struct atom_value {
  20         const char *s;
  21         unsigned long ul; /* used for sorting when not FIELD_STR */
  22 };
  23
  24 struct ref_sort {
  25         struct ref_sort *next;
  26         int atom; /* index into used_atom array */
  27         unsigned reverse : 1;
  28 };
  29
  30 struct refinfo {
  31         char *refname;
  32         unsigned char objectname[20];
  33         struct atom_value *value;
  34 };
  35
  36 static struct {
  37         const char *name;
  38         cmp_type cmp_type;
  39 } valid_atom[] = {
  40         { "refname" },
  41         { "objecttype" },
  42         { "objectsize", FIELD_ULONG },
  43         { "objectname" },
  44         { "tree" },
  45         { "parent" }, /* NEEDSWORK: how to address 2nd and later parents? */
  46         { "numparent", FIELD_ULONG },
  47         { "object" },
  48         { "type" },
  49         { "tag" },
  50         { "author" },
  51         { "authorname" },
  52         { "authoremail" },
  53         { "authordate", FIELD_TIME },
  54         { "committer" },
  55         { "committername" },
  56         { "committeremail" },
  57         { "committerdate", FIELD_TIME },
  58         { "tagger" },
  59         { "taggername" },
  60         { "taggeremail" },
  61         { "taggerdate", FIELD_TIME },
  62         { "creator" },
  63         { "creatordate", FIELD_TIME },
  64         { "subject" },
  65         { "body" },
  66         { "contents" },
  67 };
  68
  69 /*
  70  * An atom is a valid field atom listed above, possibly prefixed with
  71  * a "*" to denote deref_tag().
  72  *
  73  * We parse given format string and sort specifiers, and make a list
  74  * of properties that we need to extract out of objects.  refinfo
  75  * structure will hold an array of values extracted that can be
  76  * indexed with the "atom number", which is an index into this
  77  * array.
  78  */
  79 static const char **used_atom;
  80 static cmp_type *used_atom_type;
  81 static int used_atom_cnt, sort_atom_limit, need_tagged;
  82
  83 /*
  84  * Used to parse format string and sort specifiers
  85  */
  86 static int parse_atom(const char *atom, const char *ep)
  87 {
  88         const char *sp;
  89         char *n;
  90         int i, at;
  91
  92         sp = atom;
  93         if (*sp == '*' && sp < ep)
  94                 sp++; /* deref */
  95         if (ep <= sp)
  96                 die("malformed field name: %.*s", (int)(ep-atom), atom);
  97
  98         /* Do we have the atom already used elsewhere? */
  99         for (i = 0; i < used_atom_cnt; i++) {
 100                 int len = strlen(used_atom[i]);
 101                 if (len == ep - atom && !memcmp(used_atom[i], atom, len))
 102                         return i;
 103         }
 104
 105         /* Is the atom a valid one? */
 106         for (i = 0; i < ARRAY_SIZE(valid_atom); i++) {
 107                 int len = strlen(valid_atom[i].name);
 108                 if (len == ep - sp && !memcmp(valid_atom[i].name, sp, len))
 109                         break;
 110         }
 111
 112         if (ARRAY_SIZE(valid_atom) <= i)
 113                 die("unknown field name: %.*s", (int)(ep-atom), atom);
 114
 115         /* Add it in, including the deref prefix */
 116         at = used_atom_cnt;
 117         used_atom_cnt++;
 118         used_atom = xrealloc(used_atom,
 119                              (sizeof *used_atom) * used_atom_cnt);
 120         used_atom_type = xrealloc(used_atom_type,
 121                                   (sizeof(*used_atom_type) * used_atom_cnt));
 122         n = xmalloc(ep - atom + 1);
 123         memcpy(n, atom, ep - atom);
 124         n[ep-atom] = 0;
 125         used_atom[at] = n;
 126         used_atom_type[at] = valid_atom[i].cmp_type;
 127         return at;
 128 }
 129
 130 /*
 131  * In a format string, find the next occurrence of %(atom).
 132  */
 133 static const char *find_next(const char *cp)
 134 {
 135         while (*cp) {
 136                 if (*cp == '%') {
 137                         /* %( is the start of an atom;
 138                          * %% is a quoted per-cent.
 139                          */
 140                         if (cp[1] == '(')
 141                                 return cp;
 142                         else if (cp[1] == '%')
 143                                 cp++; /* skip over two % */
 144                         /* otherwise this is a singleton, literal % */
 145                 }
 146                 cp++;
 147         }
 148         return NULL;
 149 }
 150
 151 /*
 152  * Make sure the format string is well formed, and parse out
 153  * the used atoms.
 154  */
 155 static void verify_format(const char *format)
 156 {
 157         const char *cp, *sp;
 158         for (cp = format; *cp && (sp = find_next(cp)); ) {
 159                 const char *ep = strchr(sp, ')');
 160                 if (!ep)
 161                         die("malformatted format string %s", sp);
 162                 /* sp points at "%(" and ep points at the closing ")" */
 163                 parse_atom(sp + 2, ep);
 164                 cp = ep + 1;
 165         }
 166 }
 167
 168 /*
 169  * Given an object name, read the object data and size, and return a
 170  * "struct object".  If the object data we are returning is also borrowed
 171  * by the "struct object" representation, set *eaten as well---it is a
 172  * signal from parse_object_buffer to us not to free the buffer.
 173  */
 174 static void *get_obj(const unsigned char *sha1, struct object **obj, unsigned long *sz, int *eaten)
 175 {
 176         enum object_type type;
 177         void *buf = read_sha1_file(sha1, &type, sz);
 178
 179         if (buf)
 180                 *obj = parse_object_buffer(sha1, type, *sz, buf, eaten);
 181         else
 182                 *obj = NULL;
 183         return buf;
 184 }
 185
 186 /* See grab_values */
 187 static void grab_common_values(struct atom_value *val, int deref, struct object *obj, void *buf, unsigned long sz)
 188 {
 189         int i;
 190
 191         for (i = 0; i < used_atom_cnt; i++) {
 192                 const char *name = used_atom[i];
 193                 struct atom_value *v = &val[i];
 194                 if (!!deref != (*name == '*'))
 195                         continue;
 196                 if (deref)
 197                         name++;
 198                 if (!strcmp(name, "objecttype"))
 199                         v->s = typename(obj->type);
 200                 else if (!strcmp(name, "objectsize")) {
 201                         char *s = xmalloc(40);
 202                         sprintf(s, "%lu", sz);
 203                         v->ul = sz;
 204                         v->s = s;
 205                 }
 206                 else if (!strcmp(name, "objectname")) {
 207                         char *s = xmalloc(41);
 208                         strcpy(s, sha1_to_hex(obj->sha1));
 209                         v->s = s;
 210                 }
 211         }
 212 }
 213
 214 /* See grab_values */
 215 static void grab_tag_values(struct atom_value *val, int deref, struct object *obj, void *buf, unsigned long sz)
 216 {
 217         int i;
 218         struct tag *tag = (struct tag *) obj;
 219
 220         for (i = 0; i < used_atom_cnt; i++) {
 221                 const char *name = used_atom[i];
 222                 struct atom_value *v = &val[i];
 223                 if (!!deref != (*name == '*'))
 224                         continue;
 225                 if (deref)
 226                         name++;
 227                 if (!strcmp(name, "tag"))
 228                         v->s = tag->tag;
 229         }
 230 }
 231
 232 static int num_parents(struct commit *commit)
 233 {
 234         struct commit_list *parents;
 235         int i;
 236
 237         for (i = 0, parents = commit->parents;
 238              parents;
 239              parents = parents->next)
 240                 i++;
 241         return i;
 242 }
 243
 244 /* See grab_values */
 245 static void grab_commit_values(struct atom_value *val, int deref, struct object *obj, void *buf, unsigned long sz)
 246 {
 247         int i;
 248         struct commit *commit = (struct commit *) obj;
 249
 250         for (i = 0; i < used_atom_cnt; i++) {
 251                 const char *name = used_atom[i];
 252                 struct atom_value *v = &val[i];
 253                 if (!!deref != (*name == '*'))
 254                         continue;
 255                 if (deref)
 256                         name++;
 257                 if (!strcmp(name, "tree")) {
 258                         char *s = xmalloc(41);
 259                         strcpy(s, sha1_to_hex(commit->tree->object.sha1));
 260                         v->s = s;
 261                 }
 262                 if (!strcmp(name, "numparent")) {
 263                         char *s = xmalloc(40);
 264                         sprintf(s, "%lu", v->ul);
 265                         v->s = s;
 266                         v->ul = num_parents(commit);
 267                 }
 268                 else if (!strcmp(name, "parent")) {
 269                         int num = num_parents(commit);
 270                         int i;
 271                         struct commit_list *parents;
 272                         char *s = xmalloc(42 * num);
 273                         v->s = s;
 274                         for (i = 0, parents = commit->parents;
 275                              parents;
 276                              parents = parents->next, i = i + 42) {
 277                                 struct commit *parent = parents->item;
 278                                 strcpy(s+i, sha1_to_hex(parent->object.sha1));
 279                                 if (parents->next)
 280                                         s[i+40] = ' ';
 281                         }
 282                 }
 283         }
 284 }
 285
 286 static const char *find_wholine(const char *who, int wholen, const char *buf, unsigned long sz)
 287 {
 288         const char *eol;
 289         while (*buf) {
 290                 if (!strncmp(buf, who, wholen) &&
 291                     buf[wholen] == ' ')
 292                         return buf + wholen + 1;
 293                 eol = strchr(buf, '\n');
 294                 if (!eol)
 295                         return "";
 296                 eol++;
 297                 if (eol[1] == '\n')
 298                         return ""; /* end of header */
 299                 buf = eol;
 300         }
 301         return "";
 302 }
 303
 304 static const char *copy_line(const char *buf)
 305 {
 306         const char *eol = strchr(buf, '\n');
 307         char *line;
 308         int len;
 309         if (!eol)
 310                 return "";
 311         len = eol - buf;
 312         line = xmalloc(len + 1);
 313         memcpy(line, buf, len);
 314         line[len] = 0;
 315         return line;
 316 }
 317
 318 static const char *copy_name(const char *buf)
 319 {
 320         const char *eol = strchr(buf, '\n');
 321         const char *eoname = strstr(buf, " <");
 322         char *line;
 323         int len;
 324         if (!(eoname && eol && eoname < eol))
 325                 return "";
 326         len = eoname - buf;
 327         line = xmalloc(len + 1);
 328         memcpy(line, buf, len);
 329         line[len] = 0;
 330         return line;
 331 }
 332
 333 static const char *copy_email(const char *buf)
 334 {
 335         const char *email = strchr(buf, '<');
 336         const char *eoemail = strchr(email, '>');
 337         char *line;
 338         int len;
 339         if (!email || !eoemail)
 340                 return "";
 341         eoemail++;
 342         len = eoemail - email;
 343         line = xmalloc(len + 1);
 344         memcpy(line, email, len);
 345         line[len] = 0;
 346         return line;
 347 }
 348
 349 static void grab_date(const char *buf, struct atom_value *v)
 350 {
 351         const char *eoemail = strstr(buf, "> ");
 352         char *zone;
 353         unsigned long timestamp;
 354         long tz;
 355
 356         if (!eoemail)
 357                 goto bad;
 358         timestamp = strtoul(eoemail + 2, &zone, 10);
 359         if (timestamp == ULONG_MAX)
 360                 goto bad;
 361         tz = strtol(zone, NULL, 10);
 362         if ((tz == LONG_MIN || tz == LONG_MAX) && errno == ERANGE)
 363                 goto bad;
 364         v->s = xstrdup(show_date(timestamp, tz, 0));
 365         v->ul = timestamp;
 366         return;
 367  bad:
 368         v->s = "";
 369         v->ul = 0;
 370 }
 371
 372 /* See grab_values */
 373 static void grab_person(const char *who, struct atom_value *val, int deref, struct object *obj, void *buf, unsigned long sz)
 374 {
 375         int i;
 376         int wholen = strlen(who);
 377         const char *wholine = NULL;
 378
 379         for (i = 0; i < used_atom_cnt; i++) {
 380                 const char *name = used_atom[i];
 381                 struct atom_value *v = &val[i];
 382                 if (!!deref != (*name == '*'))
 383                         continue;
 384                 if (deref)
 385                         name++;
 386                 if (strncmp(who, name, wholen))
 387                         continue;
 388                 if (name[wholen] != 0 &&
 389                     strcmp(name + wholen, "name") &&
 390                     strcmp(name + wholen, "email") &&
 391                     strcmp(name + wholen, "date"))
 392                         continue;
 393                 if (!wholine)
 394                         wholine = find_wholine(who, wholen, buf, sz);
 395                 if (!wholine)
 396                         return; /* no point looking for it */
 397                 if (name[wholen] == 0)
 398                         v->s = copy_line(wholine);
 399                 else if (!strcmp(name + wholen, "name"))
 400                         v->s = copy_name(wholine);
 401                 else if (!strcmp(name + wholen, "email"))
 402                         v->s = copy_email(wholine);
 403                 else if (!strcmp(name + wholen, "date"))
 404                         grab_date(wholine, v);
 405         }
 406
 407         /* For a tag or a commit object, if "creator" or "creatordate" is
 408          * requested, do something special.
 409          */
 410         if (strcmp(who, "tagger") && strcmp(who, "committer"))
 411                 return; /* "author" for commit object is not wanted */
 412         if (!wholine)
 413                 wholine = find_wholine(who, wholen, buf, sz);
 414         if (!wholine)
 415                 return;
 416         for (i = 0; i < used_atom_cnt; i++) {
 417                 const char *name = used_atom[i];
 418                 struct atom_value *v = &val[i];
 419                 if (!!deref != (*name == '*'))
 420                         continue;
 421                 if (deref)
 422                         name++;
 423
 424                 if (!strcmp(name, "creatordate"))
 425                         grab_date(wholine, v);
 426                 else if (!strcmp(name, "creator"))
 427                         v->s = copy_line(wholine);
 428         }
 429 }
 430
 431 static void find_subpos(const char *buf, unsigned long sz, const char **sub, const char **body)
 432 {
 433         while (*buf) {
 434                 const char *eol = strchr(buf, '\n');
 435                 if (!eol)
 436                         return;
 437                 if (eol[1] == '\n') {
 438                         buf = eol + 1;
 439                         break; /* found end of header */
 440                 }
 441                 buf = eol + 1;
 442         }
 443         while (*buf == '\n')
 444                 buf++;
 445         if (!*buf)
 446                 return;
 447         *sub = buf; /* first non-empty line */
 448         buf = strchr(buf, '\n');
 449         if (!buf)
 450                 return; /* no body */
 451         while (*buf == '\n')
 452                 buf++; /* skip blank between subject and body */
 453         *body = buf;
 454 }
 455
 456 /* See grab_values */
 457 static void grab_sub_body_contents(struct atom_value *val, int deref, struct object *obj, void *buf, unsigned long sz)
 458 {
 459         int i;
 460         const char *subpos = NULL, *bodypos = NULL;
 461
 462         for (i = 0; i < used_atom_cnt; i++) {
 463                 const char *name = used_atom[i];
 464                 struct atom_value *v = &val[i];
 465                 if (!!deref != (*name == '*'))
 466                         continue;
 467                 if (deref)
 468                         name++;
 469                 if (strcmp(name, "subject") &&
 470                     strcmp(name, "body") &&
 471                     strcmp(name, "contents"))
 472                         continue;
 473                 if (!subpos)
 474                         find_subpos(buf, sz, &subpos, &bodypos);
 475                 if (!subpos)
 476                         return;
 477
 478                 if (!strcmp(name, "subject"))
 479                         v->s = copy_line(subpos);
 480                 else if (!strcmp(name, "body"))
 481                         v->s = xstrdup(bodypos);
 482                 else if (!strcmp(name, "contents"))
 483                         v->s = xstrdup(subpos);
 484         }
 485 }
 486
 487 /* We want to have empty print-string for field requests
 488  * that do not apply (e.g. "authordate" for a tag object)
 489  */
 490 static void fill_missing_values(struct atom_value *val)
 491 {
 492         int i;
 493         for (i = 0; i < used_atom_cnt; i++) {
 494                 struct atom_value *v = &val[i];
 495                 if (v->s == NULL)
 496                         v->s = "";
 497         }
 498 }
 499
 500 /*
 501  * val is a list of atom_value to hold returned values.  Extract
 502  * the values for atoms in used_atom array out of (obj, buf, sz).
 503  * when deref is false, (obj, buf, sz) is the object that is
 504  * pointed at by the ref itself; otherwise it is the object the
 505  * ref (which is a tag) refers to.
 506  */
 507 static void grab_values(struct atom_value *val, int deref, struct object *obj, void *buf, unsigned long sz)
 508 {
 509         grab_common_values(val, deref, obj, buf, sz);
 510         switch (obj->type) {
 511         case OBJ_TAG:
 512                 grab_tag_values(val, deref, obj, buf, sz);
 513                 grab_sub_body_contents(val, deref, obj, buf, sz);
 514                 grab_person("tagger", val, deref, obj, buf, sz);
 515                 break;
 516         case OBJ_COMMIT:
 517                 grab_commit_values(val, deref, obj, buf, sz);
 518                 grab_sub_body_contents(val, deref, obj, buf, sz);
 519                 grab_person("author", val, deref, obj, buf, sz);
 520                 grab_person("committer", val, deref, obj, buf, sz);
 521                 break;
 522         case OBJ_TREE:
 523                 // grab_tree_values(val, deref, obj, buf, sz);
 524                 break;
 525         case OBJ_BLOB:
 526                 // grab_blob_values(val, deref, obj, buf, sz);
 527                 break;
 528         default:
 529                 die("Eh?  Object of type %d?", obj->type);
 530         }
 531 }
 532
 533 /*
 534  * Parse the object referred by ref, and grab needed value.
 535  */
 536 static void populate_value(struct refinfo *ref)
 537 {
 538         void *buf;
 539         struct object *obj;
 540         int eaten, i;
 541         unsigned long size;
 542         const unsigned char *tagged;
 543
 544         ref->value = xcalloc(sizeof(struct atom_value), used_atom_cnt);
 545
 546         buf = get_obj(ref->objectname, &obj, &size, &eaten);
 547         if (!buf)
 548                 die("missing object %s for %s",
 549                     sha1_to_hex(ref->objectname), ref->refname);
 550         if (!obj)
 551                 die("parse_object_buffer failed on %s for %s",
 552                     sha1_to_hex(ref->objectname), ref->refname);
 553
 554         /* Fill in specials first */
 555         for (i = 0; i < used_atom_cnt; i++) {
 556                 const char *name = used_atom[i];
 557                 struct atom_value *v = &ref->value[i];
 558                 if (!strcmp(name, "refname"))
 559                         v->s = ref->refname;
 560                 else if (!strcmp(name, "*refname")) {
 561                         int len = strlen(ref->refname);
 562                         char *s = xmalloc(len + 4);
 563                         sprintf(s, "%s^{}", ref->refname);
 564                         v->s = s;
 565                 }
 566         }
 567
 568         grab_values(ref->value, 0, obj, buf, size);
 569         if (!eaten)
 570                 free(buf);
 571
 572         /* If there is no atom that wants to know about tagged
 573          * object, we are done.
 574          */
 575         if (!need_tagged || (obj->type != OBJ_TAG))
 576                 return;
 577
 578         /* If it is a tag object, see if we use a value that derefs
 579          * the object, and if we do grab the object it refers to.
 580          */
 581         tagged = ((struct tag *)obj)->tagged->sha1;
 582
 583         /* NEEDSWORK: This derefs tag only once, which
 584          * is good to deal with chains of trust, but
 585          * is not consistent with what deref_tag() does
 586          * which peels the onion to the core.
 587          */
 588         buf = get_obj(tagged, &obj, &size, &eaten);
 589         if (!buf)
 590                 die("missing object %s for %s",
 591                     sha1_to_hex(tagged), ref->refname);
 592         if (!obj)
 593                 die("parse_object_buffer failed on %s for %s",
 594                     sha1_to_hex(tagged), ref->refname);
 595         grab_values(ref->value, 1, obj, buf, size);
 596         if (!eaten)
 597                 free(buf);
 598 }
 599
 600 /*
 601  * Given a ref, return the value for the atom.  This lazily gets value
 602  * out of the object by calling populate value.
 603  */
 604 static void get_value(struct refinfo *ref, int atom, struct atom_value **v)
 605 {
 606         if (!ref->value) {
 607                 populate_value(ref);
 608                 fill_missing_values(ref->value);
 609         }
 610         *v = &ref->value[atom];
 611 }
 612
 613 struct grab_ref_cbdata {
 614         struct refinfo **grab_array;
 615         const char **grab_pattern;
 616         int grab_cnt;
 617 };
 618
 619 /*
 620  * A call-back given to for_each_ref().  It is unfortunate that we
 621  * need to use global variables to pass extra information to this
 622  * function.
 623  */
 624 static int grab_single_ref(const char *refname, const unsigned char *sha1, int flag, void *cb_data)
 625 {
 626         struct grab_ref_cbdata *cb = cb_data;
 627         struct refinfo *ref;
 628         int cnt;
 629
 630         if (*cb->grab_pattern) {
 631                 const char **pattern;
 632                 int namelen = strlen(refname);
 633                 for (pattern = cb->grab_pattern; *pattern; pattern++) {
 634                         const char *p = *pattern;
 635                         int plen = strlen(p);
 636
 637                         if ((plen <= namelen) &&
 638                             !strncmp(refname, p, plen) &&
 639                             (refname[plen] == '\0' ||
 640                              refname[plen] == '/'))
 641                                 break;
 642                         if (!fnmatch(p, refname, FNM_PATHNAME))
 643                                 break;
 644                 }
 645                 if (!*pattern)
 646                         return 0;
 647         }
 648
 649         /* We do not open the object yet; sort may only need refname
 650          * to do its job and the resulting list may yet to be pruned
 651          * by maxcount logic.
 652          */
 653         ref = xcalloc(1, sizeof(*ref));
 654         ref->refname = xstrdup(refname);
 655         hashcpy(ref->objectname, sha1);
 656
 657         cnt = cb->grab_cnt;
 658         cb->grab_array = xrealloc(cb->grab_array,
 659                                   sizeof(*cb->grab_array) * (cnt + 1));
 660         cb->grab_array[cnt++] = ref;
 661         cb->grab_cnt = cnt;
 662         return 0;
 663 }
 664
 665 static int cmp_ref_sort(struct ref_sort *s, struct refinfo *a, struct refinfo *b)
 666 {
 667         struct atom_value *va, *vb;
 668         int cmp;
 669         cmp_type cmp_type = used_atom_type[s->atom];
 670
 671         get_value(a, s->atom, &va);
 672         get_value(b, s->atom, &vb);
 673         switch (cmp_type) {
 674         case FIELD_STR:
 675                 cmp = strcmp(va->s, vb->s);
 676                 break;
 677         default:
 678                 if (va->ul < vb->ul)
 679                         cmp = -1;
 680                 else if (va->ul == vb->ul)
 681                         cmp = 0;
 682                 else
 683                         cmp = 1;
 684                 break;
 685         }
 686         return (s->reverse) ? -cmp : cmp;
 687 }
 688
 689 static struct ref_sort *ref_sort;
 690 static int compare_refs(const void *a_, const void *b_)
 691 {
 692         struct refinfo *a = *((struct refinfo **)a_);
 693         struct refinfo *b = *((struct refinfo **)b_);
 694         struct ref_sort *s;
 695
 696         for (s = ref_sort; s; s = s->next) {
 697                 int cmp = cmp_ref_sort(s, a, b);
 698                 if (cmp)
 699                         return cmp;
 700         }
 701         return 0;
 702 }
 703
 704 static void sort_refs(struct ref_sort *sort, struct refinfo **refs, int num_refs)
 705 {
 706         ref_sort = sort;
 707         qsort(refs, num_refs, sizeof(struct refinfo *), compare_refs);
 708 }
 709
 710 static void print_value(struct refinfo *ref, int atom, int quote_style)
 711 {
 712         struct atom_value *v;
 713         get_value(ref, atom, &v);
 714         switch (quote_style) {
 715         case QUOTE_NONE:
 716                 fputs(v->s, stdout);
 717                 break;
 718         case QUOTE_SHELL:
 719                 sq_quote_print(stdout, v->s);
 720                 break;
 721         case QUOTE_PERL:
 722                 perl_quote_print(stdout, v->s);
 723                 break;
 724         case QUOTE_PYTHON:
 725                 python_quote_print(stdout, v->s);
 726                 break;
 727         case QUOTE_TCL:
 728                 tcl_quote_print(stdout, v->s);
 729                 break;
 730         }
 731 }
 732
 733 static int hex1(char ch)
 734 {
 735         if ('0' <= ch && ch <= '9')
 736                 return ch - '0';
 737         else if ('a' <= ch && ch <= 'f')
 738                 return ch - 'a' + 10;
 739         else if ('A' <= ch && ch <= 'F')
 740                 return ch - 'A' + 10;
 741         return -1;
 742 }
 743 static int hex2(const char *cp)
 744 {
 745         if (cp[0] && cp[1])
 746                 return (hex1(cp[0]) << 4) | hex1(cp[1]);
 747         else
 748                 return -1;
 749 }
 750
 751 static void emit(const char *cp, const char *ep)
 752 {
 753         while (*cp && (!ep || cp < ep)) {
 754                 if (*cp == '%') {
 755                         if (cp[1] == '%')
 756                                 cp++;
 757                         else {
 758                                 int ch = hex2(cp + 1);
 759                                 if (0 <= ch) {
 760                                         putchar(ch);
 761                                         cp += 3;
 762                                         continue;
 763                                 }
 764                         }
 765                 }
 766                 putchar(*cp);
 767                 cp++;
 768         }
 769 }
 770
 771 static void show_ref(struct refinfo *info, const char *format, int quote_style)
 772 {
 773         const char *cp, *sp, *ep;
 774
 775         for (cp = format; *cp && (sp = find_next(cp)); cp = ep + 1) {
 776                 ep = strchr(sp, ')');
 777                 if (cp < sp)
 778                         emit(cp, sp);
 779                 print_value(info, parse_atom(sp + 2, ep), quote_style);
 780         }
 781         if (*cp) {
 782                 sp = cp + strlen(cp);
 783                 emit(cp, sp);
 784         }
 785         putchar('\n');
 786 }
 787
 788 static struct ref_sort *default_sort(void)
 789 {
 790         static const char cstr_name[] = "refname";
 791
 792         struct ref_sort *sort = xcalloc(1, sizeof(*sort));
 793
 794         sort->next = NULL;
 795         sort->atom = parse_atom(cstr_name, cstr_name + strlen(cstr_name));
 796         return sort;
 797 }
 798
 799 int cmd_for_each_ref(int ac, const char **av, char *prefix)
 800 {
 801         int i, num_refs;
 802         const char *format = NULL;
 803         struct ref_sort *sort = NULL, **sort_tail = &sort;
 804         int maxcount = 0;
 805         int quote_style = -1; /* unspecified yet */
 806         struct refinfo **refs;
 807         struct grab_ref_cbdata cbdata;
 808
 809         for (i = 1; i < ac; i++) {
 810                 const char *arg = av[i];
 811                 if (arg[0] != '-')
 812                         break;
 813                 if (!strcmp(arg, "--")) {
 814                         i++;
 815                         break;
 816                 }
 817                 if (!prefixcmp(arg, "--format=")) {
 818                         if (format)
 819                                 die("more than one --format?");
 820                         format = arg + 9;
 821                         continue;
 822                 }
 823                 if (!strcmp(arg, "-s") || !strcmp(arg, "--shell") ) {
 824                         if (0 <= quote_style)
 825                                 die("more than one quoting style?");
 826                         quote_style = QUOTE_SHELL;
 827                         continue;
 828                 }
 829                 if (!strcmp(arg, "-p") || !strcmp(arg, "--perl") ) {
 830                         if (0 <= quote_style)
 831                                 die("more than one quoting style?");
 832                         quote_style = QUOTE_PERL;
 833                         continue;
 834                 }
 835                 if (!strcmp(arg, "--python") ) {
 836                         if (0 <= quote_style)
 837                                 die("more than one quoting style?");
 838                         quote_style = QUOTE_PYTHON;
 839                         continue;
 840                 }
 841                 if (!strcmp(arg, "--tcl") ) {
 842                         if (0 <= quote_style)
 843                                 die("more than one quoting style?");
 844                         quote_style = QUOTE_TCL;
 845                         continue;
 846                 }
 847                 if (!prefixcmp(arg, "--count=")) {
 848                         if (maxcount)
 849                                 die("more than one --count?");
 850                         maxcount = atoi(arg + 8);
 851                         if (maxcount <= 0)
 852                                 die("The number %s did not parse", arg);
 853                         continue;
 854                 }
 855                 if (!prefixcmp(arg, "--sort=")) {
 856                         struct ref_sort *s = xcalloc(1, sizeof(*s));
 857                         int len;
 858
 859                         s->next = NULL;
 860                         *sort_tail = s;
 861                         sort_tail = &s->next;
 862
 863                         arg += 7;
 864                         if (*arg == '-') {
 865                                 s->reverse = 1;
 866                                 arg++;
 867                         }
 868                         len = strlen(arg);
 869                         sort->atom = parse_atom(arg, arg+len);
 870                         continue;
 871                 }
 872                 break;
 873         }
 874         if (quote_style < 0)
 875                 quote_style = QUOTE_NONE;
 876
 877         if (!sort)
 878                 sort = default_sort();
 879         sort_atom_limit = used_atom_cnt;
 880         if (!format)
 881                 format = "%(objectname) %(objecttype)\t%(refname)";
 882
 883         verify_format(format);
 884
 885         memset(&cbdata, 0, sizeof(cbdata));
 886         cbdata.grab_pattern = av + i;
 887         for_each_ref(grab_single_ref, &cbdata);
 888         refs = cbdata.grab_array;
 889         num_refs = cbdata.grab_cnt;
 890
 891         for (i = 0; i < used_atom_cnt; i++) {
 892                 if (used_atom[i][0] == '*') {
 893                         need_tagged = 1;
 894                         break;
 895                 }
 896         }
 897
 898         sort_refs(sort, refs, num_refs);
 899
 900         if (!maxcount || num_refs < maxcount)
 901                 maxcount = num_refs;
 902         for (i = 0; i < maxcount; i++)
 903                 show_ref(refs[i], format, quote_style);
 904         return 0;
 905 }