From bdb8b5c98ab29c418b10f3d313c0e659848085e2 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sat, 18 Jan 2025 14:42:08 -0300
Subject: etc/guix/home.scm: Add tiniercc and pcc packages

---
 etc/guix/home.scm | 33 ++++++++++++++++++++++++++++++++-
 1 file changed, 32 insertions(+), 1 deletion(-)

diff --git a/etc/guix/home.scm b/etc/guix/home.scm
index 0697dd4..3adb0f8 100644
--- a/etc/guix/home.scm
+++ b/etc/guix/home.scm
@@ -22,10 +22,12 @@
   (guix packages)
   (guix utils))
 (use-package-modules
+  c
   flex
   freedesktop
   gcc
   messaging
+  musl
   python-build
   wm
   xdisorg)
@@ -33,6 +35,32 @@
 
 
 
+(define tiniercc
+  (package
+    (inherit tcc)
+    (name "tiniercc")
+    (arguments
+      (substitute-keyword-arguments (package-arguments tcc)
+        ((#:tests? _ #f) #f)
+        ((#:configure-flags _)
+         #~(list
+            "--enable-static"
+            "--config-musl"
+            (string-append
+             "--crtprefix="
+             #$(file-append musl "/lib"))))
+        ((#:phases phases)
+         #~(modify-phases #$phases
+             (add-after 'install 'ln-alias
+               (lambda _
+                 (symlink (string-append #$out "/bin/tcc")
+                          (string-append #$out "/bin/cc"))
+                 (symlink (string-append #$out "/bin/tcc")
+                          (string-append #$out "/bin/c99"))))))))
+    (native-inputs
+      (modify-inputs (package-native-inputs tcc)
+        (append which)))))
+
 (define gm2
   (package
     (inherit gcc-14)
@@ -407,7 +435,9 @@
             gcc-toolchain:static
             cppcheck
             clang
-            tcc
+            ;; tcc
+            ;; musl
+            pcc
             ;; compcert ; broken
             quickjs
             m4
@@ -478,6 +508,7 @@
             firefox))
      (list
       gm2
+      tiniercc
       q:go-full)
      (list
       (script "cronjob"
-- 
cgit v1.2.3