Clifford Wolf:

scripts/Create-FlatPriPatch

@@ -14,3 +14,5 @@ do
 	(( counter = counter + 1 ))
 done
 
+rm -f $tempfile
+

scripts/Create-SetPriPatch

@@ -0,0 +1,34 @@
+#!/bin/bash
+
+help() {
+	echo "Usage: $0 <pkg-name> <priority>"
+	echo "       $0 <pkg-name> -before <pkg-name>"
+	exit 1
+}
+
+setpkg="$1"
+shift
+
+case "$1" in
+	-before)
+		read dummy1 dummy2 dummy3 masterpri < <( grep '^\[P\]' package/*/$2/$2.desc; )
+		setpri=`perl -e "printf('%07.3f', $masterpri - 0.001)"`
+		echo $masterpri $setpri
+		shift; shift
+		;;
+	*)
+		setpri="$1"
+		shift
+		;;
+esac
+
+if [ -z "$setpkg" -o -z "$setpri" -o ! -f package/*/$setpkg/$setpkg.desc ]; then
+	help
+fi
+
+tempfile=`mktemp`
+cp package/*/$setpkg/$setpkg.desc $tempfile
+sed -i "s,^\(\[P\].*\) [0-9.]*,\1 $setpri," $tempfile
+diff -u package/*/$setpkg/$setpkg.desc $tempfile
+rm -f $tempfile
+