2013-01-06 00:47:50 +01:00
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
2021-09-14 09:53:10 +02:00
|
|
|
;;; Copyright © 2012, 2014, 2021 Ludovic Courtès <ludo@gnu.org>
|
2012-04-18 23:21:11 +02:00
|
|
|
;;;
|
2013-01-06 00:47:50 +01:00
|
|
|
;;; This file is part of GNU Guix.
|
2012-04-18 23:21:11 +02:00
|
|
|
;;;
|
2013-01-06 00:47:50 +01:00
|
|
|
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
2012-04-18 23:21:11 +02:00
|
|
|
;;; 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.
|
|
|
|
;;;
|
2013-01-06 00:47:50 +01:00
|
|
|
;;; GNU Guix is distributed in the hope that it will be useful, but
|
2012-04-18 23:21:11 +02:00
|
|
|
;;; 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
|
2013-01-06 00:47:50 +01:00
|
|
|
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
2012-04-18 23:21:11 +02:00
|
|
|
|
2021-09-14 09:53:10 +02:00
|
|
|
(define-module (guix)
|
|
|
|
#:re-export-and-replace (define-public)) ;from (guix packages)
|
2012-04-18 23:21:11 +02:00
|
|
|
|
2012-04-18 23:34:12 +02:00
|
|
|
;; The composite module that re-exports everything from the public modules.
|
2012-04-18 23:21:11 +02:00
|
|
|
|
2012-04-18 23:34:12 +02:00
|
|
|
(eval-when (eval load compile)
|
|
|
|
(begin
|
|
|
|
(define %public-modules
|
Move base32 code to (guix base32).
* guix/utils.scm (bytevector-quintet-ref, bytevector-quintet-ref-right,
bytevector-quintet-length, bytevector-quintet-fold,
bytevector-quintet-fold-right, make-bytevector->base32-string,
%nix-base32-chars, %rfc4648-base32-chars, bytevector->base32-string,
bytevector->nix-base32-string, bytevector-quintet-set!,
bytevector-quintet-set-right!, base32-string-unfold,
base32-string-unfold-right, make-base32-string->bytevector,
base32-string->bytevector, nix-base32-string->bytevector): Move to...
* guix/base32.scm: ... here. New file.
* tests/utils.scm (%nix-hash, "bytevector->base32-string",
"base32-string->bytevector", "nix-base32-string->bytevector", "sha256
& bytevector->base32-string"): Move to...
* tests/base32.scm: ... here. New file
* guix-download.in, guix/derivations.scm, guix/packages.scm,
guix/snix.scm, tests/builders.scm, tests/derivations.scm: Adjust
accordingly.
* guix.scm (%public-modules): Add `base32'.
2012-11-11 22:33:28 +01:00
|
|
|
'(base32
|
|
|
|
build-system
|
2012-10-06 01:24:46 +02:00
|
|
|
derivations
|
Remove (guix http) and (guix ftp).
* guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm:
Remove.
* Makefile.am (MODULES): Likewise.
* tests/builders.scm, distro/packages/base.scm,
distro/packages/bash.scm, distro/packages/bdw-gc.scm,
distro/packages/compression.scm, distro/packages/gawk.scm,
distro/packages/gnupg.scm, distro/packages/gperf.scm,
distro/packages/guile.scm, distro/packages/libffi.scm,
distro/packages/libsigsegv.scm, distro/packages/libtool.scm,
distro/packages/libunistring.scm, distro/packages/lout.scm,
distro/packages/m4.scm, distro/packages/multiprecision.scm,
distro/packages/ncurses.scm, distro/packages/perl.scm,
distro/packages/pkg-config.scm, distro/packages/pth.scm,
distro/packages/readline.scm, distro/packages/recutils.scm: Use
`url-fetch' instead of `http-fetch' and `ftp-fetch'.
* distro/packages/bootstrap.scm: Likewise
(bootstrap-origin): Remove references to `http-fetch' and
`ftp-fetch'.
* guix.scm (%public-modules): Remove `http' and `ftp'; add `download'.
2012-11-13 00:22:44 +01:00
|
|
|
download
|
2014-05-20 23:18:02 +02:00
|
|
|
gexp
|
|
|
|
monads
|
2014-08-15 16:22:11 +02:00
|
|
|
monad-repl
|
2012-10-06 01:24:46 +02:00
|
|
|
packages
|
|
|
|
store
|
|
|
|
utils))
|
2012-04-18 23:21:11 +02:00
|
|
|
|
2012-04-18 23:34:12 +02:00
|
|
|
(for-each (let ((i (module-public-interface (current-module))))
|
|
|
|
(lambda (m)
|
|
|
|
(module-use! i (resolve-interface `(guix ,m)))))
|
|
|
|
%public-modules)))
|