Re: Some utility functions

["Ludovic Courtès" <ludo@gnu.org>]

Hi,

Gábor Boskovits <boskovits@gmail.com> skribis:

> Ludovic Courtès <ludo@gnu.org> ezt írta (időpont: 2019. jan. 5., Szo, 22:30):
>>
>> Hi Gábor,
>>
>> Gábor Boskovits <boskovits@gmail.com> 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’.