GLiCID/guix-glicid
7
0
Fork 0
mirror of https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git synced 2025-04-30 14:18:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'devel' into 'main'

Browse source 
reworking glicid cgroups

See merge request glicid-public/guix-glicid!138
This commit is contained in:
Jean-François GUILLAUME 2022-11-22 14:16:13 +00:00
commit c544faf0eb
1 changed files with 35 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

57
glicid/system/file-systems.scm
View file

@ -4,29 +4,42 @@
) )
(define %cgroups (define %cgroups
(let (append (list
((parent (file-system (file-system
(device "cgroup") (device "cgroup")
(mount-point "/sys/fs/cgroup") (mount-point "/sys/fs/cgroup/hugetlb")
(type "tmpfs") (type "cgroup")
(check? #f) (check? #f)
))) (options "hugetlb")
(cons parent (create-mount-point? #t)
(map (lambda (subsystem) (dependencies (list (car %control-groups)))
(file-system
(device "cgroup")
(mount-point (string-append "/sys/fs/cgroup/" subsystem))
(type "cgroup")
(check? #f)
(options subsystem)
(create-mount-point? #t)
(dependencies (list parent))
)
)
'("blkio" "cpu" "cpuacct" "cpuset" "devices" "freezer" "hugetlb"
"memory" "net_cls" "net_prio" "perf_event" "pids" "systemd")
)
) )
) (file-system
(device "cgroup")
(mount-point "/sys/fs/cgroup/net_cls")
(type "cgroup")
(check? #f)
(options "net_cls")
(create-mount-point? #t)
(dependencies (list (car %control-groups)))
)
(file-system
(device "cgroup")
(mount-point "/sys/fs/cgroup/net_prio")
(type "cgroup")
(check? #f)
(options "net_prio")
(create-mount-point? #t)
(dependencies (list (car %control-groups)))
)
(file-system
(device "cgroup")
(mount-point "/sys/fs/cgroup/systemd")
(type "cgroup")
(check? #f)
(options "none,name=systemd")
(create-mount-point? #t)
(dependencies (list (car %control-groups)))
)
))
) )