mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-30 20:09:54 +00:00
Code Issues 1 Releases Wiki Activity

Add default output path for --compile (-c)

Browse Source
This commit is contained in:
Andriamanitra 2024-07-08 11:55:50 +03:00
parent 190056b863
commit b7b594205c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/boot/boot.janet
View File

@ -4475,7 +4475,13 @@
"c" (fn c-switch [i &] "c" (fn c-switch [i &]
(def path (in args (+ i 1))) (def path (in args (+ i 1)))
(def e (dofile path)) (def e (dofile path))
(spit (in args (+ i 2)) (make-image e)) (def output-path
(if (< (+ i 2) (length args))
(in args (+ i 2))
(string
(if (string/has-suffix? ".janet" path) (string/slice path 0 -7) path)
".jimage")))
(spit output-path (make-image e))
(set no-file false) (set no-file false)
3) 3)
"-" (fn [&] (set handleopts false) 1) "-" (fn [&] (set handleopts false) 1)