~ruther/guix-local

59a43334a98babd6c776648967e48d7c44723639 — Ludovic Courtès 13 years ago 1ffa709
distro: Rename (distro) to (gnu packages).

* distro.scm: Rename to...
* gnu/packages.scm: ... this.  Update all users accordingly.
* Makefile.am (MODULES): Adjust accordingly.
* po/POTFILES.in: Likewise.
M Makefile.am => Makefile.am +1 -1
@@ 44,7 44,7 @@ MODULES =					\
  guix/packages.scm				\
  guix/snix.scm					\
  guix.scm					\
  distro.scm					\
  gnu/packages.scm				\
  gnu/packages/acl.scm				\
  gnu/packages/algebra.scm			\
  gnu/packages/aspell.scm			\

R distro.scm => gnu/packages.scm +6 -5
@@ 16,7 16,7 @@
;;; 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 (distro)
(define-module (gnu packages)
  #:use-module (guix packages)
  #:use-module (guix utils)
  #:use-module (ice-9 ftw)


@@ 33,7 33,7 @@
;;; Commentary:
;;;
;;; General utilities for the software distribution---i.e., the modules under
;;; (distro ...).
;;; (gnu packages ...).
;;;
;;; Code:



@@ 66,13 66,14 @@

(define %distro-module-directory
  ;; Absolute path of the (gnu packages ...) module root.
  (string-append (dirname (search-path %load-path "distro.scm"))
                 "/gnu/packages"))
  (string-append (dirname (search-path %load-path "gnu/packages.scm"))
                 "/packages"))

(define (package-files)
  "Return the list of files that implement distro modules."
  (define prefix-len
    (string-length (dirname (search-path %load-path "distro.scm"))))
    (string-length
     (dirname (dirname (search-path %load-path "gnu/packages.scm")))))

  (file-system-fold (const #t)                    ; enter?
                    (lambda (path stat result)    ; leaf

M gnu/packages/algebra.scm => gnu/packages/algebra.scm +1 -1
@@ 18,7 18,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages algebra)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages multiprecision)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages readline)

M gnu/packages/autotools.scm => gnu/packages/autotools.scm +1 -1
@@ 19,7 19,7 @@

(define-module (gnu packages autotools)
  #:use-module (guix licenses)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages m4)
  #:use-module (guix packages)

M gnu/packages/base.scm => gnu/packages/base.scm +1 -1
@@ 19,7 19,7 @@

(define-module (gnu packages base)
  #:use-module (guix licenses)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages acl)
  #:use-module (gnu packages bash)
  #:use-module (gnu packages bootstrap)

M gnu/packages/bdb.scm => gnu/packages/bdb.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages bdb)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)

M gnu/packages/bootstrap.scm => gnu/packages/bootstrap.scm +1 -1
@@ 18,7 18,7 @@

(define-module (gnu packages bootstrap)
  #:use-module (guix licenses)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system)

M gnu/packages/check.scm => gnu/packages/check.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages check)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)

M gnu/packages/cpio.scm => gnu/packages/cpio.scm +1 -1
@@ 18,7 18,7 @@

(define-module (gnu packages cpio)
  #:use-module (guix licenses)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu))

M gnu/packages/cyrus-sasl.scm => gnu/packages/cyrus-sasl.scm +1 -1
@@ 18,7 18,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages cyrus-sasl)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages gdbm)
  #:use-module (gnu packages mit-krb5)
  #:use-module (gnu packages openssl)

M gnu/packages/emacs.scm => gnu/packages/emacs.scm +1 -1
@@ 21,7 21,7 @@
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages ncurses)
  #:use-module (gnu packages texinfo)
  #:use-module (gnu packages gnutls)

M gnu/packages/file.scm => gnu/packages/file.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages file)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)

M gnu/packages/flex.scm => gnu/packages/flex.scm +1 -1
@@ 21,7 21,7 @@
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages m4)
  #:use-module (gnu packages bison)
  #:use-module (gnu packages indent))

