[thirdparty/git.git] / git-format-patch.sh

#!/bin/sh
#
# Copyright (c) 2005 Junio C Hamano
#

USAGE='[-n | -k] [-o <dir> | --stdout] [--signoff] [--check] [--diff-options] [--attach] <his> [<mine>]'
LONG_USAGE='Prepare each commit with its patch since <mine> head forked from
<his> head, one file per patch formatted to resemble UNIX mailbox
format, for e-mail submission or use with git-am.

Each output file is numbered sequentially from 1, and uses the
first line of the commit message (massaged for pathname safety)
as the filename.

When -o is specified, output files are created in <dir>; otherwise
they are created in the current working directory.  This option
is ignored if --stdout is specified.

When -n is specified, instead of "[PATCH] Subject", the first
line is formatted as "[PATCH N/M] Subject", unless you have only
one patch.

When --attach is specified, patches are attached, not inlined.'

. git-sh-setup

# Force diff to run in C locale.
LANG=C LC_ALL=C
export LANG LC_ALL

diff_opts=
LF='
'

outdir=./
while case "$#" in 0) break;; esac
do
    case "$1" in
    -c|--c|--ch|--che|--chec|--check)
    check=t ;;
    -a|--a|--au|--aut|--auth|--autho|--author|\
    -d|--d|--da|--dat|--date|\
    -m|--m|--mb|--mbo|--mbox) # now noop
    ;;
    --at|--att|--atta|--attac|--attach)
    attach=t ;;
    -k|--k|--ke|--kee|--keep|--keep-|--keep-s|--keep-su|--keep-sub|\
    --keep-subj|--keep-subje|--keep-subjec|--keep-subject)
    keep_subject=t ;;
    -n|--n|--nu|--num|--numb|--numbe|--number|--numbere|--numbered)
    numbered=t ;;
    -s|--s|--si|--sig|--sign|--signo|--signof|--signoff)
    signoff=t ;;
    --st|--std|--stdo|--stdou|--stdout)
    stdout=t ;;
    -o=*|--o=*|--ou=*|--out=*|--outp=*|--outpu=*|--output=*|--output-=*|\
    --output-d=*|--output-di=*|--output-dir=*|--output-dire=*|\
    --output-direc=*|--output-direct=*|--output-directo=*|\
    --output-director=*|--output-directory=*)
    outdir=`expr "$1" : '-[^=]*=\(.*\)'` ;;
    -o|--o|--ou|--out|--outp|--outpu|--output|--output-|--output-d|\
    --output-di|--output-dir|--output-dire|--output-direc|--output-direct|\
    --output-directo|--output-director|--output-directory)
    case "$#" in 1) usage ;; esac; shift
    outdir="$1" ;;
    -h|--h|--he|--hel|--help)
        usage
	;;
    -*' '* | -*"$LF"* | -*'	'*)
	# Ignore diff option that has whitespace for now.
	;;
    -*)	diff_opts="$diff_opts$1 " ;;
    *) break ;;
    esac
    shift
done

case "$keep_subject$numbered" in
tt)
	die '--keep-subject and --numbered are incompatible.' ;;
esac

tmp=.tmp-series$$
trap 'rm -f $tmp-*' 0 1 2 3 15

series=$tmp-series
commsg=$tmp-commsg
filelist=$tmp-files

# Backward compatible argument parsing hack.
#
# Historically, we supported:
# 1. "rev1"		is equivalent to "rev1..HEAD"
# 2. "rev1..rev2"
# 3. "rev1" "rev2	is equivalent to "rev1..rev2"
#
# We want to take a sequence of "rev1..rev2" in general.
# Also, "rev1.." should mean "rev1..HEAD"; git-diff users are
# familiar with that syntax.

case "$#,$1$2" in
1,?*..?*)
	# single "rev1..rev2"
	;;
1,?*..)
	# single "rev1.." should mean "rev1..HEAD"
	set x "$1"HEAD
	shift
	;;
1,*)
	# single rev1
	set x "$1..HEAD"
	shift
	;;
2,?*..?*)
	# not traditional "rev1" "rev2"
	;;
2,*)
	set x "$1..$2"
	shift
	;;
esac

