Posted to tcl by kbk at Sun Jan 06 01:59:51 GMT 2008view pretty
static const char initScript[] = "\
::namespace eval ::tdbc {}\n\
::namespace eval ::tdbc::odbc {\n\
namespace export connecton\n\
}\n\
::oo::class create ::tdbc::odbc::connection {\n\
constructor args {\n\
initConnection {*}$args\n\
}\n\
method close {} {\n\ \
}\n\
}\n\
puts {connection class created}\n\
";