28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
(let [fd (file/open path :r)
rec {:id (reduce |(string/replace-all $1 "_" $0)
(basename path) ["-" "." "/"])
:vals (blob->c-array (:read fd :all))}]
(:close fd)
rec))
(defn c-decl [t]
(string "const uint8_t gdjn_rsrc_" (t :id) " []"))
(defn c-def [t]
(string (c-decl t) " = {" (t :vals) "}"))
(defn c-compile [c to-path]
(def cc (os/spawn [(dyn *cc*)
"-xc" "-c" "-"
"-o" to-path]
:p {:in :pipe}))
|
|
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
(let [fd (file/open path :r)
rec {:id (reduce |(string/replace-all $1 "_" $0)
(basename path) ["-" "." "/"])
:vals (blob->c-array (:read fd :all))}]
(:close fd)
rec))
(defn c-base [t]
(string "const uint8_t gdjn_rsrc_" (t :id) " [" (length (t :vals))"]"))
(defn c-decl [t]
(string "extern " (c-base t)))
(defn c-def [t]
(string (c-base t) " = {" (t :vals) "}"))
(defn c-compile [c to-path]
(def cc (os/spawn [(dyn *cc*)
"-xc" "-c" "-"
"-o" to-path]
:p {:in :pipe}))
|