Posted to tcl by patthoyts at Sun May 25 15:59:36 GMT 2008view pretty
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; }