mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-06-26 23:22:51 +00:00
Code Issues 1 Releases Wiki Activity

Don't fail jpm if os/realpath fails.

Browse Source
This commit is contained in:
Calvin Rose 2021-01-03 13:09:41 -06:00
parent d0ac318980
commit ecc6eb7497
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
jpm
View File

@ -22,6 +22,19 @@
###START### ###START###
# Overriden on some installs. # Overriden on some installs.
# To configure this script, replace the code between
# the START and END comments and define a function
# (install-paths) that gives the the default paths
# to use. Trailing directory separator not expected.
#
# Example.
#
# (defn- install-paths []
# {:headerpath "/usr/local/include/janet"
# :libpath "/usr/local/lib/janet"
# :binpath "/usr/local/bin"
#
(def- exe-dir (def- exe-dir
"Directory containing jpm script" "Directory containing jpm script"
(do (do
@ -29,9 +42,13 @@
(def i (last (string/find-all sep exe))) (def i (last (string/find-all sep exe)))
(slice exe 0 i))) (slice exe 0 i)))
(defn- try-real [path]
"If os/realpath fails just use normal path."
(try (os/realpath) ([_] path)))
(defn- install-paths [] (defn- install-paths []
{:headerpath (os/realpath (string exe-dir "/../include/janet")) {:headerpath (try-real (string exe-dir "/../include/janet"))
:libpath (os/realpath (string exe-dir "/../lib")) :libpath (try-real (string exe-dir "/../lib"))
:binpath exe-dir}) :binpath exe-dir})
###END### ###END###