Re: execlp

[Thien-Thi Nguyen]

() Paul Emsley <address@hidden>
() Wed, 23 Nov 2011 12:16:47 +0000

   What is some-function, where some-function works like this:

   (some-function "ls")
   -> "/bin/ls"  (I'd settle for #t")
   (some-function "asdfasdf")
   -> #f

You can try something like:

(use-modules (srfi srfi-13) (srfi srfi-14))

(define (some-function program)
  (and=> (search-path (string-tokenize (getenv "PATH")
                                       (char-set-complement
                                        (char-set #\:)))
                      program)
         (lambda (filename)
           (and (access? filename X_OK)
                filename))))