130 lines
		
	
	
	
		
			4.5 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			130 lines
		
	
	
	
		
			4.5 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
| ;;; GNU Guix --- Functional package management for GNU
 | |
| ;;; Copyright © 2014, 2015 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
 | |
| ;;;
 | |
| ;;; This file is part of GNU Guix.
 | |
| ;;;
 | |
| ;;; GNU Guix is free software; you can redistribute it and/or modify it
 | |
| ;;; under the terms of the GNU General Public License as published by
 | |
| ;;; the Free Software Foundation; either version 3 of the License, or (at
 | |
| ;;; your option) any later version.
 | |
| ;;;
 | |
| ;;; GNU Guix is distributed in the hope that it will be useful, but
 | |
| ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
 | |
| ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 | |
| ;;; GNU General Public License for more details.
 | |
| ;;;
 | |
| ;;; You should have received a copy of the GNU General Public License
 | |
| ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 | |
| 
 | |
| (define-module (gnu packages hurd)
 | |
|   #:use-module (guix licenses)
 | |
|   #:use-module (guix download)
 | |
|   #:use-module (guix packages)
 | |
|   #:use-module (guix build-system gnu)
 | |
|   #:use-module (gnu packages flex)
 | |
|   #:use-module (gnu packages bison)
 | |
|   #:use-module (gnu packages perl)
 | |
|   #:use-module (gnu packages autotools))
 | |
| 
 | |
| (define-public gnumach-headers
 | |
|   (package
 | |
|     (name "gnumach-headers")
 | |
|     (version "1.5")
 | |
|     (source
 | |
|      (origin
 | |
|       (method url-fetch)
 | |
|       (uri (string-append "mirror://gnu/gnumach/gnumach-"
 | |
|                           version ".tar.gz"))
 | |
|       (sha256
 | |
|        (base32
 | |
|         "0wsf57q4h6xl2jn28d423qx7zplmhpnf9ssm4f1c0sf8513xm81j"))))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments
 | |
|     `(#:phases (alist-replace
 | |
|                 'install
 | |
|                 (lambda _
 | |
|                   (zero?
 | |
|                    (system* "make" "install-data")))
 | |
|                 (alist-delete
 | |
|                  'build
 | |
|                  %standard-phases))
 | |
| 
 | |
|       ;; GNU Mach supports only IA32 currently, so cheat so that we can at
 | |
|       ;; least install its headers.
 | |
|       #:configure-flags '("--build=i686-pc-gnu")
 | |
| 
 | |
|       #:tests? #f))
 | |
|     (home-page "https://www.gnu.org/software/hurd/microkernel/mach/gnumach.html")
 | |
|     (synopsis "GNU Mach kernel headers")
 | |
|     (description
 | |
|      "Headers of the GNU Mach kernel.")
 | |
|     (license gpl2+)))
 | |
| 
 | |
| (define-public mig
 | |
|   (package
 | |
|     (name "mig")
 | |
|     (version "1.5")
 | |
|     (source
 | |
|      (origin
 | |
|       (method url-fetch)
 | |
|       (uri (string-append "mirror://gnu/mig/mig-"
 | |
|                           version ".tar.gz"))
 | |
|       (sha256
 | |
|        (base32
 | |
|         "13r1pg8icyc0pl082z7k36i440pr1f3nr7ahig3rrc0r7qndqmk9"))))
 | |
|     (build-system gnu-build-system)
 | |
|     (inputs `(("gnumach-headers" ,gnumach-headers)))
 | |
|     (native-inputs
 | |
|      `(("flex" ,flex)
 | |
|        ("bison" ,bison)))
 | |
|     (arguments `(#:tests? #f))
 | |
|     (home-page "http://www.gnu.org/software/hurd/microkernel/mach/mig/gnu_mig.html")
 | |
|     (synopsis "Mach 3.0 interface generator for the Hurd")
 | |
|     (description
 | |
|      "GNU MIG is the GNU distribution of the Mach 3.0 interface generator
 | |
| MIG, as maintained by the GNU Hurd developers for the GNU project.
 | |
| You need this tool to compile the GNU Mach and GNU Hurd distributions,
 | |
| and to compile the GNU C library for the Hurd.  Also, you will need it
 | |
| for other software in the GNU system that uses Mach-based inter-process
 | |
| communication.")
 | |
|     (license gpl2+)))
 | |
| 
 | |
| (define-public hurd-headers
 | |
|   (package
 | |
|     (name "hurd-headers")
 | |
|     (version "0.6")
 | |
|     (source (origin
 | |
|               (method url-fetch)
 | |
|               (uri (string-append "mirror://gnu/hurd/hurd-"
 | |
|                                   version ".tar.gz"))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "059lbspbpcjpcq5jf98f47jw9sm0ngs3x6phxax53m3rwca1fk7y"))))
 | |
|     (build-system gnu-build-system)
 | |
|     (native-inputs
 | |
|      `(;; Autoconf shouldn't be necessary but there seems to be a bug in the
 | |
|        ;; build system triggering its use.
 | |
|        ("autoconf" ,autoconf)
 | |
| 
 | |
|        ("mig" ,mig)))
 | |
|     (arguments
 | |
|      `(#:phases (alist-replace
 | |
|                  'install
 | |
|                  (lambda _
 | |
|                    (zero? (system* "make" "install-headers" "no_deps=t")))
 | |
|                  (alist-delete 'build %standard-phases))
 | |
| 
 | |
|        #:configure-flags '(;; Pretend we're on GNU/Hurd; 'configure' wants
 | |
|                            ;; that.
 | |
|                            "--build=i686-pc-gnu"
 | |
| 
 | |
|                            ;; Reduce set of dependencies.
 | |
|                            "--without-parted")
 | |
| 
 | |
|        #:tests? #f))
 | |
|     (home-page "http://www.gnu.org/software/hurd/hurd.html")
 | |
|     (synopsis "GNU Hurd headers")
 | |
|     (description
 | |
|      "This package provides C headers of the GNU Hurd, used to build the GNU C
 | |
| Library and other user programs.")
 | |
|     (license gpl2+)))
 |