[packages/rpm-build-tools.git] / rpm-build.sh

# shell aliases and functions for PLD Developer
# $Id$

# set $dist, used by functions below
[ -n "$dist" ] || dist=$(awk '/PLD Linux/ {print tolower($NF)}' /etc/pld-release 2>/dev/null | tr -d '()')

case "$dist" in
ac|th)
	;;
*)
	# invalid one ;)
	dist=
esac

if [ "$dist" ]; then

alias ipoldek-$dist="poldek -q --sn $dist --cmd"
alias $dist-requires="ipoldek-$dist what-requires"
alias $dist-provides="ipoldek-$dist what-provides"
alias $dist-tag="./builder -cf -T $(echo $dist | tr '[a-z]' '[A-Z]')-branch -r HEAD"
alias $dist-verify=dist-verify

# undo spec utf8
# note: it will do it blindly, so any lang other than -pl is most likely broken
specutfundo() {
	local spec="$1"
	iconv -futf8 -tlatin2 "$spec" > m
	sed -e 's/\.UTF-8//' m > "$spec"
	rm -f m
}

dist-verify() {
	case "$dist" in
	ac)
		args='--ignore=kdenetwork-kopete-tool-conectionstatus --ignore=gimp-plugin-swfdec --ignore=wine-drv-arts'
		;;
	esac

	poldek --sn $dist --sn $dist-ready --sn $dist-updates --up
	poldek --sn $dist --sn $dist-ready --sn $dist-updates --noignore --verify=deps $args "$@"
}

# displays latest used tag for a specfile
autotag() {
	local out
	for a in "$@"; do
		s=${a%.spec}.spec
		out=$(cvs status -v $s | awk "/auto-$dist-/{if (!a++) print \$1}")
		echo "$s:$out"
	done
}

fi # no $dist set

alias cv='cvs status -v'
alias adif="dif -x '*.m4' -x ltmain.sh -x install-sh -x depcomp -x 'Makefile.in' -x compile -x 'config.*' -x configure -x missing -x mkinstalldirs -x autom4te.cache"
alias pclean="sed -i~ -e '/^\(?\|=\+$\|unchanged:\|diff\|only\|Only\|Files\|Common\|Index:\|RCS file\|retrieving\)/d'"

