mirror of
https://github.com/carp-lang/Carp.git
synced 2024-11-05 04:44:12 +03:00
73 lines
2.2 KiB
Plaintext
73 lines
2.2 KiB
Plaintext
(doc native-triple "triple describing the native platform.")
|
|
(defdynamic native-triple [(host-arch) (host-os) "unknown"])
|
|
|
|
(doc target-triple "triple describing the target platform.")
|
|
(defndynamic target-triple []
|
|
(let [t (Project.get-config "target")]
|
|
(case t
|
|
"native" native-triple
|
|
(Dynamic.String.split-on "-" t))))
|
|
|
|
(doc target-arch "target architecture.")
|
|
(defdynamic target-arch (car (target-triple)))
|
|
|
|
(doc target-os "target operating system.")
|
|
(defdynamic target-os (cadr (target-triple)))
|
|
|
|
(doc target-abi "target ABI.")
|
|
(defdynamic target-abi (caddr (target-triple)))
|
|
|
|
(doc target-os? "are we targeting a certain OS?")
|
|
(defndynamic target-os? [t]
|
|
(= target-os t))
|
|
|
|
(doc windows-target? "are we targeting Windows?")
|
|
(defdynamic windows-target?
|
|
(if (target-os? "windows")
|
|
true
|
|
(target-os? "mingw32")))
|
|
|
|
(doc linux-target? "are we targeting Linux?")
|
|
(defdynamic linux-target? (target-os? "linux"))
|
|
|
|
(doc mac-target? "are we targeting Mac?")
|
|
(defdynamic mac-target? (target-os? "darwin"))
|
|
|
|
(doc freebsd-target? "are we targeting FreeBSD?")
|
|
(defdynamic freebsd-target? (target-os? "freebsd"))
|
|
|
|
(doc netbsd-target? "are we targeting NetBSD?")
|
|
(defdynamic netbsd-target? (target-os? "netbsd"))
|
|
|
|
(doc posix-target? "are we targeting a POSIX platform?")
|
|
(defdynamic posix-target? (= false windows-target?))
|
|
|
|
(doc target-only "conditionally compile forms when b is true.")
|
|
(defndynamic target-only [b forms]
|
|
(when b
|
|
(eval (cons 'do forms))))
|
|
|
|
(doc mac-only "compile forms only on Mac.")
|
|
(defmacro mac-only [:rest forms]
|
|
(target-only mac-target? forms))
|
|
|
|
(doc linux-only "compile forms only on Linux.")
|
|
(defmacro linux-only [:rest forms]
|
|
(target-only linux-target? forms))
|
|
|
|
(doc freebsd-only "compile forms only on FreeBSD.")
|
|
(defmacro freebsd-only [:rest forms]
|
|
(target-only freebsd-target? forms))
|
|
|
|
(doc netbsd-only "compile forms only on NetBSD.")
|
|
(defmacro netbsd-only [:rest forms]
|
|
(target-only netbsd-target? forms))
|
|
|
|
(doc windows-only "compile forms only on Windows.")
|
|
(defmacro windows-only [:rest forms]
|
|
(target-only windows-target? forms))
|
|
|
|
(doc posix-only "compile forms only on POSIX targets.")
|
|
(defmacro posix-only [:rest forms]
|
|
(target-only posix-target? forms))
|