Posted to tcl by kbk at Sun Jan 06 01:59:51 GMT 2008view raw

  1. static const char initScript[] = "\
  2. ::namespace eval ::tdbc {}\n\
  3. ::namespace eval ::tdbc::odbc {\n\
  4. namespace export connecton\n\
  5. }\n\
  6. ::oo::class create ::tdbc::odbc::connection {\n\
  7. constructor args {\n\
  8. initConnection {*}$args\n\
  9. }\n\
  10. method close {} {\n\ \
  11. }\n\
  12. }\n\
  13. puts {connection class created}\n\
  14. ";
  15.  
  16.