[packages/adapter.git] / adapter.sh

#!/bin/sh
#
# Authors:
# 	Michał Kuratczyk <kura@pld.org.pl>
# 	Sebastian Zagrodzki <s.zagrodzki@mimuw.edu.pl>
# 	Tomasz Kłoczko <kloczek@rudy.mif.pg.gda.pl>
# 	Artur Frysiak <wiget@pld-linux.org>
# 	Michal Kochanowicz <mkochano@pld.org.pl>
# 	Elan Ruusamäe <glen@pld-linux.org>
#
# See cvs log adapter{,.awk} for list of contributors
#
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

RCSID='$Id$'
r=${RCSID#* * }
rev=${r%% *}
VERSION="v0.35/$rev"
VERSIONSTRING="\
Adapter adapts .spec files for PLD Linux.
$VERSION (C) 1999-2009 Free Penguins".

PROGRAM=${0##*/}
dir=$(d=$0; [ -L "$d" ] && d=$(readlink "$d"); dirname "$d")
adapter=$dir/adapter.awk
usage="Usage: $PROGRAM [FLAGS] SPECFILE

-s|--no-sort|--skip-sort
	skip BuildRequires, Requires sorting
-m|--no-macros|--skip-macros
	skip use_macros() substitutions
-d|--skip-desc
	skip desc wrapping
-a|--skip-defattr
	skip %defattr corrections
-o
	do not do any diffing, just dump the output
"

if [ ! -x /usr/bin/getopt ]; then
	echo >&2 "You need to install util-linux to use adapter"
	exit 1
fi

if [ ! -x /usr/bin/patch ]; then
	echo >&2 "You need to install patch to use adapter"
	exit 1
fi

[ -n "$PAGER" ] || PAGER="/usr/bin/less -r"

if [ -n "$CONFIG_DIR" ]; then
	USER_CFG="$CONFIG_DIR/.adapterrc"
elif [ -n "$HOME_ETC" ]; then
	USER_CFG="$HOME_ETC/.adapterrc"
else
	USER_CFG=~/.adapterrc
fi

[ -f $USER_CFG ] && . $USER_CFG

t=$(getopt -o hsomdaV --long help,version,sort,sort-br,no-macros,skip-macros,skip-desc,skip-defattr -n "$PROGRAM" -- "$@") || exit $?
eval set -- "$t"

while true; do
	case "$1" in
	-h|--help)
		echo 2>&1 "$usage"
		exit 1
	;;
	-s|--no-sort|--skip-sort)
		export SKIP_SORTBR=1
	;;
	-m|--no-macros|--skip-macros)
		export SKIP_MACROS=1
	;;
	-d|--skip-desc)
		export SKIP_DESC=1
	;;
	-a|--skip-defattr)
		export SKIP_DEFATTR=1
	;;
	-V|--version)
		echo "$VERSIONSTRING"
		exit 0
		;;
	-o)
		outputonly=1
	;;
	--)
		shift
		break
	;;
	*)
		echo >&2 "$PROGRAM: Internal error: \`$1' not recognized!"
		exit 1
		;;
	esac
	shift
done

diffcol()
{
	# vim like diff colourization
LC_ALL=en_US.UTF-8 gawk ' {
	split( $0, S, /\t/ );
	$0 = S[ 1 ];
	for ( i = 2; i in S; i++ ) {
		spaces = 7 - ( (length( $0 ) - 1) % 8 );
		$0 = $0 "\xE2\x9E\x94";
		for ( y = 0; y < spaces; y++ )
			$0 = $0 "\xE2\x87\xBE";
		$0 = $0 S[ i ];
	}
	gsub( /\033/, "\033[44m^[\033[49m" );
	cmd = "";
	if ( sub( /^ /, "" ) )
		cmd = " ";
	sub( /(\xE2\x9E\x94(\xE2\x87\xBE)*| )+$/, "\033[31;41m&\033[39;49m" );
	gsub( /\xE2\x9E\x94(\xE2\x87\xBE)*/, "\033[7m&\033[27m" );
	gsub( /\xE2\x87\xBE/, " " );
	# uncomment if you do not like utf-8 arrow
	# gsub( /\xE2\x9E\x94/, ">" );
	$0 = cmd $0;
	gsub( /\007/, "\033[44m^G\033[49m" );
	gsub( /\r/, "\033[44m^M\033[49m" );
}
/^(Index:|diff|---|\+\+\+) / { $0 = "\033[32m" $0 }
/^@@ / { $0 = "\033[33m" $0 }
/^-/ { $0 = "\033[35m" $0 }
/^+/ { $0 = "\033[36m" $0 }
{ $0 = $0 "\033[0m"; print }
' "$@"
}

