#define INCL_DOS #define INCL_WIN #include #include #include #include #include #include #include "fm3dll.h" #include "fm3dlg.h" #include "fm3str.h" #pragma alloc_text(FMRENAME,RenameProc) MRESULT EXPENTRY RenameProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2) { MOVEIT *mv; switch(msg) { case WM_INITDLG: mv = (MOVEIT *)mp2; WinSetWindowPtr(hwnd,0,(PVOID)mv); if(!mv || !mv->source) { WinDismissDlg(hwnd,0); break; } WinSendDlgItemMsg(hwnd, REN_SOURCE, EM_SETTEXTLIMIT, MPFROM2SHORT(CCHMAXPATH,0), MPVOID); WinSendDlgItemMsg(hwnd, REN_TARGET, EM_SETTEXTLIMIT, MPFROM2SHORT(CCHMAXPATH,0), MPVOID); if(!*mv->target) strcpy(mv->target,mv->source); WinSendMsg(hwnd, UM_RESCAN, MPVOID, MPVOID); if(mv->rename || !stricmp(mv->target,mv->source)) { CHAR *p; p = strrchr(mv->target,'\\'); if(p) { USHORT sello,selhi; sello = (p - mv->target) + 1; selhi = strlen(mv->target); WinSendDlgItemMsg(hwnd, REN_TARGET, EM_SETSEL, MPFROM2SHORT(sello,selhi), MPVOID); } // WinShowWindow(WinWindowFromID(hwnd,REN_DONTASK),FALSE); WinShowWindow(WinWindowFromID(hwnd,REN_OVEROLD),FALSE); WinShowWindow(WinWindowFromID(hwnd,REN_OVERNEW),FALSE); } break; case UM_RESCAN: { mv = WinQueryWindowPtr(hwnd,0); if(mv) { FILESTATUS3 fs1,fs2; CHAR s[CCHMAXPATH * 2],*p,chkname[CCHMAXPATH]; INT sourceexists = 0,targetexists = 0, sourcenewer = 0,sourcesmaller = 0; p = mv->target; while(*p) { if(*p == '/') *p = '\\'; p++; } if(!MakeFullName(mv->target)) WinSetDlgItemText(hwnd, REN_TARGET, mv->target); if(!MakeFullName(mv->source)) WinSetDlgItemText(hwnd, REN_SOURCE, mv->source); if(!DosQueryPathInfo(mv->source, FIL_STANDARD, &fs1, sizeof(fs1))) { sprintf(s, " %s%lu %ss %04u/%02u/%02u %02u:%02u:%02u", (fs1.attrFile & FILE_DIRECTORY) ? GetPString(IDS_DIRBRKTTEXT) : NullStr, fs1.cbFile, GetPString(IDS_BYTETEXT), fs1.fdateLastWrite.year + 1980, fs1.fdateLastWrite.month, fs1.fdateLastWrite.day, fs1.ftimeLastWrite.hours, fs1.ftimeLastWrite.minutes, fs1.ftimeLastWrite.twosecs * 2); WinSetDlgItemText(hwnd,REN_SOURCEINFO,s); sourceexists = 1; if(fs1.attrFile & (FILE_DIRECTORY)) sourceexists = 3; } else WinSetDlgItemText(hwnd, REN_SOURCEINFO, GetPString(IDS_DOESNTEXIST2TEXT)); strcpy(chkname,mv->target); p = strrchr(s,'\\'); if(p && (strchr(p,'*') || strchr(p,'?'))) { if(!AdjustWildcardName(mv->target,chkname)) strcpy(chkname,mv->target); } if(!DosQueryPathInfo(chkname, FIL_STANDARD, &fs2, sizeof(fs2))) { sprintf(s, " %s%lu %ss %04u/%02u/%02u %02u:%02u:%02u", (fs2.attrFile & FILE_DIRECTORY) ? GetPString(IDS_DIRBRKTTEXT) : NullStr, fs2.cbFile, GetPString(IDS_BYTETEXT), fs2.fdateLastWrite.year + 1980, fs2.fdateLastWrite.month, fs2.fdateLastWrite.day, fs2.ftimeLastWrite.hours, fs2.ftimeLastWrite.minutes, fs2.ftimeLastWrite.twosecs * 2); WinSetDlgItemText(hwnd,REN_TARGETINFO,s); targetexists = 1; if(fs2.attrFile & (FILE_DIRECTORY)) targetexists = 3; WinEnableWindow(WinWindowFromID(hwnd,REN_RENEXIST), TRUE); } else { WinSetDlgItemText(hwnd, REN_TARGETINFO, GetPString(IDS_DOESNTEXIST2TEXT)); WinEnableWindow(WinWindowFromID(hwnd,REN_RENEXIST), FALSE); } *s = 0; if(sourceexists) sprintf(s, GetPString(IDS_SOURCEISATEXT), (sourceexists & 2) ? GetPString(IDS_DIRECTORYTEXT) : GetPString(IDS_FILETEXT)); { FILE *fp = NULL; if(!(sourceexists & 2)) fp = fopen(mv->source,"ab"); if((!fp && !(sourceexists & 2)) || !sourceexists) strcpy(s, GetPString(IDS_CANTACCESSSOURCETEXT)); if(fp) fclose(fp); } if(targetexists && stricmp(mv->source,mv->target)) sprintf(&s[strlen(s)], GetPString(IDS_TARGETEXISTSISATEXT), (targetexists & 2) ? GetPString(IDS_DIRECTORYTEXT) : GetPString(IDS_FILETEXT)); if(targetexists && stricmp(mv->source,mv->target)) strcpy(&s[strlen(s)], GetPString(IDS_CLICKOVERWRITETEXT)); else if(targetexists && !stricmp(mv->source,mv->target)) strcpy(&s[strlen(s)], GetPString(IDS_ENTERNEWTARGETTEXT)); WinEnableWindow(WinWindowFromID(hwnd,REN_OVERWRITE), (stricmp(mv->target,mv->source) && (!mv->rename || strcmp(mv->target,mv->source)))); if(targetexists == 1 && sourceexists == 1) { sourcenewer = (fs1.fdateLastWrite.year < fs2.fdateLastWrite.year) ? 1 : (fs1.fdateLastWrite.year > fs2.fdateLastWrite.year) ? -1 : (fs1.fdateLastWrite.month < fs2.fdateLastWrite.month) ? 1 : (fs1.fdateLastWrite.month > fs2.fdateLastWrite.month) ? -1 : (fs1.fdateLastWrite.day < fs2.fdateLastWrite.day) ? 1 : (fs1.fdateLastWrite.day > fs2.fdateLastWrite.day) ? -1 : (fs1.ftimeLastWrite.hours < fs2.ftimeLastWrite.hours) ? 1 : (fs1.ftimeLastWrite.hours > fs2.ftimeLastWrite.hours) ? -1 : (fs1.ftimeLastWrite.minutes < fs2.ftimeLastWrite.minutes) ? 1 : (fs1.ftimeLastWrite.minutes > fs2.ftimeLastWrite.minutes) ? -1 : (fs1.ftimeLastWrite.twosecs < fs2.ftimeLastWrite.twosecs) ? 1 : (fs1.ftimeLastWrite.twosecs > fs2.ftimeLastWrite.twosecs) ? -1 : 0; sourcesmaller = (fs1.cbFile < fs2.cbFile) ? -1 : (fs1.cbFile > fs2.cbFile) ? 1 : 0; sprintf(&s[strlen(s)], GetPString(IDS_SOURCEISTEXT), (sourcenewer == -1) ? GetPString(IDS_NEWERTEXT) : (sourcenewer == 1) ? GetPString(IDS_OLDERTEXT) : GetPString(IDS_SAMEDATETEXT), (sourcesmaller == -1) ? GetPString(IDS_SMALLERTEXT) : (sourcesmaller == 1) ? GetPString(IDS_LARGERTEXT) : GetPString(IDS_SAMESIZETEXT)); } WinSetDlgItemText(hwnd, REN_INFORMATION, s); if(targetexists && stricmp(mv->source,mv->target)) { if(WinQueryButtonCheckstate(hwnd,REN_DONTASK)) return 0; return MRFROM2SHORT(1,0); } else if(targetexists && !stricmp(mv->source,mv->target)) { if(mv->rename && strcmp(mv->source,mv->target)) return 0; WinEnableWindow(WinWindowFromID(hwnd,REN_RENEXIST), FALSE); return MRFROM2SHORT(2,0); } } } return 0; case WM_COMMAND: switch(SHORT1FROMMP(mp1)) { case DID_CANCEL: WinDismissDlg(hwnd,0); break; case IDM_HELP: if(hwndHelp) WinSendMsg(hwndHelp, HM_DISPLAY_HELP, MPFROM2SHORT(HELP_RENAME,0), MPFROMSHORT(HM_RESOURCEID)); break; case REN_SKIP: mv = WinQueryWindowPtr(hwnd,0); if(mv) { mv->skip = TRUE; *mv->target = 0; WinDismissDlg(hwnd,2); } else WinDismissDlg(hwnd,0); break; case REN_RENEXIST: mv = WinQueryWindowPtr(hwnd,0); if(mv) { CHAR newexist[CCHMAXPATH],fullname[CCHMAXPATH]; INT was; APIRET rc; *newexist = 0; WinQueryDlgItemText(hwnd, REN_TARGET, CCHMAXPATH, newexist); if(*newexist) { if(DosQueryPathInfo(newexist, FIL_QUERYFULLNAME, fullname, sizeof(fullname))) strcpy(fullname,newexist); was = IsFile(fullname); if(was == -1) { rc = docopyf(MOVE, mv->target, "%s", fullname); if(rc) { if((LONG)rc > 0) Dos_Error(MB_CANCEL, rc, hwnd, __FILE__, __LINE__, GetPString(IDS_COMPMOVEFAILEDTEXT), mv->target, fullname); else saymsg(MB_CANCEL | MB_ICONEXCLAMATION, hwnd, GetPString(IDS_SORRYTEXT), GetPString(IDS_COMPMOVEFAILEDTEXT), mv->target, fullname); } else saymsg(MB_ENTER, hwnd, GetPString(IDS_SUCCESSTEXT), GetPString(IDS_WASMOVEDTOTEXT), mv->target, fullname); } else saymsg(MB_CANCEL | MB_ICONEXCLAMATION, hwnd, GetPString(IDS_SORRYTEXT), GetPString(IDS_EXISTSASATEXT), fullname, (was) ? GetPString(IDS_FILETEXT) : GetPString(IDS_DIRECTORYTEXT)); } WinSetDlgItemText(hwnd, REN_TARGET, mv->target); } break; case REN_OVERWRITE: case DID_OK: mv = WinQueryWindowPtr(hwnd,0); if(mv) { MRESULT mr; if(WinQueryButtonCheckstate(hwnd,REN_DONTASK)) mv->dontask = TRUE; if(WinQueryButtonCheckstate(hwnd,REN_OVEROLD)) mv->overold = TRUE; if(WinQueryButtonCheckstate(hwnd,REN_OVERNEW)) mv->overnew = TRUE; *mv->target = 0; WinQueryDlgItemText(hwnd, REN_TARGET, CCHMAXPATH, mv->target); lstrip(rstrip(mv->target)); mr = WinSendMsg(hwnd, UM_RESCAN, MPVOID, MPVOID); if(!mr || (SHORT1FROMMR(mr) != 2 && SHORT1FROMMP(mp1) == REN_OVERWRITE)) { CHAR path[CCHMAXPATH],*p; mv->overwrite = (SHORT1FROMMP(mp1) == REN_OVERWRITE); strcpy(path,mv->target); p = strrchr(path,'\\'); if(p) { p++; *p = 0; if(SetDir(WinQueryWindow(WinQueryWindow(hwnd,QW_PARENT), QW_OWNER), hwnd, path, 0)) { DosBeep(250,100); WinSetFocus(HWND_DESKTOP, WinWindowFromID(hwnd,REN_TARGET)); break; } } WinDismissDlg(hwnd,1); } else { DosBeep(250,100); WinSetFocus(HWND_DESKTOP, WinWindowFromID(hwnd,REN_TARGET)); } } break; } return 0; } return WinDefDlgProc(hwnd,msg,mp1,mp2); }