From mboxrd@z Thu Jan  1 00:00:00 1970
From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=)
Subject: Re: [PATCH] distro: Add MIT Kerberos 5.
Date: Wed, 02 Jan 2013 01:19:30 +0100
Message-ID: <87pq1ocu7h.fsf@gnu.org>
References: <201212300009.42579.andreas@enge.fr>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Return-path: <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:57972)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1TqC3S-0006Wu-Jx
	for bug-guix@gnu.org; Tue, 01 Jan 2013 19:19:37 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1TqC3R-0001t5-2j
	for bug-guix@gnu.org; Tue, 01 Jan 2013 19:19:34 -0500
Received: from mail1-relais-roc.national.inria.fr ([192.134.164.82]:29088)
	by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <ludo@gnu.org>)
	id 1TqC3Q-0001sk-SN
	for bug-guix@gnu.org; Tue, 01 Jan 2013 19:19:32 -0500
In-Reply-To: <201212300009.42579.andreas@enge.fr> (Andreas Enge's message of
	"Sun, 30 Dec 2012 00:09:42 +0100")
List-Id: Bug reports for GNU Guix <bug-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/bug-guix>
List-Post: <mailto:bug-guix@gnu.org>
List-Help: <mailto:bug-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=subscribe>
Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
Sender: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
To: Andreas Enge <andreas@enge.fr>
Cc: bug-guix@gnu.org

Andreas Enge <andreas@enge.fr> skribis:

> From 3f69c32b403195337923f3d9f913cd271475105e Mon Sep 17 00:00:00 2001
> From: Andreas Enge <andreas@enge.fr>
> Date: Sun, 30 Dec 2012 00:08:46 +0100
> Subject: [PATCH 7/7] distro: Add MIT Kerberos 5.
>
> * distro/packages/mit-krb5.scm: New file.
> * Makefile.am (MODULES): Add it.
> ---
>  Makefile.am                  |    1 +
>  distro/packages/mit-krb5.scm |   69 ++++++++++++++++++++++++++++++++++++=
++++++
>  2 files changed, 70 insertions(+)
>  create mode 100644 distro/packages/mit-krb5.scm

Applied, thanks!

> +        #:phases
> +        (alist-replace
> +         'unpack
> +         (lambda* (#:key source #:allow-other-keys)
> +          (system* "echo" source)
> +          (let ((inner
> +                 (substring source
> +                            (string-index-right source #\k)
> +                            (string-index-right source #\-))))
> +           (system* "echo" inner)
> +           (and (zero? (system* "tar" "xvf" source))
> +                (zero? (system* "tar" "xvf" (string-append inner ".tar.g=
z")))
> +                (chdir inner)
> +                (chdir "src"))))
> +          %standard-phases))))

... and congrats on finding out the right tricks.  ;-)

Ludo=E2=80=99.