![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mpfind.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / mstools / samples / multipad|
Return to mpfind.c CVS log | Up to [WindowsNT SDKs] / mstools / samples / multipad |
1.1.1.4 ! root 1: ! 2: /******************************************************************************\ ! 3: * This is a part of the Microsoft Source Code Samples. ! 4: * Copyright (C) 1993 Microsoft Corporation. ! 5: * All rights reserved. ! 6: * This source code is only intended as a supplement to ! 7: * Microsoft Development Tools and/or WinHelp documentation. ! 8: * See these sources for detailed information regarding the ! 9: * Microsoft samples programs. ! 10: \******************************************************************************/ ! 11: 1.1 root 12: /*************************************************************************** 1.1.1.4 ! root 13: * * ! 14: * MODULE : MpFind.c * ! 15: * * ! 16: * PURPOSE : Code to do text searches in MultiPad. * ! 17: * * ! 18: * FUNCTIONS : RealSlowCompare () - Compares subject string with target * ! 19: * string. * ! 20: * * ! 21: * Local_FindText () - Looks for the search string in the * ! 22: * active window. * ! 23: * * ! 24: * FindPrev () - Find previous occurence of search * ! 25: * string. * ! 26: * * ! 27: * FindNext () - Find next occurence of search string* ! 28: * * ! 29: * FindDlgProc () - Dialog function for Search/Find. * ! 30: * * ! 31: * Find () - Invokes FindDlgProc () * ! 32: * * 1.1 root 33: ***************************************************************************/ 34: #include "multipad.h" 35: 36: #undef HIWORD 37: #undef LOWORD 38: 39: #define HIWORD(l) (((WORD*)&(l))[1]) 40: #define LOWORD(l) (((WORD*)&(l))[0]) 41: 1.1.1.4 ! root 42: BOOL fCase = FALSE; /* Turn case sensitivity off */ 1.1 root 43: CHAR szSearch[160] = ""; /* Initialize search string */ 44: 1.1.1.3 root 45: //LPSTR WINAPI AnsiLower (LPSTR); 1.1 root 46: 47: /**************************************************************************** 1.1.1.4 ! root 48: * * ! 49: * FUNCTION : RealSlowCompare () * ! 50: * * 1.1 root 51: * PURPOSE : Compares subject string with the target string. This fn/ * 1.1.1.4 ! root 52: * is called repeatedly so that all substrings are compared, * ! 53: * which makes it O(n ** 2), hence it's name. * ! 54: * * ! 55: * RETURNS : TRUE - If pSubject is identical to pTarget. * ! 56: * FALSE - otherwise. * ! 57: * * 1.1 root 58: ****************************************************************************/ 59: 60: BOOL NEAR PASCAL RealSlowCompare ( 1.1.1.4 ! root 61: register PSTR pSubject, ! 62: register PSTR pTarget) 1.1 root 63: { 64: if (fCase){ 1.1.1.4 ! root 65: while (*pTarget) ! 66: if (*pTarget++ != *pSubject++) ! 67: return FALSE; 1.1 root 68: } 69: else{ 1.1.1.4 ! root 70: /* If case-insensitive, convert both subject and target to lowercase ! 71: * before comparing. ! 72: */ ! 73: AnsiLower ((LPSTR)pTarget); ! 74: while (*pTarget) ! 75: if (*pTarget++ != (CHAR)(DWORD)AnsiLower ((LPSTR)(DWORD)(BYTE)*pSubject++)) ! 76: return FALSE; 1.1 root 77: } 78: return TRUE; 79: } 80: 81: /**************************************************************************** 1.1.1.4 ! root 82: * * ! 83: * FUNCTION : Local_FindText () * ! 84: * * 1.1 root 85: * PURPOSE : Finds the search string in the active window according to * 1.1.1.4 ! root 86: * search direction (dch) specified ( -1 for reverse and 1 for* ! 87: * forward searches). * ! 88: * * 1.1 root 89: ****************************************************************************/ 90: VOID NEAR PASCAL Local_FindText(register INT dch) 91: { 92: register PSTR pText; 1.1.1.4 ! root 93: HANDLE hT; ! 94: LONG l; ! 95: WORD cch; ! 96: INT i; 1.1 root 97: 98: if (!*szSearch) 1.1.1.4 ! root 99: return; 1.1 root 100: 101: /* Find the current selection range */ 1.1.1.4 ! root 102: l = (LONG)SendMessage(hwndActiveEdit, EM_GETSEL, 0, 0); 1.1 root 103: 104: /* Get the handle to the text buffer and lock it */ 1.1.1.4 ! root 105: hT = (HANDLE)SendMessage (hwndActiveEdit, EM_GETHANDLE, 0, 0L); 1.1 root 106: pText = LocalLock(hT); 107: 108: /* Get the length of the text */ 109: cch = (WORD)SendMessage (hwndActiveEdit, WM_GETTEXTLENGTH, 0, 0L); 110: 111: /* Start with the next char. in selected range ... */ 112: pText += LOWORD (l) + dch; 113: 114: /* Compute how many characters are before/after the current selection*/ 115: if (dch < 0) 1.1.1.4 ! root 116: i = LOWORD (l); 1.1 root 117: else 1.1.1.4 ! root 118: i = cch - LOWORD (l) + 1 - lstrlen (szSearch); 1.1 root 119: 120: /* While there are uncompared substrings... */ 121: while ( i > 0){ 1.1.1.4 ! root 122: LOWORD(l)+=dch; 1.1 root 123: 1.1.1.4 ! root 124: /* Does this substring match? */ ! 125: if (RealSlowCompare(pText,szSearch)){ 1.1 root 126: 1.1.1.4 ! root 127: /* Yes, unlock the buffer.*/ ! 128: LocalUnlock(hT); 1.1 root 129: 1.1.1.4 ! root 130: /* Select the located string */ ! 131: HIWORD(l) = LOWORD(l) + (WORD)lstrlen (szSearch); ! 132: SendMessage(hwndActiveEdit, EM_SETSEL, GET_EM_SETSEL_MPS(LOWORD(l), HIWORD(l))); ! 133: return; ! 134: } ! 135: i--; 1.1 root 136: 1.1.1.4 ! root 137: /* increment/decrement start position by 1 */ ! 138: pText += dch; 1.1 root 139: } 140: 141: /* Not found... unlock buffer. */ 142: LocalUnlock (hT); 143: 144: /* Give a message */ 145: MPError (hwndFrame, MB_OK | MB_ICONEXCLAMATION, IDS_CANTFIND, (LPSTR)szSearch); 146: 147: return; 148: } 149: 150: /**************************************************************************** 1.1.1.4 ! root 151: * * ! 152: * FUNCTION : FindPrev () * ! 153: * * 1.1 root 154: * PURPOSE : Finds the previous occurence of the search string. Calls * 1.1.1.4 ! root 155: * Local_FindText () with a negative search direction. * ! 156: * * 1.1 root 157: ****************************************************************************/ 158: VOID APIENTRY FindPrev() 159: { 160: Local_FindText(-1); 161: } 162: 163: /**************************************************************************** 1.1.1.4 ! root 164: * * ! 165: * FUNCTION : FindNext () * ! 166: * * ! 167: * PURPOSE : Finds the next occurence of search string. Calls * ! 168: * Local_FindText () with a positive search direction. * ! 169: * * 1.1 root 170: ****************************************************************************/ 171: VOID APIENTRY FindNext() 172: { 173: Local_FindText(1); 174: } 175: 176: /**************************************************************************** 1.1.1.4 ! root 177: * * ! 178: * FUNCTION : FindDlgProc(hwnd, message, wParam, lParam) * ! 179: * * 1.1 root 180: * PURPOSE : Dialog function for the Search/Find command. Prompts user * 1.1.1.4 ! root 181: * for target string, case flag and search direction. * ! 182: * * 1.1 root 183: ****************************************************************************/ 184: BOOL APIENTRY FindDlgProc( 1.1.1.4 ! root 185: HWND hwnd, ! 186: UINT msg, ! 187: UINT wParam, ! 188: LONG lParam) 1.1 root 189: { 190: switch (msg){ 1.1.1.4 ! root 191: case WM_INITDIALOG:{ 1.1 root 192: 1.1.1.4 ! root 193: /* Check/uncheck case button */ ! 194: CheckDlgButton (hwnd, (int)IDD_CASE, (WORD)fCase); 1.1 root 195: 1.1.1.4 ! root 196: /* Set default search string to most recently searched string */ ! 197: SetDlgItemText (hwnd, IDD_SEARCH, szSearch); 1.1 root 198: 1.1.1.4 ! root 199: /* Allow search only if target is nonempty */ ! 200: if (!lstrlen (szSearch)){ ! 201: EnableWindow (GetDlgItem (hwnd, IDOK), FALSE); ! 202: EnableWindow (GetDlgItem (hwnd, IDD_PREV), FALSE); ! 203: } ! 204: break; ! 205: } ! 206: ! 207: case WM_COMMAND: ! 208: { ! 209: ! 210: /* Search forward by default (see IDOK below) */ ! 211: INT i = 1; ! 212: ! 213: switch (LOWORD(wParam)){ ! 214: /* if the search target becomes non-empty, enable searching */ ! 215: case IDD_SEARCH: ! 216: if (GET_WM_COMMAND_CMD(wParam, lParam) == EN_CHANGE){ ! 217: if (!(WORD) SendDlgItemMessage (hwnd, ! 218: IDD_SEARCH, ! 219: WM_GETTEXTLENGTH, ! 220: 0, ! 221: 0L)) ! 222: i = FALSE; ! 223: else ! 224: i = TRUE; ! 225: EnableWindow (GetDlgItem (hwnd, IDOK), i); ! 226: EnableWindow (GetDlgItem (hwnd, IDD_PREV), i); ! 227: } ! 228: break; ! 229: ! 230: case IDD_CASE: ! 231: /* Toggle state of case button */ ! 232: CheckDlgButton (hwnd, ! 233: (int)IDD_CASE, ! 234: (WORD)!IsDlgButtonChecked (hwnd, (int)IDD_CASE)); ! 235: break; ! 236: ! 237: case IDD_PREV: ! 238: /* Set direction to backwards */ ! 239: i=-1; ! 240: /*** FALL THRU ***/ ! 241: ! 242: case IDOK: ! 243: /* Save case selection */ ! 244: fCase = IsDlgButtonChecked( hwnd, IDD_CASE); ! 245: ! 246: /* Get search string */ ! 247: GetDlgItemText (hwnd, IDD_SEARCH, szSearch, sizeof (szSearch)); ! 248: ! 249: /* Find the text */ ! 250: Local_FindText (i); ! 251: /*** FALL THRU ***/ ! 252: ! 253: /* End the dialog */ ! 254: case IDCANCEL: ! 255: EndDialog (hwnd, 0); ! 256: break; ! 257: ! 258: default: ! 259: return FALSE; ! 260: } ! 261: break; ! 262: } ! 263: default: ! 264: return FALSE; 1.1 root 265: } 266: return TRUE; 1.1.1.4 ! root 267: UNREFERENCED_PARAMETER(lParam); 1.1 root 268: } 269: 270: /**************************************************************************** 1.1.1.4 ! root 271: * * ! 272: * FUNCTION : Find() * ! 273: * * ! 274: * PURPOSE : Invokes the Search/Find dialog. * ! 275: * * 1.1 root 276: ****************************************************************************/ 277: 278: VOID APIENTRY Find() 279: { 1.1.1.2 root 280: DialogBox (hInst, IDD_FIND, hwndFrame, FindDlgProc); 1.1 root 281: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.