Posted to tcl by patthoyts at Sun May 25 15:59:36 GMT 2008view raw

  1. static int DoCopy (ClientData d, Tcl_Interp *interp, int argc, char *argv[])
  2. {
  3. Tcl_Obj *sourceObj;
  4. Tcl_Obj *destObj;
  5. Tcl_Obj *errObj = NULL;
  6. int result = TCL_OK;
  7.  
  8. sourceObj = Tcl_NewStringObj ("/home/testUs/Pulpit/SO/source",-1);
  9. destObj = Tcl_NewStringObj ("/home/testUs/Pulpit/SO/dest",-1);
  10. Tcl_IncreRefCount(sourceObj);
  11. Tcl_IncreRefCount(destObj);
  12. if (Tcl_FSCopyDirectory (sourceObj, destObj ,&errObj) != TCL_OK) {
  13. Tcl_SetObjResult(interp, errObj);
  14. result = TCL_ERROR
  15. }
  16. Tcl_DecrRefCount(sourceObj);
  17. Tcl_DecrRefCount(destObj);
  18. return result;
  19. }