Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Moved build script, and fixed various things
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2889e59a6044030753dc123211f63f55bfa3ed19
User & Date: aku 2016-11-21 00:04:43
Context
2016-11-21
00:08
Fix favicon. check-in: d4229c4cab user: aku tags: trunk
00:04
Moved build script, and fixed various things check-in: 2889e59a60 user: aku tags: trunk
2016-11-20
23:46
Restructured, added build tool. check-in: c96c27cbfc user: aku tags: trunk
Changes

Name change from tools/rebuild to 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
#!/usr/bin/env tclsh
# -*- tcl -*-
package require Tcl 8.5

# argv0 : /.../website/tools/rebuild
# tools : /.../website/tools
# top   : /.../

proc norm {path} {
    return [file dirname [file normalize $path/___]]
}

proc clear {} {
    exec >@ stdout 2>@ stderr clear
}

proc echo {args} { puts $args }


set tools [file dirname [norm $argv0]]
set top   [file dirname [file dirname $tools]]
set log   [file join $top rebuild.log]

cd $top

clear
echo
echo website cleanup input
exec find website -name {*~} -exec rm {{}} \;
echo ...done

echo website cleanup output
exec >@ stdout 2>@ stderr ssg clean
echo ...done

clear
echo
echo website build
exec ssg build "[email protected]" 2>&1 | tee $log >@ stdout 2>@ stderr
echo ...done




exit



|
<
|












|
<
|













<
<

|

>
>
>
>

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
#!/usr/bin/env tclsh
# -*- tcl -*-
package require Tcl 8.5

# argv0 : /home/www/src/website/build.tcl

# top   : /home/www/src/

proc norm {path} {
    return [file dirname [file normalize $path/___]]
}

proc clear {} {
    exec >@ stdout 2>@ stderr clear
}

proc echo {args} { puts $args }


set top [file dirname [file dirname [norm $argv0]]]

set log [file join $top rebuild.log]

cd $top

clear
echo
echo website cleanup input
exec find website -name {*~} -exec rm {{}} \;
echo ...done

echo website cleanup output
exec >@ stdout 2>@ stderr ssg clean
echo ...done



echo website build
exec ssg build website/input website/output "[email protected]" | tee $log >@ stdout 2>@ stderr
echo ...done

echo website sync over
exec >@ stdout 2>@ stderr rsync -avx website/output/ ../core_tcl_tk.website/
echo ...done
exit