Проверьте, не отмечены ли какие-либо файлы в дереве, управляемые RCS, в

У меня есть устаревший сценарий состояния rcs:

#!/bin/bash
find ${@:-.} -type f |
sed '\;/RCS/;d' |
while read file
do  msg=
    if [ -z "$(rlog -R "$file" 2>/dev/null)" ]
    then    msg="$msg no RCS"
    else    if co -q -kk -p "$file" | cmp -s - "$file" ||
               co -q -p "$file" | cmp -s - "$file"
            then    msg="$msg same"
            else    msg="$msg differs"
            fi
            if [ -z "$(rlog -L -R "$file")" ]
            then    msg="$msg not locked"
            else    msg="$msg locked"
                    user=$(rlog -h "$file" |
                           awk '/locks:/{ getline;
                                    sub(":"," "); print $1 }')
                    if [ -n "$user" ]
                    then    msg="$msg by $user"
                    fi
            fi
    fi
    if [ -w "$file" ]
    then    msg="$msg writeable"
    fi
    echo "$file: $msg"
done

Укажите ему каталог или файлы, и он выдаст результат вроде

whenerror: same not locked
kshrc: same not locked writeable
mylua.lua: no RCS writeable
subshell: differs locked by meuh writeable
mshrc: differs locked by meuh

, где «то же самое не заблокировано» означает, что он зарегистрирован и доступен только для чтения, обычно в желаемом состоянии.