mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-07-05 19:42:55 +00:00
Code Issues 1 Releases Wiki Activity

Add DST_PATH environment variable for specifying where to look for user libs.

Browse Source
This commit is contained in:
Calvin Rose 2018-07-11 16:51:21 -04:00
parent 55ff1ee7e8
commit 24f153a3bf
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/core/core.dst
View File

@ -54,6 +54,20 @@
(def tab (apply1 table body)) (def tab (apply1 table body))
(tuple 'def name (tuple asm (tuple 'quote tab)))) (tuple 'def name (tuple asm (tuple 'quote tab))))
(defn defglobal
"Dynamically create a global def."
[name value]
(def name* (string name))
(put *env* name* @{:value value})
nil)
(defn varglobal
"Dynamically create a global var."
[name init]
(def name* (string name))
(put *env* name* @{:ref @[init]})
nil)
# Basic predicates # Basic predicates
(defn even? [x] (== 0 (% x 2))) (defn even? [x] (== 0 (% x 2)))
(defn odd? [x] (not= 0 (% x 2))) (defn odd? [x] (not= 0 (% x 2)))
@ -1112,21 +1126,28 @@
(run-context *env* chunks (fn [x] (:= returnval x)) default-error-handler "eval") (run-context *env* chunks (fn [x] (:= returnval x)) default-error-handler "eval")
returnval) returnval)
(def module.syslibpath
(or (os.getenv "DST_PATH") "/usr/local/lib/dst/"))
(def module.paths (def module.paths
@["./?.dst" @["./?.dst"
"./?/init.dst" "./?/init.dst"
"./dst_modules/?.dst" "./dst_modules/?.dst"
"./dst_modules/?/init.dst" "./dst_modules/?/init.dst"
"/usr/local/dst/0.0.0/?.dst" (string module.syslibpath VERSION "/?.dst")
"/usr/local/dst/0.0.0/?/init.dst"]) (string module.syslibpath VERSION "/?/init.dst")
(string module.syslibpath "/?.dst")
(string module.syslibpath "/?/init.dst")])
(def module.native-paths (def module.native-paths
@["./?.so" @["./?.so"
"./?/??.so" "./?/??.so"
"./dst_modules/?.so" "./dst_modules/?.so"
"./dst_modules/?/??.so" "./dst_modules/?/??.so"
"/usr/local/dst/0.0.0/?.so" (string module.syslibpath VERSION "/?.so")
"/usr/local/dst/0.0.0/?/??.so"]) (string module.syslibpath VERSION "/?/??.so")
(string module.syslibpath "/?.so")
(string module.syslibpath "/?/??.so")])
(defn module.find (defn module.find
[path paths] [path paths]