Return to allrename.com CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55

Annotation of 43BSDReno/contrib/emacs-18.55/allrename.com, revision 1.1.1.1

1.1       root        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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.