Strip "cvs diff" headers, requested at GDB list.

[nethome.git] / bin / diffdecvs

diff --git a/bin/diffdecvs b/bin/diffdecvs
new file mode 100755 (executable)
index 0000000..6034f83
--- /dev/null
+++ b/bin/diffdecvs
@@ -0,0 +1,14 @@
+#! /bin/sh
+# $Id$
+
+if [ $# -ge 2 ];then
+       echo >&2 "Syntax: $0 [<diff>]"
+       exit 1
+fi
+
+prog='print if !/^Index:/ && !/^={67}$/ && !/^RCS file:/ && !/^retrieving revision / && !/^diff -/;'
+if [ $# -eq 1 ];then
+       exec perl -ne "$prog" -i "$1"
+else
+       exec perl -ne "$prog"
+fi