# Now we have what we want in $@
for revpair
do
	case "$revpair" in
	?*..?*)
		rev1=`expr "$revpair" : '\(.*\)\.\.'`
		rev2=`expr "$revpair" : '.*\.\.\(.*\)'`
		;;
	*)
		rev1="$revpair^"
		rev2="$revpair"
		;;
	esac
	git-rev-parse --verify "$rev1^0" >/dev/null 2>&1 ||
		die "Not a valid rev $rev1 ($revpair)"
	git-rev-parse --verify "$rev2^0" >/dev/null 2>&1 ||
		die "Not a valid rev $rev2 ($revpair)"
	git-cherry -v "$rev1" "$rev2" |
	while read sign rev comment
	do
		case "$sign" in
		'-')
			echo >&2 "Merged already: $comment"
			;;
		*)
			echo $rev
			;;
		esac
	done
done >$series

me=`git-var GIT_AUTHOR_IDENT | sed -e 's/>.*/>/'`
headers=`git-repo-config --get format.headers`
case "$attach" in
"") ;;
*)
	mimemagic="050802040500080604070107"
esac

case "$outdir" in
*/) ;;
*) outdir="$outdir/" ;;
esac
test -d "$outdir" || mkdir -p "$outdir" || exit

titleScript='
	/./d
	/^$/n
	s/^\[PATCH[^]]*\] *//
	s/[^-a-z.A-Z_0-9]/-/g
        s/\.\.\.*/\./g
	s/\.*$//
	s/--*/-/g
	s/^-//
	s/-$//
	s/$/./
	p
	q
'

process_one () {
	perl -w -e '
my ($keep_subject, $num, $signoff, $headers, $mimemagic, $commsg) = @ARGV;
my ($signoff_pattern, $done_header, $done_subject, $done_separator, $signoff_seen,
    $last_was_signoff);

if ($signoff) {
	$signoff = "Signed-off-by: " . `git-var GIT_COMMITTER_IDENT`;
	$signoff =~ s/>.*/>/;
	$signoff_pattern = quotemeta($signoff);
}

my @weekday_names = qw(Sun Mon Tue Wed Thu Fri Sat);
my @month_names = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);

sub show_date {
    my ($time, $tz) = @_;
    my $minutes = abs($tz);
    $minutes = int($minutes / 100) * 60 + ($minutes % 100);
    if ($tz < 0) {
        $minutes = -$minutes;
    }
    my $t = $time + $minutes * 60;
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime($t);
    return sprintf("%s %s %d %02d:%02d:%02d %d %+05d",
		   $weekday_names[$wday],
		   $month_names[$mon],
		   $mday, $hour, $min, $sec,
		   $year+1900, $tz);
}

print "From nobody Mon Sep 17 00:00:00 2001\n";
open FH, "git stripspace <$commsg |" or die "open $commsg pipe";
while (<FH>) {
    unless ($done_header) {
	if (/^$/) {
	    $done_header = 1;
	}
	elsif (/^author (.*>) (.*)$/) {
	    my ($author_ident, $author_date) = ($1, $2);
	    my ($utc, $off) = ($author_date =~ /^(\d+) ([-+]?\d+)$/);
	    $author_date = show_date($utc, $off);

	    print "From: $author_ident\n";
	    print "Date: $author_date\n";
	}
	next;
    }
    unless ($done_subject) {
	unless ($keep_subject) {
	    s/^\[PATCH[^]]*\]\s*//;
	    s/^/[PATCH$num] /;
	}
	if ($headers) {
	    print "$headers\n";
	}
        print "Subject: $_";
	if ($mimemagic) {
	    print "MIME-Version: 1.0\n";
	    print "Content-Type: multipart/mixed;\n";
	    print " boundary=\"------------$mimemagic\"\n";
	    print "\n";
	    print "This is a multi-part message in MIME format.\n";
	    print "--------------$mimemagic\n";
	    print "Content-Type: text/plain; charset=UTF-8; format=fixed\n";
	    print "Content-Transfer-Encoding: 8bit\n";
	}
	$done_subject = 1;
	next;
    }
    unless ($done_separator) {
        print "\n";
        $done_separator = 1;
        next if (/^$/);
    }

    $last_was_signoff = 0;
    if (/Signed-off-by:/i) {
        if ($signoff ne "" && /Signed-off-by:\s*$signoff_pattern$/i) {
	    $signoff_seen = 1;
	}
    }
    print $_;
}
if (!$signoff_seen && $signoff ne "") {
    if (!$last_was_signoff) {
        print "\n";
    }
    print "$signoff\n";
}
print "\n---\n\n";
close FH or die "close $commsg pipe";
' "$keep_subject" "$num" "$signoff" "$headers" "$mimemagic" $commsg

	git-diff-tree -p $diff_opts "$commit" | git-apply --stat --summary
	echo
	case "$mimemagic" in
	'');;
	*)
		echo "--------------$mimemagic"
		echo "Content-Type: text/x-patch;"
		echo " name=\"$commit.diff\""
		echo "Content-Transfer-Encoding: 8bit"
		echo "Content-Disposition: inline;"
		echo " filename=\"$commit.diff\""
		echo
	esac
	git-diff-tree -p $diff_opts "$commit"
	case "$mimemagic" in
	'')
		echo "-- "
		echo "@@GIT_VERSION@@"
		;;
	*)
		echo
		echo "--------------$mimemagic--"
		echo
		;;
	esac
	echo
}

