-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathbuild.tcl
265 lines (208 loc) · 8.7 KB
/
build.tcl
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
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
##############################################################
# Build configuration file
#
# Run run.bat or run.sh to run the build
#
##############################################################
# Build command syntax:
# build <os> <arch> <project_name> <basekit> <list_of_packages>
# where basekit may be: base-tcl-<ver> or base-tk-<ver> or base-tcl-thread-<ver> or base-tk-thread-<ver>
#
# Examples
# Prepare library project samplelib. Version number not relevant
# One library project may contain multiple tcl packages with different names
# Artifacts are placed in lib/generic and are ready to use by other projects
#prepare-lib samplelib 0.0.0
# Build project sample for linux-ix86 with basekit base-tcl-8.6.3.1.298687 and packages tls-1.6.7.1 autoproxy-1.5.3
#build linux ix86 sample base-tcl-8.6.3.1.298687 {tls-1.6.7.1 autoproxy-1.5.3}
# Run project sample as starpack - recommended since it tests end-to-end
#ex ./build/sample/linux-ix86/sample.bin
# Run project sample not as starpack but from unwrapped vfs
# Project must be built for this platform first!
#run sample
proc base-ver {arch} {
if {$arch eq "x86_64"} {
return "8.6.3.1.298687"
} elseif {$arch eq "ix86"} {
return "8.6.3.1.298685"
} else {
error "base-ver unrecognized arch: $arch"
}
}
proc copy-flags {countries {sizes {16 24 64}}} {
set from [file normalize ../images/flag/shiny]
set to [file normalize ./fruho/images]
foreach size $sizes {
file mkdir [file join $to $size flag]
foreach c $countries {
file copy -force [file join $from $size $c.png] [file join $to $size flag]
}
}
}
proc build-fruho {os arch} {
spit fruho/builddate.txt $::builddate
spit fruho/buildver.txt $::FRUHO_VERSION
#copy-flags {PL GB UK DE FR US EMPTY}
#build $os $arch fruho base-tk-[base-ver $arch] {sklib-0.0.0 Tkhtml-3.0 tls-1.6.7.1 Tclx-8.4 cmdline-1.5 json-1.3.3 snit-2.3.2 doctools-1.4.19 textutil::expander-1.3.1}
build $os $arch fruho base-tk-[base-ver $arch] {sklib-0.0.0 tls-1.6.7.1 Tclx-8.4 cmdline-1.5 json-1.3.3 uri-1.2.5 base64-2.4.2 tktray-1.3.9}
# this is necessary to prevent "cp: cannot create regular file ‘/usr/local/sbin/fruho.bin’: Text file busy"
if {[file exists /usr/local/bin/fruho.bin]} {
ex sudo mv /usr/local/bin/fruho.bin /tmp/fruho.bin-tmp
}
ex sudo cp build/fruho/linux-$arch/fruho.bin /usr/local/bin/fruho.bin
}
proc build-fruhod {os arch} {
spit fruhod/builddate.txt $::builddate
spit fruhod/buildver.txt $::FRUHO_VERSION
build $os $arch fruhod base-tk-[base-ver $arch] {sklib-0.0.0 Tclx-8.4}
#ex sudo service fruhod stop
# this is necessary to prevent "cp: cannot create regular file ‘/usr/local/sbin/fruhod.bin’: Text file busy"
# do the same when auto-upgrading inside fruhod
if {[file exists /usr/local/sbin/fruhod.bin]} {
ex sudo mv /usr/local/sbin/fruhod.bin /tmp/fruhod.bin-tmp
}
ex sudo cp build/fruhod/linux-$arch/fruhod.bin /usr/local/sbin/fruhod.bin
ex sudo cp fruhod/exclude/etc/init.d/fruhod /etc/init.d/fruhod
#ex sudo service fruhod restart
}
proc build-deb-rpm {arch} {
puts "Building deb/rpm dist package"
install-fpm
if {$::tcl_platform(platform) eq "unix"} {
set distdir dist/linux-$arch
file delete -force $distdir
file mkdir $distdir
file copy fruhod/exclude/etc $distdir
file copy fruho/exclude/usr $distdir
file mkdir $distdir/usr/local/sbin
file copy build/fruhod/linux-$arch/fruhod.bin $distdir/usr/local/sbin/fruhod.bin
file mkdir $distdir/usr/local/bin
file copy build/fruho/linux-$arch/fruho.bin $distdir/usr/local/bin/fruho.bin
file copy fruho/exclude/fruho $distdir/usr/local/bin/fruho
cd $distdir
set fpmopts "-a [fpm-arch $arch] -s dir -n fruho -v $::FRUHO_VERSION --before-install ../../fruhod/exclude/fruhod.preinst --after-install ../../fruhod/exclude/fruhod.postinst --before-remove ../../fruhod/exclude/fruhod.prerm --after-remove ../../fruhod/exclude/fruhod.postrm usr etc"
ex fpm -t deb {*}$fpmopts
ex fpm -t rpm --rpm-autoreqprov {*}$fpmopts
cd ../..
}
}
proc build-total {} {
foreach arch {x86_64 ix86} {
build-fruho linux $arch
build-fruhod linux $arch
build-deb-rpm $arch
}
}
proc test {} {
package require tcltest
tcltest::configure -testdir [file normalize ./sklib]
tcltest::runAllTests
}
# convert commit log into dict commit# => commit_line
proc parse-commits {commits} {
set commit2msg [dict create]
set prev ""
set commit ""
foreach line [split $commits \n] {
set line [string trim $line]
if {[regexp {commit ([0-9a-f]+)} $line _ commit]} {
puts "commit=$commit"
} elseif {$prev eq ""} {
dict set commit2msg $commit $line
}
set prev $line
}
puts "\n$commit2msg\n"
return $commit2msg
}
proc github-latest-release-date {} {
set latest_s [exec -ignorestderr curl https://api.github.com/repos/fruho/fruhoapp/releases/latest]
set latest [json::json2dict $latest_s]
set published_at [dict get $latest published_at]
return $published_at
}
proc github-create-release {gituser gitpass} {
set js1 "{\"tag_name\": \"fruho-$::FRUHO_VERSION\"}"
set created_release_s [exec -ignorestderr curl https://api.github.com/repos/fruho/fruhoapp/releases -XPOST -d$js1 -u "$gituser:$gitpass"]
puts "created_release_s: $created_release_s"
set created_release [json::json2dict $created_release_s]
set id [dict get $created_release id]
set upload_url [dict get $created_release upload_url]
puts "Release id: $id"
puts "Release upload_url: $upload_url"
#set id 1713418
#set upload_url "https://uploads.github.com/repos/fruho/fruhoapp/releases/1713418/assets{?name}"
set braceindex [string first \{ $upload_url]
set upload_url [string range $upload_url 0 [incr braceindex -1]]
return $upload_url
}
proc github-upload-artifacts {upload_url gituser gitpass} {
set artifacts {}
foreach file [concat [glob dist/linux-*/*.deb] [glob dist/linux-*/*.rpm]] {
set filename [file tail $file]
set uurl $upload_url?name=$filename
set uploaded [exec -ignorestderr curl -XPOST --header "Content-Type: application/zip" --data-binary @$file $uurl -u "$gituser:$gitpass"]
set u [json::json2dict $uploaded]
set downurl [dict get $u browser_download_url]
lappend artifacts $downurl
}
return $artifacts
}
# generate html with list of commits/changes
proc html-changelog {commit2msg} {
set html ""
dict for {commit msg} $commit2msg {
set shortcommit [string range $commit 0 5]
append html "<li>$msg <a href=\"https://github.com/fruho/fruhoapp/commit/$commit\">#$shortcommit</a></li>\n"
}
return $html
}
proc release {gituser} {
lappend ::auto_path [file normalize ./lib/generic]
package require json
puts "Enter your github password:"
set gitpass [gets stdin]
#set published_at [github-latest-release-date]
set published_at 2015-06-23T20:10:07Z
set commits [exec git log --since="$published_at"]
#puts "commits:\n$commits"
set commit2msg [parse-commits $commits]
set html [html-changelog $commit2msg]
set upload_url [github-create-release $gituser $gitpass]
set artifacts [github-upload-artifacts $upload_url $gituser $gitpass]
puts "Release changes:\n\n$html\n\n"
puts "Uploaded artifacts:\n\n$artifacts\n\n"
}
proc push-update {os arch tohost} {
lappend ::auto_path [file normalize ./lib/generic]
package require skutil
set updatedir [file normalize ./build/update/$::FRUHO_VERSION/$os-$arch]
file mkdir $updatedir
set fc [file normalize ./build/fruho/$os-$arch/fruho.bin]
set fd [file normalize ./build/fruhod/$os-$arch/fruhod.bin]
set privkey [file normalize ../confidential/sk/keys/fruho/signer/signer_private.pem]
# sign the binaries
create-signature $privkey $fc
create-signature $privkey $fd
# zip the bundle
set zip $updatedir/update.zip
ex rm $zip
ex zip -j $zip $fc $fc.sig $fd $fd.sig
# ssh push
set remotezip /tmp/fruho-update-$::FRUHO_VERSION-$os-$arch-update.zip
puts "Uploading $remotezip to $tohost"
ex scp $zip $tohost:$remotezip
}
set ::FRUHO_VERSION 0.0.7
prepare-lib sklib 0.0.0
#build-total
#package require i18n
#i18n code2msg ./fruho/main.tcl {es pl} ./fruho/messages.txt
build-fruho linux [this-arch]
build-fruhod linux [this-arch]
build-deb-rpm [this-arch]
#push-update linux [this-arch] vbox_123
#release hypatia2
# sudo dpkg -i ./dist/linux-x86_64/fruho_${::FRUHO_VERSION}_amd64.deb
# sudo dpkg -i ./dist/linux-ix86/fruho_${::FRUHO_VERSION}_i386.deb
exit