From 33f8ed35608d10441d0802d4a6d45ef82c339808 Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@ditigal.xyz>
Date: Thu, 18 Sep 2025 11:25:46 +0200
Subject: [PATCH] feat: add c wrapper replacement for sh wrappers

Replace a sh wrapper by a binary wrapper.
Call the original shell script.
---
 modules/ruther/build/wrappers.scm | 51 +++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 modules/ruther/build/wrappers.scm

diff --git a/modules/ruther/build/wrappers.scm b/modules/ruther/build/wrappers.scm
new file mode 100644
index 0000000000000000000000000000000000000000..47e235d4524c4fdf3f3838dff68eff8438186f6d
--- /dev/null
+++ b/modules/ruther/build/wrappers.scm
@@ -0,0 +1,51 @@
+(define-module (ruther build wrappers)
+  #:use-module (guix build utils)
+  #:use-module (ice-9 format)
+  #:export (replace-script-wrapper-with-binary
+            replace-wrappers-with-binaries))
+
+(define* (executable-wrapped? executable)
+  (let ((folder (dirname executable))
+        (filename (basename executable)))
+    (file-exists?
+     (string-append folder "/." filename "-real"))))
+
+(define* (make-c-wrapper-program target)
+  (mkdir-p (dirname target))
+  (call-with-output-file target
+    (lambda (port)
+      (display "#include <unistd.h>
+int main (int argc, char* argv[])
+{
+  execv(\"%SCRIPT%\", argv);
+} " port))))
+
+(define* (replace-script-wrapper-with-binary wrapper target)
+  (let ((wrapper-program "wrapper.c")
+        (wrapper-new (or (and
+                          (equal? wrapper target)
+                          (string-append
+                           (dirname wrapper)
+                           "/."
+                           (basename wrapper)
+                           "-wrapper"))
+                         wrapper)))
+    (when (equal? wrapper target)
+      (rename-file wrapper wrapper-new))
+    (format #t "Replacing wrapper ~a with target ~a.~%"
+            wrapper-new target)
+    (make-c-wrapper-program wrapper-program)
+    (substitute* wrapper-program
+      (("%SCRIPT%")
+       wrapper-new))
+    (when (file-exists? target)
+      (delete-file target))
+    (invoke "gcc" wrapper-program "-o" target)))
+
+(define* (replace-wrappers-with-binaries binaries)
+  (for-each
+   (lambda (binary)
+     (format #t "Investigating binary ~a for wrapping.~%" binary)
+     (when (executable-wrapped? binary)
+       (replace-script-wrapper-with-binary binary binary)))
+   binaries))