git.oblomov.eu Git - ohcount/blob - test/expected_dir/rebol.r

   1 rebol   comment ;; =================================================
   2 rebol   comment ;; Script: new-suffix.r
   3 rebol   comment ;; downloaded from: www.REBOL.org
   4 rebol   comment ;; on: 1-Jun-2011
   5 rebol   comment ;; at: 21:19:08.38986 UTC
   6 rebol   comment ;; owner: carl [script library member who can update
   7 rebol   comment ;; this script]
   8 rebol   comment ;; =================================================
   9 rebol   code    REBOL [
  10 rebol   code        Title: "Change File Extensions (Suffix)"
  11 rebol   code        File: %new-suffix.r
  12 rebol   code        Author: "Carl Sassenrath"
  13 rebol   code        Date: 25-Jan-2005
  14 rebol   code        Purpose: {
  15 rebol   code            Change the file extension (suffix) for files with a specific extension.
  16 rebol   code            For example, change all .txt files to .r files in the current directory.
  17 rebol   code            Displays a list of changes before it makes them.
  18 rebol   code        }
  19 rebol   code        Warning: "Back up your files first, just in case!"
  20 rebol   code        License: "BSD - Use at your own risk."
  21 rebol   code        Library: [
  22 rebol   code            level: 'beginner
  23 rebol   code            platform: 'all
  24 rebol   code            type: [tool]
  25 rebol   code            domain: [files]
  26 rebol   code            tested-under: none
  27 rebol   code            support: none
  28 rebol   code            license: 'bsd
  29 rebol   code            see-also: none
  30 rebol   code        ]
  31 rebol   code    ]
  32 rebol   blank
  33 rebol   code    from-suffix: %.txt
  34 rebol   code    to-suffix:   %.r
  35 rebol   blank
  36 rebol   code    bulk-rename: func [confirmed] [
  37 rebol   code        foreach file load %./ [
  38 rebol   code            if all [
  39 rebol   code                not find file #"/" ; (ignore directories)
  40 rebol   code                from-suffix = find/last file #"."
  41 rebol   code            ][
  42 rebol   code                new-file: copy file
  43 rebol   code                append clear find/last new-file #"." to-suffix
  44 rebol   code                either confirmed [
  45 rebol   code                    print ["Renaming" file "to" new-file]
  46 rebol   code                    rename file new-file
  47 rebol   code                ][
  48 rebol   code                    print ["Will rename" file "to" new-file]
  49 rebol   code                ]
  50 rebol   code            ]
  51 rebol   code        ]
  52 rebol   code    ]
  53 rebol   blank
  54 rebol   code    bulk-rename false
  55 rebol   code    if not confirm "Are you sure you want to rename all those files?" [
  56 rebol   code        quit
  57 rebol   code    ]
  58 rebol   code    bulk-rename true
  59 rebol   code    ask "Done. Press enter."