A British toddler television show that has invaded the States (and my home). Couldn't get the damn song out of my head while developing some Tcl code...
So, here is the Tcl version of the song Can we Fix it? [L1 ]:
CAN WE GLUE IT? (Sung to the tune of "CAN WE FIX IT - Bob the Builder") Tcl the Scripter Can we glue it? Tcl the Scripter Yes, we can! Curl, SWIG and Itcl and Metakit too Jacl and TclBlend join the crew Tcl and the gang have so much fun Working together, they get the job done Tcl the Scripter Can we glue it? Tcl the Scripter Yes, we can! Time to get busy, such a lot to do Building and gluing till it's good as new Tcl and Snack make a really good sound Watching the others work all day till the sun goes down Tcl the Scripter Can we glue it? Tcl the Scripter Yes, we can! Scripting and gluing, having so much fun Working together, they get the job done Can we code it? Yes! Can we wrap it? Yes! Can we glue it? Yes! Tcl the Scripter (Yeah!) Tcl the Scripter All together now! Tcl the Scripter Can we glue it? Tcl the Scripter Yes, we can! ... We'd better get some work done!
Please stop me before I do something like this again. -- Todd Coram
Exercise for the reader: write code so the above is an executable Tcl script... Trivial initial solution:
foreach i {
CAN Can Tcl Yes, Time Building Watching Scripting Working (Yeah!) All ... We'd
} {
proc $i args {}
} ;# RS... but don't try to execute CAN, this will throw an error, because the title doesn't conform to Tcl's syntax (extra character after close-quote). How about this trivial solution (leaving the title alone):
proc unknown {args} {puts $args}