diff options
| author | Eric S. Raymond | 1993-03-19 23:40:27 +0000 |
|---|---|---|
| committer | Eric S. Raymond | 1993-03-19 23:40:27 +0000 |
| commit | 5e15f62581252eec08b4f1ba8c660885959c9450 (patch) | |
| tree | 85ba073b9bb28de972f3639d849b76eb82938525 /lib-src | |
| parent | 8554321b6601bbac09f2fdb3fd4ba83205854748 (diff) | |
| download | emacs-5e15f62581252eec08b4f1ba8c660885959c9450.tar.gz emacs-5e15f62581252eec08b4f1ba8c660885959c9450.zip | |
Added documentation, made the change comment for old versions more
useful.
Diffstat (limited to 'lib-src')
| -rwxr-xr-x | lib-src/rcs-checkin | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/lib-src/rcs-checkin b/lib-src/rcs-checkin index d813377d0cd..ff2bf3de16a 100755 --- a/lib-src/rcs-checkin +++ b/lib-src/rcs-checkin | |||
| @@ -1,5 +1,28 @@ | |||
| 1 | #!/bin/sh | 1 | #!/bin/sh |
| 2 | 2 | ||
| 3 | # This script accepts any number of file arguments and checks them into RCS. | ||
| 4 | # | ||
| 5 | # Arguments which are detectably either RCS masters (with names ending in ,v) | ||
| 6 | # or Emacs version files (with names of the form foo.~<number>~) are ignored. | ||
| 7 | # For each file foo, the script looks for Emacs version files related to it. | ||
| 8 | # These files are checked in as deltas, oldest first, so that the contents of | ||
| 9 | # the file itself becomes the latest revision in the master. | ||
| 10 | # | ||
| 11 | # The first line of each file is used as its description text. The file itself | ||
| 12 | # is not deleted, as under VC with vc-keep-workfiles at its default of t, but | ||
| 13 | # all the version files are. | ||
| 14 | # | ||
| 15 | # If an argument file is already version-controlled under RCS, any version | ||
| 16 | # files are added to the list of deltas and deleted, and then the workfile | ||
| 17 | # is checked in again as the latest version. This is probably not quite | ||
| 18 | # what was wanted, and is the main reason VC doesn't simply call this to | ||
| 19 | # do checkins. | ||
| 20 | # | ||
| 21 | # This script is intended to be used to convert files with an old-Emacs-style | ||
| 22 | # version history for use with VC (the Emacs 19 version-control interface), | ||
| 23 | # which likes to use RCS as its back end. It was written by Paul Eggert | ||
| 24 | # and revised/documented for use with VC by Eric S. Raymond, Mr 19 1993. | ||
| 25 | |||
| 3 | case $# in | 26 | case $# in |
| 4 | 0) | 27 | 0) |
| 5 | echo "rcs-checkin: usage: rcs-checkin file ..." | 28 | echo "rcs-checkin: usage: rcs-checkin file ..." |
| @@ -63,7 +86,7 @@ $file" | |||
| 63 | mv "$oldfile" "$file" || exit | 86 | mv "$oldfile" "$file" || exit |
| 64 | ls_l=`ls -l "$file"` || exit | 87 | ls_l=`ls -l "$file"` || exit |
| 65 | owner=-w`expr " $ls_l" : " $ls_owner_pattern"` || owner= | 88 | owner=-w`expr " $ls_l" : " $ls_owner_pattern"` || owner= |
| 66 | ci -d -l -q $owner "$file" </dev/null || exit | 89 | echo "Formerly ${oldfile}" | ci -d -l -q $owner "$file" || exit |
| 67 | done | 90 | done |
| 68 | 91 | ||
| 69 | # Bring $file back from $file.~-~, and check it in. | 92 | # Bring $file back from $file.~-~, and check it in. |