51 lines
2.3 KiB
Text
51 lines
2.3 KiB
Text
def main (args : List String) : IO UInt32 := do
|
|
if args.isEmpty then
|
|
IO.println "Lean C compiler
|
|
|
|
A simple wrapper around a C compiler. Defaults to `@LEANC_CC@`,
|
|
which can be overridden with the environment variable `LEAN_CC`. All parameters are passed
|
|
as-is to the wrapped compiler.
|
|
|
|
Interesting options:
|
|
* `-U LEAN_MULTI_THREAD` can be used to optimize programs not making use of multi-threading
|
|
* `--print-cflags`: print C compiler flags necessary for building against the Lean runtime and exit
|
|
* `--print-ldlags`: print C compiler flags necessary for statically linking against the Lean library and exit
|
|
* Set the `LEANC_GMP` environment variable to a path to `libgmp.a` (or `-l:libgmp.a` on Linux) to link GMP statically.
|
|
Beware of the licensing consequences since GMP is LGPL."
|
|
return 1
|
|
|
|
let root ← match (← IO.getEnv "LEAN_SYSROOT") with
|
|
| some root => System.FilePath.mk root
|
|
| none => (← IO.appDir).parent.get!
|
|
let rootify s := s.replace "ROOT" root.toString
|
|
|
|
-- We assume that the CMake variables do not contain escaped spaces
|
|
let cflags := ["-I", (root / "include").toString] ++ "@LEANC_EXTRA_FLAGS@".trim.splitOn
|
|
let cflagsHidden := "@LEANC_INTERNAL_FLAGS@".trim.splitOn
|
|
let mut ldflags := ["-L", (root / "lib").toString, "-L", (root / "lib" / "lean").toString, (← IO.getEnv "LEANC_GMP").getD "-lgmp"] ++ "@LEAN_EXTRA_LINKER_FLAGS@".trim.splitOn
|
|
let mut ldflagsExt := "@LEANC_STATIC_LINKER_FLAGS@".trim.splitOn
|
|
let ldflagsHidden := "@LEANC_INTERNAL_LINKER_FLAGS@".trim.splitOn
|
|
|
|
for arg in args do
|
|
match arg with
|
|
| "-shared" =>
|
|
-- switch to shared linker flags
|
|
ldflagsExt := "@LEANC_SHARED_LINKER_FLAGS@".trim.splitOn
|
|
| "-c" =>
|
|
ldflags := []
|
|
ldflagsExt := []
|
|
| "--print-cflags" =>
|
|
IO.println <| " ".intercalate (cflags.map rootify)
|
|
return 0
|
|
| "--print-ldflags" =>
|
|
IO.println <| " ".intercalate ((cflags ++ ldflagsExt ++ ldflags).map rootify)
|
|
return 0
|
|
| _ => ()
|
|
|
|
let cc := rootify <| (← IO.getEnv "LEAN_CC").getD "@LEANC_CC@"
|
|
let args := cflags ++ cflagsHidden ++ args ++ ldflagsExt ++ ldflags ++ ldflagsHidden ++ ["-Wno-unused-command-line-argument"]
|
|
let args := args.map rootify
|
|
if args.contains "-v" then
|
|
IO.eprintln s!"{cc} {" ".intercalate args}"
|
|
let child ← IO.Process.spawn { cmd := cc, args := args.toArray }
|
|
child.wait
|