total=`wc -l <$series | tr -dc "[0-9]"`
case "$total,$numbered" in
1,*)
	numfmt='' ;;
*,t)
	numfmt=`echo "$total" | wc -c`
	numfmt=$(($numfmt-1))
	numfmt=" %0${numfmt}d/$total"
esac

i=1
while read commit
do
    git-cat-file commit "$commit" | git-stripspace >$commsg
    title=`sed -ne "$titleScript" <$commsg`
    case "$numbered" in
    '') num= ;;
    *)
        num=`printf "$numfmt" $i` ;;
    esac

    file=`printf '%04d-%stxt' $i "$title"`
    if test '' = "$stdout"
    then
	    echo "$file"
	    process_one >"$outdir$file"
	    if test t = "$check"
	    then
		# This is slightly modified from Andrew Morton's Perfect Patch.
		# Lines you introduce should not have trailing whitespace.
		# Also check for an indentation that has SP before a TAB.
		grep -n '^+\([ 	]* 	.*\|.*[ 	]\)$' "$outdir$file"
		:
	    fi
    else
	    echo >&2 "$file"
	    process_one
    fi
    i=`expr "$i" + 1`
done <$series
Commit	Line	Data
0acfc972 JH	1	#!/bin/sh
	2	#
	3	# Copyright (c) 2005 Junio C Hamano
	4	#
	5
19bb7327	6	USAGE='[-n \| -k] [-o <dir> \| --stdout] [--signoff] [--check] [--diff-options] [--attach] <his> [<mine>]'
66f04f38 AE	7	LONG_USAGE='Prepare each commit with its patch since <mine> head forked from
	8	<his> head, one file per patch formatted to resemble UNIX mailbox
	9	format, for e-mail submission or use with git-am.
	10
	11	Each output file is numbered sequentially from 1, and uses the
	12	first line of the commit message (massaged for pathname safety)
	13	as the filename.
	14
	15	When -o is specified, output files are created in <dir>; otherwise
	16	they are created in the current working directory. This option
	17	is ignored if --stdout is specified.
	18
	19	When -n is specified, instead of "[PATCH] Subject", the first
	20	line is formatted as "[PATCH N/M] Subject", unless you have only
19bb7327 MM	21	one patch.
	22
	23	When --attach is specified, patches are attached, not inlined.'
66f04f38	24
806f36d4 FK	25	. git-sh-setup
	26
	27	# Force diff to run in C locale.
	28	LANG=C LC_ALL=C
	29	export LANG LC_ALL
0acfc972 JH	30
0acfc972 JH	31	diff_opts=
0acfc972 JH	32	LF='
0acfc972 JH	33	'
0acfc972	34
5c2c972f	35	outdir=./
0acfc972 JH	36	while case "$#" in 0) break;; esac
	37	do
	38	case "$1" in
5c2c972f JH	39	-c\|--c\|--ch\|--che\|--chec\|--check)
5c2c972f JH	40	check=t ;;
36383a3d JH	41	-a\|--a\|--au\|--aut\|--auth\|--autho\|--author\|\
	42	-d\|--d\|--da\|--dat\|--date\|\
	43	-m\|--m\|--mb\|--mbo\|--mbox) # now noop
	44	;;
