ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

hurd-boot: Use 'setxattr' instead of invoking settrans.

Browse source 
Note: Using `getxattr' on the Hurd instead of running showtrans does not
work (yet?).

* gnu/build/hurd-boot.scm (setup-translator): Use 'setxattr' instead of
invoking settrans.
* gnu/system.scm (hurd-multiboot-modules): Add --x-xattr-translator-records to
enable xattr-embedding of translators.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-06-08 12:25:24 +02:00 committed by Jan Nieuwenhuizen
parent 951847ee37
commit f25e8f76fe
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/build/hurd-boot.scm
View file

@ -144,7 +144,7 @@ (define* (set-translator file-name command #:optional (mode #o600))
(chmod port mode))))) (chmod port mode)))))
(catch 'system-error (catch 'system-error
(lambda _ (lambda _
(apply invoke "settrans" "--create" file-name command)) (setxattr file-name "gnu.translator" (string-join command "\0" 'suffix)))
(lambda (key . args) (lambda (key . args)
(let ((errno (system-error-errno (cons key args)))) (let ((errno (system-error-errno (cons key args))))
(format (current-error-port) "~a: ~a\n" (format (current-error-port) "~a: ~a\n"

1
gnu/system.scm
View file

@ -1191,6 +1191,7 @@ (define (hurd-multiboot-modules os)
"--device-master-port='${device-port}'" "--device-master-port='${device-port}'"
"--exec-server-task='${exec-task}'" "--exec-server-task='${exec-task}'"
"--store-type=typed" "--store-type=typed"
"--x-xattr-translator-records"
"'${root}'" "'$(task-create)'" "'$(task-resume)'")) "'${root}'" "'$(task-create)'" "'$(task-resume)'"))
(target (%current-target-system)) (target (%current-target-system))
(libc (if target (libc (if target