#!/usr/bin/tclsh puts "#include \"animal.h\"" puts "" foreach animal {Bear Cat Dog} { set lowercase [string tolower $animal] set uppercase [string toupper $animal] puts "class ${animal} : public Animal \{" puts "public:" puts " ${animal}() \{" puts " printf(\"Constructor: creating a new ${lowercase}.\\n\");" if { $animal == "Cat" } { puts " printf(\"A CAT HAS 9 LIVES.\\n\");" } else { puts " printf(\"A ${uppercase} HAS ONLY 1 LIFE.\\n\");" } puts " \}" puts "\};" puts "" }