mirror of
https://github.com/janet-lang/janet
synced 2024-11-18 06:34:48 +00:00
104 lines
2.9 KiB
Plaintext
104 lines
2.9 KiB
Plaintext
# A script to help generate build files on different platforms
|
|
|
|
# The Makefile generator
|
|
|
|
(def- make-cflags @["-std=c99" "-Wall" "-Wextra" "-O2" "-shared" "-fpic"])
|
|
(def- make-ldflags @[])
|
|
|
|
(if (= :macos (os.which))
|
|
(array.push make-cflags "undefined -dynamic_lookup"))
|
|
|
|
(defn- $
|
|
"Do and get the value of a subshell command"
|
|
[command]
|
|
(def f (file.popen command))
|
|
(def ret (file.read f :all))
|
|
(file.close f)
|
|
ret)
|
|
|
|
(defn- emit-rule
|
|
"Emit a rule in a makefile"
|
|
@[out target deps recipe]
|
|
(default recipe "@echo '-----'")
|
|
(file.write
|
|
out
|
|
target
|
|
": "
|
|
(if (indexed? deps) (string.join deps " ") deps)
|
|
"\n\t"
|
|
(if (indexed? recipe) (string.join recipe "\n\t") recipe)
|
|
"\n\n")
|
|
out)
|
|
|
|
(defn- generate-make
|
|
"Generate a makefile"
|
|
[out-path sources target]
|
|
(def out (file.open out-path :w))
|
|
(def csources (filter (fn [x] (= ".c" (string.slice x -2))) sources))
|
|
(def hsources (filter (fn [x] (= ".h" (string.slice x -2))) sources))
|
|
(file.write
|
|
out
|
|
"# Autogenerated Makefile, do not edit\n"
|
|
"# Generated at " ($ `date`)
|
|
"\nCFLAGS:=" (string.join make-cflags " ")
|
|
"\nLDFLAGS:=" (string.join make-ldflags " ")
|
|
"\nSOURCES:=" (string.join csources " ")
|
|
"\nHEADERS:=" (string.join hsources " ")
|
|
"\nOBJECTS:=$(patsubst %.c,%.o,${SOURCES})"
|
|
"\nTARGET:=" target ".so"
|
|
"\n\n")
|
|
(emit-rule out "all" "${TARGET}")
|
|
(emit-rule out "%.o" @["%.c" "${HEADERS}"] "${CC} ${CFLAGS} -o $@ $< ${LDFLAGS}")
|
|
(emit-rule out "${TARGET}" "${OBJECTS}" "${CC} ${CFLAGS} -o $@ $^ ${LDFLAGS}")
|
|
(emit-rule out "clean" "" "rm ${OBJECTS}")
|
|
(emit-rule out "clean" "" @["rm ${OBJECTS}" "rm @{TARGET}"])
|
|
# Phony targets
|
|
(emit-rule out ".PHONY" @["all" "clean"])
|
|
nil)
|
|
|
|
# The batch script generator (windows)
|
|
|
|
(defn- batch-crule
|
|
"Create a snippet to compile a single C file to an .obj file"
|
|
[file-path]
|
|
(string
|
|
`cl /nologo /I..\..\src\include /c /O2 /W3 `
|
|
file-path
|
|
"\n@if errorlevel 1 goto :BUILDFAIL"))
|
|
|
|
(defn- generate-batch
|
|
"Generate a batch file for windows"
|
|
[out-path sources target]
|
|
(def out (file.open out-path :w))
|
|
(def csources (filter (fn [x] (= ".c" (string.slice x -2))) sources))
|
|
(file.write
|
|
out
|
|
"@rem Generated batch script, run in 'Visual Studio Developer Prompt'\n"
|
|
"\n@rem \n\n"
|
|
"@echo off\n\n"
|
|
(string.join (map batch-crule csources) "\n\n")
|
|
"\n\n"
|
|
`link /nologo /dll ..\..\dst.lib /out:` target `.dll *.obj`
|
|
"\nif errorlevel 1 goto :BUILDFAIL"
|
|
"\n\n@echo .\n@echo ======\n@echo Build Succeeded.\n@echo =====\n"
|
|
"exit /b 0\n\n"
|
|
":BUILDFAIL\n"
|
|
"@echo .\n"
|
|
"@echo =====\n"
|
|
"@echo BUILD FAILED. See Output For Details.\n"
|
|
"@echo =====\n"
|
|
"@echo .\n"
|
|
"exit /b 1\n")
|
|
(file.flush out)
|
|
(file.close out)
|
|
nil)
|
|
|
|
(defn generate
|
|
"Generate the build files for a given library."
|
|
[out-path sources target]
|
|
((if (= :windows (os.which)) generate-batch generate-make)
|
|
out-path
|
|
sources
|
|
target))
|
|
|