mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-29 19:30:36 +02:00
maint: Move Guix files to '.guix'.
* build-aux/guix: Rename to... * .guix/modules: ... this. * .guix-channel: Adjust accordingly. * guix.scm: Likewise. * build-aux/manifest.scm: Rename to... * .guix/manifest.scm: ... this. * Makefile.am (EXTRA_DIST): Adjust accordingly.
This commit is contained in:
Ludovic Courtès
parent
7847683d05
commit
2b73fe8169
5 changed files with 4 additions and 4 deletions
|
|
@ -1,195 +0,0 @@
|
|||
;;; Copyright © 2023 Free Software Foundation, Inc.
|
||||
;;;
|
||||
;;; This file is part of GNU Guile.
|
||||
;;;
|
||||
;;; GNU Guile 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 Guile 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 Guile. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;; This file defines a Guix package. It can be used to spawn an
|
||||
;; interactive development environment:
|
||||
;;
|
||||
;; guix shell
|
||||
;;
|
||||
;; Or it can be used to build Guile from a checkout in an isolated
|
||||
;; environment:
|
||||
;;
|
||||
;; guix build -f guix.scm
|
||||
;;
|
||||
;; Likewise, you may cross-compile it:
|
||||
;;
|
||||
;; guix build -f guix.scm --target=x86_64-w64-mingw32
|
||||
;;
|
||||
;; … or perform a native build for another architecture, assuming
|
||||
;; either offloading or transparent QEMU emulation is set up:
|
||||
;;
|
||||
;; guix build -f guix.scm -s riscv64-linux
|
||||
|
||||
(define-module (guile-package)
|
||||
#:use-module (guix)
|
||||
#:use-module (guix git-download)
|
||||
#:use-module (guix build-system gnu)
|
||||
#:use-module ((guix licenses) #:prefix license:)
|
||||
#:use-module (gnu packages autotools)
|
||||
#:use-module (gnu packages bash)
|
||||
#:use-module (gnu packages bdw-gc)
|
||||
#:use-module (gnu packages compression)
|
||||
#:use-module (gnu packages flex)
|
||||
#:use-module (gnu packages gdb)
|
||||
#:use-module (gnu packages gettext)
|
||||
#:use-module (gnu packages gperf)
|
||||
#:use-module (gnu packages libffi)
|
||||
#:use-module (gnu packages libunistring)
|
||||
#:use-module (gnu packages linux)
|
||||
#:use-module (gnu packages pkg-config)
|
||||
#:use-module (gnu packages readline)
|
||||
#:use-module (gnu packages tex)
|
||||
#:use-module (gnu packages texinfo)
|
||||
#:use-module (gnu packages version-control))
|
||||
|
||||
(define-public guile
|
||||
(let ((vcs-file? (or (git-predicate
|
||||
(string-append (current-source-directory)
|
||||
"/../.."))
|
||||
(const #t))))
|
||||
(package
|
||||
(name "guile")
|
||||
(version "3.0.99-git")
|
||||
(source (local-file "../.." "guile-checkout"
|
||||
#:recursive? #t
|
||||
#:select? vcs-file?))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list #:configure-flags
|
||||
#~'("--enable-mini-gmp"
|
||||
#$@(if (target-x86-32?) ;<https://issues.guix.gnu.org/49368>
|
||||
'("--disable-static" "CFLAGS=-g -O2 -fexcess-precision=standard")
|
||||
'("--disable-static"))) ;saves 3 MiB
|
||||
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-before 'bootstrap 'set-version
|
||||
(lambda _
|
||||
;; Tell 'git-version-gen' what version this is, or it will
|
||||
;; just pick "UNKNOWN", making it unusable as a replacement
|
||||
;; for 'guile-3.0'. XXX: This is inaccurate when using
|
||||
;; '--with-branch' but using (package-version this-package)
|
||||
;; wouldn't give us a valid version string.
|
||||
(call-with-output-file ".tarball-version"
|
||||
(lambda (port)
|
||||
(display #$version port)))
|
||||
|
||||
;; Set this one as well so 'version.test' passes.
|
||||
(substitute* "GUILE-VERSION"
|
||||
(("^GUILE_MICRO_VERSION=.*")
|
||||
"GUILE_MICRO_VERSION=99\n"))))
|
||||
(add-before 'configure 'pre-configure
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
;; Tell (ice-9 popen) the file name of Bash.
|
||||
(let ((bash (false-if-exception
|
||||
(search-input-file inputs "/bin/sh"))))
|
||||
(substitute* "module/ice-9/popen.scm"
|
||||
;; If bash is #f allow fallback for user to provide
|
||||
;; "bash" in PATH. This happens when cross-building to
|
||||
;; MinGW for which we do not have Bash yet.
|
||||
(("/bin/sh")
|
||||
(or bash "/bin/sh")))))))))
|
||||
|
||||
(native-inputs
|
||||
(append (list autoconf
|
||||
automake
|
||||
libtool
|
||||
gnu-gettext
|
||||
flex
|
||||
texinfo
|
||||
texlive-base ;for "make pdf"
|
||||
texlive-epsf
|
||||
gperf
|
||||
git
|
||||
gdb
|
||||
strace
|
||||
readline
|
||||
lzip
|
||||
|
||||
;; Ensure we get a cross-pkg-config when needed.
|
||||
pkg-config)
|
||||
|
||||
;; When cross-compiling, a native version of Guile itself
|
||||
;; is needed.
|
||||
(if (%current-target-system)
|
||||
(list this-package)
|
||||
'())))
|
||||
(inputs
|
||||
(append (list libffi)
|
||||
|
||||
;; We need Bash when cross-compiling because some of the
|
||||
;; scripts in bin/ refer to it. Use 'bash-minimal' because
|
||||
;; we don't need an interactive Bash with Readline and all.
|
||||
(if (target-mingw?)
|
||||
(list libiconv)
|
||||
(list bash-minimal))))
|
||||
(propagated-inputs
|
||||
(list libunistring libgc))
|
||||
|
||||
(outputs '("out" "debug"))
|
||||
|
||||
(native-search-paths
|
||||
(list (search-path-specification
|
||||
(variable "GUILE_LOAD_PATH")
|
||||
(files '("share/guile/site/3.0")))
|
||||
(search-path-specification
|
||||
(variable "GUILE_LOAD_COMPILED_PATH")
|
||||
(files '("lib/guile/3.0/site-ccache")))))
|
||||
(synopsis "Scheme implementation intended especially for extensions")
|
||||
(description
|
||||
"Guile is the GNU Ubiquitous Intelligent Language for Extensions, the
|
||||
official extension language of the GNU system. It is an implementation of
|
||||
the Scheme language which can be easily embedded in other applications to
|
||||
provide a convenient means of extending the functionality of the application
|
||||
without requiring the source code to be rewritten.")
|
||||
(home-page "https://www.gnu.org/software/guile/")
|
||||
(license license:lgpl3+))))
|
||||
|
||||
(define (package-with-configure-flags p flags)
|
||||
"Return P with FLAGS as addition 'configure' flags."
|
||||
(package/inherit p
|
||||
(arguments
|
||||
(substitute-keyword-arguments (package-arguments p)
|
||||
((#:configure-flags original-flags #~'())
|
||||
#~(append #$original-flags #$flags))))))
|
||||
|
||||
(define-public guile-without-threads
|
||||
(package
|
||||
(inherit (package-with-configure-flags guile
|
||||
#~'("--without-threads")))
|
||||
(name "guile-without-threads")))
|
||||
|
||||
(define-public guile-without-networking
|
||||
(package
|
||||
(inherit (package-with-configure-flags guile
|
||||
#~'("--disable-networking")))
|
||||
(name "guile-without-networking")))
|
||||
|
||||
(define-public guile-debug
|
||||
(package
|
||||
(inherit (package-with-configure-flags guile
|
||||
#~'("--enable-guile-debug")))
|
||||
(name "guile-debug")))
|
||||
|
||||
(define-public guile-strict-typing
|
||||
(package
|
||||
(inherit (package-with-configure-flags
|
||||
guile
|
||||
#~'("CPPFLAGS=-DSCM_DEBUG_TYPING_STRICTNESS=2")))
|
||||
(name "guile-strict-typing")))
|
||||
|
||||
guile
|
||||
|
|
@ -1,73 +0,0 @@
|
|||
;;; Copyright © 2023 Free Software Foundation, Inc.
|
||||
;;;
|
||||
;;; This file is part of GNU Guile.
|
||||
;;;
|
||||
;;; GNU Guile 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 Guile 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 Guile. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;; This file defines a Guix manifest for use by Cuirass, the continuous
|
||||
;; integration service running at <https://ci.guix.gnu.org>.
|
||||
|
||||
(use-modules (guix)
|
||||
(guix profiles)
|
||||
(guile-package))
|
||||
|
||||
(define* (package->manifest-entry* package system
|
||||
#:key target)
|
||||
"Return a manifest entry for PACKAGE on SYSTEM, optionally cross-compiled to
|
||||
TARGET."
|
||||
(manifest-entry
|
||||
(inherit (package->manifest-entry package))
|
||||
(name (string-append (package-name package) "." system
|
||||
(if target
|
||||
(string-append "." target)
|
||||
"")))
|
||||
(item (with-parameters ((%current-system system)
|
||||
(%current-target-system target))
|
||||
package))))
|
||||
|
||||
(define native-builds
|
||||
(manifest
|
||||
(append (map (lambda (system)
|
||||
(package->manifest-entry* guile system))
|
||||
|
||||
'("x86_64-linux" "i686-linux"
|
||||
"aarch64-linux" "armhf-linux"
|
||||
"powerpc64le-linux"))
|
||||
(map (lambda (guile)
|
||||
(package->manifest-entry* guile "x86_64-linux"))
|
||||
(cons (package
|
||||
(inherit (package-with-c-toolchain
|
||||
guile
|
||||
`(("clang-toolchain"
|
||||
,(specification->package
|
||||
"clang-toolchain")))))
|
||||
(name "guile-clang"))
|
||||
(list guile-without-threads
|
||||
guile-without-networking
|
||||
guile-debug
|
||||
guile-strict-typing))))))
|
||||
|
||||
(define cross-builds
|
||||
(manifest
|
||||
(map (lambda (target)
|
||||
(package->manifest-entry* guile "x86_64-linux"
|
||||
#:target target))
|
||||
'("i586-pc-gnu"
|
||||
;; "arm-linux-gnueabihf"
|
||||
"aarch64-linux-gnu"
|
||||
"riscv64-linux-gnu"
|
||||
"i686-w64-mingw32"
|
||||
"x86_64-linux-gnu"))))
|
||||
|
||||
(concatenate-manifests (list native-builds cross-builds))
|
||||
Loading…
Add table
Add a link
Reference in a new issue