05/15: gnu: scilab: Add phase rewrap-scilab-cli.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit a4d7310ab97e45166ea845deb574cc4efbd1b915
Author: Nicolas Graves <ngraves@ngraves.fr>
AuthorDate: Mon Nov 6 00:51:47 2023 +0100

    gnu: scilab: Add phase rewrap-scilab-cli.
    
    * gnu/packages/maths.scm (scilab): Add phase rewrap-scilab-cli.
    
    Change-Id: Ia3ca5df1a4795c34b6c1cdc8c3b0d7cc2badf0cb
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/maths.scm | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index abc0dc748d..9113e2e28d 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -9708,7 +9708,27 @@ computation is supported via MPI.")
                 (apply invoke "make"
                        "src/cpp/parse/parsescilab.cpp"
                        "src/cpp/parse/scanscilab.cpp"
-                       make-flags))))))))
+                       make-flags))))
+          ;; The startup script is mostly there to define the following env
+            ;; variables properly. We can do this with guix directly.
+            (add-after 'install 'rewrap-scilab-cli
+              (lambda _
+                (define (bin path) (string-append #$output "/bin/" path))
+                (delete-file (bin "scilab-cli"))
+                (wrap-program (bin "scilab-cli-bin")
+                  `("SCI" = (,(string-append #$output "/share/scilab")))
+                  `("LD_LIBRARY_PATH" ":" prefix
+                    (,(string-append #$output "/lib/scilab")))
+                  `("TCL_LIBRARY" = (,(string-append #$tcl "/lib")))
+                  `("TK_LIBRARY" = (,(string-append #$tk "/lib"))))
+                (copy-file (bin "scilab-cli-bin") (bin "scilab-cli"))
+                (copy-file (bin ".scilab-cli-bin-real") (bin "scilab-cli-bin"))
+                (delete-file (bin ".scilab-cli-bin-real"))
+                (substitute* (bin "scilab-cli")
+                  (("\\.scilab-cli-bin-real")
+                   "scilab-cli-bin")
+                  (("export SCI=")
+                   "unset LANGUAGE\nexport SCI="))))))))
     (home-page "https://www.scilab.org/";)
     (synopsis "Software for engineers and scientists")
     (description "This package provides the non-graphical version of the Scilab