projects/guix·blob python-team · refs

107 lines · 3.7 KiB

1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2018, 2020 Mathieu Othacehe <[email protected]>
3;;; Copyright © 2020 Florian Pelz <[email protected]>
4;;; Copyright © 2024 Janneke Nieuwenhuizen <[email protected]>
5;;;
6;;; This file is part of GNU Guix.
7;;;
8;;; GNU Guix is free software; you can redistribute it and/or modify it
9;;; under the terms of the GNU General Public License as published by
10;;; the Free Software Foundation; either version 3 of the License, or (at
11;;; your option) any later version.
12;;;
13;;; GNU Guix is distributed in the hope that it will be useful, but
14;;; WITHOUT ANY WARRANTY; without even the implied warranty of
15;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16;;; GNU General Public License for more details.
17;;;
18;;; You should have received a copy of the GNU General Public License
19;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
20
21(define-module (gnu installer record)
22 #:use-module (guix records)
23 #:use-module (srfi srfi-1)
24 #:export (<installer>
25 installer
26 make-installer
27 installer?
28 installer-name
29 installer-init
30 installer-exit
31 installer-exit-error
32 installer-final-page
33 installer-kernel-page
34 installer-keymap-page
35 installer-locale-page
36 installer-menu-page
37 installer-network-page
38 installer-substitutes-page
39 installer-timezone-page
40 installer-hostname-page
41 installer-user-page
42 installer-partitioning-page
43 installer-services-page
44 installer-welcome-page
45 installer-parameters-menu
46 installer-parameters-page
47 installer-dump-page
48 installer-run-command
49 installer-report-page))
50
51
52;;;
53;;; Installer record.
54;;;
55
56;; The <installer> record contains pages that will be run to prompt the user
57;; for the system configuration. The goal of the installer is to produce a
58;; complete <operating-system> record and install it.
59
60(define-record-type* <installer>
61 installer make-installer
62 installer?
63 ;; symbol
64 (name installer-name)
65 ;; procedure: void -> void
66 (init installer-init)
67 ;; procedure: void -> void
68 (exit installer-exit)
69 ;; procedure (key arguments) -> (action)
70 (exit-error installer-exit-error)
71 ;; procedure void -> void
72 (final-page installer-final-page)
73 ;; procedure void -> void
74 (kernel-page installer-kernel-page)
75 ;; procedure (layouts context) -> (list layout variant options)
76 (keymap-page installer-keymap-page)
77 ;; procedure: (#:key supported-locales iso639-languages iso3166-territories)
78 ;; -> glibc-locale
79 (locale-page installer-locale-page)
80 ;; procedure: (steps) -> step-id
81 (menu-page installer-menu-page)
82 ;; procedure void -> void
83 (network-page installer-network-page)
84 ;; procedure void -> void
85 (substitutes-page installer-substitutes-page)
86 ;; procedure (zonetab) -> posix-timezone
87 (timezone-page installer-timezone-page)
88 ;; procedure void -> void
89 (hostname-page installer-hostname-page)
90 ;; procedure void -> void
91 (user-page installer-user-page)
92 ;; procedure void -> void
93 (partitioning-page installer-partitioning-page)
94 ;; procedure void -> void
95 (services-page installer-services-page)
96 ;; procedure (logo #:pci-database) -> void
97 (welcome-page installer-welcome-page)
98 ;; procedure (menu-proc) -> void
99 (parameters-menu installer-parameters-menu)
100 ;; procedure (keyboard-layout-selection) -> void
101 (parameters-page installer-parameters-page)
102 ;; procedure (dump) -> void
103 (dump-page installer-dump-page)
104 ;; procedure command -> bool
105 (run-command installer-run-command)
106 ;; procedure (report) -> void
107 (report-page installer-report-page))