07/22: gnu: Add pkgconf-as-pkg-config.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit b0fa88de8df5eee70ff5d9a113c3f29d8f0ae899
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon Jan 29 23:18:02 2024 -0500

    gnu: Add pkgconf-as-pkg-config.
    
    * gnu/packages/pkg-config.scm (pkgconf-as-pkg-config): New variable.
    
    Change-Id: Ica85d2c248817fdf4756680cd94b0380e4a2b01f
---
 gnu/packages/pkg-config.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/gnu/packages/pkg-config.scm b/gnu/packages/pkg-config.scm
index 2f07bdab9d..a5459dd2a8 100644
--- a/gnu/packages/pkg-config.scm
+++ b/gnu/packages/pkg-config.scm
@@ -198,3 +198,31 @@ provides access to most of pkgconf's functionality, to 
allow other tooling
 such as compilers and IDEs to discover and use libraries configured by
 pkgconf.")
     (license isc)))
+
+(define-public pkgconf-as-pkg-config
+  (package/inherit pkgconf
+    (name "pkgconf-as-pkg-config")
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:tests? #f
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure)
+          (delete 'build)
+          (replace 'install
+            (lambda* (#:key inputs #:allow-other-keys)
+              (let ((pkgconf (search-input-file inputs "bin/pkgconf")))
+                (mkdir-p (string-append #$output "/bin"))
+                (symlink pkgconf (string-append #$output "/bin/pkg-config"))
+
+                ;; Also make 'pkg.m4' available, some packages might expect it.
+                (mkdir-p (string-append #$output "/share"))
+                ;; XXX: Using '#$(this-package-input "pkgconf") here would
+                ;; create a cycle.
+                (symlink (string-append (dirname (dirname pkgconf))
+                                        "/share/aclocal")
+                         (string-append #$output "/share/aclocal"))))))))
+    (native-inputs '())
+    (inputs (list pkgconf))
+    (propagated-inputs '())))