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\ ";