|
From: | Jelle Licht |
Subject: | [bug#29951] [PATCH] WIP guix: Add wrap-script. |
Date: | Thu, 2 Aug 2018 10:18:13 +0200 |
* guix/build/utils.scm (wrap-script): New procedure.
---
guix/build/utils.scm | 101 +++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 101 insertions(+)
diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index 7391307c8..a2efcb31c 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -3,6 +3,7 @@
;;; Copyright © 2013 Andreas Enge <address@hidden>
;;; Copyright © 2013 Nikita Karetnikov <address@hidden>
;;; Copyright © 2015 Mark H Weaver <address@hidden>
+;;; Copyright © 2018 Ricardo Wurmus <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -84,6 +85,7 @@
fold-port-matches
remove-store-references
wrap-program
+ wrap-script
invoke
locale-category->string))
@@ -1068,6 +1070,105 @@ with definitions for VARS."
(chmod prog-tmp #o755)
(rename-file prog-tmp prog))))
+(define wrap-script
+ (let ((interpreter-regex
+ (make-regexp
+ (string-append "^#! ?(/bin/sh|/gnu/store/[^/]+/bin/("
[snipped]
[Prev in Thread] | Current Thread | [Next in Thread] |