#!/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 "$@" 2>&1 | tee $log >@ stdout 2>@ stderr
echo ...done
exit