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+)))
 |