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

 This module contains subroutines for nead.c that specifically
 deal with the Open file interface.  Most of the routines were
 taken from Charles Petzold's book "Programming the OS/2
 Presentation Manager" and were slightly modified.

 Procedures in this file:
   OpenFile()          Asks user for new file name and opens it
   OpenFileProc()      Dialog proc that prompts user for file name
   FillDirListBox()    Fills the directory list box
   FillFileListBox()   Fills the file list box

**************************************************************/
#include "nead.h"

/************ External GLOBALS *******************************/

extern CHAR szFileName[CCHMAXPATH];
extern CHAR szEAName[MAXEANAME+1];
extern USHORT usRetEAType;
extern BOOL FILE_ISOPEN;
extern BOOL FILE_CHANGED;
extern BOOL COMMAND_LINE_FILE;
extern HHEAP hhp;
extern CHAR *pAlloc,*szEditBuf,*szAscii,*szScratch;
extern HOLDFEA *pHoldFEA;
extern DELETELIST *pDelList;
extern EADATA ConvTable[EATABLESIZE];

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


/*
 * Function name: OpenFile()
 *
 * Parameters:  hwnd which is the current window handle.
 *              usMode which will attempt to load the file from the command
 *              line iff usMode == ARGFILE which is set in main().  Otherwise,
 *              the selector box is brought up for the user to select from.
 *
 * Returns: TRUE iff a file is open upon exit.
 *
 * Purpose: This routine handles opening a new file.  It will also query the
 *          user for the disposition of the current file if it has been
 *          modified before loading the new file.
 *
 * Usage/Warnings:  Routine should be bullet proof as it does its own
 *                  error checking.  It assumes that hwnd points to the
 *                  correct window with the name listbox in it.
 *
 * Calls: WriteEAs(), Free_FEAList()
 */

BOOL OpenFile(HWND hwnd,USHORT usMode)
{
   CHAR szOldFile[CCHMAXPATH];
   USHORT usRet;

   strcpy(szOldFile,szFileName);  /* Save name of the currently open file */

   if(usMode != ARGFILE)          /* It isn't the command line file */
   {
      if(!WinDlgBox(HWND_DESKTOP, /* Get the file name from the user */
                    hwnd,
                    OpenFileProc,
                    (HMODULE) NULL,
                    IDD_OPENBOX,
                    NULL))
      {
         strcpy(szFileName,szOldFile); /* They canceled, restore old file */
         return(FILE_ISOPEN);
      }
   }

   if(FILE_CHANGED) /* Give them a chance to save modifications */
   {
      usRet=WinMessageBox(HWND_DESKTOP,hwnd,
                          "The current file has been changed.  Do you \
wish to save the changes before proceeding?",
                          "Warning",0,MB_YESNOCANCEL | MB_ICONQUESTION);
      switch(usRet)
      {
         case MBID_YES:
            WriteEAs(hwnd);
            break;
         case MBID_CANCEL:
            return FILE_ISOPEN;
      }
   }

   if(FILE_ISOPEN) /* Free up everything associated with the current file */
   {
      Free_FEAList(pHoldFEA,pDelList);
      FILE_ISOPEN = FALSE;
   }

   if(QueryEAs(hwnd,szFileName)) /* We were successful */
   {
      HOLDFEA *pFEA=pHoldFEA;

      FILE_ISOPEN = TRUE;
      FILE_CHANGED = FALSE;

      WinSendDlgItemMsg(hwnd, IDD_LBOX, LM_DELETEALL,0L,0L); /* Fill L-box */

      while(pFEA)
      {
         WinSendDlgItemMsg(hwnd, IDD_LBOX, LM_INSERTITEM,
                           MPFROM2SHORT(LIT_END,0),
                           MPFROMP(pFEA->szName));
         pFEA = pFEA->next;
      }
   }
   else /* We couldn't query the EAs */
   {
      *szFileName = '\000';
      WinSetDlgItemText(hwnd,IDD_FNAME,szFileName);
      return(FILE_ISOPEN = FALSE);
   }
   WinSetDlgItemText(hwnd,IDD_FNAME,szFileName);
   pDelList = NULL;
   return(TRUE);
}


