[PATCH 1/4] gnu: Add imake.

[Eric Bavier]

>From f311e2b1a081e4fd6c8bd3c3b9b2c2654d75f53c Mon Sep 17 00:00:00 2001
From: Eric Bavier <address@hidden>
Date: Fri, 10 Oct 2014 13:06:33 -0500
Subject: [PATCH 1/4] gnu: Add imake.

* gnu/packages/xorg.scm (imake): New variable.
---
 gnu/packages/xorg.scm |   64 +++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 62 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm
index 137ab44..d61124f 100644
--- a/gnu/packages/xorg.scm
+++ b/gnu/packages/xorg.scm
@@ -191,8 +191,68 @@ tracking.")
 
 ;; compiles only on macos
 ;; (define-public applewmproto
-  
-  
+
+
+(define xorg-cf-files
+  (origin
+    (method url-fetch)
+    (uri "mirror://xorg/individual/util/xorg-cf-files-1.0.5.tar.bz2")
+    (sha256
+     (base32
+      "1m3ypq0xcy46ghxc0svl1rbhpy3zvgmy0aa2mn7w7v7d8d8bh8zd"))))
+
+(define-public imake
+  (package
+    (name "imake")
+    (version "1.0.7")
+    (source
+     (origin
+      (method url-fetch)
+      (uri (string-append "mirror://xorg/individual/util/imake-"
+                          version ".tar.bz2"))
+      (sha256
+       (base32
+        "0zpk8p044jh14bis838shbf4100bjg7mccd7bq54glpsq552q339"))))
+    (build-system gnu-build-system)
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
+    (inputs
+      `(("xorg-cf-files" ,xorg-cf-files)
+        ("xproto" ,xproto)))
+    (arguments
+     `(#:phases
+       (alist-cons-after
+        'install 'install-data
+        (lambda* (#:key inputs outputs #:allow-other-keys)
+          (let ((cf-files (assoc-ref inputs "xorg-cf-files"))
+                (out (assoc-ref outputs "out"))
+                (unpack (assoc-ref %standard-phases 'unpack))
+                (patch-source-shebangs
+                 (assoc-ref %standard-phases 'patch-source-shebangs)))
+            (mkdir "xorg-cf-files")
+            (with-directory-excursion "xorg-cf-files"
+              (apply unpack (list #:source cf-files))
+              (apply patch-source-shebangs (list #:source cf-files))
+              (substitute* '("mingw.cf" "Imake.tmpl" "nto.cf" "os2.cf"
+                             "linux.cf" "Amoeba.cf" "cygwin.cf")
+                (("/bin/sh") (which "bash")))
+              (and (zero? (system* "./configure"
+                                   (string-append "SHELL=" (which "bash"))
+                                   (string-append "--prefix=" out)))
+                   (zero? (system* "make" "install"))))))
+        %standard-phases)))
+    (home-page "http://www.x.org";)
+    (synopsis "Source code configuration and build system")
+    (description
+     "Imake is a deprecated source code configuration and build system which
+has traditionally been supplied by and used to build the X Window System in
+X11R6 and previous releases.  As of the X Window System X11R7 release, the X
+Window system has switched to using GNU autotools as the primary build system,
+and the Imake system is now deprecated, and should not be used by new software
+projects.  Software developers are encouraged to migrate software to the GNU
+autotools system.")
+    (license license:x11)))
+
 (define-public bdftopcf
   (package
     (name "bdftopcf")
-- 
1.7.9.5

-- 
Eric Bavier