aboutsummaryrefslogtreecommitdiff
path: root/guix.scm
blob: 8753c21e423f880e7a6d9f7f6f6ff1139f8b7254 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2014 Ludovic Courtès <ludo@gnu.org>
;;;
;;; 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 (guix))

;; The composite module that re-exports everything from the public modules.

(eval-when (eval load compile)
  (begin
    (define %public-modules
      '(base32
        build-system
        derivations
        download
        ftp-client
        gexp
        monads
        monad-repl
        packages
        store
        utils))

    (for-each (let ((i (module-public-interface (current-module))))
                (lambda (m)
                  (module-use! i (resolve-interface `(guix ,m)))))
              %public-modules)))
reproducibly. https://sourceforge.net/p/lirc/tickets/301/ https://sourceforge.net/p/lirc/git/merge-requests/33/ https://sourceforge.net/p/lirc/git/merge-requests/34/ https://sourceforge.net/p/lirc/git/merge-requests/36/ Index: lirc-0.10.1/tools/lirc-lsplugins.cpp =================================================================== --- lirc-0.10.1.orig/tools/lirc-lsplugins.cpp +++ lirc-0.10.1/tools/lirc-lsplugins.cpp @@ -415,10 +415,9 @@ static void print_header(void) static void print_yaml_header(void) { static const char* const YAML_HEADER = - "#\n# Generated by lirc-lsplugins --yaml (%s) at %s#\n "; - const time_t now = time(NULL); + "#\n# Generated by lirc-lsplugins --yaml (%s)#\n "; - printf(YAML_HEADER, VERSION, ctime(&now)); + printf(YAML_HEADER, VERSION); printf("\ndrivers:\n"); } Index: lirc-0.10.1/python-pkg/lirc/database.py =================================================================== --- lirc-0.10.1.orig/python-pkg/lirc/database.py +++ lirc-0.10.1/python-pkg/lirc/database.py @@ -156,7 +156,7 @@ class Database(object): d['device_hint'] = hint configs = {} - for path in glob.glob(configdir + '/*.conf'): + for path in sorted(glob.glob(configdir + '/*.conf')): with open(path) as f: cf = yaml.load(f.read()) configs[cf['config']['id']] = cf['config'] Index: lirc-0.10.1/tools/irdb-get =================================================================== --- lirc-0.10.1.orig/tools/irdb-get +++ lirc-0.10.1/tools/irdb-get @@ -9,7 +9,6 @@ import fnmatch import os import os.path import sys -import time import urllib.error # pylint: disable=no-name-in-module,F0401,E0611 import urllib.request # pylint: disable=no-name-in-module,F0401,E0611 @@ -193,7 +192,7 @@ def do_yaml_config(): lircmd_by_driver[driver].append("%s/%s" % (tokens[0], tokens[2])) print("#") - print("# Created by 'irdb-get yaml-config' at " + time.ctime()) + print("# Created by 'irdb-get yaml-config'") print("#") print("\nlircd_by_driver:") print_yaml_dict(lircd_by_driver) Index: lirc-0.10.1/tools/lirc-make-devinput =================================================================== --- lirc-0.10.1.orig/tools/lirc-make-devinput +++ lirc-0.10.1/tools/lirc-make-devinput @@ -61,8 +61,7 @@ if test -n "$lirc_map"; then fi -echo "# Generated by $(basename $0) on $(uname -r)" -echo "# Date: $(date)" +echo "# Generated by $(basename $0)" cat <<EOF begin remote