comparison lib-src/rcs2log @ 17202:9555c074333c

(files): Ignore files in RCS directory whose names are of the form ,*, or *_; they are probably RCS lock files. Also, ignore files named .rcsfreeze.log or .rcsfreeze.ver; they are used by rcsfreeze.
author Paul Eggert <eggert@twinsun.com>
date Fri, 21 Mar 1997 22:12:24 +0000
parents 04ad9edd12b3
children a40eff0f724c
comparison
equal deleted inserted replaced
17201:ac40292bd898 17202:9555c074333c
26 --help Output help. 26 --help Output help.
27 --version Output version number. 27 --version Output version number.
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.35 1996/11/03 17:09:27 eggert Exp eggert $' 31 Id='$Id: rcs2log,v 1.36 1997/01/20 09:03:05 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
35 # This program is free software; you can redistribute it and/or modify 35 # This program is free software; you can redistribute it and/or modify
36 # it under the terms of the GNU General Public License as published by 36 # it under the terms of the GNU General Public License as published by
240 RCSdirs=`find . -name RCS -type d -print` 240 RCSdirs=`find . -name RCS -type d -print`
241 filesFromRCSfiles='s|,v$||; s|/RCS/|/|; s|^\./||' 241 filesFromRCSfiles='s|,v$||; s|/RCS/|/|; s|^\./||'
242 files=` 242 files=`
243 { 243 {
244 case $RCSdirs in 244 case $RCSdirs in
245 ?*) find $RCSdirs -type f -print 245 ?*) find $RCSdirs \
246 -type f \
247 ! -name '*_' \
248 ! -name ',*,' \
249 ! -name '.*_' \
250 ! -name .rcsfreeze.log \
251 ! -name .rcsfreeze.ver \
252 -print
246 esac 253 esac
247 find . -name '*,v' -print 254 find . -name '*,v' -print
248 } | 255 } |
249 sort -u | 256 sort -u |
250 sed "$filesFromRCSfiles" 257 sed "$filesFromRCSfiles"
252 *) 259 *)
253 files= 260 files=
254 for file in RCS/.* RCS/* .*,v *,v 261 for file in RCS/.* RCS/* .*,v *,v
255 do 262 do
256 case $file in 263 case $file in
257 RCS/. | RCS/..) continue;; 264 RCS/. | RCS/.. | RCS/,*, | RCS/*_) continue;;
265 RCS/.rcsfreeze.log | RCS/.rcsfreeze.ver) continue;;
258 RCS/.\* | RCS/\* | .\*,v | \*,v) test -f "$file" || continue 266 RCS/.\* | RCS/\* | .\*,v | \*,v) test -f "$file" || continue
259 esac 267 esac
260 files=$files$nl$file 268 files=$files$nl$file
261 done 269 done
262 case $files in 270 case $files in