sdelete

#!/bin/ksh

# CVS-программа sdelete
# Программа удаления файла из CVS

# Имя каждого файла составляется из 3 частей -- домашнего каталога,
# подкаталога и имени файла. Полный путь -- $HOME/$subdir/$fname
# В CVS сохраняется такая же структура каталогов (с помощью переменной
# $subdir), поэтому в CVS мы будем иметь $CVSROOT/$subdir/$fname
# В данной программе эти 4 переменные $HOME, $CVSROOT, $subdir и $fname
# играют важную роль. Примеры их значений:
# HOME=/home/aldev, subdir=myproject/src CVSROOT=/home/cvsroot 
# и fname=foo.cpp

# Предупреждение: заключите значения переменных, содержащих пробелы
# в двойные кавычки: "$HOME/$subdir", если subdir равен "some foo.cpp"

cmdname=`basename $0`

if [ $# -lt 1 ]; then
        print "\nВызов: $cmdname <файл> \n"
        exit
fi

onearg="$1"

homedir=` echo $HOME | cut -f1 -d' '  `
if [ "$homedir" = "" ]; then
        print "\nОшибка: \$HOME не установлен!!\n"
        exit
fi

cur_dir=`pwd`
len=${#homedir}
len=$(($len + 2))
subdir=` echo $cur_dir | cut -b $len-2000 `
#echo "subdir is : " $subdir
tmpaa=`dirname "$onearg" `
if [ "$tmpaa" = "." ]; then
        fname="$onearg"
        if [ "$subdir" = "" ]; then
                subdir=$tmpaa
        fi
else
        fname=`basename "$onearg" `
        if [ "$subdir" = "" ]; then
                subdir=$tmpaa
        else
                subdir="$subdir/$tmpaa"
        fi
fi
#echo "subdir is : " $subdir
#echo "fname is : " $fname

# Для всех команд требуется каталог CVS в Вашем локальном каталоге...
if [ ! -d  "$homedir/$subdir/CVS" ]; then
        tmpaa=` (cd "$CVSROOT/$subdir"; find * -prune -type f -print | head -1 ) `
        tmpbb=`basename $tmpaa | cut -d',' -f1 `
        if [ "$tmpaa" = "" -o ! -f "$CVSROOT/$subdir/$tmpbb,v" ]; then
                print "\nКаталог $homedir/$subdir/CVS не существует"
                print "Вы должны выполнить sget в каталоге `basename $subdir`. Наберите"
                print "       cd $homedir/`dirname $subdir` "
                print "       sget `basename $subdir` "
                exit
        else
                # Теперь попытка создать CVS в локальном каталоге с помощью sget
                (
                        cd "$homedir"
                        if [ "$subdir" = "." ]; then  # не использовать точку -- это смешает CVS
                                cvs -r checkout -A $tmpbb
                        else
                                cvs -r checkout -A "$subdir/$tmpbb"
                        fi
                )
        fi
fi

# Действовать внутри дочерней оболочки...
(
        cd $homedir

        # Проверка существования файла...
        if [ ! -f "$subdir/$fname" ]; then
                # Попытка получения файла из CVS
                sget "$subdir/$fname"
                if [ ! -f "$subdir/$fname" ]; then
                        print "\nОшибка: $subdir/$fname НЕ существует в CVS-репозитории."
                        print "\nЗавершение $cmdname ......"
                        exit
                fi
        fi

        bkextn=cvs_sdelete_safety_backup
        \mv -f "$subdir/$fname" "$subdir/$fname.$bkextn" 

        cvs remove "$subdir/$fname"

        print "\nКоманда sdelete удаляет файлы из CVS-репозитория и "
        print "складирует их "на чердаке" CVS (каталог Attic). Если этот "
        print "файл понадобится Вам, свяжитесь с Вашим администратором CVS"
        print " "

        print "\n$cmdname успешно завершен."
        print "Чтобы подтвердить сделанные изменения выполните scommit"
        print "для $homedir/$subdir/$fname"
        \mv -f "$subdir/$fname.$bkextn" "$subdir/$fname"
)