mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-28 11:09:54 +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))
(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
(defn even? [x] (== 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")
returnval)
(def module.syslibpath
(or (os.getenv "DST_PATH") "/usr/local/lib/dst/"))
(def module.paths
@["./?.dst"
"./?/init.dst"
"./dst_modules/?.dst"
"./dst_modules/?/init.dst"
"/usr/local/dst/0.0.0/?.dst"
"/usr/local/dst/0.0.0/?/init.dst"])
(string module.syslibpath VERSION "/?.dst")
(string module.syslibpath VERSION "/?/init.dst")
(string module.syslibpath "/?.dst")
(string module.syslibpath "/?/init.dst")])
(def module.native-paths
@["./?.so"
"./?/??.so"
"./dst_modules/?.so"
"./dst_modules/?/??.so"
"/usr/local/dst/0.0.0/?.so"
"/usr/local/dst/0.0.0/?/??.so"])
(string module.syslibpath VERSION "/?.so")
(string module.syslibpath VERSION "/?/??.so")
(string module.syslibpath "/?.so")
(string module.syslibpath "/?/??.so")])
(defn module.find
[path paths]