/***********************************************************************

  $Id: rename.c 123 2004-12-05 00:20:19Z root $

  Copyright (c) 1993-98 M. Kimes
  Copyright (c) 2004 Steven H.Levine

  Revisions	01 Aug 04 SHL - Rework lstrip/rstrip usage

***********************************************************************/

#define INCL_DOS
#define INCL_WIN

#include <os2.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#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);
            bstrip(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);
}