cd /mnt/cdrom/Redhat/RPMS
ls -l howto-6.0-*.noarch.rpm
rpm -qpl howto-6* | grep -i rcs 

cd /mnt/cdrom/Redhat/RPMS
rpm -i rcs*.rpm
rpm -i cvs*.rpm
Для просмотра списка установленных файлов:
rpm -qpl cvs*.rpm | less

		******************************************************

bash$ man sgml2latex
bash$ sgml2latex filename.sgml
bash$ man dvips
bash$ dvips -o filename.ps filename.dvi
bash$ distill filename.ps
bash$ man ghostscript
bash$ man ps2pdf
bash$ ps2pdf input.ps output.pdf
bash$ acroread output.pdf &

	xdvi -geometry 80x90 howto.dvi
	man xdvi

		gv howto.ps
		ghostscript howto.ps

#!/bin/ksh

# CVS-программа sget
# Программа для извлечения файлов из 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`

Usage()
{
	print "\nВызов: $cmdname [-r номер_редакции/символическое_имя_тэга] <файл/каталог> "
	print "Опции -r необязательны "
	print "Например: "
	print " $cmdname -r 1.1 foo.cpp"
	print " $cmdname foo.cpp "
	print " $cmdname некий_каталог "
	print "Извлечение по символическому тэгу редакции: "
	print " $cmdname -r РЕДАКЦИЯ_1 некий_каталог "
	print " "
	exit
}

# Каманда getopt не будет поддерживаться в следующей версии.
# Вместо нее используем getopts.
while getopts r: ii
do
	case $ii in
	r) FLAG1=$ii; OARG1="$OPTARG";;
	?) Usage; exit 2;;
	esac
done
shift ` expr $OPTIND - 1 `

#echo FLAG1 = $FLAG1 , OARG1 = $OARG1

if [ $# -lt 1 ]; then
	Usage
fi

bkextn=sget_bak

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

cur_dir=`pwd`
#echo $cur_dir

len=${#homedir}
len=$(($len + 2))
#echo $len

subdir=` echo $cur_dir | cut -b $len-2000 `
#echo "subdir is : " $subdir
tmpaa=`dirname $1`
if [ "$tmpaa" = "." ]; then
	fname=$1
	if [ "$subdir" = "" ]; then
		subdir=$tmpaa
	fi
else
	fname=`basename $1`
	if [ "$subdir" = "" ]; then
		subdir=$tmpaa
	else
		subdir="$subdir/$tmpaa"
	fi
fi
#echo "subdir is : " $subdir
#echo "fname is : " $fname

# Проверка существования файла...
if [ -f "$HOME/$subdir/$fname" ]; then
	tmpaa="$HOME/$subdir/$fname"
	user_perms=" "
	group_perms=" "
	other_perms=" "
	user_perms=`ls -l $tmpaa | awk '{print $tmpaa }' | cut -b3-3 `
	group_perms=`ls -l $tmpaa | awk '{print $tmpaa }' | cut -b6-6 `
	other_perms=`ls -l $tmpaa | awk '{print $tmpaa }' | cut -b9-9 `
	if [ "$user_perms" = "w" -o "$group_perms" = "w"  \
			-o "$other_perms" = "w" ]; then
		print "\nОшибка: файл доступен для записи. Завершение $cmdname ......"
		print "       Следует либо сделать резервную копию, выполнить scommit"
		print "       или удалить файл и запустить $cmdname снова\n"
		exit
	fi
fi

# Перемещение файла
mkdir -p "$HOME/$subdir"
touch "$HOME/$subdir/$fname" 2>/dev/null
\mv -f "$HOME/$subdir/$fname" "$HOME/$subdir/$fname.$bkextn"

# Создание дочерней оболочки
(
	cd $homedir

	# Для очистки всех липких флагов используем опцию -A
	if [ "$FLAG1" = "" ]; then
		if [ "$subdir" = "." ]; then  # не использовать точку -- это смешает CVS
			cvs -r checkout -A $fname
		else
			cvs -r checkout -A "$subdir/$fname"
		fi
	else
		if [ "$subdir" = "." ]; then  # не использовать точку -- это смешает CVS
			cvs -r checkout -A -$FLAG1 $OARG1 $fname
		else
			cvs -r checkout -A -$FLAG1 $OARG1 "$subdir/$fname"
		fi
	fi
)
#pwd

if [ -f "$HOME/$subdir/$fname" ]; then
	print "\nПолучена копия файла $subdir/$fname только для чтения."
	print "$cmdname выполнен."
	#print "\nTip (Usage): $cmdname <file/directory name> \n"
fi

#!/bin/ksh

# CVS-программа sedit
# Программа для извлечения файла из 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`

Usage()
{
#       print "\nUsage: $cmdname [-r revision_number] [-F] <filename>"
#       print "The options -r, -F are optional "
#       print "The option -F is FORCE edit even if file is "
#       print "locked by another developer"

        print "\nВызов: $cmdname [-r номер_редакции] <файл>"
        print "Опции -r необязательны "

	print "Например: "
        print " $cmdname -r 1.1 foo.cpp"
        print " $cmdname foo.cpp "
#       print " $cmdname -F foo.cpp "
        print " "
}

# Каманда getopt не будет поддерживаться в следующей версии.
# Вместо нее используем getopts.
#while getopts r:F ii
while getopts r: ii
do
        case $ii in
        r) FLAG1=$ii; OARG1="$OPTARG";;
#       F) FLAG2=$ii; OARG2="$OPTARG";;
        ?) Usage; exit 2;;
        esac
