summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJan (janneke) Nieuwenhuizen <janneke@gnu.org>2020-06-08 12:25:24 +0200
committerJan Nieuwenhuizen <janneke@gnu.org>2020-06-19 10:40:53 +0200
commitf25e8f76fec03e5a31c221e7427d6962ece1aa67 (patch)
treecce2f388f57851a110666bbc25d4fb4e595020b2
parenthurd-boot: Create individual translators instead of running MAKEDEV. (diff)
downloadguix-f25e8f76fec03e5a31c221e7427d6962ece1aa67.tar.gz
guix-f25e8f76fec03e5a31c221e7427d6962ece1aa67.tar.bz2
guix-f25e8f76fec03e5a31c221e7427d6962ece1aa67.tar.xz
hurd-boot: Use 'setxattr' instead of invoking settrans.
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.
-rw-r--r--gnu/build/hurd-boot.scm2
-rw-r--r--gnu/system.scm1
2 files changed, 2 insertions, 1 deletions
diff --git a/gnu/build/hurd-boot.scm b/gnu/build/hurd-boot.scm
index f4b6dc7..aea2ac3 100644
--- a/gnu/build/hurd-boot.scm
+++ b/gnu/build/hurd-boot.scm
@@ -144,7 +144,7 @@ set."
144 (chmod port mode))))) 144 (chmod port mode)))))
145 (catch 'system-error 145 (catch 'system-error
146 (lambda _ 146 (lambda _
147 (apply invoke "settrans" "--create" file-name command)) 147 (setxattr file-name "gnu.translator" (string-join command "\0" 'suffix)))
148 (lambda (key . args) 148 (lambda (key . args)
149 (let ((errno (system-error-errno (cons key args)))) 149 (let ((errno (system-error-errno (cons key args))))
150 (format (current-error-port) "~a: ~a\n" 150 (format (current-error-port) "~a: ~a\n"
diff --git a/gnu/system.scm b/gnu/system.scm
index d51691f..25cc63a 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -1191,6 +1191,7 @@ a list of <menu-entry>, to populate the \"old entries\" menu."
1191 "--device-master-port='${device-port}'" 1191 "--device-master-port='${device-port}'"
1192 "--exec-server-task='${exec-task}'" 1192 "--exec-server-task='${exec-task}'"
1193 "--store-type=typed" 1193 "--store-type=typed"
1194 "--x-xattr-translator-records"
1194 "'${root}'" "'$(task-create)'" "'$(task-resume)'")) 1195 "'${root}'" "'$(task-create)'" "'$(task-resume)'"))
1195 (target (%current-target-system)) 1196 (target (%current-target-system))
1196 (libc (if target 1197 (libc (if target