CVS RCS HOWTO 原始程式码版本控制系统 (2)
2024-07-26 00:30:59
供稿:网友
 
-------------------------------------------------------------------------------- 
4. Shell Scripts  
下面的 scripts 是基本 CVS 命令的集合,而且是 Korn shell 的 scripts 。你可以把他转成 perl 或者 bash。你可以自己修改成你想要的样子。这些只是运用基本 CVS 命令但有些特殊的花样加在里面。例如, sedit 这个 script 提供了档案锁住的功能使得其他人知道有某人正在修改这个档案,当然你也可以直接使用 CVS 命令而不用这些 scripts ,这些 scripts 只是在展示 CVS 是多麽的有弹性。  
把这些 scripts 复制到 /usr/local/bin 下,并且此目录应该在你的 PATH 环境变数中。  
sget [-r revision_number]  要从 CVS 获得一个唯读档案或整个唯读目录,请按 sget  
sedit [-r revision_number]  要修改一个一个程式码时,这个 scripts 会做档案锁住的动作,因此没有别人可以登出这个档案了。当然你可以改变这个 script 成你想要的功能 - 例如不锁住,只出现警告讯息,或者相反的,非常严谨的锁档案。请按 sedit  
scommit [-r revision_number]  要交出某个你修改的档案或整个目录。 把你的改变交给 CVS。请按 scommit  
supdate  要藉由从 CVS 得到最新的档案来update 一个档案或整个目录。请按 supdate  
sunlock [-r revision_number]  要把因为用 sedit 後的档案锁关掉。这会释放档案锁(Release File Lock)。请按 sunlock  
slist 要看目前正被你修改的档案列表。做 'ls -l | grep | ...' 命令,请按 slist  
sinfo  要得到一个档案的改版资讯。 请按 sinfo  
slog  要得到一个 CVS 档案改版的历史纪录,请按 slog  
sdif   
sdif -r rev1 -r rev2  要得到你的档案与 CVS 柜子里的档案不同的地方在哪里。请按 sdif  
注意: sdif 只有一个 'f' ,因为这里已经有一个 unix 命令叫 'sdiff'。  
sadd  要新增一个档案到 CVS 柜子里。请按 sadd  
sdelete  要从 CVS 柜子里清掉一个档案。请按 sdelete  
sfreeze   要冻结原始码 (freeze codes) ,这是将要发行 (release) 整个原始码目录树。请按 sfreeze  
saddtree   要新增一个目录树到 CVS 。请按 saddtree  
例如 :  
-------------------------------------------------------------------------------- 
        cd $HOME;    
        sfreeze REVISION_1_0  srctree   
-------------------------------------------------------------------------------- 
这将会冻结原始码,并贴上一个标签 REVISION_1_0 ,如此一来你就可以稍後用版本名字登出整个目录树。  
                ****************************************************** 
4.1 sget  
注意 : Korn shell /bin/ksh 在你从linux CD-ROM 安装 pdksh*.rpm 时就会产生  
请把他存成一般文字档并改变存取权限 chmod a+rx  
-------------------------------------------------------------------------------- 
#!/bin/ksh 
# CVS PRogram sget 
# Program to check out the file from CVS read-only 
cmdname=`basename $0` 
Usage() 
{ 
        print "/nUsage: $cmdname [-r revision_number/symbolic_tag_name]  " 
        print "The options -r are optional " 
        print "For example - " 
        print " $cmdname -r 1.1 foo.cpp" 
        print " $cmdname foo.cpp " 
        print " $cmdname some_directory " 
        print "Extract by symbolic revision tag like - " 
        print " $cmdname -r REVISION_1 some_directory " 
        print " " 
        exit 
} 
# Command getopt will not supported in next major release.  
# Use getopts instead.  
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 
hme=` echo $HOME | cut -f1 -d' '  ` 
if [ "$hme" = "" ]; then 
        print "/nError: /$HOME is not set!!/n" 
        exit 