done
shift ` expr $OPTIND - 1 `

#echo FLAG1 = $FLAG1 , OARG1 = $OARG1

if [ $# -lt 1 ]; then
        Usage
        exit
fi

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

bkextn=sedit_bak

cur_dir=`pwd`
#echo $cur_dir

len=${#homedir}
len=$(($len + 2))
#echo $len

subdir=` echo $cur_dir | cut -b $len-2000 `
tmpaa=`dirname $1`
if [ "$tmpaa" = "." ]; then
	fname=$1
	if [ "$subdir" = "" ]; then
		subdir=$tmpaa
	fi
else
	fname=`basename $1`
	if [ "$subdir" = "" ]; then
		subdir=$tmpaa
	else
		subdir="$subdir/$tmpaa"
	fi
fi
#echo "subdir is : " $subdir
#echo "fname is : " $fname

# Если файл уже извлечен другим разработчиком...
cvs_root=` echo $CVSROOT | cut -f1 -d' '  `
if [ "$cvs_root" = "" ]; then
        print "\nОшибка: \$CVSROOT не установлен!!\n"
        exit
fi
mkdir -p "$CVSROOT/$subdir/Locks" 2>/dev/null

if [ ! -e "$CVSROOT/$subdir/$fname,v" ]; then
        print "\nОшибка: файл $fname не существует в репозитории CVS!!\n"
        exit
fi

# Для всех команд требуется каталог 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

# Получение старшего номера редакции файла...
# Используем временный файл tmpfile, так как аргумент не может быть задан
# внутри дочерней оболочки
tmpfile=$homedir/sedit-lock.tmp
\rm -f $tmpfile 2>/dev/null
if [ "$FLAG1" = "" ]; then
	(
        cd $homedir
		if [ "$subdir" = "." ]; then  # не использовать точку -- это смешает CVS
			cvs log $fname | head -6 | grep head: | awk '{print $2}' > $tmpfile
		else
			cvs log "$subdir/$fname" | head -6 | grep head: | awk '{print $2}' > $tmpfile
		fi
	)
	OARG1=`cat $tmpfile`
	\rm -f $tmpfile 2>/dev/null
fi

lockfile="$CVSROOT/$subdir/Locks/$fname-$OARG1"
#echo "lockfile is : " $lockfile
#if [ -e $lockfile -a "$FLAG2" = "" ]; then
if [ -e $lockfile ]; then
        print "\nОшибка: файл $fname версии $OARG1 уже заблокирован другим разработчиком!!"
        aa=` ls -l $lockfile | awk '{print "Unix-имя бюджета блокирующего разработчика: " $3}' `
        print $aa
        print "Этот разработчик должен выполнить scommit или sunlock для разблокировки"
        print " "
#       print "Вы можете воспользоваться опцией -F чтобы вынудить редактирование файла даже если"
#       print "файл заблокирован другим разработчиком. Но Вы должны поговорить с"
#       print "остальными разработчиками прежде чем одновременно работать с этим файлом."
#       print "Например, эта возможность полезна, если Вы работаете над отдельной"
#       print "функцией C++ в файле, которая не пересекается с остальными разработчиками."
#       print " "
        exit
fi

# Теперь получение копии только для чтения...
if [ ! -e "$HOME/$subdir/$fname" ]; then
	(
        cd $homedir
		if [ "$subdir" = "." ]; then  # не использовать точку -- это смешает CVS
			cvs -r checkout $fname 1>/dev/null
		else
			cvs -r checkout "$subdir/$fname" 1>/dev/null
		fi
	)
fi

# Проверка существования файла...
tmpaa="$HOME/$subdir/$fname"
if [ -f $tmpaa ]; then
	user_perms=" "
	group_perms=" "
	other_perms=" "
	user_perms=`ls -l $tmpaa | awk '{print $tmpaa }' | cut -b3-3 `
	group_perms=`ls -l $tmpaa | awk '{print $tmpaa }' | cut -b6-6 `
	other_perms=`ls -l $tmpaa | awk '{print $tmpaa }' | cut -b9-9 `
	if [ "$user_perms" = "w" -o "$group_perms" = "w"  \
			-o "$other_perms" = "w" ]; then
		print "\nОшибка: файл доступен для записи. Завершение $cmdname ......"
		print "       Следует либо сделать резервную копию, выполнить scommit"
		print "       или удалить файл и запустить $cmdname снова\n"
		exit
	fi
	#print "\nNote: The file $tmpaa is read-only."
	#print "Hence I am moving it to $tmpaa.$bkextn ....\n"
	\mv -f $tmpaa $tmpaa.$bkextn
	chmod 444 $tmpaa.$bkextn
elif [ -d $tmpaa ]; then
	print "\nОшибка: $tmpaa является каталогом, а НЕ файлом. Завершение $cmdname ....\n"
	exit
fi

# Создание дочерней оболочки
print "\nПолучение файла $fname из CVS-репозитория...\n"
(
	cd $homedir
	# Используем опцию -A для очистки липкого тэга и получения
	# номер редакции HEAD
	if [ "$FLAG1" = "" ]; then
		if [ "$subdir" = "." ]; then  # не использовать точку -- это смешает CVS
			cvs -w checkout -A $fname
		else
			cvs -w checkout -A "$subdir/$fname"
		fi
	else
		if [ "$subdir" = "." ]; then  # не использовать точку -- это смешает CVS
			cvs -w checkout -A -$FLAG1 $OARG1 $fname
		else
			cvs -w checkout -A -$FLAG1 $OARG1 "$subdir/$fname"
		fi
	fi
)

if [ -e "$HOME/$subdir/$fname" ]; then
	# Файл блокировки -- $CVSROOT/$subdir/Locks/$fname-$OARG1
	touch $lockfile
fi

#pwd

print "\n$cmdname выполнен."
#print "\nTip (Usage): $cmdname <filename> \n"

#!/bin/ksh

# CVS-программа scommit
# Программа для фиксации изменений и загрузки файла в 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`

Usage()
{
	print "\nВызов: $cmdname [-r номер_редакции] <файл>"
	print "Опции -r необязательны "
	print "Например: "
	print " $cmdname -r 1.1 foo.cpp"
	print " $cmdname foo.cpp "
	print " "
}

# Каманда getopt не будет поддерживаться в следующей версии.
# Вместо нее используем getopts.
while getopts r: ii
do
	case $ii in
	r) FLAG1=$ii; OARG1="$OPTARG";;
	?) Usage; exit 2;;
	esac
