home *** CD-ROM | disk | FTP | other *** search
/ Amiga GigaPD 3 / Amiga_GigaPD_v3_3of3.iso / rush / scripts / tolower.rexx < prev   
OS/2 REXX Batch file  |  1993-06-25  |  394b  |  23 lines
  1. /*
  2. ** $VER: tolower.rexx 37.1 (1.5.93)
  3. **
  4. ** Rename a file to lowercase.
  5. **
  6. ** Written by Douglas Keller
  7. */
  8.  
  9. options results
  10. address command
  11.  
  12. parse arg file
  13.  
  14. if file == "" then do
  15.     say "Usage: tolower <filename>"
  16.     exit 10
  17.     end
  18.  
  19. file= strip(file,b)
  20. file= translate(file, "abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  21.  
  22. address command 'rename quiet from ' || file || ' to ' || file
  23.