/*
 * Function name: OpenFileProc()
 *
 * Parameters:  hwnd, msg, mp1, mp2.  Standard PM Dialog Proc params.
 *              Expects no user pointer.
 *
 * Returns: TRUE if user selects OK, FALSE if Cancel is selected.
 *
 * Purpose: This proc handles the user interface to select a file name.
 *          Some elementary checks are done to make sure the filename is
 *          valid.
 *
 * Usage/Warnings:  The interface is NOT foolproof as it is possible to
 *                  continue with a non-existant file name.  Also, users
 *                  are not currently allowed to view/edit the EAs attached
 *                  to a directory.
 *
 * Calls: FillDirListBox(), FillFileListBox(), ParseFileName()
 */

MRESULT EXPENTRY OpenFileProc(HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
{
   static CHAR szCurrentPath[CCHMAXPATH],szBuffer[CCHMAXPATH];
   CHAR        szParsedPath[CCHMAXPATH];
   SHORT       sSelect;

   switch(msg)
   {
      case WM_INITDLG:
         FillDirListBox(hwnd,szCurrentPath);
         FillFileListBox(hwnd);
         WinSendDlgItemMsg(hwnd, IDD_FILEEDIT,EM_SETTEXTLIMIT,
                                 MPFROM2SHORT(260,0),NULL);
         return 0L;

      case WM_CONTROL:
         if(SHORT1FROMMP(mp1) == IDD_DIRLIST ||  /* An lbox item is selected */
            SHORT1FROMMP(mp1) == IDD_FILELIST)
         {
            sSelect = SHORT1FROMMR( WinSendDlgItemMsg(hwnd, /* Get item->szBuffer */
                               SHORT1FROMMP(mp1),
                               LM_QUERYSELECTION, 0L, 0L));

            WinSendDlgItemMsg(hwnd, SHORT1FROMMP(mp1),
                              LM_QUERYITEMTEXT,
                              MPFROM2SHORT(sSelect, sizeof szBuffer),
                              MPFROMP(szBuffer));
         }

         switch(SHORT1FROMMP(mp1))
         {
            case IDD_DIRLIST:              /* Item was in the directory lbox */
               switch(SHORT2FROMMP(mp1))
               {
                  case LN_ENTER:           /* Go to the select drive/dir */
                     if(*szBuffer == ' ')
                        DosSelectDisk(*(szBuffer+1) - '@');
                     else
                        DosChDir(szBuffer, 0L);

                     FillDirListBox(hwnd, szCurrentPath);
                     FillFileListBox(hwnd);

                     WinSetDlgItemText(hwnd, IDD_FILEEDIT, "");
                     return 0L;
               }
               break;

            case IDD_FILELIST:             /* Item was in the file lbox */
               switch(SHORT2FROMMP(mp1))
               {
                  case LN_SELECT:          /* Copy name to entry field  */
                     WinSetDlgItemText(hwnd, IDD_FILEEDIT, szBuffer);
                     return 0L;

                  case LN_ENTER:           /* Try to query the file */
                     if(ParseFileName(szFileName, szBuffer) != FILE_VALID)
                        return 0; /* Some error, don't finish */
                     WinDismissDlg(hwnd, TRUE);
                     return 0L;
               }
               break;
         }
         break;

      case WM_COMMAND:
         switch(COMMANDMSG(&msg)->cmd)
         {
            case DID_OK:            /* Try to query file in the entry field */
               WinQueryDlgItemText(hwnd, IDD_FILEEDIT,
                                   sizeof szBuffer, szBuffer);

               switch(ParseFileName(szParsedPath, szBuffer))
               {
                  case FILE_INVALID:    /* Can't open the file */
                     WinAlarm(HWND_DESKTOP, WA_ERROR);
                     FillDirListBox(hwnd, szCurrentPath);
                     FillFileListBox(hwnd);
                     return 0L;

                  case FILE_PATH:    /* It was an incomplete path name */
                     strcpy(szCurrentPath,szBuffer);
                     FillDirListBox(hwnd, szCurrentPath);
                     FillFileListBox(hwnd);
                     WinSetDlgItemText(hwnd, IDD_FILEEDIT, "");
                     return 0L;

                  case FILE_VALID:    /* It was valid */
                     strcpy(szFileName, szParsedPath);
                     WinDismissDlg(hwnd, TRUE);
                     return 0L;
               }
               break;

            case DID_CANCEL:
               WinDismissDlg(hwnd, FALSE);
               return 0L;
         }
         break;
   }
   return WinDefDlgProc(hwnd, msg, mp1, mp2);
}


/*
 * Function name: FillDirListBox()
 *
 * Parameters:  hwnd points to the current window handle
 *              pcCurrentPath points to a buffer which will be filled in
 *              with the current path.
 *
 * Returns: VOID
 *
 * Purpose: This routine is called by OpenFileProc to fill in the directory
 *          list box
 *
 * Usage/Warnings:  Adequete error checking is NOT done on the return
 *                  values of the system calls.  Also, it is remotely
 *                  possible that the calls to add to the list box could fail.
 *
 * Calls:
 */

VOID FillDirListBox(HWND hwnd, CHAR *pcCurrentPath)
{
   static CHAR szDrive [] = "  :";
   FILEFINDBUF findbuf;
   HDIR        hDir = 1;
   SHORT       sDrive;
   USHORT      usDriveNum, usCurPathLen, usSearchCount = 1;
   ULONG       ulDriveMap;

   DosQCurDisk(&usDriveNum, &ulDriveMap);
   *pcCurrentPath     = (CHAR)((CHAR) usDriveNum + '@');
   *(pcCurrentPath+1) = ':';
   *(pcCurrentPath+2) = '\\';
   usCurPathLen = CCHMAXPATH;
   DosQCurDir(0, pcCurrentPath + 3, &usCurPathLen);

   WinSetDlgItemText(hwnd, IDD_PATH, pcCurrentPath);
   WinSendDlgItemMsg(hwnd, IDD_DIRLIST, LM_DELETEALL, NULL, NULL);

   for(sDrive = ('A'-'A'); sDrive <= ('Z'-'A'); sDrive++)
   {
      if(ulDriveMap & (1L << sDrive))
      {
         *(szDrive+1) = (CHAR)((CHAR) sDrive + 'A');

         WinSendDlgItemMsg(hwnd, IDD_DIRLIST, LM_INSERTITEM,
                           MPFROM2SHORT(LIT_END, 0),
                           MPFROMP(szDrive));
      }
   }
   DosFindFirst("*", &hDir, FILE_DIRECTORY | FILE_ALL, &findbuf,
                sizeof findbuf, &usSearchCount, 0L);
   while(usSearchCount)
   {
      if((findbuf.attrFile & FILE_DIRECTORY) &&
         (findbuf.achName[0] != '.' || findbuf.achName[1]))

         WinSendDlgItemMsg(hwnd, IDD_DIRLIST, LM_INSERTITEM,
                           MPFROM2SHORT(LIT_SORTASCENDING, 0),
                           MPFROMP(findbuf.achName));

      if(DosFindNext(hDir, &findbuf, sizeof findbuf, &usSearchCount))
         break;
   }
}


/* This routine is called by OpenFileProc to fill the file list box */

/*
 * Function name: FillFileListBox()
 *
 * Parameters:  hwnd points to the current window handle
 *
 * Returns: VOID
 *
 * Purpose: This routine is called by OpenFileProc to fill in the file
 *          list box with files in the current directory.
 *
 * Usage/Warnings:  Adequete error checking is NOT done on the return
 *                  values of the system calls.  Also, it is remotely
 *                  possible that the calls to add to the list box could fail.
 *
 * Calls:
 */

VOID FillFileListBox(HWND hwnd)
{
   FILEFINDBUF findbuf;
   HDIR        hDir = 1;
   USHORT      usSearchCount = 1; /* Read 1 entry at a time */

   WinSendDlgItemMsg(hwnd, IDD_FILELIST, LM_DELETEALL, NULL, NULL);

   DosFindFirst("*", &hDir, FILE_ALL, &findbuf, sizeof findbuf,
                       &usSearchCount, 0L);
   while(usSearchCount)
   {
      WinSendDlgItemMsg(hwnd, IDD_FILELIST, LM_INSERTITEM,
                        MPFROM2SHORT(LIT_SORTASCENDING, 0),
                        MPFROMP(findbuf.achName));

      if(DosFindNext(hDir, &findbuf, sizeof findbuf, &usSearchCount))
         break;
   }
}


/*
 * Function name: ParseFileName()
 *
 * Parameters:  pcOut points to a buffer for the return file specification.
 *              pcIn  points to the buffer containing the raw input spec.
 *
 * Returns: FILE_INVALID if pcIn had invalid drive or no directory
 *          FILE_PATH    if pcIn was empty or had just a path/no file name.
 *          FILE_VALID   if pcIn point to good file.
 *
 * Purpose: This routine changes drive and directory as per pcIn string.
 *
 * Usage/Warnings:  Note that pcOut is only valid if FILE_VALID is returned.
 *                  in place of strupr(), a codepage should be fetched and
 *                  DosCaseMap() should be used to allow for extended chars.
 *                  This routine could use some cleanup work.
 *
 * Calls:
 */

SHORT ParseFileName(CHAR *pcOut, CHAR *pcIn)
{
   CHAR   *pcLastSlash, *pcFileOnly ;
   ULONG  ulDriveMap ;
   USHORT usDriveNum, usDirLen = CCHMAXPATH;

   strupr(pcIn);  /* Does NOT handle extended chars, should use DosCaseMap */

   if(*pcIn == '\000')  /* If string is empty, return FILE_PATH */

      return FILE_PATH;

   /* Get drive from input string or use current drive */

   if(*(pcIn+1) == ':') /* Yup, they specified a drive */
   {
      if(DosSelectDisk(*pcIn - '@')) /* Change to selected drive */
         return FILE_INVALID;
      pcIn += 2;
   }
   DosQCurDisk(&usDriveNum, &ulDriveMap); /* Get current drive */

   *pcOut++ = (CHAR)((CHAR) usDriveNum + '@'); /* Build drive letter */
   *pcOut++ = ':';
   *pcOut++ = '\\';

   if(*pcIn == '\000') /* If rest of the string is empty, return FILE_PATH */
      return FILE_PATH;

   /* Search for the last backslash.  If none, it could be a directory. */

   if(!(pcLastSlash = strrchr(pcIn, '\\'))) /* No slashes? */
   {
      if(!DosChDir(pcIn, 0L))
         return FILE_PATH;            /* It was a directory */

      DosQCurDir(0, pcOut, &usDirLen); /* Get current dir & attach input fn */

      if(*(pcOut+strlen(pcOut)-1) != '\\')
         strcat(pcOut++, "\\");

      strcat(pcOut, pcIn);
      return FILE_VALID;
   }

   /* If the only backslash is at the beginning, change to root */

   if(pcIn == pcLastSlash)
   {
      DosChDir("\\", 0L);

      if(*(pcIn+1) == '\000')
         return FILE_PATH;

      strcpy(pcOut, pcIn+1);
      return FILE_VALID;
   }

   /* Attempt to change directory -- Get current dir if OK */

   *pcLastSlash = 0;

   if(DosChDir(pcIn, 0L))
      return FILE_INVALID;

   DosQCurDir(0, pcOut, &usDirLen);

   /* Append input filename if any */

   pcFileOnly = pcLastSlash+1;

   if(*pcFileOnly == '\000')
      return FILE_PATH;

   if(*(pcOut+strlen(pcOut)-1) != '\\')
      strcat(pcOut++, "\\");

   strcat(pcOut, pcFileOnly);
   return FILE_VALID;
}