guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/02: gnu: fc-host-tools: Make installation path patcher more self-main


From: guix-commits
Subject: 02/02: gnu: fc-host-tools: Make installation path patcher more self-maintaining.
Date: Tue, 18 May 2021 10:12:48 -0400 (EDT)

dannym pushed a commit to branch master
in repository guix.

commit b72e27c84284acff043c3a04dc43ce72fc840ca8
Author: Danny Milosavljevic <dannym@scratchpost.org>
AuthorDate: Tue May 18 15:55:12 2021 +0200

    gnu: fc-host-tools: Make installation path patcher more self-maintaining.
    
    * gnu/packages/embedded.scm (fc-host-tools)[arguments]<#:phases>
    [patch-installation-paths]: Make phase more self-maintaining.
---
 gnu/packages/embedded.scm | 18 +++---------------
 1 file changed, 3 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/embedded.scm b/gnu/packages/embedded.scm
index b2dab9c..8109ec2 100644
--- a/gnu/packages/embedded.scm
+++ b/gnu/packages/embedded.scm
@@ -1237,21 +1237,9 @@ SPI, I2C, JTAG.")
        (modify-phases %standard-phases
          (add-after 'unpack 'patch-installation-paths
            (lambda* (#:key outputs #:allow-other-keys)
-             (substitute* '("Makefile"
-                            "rvinterf/etmsync/fsiomain.c"
-                            "rvinterf/etmsync/fsnew.c"
-                            "rvinterf/asyncshell/help.c"
-                            "rvinterf/libinterf/launchrvif.c"
-                            "loadtools/bpmain.c"
-                            "loadtools/defpath.c"
-                            "loadtools/romdump.c"
-                            "loadtools/lthelp.c"
-                            "loadtools/simmain.c"
-                            "loadtools/Makefile"
-                            "miscutil/c139explore"
-                            "miscutil/pirexplore"
-                            "ffstools/tiffs-wrappers/installpath.c"
-                            "uptools/atcmd/atinterf.c")
+             (substitute* (cons* "miscutil/c139explore"
+                                 "miscutil/pirexplore"
+                                 (find-files "." "^(.*\\.[ch]|Makefile)$"))
                (("/opt/freecalypso/bin/fc-simtool")
                 "fc-simtool")
                (("/opt/freecalypso/bin/fc-uicc-tool")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]