home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PROGJRN / PJ_7_6.ARC / WINDEV.ARC / WINVUEMS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-08-05  |  8.9 KB  |  298 lines
  1. /* 
  2.   Winvue file open routines.
  3.  
  4.   Most of the routines here are taken from the Microsoft TEMPLATE
  5.   Application.  Minor adaptations have been made to suit the
  6.   Winvue program.
  7. */
  8.  
  9. #define NOCOMM        
  10. #define NOKANJI
  11. #define NOATOM
  12. #define NOBITMAP
  13. #define NOMINMAX
  14. #include <windows.h>
  15. #include "longstr.h"
  16. #include "winvue.h"
  17.  
  18. /* local function declarations */
  19. static VOID NEAR DlgCheckOkEnable (HWND, int, unsigned);
  20. static void NEAR DlgAddCorrectExtension (char *, BOOL);
  21. static BOOL NEAR DlgCheckFilename (char *);
  22. static BOOL NEAR DlgSearchSpec (char *);
  23.  
  24. #define ATTRDIRLIST 0x4010  /* include directories and drives in listbox */
  25.  
  26. static char *szExtSave = "\\*.TXT";    /* default extension */
  27. int cbRootNameMax = MAX_FNAME_LEN -CBEXTMAX - 1;
  28.     
  29. /* This is the window proc for the about box when it is displayed */
  30. BOOL FAR PASCAL AboutBoxProc(hDlg, message, wParam, lParam)
  31. HWND hDlg;
  32. unsigned message;
  33. WORD wParam;
  34. LONG lParam;
  35. {
  36.  
  37.     switch (message) {
  38.  
  39.       /* nothing to initialize */
  40.     case WM_INITDIALOG:
  41.         break;
  42.  
  43.       /* this dialog box has only an OK button */
  44.     case WM_COMMAND:
  45.         switch (wParam) {
  46.         case IDOK:
  47.         case IDCANCEL:
  48.         /* destroy the dialog box */
  49.             EndDialog(hDlg,TRUE);
  50.             break;
  51.         default:
  52.             return FALSE;        /* we did not process */
  53.         }
  54.         break;
  55.         
  56.     default:
  57.         return FALSE;
  58.     }
  59.     return TRUE;        /* we processed message */
  60. }
  61.  
  62. /*=============================================================================
  63.  DLGFNOPEN controls the Open dialog box.  The dialog box handles input, allows
  64.  user to change directories, checks for legal filenames, opens specified files,
  65.  appends default extension if needed, and returns the file's name and ofstruct.
  66.  This routine correctly parses filenames containing KANJI characters.
  67. =============================================================================*/
  68. int FAR PASCAL DlgFnOpen(hwnd, msg, wParam, lParam)
  69. HWND hwnd;
  70. unsigned msg;
  71. WORD wParam;
  72. LONG lParam;
  73. {
  74.  
  75.     char rgch[256];
  76.     int cchFile, cchDir;
  77.     char *pchFile;
  78.     BOOL    fWild;
  79.  
  80.     switch (msg) {
  81.     case WM_INITDIALOG:
  82.     /* Set edit field with default search spec */
  83.     SetDlgItemText(hwnd, IDD_EDIT, (LPSTR)(szExtSave+1));
  84.     /* Don't let user type more than cbRootNameMax bytes in edit ctl. */
  85.     SendDlgItemMessage(hwnd, IDD_EDIT, EM_LIMITTEXT, cbRootNameMax, 0L);
  86.  
  87.     /* fill list box with filenames that match spec, and fill static
  88.        field with path name */
  89.     if (!DlgDirList(hwnd,(LPSTR)(szExtSave+1),
  90.                     IDD_LISTBOX,IDD_PATH,ATTRDIRLIST))
  91.         EndDialog(hwnd, FALSE);
  92.     break;
  93.  
  94.     case WM_COMMAND:
  95.     switch (wParam) {
  96.     case IDOK:
  97.         if (IsWindowEnabled(GetDlgItem(hwnd, IDOK))) {
  98.         /* Get contents of edit field */
  99.         /* Add search spec if it does not contain one. */
  100.         GetDlgItemText(hwnd,IDD_EDIT,(LPSTR)szFileNameSave,
  101.                                 cbRootNameMax);
  102.         lstrcpy((LPSTR)rgch, (LPSTR)szFileNameSave);
  103.  
  104.         /* Append appropriate extension to user's entry */
  105.         DlgAddCorrectExtension(rgch, TRUE);
  106.         /* Try to open directory.  If successful, fill listbox with
  107.            contents of new directory.  Otherwise, open datafile. */
  108.         if (DlgSearchSpec(rgch)) {
  109.             if (DlgDirList(hwnd, (LPSTR)rgch, 
  110.                     IDD_LISTBOX, IDD_PATH, ATTRDIRLIST)){
  111.             lstrcpy((LPSTR)szFileNameSave, (LPSTR)rgch);
  112.             SetDlgItemText(hwnd, IDD_EDIT, (LPSTR)szFileNameSave);
  113.             break;
  114.             }
  115.         }
  116.  
  117.         DlgAddCorrectExtension(szFileNameSave, FALSE);
  118.         /* If no directory list and filename contained search spec,
  119.            honk and don't try to open. */
  120.         if (DlgSearchSpec(szFileNameSave)) {
  121.             MessageBeep(0);
  122.             break;
  123.         }
  124. LoadIt:
  125.         /* Make filename upper case and if it's a legal dos
  126.            name, try to open the file. */
  127.         AnsiUpper((LPSTR)szFileNameSave);
  128.         if (!DlgCheckFilename(szFileNameSave)) {
  129.             /* illegal filename */
  130.             ShowMessage(hwnd, szFileNameSave, IDS_IFN,
  131.                 MB_OK | MB_ICONEXCLAMATION | MB_APPLMODAL);
  132.             break;
  133.         }
  134.         EndDialog(hwnd, TRUE);
  135.         break;
  136.         }
  137.         break;
  138.  
  139.     case IDCANCEL:
  140.         /* User pressed cancel.  Just take down dialog box. */
  141.         EndDialog(hwnd, FALSE);
  142.         break;
  143.  
  144.     /* User single clicked or doubled clicked in listbox -
  145.        Single click means fill edit box with selection.
  146.        Double click means go ahead and open the selection. */
  147.     case IDD_LISTBOX:
  148.         switch (HIWORD(lParam)) {
  149.  
  150.         /* Single click case */
  151.         case 1:
  152.         GetDlgItemText(hwnd, IDD_EDIT, (LPSTR)rgch, cbRootNameMax);
  153.  
  154.         /* Get selection, which may be either a prefix to a new search
  155.            path or a filename. DlgDirSelect parses selection, and
  156.            appends a backslash if selection is a prefix */
  157.         if (DlgDirSelect(hwnd, (LPSTR)szFileNameSave, IDD_LISTBOX)) {
  158.             cchDir = lstrlen((LPSTR)szFileNameSave);
  159.             cchFile = lstrlen((LPSTR)rgch);
  160.             pchFile = rgch+cchFile;
  161.  
  162.             /* Now see if there are any wild characters (* or ?) in
  163.                edit field.  If so, append to prefix. If edit field
  164.                contains no wild cards append default search spec
  165.                which is  "*.TXT" for notepad. */
  166.             fWild = (*pchFile == '*' || *pchFile == ':');
  167.             while (pchFile > rgch) {
  168.             pchFile = (char *)AnsiPrev((LPSTR)(rgch),
  169.                                 (LPSTR)pchFile);
  170.             if (*pchFile == '*' || *pchFile == '?')
  171.                 fWild = TRUE;
  172.             if (*pchFile == '\\' || *pchFile == ':') {
  173.                 pchFile = (char *)AnsiNext((LPSTR)pchFile);
  174.                 break;
  175.             }
  176.             }
  177.             if (fWild)
  178.             lstrcpy((LPSTR)szFileNameSave + cchDir, (LPSTR)pchFile);
  179.             else
  180.             lstrcpy((LPSTR)szFileNameSave + cchDir,
  181.                             (LPSTR)(szExtSave+1));
  182.         }
  183.  
  184.         /* Set edit field to entire file/path name. */
  185.         SetDlgItemText(hwnd, IDD_EDIT, (LPSTR)szFileNameSave);
  186.         break;
  187.  
  188.         /* Double click case - first click has already been processed
  189.            as single click */
  190.         case 2:
  191.         /* Basically the same as ok.  If new selection is directory,
  192.            open it and list it.  Otherwise, open file. */
  193.         if (DlgDirList(hwnd, (LPSTR)szFileNameSave, 
  194.                 IDD_LISTBOX, IDD_PATH, ATTRDIRLIST)) {
  195.             SetDlgItemText(hwnd, IDD_EDIT, (LPSTR)szFileNameSave);
  196.             break;
  197.         }
  198.         goto LoadIt;    /* go load it up */
  199.         }
  200.         break;
  201.  
  202.     case IDD_EDIT:
  203.         DlgCheckOkEnable(hwnd, IDD_EDIT, HIWORD(lParam));
  204.         break;
  205.  
  206.     default:
  207.         return(FALSE);
  208.     }
  209.     default:
  210.     return FALSE;
  211.     }
  212.     return(TRUE);
  213.  
  214. } /* end dlgfnopen */
  215.  
  216. /*=============================================================================
  217.  DLGCHECKOKENABLE enables the ok button in dialog box if and only if the edit
  218.  field contains text.
  219. =============================================================================*/
  220. static VOID NEAR DlgCheckOkEnable(hwnd, idEdit, message)
  221. HWND    hwnd;
  222. int    idEdit;
  223. unsigned message;
  224. {
  225.     if (message == EN_CHANGE) {
  226.     EnableWindow(GetDlgItem(hwnd, IDOK),
  227.          (BOOL)SendMessage(GetDlgItem(hwnd,idEdit),WM_GETTEXTLENGTH,0,0L));
  228.     }
  229. }
  230.  
  231. /*=============================================================================
  232.  DLGADDCORRECTEXTENSION adds appropriate extension to filename, partial filename,
  233.  search spec, or partial search spec.
  234. ==============================================================================*/
  235. static void NEAR DlgAddCorrectExtension(szEdit, fSearching)
  236. char    *szEdit;
  237. BOOL    fSearching;
  238. {
  239.     register char    *pchLast;
  240.     register char    *pchT;
  241.     int ichExt;
  242.     BOOL    fDone = FALSE;
  243.     int     cchEdit;
  244.  
  245.     pchT = pchLast = (char *)AnsiPrev((LPSTR)szEdit, 
  246.             (LPSTR)(szEdit + (cchEdit = lstrlen((LPSTR)szEdit))));
  247.  
  248.     if ((*pchLast == '.' && *(AnsiPrev((LPSTR)szEdit, (LPSTR)pchLast)) == '.') 
  249.                                 && cchEdit == 2)
  250.     ichExt = 0;
  251.     else if (*pchLast == '\\' || *pchLast == ':')
  252.     ichExt = 1;
  253.     else {
  254.     ichExt = fSearching ? 0 : 2;
  255.     for (; pchT > szEdit;pchT=(char *)AnsiPrev((LPSTR)szEdit,(LPSTR)pchT)) {
  256.         /* If we're not searching and we encounter a period, don't add
  257.            any extension.  If we are searching, period is assumed to be
  258.            part of directory name, so go ahead and add extension. However,
  259.            if we are searching and find a search spec, do not add any
  260.            extension. */
  261.         if (fSearching) {
  262.         if (*pchT == '*' || *pchT == '?')
  263.             return;
  264.         } else if (*pchT == '.'){
  265.         return;
  266.         }
  267.         /* Quit when we get to beginning of last node. */
  268.         if (*pchT == '\\')
  269.         break;
  270.     }
  271.     /* Special case hack fix since AnsiPrev can not return value less than
  272.        szEdit. If first char is wild card, return without appending. */
  273.     if (fSearching && (*pchT == '*' || *pchT == '?'))
  274.         return;
  275.     }
  276.     lstrcpy((LPSTR)(pchLast+1), (LPSTR)(szExtSave+ichExt));
  277.  
  278. } /* end dlgaddcorrectextension */
  279.  
  280. /*=====    check for legal filename =====*/
  281. static BOOL near DlgCheckFilename(pch)
  282. register char    *pch;
  283. {
  284.     OFSTRUCT    ofT;
  285.     return (OpenFile((LPSTR)pch, (LPOFSTRUCT)&ofT, OF_PARSE) == 0);
  286. }
  287.  
  288. /*====== return TRUE iff 0 terminated str contains  '*' or '?' ======*/
  289. static BOOL NEAR DlgSearchSpec(sz) 
  290. register char     *sz;
  291. {
  292.     for (; *sz;sz++) {
  293.     if (*sz == '*' || *sz == '?')
  294.         return TRUE;
  295.     }
  296.     return FALSE;
  297. }
  298.