[bug#53834] [PATCH v2] gnu: Add cproc.

["\(unmatched-parenthesis via Guix-patches" via <guix-patches@gnu.org>]

* gnu/packages/c.scm (cproc): New variable.

Signed-off-by: (unmatched-parenthesis <paren@disroot.org>
---
This improved patch fixes some style nits.

Thanks to lilyp for pointing them out on #guix!

 gnu/packages/c.scm | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/gnu/packages/c.scm b/gnu/packages/c.scm
index c9a25eb801..216ddfef88 100644
--- a/gnu/packages/c.scm
+++ b/gnu/packages/c.scm
@@ -47,6 +47,7 @@ (define-module (gnu packages c)
   #:use-module (gnu packages bison)
   #:use-module (gnu packages check)
   #:use-module (gnu packages flex)
+  #:use-module (gnu packages gcc)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages texinfo)
   #:use-module (gnu packages guile)
@@ -1108,3 +1109,48 @@ (define-public qbe
 language as input.")
     (home-page "https://c9x.me/compile/")
     (license license:expat))))
+
+(define-public cproc
+  (let ((commit "70fe9ef1810cc6c05bde9eb0970363c35fa7e802")
+        (revision "1"))
+    (package
+     (name "cproc")
+     (version (git-version "0.0" revision commit))
+     (source
+      (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://git.sr.ht/~mcf/cproc")
+             (commit commit)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1qmgzll7z7mn587azkj4cizyyd8ii6iznfxpc66ja08140sbn9yx"))))
+     (build-system gnu-build-system)
+     (arguments
+      (list #:make-flags
+            #~(list (string-append "CC=" #$(cc-for-target))
+                    (string-append "PREFIX=" #$output))
+            #:phases
+            #~(modify-phases %standard-phases
+                (replace 'configure
+                  (lambda* (#:key inputs outputs #:allow-other-keys)
+                    (let ((out (assoc-ref outputs "out"))
+                          (gcc-lib (assoc-ref inputs "gcc:lib"))
+                          (host-system #$(nix-system->gnu-triplet (%current-system)))
+                          (target-system
+                           #$(nix-system->gnu-triplet (or (%current-target-system)
+                                                          (%current-system)))))
+                      (invoke "./configure"
+                              (string-append "--prefix=" out)
+                              (string-append "--host=" host-system)
+                              (string-append "--target=" target-system)
+                              (string-append "--with-ld=" #$(ld-for-target))
+                              (string-append "--with-gcc-libdir=" gcc-lib))))))))
+     (inputs `(("qbe" ,qbe)
+               ("gcc:lib" ,gcc "lib")))
+     (supported-systems (list "x86_64-linux" "aarch64-linux"))
+     (synopsis "Simple C11 compiler backed by QBE")
+     (description "@code{cproc} is a C compiler using QBE as a backend, supporting most of C11
+along with some GCC and C2x extensions.")
+     (home-page "https://sr.ht/~mcf/cproc")
+     (license license:expat))))
-- 
2.36.0