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

  MODULE     : CMNDLG.C

  FUNCTIONS  :

  COMMENTS   :

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

#include "windows.h"
#include "wmfdcode.h"

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

  Function:  InitializeStruct(WORD, LPSTR)

   Purpose:  To initialize a structure for the current common dialog.
	     This routine is called just before the common dialogs
	     API is called.

   Returns:  void

  Comments:

   History:  Date      Author	   Reason
	     --------  ---------   -----------------------------------

	      10/01/91	gregk	    Created
	      11/25/91	denniscr    mod for purposes of this app

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

void InitializeStruct(wCommDlgType, lpStruct)
WORD wCommDlgType;
LPSTR lpStruct;
{
   LPFOCHUNK           lpFOChunk;
   LPFSCHUNK           lpFSChunk;
   
   switch (wCommDlgType)
      {
      case FILEOPENDLG:

	 lpFOChunk = (LPFOCHUNK)lpStruct;

	 *(lpFOChunk->szFile)            = 0;
	 *(lpFOChunk->szFileTitle)       = 0;
	 lpFOChunk->of.lStructSize       = sizeof(OPENFILENAME);
	 lpFOChunk->of.hwndOwner         = (HWND)hWndMain;
	 lpFOChunk->of.hInstance         = (HANDLE)NULL;
	 lpFOChunk->of.lpstrFilter       = gszFilter;
	 lpFOChunk->of.lpstrCustomFilter = (LPSTR)NULL;
	 lpFOChunk->of.nMaxCustFilter    = 0L;
	 lpFOChunk->of.nFilterIndex      = 1L;
	 lpFOChunk->of.lpstrFile         = lpFOChunk->szFile;
	 lpFOChunk->of.nMaxFile          = (DWORD)sizeof(lpFOChunk->szFile);
	 lpFOChunk->of.lpstrFileTitle    = lpFOChunk->szFileTitle;
	 lpFOChunk->of.nMaxFileTitle     = 256;
	 lpFOChunk->of.lpstrInitialDir	 = (LPSTR)NULL;
	 lpFOChunk->of.lpstrTitle        = (LPSTR)NULL;
	 lpFOChunk->of.Flags             = OFN_HIDEREADONLY |
					   OFN_PATHMUSTEXIST |
					   OFN_FILEMUSTEXIST;
	 lpFOChunk->of.nFileOffset       = 0;
	 lpFOChunk->of.nFileExtension    = 0;
	 lpFOChunk->of.lpstrDefExt       = (LPSTR)NULL;
	 lpFOChunk->of.lCustData         = 0L;
	 lpFOChunk->of.lpfnHook 	 = (FARHOOK)NULL;
	 lpFOChunk->of.lpTemplateName    = (LPSTR)NULL;

	 break;

      case FILESAVEDLG:

	 lpFSChunk = (LPFSCHUNK)lpStruct;

	 *(lpFSChunk->szFile)            = 0;
	 *(lpFSChunk->szFileTitle)	 = 0;
	 lpFSChunk->of.lStructSize	 = sizeof(OPENFILENAME);
	 lpFSChunk->of.hwndOwner         = (HWND)hWndMain;
	 lpFSChunk->of.hInstance	 = (HANDLE)NULL;
	 lpFSChunk->of.lpstrFilter	 = (LPSTR)"Windows Metafile\0DEFAULT.WMF\0";
	 lpFSChunk->of.lpstrCustomFilter = (LPSTR)NULL;
	 lpFSChunk->of.nMaxCustFilter    = 0L;
	 lpFSChunk->of.nFilterIndex      = 1L;
	 lpFSChunk->of.lpstrFile	 = lpFSChunk->szFile;
	 lpFSChunk->of.nMaxFile          = (DWORD)sizeof(lpFSChunk->szFile);
	 lpFSChunk->of.lpstrFileTitle	 = lpFSChunk->szFileTitle;
	 lpFSChunk->of.nMaxFileTitle     = 256;
	 lpFSChunk->of.lpstrInitialDir	 = (LPSTR)NULL;
	 lpFSChunk->of.lpstrTitle        = (LPSTR)NULL;
	 lpFSChunk->of.Flags		 = OFN_HIDEREADONLY |
					   OFN_OVERWRITEPROMPT;


	 lpFSChunk->of.nFileOffset       = 0;
	 lpFSChunk->of.nFileExtension    = 0;
	 lpFSChunk->of.lpstrDefExt       = (LPSTR)"WMF";
	 lpFSChunk->of.lCustData         = 0L;
	 lpFSChunk->of.lpfnHook 	 = (FARHOOK)NULL;
	 lpFSChunk->of.lpTemplateName    = (LPSTR)NULL;

	 break;

      default:

	 break;

      }

   return;
}

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

  FUNCTION   : SplitPath

  PARAMETERS : LPSTR lpszFileName
	       LPSTR lpszDrive
	       LPSTR lpszDir
	       LPSTR lpszFname
	       LPSTR lpszExt

  PURPOSE    : split the fully qualified path into its components

  CALLS      : WINDOWS
		 none

               APP
		 none

  MESSAGES   : none

  RETURNS    : void

  COMMENTS   :

  HISTORY    : 1/16/91 - created - drc

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

