From: Arun Isaac <arunisaac@systemreboot.net>
To: "Ludovic Courtès" <ludo@gnu.org>
Cc: 28281@debbugs.gnu.org
Subject: [bug#28281] [PATCH] gnu: Add os-prober.
Date: Sun, 10 Sep 2017 21:32:19 +0530 [thread overview]
Message-ID: <d29994c1.ADkAAC_e-_EAAAAAAAAAAAPmNSgAAAACwQwAAAAAAAW9WABZtWIT@mailjet.com> (raw)
In-Reply-To: <874lsa900c.fsf@gnu.org>
>>> + (replace 'install
>>> + (lambda* (#:key outputs #:allow-other-keys)
>>> + (define (find-files-non-recursive directory)
>>> + (find-files directory
>>> + (lambda (file stat)
>>> + (string-match (string-append "^" directory "/[^/]*$")
>>> + file))
>>> + #:directories? #t))
>>
>> Do you think it would be a good idea to add a #:recursive? keyword
>> argument to `find-files' in (guix build utils), instead of creating this
>> `find-files-non-recursive-function' here?
>
> Hmm I didn’t understand that it *had* to be non-recursive. Does it
> really make a difference?
I am trying to do
cp -r /some/directory/* destination
To do this, I used `find-files-non-recursive' to get all files in
/some/directory/ and applied `copy-recursively' on each one of them.
Do you have a better way of doing this in mind?
> If it does, then ‘scandir’ from (ice-9 ftw) would be the thing. Sorry
> if I led you in the wrong direction. :-/
Yes, scandir could be used. But, it also returns "." and "..", and I'll
have to filter them out. So code length, or clarity-wise, it won't be
much of an improvement. That is why I thought adding a #:recursive?
argument to `find-files' would be nice.
>>> + (let* ((out (assoc-ref outputs "out"))
>>> + (bin (string-append out "/bin"))
>>> + (lib (string-append out "/lib"))
>>> + (share (string-append out "/share")))
>>> + (for-each (cut install-file <> bin)
>>> + (list "linux-boot-prober" "os-prober"))
>>> + (install-file "newns" (string-append lib "/os-prober"))
>>> + (install-file "common.sh" (string-append share "/os-prober"))
>>> + (install-file "os-probes/mounted/powerpc/20macosx"
>>> + (string-append lib "/os-probes/mounted"))
>>> + (for-each
>>> + (lambda (directory)
>>> + (for-each
>>> + (lambda (file)
>>> + (let ((destination (string-append lib "/" directory
>>> + "/" (basename file))))
>>> + (mkdir-p (dirname destination))
>>> + (copy-recursively file destination)))
>>> + (append (find-files-non-recursive (string-append directory "/common"))
>>> + (find-files-non-recursive (string-append directory "/x86")))))
>>> + (list "os-probes" "os-probes/mounted" "os-probes/init"
>>> + "linux-boot-probes" "linux-boot-probes/mounted"))
>>> + #t))))))
next prev parent reply other threads:[~2017-09-10 16:04 UTC|newest]
Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <20170909171635.7968-1-arunisaac@systemreboot.net>
2017-09-09 17:24 ` [bug#28281] [PATCH] gnu: Add os-prober Arun Isaac
[not found] ` <e7d9c9ca.AEQAP00oGCwAAAAAAAAAAAOzWv8AAAACwQwAAAAAAAW9WABZtCPY@mailjet.com>
2017-09-10 13:05 ` Ludovic Courtès
2017-09-10 16:02 ` Arun Isaac [this message]
[not found] ` <403302d1.ADkAAC_e-_IAAAAAAAAAAAOzWv8AAAACwQwAAAAAAAW9WABZtWIT@mailjet.com>
2017-09-10 20:41 ` Ludovic Courtès
2017-09-10 23:35 ` Arun Isaac
[not found] ` <5dc91a20.AEAAPzHdNuYAAAAAAAAAAAOzWv8AAAACwQwAAAAAAAW9WABZtcxv@mailjet.com>
2017-09-11 7:28 ` Ludovic Courtès
2017-09-11 17:23 ` Arun Isaac
[not found] ` <207deec4.AEAAP2Xyu24AAAAAAAAAAAOzWv8AAAACwQwAAAAAAAW9WABZtsaB@mailjet.com>
2017-09-11 20:20 ` Ludovic Courtès
2017-09-13 23:22 ` bug#28281: " Arun Isaac
2017-08-29 19:06 [bug#28281] " Arun Isaac
2017-08-31 13:25 ` Ludovic Courtès
2017-08-31 17:41 ` Arun Isaac
2017-09-09 17:16 ` Arun Isaac
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=d29994c1.ADkAAC_e-_EAAAAAAAAAAAPmNSgAAAACwQwAAAAAAAW9WABZtWIT@mailjet.com \
--to=arunisaac@systemreboot.net \
--cc=28281@debbugs.gnu.org \
--cc=ludo@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).