home *** CD-ROM | disk | FTP | other *** search
/ World of Video / World of Video.iso / gfxprograms / misc / pegger_demo / rexx / copy_destination.peg < prev    next >
Encoding:
Text File  |  1995-02-13  |  719 b   |  24 lines
  1. /* PEGGER ARexx Script to copy the destination file after processing */
  2. /* You need to specify the directory where you want the file to  */
  3. /* go including the trailing '/' if needed in the variable copyto */
  4.  
  5. copyto = "WORK:"
  6.  
  7. /*    And now we can get the source file name and destination file name */
  8. /* For CJPEG the source is an image file, and the destination the JPEG file */
  9. /* For DJPEG the source is the JPEG file, and the destination is the image file */
  10.  
  11. arg source,dest
  12.  
  13. last = LASTPOS( "/",dest )
  14.  
  15. if( last == 0 ) then do
  16.     last = LASTPOS( ":",dest )
  17.     end
  18. if( last > 0 ) then do
  19.     last = last + 1
  20.     file = SUBSTR( dest, last )
  21.     say 'File: ' || file
  22.     ADDRESS COMMAND 'copy ' || dest || ' ' || copyto || file
  23.     end
  24.