forked from JuliaLang/julia
-
Notifications
You must be signed in to change notification settings - Fork 0
/
osutils.jl
58 lines (51 loc) · 1.24 KB
/
osutils.jl
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: https://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)