From df89c86b842a7aba5507b7910340d322ada78484 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Mon, 21 Jul 2025 09:12:25 +0300 Subject: gn-guile: Add dev variant of launcher script in gn-guile. * gn/packages/guile.scm (gn-guile)[arguments]: Install gn-guile-dev script. Signed-off-by: Munyoki Kilyungi --- gn/packages/guile.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/gn/packages/guile.scm b/gn/packages/guile.scm index 3587b00..012b7cc 100644 --- a/gn/packages/guile.scm +++ b/gn/packages/guile.scm @@ -207,15 +207,21 @@ for MySQL.") (cons* out guile-inputs)))) (mkdir-p "bin") (copy-file "gn-guile.sh" "bin/gn-guile") + (copy-file "gn-guile.sh" "bin/gn-guile-dev") (copy-file "scripts/lmdb-publishdata-export.scm" "bin/lmdb-publishdata-export") (substitute* "bin/gn-guile" (("@SHELL@") bash) (("guile") guile) (("web/webserver.scm") webserver)) + (substitute* "bin/gn-guile-dev" + (("@SHELL@") bash) + (("guile") guile)) (chmod "bin/gn-guile" #o755) + (chmod "bin/gn-guile-dev" #o755) (chmod "bin/lmdb-publishdata-export" #o755) (install-file "bin/gn-guile" bin) + (install-file "bin/gn-guile-dev" bin) (install-file "bin/lmdb-publishdata-export" bin) (wrap-script (string-append out "/bin/gn-guile") @@ -223,6 +229,12 @@ for MySQL.") `("GUILE_AUTO_COMPILE" ":" = ("0")) `("GUILE_LOAD_PATH" ":" prefix ,scm-path) `("GUILE_LOAD_COMPILED_PATH" ":" prefix ,go-path)) + (wrap-script + (string-append out "/bin/gn-guile-dev") + `("PATH" ":" prefix ,path) + `("GUILE_AUTO_COMPILE" ":" = ("0")) + `("GUILE_LOAD_PATH" ":" prefix ,scm-path) + `("GUILE_LOAD_COMPILED_PATH" ":" prefix ,go-path)) (wrap-program (string-append out "/bin/lmdb-publishdata-export") `("PATH" ":" prefix ,path) -- cgit v1.2.3