diff2hunks()
{
	# diff2hunks orignally by dig
	perl -e '
#! /usr/bin/perl -w

use strict;

for my $filename (@ARGV) {
	my $counter = 1;
	my $fh;
	open $fh, "<", $filename or die "$filename: open for reading: $!";
	my @lines = <$fh>;
	my @hunks;
	my @curheader;
	for my $i (0 ... $#lines) {
		next unless $lines[$i] =~ m/^\@\@ /;
		if ($i >= 2 and $lines[$i - 2] =~ m/^--- / and $lines[$i - 1] =~ m/^\+\+\+ /) {
			@curheader = @lines[$i - 2 ... $i - 1];
		}
		next unless @curheader;
		my $j = $i + 1;
		while ($j < @lines and $lines[$j] !~ m/^\@\@ /) {$j++}
		$j -= 2
			if $j >= 3 and $j < @lines
				and $lines[$j - 2] =~ m/^--- /
				and $lines[$j - 1] =~ m/^\+\+\+ /;
		$j--;
		$j-- until $lines[$j] =~ m/^[ @+-]/;
		my $hunkfilename = $filename;
		$hunkfilename =~ s/((\.(pat(ch)?|diff?))?)$/"-".sprintf("%03i",$counter++).$1/ei;
		my $ofh;
		open $ofh, ">", $hunkfilename or die "$hunkfilename: open for writing: $!";
		print $ofh @curheader, @lines[$i ... $j];
		close $ofh;
	}
}
' "$@"
}

# import selected macros for adapter.awk
# you should update the list also in adapter.awk when making changes here
import_rpm_macros() {
	macros="
	_topdir
	_prefix
	_bindir
	_sbindir
	_libdir
	_sysconfdir
	_datadir
	_includedir
	_mandir
	_infodir
	_examplesdir
	_defaultdocdir
	_kdedocdir
	_gtkdocdir
	_desktopdir
	_pixmapsdir
	_javadir

	perl_sitearch
	perl_archlib
	perl_privlib
	perl_vendorlib
	perl_vendorarch
	perl_sitelib

	py_sitescriptdir
	py_sitedir
	py_scriptdir
	py_ver

	ruby_archdir
	ruby_ridir
	ruby_rubylibdir
	ruby_sitearchdir
	ruby_sitelibdir
	ruby_rdocdir

	php_pear_dir
	php_data_dir
	tmpdir
"
	eval_expr=""
	for macro in $macros; do
		eval_expr="$eval_expr\nexport $macro='%{$macro}'"
	done


	# get cvsaddress for changelog section
	# using rpm macros as too lazy to add ~/.adapterrc parsing support.
	eval_expr="$eval_expr
	export _cvsmaildomain='%{?_cvsmaildomain}%{!?_cvsmaildomain:@pld-linux.org}'
	export _cvsmailfeedback='%{?_cvsmailfeedback}%{!?_cvsmailfeedback:PLD Team <feedback@pld-linux.org>}'
	"

	eval $(rpm --eval "$(echo -e $eval_expr)")
}

adapterize() {
	local workdir
	workdir=$(mktemp -d ${TMPDIR:-/tmp}/adapter-XXXXXX) || exit
	awk=gawk

	local tmp=$workdir/$(basename $SPECFILE) || exit

	import_rpm_macros

	LC_ALL=en_US.UTF-8 $awk -f $adapter $SPECFILE > $tmp || exit

	if [ "$outputonly" = 1 ]; then
		cat $tmp

	elif [ "$(diff --brief $SPECFILE $tmp)" ]; then
		diff -u $SPECFILE $tmp > $tmp.diff
		if [ -t 1 ]; then
				diffcol $tmp.diff | $PAGER
				while : ; do
					echo -n "Accept? (Yes, No, Confirm each chunk)? "
					read ans
					case "$ans" in
					[yYoO]) # y0 mama
						mv -f $tmp $SPECFILE
						echo "Ok, adapterized."
						break
					;;
					[cC]) # confirm each chunk
						diff2hunks $tmp.diff
						for t in $(ls $tmp-*.diff); do
								diffcol $t | $PAGER
								echo -n "Accept? (Yes, [N]o, Quit)? "
								read ans
								case "$ans" in
								[yYoO]) # y0 mama
									patch -p0 < $t
									;;
								[Q]) # Abort
									break
									;;
								esac
						done
						break
					;;
					[QqnNsS])
						echo "Ok, exiting."
						break
					;;
					esac
				done
		else
				cat $tmp.diff
		fi
	else
		echo "The SPEC is perfect ;)"
	fi

	rm -rf $workdir
}

