1
0
mirror of https://github.com/janet-lang/janet synced 2024-11-09 10:19:54 +00:00

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

This commit is contained in:
Andriamanitra 2024-07-08 11:55:50 +03:00
parent 190056b863
commit b7b594205c

View File

@ -4475,7 +4475,13 @@
"c" (fn c-switch [i &]
(def path (in args (+ i 1)))
(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)
3)
"-" (fn [&] (set handleopts false) 1)