Tcl for Embedded Applications
The startup code is in tinytcl.c. It is a char array called
By default this is defined as
char initCmd = "puts stdout \"\nEmbedded Tcl 6.8.0\n\"; source tcl_sys/autoinit.tcl";
You can replace it with whatever Tcl initialization you want to occur for your application.
Note that in the tcl_sys directory are files devel.tcl, containing a few handy procs to have around while compiling, and system.tcl, an undocumented file that contains procs to beep the speaker and make a list of currently defined procs and globals (snapshot) and then revert to the snapshot by unloading all procs and globals defined after snapshot was run.