SPECFILE="$1"
[ -f "$SPECFILE" ] || SPECFILE="$(basename $SPECFILE .spec).spec"

if [ $# -ne 1 -o ! -f "$SPECFILE" ]; then
	echo "$usage"
	exit 1
fi

adapterize

# vim: ts=4:sw=4
Commit	Line	Data
d1c51977	1	#!/bin/sh
115a3045	2	#
115a3045	3	# Authors:
b4e337d9	4	# Michał Kuratczyk <kura@pld.org.pl>
115a3045	5	# Sebastian Zagrodzki <s.zagrodzki@mimuw.edu.pl>
b4e337d9	6	# Tomasz Kłoczko <kloczek@rudy.mif.pg.gda.pl>
115a3045 ER	7	# Artur Frysiak <wiget@pld-linux.org>
115a3045 ER	8	# Michal Kochanowicz <mkochano@pld.org.pl>
b4e337d9	9	# Elan Ruusamäe <glen@pld-linux.org>
115a3045 ER	10	#
	11	# See cvs log adapter{,.awk} for list of contributors
	12	#
	13	# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
de8cc9a2	14
18f95017 ER	15	RCSID='$Id$'
	16	r=${RCSID#* * }
	17	rev=${r%% *}
c71bffbc	18	VERSION="v0.35/$rev"
18f95017 ER	19	VERSIONSTRING="\
18f95017 ER	20	Adapter adapts .spec files for PLD Linux.
ebbb01a1	21	$VERSION (C) 1999-2009 Free Penguins".
18f95017	22
ebbb01a1 ER	23	PROGRAM=${0##*/}
	24	dir=$(d=$0; [ -L "$d" ] && d=$(readlink "$d"); dirname "$d")
	25	adapter=$dir/adapter.awk
	26	usage="Usage: $PROGRAM [FLAGS] SPECFILE
bd6bff92 ER	27
	28	-s\|--no-sort\|--skip-sort
	29	skip BuildRequires, Requires sorting
	30	-m\|--no-macros\|--skip-macros
	31	skip use_macros() substitutions
	32	-d\|--skip-desc
	33	skip desc wrapping
	34	-a\|--skip-defattr
	35	skip %defattr corrections
deb09aaa ER	36	-o
deb09aaa ER	37	do not do any diffing, just dump the output
bd6bff92	38	"
af0e64d6	39
6668d124	40	if [ ! -x /usr/bin/getopt ]; then
937febc5	41	echo >&2 "You need to install util-linux to use adapter"
af0e64d6	42	exit 1
6668d124	43	fi
af0e64d6	44
d26e80ce	45	if [ ! -x /usr/bin/patch ]; then
937febc5	46	echo >&2 "You need to install patch to use adapter"
d26e80ce ER	47	exit 1
	48	fi
	49
2d894d6b	50	[ -n "$PAGER" ] \|\| PAGER="/usr/bin/less -r"
	51
	52	if [ -n "$CONFIG_DIR" ]; then
	53	USER_CFG="$CONFIG_DIR/.adapterrc"
	54	elif [ -n "$HOME_ETC" ]; then
	55	USER_CFG="$HOME_ETC/.adapterrc"
	56	else
	57	USER_CFG=~/.adapterrc
	58	fi
	59
	60	[ -f $USER_CFG ] && . $USER_CFG
	61
ebbb01a1	62	t=$(getopt -o hsomdaV --long help,version,sort,sort-br,no-macros,skip-macros,skip-desc,skip-defattr -n "$PROGRAM" -- "$@") \|\| exit $?
ea91b16c ER	63	eval set -- "$t"
	64
	65	while true; do
	66	case "$1" in
	67	-h\|--help)
2445505a	68	echo 2>&1 "$usage"
ea91b16c ER	69	exit 1
ea91b16c ER	70	;;
bd6bff92 ER	71	-s\|--no-sort\|--skip-sort)
bd6bff92 ER	72	export SKIP_SORTBR=1
ea91b16c	73	;;
13b24a87 ER	74	-m\|--no-macros\|--skip-macros)
	75	export SKIP_MACROS=1
	76	;;
	77	-d\|--skip-desc)
	78	export SKIP_DESC=1
	79	;;
	80	-a\|--skip-defattr)
	81	export SKIP_DEFATTR=1
	82	;;
18f95017 ER	83	-V\|--version)
	84	echo "$VERSIONSTRING"
	85	exit 0
