Re: [devel] TODO

["Dmitry V. Levin" <ldv@fandra.org>]

[-- Attachment #1.1: Type: text/plain, Size: 1358 bytes --]

On Wed, Jan 24, 2001 at 03:56:26AM +0300, Peter Novodvorsky wrote:
> > В моем TODO "второго сорта" осталось 39 непересобранных пакетов (это из
> > того файла, который был в этом списке). Если желаете оттуда что-то взять -
> > welcome, только сразу об этом мне сообщите (attached).
> 
> Готов взять:
> 
> > cfengine
> > ytalk
> > zsh

Нет проблем.

> С остальным ни разу не общался. Если там есть что-то легкое, в чем не
> надо разбираться, а просто проверить/вставить запись в changelog/increment
> version number/rebuild, то я готов.

Спасибо, это я и сам могу сделать, тем более, что у меня есть скрипт,
который позволит сделать это быстрее. :)

Задача не только в том, чтобы пересобрать, но и в проверке
работоспособности, правильности конфигурации по умолчанию, etc.

P.S. текущая версия скрипта cleanup_spec (который нужно применять к
     каждому spec-файлу, который попадает в Ваши руки), attached.


Regards,
	Dmitry

+-------------------------------------------------------------------------+
Dmitry V. Levin     mailto://ldv@fandra.org
Software Engineer   PGP pubkey http://www.fandra.org/users/ldv/pgpkeys.html
IPLabs Linux Team   http://linux.iplabs.ru
Fandra Project      http://www.fandra.org
+-------------------------------------------------------------------------+
UNIX is user friendly. It's just very selective about who its friends are.

[-- Attachment #1.2: cleanup_spec --]
[-- Type: text/plain, Size: 1887 bytes --]

#!/bin/sh -e

PROG="${0##*/}"

: "${TMPDIR:=$HOME/tmp}"
TMPFILE="$(mktemp "$TMPDIR/$PROG.XXXXXX")"

Exit()
{
	RETVAL=$?
	trap "" EXIT
	rm -f "$TMPFILE"
	exit $RETVAL
}

trap "Exit " SIGHUP SIGPIPE SIGINT SIGTERM EXIT

RemoveEmpty()
{
	awk 'BEGIN{empty=0} /^.+$/{empty=0} /^$/{if(!empty){print;empty=1}} {if(!empty)print $0}' <$1 >"$TMPFILE" &&
		cat "$TMPFILE" >"$1"
}

RemoveClean()
{
	awk 'BEGIN{clean=0} {printed=0} /^%(pre|post|trig|files|changelog)/{clean=0} /^./{if(clean){print "%clean";clean=0}} /^%clean$/{clean=1;printed=1} /^$/{if(clean){printed=1}} {if(!printed)print $0}' <$1 >"$TMPFILE" &&
		cat "$TMPFILE" >"$1"
}

CleanFiles()
{
	awk 'BEGIN{found=0} {printed=0} /^./{found=0} /^%(description|prep|build|install|pre|post|trig|files|changelog)([^_]|$)/{found=1} /^%(pre|post|trig).*[ 	]-p[ 	]/{found=0} /^$/{if(found)printed=1} {if(!printed)print $0}' <$1 >"$TMPFILE" &&
		cat "$TMPFILE" >"$1"
}

for F in "$@"; do
	perl -pi -e 's/%\{([A-Za-z_0-9]+)\}([^A-Za-z_0-9?*]|$)/%$1$2/g' "$F"
	perl -pi -e 's/%\{([A-Za-z_0-9]+)\}([^A-Za-z_0-9?*]|$)/%$1$2/g' "$F"
	perl -pi -e 's/%\{([A-Za-z_0-9]+)\}([^A-Za-z_0-9?*]|$)/%$1$2/g' "$F"
	perl -pi -e 's/[ 	]+$//g' "$F"
	perl -pi -e 's/^([A-Za-z_0-9]+:|%package|%description|%pre|%preun|%post|%postun|%files)[ 	]+/\1 /g' "$F"
	perl -pi -e 's/^%make$/%make_build/g;s/^%make\s+/%make_build /g;s/%_prefix/%prefix/g;s/%_initrddir/%_initdir/g;s/%_install_info/%install_info/g;s/%_remove_install_info/%uninstall_info/g' "$F"
	perl -pi -e 's/^url: /Url: /ig;s/^copyright: /License: /ig;s/^prereq: /PreReq: /ig;s/^buildrequires: /BuildRequires: /ig;s/^buildprereq: /BuildPreReq: /ig' "$F"

	perl -pi -e 's/^buildroot: .*//ig' "$F"
	perl -pi -e 's/^rm\s+-(rf|fr)\s+"?\$RPM_BUILD_ROOT"?$//g' "$F"
	perl -pi -e 's/^%defattr\s*\(\s*-\s*,\s*root\s*,\s*root\s*(,\s*(-|0?755)\s*)?\)//g' "$F"

	RemoveEmpty "$F"
	RemoveClean "$F"
	CleanFiles "$F"
done

[-- Attachment #2: Type: application/pgp-signature, Size: 232 bytes --]