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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
--!A cross-platform build utility based on Lua
--
-- Licensed under the Apache License, Version 2.0 (the "License");
-- you may not use this file except in compliance with the License.
-- You may obtain a copy of the License at
--
-- http://www.apache.org/licenses/LICENSE-2.0
--
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.
--
-- Copyright (C) 2015-present, Xmake Open Source Community.
--
-- @author ruki
-- @file uninstall.lua
--
-- imports
import("core.base.task")
import("core.project.rule")
import("core.project.project")
import("target.action.uninstall", {alias = "_do_uninstall_target"})
import("private.action.utils", {alias = "action_utils"})
-- on uninstall target
function _on_uninstall_target(target)
-- trace
print("uninstalling %s ..", target:name())
-- build target with rules
local done = false
for _, r in ipairs(target:orderules()) do
local on_uninstall = r:script("uninstall")
if on_uninstall then
on_uninstall(target)
done = true
end
end
if done then return end
-- do uninstall
_do_uninstall_target(target)
end
-- uninstall the given target
function _uninstall_target(target)
-- has been disabled?
if not target:is_enabled() then
return
end
-- enter project directory
local oldir = os.cd(project.directory())
-- enter the environments of the target packages
local oldenvs = os.addenvs(target:pkgenvs())
-- the target scripts
local scripts =
{
target:script("uninstall_before")
, function (target)
for _, r in ipairs(target:orderules()) do
local before_uninstall = r:script("uninstall_before")
if before_uninstall then
before_uninstall(target)
end
end
end
, target:script("uninstall", _on_uninstall_target)
, function (target)
for _, r in ipairs(target:orderules()) do
local after_uninstall = r:script("uninstall_after")
if after_uninstall then
after_uninstall(target)
end
end
end
, target:script("uninstall_after")
}
-- uninstall the target scripts
for i = 1, 5 do
local script = scripts[i]
if script ~= nil then
script(target)
end
end
-- leave the environments of the target packages
os.setenvs(oldenvs)
-- leave project directory
os.cd(oldir)
end
-- uninstall the given targets
function _uninstall_targets(targets)
for _, target in ipairs(targets) do
_uninstall_target(target)
end
end
-- uninstall
--
-- @param targetnames the target names (table), a single target name, or the magic "__all"/"__def"
--
function main(targetnames, group_pattern)
local targets = action_utils.get_targets(targetnames, {group_pattern = group_pattern})
if #targets > 0 then
_uninstall_targets(targets)
end
end
|