19bb7327 MM	45	--at\|--att\|--atta\|--attac\|--attach)
19bb7327 MM	46	attach=t ;;
af5260ee JH	47	-k\|--k\|--ke\|--kee\|--keep\|--keep-\|--keep-s\|--keep-su\|--keep-sub\|\
	48	--keep-subj\|--keep-subje\|--keep-subjec\|--keep-subject)
	49	keep_subject=t ;;
0acfc972 JH	50	-n\|--n\|--nu\|--num\|--numb\|--numbe\|--number\|--numbere\|--numbered)
0acfc972 JH	51	numbered=t ;;
d9ac9df4	52	-s\|--s\|--si\|--sig\|--sign\|--signo\|--signof\|--signoff)
b097584b	53	signoff=t ;;
655c7470	54	--st\|--std\|--stdo\|--stdou\|--stdout)
66f04f38	55	stdout=t ;;
0acfc972 JH	56	-o=\|--o=\|--ou=\|--out=\|--outp=\|--outpu=\|--output=\|--output-=\|\
	57	--output-d=\|--output-di=\|--output-dir=\|--output-dire=\|\
	58	--output-direc=\|--output-direct=\|--output-directo=*\|\
	59	--output-director=\|--output-directory=)
	60	outdir=`expr "$1" : '-[^=]=\(.\)'` ;;
	61	-o\|--o\|--ou\|--out\|--outp\|--outpu\|--output\|--output-\|--output-d\|\
	62	--output-di\|--output-dir\|--output-dire\|--output-direc\|--output-direct\|\
	63	--output-directo\|--output-director\|--output-directory)
	64	case "$#" in 1) usage ;; esac; shift
	65	outdir="$1" ;;
93d69d86 JL	66	-h\|--h\|--he\|--hel\|--help)
	67	usage
	68	;;
4a5b63e3 JH	69	-' ' \| -"$LF" \| -' ')
	70	# Ignore diff option that has whitespace for now.
	71	;;
	72	-*) diff_opts="$diff_opts$1 " ;;
0acfc972 JH	73	*) break ;;
	74	esac
	75	shift
	76	done
	77
af5260ee JH	78	case "$keep_subject$numbered" in
	79	tt)
	80	die '--keep-subject and --numbered are incompatible.' ;;
	81	esac
	82
603d8745 JH	83	tmp=.tmp-series$$
	84	trap 'rm -f $tmp-*' 0 1 2 3 15
	85
	86	series=$tmp-series
	87	commsg=$tmp-commsg
	88	filelist=$tmp-files
	89
	90	# Backward compatible argument parsing hack.
	91	#
	92	# Historically, we supported:
	93	# 1. "rev1" is equivalent to "rev1..HEAD"
	94	# 2. "rev1..rev2"
	95	# 3. "rev1" "rev2 is equivalent to "rev1..rev2"
	96	#
	97	# We want to take a sequence of "rev1..rev2" in general.
bd7c8aab JH	98	# Also, "rev1.." should mean "rev1..HEAD"; git-diff users are
bd7c8aab JH	99	# familiar with that syntax.
603d8745	100
88b5a748	101	case "$#,$1$2" in
603d8745 JH	102	1,?..?)
	103	# single "rev1..rev2"
	104	;;
bd7c8aab JH	105	1,?*..)
bd7c8aab JH	106	# single "rev1.." should mean "rev1..HEAD"
b748421a	107	set x "$1"HEAD
bd7c8aab JH	108	shift
bd7c8aab JH	109	;;
603d8745 JH	110	1,*)
	111	# single rev1
	112	set x "$1..HEAD"
	113	shift
	114	;;
	115	2,?..?)
	116	# not traditional "rev1" "rev2"
4a5b63e3	117	;;
603d8745 JH	118	2,*)
	119	set x "$1..$2"
	120	shift
4a5b63e3	121	;;
0acfc972 JH	122	esac
0acfc972 JH	123
603d8745 JH	124	# Now we have what we want in $@
	125	for revpair
	126	do
	127	case "$revpair" in
	128	?..?)
	129	rev1=`expr "$revpair" : '\(.*\)\.\.'`
	130	rev2=`expr "$revpair" : '.\.\.\(.\)'`
	131	;;
	132	*)
