mirror of
https://github.com/janet-lang/janet
synced 2024-12-24 07:20:27 +00:00
162 lines
4.6 KiB
Plaintext
162 lines
4.6 KiB
Plaintext
# Library to help build janet natives and other
|
|
# build artifacts.
|
|
|
|
# Windows is the OS outlier
|
|
(def- is-win (= (os/which) :windows))
|
|
(def- sep (if is-win "\\" "/"))
|
|
(def- objext (if is-win ".obj" ".o"))
|
|
(def- modext (if is-win ".dll" ".so"))
|
|
|
|
(defn- shell
|
|
"Do a shell command"
|
|
[& args]
|
|
(print ;args)
|
|
(def res (os/shell (string ;args)))
|
|
(unless (zero? res)
|
|
(print "Error executing command: " ;args)
|
|
(os/exit res)))
|
|
|
|
(defn- mkdir
|
|
"Make a directory. Not safe for user code."
|
|
[path]
|
|
(if is-win
|
|
(shell "mkdir " path)
|
|
(shell "mkdir -p " path)))
|
|
|
|
(defn- rm
|
|
"Remove a directory. Not safe for user code."
|
|
[path]
|
|
(if is-win
|
|
(shell "rmdir " path " /s")
|
|
(shell "rm -rf " path)))
|
|
|
|
(defn- older-than
|
|
[f1 f2]
|
|
"Check if f1 is newer than f2. Used for checking if a file should be updated."
|
|
(if is-win true
|
|
(zero? (os/shell (string "[ " f1 " -ot " f2 " ]")))))
|
|
|
|
(defn- older-than-some
|
|
[f others]
|
|
(some (partial older-than f) others))
|
|
|
|
(defn- embed-name
|
|
"Rename a janet symbol for embedding."
|
|
[path]
|
|
(->> path
|
|
(string/replace-all sep "___")
|
|
(string/replace-all ".janet" "")))
|
|
|
|
(defn- embed-c-name
|
|
"Rename a janet file for embedding."
|
|
[path]
|
|
(->> path
|
|
(string/replace-all sep "___")
|
|
(string/replace-all ".janet" ".janet.c")
|
|
(string "build" sep)))
|
|
|
|
(defn- embed-o-name
|
|
"Get object file for c file."
|
|
[path]
|
|
(->> path
|
|
(string/replace-all sep "___")
|
|
(string/replace-all ".janet" (string ".janet" objext))
|
|
(string "build" sep)))
|
|
|
|
(defn- object-name
|
|
"Rename a source file so it can be built in a flat source tree."
|
|
[path]
|
|
(->> path
|
|
(string/replace-all sep "___")
|
|
(string/replace-all ".c" (if is-win ".obj" ".o"))
|
|
(string "build" sep)))
|
|
|
|
(defn- lib-name
|
|
"Generate name for dynamic library."
|
|
[name]
|
|
(string "build" sep name modext))
|
|
|
|
# Defaults
|
|
(def OPTIMIZE 2)
|
|
(def CC (if is-win "cl" "cc"))
|
|
(def LD (if is-win "link" (string CC " -shared")))
|
|
(def CFLAGS (string (if is-win "/0" "-std=c99 -Wall -Wextra -fpic -O") OPTIMIZE))
|
|
|
|
(defn- compile-c
|
|
"Compile a C file into an object file."
|
|
[opts src dest]
|
|
(def cc (or opts:compiler CC))
|
|
(def cflags (or opts:cflags CFLAGS))
|
|
(if (older-than dest src)
|
|
(if is-win
|
|
(shell cc " /nologo /c " cflags " /Fo" dest " " src)
|
|
(shell cc " " cflags " -o " dest " -c " src))))
|
|
|
|
(defn- link-c
|
|
"Link a number of object files together."
|
|
[opts target & objects]
|
|
(def ld (or opts:linker LD))
|
|
(def cflags (or opts:cflags CFLAGS))
|
|
(def olist (string/join objects " "))
|
|
(if (older-than-some target objects)
|
|
(if is-win
|
|
(shell ld "/out:" target " " olist)
|
|
(shell ld " " cflags " -o " target " " olist))))
|
|
|
|
(defn- create-buffer-c
|
|
"Inline raw byte file as a c file."
|
|
[source dest name]
|
|
(when (older-than dest source)
|
|
(def f (file/open source :r))
|
|
(if (not f) (error (string "file " f " not found")))
|
|
(def out (file/open dest :w))
|
|
(def chunks (seq [b :in (file/read f :all)] (string b)))
|
|
(file/write out
|
|
"#include <janet/janet.h>\n"
|
|
"static const unsigned char bytes[] = {"
|
|
;(interpose ", " chunks)
|
|
"};\n\n"
|
|
"const unsigned char *" name "_embed = bytes;\n"
|
|
"size_t " name "_embed_size = sizeof(bytes);\n")
|
|
(file/close out)
|
|
(file/close f)))
|
|
|
|
# Public
|
|
|
|
(defn make-native
|
|
"Build a native binary. This is a shared library that can be loaded
|
|
dynamically by a janet runtime."
|
|
[& opts]
|
|
(def opt-table (table ;opts))
|
|
(mkdir "build")
|
|
(loop [src :in opt-table:source]
|
|
(compile-c opt-table src (object-name src)))
|
|
(def objects (map object-name opt-table:source))
|
|
(when opt-table:embedded
|
|
(loop [src :in opt-table:embedded]
|
|
(def c-src (embed-c-name src))
|
|
(def o-src (embed-o-name src))
|
|
(array/push objects o-src)
|
|
(create-buffer-c src c-src (embed-name src))
|
|
(compile-c opt-table c-src o-src)))
|
|
(link-c opt-table (lib-name opt-table:name) ;objects))
|
|
|
|
(defn clean
|
|
"Remove all built artifacts."
|
|
[]
|
|
(rm "build"))
|
|
|
|
(defn make-archive
|
|
"Build a janet archive. This is a file that bundles together many janet
|
|
scripts into a janet form. This file can the be moved to any machine with
|
|
a janet vm and the required dependencies and run there."
|
|
[& opts]
|
|
(error "Not Yet Implemented."))
|
|
|
|
(defn make-binary
|
|
"Make a binary executable that can be run on the current platform. This function
|
|
generates a self contained binary that can be run of the same architecture as the
|
|
build machine, as the current janet vm will be packaged with the output binary."
|
|
[& opts]
|
|
(error "Not Yet Implemented."))
|