[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: A utility for renaming old-style file names



On Fri, 2009-12-11 at 22:19 -0800, Derick Eddington wrote:

> Note that rename-old-style.r6rs-prog can easily be modified to rename
> other extensions such as .sps to .r6rs-prog.

Here's how to do that:

--- rename-old-style.r6rs-prog	2009-11-23 12:32:22.000000000 -0800
+++ rename-old-style.r6rs-prog	2009-12-26 14:44:56.000000000 -0800
@@ -112,9 +112,9 @@
    '(: ($ (**? 1 #F any))               ;; library name last part
        (? ($ (+ #\- (+ (/ #\0 #\9)))))  ;; PLT-style version
        (? #\. ($ (+ (~ #\.))))          ;; Scheme system specific
-       ".sls")))
+       ".sps")))
 
-(define ext "r6rs-lib")
+(define ext "r6rs-prog")
 
 (define (main dir rename-command delete-command)
   (define (rename-dir)


-- 
: Derick
----------------------------------------------------------------