[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#29951] [PATCH] WIP guix: Add wrap-script.
From: |
Nils Gillmann |
Subject: |
[bug#29951] [PATCH] WIP guix: Add wrap-script. |
Date: |
Thu, 2 Aug 2018 09:22:55 +0000 |
Jelle Licht transcribed 4.1K bytes:
> 2018-01-02 21:44 GMT+01:00 Ricardo Wurmus <address@hidden>:
>
> > * 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/("
> >
>
> Won't this be an issue for people using a customized store location?
Can't we make this substitutable at configure time?
> [snipped]
> >