Mercurial > hg > CbC > CbC_gcc
comparison contrib/index-prop @ 0:a06113de4d67
first commit
| author | kent <kent@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Fri, 17 Jul 2009 14:47:48 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:a06113de4d67 |
|---|---|
| 1 #! /usr/bin/perl -wi | |
| 2 # Fix up the output of cvs diff -c so that it works with patch. | |
| 3 # We do this by propagating the full pathname from the Index: line | |
| 4 # into the diff itself. | |
| 5 # | |
| 6 # Thrown together by Jason Merrill <jason@cygnus.com> | |
| 7 | |
| 8 while (<>) | |
| 9 { | |
| 10 if (/^Index: (.*)/) | |
| 11 { | |
| 12 $full = $1; | |
| 13 print; | |
| 14 for (1..7) | |
| 15 { | |
| 16 $_ = <>; | |
| 17 s/^([-+*]{3}) [^\t]+\t/$1 $full\t/ | |
| 18 unless m{ /dev/null\t}; | |
| 19 print; | |
| 20 } | |
| 21 } | |
| 22 else | |
| 23 { | |
| 24 print; | |
| 25 } | |
| 26 } |