10 #include "parse-options.h"
17 #define QUOTE_PYTHON 4
20 typedef enum { FIELD_STR
, FIELD_ULONG
, FIELD_TIME
} cmp_type
;
24 unsigned long ul
; /* used for sorting when not FIELD_STR */
28 struct ref_sort
*next
;
29 int atom
; /* index into used_atom array */
35 unsigned char objectname
[20];
38 struct atom_value
*value
;
47 { "objectsize", FIELD_ULONG
},
51 { "numparent", FIELD_ULONG
},
58 { "authordate", FIELD_TIME
},
62 { "committerdate", FIELD_TIME
},
66 { "taggerdate", FIELD_TIME
},
68 { "creatordate", FIELD_TIME
},
78 * An atom is a valid field atom listed above, possibly prefixed with
79 * a "*" to denote deref_tag().
81 * We parse given format string and sort specifiers, and make a list
82 * of properties that we need to extract out of objects. refinfo
83 * structure will hold an array of values extracted that can be
84 * indexed with the "atom number", which is an index into this
87 static const char **used_atom
;
88 static cmp_type
*used_atom_type
;
89 static int used_atom_cnt
, sort_atom_limit
, need_tagged
, need_symref
;
92 * Used to parse format string and sort specifiers
94 static int parse_atom(const char *atom
, const char *ep
)
100 if (*sp
== '*' && sp
< ep
)
103 die("malformed field name: %.*s", (int)(ep
-atom
), atom
);
105 /* Do we have the atom already used elsewhere? */
106 for (i
= 0; i
< used_atom_cnt
; i
++) {
107 int len
= strlen(used_atom
[i
]);
108 if (len
== ep
- atom
&& !memcmp(used_atom
[i
], atom
, len
))
112 /* Is the atom a valid one? */
113 for (i
= 0; i
< ARRAY_SIZE(valid_atom
); i
++) {
114 int len
= strlen(valid_atom
[i
].name
);
116 * If the atom name has a colon, strip it and everything after
117 * it off - it specifies the format for this entry, and
118 * shouldn't be used for checking against the valid_atom
121 const char *formatp
= strchr(sp
, ':');
122 if (!formatp
|| ep
< formatp
)
124 if (len
== formatp
- sp
&& !memcmp(valid_atom
[i
].name
, sp
, len
))
128 if (ARRAY_SIZE(valid_atom
) <= i
)
129 die("unknown field name: %.*s", (int)(ep
-atom
), atom
);
131 /* Add it in, including the deref prefix */
134 used_atom
= xrealloc(used_atom
,
135 (sizeof *used_atom
) * used_atom_cnt
);
136 used_atom_type
= xrealloc(used_atom_type
,
137 (sizeof(*used_atom_type
) * used_atom_cnt
));
138 used_atom
[at
] = xmemdupz(atom
, ep
- atom
);
139 used_atom_type
[at
] = valid_atom
[i
].cmp_type
;
142 if (!strcmp(used_atom
[at
], "symref"))
148 * In a format string, find the next occurrence of %(atom).
150 static const char *find_next(const char *cp
)
155 * %( is the start of an atom;
156 * %% is a quoted per-cent.
160 else if (cp
[1] == '%')
161 cp
++; /* skip over two % */
162 /* otherwise this is a singleton, literal % */
170 * Make sure the format string is well formed, and parse out
173 static int verify_format(const char *format
)
176 for (cp
= format
; *cp
&& (sp
= find_next(cp
)); ) {
177 const char *ep
= strchr(sp
, ')');
179 return error("malformed format string %s", sp
);
180 /* sp points at "%(" and ep points at the closing ")" */
181 parse_atom(sp
+ 2, ep
);
188 * Given an object name, read the object data and size, and return a
189 * "struct object". If the object data we are returning is also borrowed
190 * by the "struct object" representation, set *eaten as well---it is a
191 * signal from parse_object_buffer to us not to free the buffer.
193 static void *get_obj(const unsigned char *sha1
, struct object
**obj
, unsigned long *sz
, int *eaten
)
195 enum object_type type
;
196 void *buf
= read_sha1_file(sha1
, &type
, sz
);
199 *obj
= parse_object_buffer(sha1
, type
, *sz
, buf
, eaten
);
205 /* See grab_values */
206 static void grab_common_values(struct atom_value
*val
, int deref
, struct object
*obj
, void *buf
, unsigned long sz
)
210 for (i
= 0; i
< used_atom_cnt
; i
++) {
211 const char *name
= used_atom
[i
];
212 struct atom_value
*v
= &val
[i
];
213 if (!!deref
!= (*name
== '*'))
217 if (!strcmp(name
, "objecttype"))
218 v
->s
= typename(obj
->type
);
219 else if (!strcmp(name
, "objectsize")) {
220 char *s
= xmalloc(40);
221 sprintf(s
, "%lu", sz
);
225 else if (!strcmp(name
, "objectname")) {
226 char *s
= xmalloc(41);
227 strcpy(s
, sha1_to_hex(obj
->sha1
));
230 else if (!strcmp(name
, "objectname:short")) {
231 v
->s
= xstrdup(find_unique_abbrev(obj
->sha1
,
237 /* See grab_values */
238 static void grab_tag_values(struct atom_value
*val
, int deref
, struct object
*obj
, void *buf
, unsigned long sz
)
241 struct tag
*tag
= (struct tag
*) obj
;
243 for (i
= 0; i
< used_atom_cnt
; i
++) {
244 const char *name
= used_atom
[i
];
245 struct atom_value
*v
= &val
[i
];
246 if (!!deref
!= (*name
== '*'))
250 if (!strcmp(name
, "tag"))
252 else if (!strcmp(name
, "type") && tag
->tagged
)
253 v
->s
= typename(tag
->tagged
->type
);
254 else if (!strcmp(name
, "object") && tag
->tagged
) {
255 char *s
= xmalloc(41);
256 strcpy(s
, sha1_to_hex(tag
->tagged
->sha1
));
262 static int num_parents(struct commit
*commit
)
264 struct commit_list
*parents
;
267 for (i
= 0, parents
= commit
->parents
;
269 parents
= parents
->next
)
274 /* See grab_values */
275 static void grab_commit_values(struct atom_value
*val
, int deref
, struct object
*obj
, void *buf
, unsigned long sz
)
278 struct commit
*commit
= (struct commit
*) obj
;
280 for (i
= 0; i
< used_atom_cnt
; i
++) {
281 const char *name
= used_atom
[i
];
282 struct atom_value
*v
= &val
[i
];
283 if (!!deref
!= (*name
== '*'))
287 if (!strcmp(name
, "tree")) {
288 char *s
= xmalloc(41);
289 strcpy(s
, sha1_to_hex(commit
->tree
->object
.sha1
));
292 if (!strcmp(name
, "numparent")) {
293 char *s
= xmalloc(40);
294 v
->ul
= num_parents(commit
);
295 sprintf(s
, "%lu", v
->ul
);
298 else if (!strcmp(name
, "parent")) {
299 int num
= num_parents(commit
);
301 struct commit_list
*parents
;
302 char *s
= xmalloc(41 * num
+ 1);
304 for (i
= 0, parents
= commit
->parents
;
306 parents
= parents
->next
, i
= i
+ 41) {
307 struct commit
*parent
= parents
->item
;
308 strcpy(s
+i
, sha1_to_hex(parent
->object
.sha1
));
318 static const char *find_wholine(const char *who
, int wholen
, const char *buf
, unsigned long sz
)
322 if (!strncmp(buf
, who
, wholen
) &&
324 return buf
+ wholen
+ 1;
325 eol
= strchr(buf
, '\n');
330 return ""; /* end of header */
336 static const char *copy_line(const char *buf
)
338 const char *eol
= strchrnul(buf
, '\n');
339 return xmemdupz(buf
, eol
- buf
);
342 static const char *copy_name(const char *buf
)
345 for (cp
= buf
; *cp
&& *cp
!= '\n'; cp
++) {
346 if (!strncmp(cp
, " <", 2))
347 return xmemdupz(buf
, cp
- buf
);
352 static const char *copy_email(const char *buf
)
354 const char *email
= strchr(buf
, '<');
358 eoemail
= strchr(email
, '>');
361 return xmemdupz(email
, eoemail
+ 1 - email
);
364 static void grab_date(const char *buf
, struct atom_value
*v
, const char *atomname
)
366 const char *eoemail
= strstr(buf
, "> ");
368 unsigned long timestamp
;
370 enum date_mode date_mode
= DATE_NORMAL
;
374 * We got here because atomname ends in "date" or "date<something>";
375 * it's not possible that <something> is not ":<format>" because
376 * parse_atom() wouldn't have allowed it, so we can assume that no
377 * ":" means no format is specified, and use the default.
379 formatp
= strchr(atomname
, ':');
380 if (formatp
!= NULL
) {
382 date_mode
= parse_date_format(formatp
);
387 timestamp
= strtoul(eoemail
+ 2, &zone
, 10);
388 if (timestamp
== ULONG_MAX
)
390 tz
= strtol(zone
, NULL
, 10);
391 if ((tz
== LONG_MIN
|| tz
== LONG_MAX
) && errno
== ERANGE
)
393 v
->s
= xstrdup(show_date(timestamp
, tz
, date_mode
));
401 /* See grab_values */
402 static void grab_person(const char *who
, struct atom_value
*val
, int deref
, struct object
*obj
, void *buf
, unsigned long sz
)
405 int wholen
= strlen(who
);
406 const char *wholine
= NULL
;
408 for (i
= 0; i
< used_atom_cnt
; i
++) {
409 const char *name
= used_atom
[i
];
410 struct atom_value
*v
= &val
[i
];
411 if (!!deref
!= (*name
== '*'))
415 if (strncmp(who
, name
, wholen
))
417 if (name
[wholen
] != 0 &&
418 strcmp(name
+ wholen
, "name") &&
419 strcmp(name
+ wholen
, "email") &&
420 prefixcmp(name
+ wholen
, "date"))
423 wholine
= find_wholine(who
, wholen
, buf
, sz
);
425 return; /* no point looking for it */
426 if (name
[wholen
] == 0)
427 v
->s
= copy_line(wholine
);
428 else if (!strcmp(name
+ wholen
, "name"))
429 v
->s
= copy_name(wholine
);
430 else if (!strcmp(name
+ wholen
, "email"))
431 v
->s
= copy_email(wholine
);
432 else if (!prefixcmp(name
+ wholen
, "date"))
433 grab_date(wholine
, v
, name
);
437 * For a tag or a commit object, if "creator" or "creatordate" is
438 * requested, do something special.
440 if (strcmp(who
, "tagger") && strcmp(who
, "committer"))
441 return; /* "author" for commit object is not wanted */
443 wholine
= find_wholine(who
, wholen
, buf
, sz
);
446 for (i
= 0; i
< used_atom_cnt
; i
++) {
447 const char *name
= used_atom
[i
];
448 struct atom_value
*v
= &val
[i
];
449 if (!!deref
!= (*name
== '*'))
454 if (!prefixcmp(name
, "creatordate"))
455 grab_date(wholine
, v
, name
);
456 else if (!strcmp(name
, "creator"))
457 v
->s
= copy_line(wholine
);
461 static void find_subpos(const char *buf
, unsigned long sz
,
462 const char **sub
, unsigned long *sublen
,
463 const char **body
, unsigned long *bodylen
)
466 /* skip past header until we hit empty line */
467 while (*buf
&& *buf
!= '\n') {
468 eol
= strchrnul(buf
, '\n');
473 /* skip any empty lines */
477 /* subject is first non-empty line */
479 /* subject goes to end of line */
480 eol
= strchrnul(buf
, '\n');
484 /* skip any empty lines */
488 *bodylen
= strlen(buf
);
491 /* See grab_values */
492 static void grab_sub_body_contents(struct atom_value
*val
, int deref
, struct object
*obj
, void *buf
, unsigned long sz
)
495 const char *subpos
= NULL
, *bodypos
;
496 unsigned long sublen
, bodylen
;
498 for (i
= 0; i
< used_atom_cnt
; i
++) {
499 const char *name
= used_atom
[i
];
500 struct atom_value
*v
= &val
[i
];
501 if (!!deref
!= (*name
== '*'))
505 if (strcmp(name
, "subject") &&
506 strcmp(name
, "body") &&
507 strcmp(name
, "contents"))
514 if (!strcmp(name
, "subject"))
515 v
->s
= xmemdupz(subpos
, sublen
);
516 else if (!strcmp(name
, "body"))
517 v
->s
= xmemdupz(bodypos
, bodylen
);
518 else if (!strcmp(name
, "contents"))
519 v
->s
= xstrdup(subpos
);
524 * We want to have empty print-string for field requests
525 * that do not apply (e.g. "authordate" for a tag object)
527 static void fill_missing_values(struct atom_value
*val
)
530 for (i
= 0; i
< used_atom_cnt
; i
++) {
531 struct atom_value
*v
= &val
[i
];
538 * val is a list of atom_value to hold returned values. Extract
539 * the values for atoms in used_atom array out of (obj, buf, sz).
540 * when deref is false, (obj, buf, sz) is the object that is
541 * pointed at by the ref itself; otherwise it is the object the
542 * ref (which is a tag) refers to.
544 static void grab_values(struct atom_value
*val
, int deref
, struct object
*obj
, void *buf
, unsigned long sz
)
546 grab_common_values(val
, deref
, obj
, buf
, sz
);
549 grab_tag_values(val
, deref
, obj
, buf
, sz
);
550 grab_sub_body_contents(val
, deref
, obj
, buf
, sz
);
551 grab_person("tagger", val
, deref
, obj
, buf
, sz
);
554 grab_commit_values(val
, deref
, obj
, buf
, sz
);
555 grab_sub_body_contents(val
, deref
, obj
, buf
, sz
);
556 grab_person("author", val
, deref
, obj
, buf
, sz
);
557 grab_person("committer", val
, deref
, obj
, buf
, sz
);
560 /* grab_tree_values(val, deref, obj, buf, sz); */
563 /* grab_blob_values(val, deref, obj, buf, sz); */
566 die("Eh? Object of type %d?", obj
->type
);
570 static inline char *copy_advance(char *dst
, const char *src
)
578 * Parse the object referred by ref, and grab needed value.
580 static void populate_value(struct refinfo
*ref
)
586 const unsigned char *tagged
;
588 ref
->value
= xcalloc(sizeof(struct atom_value
), used_atom_cnt
);
590 if (need_symref
&& (ref
->flag
& REF_ISSYMREF
) && !ref
->symref
) {
591 unsigned char unused1
[20];
593 symref
= resolve_ref(ref
->refname
, unused1
, 1, NULL
);
595 ref
->symref
= xstrdup(symref
);
600 /* Fill in specials first */
601 for (i
= 0; i
< used_atom_cnt
; i
++) {
602 const char *name
= used_atom
[i
];
603 struct atom_value
*v
= &ref
->value
[i
];
613 if (!prefixcmp(name
, "refname"))
614 refname
= ref
->refname
;
615 else if (!prefixcmp(name
, "symref"))
616 refname
= ref
->symref
? ref
->symref
: "";
617 else if (!prefixcmp(name
, "upstream")) {
618 struct branch
*branch
;
619 /* only local branches may have an upstream */
620 if (prefixcmp(ref
->refname
, "refs/heads/"))
622 branch
= branch_get(ref
->refname
+ 11);
624 if (!branch
|| !branch
->merge
|| !branch
->merge
[0] ||
625 !branch
->merge
[0]->dst
)
627 refname
= branch
->merge
[0]->dst
;
629 else if (!strcmp(name
, "flag")) {
630 char buf
[256], *cp
= buf
;
631 if (ref
->flag
& REF_ISSYMREF
)
632 cp
= copy_advance(cp
, ",symref");
633 if (ref
->flag
& REF_ISPACKED
)
634 cp
= copy_advance(cp
, ",packed");
639 v
->s
= xstrdup(buf
+ 1);
646 formatp
= strchr(name
, ':');
647 /* look for "short" refname format */
650 if (!strcmp(formatp
, "short"))
651 refname
= shorten_unambiguous_ref(refname
,
652 warn_ambiguous_refs
);
654 die("unknown %.*s format %s",
655 (int)(formatp
- name
), name
, formatp
);
661 int len
= strlen(refname
);
662 char *s
= xmalloc(len
+ 4);
663 sprintf(s
, "%s^{}", refname
);
668 for (i
= 0; i
< used_atom_cnt
; i
++) {
669 struct atom_value
*v
= &ref
->value
[i
];
676 buf
= get_obj(ref
->objectname
, &obj
, &size
, &eaten
);
678 die("missing object %s for %s",
679 sha1_to_hex(ref
->objectname
), ref
->refname
);
681 die("parse_object_buffer failed on %s for %s",
682 sha1_to_hex(ref
->objectname
), ref
->refname
);
684 grab_values(ref
->value
, 0, obj
, buf
, size
);
689 * If there is no atom that wants to know about tagged
690 * object, we are done.
692 if (!need_tagged
|| (obj
->type
!= OBJ_TAG
))
696 * If it is a tag object, see if we use a value that derefs
697 * the object, and if we do grab the object it refers to.
699 tagged
= ((struct tag
*)obj
)->tagged
->sha1
;
702 * NEEDSWORK: This derefs tag only once, which
703 * is good to deal with chains of trust, but
704 * is not consistent with what deref_tag() does
705 * which peels the onion to the core.
707 buf
= get_obj(tagged
, &obj
, &size
, &eaten
);
709 die("missing object %s for %s",
710 sha1_to_hex(tagged
), ref
->refname
);
712 die("parse_object_buffer failed on %s for %s",
713 sha1_to_hex(tagged
), ref
->refname
);
714 grab_values(ref
->value
, 1, obj
, buf
, size
);
720 * Given a ref, return the value for the atom. This lazily gets value
721 * out of the object by calling populate value.
723 static void get_value(struct refinfo
*ref
, int atom
, struct atom_value
**v
)
727 fill_missing_values(ref
->value
);
729 *v
= &ref
->value
[atom
];
732 struct grab_ref_cbdata
{
733 struct refinfo
**grab_array
;
734 const char **grab_pattern
;
739 * A call-back given to for_each_ref(). Filter refs and keep them for
740 * later object processing.
742 static int grab_single_ref(const char *refname
, const unsigned char *sha1
, int flag
, void *cb_data
)
744 struct grab_ref_cbdata
*cb
= cb_data
;
748 if (*cb
->grab_pattern
) {
749 const char **pattern
;
750 int namelen
= strlen(refname
);
751 for (pattern
= cb
->grab_pattern
; *pattern
; pattern
++) {
752 const char *p
= *pattern
;
753 int plen
= strlen(p
);
755 if ((plen
<= namelen
) &&
756 !strncmp(refname
, p
, plen
) &&
757 (refname
[plen
] == '\0' ||
758 refname
[plen
] == '/' ||
761 if (!fnmatch(p
, refname
, FNM_PATHNAME
))
769 * We do not open the object yet; sort may only need refname
770 * to do its job and the resulting list may yet to be pruned
773 ref
= xcalloc(1, sizeof(*ref
));
774 ref
->refname
= xstrdup(refname
);
775 hashcpy(ref
->objectname
, sha1
);
779 cb
->grab_array
= xrealloc(cb
->grab_array
,
780 sizeof(*cb
->grab_array
) * (cnt
+ 1));
781 cb
->grab_array
[cnt
++] = ref
;
786 static int cmp_ref_sort(struct ref_sort
*s
, struct refinfo
*a
, struct refinfo
*b
)
788 struct atom_value
*va
, *vb
;
790 cmp_type cmp_type
= used_atom_type
[s
->atom
];
792 get_value(a
, s
->atom
, &va
);
793 get_value(b
, s
->atom
, &vb
);
796 cmp
= strcmp(va
->s
, vb
->s
);
801 else if (va
->ul
== vb
->ul
)
807 return (s
->reverse
) ? -cmp
: cmp
;
810 static struct ref_sort
*ref_sort
;
811 static int compare_refs(const void *a_
, const void *b_
)
813 struct refinfo
*a
= *((struct refinfo
**)a_
);
814 struct refinfo
*b
= *((struct refinfo
**)b_
);
817 for (s
= ref_sort
; s
; s
= s
->next
) {
818 int cmp
= cmp_ref_sort(s
, a
, b
);
825 static void sort_refs(struct ref_sort
*sort
, struct refinfo
**refs
, int num_refs
)
828 qsort(refs
, num_refs
, sizeof(struct refinfo
*), compare_refs
);
831 static void print_value(struct refinfo
*ref
, int atom
, int quote_style
)
833 struct atom_value
*v
;
834 get_value(ref
, atom
, &v
);
835 switch (quote_style
) {
840 sq_quote_print(stdout
, v
->s
);
843 perl_quote_print(stdout
, v
->s
);
846 python_quote_print(stdout
, v
->s
);
849 tcl_quote_print(stdout
, v
->s
);
854 static int hex1(char ch
)
856 if ('0' <= ch
&& ch
<= '9')
858 else if ('a' <= ch
&& ch
<= 'f')
859 return ch
- 'a' + 10;
860 else if ('A' <= ch
&& ch
<= 'F')
861 return ch
- 'A' + 10;
864 static int hex2(const char *cp
)
867 return (hex1(cp
[0]) << 4) | hex1(cp
[1]);
872 static void emit(const char *cp
, const char *ep
)
874 while (*cp
&& (!ep
|| cp
< ep
)) {
879 int ch
= hex2(cp
+ 1);
892 static void show_ref(struct refinfo
*info
, const char *format
, int quote_style
)
894 const char *cp
, *sp
, *ep
;
896 for (cp
= format
; *cp
&& (sp
= find_next(cp
)); cp
= ep
+ 1) {
897 ep
= strchr(sp
, ')');
900 print_value(info
, parse_atom(sp
+ 2, ep
), quote_style
);
903 sp
= cp
+ strlen(cp
);
909 static struct ref_sort
*default_sort(void)
911 static const char cstr_name
[] = "refname";
913 struct ref_sort
*sort
= xcalloc(1, sizeof(*sort
));
916 sort
->atom
= parse_atom(cstr_name
, cstr_name
+ strlen(cstr_name
));
920 static int opt_parse_sort(const struct option
*opt
, const char *arg
, int unset
)
922 struct ref_sort
**sort_tail
= opt
->value
;
926 if (!arg
) /* should --no-sort void the list ? */
929 *sort_tail
= s
= xcalloc(1, sizeof(*s
));
936 s
->atom
= parse_atom(arg
, arg
+len
);
940 static char const * const for_each_ref_usage
[] = {
941 "git for-each-ref [options] [<pattern>]",
945 int cmd_for_each_ref(int argc
, const char **argv
, const char *prefix
)
948 const char *format
= "%(objectname) %(objecttype)\t%(refname)";
949 struct ref_sort
*sort
= NULL
, **sort_tail
= &sort
;
950 int maxcount
= 0, quote_style
= 0;
951 struct refinfo
**refs
;
952 struct grab_ref_cbdata cbdata
;
954 struct option opts
[] = {
955 OPT_BIT('s', "shell", "e_style
,
956 "quote placeholders suitably for shells", QUOTE_SHELL
),
957 OPT_BIT('p', "perl", "e_style
,
958 "quote placeholders suitably for perl", QUOTE_PERL
),
959 OPT_BIT(0 , "python", "e_style
,
960 "quote placeholders suitably for python", QUOTE_PYTHON
),
961 OPT_BIT(0 , "tcl", "e_style
,
962 "quote placeholders suitably for tcl", QUOTE_TCL
),
965 OPT_INTEGER( 0 , "count", &maxcount
, "show only <n> matched refs"),
966 OPT_STRING( 0 , "format", &format
, "format", "format to use for the output"),
967 OPT_CALLBACK(0 , "sort", sort_tail
, "key",
968 "field name to sort on", &opt_parse_sort
),
972 parse_options(argc
, argv
, prefix
, opts
, for_each_ref_usage
, 0);
974 error("invalid --count argument: `%d'", maxcount
);
975 usage_with_options(for_each_ref_usage
, opts
);
977 if (HAS_MULTI_BITS(quote_style
)) {
978 error("more than one quoting style?");
979 usage_with_options(for_each_ref_usage
, opts
);
981 if (verify_format(format
))
982 usage_with_options(for_each_ref_usage
, opts
);
985 sort
= default_sort();
986 sort_atom_limit
= used_atom_cnt
;
988 /* for warn_ambiguous_refs */
989 git_config(git_default_config
, NULL
);
991 memset(&cbdata
, 0, sizeof(cbdata
));
992 cbdata
.grab_pattern
= argv
;
993 for_each_rawref(grab_single_ref
, &cbdata
);
994 refs
= cbdata
.grab_array
;
995 num_refs
= cbdata
.grab_cnt
;
997 sort_refs(sort
, refs
, num_refs
);
999 if (!maxcount
|| num_refs
< maxcount
)
1000 maxcount
= num_refs
;
1001 for (i
= 0; i
< maxcount
; i
++)
1002 show_ref(refs
[i
], format
, quote_style
);