deb09aaa ER	86	;;
	87	-o)
	88	outputonly=1
18f95017	89	;;
ea91b16c ER	90	--)
ea91b16c ER	91	shift
c6185e54	92	break
ea91b16c ER	93	;;
ea91b16c ER	94	*)
ebbb01a1	95	echo >&2 "$PROGRAM: Internal error: \`$1' not recognized!"
ea91b16c	96	exit 1
c6185e54	97	;;
ea91b16c ER	98	esac
	99	shift
	100	done
	101
115a3045 ER	102	diffcol()
115a3045 ER	103	{
2445505a	104	# vim like diff colourization
	105	LC_ALL=en_US.UTF-8 gawk ' {
	106	split( $0, S, /\t/ );
	107	$0 = S[ 1 ];
	108	for ( i = 2; i in S; i++ ) {
	109	spaces = 7 - ( (length( $0 ) - 1) % 8 );
	110	$0 = $0 "\xE2\x9E\x94";
	111	for ( y = 0; y < spaces; y++ )
	112	$0 = $0 "\xE2\x87\xBE";
	113	$0 = $0 S[ i ];
	114	}
	115	gsub( /\033/, "\033[44m^[\033[49m" );
	116	cmd = "";
	117	if ( sub( /^ /, "" ) )
	118	cmd = " ";
	119	sub( /(\xE2\x9E\x94(\xE2\x87\xBE)*\| )+$/, "\033[31;41m&\033[39;49m" );
	120	gsub( /\xE2\x9E\x94(\xE2\x87\xBE)*/, "\033[7m&\033[27m" );
	121	gsub( /\xE2\x87\xBE/, " " );
	122	# uncomment if you do not like utf-8 arrow
	123	# gsub( /\xE2\x9E\x94/, ">" );
	124	$0 = cmd $0;
	125	gsub( /\007/, "\033[44m^G\033[49m" );
	126	gsub( /\r/, "\033[44m^M\033[49m" );
	127	}
	128	/^(Index:\|diff\|---\|\+\+\+) / { $0 = "\033[32m" $0 }
	129	/^@@ / { $0 = "\033[33m" $0 }
	130	/^-/ { $0 = "\033[35m" $0 }
	131	/^+/ { $0 = "\033[36m" $0 }
	132	{ $0 = $0 "\033[0m"; print }
	133	' "$@"
115a3045 ER	134	}
	135
	136	diff2hunks()
	137	{
2445505a	138	# diff2hunks orignally by dig
2445505a	139	perl -e '
115a3045 ER	140	#! /usr/bin/perl -w
	141
	142	use strict;
	143
	144	for my $filename (@ARGV) {
c6185e54 ER	145	my $counter = 1;
	146	my $fh;
	147	open $fh, "<", $filename or die "$filename: open for reading: $!";
	148	my @lines = <$fh>;
	149	my @hunks;
	150	my @curheader;
	151	for my $i (0 ... $#lines) {
	152	next unless $lines[$i] =~ m/^\@\@ /;
	153	if ($i >= 2 and $lines[$i - 2] =~ m/^--- / and $lines[$i - 1] =~ m/^\+\+\+ /) {
	154	@curheader = @lines[$i - 2 ... $i - 1];
	155	}
	156	next unless @curheader;
	157	my $j = $i + 1;
	158	while ($j < @lines and $lines[$j] !~ m/^\@\@ /) {$j++}
	159	$j -= 2
	160	if $j >= 3 and $j < @lines
	161	and $lines[$j - 2] =~ m/^--- /
	162	and $lines[$j - 1] =~ m/^\+\+\+ /;
	163	$j--;
	164	$j-- until $lines[$j] =~ m/^[ @+-]/;
	165	my $hunkfilename = $filename;
	166	$hunkfilename =~ s/((\.(pat(ch)?\|diff?))?)$/"-".sprintf("%03i",$counter++).$1/ei;
	167	my $ofh;
	168	open $ofh, ">", $hunkfilename or die "$hunkfilename: open for writing: $!";
	169	print $ofh @curheader, @lines[$i ... $j];
	170	close $ofh;
	171	}
115a3045 ER	172	}
	173	' "$@"
	174	}
	175
