diff options
| author | Paul Eggert | 1997-06-26 01:00:03 +0000 |
|---|---|---|
| committer | Paul Eggert | 1997-06-26 01:00:03 +0000 |
| commit | 7e46d459380f20ea20c3e7f0cb6d5467bc9fb66c (patch) | |
| tree | 7fd296c5be26511dfe2d8d7a33d1ec4ce8a88b0a | |
| parent | da5ec617855514df05406f25b4d921e100f4b128 (diff) | |
| download | emacs-7e46d459380f20ea20c3e7f0cb6d5467bc9fb66c.tar.gz emacs-7e46d459380f20ea20c3e7f0cb6d5467bc9fb66c.zip | |
Don't assign to $0 in awk; some awks don't allow this.
| -rwxr-xr-x | lib-src/rcs2log | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lib-src/rcs2log b/lib-src/rcs2log index ded43536deb..099d4a3602e 100755 --- a/lib-src/rcs2log +++ b/lib-src/rcs2log | |||
| @@ -28,7 +28,7 @@ Options: | |||
| 28 | 28 | ||
| 29 | Report bugs to <bug-gnu-emacs@prep.ai.mit.edu>.' | 29 | Report bugs to <bug-gnu-emacs@prep.ai.mit.edu>.' |
| 30 | 30 | ||
| 31 | Id='$Id: rcs2log,v 1.40 1997/05/11 20:02:32 eggert Exp eggert $' | 31 | Id='$Id: rcs2log,v 1.41 1997/05/13 22:44:08 eggert Exp eggert $' |
| 32 | 32 | ||
| 33 | # Copyright 1992, 1993, 1994, 1995, 1996, 1997 Free Software Foundation, Inc. | 33 | # Copyright 1992, 1993, 1994, 1995, 1996, 1997 Free Software Foundation, Inc. |
| 34 | 34 | ||
| @@ -522,11 +522,12 @@ $AWK <$rlogout ' | |||
| 522 | } | 522 | } |
| 523 | /^Working file:/ { if (repository == "") filename = $3 } | 523 | /^Working file:/ { if (repository == "") filename = $3 } |
| 524 | /'"$rlog_revision_pattern"'/, /^(-----------*|===========*)$/ { | 524 | /'"$rlog_revision_pattern"'/, /^(-----------*|===========*)$/ { |
| 525 | if ($0 ~ /'"$rlog_revision_pattern"'/) { | 525 | line = $0 |
| 526 | if (line ~ /'"$rlog_revision_pattern"'/) { | ||
| 526 | rev = $2 | 527 | rev = $2 |
| 527 | next | 528 | next |
| 528 | } | 529 | } |
| 529 | if ($0 ~ /^date: [0-9][- +\/0-9:]*;/) { | 530 | if (line ~ /^date: [0-9][- +\/0-9:]*;/) { |
| 530 | date = $2 | 531 | date = $2 |
| 531 | if (date ~ /\//) { | 532 | if (date ~ /\//) { |
| 532 | # This is a traditional RCS format date YYYY/MM/DD. | 533 | # This is a traditional RCS format date YYYY/MM/DD. |
| @@ -544,12 +545,12 @@ $AWK <$rlogout ' | |||
| 544 | rev = "?" | 545 | rev = "?" |
| 545 | next | 546 | next |
| 546 | } | 547 | } |
| 547 | if ($0 ~ /^branches: /) { next } | 548 | if (line ~ /^branches: /) { next } |
| 548 | if ($0 ~ /^(-----------*|===========*)$/) { print ""; next } | 549 | if (line ~ /^(-----------*|===========*)$/) { print ""; next } |
| 549 | if ($0 == "Initial revision" || $0 ~ /^file .+ was initially added on branch .+\.$/) { | 550 | if (line == "Initial revision" || line ~ /^file .+ was initially added on branch .+\.$/) { |
| 550 | $0 = "New file." | 551 | line = "New file." |
| 551 | } | 552 | } |
| 552 | printf "%s%c", $0, 1 | 553 | printf "%s%c", line, 1 |
| 553 | } | 554 | } |
| 554 | ' | | 555 | ' | |
| 555 | 556 | ||