home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / d / d020_1_4 / 5.ddi / MULTIPAD / MPOPEN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-06-01  |  8.4 KB  |  277 lines
  1. /***************************************************************************
  2.  *                                       *
  3.  *  MODULE    : MpOpen.c                           *
  4.  *                                       *
  5.  *  PURPOSE    : Contains the file open dialog function and it's helper   *
  6.  *          functions.                           *
  7.  *                                       *
  8.  *  FUNCTIONS    : IsWild ()          - Ascertains that the input string   *
  9.  *                    contains a DOS wildcard character. *
  10.  *                                       *
  11.  *          SelectFile()          - If filename supplied contains a    *
  12.  *                    wildcard, this function fills the  *
  13.  *                    listboxes in File/Open dialog, else*
  14.  *                    the dialog is closed.           *
  15.  *                                       *
  16.  *          FileOpenDlgProc()   - Dialog funcion for the File/Open   *
  17.  *                    dialog.                *
  18.  *                                       *
  19.  *          GetFileName ()      - Gets a file name from the user.    *
  20.  *                                       *
  21.  ***************************************************************************/
  22. #include "multipad.h"
  23.  
  24. char szPropertyName [] = "FILENAME";/* Name of the File name property list item */
  25.  
  26. int FAR PASCAL DialogBoxParam ( HANDLE, LPSTR, HWND, FARPROC, LONG);
  27.  
  28.  
  29. /****************************************************************************
  30.  *                                        *
  31.  *  FUNCTION   : IsWild ( psz )                         *
  32.  *                                        *
  33.  *  PURPOSE    : Checks if the string (referenced by a NEAR pointer)        *
  34.  *         contains a DOS wildcard character ("*" or "?").        *
  35.  *                                        *
  36.  *  RETURNS    : TRUE  - iff the string contains a wildcard character.        *
  37.  *         FALSE - otherwise.                     .        *
  38.  *                                        *
  39.  ****************************************************************************/
  40. BOOL NEAR PASCAL IsWild( psz )
  41. register PSTR psz;
  42. {
  43.     for(;;)
  44.     switch (*psz++){
  45.         case '*':
  46.         case '?':
  47.         /* Found wildcard */
  48.         return TRUE;
  49.  
  50.         case 0:
  51.         /* Reached end of string */
  52.         return FALSE;
  53.  
  54.         default:
  55.         continue;
  56.     }
  57. }
  58.  
  59. /****************************************************************************
  60.  *                                        *
  61.  *  FUNCTION   : FileExists(pch)                                            *
  62.  *                                        *
  63.  *  PURPOSE    : Checks to see if a file exists with the path/filename        *
  64.  *               described by the string pointed to by 'pch'.               *
  65.  *                                        *
  66.  *  RETURNS    : TRUE  - if the described file does exist.                  *
  67.  *               FALSE - otherwise.                                         *
  68.  *                                        *
  69.  ****************************************************************************/
  70.  
  71. BOOL FileExists(PSTR pch)
  72. {
  73.     int fh;
  74.  
  75.     if ((fh = _lopen((LPSTR) pch, 0)) < 0)
  76.          return(FALSE);
  77.  
  78.     _lclose(fh);
  79.     return(TRUE);
  80. }
  81.  
  82. /****************************************************************************
  83.  *                                        *
  84.  *  FUNCTION   : SelectFile ( hwnd )                        *
  85.  *                                        *
  86.  *  PURPOSE    : Reads the string in the edit control of the File/Open        *
  87.  *         dialog. If it contains a wildcard, then it attempts to     *
  88.  *         fill the listboxes in the File/Open dialog. Othewise it    *
  89.  *         ends the dialog. Modifies the FILENAME item in the property*
  90.  *         list of the window.                        *
  91.  *                                        *
  92.  ****************************************************************************/
  93.  
  94. VOID NEAR PASCAL SelectFile( hwnd )
  95.  
  96. register HWND hwnd;
  97. {
  98.     register PSTR pch;
  99.     PSTR      pch2;
  100.     int       cch;
  101.  
  102.     char      szBuf[256];
  103.  
  104.     /* Get handle (near address) to filename data in window's property list */
  105.     pch = (PSTR)GetProp (hwnd, PROP_FILENAME);
  106.  
  107.     /* Get the text from the dialog's edit control into this address */
  108.     GetDlgItemText (hwnd, IDD_FILENAME, pch, 64);
  109.  
  110.     if ( IsWild (pch)){
  111.     /* Select the directory and make a listing of the directories */
  112.     DlgDirList(hwnd, (LPSTR)pch, IDD_DIRS, IDD_PATH, ATTR_DIRS);
  113.  
  114.     /* Obtain the filename-only part of the path in the edit control */
  115.     for (pch2 = pch; *pch; pch++)
  116.         if (*pch == '\\' || *pch == ':')
  117.         pch2 = pch + 1;
  118.  
  119.     /* List the files in this directory based on the wildcard. */
  120.     DlgDirList(hwnd, (LPSTR)pch2, IDD_FILES, IDD_PATH, ATTR_FILES);
  121.  
  122.     /* Set the dialog's edit control to the filename part of path
  123.      * string.
  124.      */
  125.     SetDlgItemText (hwnd, IDD_FILENAME, pch2);
  126.     }
  127.     else
  128.     {
  129.     /* The filename in the property list is not a wildcard */
  130.     if (FileExists (pch)){
  131.  
  132.         RemoveProp (hwnd, PROP_FILENAME);
  133.         EndDialog (hwnd, 0);
  134.     }
  135.     else{
  136.         MPError ( hwnd, MB_OK | MB_SYSTEMMODAL, IDS_CANTOPEN, (LPSTR) pch);
  137.         SetActiveWindow (hwnd);
  138.     }
  139.     }
  140. }
  141. /****************************************************************************
  142.  *                                        *
  143.  *  FUNCTION   : FileOpenDlgProc()                        *
  144.  *                                        *
  145.  *  PURPOSE    : Dialog function for the File/Open dialog. Takes care of    *
  146.  *         calling the appropriate functions for extracting the        *
  147.  *         filename and wildcard, filling the listboxes and changing  *
  148.  *         the FILENAME item in the property list for the window.     *
  149.  *                                        *
  150.  ****************************************************************************/
  151.  
  152. BOOL FAR PASCAL FileOpenDlgProc ( hwnd, message, wParam, lParam)
  153. register HWND hwnd;
  154. WORD          message;
  155. register WORD wParam;
  156. LONG          lParam;
  157. {
  158.     PSTR pch;
  159.  
  160.     switch (message){
  161.  
  162.     case WM_INITDIALOG:
  163.         /* Set the default file extension on edit window, and try to
  164.          * get a listing of the files and directories.
  165.          */
  166.         SetDlgItemText ( hwnd, IDD_FILENAME, DEFFILESEARCH);
  167.         SetProp (hwnd, PROP_FILENAME, LOWORD(lParam));
  168.         SendDlgItemMessage (hwnd, IDD_FILENAME, EM_LIMITTEXT, 64, 0L);
  169.         SelectFile (hwnd);
  170.         break;
  171.  
  172.     case WM_COMMAND:
  173.         switch (wParam){
  174.         case IDOK:
  175.             SelectFile(hwnd);
  176.             break;
  177.  
  178.         case IDCANCEL:
  179.             /* Set the filename in the prop. list to NULL and quit */
  180.             pch  = (PSTR) GetProp (hwnd, PROP_FILENAME);
  181.             *pch = 0;
  182.             EndDialog (hwnd, 0);
  183.             break;
  184.  
  185.         case IDD_FILENAME:
  186.             /* Enable the OK button if the edit control has text. */
  187.             EnableWindow ( GetDlgItem (hwnd, IDOK),
  188.                    GetWindowTextLength ((HWND)LOWORD (lParam)));
  189.             break;
  190.  
  191.         case IDD_FILES:
  192.  
  193.             /* The files listbox. If file selection has changed, fill
  194.              * the new filename into the property list buffer and set
  195.              * text in edit control.
  196.              */
  197.             if (HIWORD(lParam) == LBN_SELCHANGE){
  198.             pch = (PSTR) GetProp (hwnd, PROP_FILENAME);
  199.             DlgDirSelect (hwnd, (LPSTR)pch, IDD_FILES);
  200.             SetDlgItemText (hwnd, IDD_FILENAME, (LPSTR)pch);
  201.             }
  202.             else if (HIWORD(lParam) == LBN_DBLCLK)
  203.             /* if the item was double-clicked, try to open it */
  204.             SelectFile(hwnd);
  205.             break;
  206.  
  207.         case IDD_DIRS:
  208.  
  209.             /* The directories listbox. Append current filename in edit
  210.              * control (stripped of the path prefix) to the name from
  211.              * the property list and set the new string in the edit
  212.              * control.
  213.              */
  214.             if (HIWORD(lParam) == LBN_SELCHANGE){
  215.  
  216.             PSTR pch2, pchT, pchS;
  217.  
  218.             pch = (PSTR) GetProp (hwnd, PROP_FILENAME);
  219.  
  220.             /* Get the new drive/dir */
  221.             DlgDirSelect (hwnd, pch, IDD_DIRS);
  222.             pch2 = pch + lstrlen(pch);
  223.  
  224.             /* Fetch current contents of dialog's edit control and append
  225.              * it to name from property list... */
  226.             GetDlgItemText(hwnd,IDD_FILENAME,(LPSTR)pch2,64);
  227.             if (*pch2 == 0){
  228.                 SetDlgItemText(hwnd, IDD_FILENAME, DEFFILESEARCH);
  229.                 GetDlgItemText(hwnd,IDD_FILENAME,(LPSTR)pch2,64);
  230.             }
  231.             else {
  232.                 pchS = pch;
  233.                 for (pchT = pch = pch2; *pch; pch++) {
  234.                 if (*pch == '\\' || *pch == ':')
  235.                     pchT = pch2;
  236.                 else
  237.                     *pchT++ = *pch;
  238.                 }
  239.                 *pchT = 0;
  240.                 pch = pchS;
  241.             }
  242.  
  243.             /* Set the edit control with new string */
  244.             SetDlgItemText (hwnd, IDD_FILENAME, (LPSTR)pch);
  245.             }
  246.             else if (HIWORD(lParam) == LBN_DBLCLK)
  247.             SelectFile (hwnd);
  248.             break;
  249.  
  250.         default:
  251.             return FALSE;
  252.         }
  253.         break;
  254.  
  255.     default:
  256.         return FALSE;
  257.     }
  258.     return TRUE;
  259. }
  260.  
  261. /****************************************************************************
  262.  *                                        *
  263.  *  FUNCTION   : GetFilename ( pstr )                        *
  264.  *                                        *
  265.  *  PURPOSE    : Gets a filename from the user by calling the File/Open     *
  266.  *         dialog.                            *
  267.  *                                        *
  268.  ****************************************************************************/
  269. VOID NEAR PASCAL GetFileName(PSTR pstr)
  270. {
  271.     FARPROC lpfn;
  272.  
  273.     lpfn = MakeProcInstance (FileOpenDlgProc, hInst);
  274.     DialogBoxParam (hInst, IDD_FILEOPEN, hwndFrame, lpfn, MAKELONG(pstr,0));
  275.     FreeProcInstance (lpfn);
  276. }
  277.