683ce9e3 ER	176	# import selected macros for adapter.awk
	177	# you should update the list also in adapter.awk when making changes here
	178	import_rpm_macros() {
	179	macros="
a877f3a5	180	_topdir
683ce9e3 ER	181	_prefix
	182	_bindir
	183	_sbindir
	184	_libdir
	185	_sysconfdir
	186	_datadir
	187	_includedir
	188	_mandir
	189	_infodir
	190	_examplesdir
	191	_defaultdocdir
	192	_kdedocdir
	193	_gtkdocdir
	194	_desktopdir
	195	_pixmapsdir
	196	_javadir
	197
	198	perl_sitearch
	199	perl_archlib
	200	perl_privlib
	201	perl_vendorlib
	202	perl_vendorarch
	203	perl_sitelib
	204
	205	py_sitescriptdir
	206	py_sitedir
	207	py_scriptdir
	208	py_ver
	209
	210	ruby_archdir
	211	ruby_ridir
	212	ruby_rubylibdir
	213	ruby_sitearchdir
	214	ruby_sitelibdir
51847161	215	ruby_rdocdir
683ce9e3 ER	216
	217	php_pear_dir
	218	php_data_dir
	219	tmpdir
	220	"
	221	eval_expr=""
	222	for macro in $macros; do
	223	eval_expr="$eval_expr\nexport $macro='%{$macro}'"
	224	done
	225
	226
	227	# get cvsaddress for changelog section
	228	# using rpm macros as too lazy to add ~/.adapterrc parsing support.
	229	eval_expr="$eval_expr
	230	export _cvsmaildomain='%{?_cvsmaildomain}%{!?_cvsmaildomain:@pld-linux.org}'
	231	export _cvsmailfeedback='%{?_cvsmailfeedback}%{!?_cvsmailfeedback:PLD Team <feedback@pld-linux.org>}'
	232	"
	233
	234	eval $(rpm --eval "$(echo -e $eval_expr)")
	235	}
	236
	237	adapterize() {
	238	local workdir
	239	workdir=$(mktemp -d ${TMPDIR:-/tmp}/adapter-XXXXXX) \|\| exit
807339c5	240	awk=gawk
c6185e54	241
683ce9e3 ER	242	local tmp=$workdir/$(basename $SPECFILE) \|\| exit
	243
	244	import_rpm_macros
	245
deadca7d	246	LC_ALL=en_US.UTF-8 $awk -f $adapter $SPECFILE > $tmp \|\| exit
e5f205a4	247
deb09aaa ER	248	if [ "$outputonly" = 1 ]; then
	249	cat $tmp
	250
	251	elif [ "$(diff --brief $SPECFILE $tmp)" ]; then
e5f205a4	252	diff -u $SPECFILE $tmp > $tmp.diff
c6185e54	253	if [ -t 1 ]; then
2d894d6b	254	diffcol $tmp.diff \| $PAGER
115a3045	255	while : ; do
c6185e54 ER	256	echo -n "Accept? (Yes, No, Confirm each chunk)? "
	257	read ans
	258	case "$ans" in
	259	[yYoO]) # y0 mama
e5f205a4	260	mv -f $tmp $SPECFILE
c6185e54 ER	261	echo "Ok, adapterized."
	262	break
	263	;;
	264	[cC]) # confirm each chunk
e5f205a4 ER	265	diff2hunks $tmp.diff
e5f205a4 ER	266	for t in $(ls $tmp-*.diff); do
2d894d6b	267	diffcol $t \| $PAGER
9ebf8751	268	echo -n "Accept? (Yes, [N]o, Quit)? "
115a3045 ER	269	read ans
	270	case "$ans" in
	271	[yYoO]) # y0 mama
bdaa9247	272	patch -p0 < $t
115a3045	273	;;
c6185e54	274	[Q]) # Abort
9ebf8751 ER	275	break
9ebf8751 ER	276	;;
115a3045	277	esac
c6185e54 ER	278	done
	279	break
	280	;;
	281	[QqnNsS])
	282	echo "Ok, exiting."
	283	break
	284	;;
	285	esac
115a3045	286	done
c6185e54	287	else
e5f205a4	288	cat $tmp.diff
c6185e54 ER	289	fi
	290	else
	291	echo "The SPEC is perfect ;)"
	292	fi
115a3045	293
683ce9e3	294	rm -rf $workdir
115a3045 ER	295	}
115a3045 ER	296
b4d9acca AG	297	SPECFILE="$1"
	298	[ -f "$SPECFILE" ] \|\| SPECFILE="$(basename $SPECFILE .spec).spec"
	299
	300	if [ $# -ne 1 -o ! -f "$SPECFILE" ]; then
ea91b16c ER	301	echo "$usage"
ea91b16c ER	302	exit 1
de8cc9a2	303	fi
de8cc9a2	304
115a3045	305	adapterize
bdaa9247	306
bdaa9247	307	# vim: ts=4:sw=4