/usr/share/julia/base/osutils.jl is in julia-common 0.4.7-6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | # This file is a part of Julia. License is MIT: http://julialang.org/license
function is_unix(os::Symbol)
if (os==:Windows) return false;
elseif (os==:Linux) return true;
elseif (os==:FreeBSD) return true;
elseif (os==:Darwin) return true;
else throw(ArgumentError("unknown operating system, $(repr(os))"))
end
end
function _os_test(qm,ex,test)
@assert qm == :?
@assert isa(ex,Expr)
@assert ex.head == :(:)
@assert length(ex.args) == 2
if test
return esc(ex.args[1])
else
return esc(ex.args[2])
end
end
macro windows(qm,ex)
_os_test(qm, ex, OS_NAME===:Windows)
end
macro unix(qm,ex)
_os_test(qm, ex, is_unix(OS_NAME))
end
macro osx(qm,ex)
_os_test(qm, ex, OS_NAME===:Darwin)
end
macro linux(qm,ex)
_os_test(qm, ex, OS_NAME===:Linux)
end
macro windows_only(ex)
@windows? esc(ex) : nothing
end
macro unix_only(ex)
@unix? esc(ex) : nothing
end
macro osx_only(ex)
@osx? esc(ex) : nothing
end
macro linux_only(ex)
@linux? esc(ex) : nothing
end
# Windows version macros
@windows_only function windows_version()
verinfo = ccall(:GetVersion, UInt32, ())
(verinfo & 0xFF, (verinfo >> 8) & 0xFF)
end
@unix_only windows_version() = (0,0)
WINDOWS_VISTA_VER = (6,0)
|