amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

syscalls: Add ‘get-user-ns’.

Browse source 
* guix/build/syscalls.scm (NS_GET_USERNS): New variable.
(get-user-ns): New procedure.

Change-Id: I0cfba6a7cdf2ab64ef658b0f821ba4e7c6c89eab
This commit is contained in:
Ludovic Courtès 2025-04-08 08:37:04 +02:00
parent ce363c1dc7
commit 3aa132e8c3
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
guix/build/syscalls.scm
View file

@ -147,6 +147,7 @@
clone clone
unshare unshare
setns setns
get-user-ns
kexec-load-file kexec-load-file
KEXEC_FILE_UNLOAD KEXEC_FILE_UNLOAD
@ -1247,6 +1248,19 @@ there is no such limitation."
(list fdes nstype (strerror err)) (list fdes nstype (strerror err))
(list err)))))))) (list err))))))))
(define NS_GET_USERNS #xb701)
(define (get-user-ns fdes)
"Return an open file descriptor to the user namespace that owns the
namespace pointed to by FDES, a file descriptor obtained by opening
/proc/PID/ns/*."
(let-values (((ret err) (%ioctl fdes NS_GET_USERNS %null-pointer)))
(when (< ret 0)
(throw 'system-error "get-user-ns" "~d: ~A"
(list fdes (strerror err))
(list err)))
ret))
(define pivot-root (define pivot-root
(let ((proc (syscall->procedure int "pivot_root" (list '* '*)))) (let ((proc (syscall->procedure int "pivot_root" (list '* '*))))
(lambda (new-root put-old) (lambda (new-root put-old)