done
shift ` expr $OPTIND - 1 `

#echo FLAG1 = $FLAG1 , OARG1 = $OARG1

if [ $# -lt 1 ]; then
	Usage
	exit 2
fi

if [ -d $1 ]; then
	Usage
	exit 2
fi

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

# Определить подкаталог
cur_dir=`pwd`
#echo $cur_dir
len=${#homedir}
len=$(($len + 2))
#echo $len

subdir=` echo $cur_dir | cut -b $len-2000 `
tmpaa=`dirname $1`
if [ "$tmpaa" = "." ]; then
	fname=$1
	if [ "$subdir" = "" ]; then
		subdir=$tmpaa
	fi
else
	fname=`basename $1`
	if [ "$subdir" = "" ]; then
		subdir=$tmpaa
	else
		subdir="$subdir/$tmpaa"
	fi
fi
# echo "subdir is : " $subdir
# echo "fname is : " $fname

# Если файл уже извлечен другим разработчиком...
cvs_root=` echo $CVSROOT | cut -f1 -d' '  `
if [ "$cvs_root" = "" ]; then
        print "\nОшибка: \$CVSROOT не установлен!!\n"
	exit
fi
mkdir -p "$CVSROOT/$subdir/Locks" 2>/dev/null

# Для всех команд требуется каталог 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

# Получение рабочего номера версии файла...
# Используем временный файл tmpfile, так как аргумент не может быть задан
# внутри дочерней оболочки
tmpfile=$homedir/sedit-lock.tmp
\rm -f $tmpfile 2>/dev/null
if [ "$FLAG1" = "" ]; then
	(
        cd $homedir
		if [ "$subdir" = "." ]; then  # не использовать точку -- это смешает CVS
			cvs status $fname 2>/dev/null | grep "Рабочая версия:" | awk '{print $3}' >$tmpfile
		else
			cvs status "$subdir/$fname" 2>/dev/null | grep "Рабочая версия:" | awk '{print $3}' >$tmpfile
		fi
	)
	OARG1=`cat $tmpfile`
	\rm -f $tmpfile 2>/dev/null
fi

if [ "$OARG1" = "" ]; then
	print "Файл $subdir/$fname НОВЫЙ, его нет в CVS-репозитории"
else
	lockfile="$CVSROOT/$subdir/Locks/$fname-$OARG1"

	if [ -e $lockfile ]; then
		# Проверка владеете ли Вы редакцией...
		aa=` ls -l $lockfile | awk '{print $3}' `
		userid=`id | cut -d'(' -f2 | cut -d')' -f1 `
		if [ "$aa" != "$userid" ]; then
			print " "
			print "Файл $subdir/$fname заблокирован не Вами!!"
			print "А пользователем с именем Unix-бюджета $aa; Ваше имя входа -- $userid"
#                       print "Если Вы работаете одновременно с другим разработчиком"
#                       print "и воспользовались опцией -F команды sedit."
			print "Необходимо подождать до выполнения другим разработчиком"
			print "команды scommit или sunlock"
			print "Завершение $cmdname ...."
			print " "
			exit 2
		fi
	else
		# Файл должен существовать в CVS
		if [ -f "$CVSROOT/$subdir/$fname,v" ]; then
			print "Вы не заблокировали файл $subdir/$fname с помощью sedit!!"
			print "Завершение $cmdname ...."
			exit 2
		else
			print "\nФайл $subdir/$fname еще не существует CVS-репозитории!!"
			print "Следует выполнить sadd для $subdir/$fname ...."
			exit 2
		fi
	fi
fi

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

	# Не позволять фиксацию каталогов с этого момента...
	#if [ -d "$subdir/$fname" ]; then
	#	cvs commit "$subdir/$fname"
	#fi

	if [ "$subdir" = "." ]; then  # не использовать точку -- это смешает CVS
		cvs commit $fname
	else
		cvs commit "$subdir/$fname"
	fi
	exit_status=$?

	if [ $exit_status -eq 0 ]; then
		lockfile="$CVSROOT/$subdir/Locks/$fname-$OARG1"
		if [ -e $lockfile ]; then
			\rm -f $lockfile
		fi

		# В случае отсутствия изменений в файле, нужно
		# изменить права доступа к файлу
		chmod a-w "$HOME/$subdir/$fname"
		print "\n$cmdname удачно выполнен."
		#print "\nTip (Usage): $cmdname <filename/directory name>\n"
	fi
)

#!/bin/ksh

# CVS-программа supdate
# Программа для обновления файла из 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 <файл>"
	exit
fi

# Двойные кавычки для защиты пробелов в $1
tmpaa="$1"

# Проверка существования файла...
if [ $# -gt 0 -a  -f $tmpaa ]; then
	user_perms=" "
	group_perms=" "
	other_perms=" "
	user_perms=`ls -l $tmpaa | awk '{print $tmpaa }' | cut -b3-3 `
	group_perms=`ls -l $tmpaa | awk '{print $tmpaa }' | cut -b6-6 `
	other_perms=`ls -l $tmpaa | awk '{print $tmpaa }' | cut -b9-9 `
	if [ "$user_perms" = "w" -o "$group_perms" = "w"  \
			-o "$other_perms" = "w" ]; then
		while :
		do
			print "\n$cmdname сделает резервную копию Вашего рабочего файла "
			print "$tmpaa в $tmpaa.supdate_bak перед выполнением слияния."
			print "Вы уверены в желании объединения изменений из"
			print -n "CVS-репозитория с Вашим рабочим файлом? <y/n> [n]: "
			read ans
			if [ "$ans" = "y" -o "$ans" = "Y" ]; then
				if [ -f $tmpaa.supdate_bak ]; then
					print "\nВнимание: файл $tmpaa.supdate_bak уже существует!!"
					print "Пожалуйста просмотрите файл $tmpaa.supdate_bak и удалите его,"
					print "а затем повторно выполните эту команду $cmdname "
					print "Завершение $cmdname ...."
					exit
				else
					cp $tmpaa $tmpaa.supdate_bak
					break
				fi
			elif [ "$ans" = "n" -o "$ans" = "N" -o "$ans" = "" -o "$ans" = " " ]; then
				exit
			fi
		done
	fi
fi

if [ -d $tmpaa ]; then
	print "\nОбновление каталога недоступно, потому что CVS update"
	print "объединяет изменения из репозитория с Вашим рабочим каталогом."
	print "Поэтому укажите файл для обновления, как показано ниже: "
	print " Вызов: $cmdname <файл>"
	exit
#       cvs update
else
	cvs update $tmpaa
fi

print "\n$cmdname удачно выполнен."
print "\n\nСделана резервная копия исходного файла как $tmpaa.supdate_bak"
print "\nПоэтому Ваш исходный файл СОХРАНЕН в $tmpaa.supdate_bak"
print "\n\n"
#print "\nTip (Usage): $cmdname <filename/directory name>\n"

#!/bin/ksh

# CVS-программа sunlock
# Программа разблокировки файла, заблокированного sedit

# Имя каждого файла составляется из 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`

Usage()
{
	print "\nВызов: $cmdname [-r номер_редакции] <файл>"
	print "Опции -r необязательны "
	print "Например: "
	print " $cmdname -r 1.1 foo.cpp"
	print " $cmdname foo.cpp "
	print " "
}

# Каманда getopt не будет поддерживаться в следующей версии.
# Вместо нее используем getopts.
while getopts r: ii
do
	case $ii in
	r) FLAG1=$ii; OARG1="$OPTARG";;
	?) Usage; exit 2;;
	esac
