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;
}