# makes diff from PLD CVS urls
# requires: cvs, tee
urldiff() {
	local url="$1"
	if [ -z "$url" ]; then
		echo >&2 "Reading STDIN"
		read url
	fi

	echo >&2 "Process $url"
	local file="$url"
	file=${file#*SPECS/}
	file=${file#*SOURCES/}
	file=${file##*/}
	local r1=${file#*r1=}
	local r2=${r1#*r2=}
	r2=${r2%%[&;]*}
	r1=${r1%%[&;]*}
	file=${file%\?*}
	file=${file%.diff}

	echo >&2 "$file: $r1 -> $r2"

	if [ -t 1 ]; then
		cvs diff -u -r$r1 -r$r2 $file | tee m.patch | diffcol
	else
		cvs diff -u -r$r1 -r$r2 $file
	fi
}

# makes diff from kde svn path
# requires: wget, tee
kdediff() {
	local url="$1"
	# --- branches/KDE/3.5/kdepim/kpilot/conduits/vcalconduit/vcalRecord.cc #624744:624745
	url=${url#*--- }
	echo >&2 "Process $url"
	r1=${url#*#}
	r2=${r1#*:}
	r1=${r1%:*}

	#  http://websvn.kde.org/branches/KDE/3.5/kdepim/kpilot/conduits/vcalconduit/vcalRecord.cc?rev=624745&r1=612579&r2=624745&makepatch=1&diff_format=u
	url=http://websvn.kde.org/${url% *}
	url="$url?r1=$r1&r2=$r2&makepatch=1&diff_format=u"

	if [ -t 1 ]; then
		wget "$url" -O -| tee m.patch | diffcol
	else
		wget "$url" -O -
	fi
}

# merges two patches
# requires: patchutils
pmerge() {
	combinediff -p1 $1 $2 > m.patch || return
	pclean m.patch
	dif $1 m.patch
}

# downloads sourceforge url from specific mirror
sfget() {
	local url="$1"
	url="${url%?download}"
	url="${url%?use_mirror=*}"
	url="${url#http://downloads.}"
	url="http://dl.${url#http://prdownloads.}"
	# use mirror
	local mirror="http://nchc.dl.sourceforge.net"
	url="$mirror/sourceforge/${url#http://dl.sourceforge.net/}"
	wget -c "$url"
}

dif() {
	if [ -t 1 ]; then
		diff -ur "$@" | diffcol | less -R
	else
		diff -ur "$@"
	fi
}

diffcol() {
sed -e '
	s,\e,\e[44m^[\e[49m,g;
	s,\a,\e[44m^G\e[49m,g;
	s,^\(Index:\|diff\|---\|+++\) .*$,\e[32m&,;
	s,^@@ ,\e[33m&,;
	s,^-,\e[35m&,;
	s,^+,\e[36m&,;
	s,\r,\e[44m^M\e[49m,g;
	s,	,    ,g;
	s,\([^[:space:]]\)\([[:space:]]\+\)$,\1\e[41m\2\e[49m,g;
	s,$,\e[0m,
' "$@"
}

# chdir to file location and do 'cvs log'
cvslog() {
	local f="$1"
	local d="${f%/*}"
	[ "$d" = "$f" ] && d=.
	(builtin cd $d && cvs log ${f##*/})
}

# does diff between FILE and FILE~
# the diff can be applied with patch -p1
d() {
	local file="$1"
	local dir
	if [[ "$file" = /* ]]; then
		# full path -- no idea where to strip
		dir=.
		diff=$file
	else
		# relative path -- keep one path component from current dir
		dir=..
		diff=${PWD##*/}/${file}
	fi

	(builtin cd "$dir"; dif $diff{~,})
}
Commit	Line	Data
7e37b984	1	# shell aliases and functions for PLD Developer
6657c577	2	# $Id$
7e37b984	3
2e6b7800	4	# set $dist, used by functions below
c8a54e84 ER	5	[ -n "$dist" ] \|\| dist=$(awk '/PLD Linux/ {print tolower($NF)}' /etc/pld-release 2>/dev/null \| tr -d '()')
	6
	7	case "$dist" in
	8	ac\|th)
	9	;;
	10	*)
	11	# invalid one ;)
	12	dist=
	13	esac
2e6b7800	14
5e0caa68	15	if [ "$dist" ]; then
7e37b984	16
d392508c ER	17	alias ipoldek-$dist="poldek -q --sn $dist --cmd"
	18	alias $dist-requires="ipoldek-$dist what-requires"
	19	alias $dist-provides="ipoldek-$dist what-provides"
2e6b7800 ER	20	alias $dist-tag="./builder -cf -T $(echo $dist \| tr '[a-z]' '[A-Z]')-branch -r HEAD"
	21	alias $dist-verify=dist-verify
	22
6ebe30c9 ER	23	# undo spec utf8
	24	# note: it will do it blindly, so any lang other than -pl is most likely broken
	25	specutfundo() {
	26	local spec="$1"
	27	iconv -futf8 -tlatin2 "$spec" > m
	28	sed -e 's/\.UTF-8//' m > "$spec"
	29	rm -f m
	30	}
	31
37ae34a0	32	dist-verify() {
b15006fb ER	33	case "$dist" in
	34	ac)
	35	args='--ignore=kdenetwork-kopete-tool-conectionstatus --ignore=gimp-plugin-swfdec --ignore=wine-drv-arts'
	36	;;
	37	esac
	38
e106e509	39	poldek --sn $dist --sn $dist-ready --sn $dist-updates --up
b15006fb	40	poldek --sn $dist --sn $dist-ready --sn $dist-updates --noignore --verify=deps $args "$@"
2e6b7800	41	}
a5ab8a8f	42
5e0caa68 ER	43	# displays latest used tag for a specfile
	44	autotag() {
	45	local out
	46	for a in "$@"; do
	47	s=${a%.spec}.spec
	48	out=$(cvs status -v $s \| awk "/auto-$dist-/{if (!a++) print \$1}")
	49	echo "$s:$out"
	50	done
7e37b984 ER	51	}
7e37b984 ER	52
5e0caa68 ER	53	fi # no $dist set
	54
	55	alias cv='cvs status -v'
	56	alias adif="dif -x '.m4' -x ltmain.sh -x install-sh -x depcomp -x 'Makefile.in' -x compile -x 'config.' -x configure -x missing -x mkinstalldirs -x autom4te.cache"
	57	alias pclean="sed -i~ -e '/^\(?\\|=\+$\\|unchanged:\\|diff\\|only\\|Only\\|Files\\|Common\\|Index:\\|RCS file\\|retrieving\)/d'"
	58
7e37b984	59	# makes diff from PLD CVS urls
d29ef356	60	# requires: cvs, tee
7e37b984 ER	61	urldiff() {
	62	local url="$1"
	63	if [ -z "$url" ]; then
	64	echo >&2 "Reading STDIN"
	65	read url
	66	fi
	67
	68	echo >&2 "Process $url"
	69	local file="$url"
	70	file=${file#*SPECS/}
	71	file=${file#*SOURCES/}
	72	file=${file##*/}
	73	local r1=${file#*r1=}
	74	local r2=${r1#*r2=}
8c550ffc	75	r2=${r2%%[&;]*}
7765da19	76	r1=${r1%%[&;]*}
7e37b984	77	file=${file%\?*}
7765da19	78	file=${file%.diff}
7e37b984 ER	79
7e37b984 ER	80	echo >&2 "$file: $r1 -> $r2"
79aa1413 ER	81
79aa1413 ER	82	if [ -t 1 ]; then
ce56ac3b ER	83	cvs diff -u -r$r1 -r$r2 $file \| tee m.patch \| diffcol
	84	else
	85	cvs diff -u -r$r1 -r$r2 $file
79aa1413	86	fi
7e37b984 ER	87	}
7e37b984 ER	88
d29ef356 ER	89	# makes diff from kde svn path
	90	# requires: wget, tee
	91	kdediff() {
	92	local url="$1"
	93	# --- branches/KDE/3.5/kdepim/kpilot/conduits/vcalconduit/vcalRecord.cc #624744:624745
	94	url=${url#*--- }
	95	echo >&2 "Process $url"
	96	r1=${url#*#}
	97	r2=${r1#*:}
	98	r1=${r1%:*}
	99
	100	# http://websvn.kde.org/branches/KDE/3.5/kdepim/kpilot/conduits/vcalconduit/vcalRecord.cc?rev=624745&r1=612579&r2=624745&makepatch=1&diff_format=u
	101	url=http://websvn.kde.org/${url% *}
	102	url="$url?r1=$r1&r2=$r2&makepatch=1&diff_format=u"
	103
	104	if [ -t 1 ]; then
	105	wget "$url" -O -\| tee m.patch \| diffcol
	106	else
	107	wget "$url" -O -
	108	fi
	109	}
	110
5e0caa68 ER	111	# merges two patches
	112	# requires: patchutils
	113	pmerge() {
	114	combinediff -p1 $1 $2 > m.patch \|\| return
	115	pclean m.patch
	116	dif $1 m.patch
	117	}
	118
7e37b984 ER	119	# downloads sourceforge url from specific mirror
	120	sfget() {
	121	local url="$1"
	122	url="${url%?download}"
54e1e1fd ER	123	url="${url%?use_mirror=*}"
54e1e1fd ER	124	url="${url#http://downloads.}"
7e37b984 ER	125	url="http://dl.${url#http://prdownloads.}"
	126	# use mirror
	127	local mirror="http://nchc.dl.sourceforge.net"
	128	url="$mirror/sourceforge/${url#http://dl.sourceforge.net/}"
	129	wget -c "$url"
	130	}
	131
88e7bbe5 ER	132	dif() {
	133	if [ -t 1 ]; then
	134	diff -ur "$@" \| diffcol \| less -R
	135	else
	136	diff -ur "$@"
	137	fi
	138	}
	139
	140	diffcol() {
	141	sed -e '
	142	s,\e,\e[44m^[\e[49m,g;
	143	s,\a,\e[44m^G\e[49m,g;
	144	s,^\(Index:\\|diff\\|---\\|+++\) .*$,\e[32m&,;
	145	s,^@@ ,\e[33m&,;
	146	s,^-,\e[35m&,;
	147	s,^+,\e[36m&,;
	148	s,\r,\e[44m^M\e[49m,g;
	149	s, , ,g;
	150	s,\([^[:space:]]\)\([[:space:]]\+\)$,\1\e[41m\2\e[49m,g;
	151	s,$,\e[0m,
	152	' "$@"
	153	}
6ef19b16 ER	154
	155	# chdir to file location and do 'cvs log'
	156	cvslog() {
	157	local f="$1"
0db4548a ER	158	local d="${f%/*}"
	159	[ "$d" = "$f" ] && d=.
	160	(builtin cd $d && cvs log ${f##*/})
6ef19b16	161	}
2d0b7430 ER	162
2d0b7430 ER	163	# does diff between FILE and FILE~
924512bf	164	# the diff can be applied with patch -p1
2d0b7430	165	d() {
924512bf	166	local file="$1"
a0586a59	167	local dir
924512bf ER	168	if [[ "$file" = /* ]]; then
	169	# full path -- no idea where to strip
	170	dir=.
	171	diff=$file
	172	else
	173	# relative path -- keep one path component from current dir
	174	dir=..
	175	diff=${PWD##*/}/${file}
	176	fi
	177
	178	(builtin cd "$dir"; dif $diff{~,})
2d0b7430	179	}