5 if [ "$1" = "-q" ];then
10 if [ "$1" = "-n" ];then
17 # --- src/gdb/ChangeLog 2008/04/24 08:46:17 1.9308
18 diffdecvs | if [ -z "$changelog" ];then perl -p -e '$c=1 if s{^(?:---|\Q+++\E)(?= \S+/ChangeLog\t)}{###};s{^@@}{##} if $c;'; else cat; fi
22 # http://sourceware.org/ml/gdb-cvs/2099-99/msg99999.html
23 if [ "$arg" != "${arg#http://sources.redhat.com/}" ];then
24 arg="http://sourceware.org/${arg#http://sources.redhat.com/}"
26 if [ "$arg" != "${arg#http://sourceware.org/ml/*-cvs/}" -a "$arg" != "${arg%.html}" ];then
30 changelogget -q $changelog $(wget -q -O - "$arg" | sed -n -e 's/&/\&/g' -e 's#^<a \+href="\(.*\)">\1</a>$#\1#p')
31 elif [ "$arg" != "${arg#http://gcc.gnu.org/viewcvs[?]view=revision&revision=}" ];then
35 changelogget -q $changelog $(wget -q -O - "$arg" | sed -n -e 's/&/\&/g' -e 's#^.*<a href="\(/viewcvs/[^">]*\)"[^>]*>text changed<.*$#http://gcc.gnu.org\1#p')
36 elif [ "$arg" != "${arg#http://sourceware.org/ml/}" -a "$arg" != "${arg%.html}" ];then
39 raw="$(wget -q -O - "$arg" | sed -n 's#^.*<a href="\(/cgi-bin/get-raw-msg[?][^"]*\)">Raw text</a>.*$#\1#p')"
41 echo >&2 "No raw URL found: $arg"
44 wget -q -O - "http://sourceware.org$raw" | sed -n -e '/^Subject:/p' -e '/^$/,$p'
45 elif [ "$arg" != "${arg#http://sourceware.org/cgi-bin/cvsweb.cgi/src/}" ];then
47 wget -q -O - "$arg" | formatpatch
48 # http://gcc.gnu.org/viewcvs/trunk/ChangeLog?r1=154127&r2=154126&pathrev=154127
49 elif [ "$arg" != "${arg#http://gcc.gnu.org/viewcvs/}" ];then
51 wget -q -O - "$arg&view=patch" | formatpatch
53 echo >&2 "Invalid URL: $arg"