diff options
| -rw-r--r-- | pre-inst-env.in | 61 |
1 files changed, 33 insertions, 28 deletions
diff --git a/pre-inst-env.in b/pre-inst-env.in index 9e49f05..e6b281f 100644 --- a/pre-inst-env.in +++ b/pre-inst-env.in @@ -1,32 +1,37 @@ -#! /bin/sh +#! @GUILE@ --no-auto-compile +-*- scheme -*- +!# +;;; guile-email --- Guile email parser +;;; Copyright © 2021 Arun Isaac <arunisaac@systemreboot.net> +;;; +;;; This file is part of guile-email. +;;; +;;; guile-email is free software; you can redistribute it and/or modify +;;; it under the terms of the GNU Affero General Public License as +;;; published by the Free Software Foundation; either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; guile-email is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Affero General Public License for more details. +;;; +;;; You should have received a copy of the GNU Affero General Public +;;; License along with guile-email. If not, see +;;; <http://www.gnu.org/licenses/>. -# guile-email --- Guile email parser -# Copyright © 2012, 2013, 2014, 2015, 2017 Ludovic Courtès <ludo@gnu.org> -# Copyright © 2017 Eric Bavier <bavier@cray.com> -# Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> -# Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net> -# -# This file was adapted from mumi and is part of guile-email. -# -# guile-email is free software; you can redistribute it and/or modify -# it under the terms of the GNU Affero General Public License as -# published by the Free Software Foundation; either version 3 of the -# License, or (at your option) any later version. -# -# guile-email is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# Affero General Public License for more details. -# -# You should have received a copy of the GNU Affero General Public -# License along with guile-email. If not, see -# <http://www.gnu.org/licenses/>. +(import (ice-9 match)) -abs_top_srcdir="`cd "@abs_top_srcdir@" > /dev/null; pwd -P`" -abs_top_builddir="`cd "@abs_top_builddir@" > /dev/null; pwd -P`" +(define (prepend-path-environment-variable name . values) + (setenv name (string-join (append values + (if (getenv name) + (string-split (getenv name) #\:) + '())) + ":"))) -GUILE_LOAD_COMPILED_PATH="$abs_top_builddir${GUILE_LOAD_COMPILED_PATH:+:}$GUILE_LOAD_COMPILED_PATH" -GUILE_LOAD_PATH="$abs_top_builddir:$abs_top_srcdir${GUILE_LOAD_PATH:+:}$GUILE_LOAD_PATH" -export GUILE_LOAD_COMPILED_PATH GUILE_LOAD_PATH +(prepend-path-environment-variable "GUILE_LOAD_PATH" "@abs_top_builddir@" "@abs_top_srcdir@") +(prepend-path-environment-variable "GUILE_LOAD_COMPILED_PATH" "@abs_top_builddir@") -exec "$@" +(match (command-line) + ((_ command args ...) + (apply execlp command command args))) |