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