From f9c343ed2a74b5f77e76fb10c488f2e8618f54cc Mon Sep 17 00:00:00 2001
From: Wade Zhang <dochang@gmail.com>
Date: Sat, 3 Aug 2024 02:23:54 +0800
Subject: [PATCH] Add limitcpu

---
 src/sheepfold/packages/admin.scm | 44 ++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 src/sheepfold/packages/admin.scm

diff --git a/src/sheepfold/packages/admin.scm b/src/sheepfold/packages/admin.scm
new file mode 100644
index 0000000..cb0c20e
--- /dev/null
+++ b/src/sheepfold/packages/admin.scm
@@ -0,0 +1,44 @@
+(define-module (sheepfold packages admin)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix gexp)
+  #:use-module (guix utils)
+  #:use-module ((guix licenses) #:prefix license:))
+
+(define-public limitcpu
+  (package
+    (name "limitcpu")
+    (version "3.1")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://sourceforge/limitcpu/limitcpu/cpulimit-" version ".tar.gz"))
+              (sha256
+               (base32 "0k13gfy05qwqjdk4axds5b41975qc3k79gc9bc4h77zkc3n98scl"))
+              (modules '((guix build utils)))
+              (snippet
+               '(substitute* "test/Makefile"
+                  (("(busy:[ \t]*busy.c).*[ \t]\\$\\(LIBS\\)" all head)
+                   (string-append head "\n"))))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:test-target "tests"
+      #:make-flags
+      #~(list (string-append "PREFIX=" %output)
+              (string-append "CC=" #$(cc-for-target)))
+      #:phases
+      '(modify-phases %standard-phases
+         (delete 'configure))))
+    (home-page "https://limitcpu.sourceforge.net/")
+    (synopsis "Throttle the CPU cycles used by other applications")
+    (description "LimitCPU is a program to throttle the CPU cycles used by other applications.
+LimitCPU will monitor a process and make sure its CPU usage stays at or
+below a given percentage. This can be used to make sure your system
+has plenty of CPU cycles available for other tasks. It can also be used
+to keep laptops cool in the face of CPU-hungry processes and for limiting
+virtual machines.
+
+LimitCPU is the direct child of CPUlimit, a creation of Angelo Marletta,
+which can be found at http://cpulimit.sourceforge.net.")
+    (license license:gpl2)))