home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / source / aufstols.zoo / aufstools.1 / shell / dup < prev    next >
Text File  |  1991-02-26  |  513b  |  22 lines
  1. #
  2. set echo
  3. set argc = $#argv
  4. if( $argc > 2 ) then
  5.     set dest = $argv[argc]
  6.     foreach i ( $argv[-(argc-1)] )
  7.         set h1 = $i:h
  8.         if( $h1 == $i ) set h1 = "."
  9.         cp $i $dest
  10.         cp h1/.finderinfo/$i:t $dest/.finderinfo
  11.         cp h1/.resource/$i:t $dest/.resource
  12.     end
  13. else
  14.     set h1 = $argv[1]:h
  15.     if( $h1 == $argv[1] ) set h1 = "."
  16.     set h2 = $argv[2]:h
  17.     if( $h2 == $argv[2] ) set h2 = "."
  18.     cp $argv[1] $argv[2]
  19.     cp $h1/.finderinfo/$argv[1]:t $h2/.finderinfo/$argv[2]:t
  20.     cp $h1/.resource/$argv[1]:t $h2/.resource/$argv[2]:t
  21. endif
  22.