M gnu/packages/gettext.scm => gnu/packages/gettext.scm +1 -1
@@ 18,7 18,7 @@

(define-module (gnu packages gettext)
  #:use-module (guix licenses)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu))

M gnu/packages/global.scm => gnu/packages/global.scm +1 -1
@@ 23,7 23,7 @@
  #:use-module (guix licenses)
  #:use-module (gnu packages ncurses)
  #:use-module (gnu packages autotools)
  #:use-module (distro))
  #:use-module (gnu packages))

(define-public global                             ; a global variable
  (package

M gnu/packages/gsasl.scm => gnu/packages/gsasl.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages gsasl)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module ((gnu packages compression)
                #:renamer (symbol-prefix-proc 'guix:))
  #:use-module (gnu packages gnutls)

M gnu/packages/guile.scm => gnu/packages/guile.scm +1 -1
@@ 18,7 18,7 @@

(define-module (gnu packages guile)
  #:use-module (guix licenses)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages bdw-gc)
  #:use-module (gnu packages gawk)
  #:use-module (gnu packages gperf)

M gnu/packages/icu4c.scm => gnu/packages/icu4c.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages icu4c)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages perl)
  #:use-module (guix licenses)
  #:use-module (guix packages)

M gnu/packages/idutils.scm => gnu/packages/idutils.scm +1 -1
@@ 21,7 21,7 @@
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (guix licenses)
  #:use-module (distro))
  #:use-module (gnu packages))

(define-public idutils
  (package

M gnu/packages/indent.scm => gnu/packages/indent.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages indent)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)

M gnu/packages/libidn.scm => gnu/packages/libidn.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages libidn)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)

M gnu/packages/libjpeg.scm => gnu/packages/libjpeg.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages libjpeg)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)

M gnu/packages/libtiff.scm => gnu/packages/libtiff.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages libtiff)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages file)
  #:use-module (gnu packages libjpeg)
  #:use-module (guix licenses)

M gnu/packages/libusb.scm => gnu/packages/libusb.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages libusb)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)

M gnu/packages/linux.scm => gnu/packages/linux.scm +1 -1
@@ 19,7 19,7 @@

(define-module (gnu packages linux)
  #:use-module (guix licenses)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module ((gnu packages compression)
                #:renamer (symbol-prefix-proc 'guix:))
  #:use-module (gnu packages flex)

M gnu/packages/lsh.scm => gnu/packages/lsh.scm +1 -1
@@ 21,7 21,7 @@
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages m4)
  #:use-module (gnu packages linux)
  #:use-module ((gnu packages compression)

M gnu/packages/m4.scm => gnu/packages/m4.scm +1 -1
@@ 18,7 18,7 @@

(define-module (gnu packages m4)
  #:use-module (guix licenses)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix utils)

M gnu/packages/mailutils.scm => gnu/packages/mailutils.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages mailutils)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages gnutls)
  #:use-module (gnu packages gdbm)

M gnu/packages/make-bootstrap.scm => gnu/packages/make-bootstrap.scm +1 -1
@@ 22,7 22,7 @@
  #:use-module (guix licenses)
  #:use-module (guix build-system trivial)
  #:use-module (guix build-system gnu)
  #:use-module ((distro) #:select (search-patch))
  #:use-module ((gnu packages) #:select (search-patch))
  #:use-module (gnu packages base)
  #:use-module (gnu packages bash)
  #:use-module (gnu packages compression)

M gnu/packages/mit-krb5.scm => gnu/packages/mit-krb5.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages mit-krb5)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages bison)
  #:use-module (gnu packages perl)
  #:use-module (guix licenses)

M gnu/packages/multiprecision.scm => gnu/packages/multiprecision.scm +1 -1
@@ 18,7 18,7 @@

(define-module (gnu packages multiprecision)
  #:use-module (guix licenses)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages m4)
  #:use-module (guix packages)
  #:use-module (guix download)

M gnu/packages/mysql.scm => gnu/packages/mysql.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages mysql)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages openssl)

