Re: [PATCH 4/4] gnu: Add transfig.

[ludo@gnu.org (Ludovic Courtès)]

Eric Bavier <ericbavier@gmail.com> skribis:

> From ece0a8dec5d95ccf84156e9e6c0c582639163b1e Mon Sep 17 00:00:00 2001
> From: Eric Bavier <bavier@member.fsf.org>
> Date: Fri, 10 Oct 2014 13:11:22 -0500
> Subject: [PATCH 4/4] gnu: Add transfig.
>
> * gnu/packages/xfig.scm (transfig): New variable.

OK!

> +        (lambda* (#:key inputs outputs #:allow-other-keys)
> +          (let ((imake (assoc-ref inputs "imake"))
> +                (out   (assoc-ref outputs "out")))
> +            (substitute* '("fig2dev/Imakefile"
> +                           "transfig/Imakefile")
> +              (("XCOMM (BINDIR = )[[:graph:]]*" _ front)
> +               (string-append front out "/bin"))
> +              (("XCOMM USEINLINE") "USEINLINE")
> +              ;; The variable name is deceptive.  The directory is used as an
> +              ;; installation path for bitmaps.
> +              (("(XFIGLIBDIR =[[:blank:]]*)[[:graph:]]*" _ front)
> +               (string-append front out "/lib"))
> +              (("(XPMLIBDIR = )[[:graph:]]*" _ front)
> +               (string-append front (assoc-ref inputs "libxpm") "/lib"))
> +              (("(XPMINC = -I)[[:graph:]]*" _ front)
> +               (string-append front (assoc-ref inputs "libxpm") "/include/X11"))
> +              (("/usr/local/lib/fig2dev") (string-append out "/lib")))

I feel you’ll end up writing an ‘imake-build-system’.  :-)

Thanks,
Ludo’.