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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
/*
A helper class for installing and parsing files,
and generating an uninstallation alias on the fly.
Example :
include "utils/installer.kvs"
%installer = $new(installer,0,myinstaller)
%installer->$copyFiles(pics,*.png,$file.localdir(pics))
%installer->$includeFiles(src,*.kvs)
%installer->generateUninstallAlias("foo::uninstall")
delete %installer
Here, "foo::uninstall" must be called in you uninstall
callback script.
Warnings:
1) Declaration of aliases, popups, etc, in source files
(.kvs) must be in a similar format
as when you export them directly from kvirc.
Example:
alias(myalias)
defpopup(mypopup)
2) If you use a "defpopup -m" to add an item to an
existing popup,this item won't be registered
automatically for uninstallation by this installer script.
You should typically identify the item you added using
the "id" parameter. See this example where the id is
"myaddon::myitem":
defpopup -m (channeltextview)
{
item(MyItem)(myaddon::myitem)
{
...
}
}
Then, you add this line to you uninstall callback
script:
delpopupitem channeltextview myaddon::myitem
*/
class(installer,object)
{
constructor()
{
}
copyFiles($0 = source dir,$1 = file regexp,$2 = target dir)
{
if(!$file.exists($0))return
if($isempty($0))
{
echo $tr("[Installer] The first argument to \%installer->\$copyfiles must be a source directory")
halt
}
if($isempty($1))
{
echo $tr("[Installer] The second argument to \%installer->\$copyfiles must be a file name or file regexp")
halt
}
if($isempty($2))
{
echo $tr("[Installer] The third argument to \%installer->\$copyfiles must be a destination directory")
halt
}
if($file.exists($0))
{
%files = $file.ls($file.fixpath($0),f,$1)
if($length(%files))
{
@$mkdir($2)
foreach(%file,%files)
{
$this->%lFiles <+ $str.tqreplace($file.fixpath("$2/%file"),"\\\\","\\")
file.copy -o $file.fixpath($0/%file) $file.fixpath($2/%file)
}
}
}
}
// Recursive creation of directory
mkdir($0 = directory)
{
if($isempty($0) || $file.exists($0)) return
foreach -a (%subdir,$str.split("/",$file.fixpath($0)))
{
%p <+ %subdir
%path = $str.join("/",%p)
if(!$file.exists(%path))
file.mkdir -q %path
}
if(!$file.exists($0))
{
echo $tr("[Installer] Failed to create directory") \"$0\"
return
}
}
// Parse source files and get what will need to be uninstalled
includeFiles($0 = dir, $1 = file regexp)
{
if($isempty($0))
{
echo $tr("[Installer] The first argument to \%installer->\$includefiles must be a source directory")
halt
}
@$mkdir($0)
if($1 == "")
%szRe = "*.kvs"
else
%szRe = $1
%files = $file.ls($file.fixpath($0),f,$1)
if($length(%files))
{
foreach(%file,%files)
{
$this->%lSources <+ $str.tqreplace($file.fixpath("$0/%file"),"\\\\","\\")
include $file.fixpath("$0/%file")
}
}
}
generateUninstallAlias($0 = alias name)
{
%c = "alias($0)$lf"
%c .= "{$lf"
if($isset($this->%lFiles))
{
foreach(%file,$this->%lFiles)
{
%file =~ s/"^$file.localdir()/(.*)$"/"\$file.localdir(\\1)"/
%c .= " file.remove -q \"%file\"$lf";
}
}
if($isset($this->%lSources))
{
foreach(%file,$this->%lSources){
foreach(%line,$file.readlines(%file))
if(!$str.isempty(%line)){
if($str.match("event(*)",%line,e))
%c .= " event -q ("$str.token(1,"()",%line)"){}$lf"
else if($str.match("alias(*)",%line,e))
%aliases<+$str.token(1,"()",%line)
else if($str.match("defpopup(*)",%line,e))
%c .= " defpopup("$str.token(1,"()",%line)"){}$lf"
else if($str.match("toolbar.create * *",%line,e))
%c .= " toolbar.destroy -q "$str.word(1,%line)"$lf"
else if($str.match("action.create* (*)",%line,e))
%c .= " action.destroy -q "$str.tqreplace($str.token(1,"(,)",%line),,\")"$lf"
else if($str.match("class(*)*",%line,e))
%c .= " objects.killclass -q "$str.token(1,"(,)",%line)"$lf"
}
}
if($isset(%aliases))
foreach(%alias,%aliases)
%c .= " alias -q (%alias){}$lf"
%c .= " alias -q ($0){}$lf"
}
%c .= "}"
eval %c
}
}
|