void SplitPath( lpszFileName, lpszDrive, lpszDir, lpszFname, lpszExt)
LPSTR lpszFileName;
LPSTR lpszDrive;
LPSTR lpszDir;
LPSTR lpszFname;
LPSTR lpszExt;
{
  char	szPath[MAXFILTERLEN];
  LPSTR lpszPath;
  LPSTR lpszTemp;
  int	nFileNameLen = nExtOffset - (nFileOffset + 1);
  int	i;

  /* init ptrs */
  lpszPath = szPath;
  lpszTemp = lpszFileName;

  /* pick off the path */
  for (i = 0; i < nFileOffset; i++, lpszTemp++, lpszPath++)
    *lpszPath = *lpszTemp;
  *lpszPath = '\0';

  lpszPath = szPath;

  /* pick off the drive designator */
  for (i = 0; i < 2; i++, lpszPath++, lpszDrive++)
    *lpszDrive = *lpszPath;
  *lpszDrive = '\0';

  /* pick off the directory */
  while (*lpszPath != '\0')
    *lpszDir++ = *lpszPath++;
  *lpszDir = '\0';

  /* reset temp ptr */
  lpszTemp = lpszFileName;

  /* index to filename */
  lpszTemp += nFileOffset;

  /* pick off the filename */
  for (i = 0; i < nFileNameLen; i++, lpszTemp++, lpszFname++)
    *lpszFname = *lpszTemp;
  *lpszFname = '\0';

  /* reset temp ptr */
  lpszTemp = lpszFileName;

  /* index to file extension */
  lpszTemp += nExtOffset;

  /* pick off the ext */
  while (*lpszTemp != '\0')
    *lpszExt++ = *lpszTemp++;
  *lpszExt = '\0';

}

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

  FUNCTION   : OpenFileDialog

  PARAMETERS : LPSTR lpszOpenName

  PURPOSE    : init the OPENFILE structure and call the file open
	       common dialog

  CALLS      : WINDOWS
		 GlobalAlloc
		 GlobalLock
		 GlobalFree
		 wsprintf
		 GetOpenFileName

               APP
		 InitializeStruct

  MESSAGES   : none

  RETURNS    : int (see returns for GetOpenFileName)

  COMMENTS   :

  HISTORY    : 11/25/91 - created - drc

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

int OpenFileDialog(lpszOpenName)
LPSTR lpszOpenName;

{
   int	     nRet;
   HANDLE    hChunk;
   LPFOCHUNK lpFOChunk;

   hChunk = GlobalAlloc(GMEM_FIXED, sizeof(FOCHUNK));

   if (hChunk)  {
      lpFOChunk = (LPFOCHUNK)GlobalLock(hChunk);
      if (!lpFOChunk)  {
	 GlobalFree(hChunk);
	 lpFOChunk=NULL;
	 return(0);
      }
   }
   else {
      lpFOChunk=NULL;
      return(0);
   }


   InitializeStruct(FILEOPENDLG, (LPSTR)lpFOChunk);

   nRet = GetOpenFileName( &(lpFOChunk->of) );

   if (nRet)  {
      wsprintf(lpszOpenName, (LPSTR)"%s", lpFOChunk->of.lpstrFile);
      nExtOffset =  lpFOChunk->of.nFileExtension;
      nFileOffset = lpFOChunk->of.nFileOffset;
   }

   GlobalUnlock(hChunk);
   GlobalFree(hChunk);

   return(nRet);

}

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

  FUNCTION   : SaveFileDialog

  PARAMETERS : LPSTR lpszOpenName

  PURPOSE    : init the OPENFILE structure and call the file open
	       common dialog

  CALLS      : WINDOWS
		 GlobalAlloc
		 GlobalLock
		 GlobalFree
		 wsprintf
		 GetOpenFileName

               APP
		 InitializeStruct

  MESSAGES   : none

  RETURNS    : int (see returns for GetSaveFileName)

  COMMENTS   : this could easily be merged with OpenFileDialog.  This
	       would decrease the redundancy but this is more illustrative.

  HISTORY    : 11/25/91 - created - drc

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

int SaveFileDialog(lpszSaveName)
LPSTR lpszSaveName;

{
   int	     nRet;
   HANDLE    hChunk;
   LPFOCHUNK lpFOChunk;

   hChunk = GlobalAlloc(GMEM_FIXED, sizeof(FOCHUNK));

   if (hChunk)  {
      lpFOChunk = (LPFOCHUNK)GlobalLock(hChunk);
      if (!lpFOChunk)  {
	 GlobalFree(hChunk);
	 lpFOChunk=NULL;
	 return(0);
      }
   }
   else {
      lpFOChunk=NULL;
      return(0);
   }


   InitializeStruct(FILESAVEDLG, (LPSTR)lpFOChunk);

   nRet = GetSaveFileName( &(lpFOChunk->of) );

   if (nRet)
      wsprintf(lpszSaveName, (LPSTR)"%s", lpFOChunk->of.lpstrFile);

   GlobalUnlock(hChunk);
   GlobalFree(hChunk);

   return(nRet);

}