88b5a748 JH	133	rev1="$revpair^"
88b5a748 JH	134	rev2="$revpair"
603d8745 JH	135	;;
	136	esac
	137	git-rev-parse --verify "$rev1^0" >/dev/null 2>&1 \|\|
	138	die "Not a valid rev $rev1 ($revpair)"
	139	git-rev-parse --verify "$rev2^0" >/dev/null 2>&1 \|\|
	140	die "Not a valid rev $rev2 ($revpair)"
	141	git-cherry -v "$rev1" "$rev2" \|
	142	while read sign rev comment
	143	do
	144	case "$sign" in
	145	'-')
	146	echo >&2 "Merged already: $comment"
	147	;;
	148	*)
	149	echo $rev
	150	;;
	151	esac
	152	done
	153	done >$series
	154
44d2eb51	155	me=`git-var GIT_AUTHOR_IDENT \| sed -e 's/>.*/>/'`
00333ca3	156	headers=`git-repo-config --get format.headers`
19bb7327 MM	157	case "$attach" in
	158	"") ;;
	159	*)
	160	mimemagic="050802040500080604070107"
	161	esac
44d2eb51	162
0acfc972 JH	163	case "$outdir" in
	164	*/) ;;
	165	*) outdir="$outdir/" ;;
	166	esac
	167	test -d "$outdir" \|\| mkdir -p "$outdir" \|\| exit
	168
0acfc972	169	titleScript='
1855c044 JH	170	/./d
	171	/^$/n
	172	s/^\[PATCH[^]]\] //
0acfc972 JH	173	s/[^-a-z.A-Z_0-9]/-/g
	174	s/\.\.\.*/\./g
	175	s/\.*$//
	176	s/--*/-/g
	177	s/^-//
	178	s/-$//
	179	s/$/./
1855c044	180	p
0acfc972 JH	181	q
	182	'
	183
655c7470	184	process_one () {
36383a3d	185	perl -w -e '
19bb7327	186	my ($keep_subject, $num, $signoff, $headers, $mimemagic, $commsg) = @ARGV;
f891cb3f	187	my ($signoff_pattern, $done_header, $done_subject, $done_separator, $signoff_seen,
36383a3d	188	$last_was_signoff);
655c7470	189
36383a3d	190	if ($signoff) {
fc5be4fd	191	$signoff = "Signed-off-by: " . `git-var GIT_COMMITTER_IDENT`;
36383a3d JH	192	$signoff =~ s/>.*/>/;
	193	$signoff_pattern = quotemeta($signoff);
	194	}
44d2eb51	195
36383a3d JH	196	my @weekday_names = qw(Sun Mon Tue Wed Thu Fri Sat);
36383a3d JH	197	my @month_names = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
a5c21d6e	198
36383a3d JH	199	sub show_date {
	200	my ($time, $tz) = @_;
	201	my $minutes = abs($tz);
fab5de79	202	$minutes = int($minutes / 100) * 60 + ($minutes % 100);
36383a3d JH	203	if ($tz < 0) {
	204	$minutes = -$minutes;
	205	}
	206	my $t = $time + $minutes * 60;
	207	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime($t);
	208	return sprintf("%s %s %d %02d:%02d:%02d %d %+05d",
	209	$weekday_names[$wday],
	210	$month_names[$mon],
	211	$mday, $hour, $min, $sec,
	212	$year+1900, $tz);
	213	}
0acfc972	214
36383a3d JH	215	print "From nobody Mon Sep 17 00:00:00 2001\n";
	216	open FH, "git stripspace <$commsg \|" or die "open $commsg pipe";
	217	while (<FH>) {
	218	unless ($done_header) {
	219	if (/^$/) {
	220	$done_header = 1;
	221	}
	222	elsif (/^author (.>) (.)$/) {
	223	my ($author_ident, $author_date) = ($1, $2);
	224	my ($utc, $off) = ($author_date =~ /^(\d+) ([-+]?\d+)$/);
	225	$author_date = show_date($utc, $off);
b097584b	226
36383a3d JH	227	print "From: $author_ident\n";
36383a3d JH	228	print "Date: $author_date\n";
b097584b	229	}
36383a3d JH	230	next;
	231	}
	232	unless ($done_subject) {
	233	unless ($keep_subject) {
	234	s/^\[PATCH[^]]\]\s//;
	235	s/^/[PATCH$num] /;
	236	}
00333ca3 MM	237	if ($headers) {
	238	print "$headers\n";
	239	}
36383a3d	240	print "Subject: $_";
19bb7327 MM	241	if ($mimemagic) {
	242	print "MIME-Version: 1.0\n";
	243	print "Content-Type: multipart/mixed;\n";
	244	print " boundary=\"------------$mimemagic\"\n";
	245	print "\n";
	246	print "This is a multi-part message in MIME format.\n";
	247	print "--------------$mimemagic\n";
	248	print "Content-Type: text/plain; charset=UTF-8; format=fixed\n";
	249	print "Content-Transfer-Encoding: 8bit\n";
	250	}
36383a3d JH	251	$done_subject = 1;
	252	next;
	253	}
f891cb3f AJ	254	unless ($done_separator) {
	255	print "\n";
	256	$done_separator = 1;
	257	next if (/^$/);
	258	}
36383a3d JH	259
	260	$last_was_signoff = 0;
	261	if (/Signed-off-by:/i) {
	262	if ($signoff ne "" && /Signed-off-by:\s*$signoff_pattern$/i) {
	263	$signoff_seen = 1;
	264	}
	265	}
	266	print $_;
	267	}
	268	if (!$signoff_seen && $signoff ne "") {
	269	if (!$last_was_signoff) {
	270	print "\n";
	271	}
	272	print "$signoff\n";
	273	}
	274	print "\n---\n\n";
	275	close FH or die "close $commsg pipe";
