;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2018 Mathieu Othacehe ;;; ;;; 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 . (define-module (gnu installer timezone) #:use-module (gnu installer utils) #:use-module (guix i18n) #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) #:use-module (srfi srfi-34) #:use-module (srfi srfi-35) #:use-module (ice-9 match) #:use-module (ice-9 receive) #:export (locate-children timezone->posix-tz timezone-has-child? zonetab->timezone-tree posix-tz->configuration)) (define %not-blank (char-set-complement char-set:blank)) (define (posix-tz->timezone tz) "Convert given TZ in Posix format like \"Europe/Paris\" into a list like (\"Europe\" \"Paris\")." (string-split tz #\/)) (define (timezone->posix-tz timezone) "Convert given TIMEZONE like (\"Europe\" \"Paris\") into a Posix timezone like \"Europe/Paris\"." (string-join timezone "/")) (define (zonetab->timezones zonetab) "Parse ZONETAB file and return the corresponding list of timezones." (define (zonetab-line->posix-tz line) (let ((tokens (string-tokenize line %not-blank))) (match tokens ((code coordinates tz _ ...) tz)))) (call-with-input-file zonetab (lambda (port) (let* ((lines (read-lines port)) ;; Filter comment lines starting with '#' character. (tz-lines (filter (lambda (line) (not (eq? (string-ref line 0) #\#))) lines))) (map (lambda (line) (posix-tz->timezone (zonetab-line->posix-tz line))) tz-lines))))) (define (timezones->timezone-tree timezones) "Convert the list of timezones, TIMEZONES into a tree under the form: (\"America\" (\"North_Dakota\" \"New_Salem\" \"Center\")) representing America/North_Dakota/New_Salem and America/North_Dakota/Center timezones." (define (remove-first lists) "Remove the first element of every sublists in the argument LISTS." (map (lambda (list) (if (null? list) list (cdr list))) lists)) (let loop ((cur-timezones timezones)) (match cur-timezones (() '()) (((region . rest-region) . rest-timezones) (if (null? rest-region) (cons (list region) (loop rest-timezones)) (receive (same-region other-region) (partition (lambda (timezone) (string=? (car timezone) region)) cur-timezones) (acons region (loop (remove-first same-region)) (loop other-region)))))))) (define (locate-children tree path) "Return the children of the timezone indicated by PATH in the given TREE. Raise a condition if the PATH could not be found." (let ((extract-proc (cut map car <>))) (match path (() (sort (extract-proc tree) string (assoc-ref tree region) (cut locate-children <> rest)) (raise (condition (&message (message (format #f (G_ "Unable to locate path: ~a.") path)))))))))) (define (timezone-has-child? tree timezone) "Return #t if the given TIMEZONE any child in TREE and #f otherwise." (not (null? (locate-children tree timezone)))) (define* (zonetab->timezone-tree zonetab) "Return the timezone tree corresponding to the given ZONETAB file." (timezones->timezone-tree (zonetab->timezones zonetab))) ;;; ;;; Configuration formatter. ;;; (define (posix-tz->configuration timezone) "Return the configuration field for TIMEZONE." `((timezone ,timezone))) after 'test-end', no longer works. Instead, set the test runner in each test right before 'test-begin'. * gnu/build/marionette.scm (system-test-runner): New procedure. * gnu/tests/audio.scm (run-mpd-test): Replace (exit (= ...)) idiom by (test-runner-current (system-test-runner)). * gnu/tests/base.scm (run-basic-test) (run-cleanup-test, run-mcron-test, run-nss-mdns-test): Likewise. * gnu/tests/ci.scm (run-laminar-test): Likewise. * gnu/tests/cups.scm (run-cups-test): Likewise. * gnu/tests/databases.scm (run-memcached-test) (run-postgresql-test, run-mysql-test): Likewise. * gnu/tests/desktop.scm (run-elogind-test): Likewise. * gnu/tests/dict.scm (run-dicod-test): Likewise. * gnu/tests/docker.scm (run-docker-test): Likewise. (run-docker-system-test): Likewise. * gnu/tests/file-sharing.scm (run-transmission-daemon-test): Likewise. * gnu/tests/ganeti.scm (run-ganeti-test): Likewise. * gnu/tests/guix.scm (run-guix-build-coordinator-test): Likewise. (run-guix-data-service-test): Likewise. * gnu/tests/ldap.scm (run-ldap-test): Likewise. * gnu/tests/linux-modules.scm (run-loadable-kernel-modules-test-base): Likewise. * gnu/tests/mail.scm (run-opensmtpd-test) (run-exim-test, run-dovecot-test, run-getmail-test): Likewise. * gnu/tests/messaging.scm (run-xmpp-test) (run-bitlbee-test, run-quassel-test): Likewise. * gnu/tests/monitoring.scm (run-prometheus-node-exporter-server-test) (run-zabbix-server-test): Likewise. * gnu/tests/networking.scm (run-inetd-test, run-openvswitch-test) (run-dhcpd-test, run-tor-test, run-iptables-test, run-ipfs-test): Likewise. * gnu/tests/nfs.scm (run-nfs-test) (run-nfs-server-test, run-nfs-root-fs-test): Likewise. * gnu/tests/package-management.scm (run-nix-test): Likewise. * gnu/tests/reconfigure.scm (run-switch-to-system-test) (run-upgrade-services-test, run-install-bootloader-test): Likewise. * gnu/tests/rsync.scm (run-rsync-test): Likewise. * gnu/tests/security-token.scm (run-pcscd-test): Likewise. * gnu/tests/singularity.scm (run-singularity-test): Likewise. * gnu/tests/ssh.scm (run-ssh-test): Likewise. * gnu/tests/telephony.scm (run-jami-test): Likewise. * gnu/tests/version-control.scm (run-cgit-test): Likewise. (run-git-http-test, run-gitolite-test, run-gitile-test): Likewise. * gnu/tests/virtualization.scm (run-libvirt-test, run-childhurd-test): Likewise. * gnu/tests/web.scm (run-webserver-test, run-php-fpm-test) (run-hpcguix-web-server-test, run-tailon-test, run-patchwork-test): Likewise. 2020-11-05services: Remove imports of (ice-9 …) modules.Ludovic Courtès * gnu/services/monitoring.scm (zabbix-server-activation): Remove (ice-9 rdelim) from the imported modules. (zabbix-agent-activation): Likewise. * gnu/tests/mail.scm (run-exim-test)[test]: Remove (ice-9 ftw) from the imported modules.