fi 
# Check if file already exists.... 
if [ -f $1 ]; then 
        user_perms=" " 
        group_perms=" " 
        other_perms=" " 
        user_perms=`ls -l $1 | awk '{print $1 }' | cut -b3-3 ` 
        group_perms=`ls -l $1 | awk '{print $1 }' | cut -b6-6 ` 
        other_perms=`ls -l $1 | awk '{print $1 }' | cut -b9-9 ` 
        if [ "$user_perms" = "w" -o "$group_perms" = "w"  / 
                -o "$other_perms" = "w" ]; then 
                print "/nError: The file is writable. Aborting $cmdname ......" 
                print "       You should either backup, scommit or delete the file and" 
                print "       try $cmdname again/n" 
                exit 
        fi 
fi 
cur_dir=`pwd` 
#echo $cur_dir 
len=${#hme} 
len=$(($len + 2)) 
#echo $len 
subdir=` echo $cur_dir | cut -b $len-2000 ` 
#echo $subdir 
if [ "$subdir" = "" ]; then 
        fdname=$1 
else 
        fdname=$subdir"/"$1 
fi 
# Move the file 
touch $1 2>/dev/null 
/mv -f $1 $1.$bkextn 
# Create subshell 
( 
cd $hme 
#echo $fdname 
# Use -A option to clear all sticky flags 
if [ "$FLAG1" = "" ]; then 
        cvs -r checkout -A $fdname 
else 
        cvs -r checkout -A -$FLAG1 $OARG1 $fdname 
fi 
) 
#pwd 
if [ -f $1 ]; then 
        print "/nREAD-ONLY copy of the file $fdname obtained." 
        print "Done $cmdname" 
        #print "/nTip (Usage): $cmdname  /n" 
fi 
-------------------------------------------------------------------------------- 
4.2 sedit  
注意 : Korn shell /bin/ksh 在你从Linux CD-ROM 安装 pdksh*.rpm 时就会产生  
请把他存成一般文字档并改变存取权限 chmod a+rx  
-------------------------------------------------------------------------------- 
#!/bin/ksh 
# CVS program sedit 
# Program to check out the file from CVS read/write mode with locking 
cmdname=`basename $0` 
Usage() 
{ 
#       print "/nUsage: $cmdname [-r revision_number] [-F] " 
#       print "The options -r, -F are optional " 
#       print "The option -F is FORCE edit even if file is " 
#       print "locked by another developer" 
        print "/nUsage: $cmdname [-r revision_number] " 
        print "The options -r are optional " 
        print "For example - " 
        print " $cmdname -r 1.1 foo.cpp" 
        print " $cmdname foo.cpp " 
#       print " $cmdname -F foo.cpp " 
        print " " 
} 
# Command getopt will not supported in next major release.  
# Use getopts instead.  
#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 
hme=` echo $HOME | cut -f1 -d' '  ` 
if [ "$hme" = "" ]; then 
        print "/nError: /$HOME is not set!!/n" 
        exit 
fi 
bkextn=sedit_bak 
cur_dir=`pwd` 
#echo $cur_dir 
len=${#hme} 
len=$(($len + 2)) 
#echo $len 
subdir=` echo $cur_dir | cut -b $len-2000 ` 
#echo $subdir 
if [ "$subdir" = "" ]; then 
        fdname=$1 
else 
        fdname=$subdir"/"$1 
fi 
# If file is already checked out by another developer.... 
cvs_root=` echo $CVSROOT | cut -f1 -d' '  ` 
if [ "$cvs_root" = "" ]; then 
        print "/nError: /$CVSROOT is not set!!/n" 
        exit 
fi 
cldir=$CVSROOT/$subdir/Locks 
mkdir $cldir 2>/dev/null 
rcsfile=$CVSROOT/$subdir/$1,v 
#echo $rcsfile 
if [ ! -e $rcsfile ]; then 
        print "/nError: File $1 does not exist in CVS repository!!/n" 
        exit 
fi 
# Get the tip revision number of the file.... 
# Use tmpfile as the arg cannot be set inside the sub-shell 
tmpfile=$hme/sedit-lock.tmp 
/rm -f $tmpfile 2>/dev/null 
if [ "$FLAG1" = "" ]; then 
        ( 
        cd $hme 
        cvs log $fdname | head -6 | grep head: | awk '{print $2}' > $tmpfile  
        ) 
        OARG1=`cat $tmpfile` 
        /rm -f $tmpfile 2>/dev/null 
fi 
lockfile=$cldir/$1-$OARG1 
#if [ -e $lockfile -a "$FLAG2" = "" ]; then 
if [ -e $lockfile ]; then 
        print "/nError: File $1 Revision $OARG1 already locked by another developer !!" 
        aa=` ls -l $lockfile | awk '{print "Locking developers unix login name is = " $3}' ` 
        print $aa 
        print "That developer should do scommit OR sunlock to release the lock" 
        print " " 
#       print "You can also use -F option to force edit the file even if" 
#       print "the file is locked by another developer. But you must talk to" 
#       print "other developer to work concurrently on this file."  
#       print "For example - this option is useful if you work on a seperate" 
#       print "C++ function in the file which does not interfere with other" 
#       print "developer." 
#       print " " 
        exit 
fi 
# Get read-only copy now.... 
if [ ! -e $1 ]; then 
        ( 
        cd $hme 
        cvs -r checkout $fdname 1>/dev/null 
        ) 
fi 
# Check if file already exists.... 
if [ -f $1 ]; then 
        user_perms=" " 
        group_perms=" " 
        other_perms=" " 
        user_perms=`ls -l $1 | awk '{print $1 }' | cut -b3-3 ` 
        group_perms=`ls -l $1 | awk '{print $1 }' | cut -b6-6 ` 
        other_perms=`ls -l $1 | awk '{print $1 }' | cut -b9-9 ` 
        if [ "$user_perms" = "w" -o "$group_perms" = "w"  / 
                -o "$other_perms" = "w" ]; then 
                print "/nError: The file is writable. Aborting $cmdname ......" 
                print "       You must backup, scommit or delete file and" 
                print "       try $cmdname again/n" 
                exit 
        fi 
        #print "/nNote: The file $1 is read-only." 
        #print "Hence I am moving it to $1.$bkextn ..../n" 
        /mv -f $1 $1.$bkextn 
        chmod 444 $1.$bkextn 
elif [ -d $1 ]; then 
        print "/nError: $1 is a directory and NOT a file. Aborting $cmdname ..../n" 
        exit 
fi 
# Create subshell 
print "/nNow getting the file $1 from CVS repository .../n" 
( 
cd $hme 
#echo $fdname 
# Use -A option to clear the sticky tag and to get  
# the HEAD revision version 
if [ "$FLAG1" = "" ]; then 
        cvs -w checkout -A $fdname 
else 
        cvs -w checkout -A -$FLAG1 $OARG1 $fdname 
fi 
) 
if [ -e $1 ]; then 
        touch $lockfile 
fi 
#pwd 
print "/nDone $cmdname" 
#print "/nTip (Usage): $cmdname  /n" 
-------------------------------------------------------------------------------- 
4.3 scommit  
注意 : Korn shell /bin/ksh 在你从Linux CD-ROM 安装 pdksh*.rpm 时就会产生  
请把他存成一般文字档并改变存取权限 chmod a+rx  
-------------------------------------------------------------------------------- 
#!/bin/ksh 
# CVS program scommit 
# Program to commit the changes and check in the file into CVS 
cmdname=`basename $0` 
Usage() 
{ 
        print "/nUsage: $cmdname [-r revision_number] " 
        print "The options -r are optional " 
        print "For example - " 
        print " $cmdname -r 1.1 foo.cpp" 
        print " $cmdname foo.cpp " 
        print " " 
} 
# Command getopt will not supported in next major release.  
# Use getopts instead.  
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 
hme=` echo $HOME | cut -f1 -d' '  ` 
if [ "$hme" = "" ]; then 
        print "/nError: /$HOME is not set!!/n" 
        exit 
fi 
# Find sub-directory 
cur_dir=`pwd` 
#echo $cur_dir 
len=${#hme} 
len=$(($len + 2)) 
#echo $len 
subdir=` echo $cur_dir | cut -b $len-2000 ` 
#echo $subdir 
if [ "$subdir" = "" ]; then 
        fdname=$1 
else 
        fdname=$subdir"/"$1 
fi 
# If file is already checked out by another user.... 
cvs_root=` echo $CVSROOT | cut -f1 -d' '  ` 
if [ "$cvs_root" = "" ]; then 
        print "/nError: /$CVSROOT is not set!!/n" 
        exit 
fi 
cldir=$CVSROOT/$subdir/Locks 
mkdir $cldir 2>/dev/null 
# Get the working revision number of the file.... 
# Use tmpfile as the arg cannot be set inside the sub-shell 
tmpfile=$hme/sedit-lock.tmp 
/rm -f $tmpfile 2>/dev/null 
if [ "$FLAG1" = "" ]; then 
        ( 
        cd $hme 
        cvs status $fdname 2>/dev/null | grep "Working revision:" | awk '{print $3}' >$tmpfile 
        ) 
        OARG1=`cat $tmpfile` 
        /rm -f $tmpfile 2>/dev/null 
fi 
if [ "$OARG1" = "" ]; then 
        print "The file $fdname is NEW, it is not in the CVS repository" 
else 
        lockfile=$cldir/$1-$OARG1 
        if [ -e $lockfile ]; then 
                # Check if this revision is owned by you... 
                aa=` ls -l $lockfile | awk '{print $3}' ` 
                userid=`id | cut -d'(' -f2 | cut -d')' -f1 ` 
                if [ "$aa" != "$userid" ]; then 
                        print " " 
                        print "The file $fdname is NOT locked by you!!" 
                        print "It is locked by unix user name $aa and your login name is $userid" 
#                       print "If you are working concurrently with other developer" 
#                       print "and you used -F option with sedit." 
                        print "You need to wait untill other developer does scommit" 
                        print "or sunlock" 
                        print "Aborting the $cmdname ...." 
                        print " " 
                        exit 2 
                fi 
        else 
                if [ -f $CVSROOT/$subdir/$1,v ]; then 
                        print "You did not lock the file $fdname with sedit!!" 
                        print "Aborting the $cmdname ...." 
                        exit 2  
                else 
                        print "/nThe file $fdname does not exist in CVS repository yet!!" 
                        print "You should have done sadd on $fdname ...." 
                fi 
        fi 
fi 
if [ -d $1 ]; then 
        Usage 
        exit 2 
        # Do not allow directory commits for now ... 
        #cvs commit 
else 
        cvs commit $1 
        exit_status=$? 
fi 
if [ $exit_status -eq 0 ]; then 
        print "/nDone $cmdname. $cmdname successful" 
        #print "/nTip (Usage): $cmdname /n" 
fi 
-------------------------------------------------------------------------------- 
4.4 supdate  
注意 : Korn shell /bin/ksh 在你从Linux CD-ROM 安装 pdksh*.rpm 时就会产生  
请把他存成一般文字档并改变存取权限 chmod a+rx  
-------------------------------------------------------------------------------- 
#!/bin/ksh 
# CVS program supdate 
# Program to update the file from CVS read/write mode 
cmdname=`basename $0` 
if [ $# -lt 1 ]; then 
        print "/nUsage: $cmdname " 
        exit 
fi 
# Check if file already exists.... 
if [ $# -gt 0 -a  -f $1 ]; then 
        user_perms=" " 
        group_perms=" " 
        other_perms=" " 
        user_perms=`ls -l $1 | awk '{print $1 }' | cut -b3-3 ` 
        group_perms=`ls -l $1 | awk '{print $1 }' | cut -b6-6 ` 
        other_perms=`ls -l $1 | awk '{print $1 }' | cut -b9-9 ` 
        if [ "$user_perms" = "w" -o "$group_perms" = "w"  / 
                -o "$other_perms" = "w" ]; then 
                while : 
                do 
                        print "/n$cmdname will backup your working file " 
                        print "$1 to $1.supdate_bak before doing any merges." 
                        print "Are you sure you want the merge the changes from" 
                        print -n "CVS repository to your working file ?  [n]: " 
                        read ans 
                        if [ "$ans" = "y" -o "$ans" = "Y" ]; then 
                                if [ -f $1.supdate_bak ]; then 
                                        print "/nWarning : File $1.supdate_bak already exists!!" 
                                        print "Please examine the file $1.supdate_bak and delete it" 
                                        print "and than re-try this $cmdname " 
                                        print "Aborting $cmdname ...." 
                                        exit 
                                else 
                                        cp $1 $1.supdate_bak 
                                        break 
                                fi 
                        elif [ "$ans" = "n" -o "$ans" = "N" -o "$ans" = "" -o "$ans" = " " ]; then 
                                exit 
                        fi 
                done 
        fi 
fi 
if [ -d $1 ]; then 
        print "/nDirectory update is disabled as cvs update" 
        print "merges the changes from repository to your working directory" 
        print "So give the filename to update - as shown below: " 
        print " Usage: $cmdname " 
        exit 
#       cvs update 
else 
        cvs update $1 
fi 
print "/nDone $cmdname. $cmdname successful" 
#print "/nTip (Usage): $cmdname /n" 
-------------------------------------------------------------------------------- 
4.5 sunlock  
注意 : Korn shell /bin/ksh 在你从Linux CD-ROM 安装 pdksh*.rpm 时就会产生  
请把他存成一般文字档并改变存取权限 chmod a+rx.  
-------------------------------------------------------------------------------- 
#!/bin/ksh 
# CVS program sunlock 
# Program to unlock the file to release the lock done by sedit 
cmdname=`basename $0` 
Usage() 
{ 
        print "/nUsage: $cmdname [-r revision_number] " 
        print " The options -r is optional " 
        print "For example - " 
        print " $cmdname -r 1.1 foo.cpp" 
        print " $cmdname foo.cpp " 
        print " " 
} 
# Command getopt will not supported in next major release.  
# Use getopts instead.  
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 
hme=` echo $HOME | cut -f1 -d' '  ` 
if [ "$hme" = "" ]; then 
        print "/nError: /$HOME is not set!!/n" 
        exit 
fi 
cur_dir=`pwd` 
#echo $cur_dir 
len=${#hme} 
len=$(($len + 2)) 
#echo $len 
subdir=` echo $cur_dir | cut -b $len-2000 ` 
#echo $subdir 
if [ "$subdir" = "" ]; then 
        fdname=$1 
else 
        fdname=$subdir"/"$1 
fi 
# If file is already checked out by another user.... 
cvs_root=` echo $CVSROOT | cut -f1 -d' '  ` 
if [ "$cvs_root" = "" ]; then 
        print "/nError: /$CVSROOT is not set!!/n" 
        exit 
fi 
cldir=$CVSROOT/$subdir/Locks 
rcsfile=$CVSROOT/$subdir/$1,v 
#echo $rcsfile 
if [ ! -e $rcsfile ]; then 
        print "/nError: File $1 does not exist in CVS repository!!/n" 
        exit 
fi 
# Get the tip revision number of the file.... 
# Use tmpfile as the arg cannot be set inside the sub-shell 
tmpfile=$hme/sedit-lock.tmp 
/rm -f $tmpfile 2>/dev/null 
if [ "$FLAG1" = "" ]; then 
        ( 
        cd $hme 
        cvs log $fdname | head -6 | grep head: | awk '{print $2}' > $tmpfile  
        ) 
        OARG1=`cat $tmpfile` 
        /rm -f $tmpfile 2>/dev/null 
fi 
lockfile=$cldir/$1-$OARG1 
#echo lockfile is : $lockfile 
if [ ! -e $lockfile ]; then 
        print "/nFile $1 revision $OARG1 is NOT locked by anyone" 
        print " " 
        exit  
fi 
ans="" 
while : 
do 
        print "/n/n***************************************************" 
        print "WARNING: $cmdname will release lock and enable other" 
        print "         developers to edit the file. It is advisable" 
        print "         to save your changes with scommit command" 
        print "***************************************************" 
        print -n "/nAre you sure you want to unlock the file ? [n]: " 
        read ans 
        if [ "$ans" = "" -o "$ans" = " " -o "$ans" = "n" -o "$ans" = "N" ]; then 
                print "/nAborting $cmdname ...." 
                exit 
        fi 
        if [ "$ans" = "y" -o "$ans" = "Y" ]; then 
                print "/n/n/n/n/n " 
                print "CAUTION: You may lose all the changes made to file!!" 
                print -n "Do you really want to unlock the file ? [n]: " 
                read ans 
                if [ "$ans" = "y" -o "$ans" = "Y" ]; then 
                        break 
                else 
                        exit 
                fi 
        else 
                print "/n/nWrong entry. Try again..." 
                sleep 1 
        fi 
done 
if [ -e $lockfile ]; then 
        /rm -f $lockfile 
        print "/nDone $cmdname" 
else 
        print "/nFile $1 is NOT locked by anyone" 
        print " " 
fi 
-------------------------------------------------------------------------------- 
4.6 slist  
注意 : Korn shell /bin/ksh 在你从Linux CD-ROM 安装 pdksh*.rpm 时就会产生  
请把他存成一般文字档并改变存取权限 chmod a+rx  
-------------------------------------------------------------------------------- 
#!/bin/ksh 
# CVS program slist 
# Program to list all edited source files from CVS 
#cmdname=`basename $0` 
#echo "no of params : " $# 
#echo "all args : " $@ 
recurse_flag="" 
if [ "$1" = "" ]; then 
        dir=. 
        recurse_flag="" 
else 
        dir=$@ 
        recurse_flag=" -prune " 
fi 
FOUT=slist_temporary_file.out 
/rm -f $FOUT 
find $dir  $recurse_flag -type f -exec ls -ltr {} /; / 
| grep -v "/CVS/" / 
| grep ^/-rw / 
| grep -v //.o / 
| grep -v //.log / 
| grep -v //.out / 
| grep -v //.pid / 
| awk '{ if ($NF != "tags") print $0 }' / 
| awk '{ if ($NF != "a.out") print $0 }' / 
| awk '{ if ($NF != "core") print $0 }' / 
| awk '{ print $NF }' > $FOUT 
aa=`cat $FOUT` 
/rm -f $FOUT 
for ii in $aa ; do 
        ftype=" " 
        ftype=`file $ii | awk '{print $2 }' ` 
        # find . -type f -exec file {} /; 
        # 1)ELF 2)commands 3)[nt]roff, 4)c 5)English  6)executable 
        # 7)ascii 8)current 9)empty 
        # Binaries are ELF, lib.a are current 
        # 
        if [ "$ftype" = "ascii" -o "$ftype" = "commands" / 
                -o "$ftype" = "[nt]roff," -o "$ftype" = "c" -o "$ftype" = "data" / 
                -o "$ftype" = "English" -o "$ftype" = "executable" ]; then 
                pcfile=` echo $ii | cut -d'.' -f1` 
                pcfile=${pcfile}".pc" 
                if [ ! -f $pcfile ]; then 
                        ls -l $ii 
                else 
                        if [ "$ii" = "$pcfile" ]; then 
                                ls -l $ii 
                        fi 
                fi 
        fi 
done; 
#| grep -v ^/-rwx / 
#ls -l | grep ^/-rw | grep -v //.o 
#ls -l | grep ^/-rw | grep -v //.o | awk '{ if ($NF != "tags") print $0 }' 
#ls -l | grep ^/-rw | grep -v ^/-rwx | grep -v //.o |  awk '{ if ($NF != "tags") print $0 }' | awk '{ if ($NF != "core") print $0 }' 
#print "/nDone $cmdname. $cmdname successful" 
#print "/nTip (Usage): $cmdname /n" 
-------------------------------------------------------------------------------- 
4.7 sinfo  
注意 : Korn shell /bin/ksh 在你从Linux CD-ROM 安装 pdksh*.rpm 时就会产生  
请把他存成一般文字档并改变存取权限 chmod a+rx  
-------------------------------------------------------------------------------- 
#!/bin/ksh 
# CVS program sinfo 
# Program to get the status of files in working directory 
cmdname=`basename $0` 
if [ $# -lt 1 ]; then 
        print "/nUsage: $cmdname [file/directory name] " 
        print "For example - " 
        print " $cmdname foo.cpp" 
        print " $cmdname some_directory " 
        print " " 
        exit 
fi 
hme=` echo $HOME | cut -f1 -d' '  ` 
if [ "$hme" = "" ]; then 
        print "/nError: /$HOME is not set!!/n" 
        exit 
fi 
tmpfile=$hme/cvs_sinfo.tmp 
rm -f $tmpfile 
cur_dir=`pwd` 
#echo $cur_dir 
len=${#hme} 
len=$(($len + 2)) 
#echo $len 
subdir=` echo $cur_dir | cut -b $len-2000 ` 
#echo $subdir 
if [ "$subdir" = "" ]; then 
        fdname=$1 
else 
        fdname=$subdir"/"$1 
fi 
# Create subshell 
if [ -f $1 ]; then 
        ( 
        cd $hme 
        clear 
        cvs status $fdname  
        ) 
elif [ -d $1 ]; then 
        ( 
        cd $hme 
        clear 
        echo "  " >> $tmpfile 
        echo "  ****************************************" >> $tmpfile 
        echo "        Overall Status of Directory" >> $tmpfile 
        echo "  ****************************************" >> $tmpfile 
        cvs release $fdname 1>>$tmpfile 2>>$tmpfile << EOF 
Y 
EOF 
        echo "/n   -------------------------------/n" >> $tmpfile 
        aa=`cat $tmpfile | grep ^"M " | awk '{print $2}' ` 
        for ii in $aa  
        do 
                jj="(cd $hme; 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 "/nArgument $1 if not a file or directory" 
        exit 
fi 
-------------------------------------------------------------------------------- 
4.8 slog  
注意 : Korn shell /bin/ksh 在你从Linux CD-ROM 安装 pdksh*.rpm 时就会产生  
请把他存成一般文字档并改变存取权限 chmod a+rx  
-------------------------------------------------------------------------------- 
#!/bin/ksh 
# CVS program slog 
# Program to list history of the file in CVS  
cmdname=`basename $0` 
if [ $# -lt 1 ]; then 
        print "/nUsage: $cmdname  /n" 
        exit 
fi 
# Check if file does not exist.... 
if [ ! -f $1 ]; then 
        print "/nError: $1 is NOT a file. Aborting $cmdname ......" 
        exit 
fi 
cvs log $1 | /usr/local/bin/less 
print "/nDone $cmdname. $cmdname successful" 
#print "/nTip (Usage): $cmdname /n" 
-------------------------------------------------------------------------------- 
4.9 sdif  
注意 : Korn shell /bin/ksh 在你从Linux CD-ROM 安装 pdksh*.rpm 时就会产生  
请把他存成一般文字档并改变存取权限 chmod a+rx  
-------------------------------------------------------------------------------- 
#!/bin/ksh 
# CVS program sdif 
# Program to see difference of the working file with CVS copy 
cmdname=`basename $0` 
Usage() 
{ 
        print "/nUsage: $cmdname  " 
        print "$cmdname -r -r  /n" 
        exit 
} 
FLAG1="" 
FLAG2="" 
OARG1="" 
OARG2="" 
# Command getopt will not supported in next major release.  
# Use getopts instead.  
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 
if [ "$FLAG1" = "" ]; then 
        cvs diff -r HEAD $1 | less 
else 
        cvs diff -$FLAG1 $OARG1 -$FLAG2 $OARG2 $1 | less 
fi 
-------------------------------------------------------------------------------- 
4.10 sadd  
注意 : Korn shell /bin/ksh 在你从Linux CD-ROM 安装 pdksh*.rpm 时就会产生  
请把他存成一般文字档并改变存取权限 chmod a+rx  
-------------------------------------------------------------------------------- 
#!/bin/ksh 
# test 
# CVS program sadd 
# Program to add the file to CVS 
cmdname=`basename $0` 
if [ $# -lt 1 ]; then 
        print "/nUsage: $cmdname  /n" 
        exit 
fi 
# Check if file exists .... 
if [ -f $1 ]; then 
        cvs add $1 
        exit 
fi 
if [ ! -d $1 ]; then 
&n