entered into RCS

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@144 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/sort-protos b/gcc/sort-protos
new file mode 100755 (executable)
index 0000000..493e9f0
--- /dev/null
+++ b/gcc/sort-protos
@@ -0,0 +1,9 @@
+#!/bin/sh
+# Sort the sys-protos.h file in its usual order.
+# Invoke as `sort-protos sys-protos.h'.
+
+input=$1
+
+sed 's/\(.*[   \*]\)\([a-zA-Z0-9_][a-zA-Z0-9_]*\)[     ]*\(([^\*].*\)$/\2%\1%\3/' $input | sort -u | awk -F% '{printf "%-30.30s%s%s\n", $2, $1, $3}' > tmp.$input
+
+mv -f tmp.$input $input