Fix release build of dflat32, initalizing some vars and fixing one typo.
[reactos.git] / rosapps / dflat32 / search.c
1 /* ---------------- search.c ------------- */
2 #include "dflat.h"
3
4 extern DF_DBOX SearchTextDB;
5 extern DF_DBOX ReplaceTextDB;
6 static int CheckCase = TRUE;
7 static int Replacing = FALSE;
8
9 /* - case-insensitive, white-space-normalized char compare - */
10 static BOOL SearchCmp(int a, int b)
11 {
12 if (b == '\n')
13 b = ' ';
14 if (CheckCase)
15 return a != b;
16 return tolower(a) != tolower(b);
17 }
18
19 /* ----- replace a matching block of text ----- */
20 static void replacetext(DFWINDOW wnd, char *cp1, DF_DBOX *db)
21 {
22 char *cr = DfGetEditBoxText(db, DF_ID_REPLACEWITH);
23 char *cp = DfGetEditBoxText(db, DF_ID_SEARCHFOR);
24 int oldlen = strlen(cp); /* length of text being replaced */
25 int newlen = strlen(cr); /* length of replacing text */
26 int dif;
27 if (oldlen < newlen) {
28 /* ---- new text expands text size ---- */
29 dif = newlen-oldlen;
30 if (wnd->textlen < strlen(wnd->text)+dif) {
31 /* ---- need to reallocate the text buffer ---- */
32 int offset = (int)((int)cp1-(int)wnd->text);
33 wnd->textlen += dif;
34 wnd->text = DfRealloc(wnd->text, wnd->textlen+2);
35 cp1 = wnd->text + offset;
36 }
37 memmove(cp1+dif, cp1, strlen(cp1)+1);
38 }
39 else if (oldlen > newlen) {
40 /* ---- new text collapses text size ---- */
41 dif = oldlen-newlen;
42 memmove(cp1, cp1+dif, strlen(cp1)+1);
43 }
44 strncpy(cp1, cr, newlen);
45 }
46
47 /* ------- search for the occurrance of a string ------- */
48 static void SearchTextBox(DFWINDOW wnd, int incr)
49 {
50 char *s1 , *s2, *cp1;
51 s1 = s2 = cp1 = NULL;
52 DF_DBOX *db = Replacing ? &ReplaceTextDB : &SearchTextDB;
53 char *cp = DfGetEditBoxText(db, DF_ID_SEARCHFOR);
54 BOOL rpl = TRUE, FoundOne = FALSE;
55
56 while (rpl == TRUE && cp != NULL && *cp) {
57 rpl = Replacing ?
58 DfCheckBoxSetting(&ReplaceTextDB, DF_ID_REPLACEALL) :
59 FALSE;
60 if (DfTextBlockMarked(wnd)) {
61 DfClearTextBlock(wnd);
62 DfSendMessage(wnd, DFM_PAINT, 0, 0);
63 }
64 /* search for a match starting at DfCursor position */
65 cp1 = DfCurrChar;
66 if (incr)
67 cp1++; /* start past the last hit */
68 /* --- compare at each character position --- */
69 while (*cp1) {
70 s1 = cp;
71 s2 = cp1;
72 while (*s1 && *s1 != '\n') {
73 if (SearchCmp(*s1, *s2))
74 break;
75 s1++, s2++;
76 }
77 if (*s1 == '\0' || *s1 == '\n')
78 break;
79 cp1++;
80 }
81 if (s1 != NULL && (*s1 == 0 || *s1 == '\n')) {
82 /* ----- match at *cp1 ------- */
83 FoundOne = TRUE;
84
85 /* mark a block at beginning of matching text */
86 wnd->BlkEndLine = DfTextLineNumber(wnd, s2);
87 wnd->BlkBegLine = DfTextLineNumber(wnd, cp1);
88 if (wnd->BlkEndLine < wnd->BlkBegLine)
89 wnd->BlkEndLine = wnd->BlkBegLine;
90 wnd->BlkEndCol =
91 (int)((int)s2 - (int)DfTextLine(wnd, wnd->BlkEndLine));
92 wnd->BlkBegCol =
93 (int)((int)cp1 - (int)DfTextLine(wnd, wnd->BlkBegLine));
94
95 /* position the DfCursor at the matching text */
96 wnd->CurrCol = wnd->BlkBegCol;
97 wnd->CurrLine = wnd->BlkBegLine;
98 wnd->WndRow = wnd->CurrLine - wnd->wtop;
99
100 /* align the window scroll to matching text */
101 if (DfWndCol > DfClientWidth(wnd)-1)
102 wnd->wleft = wnd->CurrCol;
103 if (wnd->WndRow > DfClientHeight(wnd)-1) {
104 wnd->wtop = wnd->CurrLine;
105 wnd->WndRow = 0;
106 }
107
108 DfSendMessage(wnd, DFM_PAINT, 0, 0);
109 DfSendMessage(wnd, DFM_KEYBOARD_CURSOR,
110 DfWndCol, wnd->WndRow);
111
112 if (Replacing) {
113 if (rpl || DfYesNoBox("Replace the text?")) {
114 replacetext(wnd, cp1, db);
115 wnd->TextChanged = TRUE;
116 DfBuildTextPointers(wnd);
117 }
118 if (rpl) {
119 incr = TRUE;
120 continue;
121 }
122 DfClearTextBlock(wnd);
123 DfSendMessage(wnd, DFM_PAINT, 0, 0);
124 }
125 return;
126 }
127 break;
128 }
129 if (!FoundOne)
130 DfMessageBox("Search/Replace Text", "No match found");
131 }
132
133 /* ------- search for the occurrance of a string,
134 replace it with a specified string ------- */
135 void DfReplaceText(DFWINDOW wnd)
136 {
137 Replacing = TRUE;
138 if (CheckCase)
139 DfSetCheckBox(&ReplaceTextDB, DF_ID_MATCHCASE);
140 if (DfDialogBox(NULL, &ReplaceTextDB, TRUE, NULL)) {
141 CheckCase=DfCheckBoxSetting(&ReplaceTextDB,DF_ID_MATCHCASE);
142 SearchTextBox(wnd, FALSE);
143 }
144 }
145
146 /* ------- search for the first occurrance of a string ------ */
147 void DfSearchText(DFWINDOW wnd)
148 {
149 Replacing = FALSE;
150 if (CheckCase)
151 DfSetCheckBox(&SearchTextDB, DF_ID_MATCHCASE);
152 if (DfDialogBox(NULL, &SearchTextDB, TRUE, NULL)) {
153 CheckCase=DfCheckBoxSetting(&SearchTextDB,DF_ID_MATCHCASE);
154 SearchTextBox(wnd, FALSE);
155 }
156 }
157
158 /* ------- search for the next occurrance of a string ------- */
159 void DfSearchNext(DFWINDOW wnd)
160 {
161 SearchTextBox(wnd, TRUE);
162 }
163
164 /* EOF */