X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=blobdiff_plain;f=bin%2Fchangelogget;h=d6219150d8a3fc2d7bc5162087d9e468e27d16fb;hp=59cc4e729ccd561a7459b25bcae4e6ca11ca7b5b;hb=8104eca7d9cf4376bfa2eddc3c2a71b84b9d9d02;hpb=cb2a02eebeffbdecabfe551d275b31fd586c6057
diff --git a/bin/changelogget b/bin/changelogget
index 59cc4e7..d621915 100755
--- a/bin/changelogget
+++ b/bin/changelogget
@@ -15,10 +15,12 @@ fi
function formatpatch
{
# --- src/gdb/ChangeLog 2008/04/24 08:46:17 1.9308
- diffdecvs | if [ -z "$changelog" ];then perl -p -e '$c=1 if s{^(?:---|\Q+++\E)(?= \S+/ChangeLog\t)}{###};s{^@@}{##} if $c;'; else cat; fi
+ diffdecvs | if [ -z "$changelog" ];then perl -p -e '$r=qr/^(?:---|\Q+++\E) /o;$c=0 if m{$r}o;$c=1 if s{$r(?=\S+/ChangeLog(?:\t|$))}{### }o;s{^@@}{##} if $c;'; else cat; fi
}
-for arg in "$@";do
+if [ "$*" = "-f" ];then
+ formatpatch
+else for arg in "$@";do
# http://sourceware.org/ml/gdb-cvs/2099-99/msg99999.html
if [ "$arg" != "${arg#http://sources.redhat.com/}" ];then
arg="http://sourceware.org/${arg#http://sources.redhat.com/}"
@@ -27,7 +29,7 @@ for arg in "$@";do
echo >&2 -n '+'
echo "$arg"
echo
- changelogget -q $changelog $(wget -q -O - "$arg" | sed -n -e 's/&/\&/g' -e 's#^\1$#\1#p')
+ changelogget -q $changelog $(wget -q -O - "$arg" | sed -n -e 's/&/\&/g' -e 's#^\2$#\2#p')
elif [ "$arg" != "${arg#http://gcc.gnu.org/viewcvs[?]view=revision&revision=}" ];then
echo >&2 -n '+'
echo "$arg"
@@ -53,7 +55,7 @@ for arg in "$@";do
echo >&2 "Invalid URL: $arg"
exit 1
fi
-done
+done;fi
if $v;then
echo >&2 OK
fi