[PATCH] gnu: base: Add Glibc-Hurd Headers.

[Manolis Ragkousis <manolis837@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1 bytes --]



[-- Attachment #2: 0001-gnu-base-Add-Glibc-Hurd-Headers.patch --]
[-- Type: text/x-patch, Size: 1934 bytes --]

From 1aa976c666db720008d3e77a7bccdfbae6b01962 Mon Sep 17 00:00:00 2001
From: Manolis Ragkousis <manolis837@gmail.com>
Date: Tue, 3 Jun 2014 00:11:47 +0000
Subject: [PATCH] gnu: base: Add Glibc-Hurd Headers.

* gnu/packages/base.scm (glibc/hurd-headers): New variable.
---
 gnu/packages/base.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index 8faf797..ef4c4ae 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -646,6 +646,36 @@ with the Linux kernel.")
                       (zero? (system* "make" "localedata/install-locales")))
                     %standard-phases)))))))
 
+(define-public glibc/hurd-headers
+  (package (inherit glibc/hurd)
+    (name "glibc-hurd-headers")
+    (outputs `("out"))
+    (arguments
+     `(#:tests? #f
+       ,@(substitute-keyword-arguments (package-arguments glibc/hurd)
+           ((#:configure-flags _)
+            `(list "--enable-add-ons"
+                   "--host=i686-pc-gnu"
+                   ;; Installs NIS and RPC related headers that
+                   ;; are not installed by default
+                   "--enable-obsolete-rpc"))
+           ((#:phases _)
+            '(alist-replace
+              'install
+              (lambda* (#:key outputs #:allow-other-keys)
+                (let ((out (assoc-ref outputs "out")))
+                  (zero? (system* "make" "install-headers"))
+                  (close-port (open-output-file 
+                               (string-append out "/include/gnu/stubs.h")))))
+              (alist-delete
+               'build
+               (alist-cons-before
+                'configure 'pre-configure
+                (lambda _
+                  (substitute* "configure"
+                    (("/bin/pwd") "pwd")))
+                %standard-phases)))))))))
+
 (define-public tzdata
   (package
     (name "tzdata")
-- 
1.9.3