blob: 3f6e74bfde6cd2dadd769879c891dc0014957d3a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
(define-module (px packages throttled)
#:use-module ((guix licenses)
#:prefix license:)
#:use-module (guix download)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (guix build-system trivial)
#:use-module (gnu packages bash)
#:use-module (gnu packages base)
#:use-module (gnu packages compression)
#:use-module (gnu packages glib)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz))
(define-public throttled
(package
(name "throttled")
(version "0.10.0")
(source
(origin
(method url-fetch)
(uri (string-append
"https://github.com/erpalma/throttled/archive/refs/tags/v"
version ".tar.gz"))
(sha256
(base32 "1f39rfk6bdx0a0m7krbb7yj0jy1p2a7qqn99y7jb02d84vy45q29"))))
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder (begin
(use-modules (guix build utils)
(srfi srfi-26))
(let* ((source (assoc-ref %build-inputs "source"))
(bash (assoc-ref %build-inputs "bash"))
(coreutils (assoc-ref %build-inputs "coreutils"))
(dbus (assoc-ref %build-inputs "dbus"))
(gzip (assoc-ref %build-inputs "gzip"))
(python (assoc-ref %build-inputs "python"))
(python-dbus (assoc-ref %build-inputs "python-dbus"))
(python-pygo (assoc-ref %build-inputs
"python-pygobject"))
(pythonpath (string-append "/lib/python"
,(version-major+minor (package-version
python))
"/site-packages:"))
(tar (assoc-ref %build-inputs "tar"))
(bin-dir (string-append %output "/bin"))
(etc-dir (string-append %output "/etc/throttled"))
(python-dir (string-append %output "/python"))
(root-dir "throttled-0.10.0")
(bin-script (string-append root-dir
"/runit/throttled/run"))
(py-script (string-append root-dir "/throttled.py")))
(mkdir-p bin-dir)
(mkdir-p etc-dir)
(mkdir-p python-dir)
(setenv "PATH"
(string-append (string-append bash "/bin:")
(string-append coreutils "/bin:")
(string-append gzip "/bin:")
(string-append tar "/bin:")))
(invoke "tar" "xvf" source)
(invoke "cp"
(string-append root-dir "/etc/throttled.conf")
(string-append etc-dir "/throttled.conf"))
(invoke "cp"
(string-append root-dir "/mmio.py") python-dir)
(substitute* py-script
(("/etc/throttled")
etc-dir))
(invoke "cp" py-script python-dir)
(substitute* bin-script
(("/opt/throttled/venv")
python))
(substitute* bin-script
(("/opt/throttled/throttled.py")
(string-append python-dir "/throttled.py" " $@")))
(invoke "mv" bin-script
(string-append bin-dir "/throttled"))
(wrap-program (string-append bin-dir "/throttled")
`("PYTHONPATH" ":" prefix
(,(string-append python-dbus pythonpath))))
(wrap-program (string-append bin-dir "/throttled")
`("PYTHONPATH" ":" prefix
(,(string-append python-pygo pythonpath))))
#t))))
(native-inputs `(("coreutils" ,coreutils)
("gzip" ,gzip)
("python" ,python)
("tar" ,tar)))
(inputs `(("bash" ,bash)
("python-dbus" ,python-dbus)
("python-pygobject" ,python-pygobject)))
(home-page "https://github.com/erpalma/throttled")
(synopsis "Workaround for Intel throttling issues in Linux.")
(description
"The CPU package power limit (PL1/2) is forced to a value of 44 W (29 W on battery)
and the temperature trip point to 95 'C (85 'C on battery) by overriding default values
in MSR and MCHBAR every 5 seconds (30 on battery) to block the Embedded Controller from
resetting these values to default.")
(license license:expat)))
|
