controlling synthesis and implemention with tcl/tk scripts

hi all. i'm trying to set up a tcl/tk script to control my synthesis and implementation (synplify pro / xilinx ise 6.3).

does anyone have any example code, tips, or pointers to any resources?

thanks in advance. ed