[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
#
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

REVISION=1.49
VERSION="v0.35/$REVISION"
VERSIONSTRING="\
Adapter adapts .spec files for PLD Linux.
$VERSION (C) 1999-2012 Free Penguins".

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

-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 :; 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
	_pkgconfigdir
	_npkgconfigdir
	_localedir

	perl_sitearch
	perl_archlib
	perl_privlib
	perl_vendorlib
	perl_vendorarch
	perl_sitelib

	py_sitescriptdir
	py_sitedir
	py_scriptdir
	py_ver

	py3_sitescriptdir
	py3_sitedir
	py3_scriptdir
	py3_ver

	ruby_archdir
	ruby_ridir
	ruby_rubylibdir
	ruby_sitearchdir
	ruby_sitelibdir
	ruby_rdocdir

	php_pear_dir
	php_data_dir
	tmpdir

	systemdunitdir
	systemdtmpfilesdir
"
	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>}'
	"

	export ADAPTER_REVISION=$REVISION

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

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

	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 $SPECFILE is perfect ;)"
	fi

	rm -rf $workdir
}

if [ $# -eq 0 ]; then
	echo "$usage"
	exit 1
fi

for SPECFILE in "$@"; do
	adapterize $SPECFILE
done

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