gexp: Store compilers in a hash table for O(1) lookup. - guix - Wojtek's customized Guix

about summary refs log tree commit diff

path: root/emacs/guix-list.el

diff options

author	Ludovic Courtès <ludo@gnu.org>	2016-09-10 11:57:37 +0200
committer	Ludovic Courtès <ludo@gnu.org>	2016-09-10 13:10:06 +0200
commit	1cdecf24f5a7d98c9564a12a2932a015cfc31b9e (patch)
tree	60b78b0df8d8d370afddbc6285b4828f76352fc6 /emacs/guix-list.el
parent	e71479747b3610cc7d992f2b38c6fa825ee44ad1 (diff)
download	guix-1cdecf24f5a7d98c9564a12a2932a015cfc31b9e.tar.gz guix-1cdecf24f5a7d98c9564a12a2932a015cfc31b9e.zip

gexp: Store compilers in a hash table for O(1) lookup.

* guix/gexp.scm (<gexp-compiler>)[predicate]: Remove. [type]: New field. (%gexp-compilers): Turn into a hash table. (register-compiler!, lookup-compiler, lookup-expander): Adjust accordingly. (define-gexp-compiler): Replace 'predicate' by 'record-type'. (derivation-compiler, local-file-compiler, plain-file-compiler) (computed-file-compiler, program-file-compiler, scheme-file-compiler) (file-append-compiler): Adjust accordingly. * guix/packages.scm (package-compiler, origin-compiler): Likewise.

Diffstat (limited to 'emacs/guix-list.el')

0 files changed, 0 insertions, 0 deletions

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 (gnu installer newt services) #:use-module (gnu installer services) #:use-module (gnu installer steps) #:use-module (gnu installer newt page) #:use-module (gnu installer newt utils) #:use-module (guix i18n) #:use-module (srfi srfi-34) #:use-module (srfi srfi-35) #:use-module (newt) #:export (run-services-page)) (define (run-desktop-environments-cbt-page) "Run a page allowing the user to choose between various desktop environments." (let ((items (filter desktop-system-service? %system-services))) (run-checkbox-tree-page #:info-text (G_ "Please select the desktop(s) environment(s) you wish to \ install. If you select multiple desktops environments, you will be able to \ choose the one to use on the log-in screen.") #:title (G_ "Desktop environment") #:items items #:selection (map system-service-recommended? items) #:item->text system-service-name ;no i18n for DE names #:checkbox-tree-height 9 #:exit-button-callback-procedure (lambda () (raise (condition (&installer-step-abort))))))) (define (run-networking-cbt-page) "Run a page allowing the user to select networking services." (let ((items (filter (lambda (service) (eq? 'networking (system-service-type service))) %system-services))) (run-checkbox-tree-page #:info-text (G_ "You can now select networking services to run on your \ system.") #:title (G_ "Network service") #:items items #:selection (map system-service-recommended? items) #:item->text (compose G_ system-service-name) #:checkbox-tree-height 5 #:exit-button-callback-procedure (lambda () (raise (condition (&installer-step-abort))))))) (define (run-network-management-page) "Run a page to select among several network management methods." (let ((title (G_ "Network management"))) (run-listbox-selection-page #:title title #:info-text (G_ "Choose the method to manage network connections. We recommend NetworkManager or Connman for a WiFi-capable laptop; the DHCP \ client may be enough for a server.") #:info-textbox-width 70 #:listbox-height 7 #:listbox-items (filter (lambda (service) (eq? 'network-management (system-service-type service))) %system-services) #:listbox-item->text (compose G_ system-service-name) #:sort-listbox-items? #f #:button-text (G_ "Exit") #:button-callback-procedure (lambda _ (raise (condition (&installer-step-abort))))))) (define (run-services-page) (let ((desktop (run-desktop-environments-cbt-page))) ;; When the user did not select any desktop services, and thus didn't get ;; '%desktop-services', offer network management services. (append desktop (run-networking-cbt-page) (if (null? desktop) (list (run-network-management-page)) '()))))