From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Dmitry V. Levin" <ldv@fandra.org>
To: devel@linux.iplabs.ru
Message-ID: <20010114042016.A6353@LDV.fandra.org>
Mail-Followup-To: devel@linux.iplabs.ru
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="24zk1gE8NUlDmwG9"
Content-Disposition: inline
Subject: [devel] I: specfile cleaner
Sender: devel-admin@linux.iplabs.ru
Errors-To: devel-admin@linux.iplabs.ru
X-BeenThere: devel@linux.iplabs.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: devel@linux.iplabs.ru
List-Help: <mailto:devel-request@linux.iplabs.ru?subject=help>
List-Post: <mailto:devel@linux.iplabs.ru>
List-Subscribe: <http://www.logic.ru/mailman/listinfo/devel>,
	<mailto:devel-request@linux.iplabs.ru?subject=subscribe>
List-Id: IPLabs Linux Team Developers mailing list <devel.linux.iplabs.ru>
List-Unsubscribe: <http://www.logic.ru/mailman/listinfo/devel>,
	<mailto:devel-request@linux.iplabs.ru?subject=unsubscribe>
List-Archive: <http://www.logic.ru/pipermail/devel/>
X-Original-Date: Sun, 14 Jan 2001 04:20:17 +0300
Date: Sun, 14 Jan 2001 04:20:17 +0300
Archived-At: <http://lore.altlinux.org/devel/20010114042016.A6353@LDV.fandra.org/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>


--24zk1gE8NUlDmwG9
Content-Type: multipart/mixed; boundary="h31gzZEtNLTqOjlF"
Content-Disposition: inline
Content-Transfer-Encoding: 8bit


--h31gzZEtNLTqOjlF
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

Greetings!

Если Вы собираете пакеты, то небольшой "чистильщик" spec-файлов не
повредит.
usage: cleanup_spec specfile1 [specfileN]*


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.

--h31gzZEtNLTqOjlF
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename=cleanup_spec

#!/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]+:)[ 	]+/\1 /g' "$F"
	perl -pi -e '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/^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\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

--h31gzZEtNLTqOjlF--

--24zk1gE8NUlDmwG9
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.4 (GNU/Linux)
Comment: For info see http://www.gnupg.org

iD8DBQE6YP7QZqIoNiVITrsRAvC2AKDJrHhyla4L6v4CP6MzuiQj2GfuDQCgreVb
vkaWwDFvRoQdlMtTGx2WJ+8=
=Sw6L
-----END PGP SIGNATURE-----

--24zk1gE8NUlDmwG9--
_______________________________________________
Devel mailing list
Devel@linux.iplabs.ru
http://www.logic.ru/mailman/listinfo/devel