Mercurial > hg > xemacs-beta

comparison lib-src/rcs-checkin @ 146:2af401a6ecca r20-2p1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2p1
author cvs
date Mon, 13 Aug 2007 09:34:46 +0200
parents 376386a54a3c
children
comparison
equal deleted inserted replaced
145:e13feca31ba6 146:2af401a6ecca
1 #!/bin/sh 1 #! /bin/sh
2 2
3 # This script accepts any number of file arguments and checks them into RCS. 3 # This script accepts any number of file arguments and checks them into RCS.
4 # 4 #
5 # Arguments which are detectably either RCS masters (with names ending in ,v) 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. 6 # or Emacs version files (with names of the form foo.~<number>~) are ignored.
42 esac 42 esac
43 # Ignore non-files too. 43 # Ignore non-files too.
44 test -f "$file" || continue 44 test -f "$file" || continue
45 45
46 # Check that file is readable. 46 # Check that file is readable.
47 <$file || exit 47 test -r "$file" || exit
48 48
49 # If the RCS file does not already exist, 49 # If the RCS file does not already exist,
50 # initialize it with a description from $file's first line. 50 # initialize it with a description from $file's first line.
51 rlog -R "$file" >/dev/null 2>&1 || 51 rlog -R "$file" >/dev/null 2>&1 ||
52 rcs -i -q -t-"`sed 1q $file`" "$file" || exit 52 rcs -i -q -t-"`sed 1q $file`" "$file" || exit