M gnu/packages/openssl.scm => gnu/packages/openssl.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages openssl)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages perl)
  #:use-module ((guix licenses) #:renamer (symbol-prefix-proc 'license:))
  #:use-module (guix packages)

M gnu/packages/perl.scm => gnu/packages/perl.scm +1 -1
@@ 18,7 18,7 @@

(define-module (gnu packages perl)
  #:use-module (guix licenses)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix utils)

M gnu/packages/readline.scm => gnu/packages/readline.scm +1 -1
@@ 18,7 18,7 @@

(define-module (gnu packages readline)
  #:use-module (guix licenses)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages ncurses)
  #:use-module (guix packages)
  #:use-module (guix download)

M gnu/packages/recutils.scm => gnu/packages/recutils.scm +1 -1
@@ 18,7 18,7 @@

(define-module (gnu packages recutils)
  #:use-module (guix licenses)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix utils)

M gnu/packages/rsync.scm => gnu/packages/rsync.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages rsync)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages acl)
  #:use-module (guix licenses)

M gnu/packages/scheme.scm => gnu/packages/scheme.scm +1 -1
@@ 17,7 17,7 @@
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages scheme)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)

M gnu/packages/shishi.scm => gnu/packages/shishi.scm +1 -1
@@ 19,7 19,7 @@

(define-module (gnu packages shishi)
  #:use-module (guix licenses)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages gnutls)
  #:use-module (gnu packages gnupg)
  #:use-module ((gnu packages compression)

M gnu/packages/system.scm => gnu/packages/system.scm +1 -1
@@ 21,7 21,7 @@
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages ncurses))

(define-public pies

M guix-build.in => guix-build.in +1 -1
@@ 41,7 41,7 @@ exec ${GUILE-@GUILE@} -L "@guilemoduledir@" -l "$0"    \
  #:use-module (srfi srfi-26)
  #:use-module (srfi srfi-34)
  #:use-module (srfi srfi-37)
  #:autoload   (distro) (find-packages-by-name)
  #:autoload   (gnu packages) (find-packages-by-name)
  #:export (guix-build))

(define %store

M guix-package.in => guix-package.in +1 -1
@@ 47,7 47,7 @@ exec ${GUILE-@GUILE@} -L "@guilemoduledir@" -l "$0"    \
  #:use-module (srfi srfi-26)
  #:use-module (srfi srfi-34)
  #:use-module (srfi srfi-37)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module ((gnu packages base) #:select (guile-final))
  #:use-module ((gnu packages bootstrap) #:select (%bootstrap-guile))
  #:export (guix-package))

M hydra.scm => hydra.scm +1 -1
@@ 24,7 24,7 @@
(use-modules (guix store)
             (guix packages)
             ((guix utils) #:select (%current-system))
             (distro)
             (gnu packages)
             (gnu packages base)
             (gnu packages guile)
             (srfi srfi-1)

M po/POTFILES.in => po/POTFILES.in +1 -1
@@ 1,5 1,5 @@
# List of source files which contain translatable strings.
distro.scm
gnu/packages.scm
gnu/packages/base.scm
gnu/packages/guile.scm
gnu/packages/lout.scm

M tests/derivations.scm => tests/derivations.scm +1 -1
@@ 23,7 23,7 @@
  #:use-module (guix utils)
  #:use-module (guix base32)
  #:use-module ((guix packages) #:select (package-derivation))
  #:use-module ((distro) #:select (search-bootstrap-binary))
  #:use-module ((gnu packages) #:select (search-bootstrap-binary))
  #:use-module (gnu packages bootstrap)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-11)

M tests/packages.scm => tests/packages.scm +1 -1
@@ 24,7 24,7 @@
  #:use-module (guix packages)
  #:use-module (guix build-system trivial)
  #:use-module (guix build-system gnu)
  #:use-module (distro)
  #:use-module (gnu packages)
  #:use-module (gnu packages base)
  #:use-module (gnu packages bootstrap)
  #:use-module (srfi srfi-26)