[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: A utility for renaming old-style file names
This page is part of the web mail archives of SRFI 103 from before July 7th, 2015. The new archives for SRFI 103 contain all messages, not just those from before July 7th, 2015.
- To: srfi-103@xxxxxxxxxxxxxxxxx, srfi-104@xxxxxxxxxxxxxxxxx
- Subject: Re: A utility for renaming old-style file names
- From: Derick Eddington <derick.eddington@xxxxxxxxx>
- Date: Sat, 26 Dec 2009 14:54:54 -0800
- Delivered-to: srfi-103@xxxxxxxxxxxxxxxxx
- Dkim-signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:received:received:subject:from:to:in-reply-to :references:content-type:date:message-id:mime-version:x-mailer :content-transfer-encoding; bh=xIhJcs/SJJQZeRsLKj7KRTACOEvCc50LIKsJOprKI3A=; b=WNemE0TN6BCPr5UA4yB3MQozr2UM+mlKOTQK/3KFoas1ItB2CYmHm4NYCBd2TtXG6D SbJQW4OPPPUwDYTjELUzQ7IHzQjhITu1nzRCLjzx4+uzRlwuvLgycX0d5U0Hd725NjJ5 +snTu36hs2+JbovMx4drTjkOHr8uOa4rJTcL0=
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=subject:from:to:in-reply-to:references:content-type:date:message-id :mime-version:x-mailer:content-transfer-encoding; b=J6V34M7+iAYA4RG1T54h68bS5/eH5YSLhBLhY6TgAf0dUW8aF91LYD0pk033L1s8Z5 bLV+MBbdILCbIFXA/2QmZ5tG2jOmn+LChDL113L3g6RlfCgzzpacaUpWyWX6BqyNgQEK wFhEttX+bWPYT7ae8u7fM4FTr8Soc04XddOrk=
- In-reply-to: <1260598781.2650.125.camel@eep>
- References: <4B226D34.7040506@xxxxxxxxxxx> <1260598781.2650.125.camel@eep>
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
----------------------------------------------------------------