55 lines
No EOL
829 B
Text
55 lines
No EOL
829 B
Text
(namespace platform
|
|
(def os-name builtins.platform.os-name)
|
|
(def os-family builtins.platform.os-family)
|
|
(def arch builtins.platform.arch)
|
|
(def argv builtins.platform.argv)
|
|
(def executable #(vec.get (argv) 0))
|
|
(def args #(vec.slice (argv) 1 (vec.len (argv))))
|
|
|
|
(def debug? (lookup __is_debug__ false))
|
|
|
|
(def os-names [
|
|
:linux
|
|
:windows
|
|
:macos
|
|
:android
|
|
:ios
|
|
:openbsd
|
|
:freebsd
|
|
:netbsd
|
|
:wasi
|
|
:hermit
|
|
:aix
|
|
:apple
|
|
:dragonfly
|
|
:emscripten
|
|
:espidf
|
|
:fortanix
|
|
:uefi
|
|
:fuchsia
|
|
:haiku
|
|
:hermit
|
|
:watchos
|
|
:visionos
|
|
:tvos
|
|
:horizon
|
|
:hurd
|
|
:illumos
|
|
:l4re
|
|
:nto
|
|
:redox
|
|
:solaris
|
|
:solid_asp3
|
|
:vexos
|
|
:vita
|
|
:vxworks
|
|
:xous
|
|
])
|
|
|
|
(def os-families [
|
|
:unix
|
|
:windows
|
|
:itron
|
|
:wasm
|
|
])
|
|
) |