aboutsummaryrefslogtreecommitdiff
path: root/build-aux/cuirass
diff options
context:
space:
mode:
authorLeo Famulari <leo@famulari.name>2024-11-09 14:03:10 -0500
committerLeo Famulari <leo@famulari.name>2024-11-10 15:28:35 -0500
commit9cdcfb52ace77fe3b497b21deb639a3027ff02f0 (patch)
tree57b94d7fc912c5704d2001ff938480d792504e33 /build-aux/cuirass
parentee3219996b688d2c3336a7ea1e262308cf2d00b7 (diff)
downloadguix-9cdcfb52ace77fe3b497b21deb639a3027ff02f0.tar.gz
guix-9cdcfb52ace77fe3b497b21deb639a3027ff02f0.zip
gnu: linux-libre 6.11: Disable a debugging option in the kernel configs.
Reported by dariqq: <https://issues.guix.gnu.org/74280>. This is a followup to commit 92910f5413fd9112c0502138eed5fff758c5de65. * gnu/packages/aux-files/linux-libre/6.11-i686.conf, gnu/packages/aux-files/linux-libre/6.11-x86_64.conf: Disable CONFIG_DRM_I915_REPLAY_GPU_HANGS_API. Change-Id: I345aba7b19d3e7c3e28fec2e6ed2d7bdbc2099c9
Diffstat (limited to 'build-aux/cuirass')
0 files changed, 0 insertions, 0 deletions
ve received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (gnu build locale) #:use-module (guix build utils) #:use-module (srfi srfi-1) #:use-module (ice-9 rdelim) #:use-module (ice-9 match) #:use-module (ice-9 regex) #:export (build-locale normalize-codeset locale->name+codeset read-supported-locales)) (define locale-rx ;; Regexp matching a locale line in 'localedata/SUPPORTED'. (make-regexp "^[[:space:]]*([[:graph:]]+)/([[:graph:]]+)[[:space:]]*\\\\$")) (define (read-supported-locales port) "Read the 'localedata/SUPPORTED' file from PORT. That file is actually a makefile snippet, with one locale per line, and a header that can be discarded." (let loop ((locales '())) (define line (read-line port)) (cond ((eof-object? line) (reverse locales)) ((string-prefix? "#" (string-trim line)) ;comment (loop locales)) ((string-contains line "=") ;makefile variable assignment (loop locales)) (else (match (regexp-exec locale-rx line) (#f (loop locales)) (m (loop (alist-cons (match:substring m 1) (match:substring m 2) locales)))))))) (define (normalize-codeset codeset) "Compute the \"normalized\" variant of CODESET." ;; info "(libc) Using gettextized software", for the algorithm used to ;; compute the normalized codeset. (letrec-syntax ((-> (syntax-rules () ((_ proc value) (proc value)) ((_ proc rest ...) (proc (-> rest ...)))))) (-> (lambda (str) (if (string-every char-set:digit str) (string-append "iso" str) str)) string-downcase (lambda (str) (string-filter char-set:letter+digit str)) codeset))) (define* (build-locale locale #:key (localedef "localedef") (directory ".") (codeset "UTF-8") (name (string-append locale "." codeset))) "Compute locale data for LOCALE and CODESET--e.g., \"en_US\" and \"UTF-8\"--with LOCALEDEF, and store it in DIRECTORY under NAME." (format #t "building locale '~a'...~%" name) (invoke localedef "--no-archive" "--prefix" directory "-i" locale "-f" codeset (string-append directory "/" name))) (define (locale->name+codeset locale) "Split a locale name such as \"aa_ER@saaho.UTF-8\" into two values: the language/territory/modifier part, and the codeset." (match (string-rindex locale #\.) (#f (values locale #f)) (dot (values (string-take locale dot) (string-drop locale (+ dot 1))))))