Posted to tcl by patthoyts at Sun May 25 15:59:36 GMT 2008view raw
- static int DoCopy (ClientData d, Tcl_Interp *interp, int argc, char *argv[])
- {
- Tcl_Obj *sourceObj;
- Tcl_Obj *destObj;
- Tcl_Obj *errObj = NULL;
- int result = TCL_OK;
- sourceObj = Tcl_NewStringObj ("/home/testUs/Pulpit/SO/source",-1);
- destObj = Tcl_NewStringObj ("/home/testUs/Pulpit/SO/dest",-1);
- Tcl_IncreRefCount(sourceObj);
- Tcl_IncreRefCount(destObj);
- if (Tcl_FSCopyDirectory (sourceObj, destObj ,&errObj) != TCL_OK) {
- Tcl_SetObjResult(interp, errObj);
- result = TCL_ERROR
- }
- Tcl_DecrRefCount(sourceObj);
- Tcl_DecrRefCount(destObj);
- return result;
- }