home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / exampleCode / irix / scripts / rcs / Comprcs < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.7 KB  |  76 lines
  1. #! /bin/csh -f
  2. #
  3. # $Header: /usr/people/carlson/scripts/RCS/Comprcs,v 1.3 91/07/27 19:57:33 chris Exp $
  4. #
  5. # Comprcs    Compare RCS files with files in another directory.
  6. #
  7. # Synopsis:
  8. #    Comprcs [-d <dir>] [-<opts>] [<file>...]
  9. #
  10. # Description:
  11. #    Performs an rcsdiff on all files in the local RCS directory with
  12. #    files in the directory specified.  If no directory specified, it
  13. #    will check if an environment variable COMPRDIR exists and use the
  14. #    directory there.  If neither exists, assumes the local directory.
  15. #
  16. #    If a file is provided, checks only this file.
  17. #
  18. # Revision History:
  19. #    $Log:    Comprcs,v $
  20. # Revision 1.3  91/07/27  19:57:33  chris
  21. # Fixed problem with recognizing options.
  22. # Fixed problem with no COMPRDIR environment variable defined.
  23. # 
  24. # Revision 1.2  91/07/27  19:51:52  chris
  25. # Modified to allow no directory specification.  Will assume current
  26. #   directory.
  27. # Added -f flag to /bin/csh.
  28. # Added RCS tags.
  29. # 
  30. #---------------------------------------------------------------------------
  31.  
  32. set afile = ""
  33. set dir = ""
  34. set opts = ""
  35.  
  36. while ( "$1" != "" )
  37.     if ( "$1" == "-d" ) then
  38.     set dir = $2
  39.     shift; shift
  40.     else
  41.     set x = `echo "$1" | grep "^-.*"`
  42.     if ( "$x" != "" ) then
  43.         set opts = ($opts $1)
  44.         shift
  45.     else
  46.         set afile = ($afile $1)
  47.         shift
  48.     endif
  49.     endif
  50. end
  51.  
  52. if ( "$dir" == "" ) then
  53.     if ( $?COMPRDIR ) then
  54.     set dir = $COMPRDIR
  55.     endif
  56. endif
  57.  
  58. if ( "$dir" == "" ) set dir = .
  59.  
  60. if ( "$afile" == "" ) then
  61.     foreach rcs_file ( RCS/* )
  62.     set base = `basename $rcs_file ,v`
  63.     echo "***--- rcsdiff $dir/$base"
  64.     rcsdiff $opts $dir/$base
  65.     end
  66. else
  67.     foreach file ( $afile )
  68.     echo "***--- rcsdiff $dir/$file"
  69.     rcsdiff $opts $dir/$file
  70.     end
  71. endif
  72.  
  73. ### Local Variables:
  74. ### auto-fill-hook: nil
  75. ### End:
  76.