Posted to tcl by kbk at Sun Jan 06 01:59:51 GMT 2008view raw
- 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\
- ";