From mboxrd@z Thu Jan 1 00:00:00 1970 From: Hartmut Goebel Subject: Re: [PATCH] gnu: Add Mr. Rescue. Date: Sun, 18 Sep 2016 11:07:06 +0200 Message-ID: <879cc18c-49e4-f1fe-e67f-b0bb2383010e@crazy-compilers.com> References: <20160917132405.17071-1-iyzsong@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:39168) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1blY4C-0000Mr-Bc for guix-devel@gnu.org; Sun, 18 Sep 2016 05:07:17 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1blY47-0002Vt-Hf for guix-devel@gnu.org; Sun, 18 Sep 2016 05:07:14 -0400 Received: from mail-out.m-online.net ([212.18.0.10]:48457) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1blY47-0002Ui-BT for guix-devel@gnu.org; Sun, 18 Sep 2016 05:07:11 -0400 Received: from frontend01.mail.m-online.net (unknown [192.168.8.182]) by mail-out.m-online.net (Postfix) with ESMTP id 3scNSX2kgKz3hkK2 for ; Sun, 18 Sep 2016 11:07:08 +0200 (CEST) Received: from localhost (dynscan1.mnet-online.de [192.168.6.68]) by mail.m-online.net (Postfix) with ESMTP id 3scNSX19vlzvkt4 for ; Sun, 18 Sep 2016 11:07:08 +0200 (CEST) Received: from mail.mnet-online.de ([192.168.8.182]) by localhost (dynscan1.mail.m-online.net [192.168.6.68]) (amavisd-new, port 10024) with ESMTP id Yo3eDtr2FB_k for ; Sun, 18 Sep 2016 11:07:07 +0200 (CEST) Received: from hermia.goebel-consult.de (ppp-188-174-148-135.dynamic.mnet-online.de [188.174.148.135]) (using TLSv1 with cipher DHE-RSA-CAMELLIA256-SHA (256/256 bits)) (No client certificate requested) by mail.mnet-online.de (Postfix) with ESMTPS for ; Sun, 18 Sep 2016 11:07:07 +0200 (CEST) Received: from thisbe.goebel-consult.de (hermia.goebel-consult.de [192.168.110.7]) by hermia.goebel-consult.de (Postfix) with ESMTP id 5250460375 for ; Sun, 18 Sep 2016 11:07:06 +0200 (CEST) In-Reply-To: <20160917132405.17071-1-iyzsong@gmail.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org Am 17.09.2016 um 15:24 schrieb =E5=AE=8B=E6=96=87=E6=AD=A6: > + (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 "guil= e") > + "/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. --=20 Regards Hartmut Goebel | Hartmut Goebel | h.goebel@crazy-compilers.com | | www.crazy-compilers.com | compilers which you thought are impossible |