Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Moved build script, and fixed various things |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
2889e59a6044030753dc123211f63f55 |
| User & Date: | aku 2016-11-21 00:04:43.538 |
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 | #!/usr/bin/env tclsh # -*- tcl -*- package require Tcl 8.5 | | < | | < | | > | > | | | 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 "$@" | 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
|