Mercurial > hg > xemacs-beta
comparison vms/allrename.com @ 0:376386a54a3c r19-14
Import from CVS: tag r19-14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:45:50 +0200 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:376386a54a3c |
|---|---|
| 1 $! Command file to rename many files at once | |
| 2 $! performing a global string substitution on each name. | |
| 3 $!Example: | |
| 4 $! @allrename [...] "-" "_" | |
| 5 $!changes each `-' in a name into a `_'. | |
| 6 $! | |
| 7 $!The device and directory names are not altered. | |
| 8 $! | |
| 9 $ p2_length = f$length (p2) | |
| 10 $ p3_length = f$length (p3) | |
| 11 $ | |
| 12 $file_loop: | |
| 13 $ full_name = f$search("''p1'*.*;*") | |
| 14 $ if ("''full_name'" .eqs. "") then goto done | |
| 15 $ original_device = f$parse("''full_name'",,,"DEVICE") | |
| 16 $ original_dir = f$parse("''full_name'",,,"DIRECTORY") | |
| 17 $ original_file_name = f$parse("''full_name'",,,"NAME") | |
| 18 $ original_file_type = f$parse("''full_name'",,,"TYPE") | |
| 19 $ original_file_version = f$parse("''full_name'",,,"VERSION") | |
| 20 $ original_file = original_file_name - | |
| 21 + original_file_type + original_file_version | |
| 22 $ new_file = original_file | |
| 23 $ something_done = "false" | |
| 24 $name_loop: | |
| 25 $ max_length = f$length(new_file) | |
| 26 $ index = f$locate("''p2'", new_file) | |
| 27 $ if (index .ge. max_length) then goto end_of_name | |
| 28 $ something_done = "true" | |
| 29 $ new_file = f$extract (0,index,new_file) + p3 - | |
| 30 + f$extract(index+p2_length,max_length-index,new_file) | |
| 31 $ goto name_loop | |
| 32 $end_of_name: | |
| 33 $ original_file = original_device + original_dir + original_file | |
| 34 $ new_file = original_device + original_dir + new_file | |
| 35 $ if (something_done) then - | |
| 36 rename 'original_file' 'new_file' | |
| 37 $ goto file_loop | |
| 38 $done: | |
| 39 $ exit |