Eric Bavier <ericbav...@gmail.com> skribis:
> From ece0a8dec5d95ccf84156e9e6c0c582639163b1e Mon Sep 17 00:00:00 2001
> From: Eric Bavier <bav...@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’.
