[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [PATCH] gnu: Add Mr. Rescue.
From: |
Hartmut Goebel |
Subject: |
Re: [PATCH] gnu: Add Mr. Rescue. |
Date: |
Sun, 18 Sep 2016 11:07:06 +0200 |
User-agent: |
Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101 Thunderbird/45.2.0 |
Am 17.09.2016 um 15:24 schrieb 宋文武:
> + (let* ((out (assoc-ref %outputs "out"))
> + (bindir (string-append out "/bin"))
> + (prog (string-append bindir "/mrrescue"))
> + (source (assoc-ref %build-inputs "source"))
> + (guile (string-append (assoc-ref %build-inputs "guile")
> + "/bin/guile"))
> + (love (string-append (assoc-ref %build-inputs "love")
> + "/bin/love")))
> + (mkdir-p bindir)
> + (with-output-to-file prog
> + (lambda ()
> + (format #t "#!~a --no-auto-compile~%!#~%" guile)
> + (write `(execl ,love "mrrescue" ,source))
> + (newline)))
This looks like you are creating a starter-script which is pointing to
the source. This will not work, since the source will not be installed
when installing the package.
You want to
- copy the source file into (string-append out "/share/" ,name)
- create a starter script
I also suggest using a shell-script as starter (instead of a guile
wrapper), since this is more natural for me.
--
Regards
Hartmut Goebel
| Hartmut Goebel | address@hidden |
| www.crazy-compilers.com | compilers which you thought are impossible |