Posted to tcl by kbk at Sun Jan 06 02:01:36 GMT 2008view raw

  1. conClassObj = Tcl_NewStringObj("::tdbc::odbc::connection", -1);
  2. Tcl_IncrRefCount(conClassObj);
  3. if ((conClassObject = Tcl_GetObjectFromObj(interp, conClassObj)) == NULL) {
  4. Tcl_DecrRefCount(conClassObj);
  5. return TCL_ERROR;
  6. }
  7. Tcl_DecrRefCount(conClassObj);
  8.