[debbugs-tracker] bug#30708: closed ([PATCH] utils: Add helper method to list subdirectories.)

[GNU bug Tracking System]

Your message dated Tue, 06 Mar 2018 11:33:44 +0100
with message-id <address@hidden>
and subject line Re: [bug#30708] [PATCH] utils: Add helper method to list 
subdirectories.
has caused the debbugs.gnu.org bug report #30708,
regarding [PATCH] utils: Add helper method to list subdirectories.
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
30708: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=30708
GNU Bug Tracking System
Contact address@hidden with problems

--- Begin Message --- Subject: [PATCH] utils: Add helper method to list subdirectories. Date: Sun, 04 Mar 2018 23:15:03 -0500 User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.3 (gnu/linux)

Hello Guix!

This adds a method useful to list subdirectories, which I am using to
list bundled copies of libraries (and delete them), for example.

Thank you,

Maxim

0001-utils-Add-helper-method-to-list-subdirectories.patch
Description: Text Data

--- End Message ---

> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: [bug#30708] [PATCH] utils: Add helper method to list subdirectories.
>
>
>
>
> Date: 
>
> Tue, 06 Mar 2018 11:33:44 +0100
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/25.3 (gnu/linux)
>
>
>
>
> Hi Maxim,
>
> Maxim Cournoyer <address@hidden> skribis:
>
> > Although now that you've made me see the light (scandir), I could
> > rewrite the whole thing using:
> >
> >           (lambda _
> >              ;; The build system doesn't allow us to unbundle the following
> >              ;; libraries.
> >              (let ((keep-dirs '("nova-simd" "nova-tt" "hidapi" "TLSF-2.4.6"
> >                                 "oscpack_1_1_0" "." "..")))
> >                (with-directory-excursion "./external_libraries"
> >                  (for-each
> >                   delete-file-recursively
> >                   (scandir "."
> >                            (lambda (x)
> >                              (and (eq? (stat:type (stat x)) 'directory)
> >                                   (not (member (basename x) keep-dirs))))))))
> >
> > So, this patch can go to the recycle bin. Thanks! :)
>
> Well, I’m glad that it works for you.  :-)
>
> Thanks,
> Ludo’.
>
>
> --- End Message ---