[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Some utility functions
From: |
Ludovic Courtès |
Subject: |
Re: Some utility functions |
Date: |
Tue, 08 Jan 2019 17:30:40 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/26.1 (gnu/linux) |
Hi,
Gábor Boskovits <address@hidden> skribis:
> Ludovic Courtès <address@hidden> ezt írta (időpont: 2019. jan. 5., Szo,
> 22:30):
>>
>> Hi Gábor,
>>
>> Gábor Boskovits <address@hidden> skribis:
>>
>> > I am not sure if I am duplicating functionality here, and also where
>> > these should belong, so I will send them here for discussion.
>>
>> Thanks for sharing! As Alex notes, some of these procedures are
>> more or less available in (guix build utils):
>>
>> > (define (rm-recursive dir)
>>
>> delete-file-recursively
>>
>> > (define (check-header file header)
>>
>> file-header-match
>>
>> > (define (reset-zip-timestamps dir)
>> > "Resets the timestamps of all zip achives under DIR."
>> > (for-each repack-zip
>> > (find-files dir ".*.(zip|jar|diz)$")))
>>
>> That we don’t have (there’s ‘reset-gzip-timestamp’, with a ‘g’.)
>>
>> How do we deal with that currently in Java packages?
>>
>
> We have a phase defiined in the ant build system code, that does just that.
> I was thinking about to moving it to java utils or to a more general
> utils module.
> where we don't yet have ant build system. I don't know if other ecosystems
> would benefit from that or not.
I don’t think we have packages generating zip files outside of Java.
It would be fun to implement ‘reset-zip-timestamps’ entirely in Scheme
(without the unpack/repack phase).
Ludo’.