19bb7327	276	' "$keep_subject" "$num" "$signoff" "$headers" "$mimemagic" $commsg
36383a3d	277
0acfc972 JH	278	git-diff-tree -p $diff_opts "$commit" \| git-apply --stat --summary
0acfc972 JH	279	echo
19bb7327 MM	280	case "$mimemagic" in
	281	'');;
	282	*)
	283	echo "--------------$mimemagic"
	284	echo "Content-Type: text/x-patch;"
	285	echo " name=\"$commit.diff\""
	286	echo "Content-Transfer-Encoding: 8bit"
	287	echo "Content-Disposition: inline;"
	288	echo " filename=\"$commit.diff\""
	289	echo
	290	esac
b10c1a74	291	git-diff-tree -p $diff_opts "$commit"
19bb7327 MM	292	case "$mimemagic" in
	293	'')
	294	echo "-- "
	295	echo "@@GIT_VERSION@@"
	296	;;
	297	*)
	298	echo
	299	echo "--------------$mimemagic--"
	300	echo
	301	;;
	302	esac
36383a3d	303	echo
655c7470 JH	304	}
	305
	306	total=`wc -l <$series \| tr -dc "[0-9]"`
7564577a JH	307	case "$total,$numbered" in
	308	1,*)
	309	numfmt='' ;;
	310	*,t)
	311	numfmt=`echo "$total" \| wc -c`
	312	numfmt=$(($numfmt-1))
	313	numfmt=" %0${numfmt}d/$total"
	314	esac
	315
655c7470 JH	316	i=1
	317	while read commit
	318	do
	319	git-cat-file commit "$commit" \| git-stripspace >$commsg
	320	title=`sed -ne "$titleScript" <$commsg`
	321	case "$numbered" in
	322	'') num= ;;
	323	*)
7564577a	324	num=`printf "$numfmt" $i` ;;
5c2c972f	325	esac
655c7470 JH	326
	327	file=`printf '%04d-%stxt' $i "$title"`
	328	if test '' = "$stdout"
	329	then
51b3c00e	330	echo "$file"
655c7470 JH	331	process_one >"$outdir$file"
	332	if test t = "$check"
	333	then
	334	# This is slightly modified from Andrew Morton's Perfect Patch.
	335	# Lines you introduce should not have trailing whitespace.
	336	# Also check for an indentation that has SP before a TAB.
	337	grep -n '^+\([ ]* .\\|.[ ]\)$' "$outdir$file"
	338	:
	339	fi
	340	else
51b3c00e	341	echo >&2 "$file"
655c7470 JH	342	process_one
	343	fi
	344	i=`expr "$i" + 1`
0acfc972	345	done <$series