done
shift ` expr $OPTIND - 1 `

if [ $# -lt 1 ]; then
	Usage
	exit
fi

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

cur_dir=`pwd`
#echo $cur_dir

len=${#homedir}
len=$(($len + 2))
#echo $len

subdir=` echo $cur_dir | cut -b $len-2000 `
#echo "subdir is : " $subdir
tmpaa=`dirname $1`
if [ "$tmpaa" = "." ]; then
	fname=$1
	if [ "$subdir" = "" ]; then
		subdir=$tmpaa
	fi
else
	fname=`basename $1`
	if [ "$subdir" = "" ]; then
		subdir=$tmpaa
	else
		subdir="$subdir/$tmpaa"
	fi
fi
#echo "subdir is : " $subdir
#echo "fname is : " $fname

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

if [ ! -e "$CVSROOT/$subdir/$fname,v" ]; then
	print "\nОшибка: файл $fname отсутствует в CVS-репозитории!!\n"
	exit
fi

# Для всех команд требуется каталог 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

# Получение старшего номера редакции файла...
# Используем временный файл tmpfile, так как аргумент не может быть задан
# внутри дочерней оболочки
tmpfile=$homedir/sunlock-lock.tmp
\rm -f $tmpfile 2>/dev/null
if [ "$FLAG1" = "" ]; then
	# Действуем внутри дочерней оболочки и из корневого каталога
	(
        cd $homedir
		if [ "$subdir" = "." ]; then  # не использовать точку -- это смешает CVS
			cvs log $fname | head -6 | grep head: | awk '{print $2}' > $tmpfile
		else
			cvs log "$subdir/$fname" | head -6 | grep head: | awk '{print $2}' > $tmpfile
		fi
	)
	OARG1=`cat $tmpfile`
	\rm -f $tmpfile 2>/dev/null
fi

lockfile="$CVSROOT/$subdir/Locks/$fname-$OARG1"
#echo lockfile is : $lockfile
if [ ! -e $lockfile ]; then
	print "\nФайл $fname редакции $OARG1 НЕ заблокирован никем"
	print " "
	exit
fi

ans=""
while :
do
	print "\n\n***************************************************"
	print "ВНИМАНИЕ: $cmdname уберет блокировку и другие разработчики"
	print "         смогут редактировать файл. Рекомендуется сохранить"
	print "         Ваши изменения командой scommit"
	print "***************************************************"
	print -n "\nВы действительно хотите разблокировать файл <y/n>? [n]: "
	read ans
	if [ "$ans" = "" -o "$ans" = " " -o "$ans" = "n" -o "$ans" = "N" ]; then
		print "\nЗавершение $cmdname..."
		exit
	fi
	if [ "$ans" = "y" -o "$ans" = "Y" ]; then
		print "\n\n\n\n\n "
		print "ПРЕДУПРЕЖДЕНИЕ: Вы можете потерять все изменения файла!!"
		print -n "Вы уверены? Действительно ли Вы хотите разблокировать файл <y/n>? [n]: "
		read ans
		if [ "$ans" = "y" -o "$ans" = "Y" ]; then
			break
		elif [ "$ans" = "" -o "$ans" = " " -o "$ans" = "n" -o "$ans" = "N" ]; then
			exit
		else
			print "\n\nОшибка ввода. Попробуйте снова..."
			sleep 1
		fi
	else
		print "\n\nОшибка ввода. Попробуйте снова..."
		sleep 1
	fi
done

if [ -e $lockfile ]; then
	\rm -f $lockfile
	print "\n$cmdname выполнен"
else
	print "\nФайл $fname больше никем НЕ заблокирован"
	print " "
fi

#!/bin/ksh

# CVS-программа slist
# Программа перечисления всех отредактированных файлов исходного кода из 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"

# Вызов:
# 		$ slist      (Все файлы и подкаталоги)
# 		$ slist *.*      (Все файлы)
# 		$ slist *      (Все файлы и подкаталоги)
# 		$ slist ab*      (Все файлы, начинающиеся на "ab")

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

cur_dir=`pwd`
#echo $cur_dir

len=${#homedir}
len=$(($len + 2))
#echo $len

subdir=` echo $cur_dir | cut -b $len-2000 `
#echo "subdir is : " $subdir

# Если файл уже извлечен другим разработчиком...
cvs_root=` echo $CVSROOT | cut -f1 -d' '  `
if [ "$cvs_root" = "" ]; then
        print "\nОшибка: \$CVSROOT не установлен!!\n"
        exit
fi

# Если текущий каталог не находится в корне CVS, то выход
if [ ! -d $CVSROOT/$subdir ]; then
	print "\nКаталог $subdir не существует в $CVSROOT"
	exit
fi

#echo "no of params : " $#
#echo "The arg $ 1 is : " $1
#echo "all args : " $@

if [ $# -eq 0 ]; then
	tmpbb=` find * -prune -type d `
elif [ $# -eq 1 ]; then
	if [ "$1" = "." ]; then
		tmpbb=` find * -prune -type d `
	else
		if [ -d $1 -a ! -d $CVSROOT/$subdir/$1 ]; then
			print "\nКаталог $subdir/$1 не существует в $CVSROOT"
			exit
		fi
		tmpbb=$@
	fi
else
	tmpbb=$@
fi

#echo "The tmpbb is : " $tmpbb

# Теперь удалим все имена каталогов, не существующих в корне CVS 
dirnames=""
for ii in $tmpbb ; do
	if [ -d $CVSROOT/$subdir/$ii ]; then
		dirnames="$dirnames $ii "
	fi
done
#echo "The dirnames is : " $dirnames

if [ "$dirnames" != "" ]; then
	find $dirnames  -type f |
	while read ii
	do
		# Перечислить только те файлы, которые находятся в CVS-системе
		if [ -f "$CVSROOT/$subdir/$ii,v" ]; then
			#echo "ii is : " $ii
			ls -l $ii | grep ^\-rw
		fi
	done;
fi

# Получить все файлы в текущем каталоге
listfiles=`ls $tmpbb `
find * -prune -type f |
while read ii
do
	for jj in $listfiles ; do
		if [ "$jj" = "$ii" ]; then
			# Перечислить только те файлы, которые находятся в CVS-системе
			if [ -f "$CVSROOT/$subdir/$ii,v" ]; then
				#echo "ii is : " $ii
				ls -l $ii | grep ^\-rw
			fi
		fi
	done
done;

#!/bin/ksh

# CVS-программа sinfo
# Программа для получения статуса файлов в рабочем каталоге

# Имя каждого файла составляется из 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 [имя файла/каталога] "
	print "Например: "
	print " $cmdname foo.cpp"
	print " $cmdname some_directory "
	print " "
	exit
fi

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

cur_dir=`pwd`
#echo $cur_dir

len=${#homedir}
len=$(($len + 2))
#echo $len

subdir=` echo $cur_dir | cut -b $len-2000 `
#echo "subdir is : " $subdir
tmpaa=`dirname $1`
if [ "$tmpaa" = "." ]; then
	fname=$1
	if [ "$subdir" = "" ]; then
		subdir=$tmpaa
	fi
else
	fname=`basename $1`
	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

# Создание дочерней оболочки
if [ -f $1 ]; then
	(
        cd $homedir
		clear
		print "\nстатус CVS: "
        cvs status "$subdir/$fname"
	)
elif [ -d $1 ]; then
	(
		cd $homedir
		clear
		print "\nстатус CVS: "
		tmpfile="$homedir/cvs_sinfo.tmp"
		rm -f $tmpfile
        echo "  " >> $tmpfile
        echo "  ****************************************" >> $tmpfile
        echo "        Полный статус каталога" >> $tmpfile
        echo "  ****************************************" >> $tmpfile
        cvs release "$subdir/$fname" 1>>$tmpfile 2>>$tmpfile << EOF
N
EOF
        echo "\n   -------------------------------\n" >> $tmpfile

        aa=`cat $tmpfile | grep ^"M " | awk '{print $2}' `
        for ii in $aa
        do
			jj="(cd $homedir; cvs status \"$subdir/$ii\" );"
			echo $jj | /bin/sh  \
					| grep -v Sticky | awk '{if (NF != 0) print $0}' \
					1>>$tmpfile 2>>$tmpfile
        done

        cat $tmpfile | grep -v ^? | grep -v "Are you sure you want to release" \
        | less
        rm -f $tmpfile
	)
else
	print "\nАргумент $1 не файл или каталог"
	exit
fi

#!/bin/ksh

# CVS-программа slog
# Программа перечисления истории файла в 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

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

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

cur_dir=`pwd`
#echo $cur_dir

len=${#homedir}
len=$(($len + 2))
#echo $len

subdir=` echo $cur_dir | cut -b $len-2000 `
#echo "subdir is : " $subdir
tmpaa=`dirname $1`
if [ "$tmpaa" = "." ]; then
	fname="$1"
	if [ "$subdir" = "" ]; then
		subdir=$tmpaa
	fi
else
	fname=`basename $1`
	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
	cvs log "$homedir/$subdir/$fname" | less
)

print "\n$cmdname удачно завершен."
#print "\nTip (Usage): $cmdname <filename>\n"

#!/bin/ksh

# CVS-программа sdif
# Программа просмотра отличий рабочего файла от 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`

Usage()
{
	print "\nВызов: $cmdname <файл> "
	print "$cmdname -r<rev1> -r<rev2> <файл> \n"
	exit
}

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

FLAG1=""
FLAG2=""
OARG1=""
OARG2=""
# Каманда getopt не будет поддерживаться в следующей версии.
# Вместо нее используем getopts.
while getopts r:r: ii
do
	case $ii in
	r)
		if [ "$FLAG1" = "" ]; then
			FLAG1=$ii;
			OARG1="$OPTARG"
		else
			FLAG2=$ii;
			OARG2="$OPTARG"
		fi
		;;
	?) Usage; exit 2;;
	esac
done
shift ` expr $OPTIND - 1 `

if [ "$FLAG2" = "" ]; then
	FLAG2=r
	OARG2=HEAD
fi

cur_dir=`pwd`
#echo $cur_dir

len=${#homedir}
len=$(($len + 2))
#echo $len

subdir=` echo $cur_dir | cut -b $len-2000 `
#echo "subdir is : " $subdir
tmpaa=`dirname $1`
if [ "$tmpaa" = "." ]; then
	fname="$1"
	if [ "$subdir" = "" ]; then
		subdir=$tmpaa
	fi
else
	fname=`basename $1`
	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 [ "$FLAG1" = "" ]; then
		cvs diff -r HEAD "$homedir/$subdir/$fname" | less
	else
		cvs diff -$FLAG1 $OARG1 -$FLAG2 $OARG2 "$homedir/$subdir/$fname" | less
	fi
)

#!/bin/ksh

# CVS-программа sadd
# Программа добавления файла в 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"
if [ ! -f "$onearg" -a ! -d "$onearg" ]; then
	print "\nАргумент $onearg не файл или каталог!"
	print "Вызов: $cmdname <файл/каталог> \n"
	exit
fi

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

cvs_root=` echo $CVSROOT | cut -f1 -d' '  `
if [ "$cvs_root" = "" ]; then
        print "\nОшибка: \$CVSROOT не установлен!!\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

# Проверка существования файла...
if [ $# -eq 1 ]; then
	if [ -f "$onearg" ]; then
		cvs add "$onearg"
		exit
	fi
elif [ $# -gt 1 ]; then
	print "\n\n\nДобавление всех файлов в текущем каталоге к CVS"
	print "Каталоги добавлены не будут"
	print -n "Нажмите ВВОД для продолжения или CTRL+C для прервания..."
	read ans
	for ii in $@
	do
		if [ -f "$ii" ]; then
			cvs add "$ii"
		fi
	done;
	exit
fi

# Когда $subdir равен ".", мы в корневом каталоге
if [ "$subdir" = "." ]; then
	# В этом месте $onearg -- каталог, а не файл...
	if [ -d "$CVSROOT/$onearg" ]; then
		print "\nКаталог $onearg уже существует в CVSROOT"
		exit
	else
		# Добавление в корневой каталог $CVSROOT
		if [ "$2" = "" -o "$3" = "" ]; then
			print "\nВызов: $cmdname <каталог> <тэг поставщика> <тэг редакции>"
			print "Например: "
			print " $cmdname foo_directory V_1_0 R_1_0"
			exit
		else
			(
				cd "$homedir/$subdir";
				cvs import "$onearg" $2 $3
			)
		fi
	fi
else
	# Если текущий каталог существует в CVS...
	if [ -d "$CVSROOT/$subdir/$onearg" ]; then
		print "\nКаталог $onearg уже в CVS-репозитории!"
		exit
	else
		(
			if [ -d "$homedir/$subdir/$onearg/CVS" ]; then 
				print "\nОшибка: Каталог $homedir/$subdir/$onearg/CVS существует!!"
				print "\nЗавершение работы..."
				exit
			fi

			# Для импорта мы ДОЛЖНЫ перейти в каталог назначения
			# и указать полный путь, начинающийся с $subdir
			cd "$homedir/$subdir/$onearg";
			cvs import "$subdir/$onearg" Ver_1 Rel_1
		)
	fi
fi

#!/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"
)

#!/bin/ksh

# CVS-программа sfreeze
# Программа для замораживания и вырезания редакции дерева исходного 
# кода из CVS

cmdname=`basename $0`

Usage()
{
	clear
	print "\nВызов: $cmdname символический_тэг <имя каталога> "

	print "\nНапример: "
	print "   cd \$HOME"
	print "   $cmdname  REVISION_1   myprojectsource_directory"
	print "Для просмотра списка редакций:"
	print "slog <файл> посмотрите символическое имя и выполните"
	print "cvs history -T"

	print "\nЧтобы создать ветку от основного ствола, используйте"
	print "опции -b и -r, что принимает тэг как тэг ветки. Это полезно"
	print "для создания \"заплатки\" к предыдущей редакции программного"
	print "обеспечения"
	print "Например: "
	print "   cd \$HOME"
	print "   cvs rtag -b -r REVISION_1   REVISION_1_1   myprojectsource_directory"
	print " "

#   print "\nИнформация о тэге расположена в \$CVSROOT/CVSROOT/taginfo,v"
#   print "Вы можете просмотреть этот файл так: cd $HOME; sget CVSROOT"
	exit
}

# Каманда getopt не будет поддерживаться в следующей версии.
# Вместо нее используем getopts.
#while getopts r: ii
#do
#	case $ii in
#		r) FLAG1=$ii; OARG1="$OPTARG";;
#		?) Usage; exit 2;;
#	esac
#done
#shift ` expr $OPTIND - 1 `

#echo FLAG1 = $FLAG1 , OARG1 = $OARG1

if [ $# -lt 2 ]; then
	Usage
fi

if [ ! -d $2 ]; then
	print "\nОшибка: второй аргумент $2 не каталог!"
	print "       Завершение $cmdname...."
	print " "
	exit
fi

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

# Для всех команд требуется каталог 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

if [ "$cur_dir" != "$homedir" ]; then
	print "\nВы находитесь не в каталоге $homedir!!"
	print "Команду sfreeze необходимо выполнять из"
	print "домашнего каталога $homedir"
	exit
fi

# cvs rtag symbolic_tag <directory name>
cvs rtag $1 $2

print "\n$cmdname удачно завершен."