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

  $Id$

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

  Revisions
  01 Aug 04 SHL - Rework lstrip/rstrip usage
  22 Mar 07 GKY Use QWL_USER
  20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
  27 Sep 07 SHL Correct ULONGLONG size formatting

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

#define INCL_DOS
#define INCL_WIN
#define INCL_LONGLONG

#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"

MRESULT EXPENTRY RenameProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
{
  MOVEIT *mv;

  switch (msg) {
  case WM_INITDLG:
    mv = (MOVEIT *) mp2;
    WinSetWindowPtr(hwnd, QWL_USER, (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 = 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_OVEROLD), FALSE);
      WinShowWindow(WinWindowFromID(hwnd, REN_OVERNEW), FALSE);
    }
    break;

  case UM_RESCAN:
    {
      mv = WinQueryWindowPtr(hwnd, QWL_USER);
      if (mv) {

	FILESTATUS3L 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_STANDARDL, &fs1, sizeof(fs1))) {
	  // 27 Sep 07 SHL fixme to use CommaFmtULL
	  sprintf(s,
		  " %s%llu %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_STANDARDL, &fs2, sizeof(fs2))) {
	  // 27 Sep 07 SHL fixme to use CommaFmtULL
	  sprintf(s,
		  " %s%llu %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, QWL_USER);
      if (mv) {
	mv->skip = TRUE;
	*mv->target = 0;
	WinDismissDlg(hwnd, 2);
      }
      else
	WinDismissDlg(hwnd, 0);
      break;

    case REN_RENEXIST:
      mv = WinQueryWindowPtr(hwnd, QWL_USER);
      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, QWL_USER);
      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);
}

#pragma alloc_text(FMRENAME,RenameProc)