From de09416868b7dab1d44313bf2b9ab201efe16e62 Mon Sep 17 00:00:00 2001
From: Manolis Ragkousis <manolis837@gmail.com>
Date: Fri, 25 Apr 2014 20:56:23 +0000
Subject: [PATCH] gnu: base: Add Hurd glibc headers.

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

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index 09cbe89..142e2f8 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -508,6 +508,29 @@ with the Linux kernel.")
    (license lgpl2.0+)
    (home-page "http://www.gnu.org/software/libc/")))
 
+(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)
+           ((#: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.2