source: trunk/dll/autoview.c@ 1029

Last change on this file since 1029 was 1029, checked in by Gregg Young, 17 years ago

Fixed early memory free; Added free_... functions to make fortify checking easier; Added fortify scopes; Delete now moves to trash can on systems with the xworkplace trash can installed.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 23.4 KB
Line 
1
2/***********************************************************************
3
4 $Id: autoview.c 1029 2008-06-23 01:30:16Z gyoung $
5
6 Auto view
7
8 Copyright (c) 1993-98 M. Kimes
9 Copyright (c) 2001, 2008 Steven H.Levine
10
11 12 Sep 02 SHL AutoObjProc: catch buff2 overflows
12 25 Oct 02 SHL CreateHexDump: catch buffer overflow
13 12 Feb 03 SHL AutoObjProc: standardize EA math
14 23 May 05 SHL Use QWL_USER
15 29 May 06 SHL Sync with archiver.bb2 mods
16 22 Jul 06 SHL Check more run time errors
17 15 Aug 06 SHL Use Runtime_Error more
18 03 Nov 06 SHL Renames
19 30 Mar 07 GKY Remove GetPString for window class names
20 20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
21 01 Sep 07 GKY Use xDosSetPathInfo to fix case where FS3 buffer crosses 64k boundry
22 27 Sep 07 SHL Correct ULONGLONG size formatting
23 22 Nov 07 GKY Use CopyPresParams to fix presparam inconsistencies in menus
24 30 Dec 07 GKY Use CommaFmtULL
25 29 Feb 08 GKY Use xfree where appropriate
26
27***********************************************************************/
28
29#include <stdlib.h>
30#include <string.h>
31#include <ctype.h>
32#include <process.h> // _beginthread
33
34#define INCL_DOS
35#define INCL_WIN
36#define INCL_GPI
37#define INCL_LONGLONG
38
39#include "fm3dlg.h"
40#include "fm3str.h"
41#include "mle.h"
42#include "pathutil.h" // BldFullPathName
43#include "errutil.h" // Dos_Error...
44#include "strutil.h" // GetPString
45#include "fm3dll.h"
46
47#include "fortify.h"
48
49#pragma data_seg(DATA1)
50
51static PSZ pszSrcFile = __FILE__;
52
53static HWND hwndAutoObj;
54static CHAR stopflag;
55static CHAR currfile[CCHMAXPATH];
56
57BOOL WriteEA(HWND hwnd, CHAR * filename, CHAR * eaname, USHORT type,
58 CHAR * data)
59{
60 /* save an ea to disk */
61
62 FEA2LIST *pfealist = NULL;
63 EAOP2 eaop;
64 APIRET rc;
65 ULONG ealen;
66 USHORT len, *num, *plen, usCodepage;
67 CHAR *p, *eaval;
68 BOOL ret = FALSE;
69
70 if (!filename || !eaname)
71 return ret;
72 usCodepage = (USHORT) WinQueryCp(WinQueryWindowULong(hwnd, QWL_HMQ));
73 len = (data) ? strlen(data) : 0;
74 ealen = sizeof(FEA2LIST) + 24L + strlen(eaname) + 1L + (ULONG) len + 4L;
75 switch (type) {
76 case EAT_EA:
77 case EAT_ASCII:
78 break;
79 case EAT_MVST:
80 if (data) {
81 ealen += sizeof(USHORT) * 5;
82 p = data;
83 while (*p) {
84 if (*p == '\n' && *(p + 1))
85 ealen += sizeof(USHORT);
86 p++;
87 }
88 }
89 break;
90 case EAT_MVMT:
91 if (data) {
92 ealen += sizeof(USHORT) * 5;
93 p = data;
94 while (*p) {
95 if (*p == '\n' && *(p + 1))
96 ealen += (sizeof(USHORT) * 2);
97 p++;
98 }
99 }
100 break;
101 default:
102 return ret;
103 }
104
105 rc = DosAllocMem((PPVOID) & pfealist, ealen, PAG_COMMIT | PAG_READ |
106 PAG_WRITE | OBJ_TILE);
107 if (rc || !pfealist)
108 Dos_Error(MB_CANCEL, rc, hwnd, pszSrcFile, __LINE__,
109 GetPString(IDS_OUTOFMEMORY));
110 else {
111 memset(pfealist, 0, ealen);
112 pfealist->list[0].cbName = strlen(eaname);
113 memcpy(pfealist->list[0].szName, eaname, pfealist->list[0].cbName + 1);
114 eaval = pfealist->list[0].szName + pfealist->list[0].cbName + 1;
115 switch (type) {
116 case EAT_EA:
117 case EAT_ASCII:
118 if (data) {
119 *(USHORT *) eaval = (USHORT) type;
120 eaval += sizeof(USHORT);
121 *(USHORT *) eaval = (USHORT) len;
122 eaval += sizeof(USHORT);
123 memcpy(eaval, data, len);
124 eaval += len;
125 }
126 break;
127 case EAT_MVST:
128 if (data) {
129 *(USHORT *) eaval = (USHORT) EAT_MVST;
130 eaval += sizeof(USHORT);
131 *(USHORT *) eaval = usCodepage;
132 eaval += sizeof(USHORT);
133 num = (USHORT *) eaval;
134 *num = 0;
135 eaval += sizeof(USHORT);
136 *(USHORT *) eaval = (USHORT) EAT_ASCII;
137 eaval += sizeof(USHORT);
138 plen = (USHORT *) eaval;
139 *plen = 0;
140 eaval += sizeof(USHORT);
141 p = data;
142 while (*p) {
143 while (*p) {
144 if (*p == '\n') {
145 p++;
146 break;
147 }
148 *eaval++ = *p++;
149 (*plen)++;
150 }
151 if (*p || *plen)
152 (*num)++;
153 if (*p) {
154 plen = (USHORT *) eaval;
155 *plen = 0;
156 eaval += sizeof(USHORT);
157 }
158 }
159 }
160 break;
161 case EAT_MVMT:
162 if (data) {
163 *(USHORT *) eaval = (USHORT) EAT_MVMT;
164 eaval += sizeof(USHORT);
165 *(USHORT *) eaval = usCodepage;
166 eaval += sizeof(USHORT);
167 num = (USHORT *) eaval;
168 *num = 0;
169 eaval += sizeof(USHORT);
170 *(USHORT *) eaval = (USHORT) EAT_ASCII;
171 eaval += sizeof(USHORT);
172 plen = (USHORT *) eaval;
173 *plen = 0;
174 eaval += sizeof(USHORT);
175 p = data;
176 while (*p) {
177 while (*p) {
178 if (*p == '\n') {
179 p++;
180 break;
181 }
182 *eaval++ = *p++;
183 (*plen)++;
184 }
185 if (*p || *plen)
186 (*num)++;
187 if (*p) {
188 *(USHORT *) eaval = (USHORT) EAT_ASCII;
189 eaval += sizeof(USHORT);
190 plen = (USHORT *) eaval;
191 *plen = 0;
192 eaval += sizeof(USHORT);
193 }
194 }
195 }
196 break;
197 }
198 pfealist->list[0].cbValue = /*(ULONG)*/ (eaval -
199 (pfealist->list[0].szName +
200 pfealist->list[0].cbName + 1));
201 memset(&eaop, 0, sizeof(eaop));
202 eaop.fpFEA2List = pfealist;
203 pfealist->cbList = 13 + (ULONG) pfealist->list[0].cbName +
204 (ULONG) pfealist->list[0].cbValue;
205 rc = xDosSetPathInfo(filename, FIL_QUERYEASIZE,
206 &eaop, sizeof(eaop), DSPI_WRTTHRU);
207 DosFreeMem(pfealist);
208 if (!rc)
209 ret = TRUE;
210 }
211 return ret;
212}
213
214BOOL PutComments(HWND hwnd, CHAR * filename, CHAR * comments)
215{
216 register CHAR *p;
217
218 if (comments) { /* check -- is it empty? */
219 p = comments;
220 while (*p && isspace(*p))
221 p++;
222 if (!*p)
223 comments = NULL;
224 }
225 return WriteEA(hwnd, filename, ".COMMENTS", EAT_MVMT, comments);
226}
227
228static PSZ pszBufOvfMsg = "Buffer overflow";
229
230ULONG CreateHexDump(CHAR * pchInBuf, ULONG cbInBuf,
231 CHAR * pchOutBuf, ULONG cbOutBuf,
232 ULONG cOffset, BOOL fLongAddr)
233{
234 register CHAR *pchIn, *pchReset, *pchOut;
235 register ULONG ibIn = 0, ibIn2, ibInFill;
236 ULONG cbOutLine = 6 + (fLongAddr ? 4 : 0) + 16 * 3 + 1 + 16 + 1;
237
238 if (pchInBuf && cbInBuf && pchOutBuf && cbOutBuf) {
239 pchIn = pchInBuf;
240 pchOut = pchOutBuf;
241 if (cOffset)
242 *pchOut++ = '\n';
243 while (ibIn < cbInBuf) {
244 if (pchOut - pchOutBuf + cbOutLine >= cbOutBuf) {
245 Runtime_Error(pszSrcFile, __LINE__, pszBufOvfMsg);
246 break;
247 }
248 pchReset = pchIn;
249 ibIn2 = ibIn;
250 if (fLongAddr)
251 sprintf(pchOut, "%08lx ", ibIn + cOffset);
252 else
253 sprintf(pchOut, "%04lx ", ibIn + cOffset);
254 pchOut += 6 + (fLongAddr ? 4 : 0);
255 do {
256 sprintf(pchOut, "%02x ", (UCHAR)*pchIn);
257 pchOut += 3;
258 pchIn++;
259 ibIn++;
260 } while (ibIn < cbInBuf && (ibIn % 16));
261 if (ibIn % 16) {
262 ibInFill = ibIn;
263 while (ibInFill % 16) {
264 *pchOut++ = ' ';
265 *pchOut++ = ' ';
266 *pchOut++ = ' ';
267 ibInFill++;
268 }
269 }
270 *pchOut++ = ' ';
271 pchIn = pchReset;
272 do {
273 if (*pchIn && *pchIn != '\n' && *pchIn != '\r' && *pchIn != '\t'
274 && *pchIn != '\x1a')
275 *pchOut++ = *pchIn++;
276 else {
277 *pchOut++ = '.';
278 pchIn++;
279 }
280 ibIn2++;
281 } while (ibIn2 < ibIn);
282 if (ibIn < cbInBuf)
283 *pchOut++ = '\n';
284 } // while ibIn
285 *pchOut = 0;
286 return (ULONG) (pchOut - pchOutBuf);
287 }
288 return 0L;
289}
290
291MRESULT EXPENTRY AutoObjProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
292{
293 switch (msg) {
294 case UM_LOADFILE:
295 *currfile = 0;
296 stopflag--;
297 if (fAutoView) {
298 WinSetWindowText((fComments) ? hwndAutoMLE : hwndAutoview, "");
299 MLEsetreadonly(hwndAutoMLE, TRUE);
300 MLEsetchanged(hwndAutoMLE, FALSE);
301 }
302 if (mp1) {
303 if (fAutoView) {
304 strcpy(currfile, (CHAR *)mp1);
305 if (!fComments) {
306 if (IsFile((CHAR *)mp1) == 1) {
307
308 HFILE handle;
309 ULONG olen, ibufflen, action, obufflen, l;
310 CHAR *ibuff, *obuff, *p;
311 // 06 Oct 07 SHL Protect against NTFS driver small buffer defect
312 // CHAR buffer[80];
313 CHAR buffer[4096];
314 ARC_TYPE *info;
315
316 if (!DosOpen((CHAR *)mp1,
317 &handle,
318 &action,
319 0,
320 0,
321 OPEN_ACTION_FAIL_IF_NEW | OPEN_ACTION_OPEN_IF_EXISTS,
322 OPEN_FLAGS_FAIL_ON_ERROR | OPEN_FLAGS_NOINHERIT |
323 OPEN_FLAGS_RANDOMSEQUENTIAL | OPEN_SHARE_DENYNONE |
324 OPEN_ACCESS_READONLY, 0)) {
325 ibufflen = AutoviewHeight < 96 ? 512 : 3072;
326 // 06 Oct 07 SHL protect against NTFS driver small buffer defect
327 // ibuff = xmalloc(ibufflen + 2, pszSrcFile, __LINE__); // 05 Nov 07 SHL
328 ibuff = xmalloc(max(ibufflen + 2, 4096), pszSrcFile, __LINE__);
329 if (ibuff) {
330 // Depends on CreateHexDump line width
331 obufflen = (ibufflen / 16) * (6 + 3 * 16 + 1 + 16 + 1) + 80;
332 obuff = xmalloc(obufflen + 1, pszSrcFile, __LINE__);
333 if (obuff) {
334 *obuff = 0;
335 if (!DosRead(handle, ibuff, ibufflen, &ibufflen) &&
336 ibufflen)
337 {
338 ibuff[ibufflen] = 0;
339 p = obuff;
340 if (IsBinary(ibuff, ibufflen)) {
341 olen = ibufflen;
342 // Check archive
343 if (!arcsigsloaded)
344 load_archivers();
345 info = arcsighead;
346 while (info) {
347 if (info->signature && *info->signature) {
348 l = strlen(info->signature);
349 l = min(l, 79);
350 if (!DosChgFilePtr(handle, abs(info->file_offset),
351 (info->file_offset >= 0L) ?
352 FILE_BEGIN :
353 FILE_END, &ibufflen)) {
354 if (!DosRead(handle,
355 buffer,
356 l, &ibufflen) && ibufflen == l) {
357 if (!memcmp(info->signature, buffer, l))
358 break;
359 }
360 }
361 }
362 info = info->next;
363 }
364 if (info) {
365 sprintf(p, "**%s%s%s\n",
366 info->id ? info->id : "",
367 info->id ? " " : "",
368 GetPString(IDS_ARCHIVETEXT));
369 p += strlen(p);
370 }
371 CreateHexDump(ibuff, // Input buffer
372 olen, // Input buffer size
373 p, // Output buffer
374 obufflen - (p - obuff), // Output buffer size
375 0, // Address offest
376 FALSE); // Short addresses
377 }
378 else {
379 // Text file
380 register CHAR *src, *dest;
381 CHAR *endsrc;
382
383 src = ibuff;
384 dest = obuff;
385 endsrc = ibuff + ibufflen;
386 while (src < endsrc) {
387 if (dest == obuff && (*src == '\t' || *src == ' ' ||
388 *src == '\r' || *src == '\n')) {
389 src++;
390 }
391 else if (*src == '\t' || !*src) {
392 *dest = ' ';
393 dest++;
394 src++;
395 }
396 else if (*src == '\r' || *src == '\n') {
397 *dest = *src;
398 while (*(src + 1) == '\r' || *(src + 1) == '\n' ||
399 *(src + 1) == ' ' || *(src + 1) == '\t')
400 src++;
401 dest++;
402 src++;
403 }
404 else {
405 *dest = *src;
406 src++;
407 dest++;
408 }
409 } // while
410 *dest = 0;
411 if (dest - obuff >= obufflen)
412 Runtime_Error(pszSrcFile, __LINE__, pszBufOvfMsg);
413 }
414 if (*obuff)
415 WinSetWindowText(hwndAutoview, obuff);
416 }
417 xfree(obuff, pszSrcFile, __LINE__);
418 }
419 xfree(ibuff, pszSrcFile, __LINE__);
420# ifdef FORTIFY
421 Fortify_LeaveScope();
422# endif
423 }
424 DosClose(handle);
425 }
426 }
427 else if (!IsFile(currfile)) {
428
429 static FILEFINDBUF4L ffb[130];
430 CHAR fullname[CCHMAXPATH + 4], szCmmaFmtFileSize[81];
431 HDIR hdir = HDIR_CREATE;
432 ULONG x, nm, ml, mc, bufflen;
433 PBYTE fb;
434 PFILEFINDBUF4L pffbFile;
435 PSZ pszBuf;
436 PSZ p;
437 APIRET rc;
438
439 BldFullPathName(fullname, currfile, "*");
440 //sprintf(fullname,
441 // "%s%s*",
442 // currfile,
443 // (currfile[strlen(currfile) - 1] == '\\') ? "" : "\\");
444 DosError(FERR_DISABLEHARDERR);
445 nm = sizeof(ffb) / sizeof(FILEFINDBUF4L);
446 if (AutoviewHeight < 96)
447 nm /= 2;
448 rc = xDosFindFirst(fullname,
449 &hdir,
450 FILE_NORMAL | FILE_DIRECTORY |
451 FILE_READONLY | FILE_ARCHIVED |
452 FILE_SYSTEM | FILE_HIDDEN,
453 &ffb, sizeof(ffb), &nm, FIL_QUERYEASIZEL);
454 if (!rc && nm) {
455 fb = (PBYTE) & ffb;
456 x = ml = 0;
457 while (x < nm) {
458 pffbFile = (PFILEFINDBUF4L) fb;
459 mc = (ULONG) pffbFile->cchName +
460 ((pffbFile->attrFile & FILE_DIRECTORY) != 0);
461 ml = max(ml, mc);
462 if (!pffbFile->oNextEntryOffset)
463 break;
464 fb += pffbFile->oNextEntryOffset;
465 x++;
466 }
467 bufflen = (CCHMAXPATHCOMP + 42) * nm;
468 pszBuf = xmalloc(bufflen, pszSrcFile, __LINE__);
469 if (pszBuf) {
470 p = pszBuf;
471 *p = 0;
472 fb = (PBYTE) & ffb;
473 x = 0;
474 while (x < nm) {
475 pffbFile = (PFILEFINDBUF4L) fb;
476 if (!(!*pffbFile->achName ||
477 (((pffbFile->attrFile & FILE_DIRECTORY) &&
478 pffbFile->achName[0] == '.') &&
479 (!pffbFile->achName[1] ||
480 (pffbFile->achName[1] == '.' &&
481 !pffbFile->achName[2]))))) {
482 CommaFmtULL(szCmmaFmtFileSize,
483 sizeof(szCmmaFmtFileSize),
484 pffbFile->cbFile + CBLIST_TO_EASIZE(pffbFile->cbList),
485 ' ');
486 sprintf(p,
487 "%s%-*.*s %-8s [%s%s%s%s] %04lu/%02lu/%02lu "
488 "%02lu:%02lu:%02lu\r",
489 pffbFile->attrFile & FILE_DIRECTORY ? "\\" : " ",
490 ml,
491 ml,
492 pffbFile->achName,
493 szCmmaFmtFileSize,
494 pffbFile->attrFile & FILE_READONLY ? "R" : "-",
495 pffbFile->attrFile & FILE_ARCHIVED ? "A" : "-",
496 pffbFile->attrFile & FILE_HIDDEN ? "H" : "-",
497 pffbFile->attrFile & FILE_SYSTEM ? "S" : "-",
498 pffbFile->fdateLastWrite.year + 1980,
499 pffbFile->fdateLastWrite.month,
500 pffbFile->fdateLastWrite.day,
501 pffbFile->ftimeLastWrite.hours,
502 pffbFile->ftimeLastWrite.minutes,
503 pffbFile->ftimeLastWrite.twosecs * 2);
504 p += strlen(p);
505 }
506 if (!pffbFile->oNextEntryOffset)
507 break;
508 fb += pffbFile->oNextEntryOffset;
509 x++;
510 } // while
511 if (p - pszBuf >= bufflen)
512 Runtime_Error(pszSrcFile, __LINE__, pszBufOvfMsg);
513 if (*pszBuf)
514 WinSetWindowText(hwndAutoview, pszBuf);
515 xfree(pszBuf, pszSrcFile, __LINE__);
516# ifdef FORTIFY
517 Fortify_LeaveScope();
518# endif
519 }
520 }
521 if (!rc)
522 DosFindClose(hdir);
523 }
524 }
525 else {
526
527 APIRET rc;
528 EAOP2 eaop;
529 PGEA2LIST pgealist;
530 PFEA2LIST pfealist;
531 PGEA2 pgea;
532 PFEA2 pfea;
533 CHAR *value, *pszBuf, *p, *data;
534 USHORT len, type, plen, dlen;
535 BOOL readonly = FALSE;
536
537 pgealist = xmallocz(sizeof(GEA2LIST) + 64, pszSrcFile, __LINE__);
538 if (pgealist) {
539 pgea = &pgealist->list[0];
540 strcpy(pgea->szName, ".COMMENTS");
541 pgea->cbName = strlen(pgea->szName);
542 pgea->oNextEntryOffset = 0L;
543 pgealist->cbList = (sizeof(GEA2LIST) + pgea->cbName);
544 pfealist = xmallocz(65536, pszSrcFile, __LINE__);
545 if (pfealist) {
546 pfealist->cbList = 65536;
547 eaop.fpGEA2List = pgealist;
548 eaop.fpFEA2List = pfealist;
549 eaop.oError = 0L;
550 rc = DosQueryPathInfo((CHAR *)mp1, FIL_QUERYEASFROMLIST,
551 (PVOID) & eaop, (ULONG) sizeof(EAOP2));
552 xfree(pgealist, pszSrcFile, __LINE__);
553# ifdef FORTIFY
554 Fortify_LeaveScope();
555# endif
556 if (!rc) {
557 pfea = &eaop.fpFEA2List->list[0];
558 if (pfea->cbName && pfea->cbValue) {
559 value = pfea->szName + pfea->cbName + 1;
560 value[pfea->cbValue] = 0;
561 if (*(USHORT *) value == EAT_MVMT) {
562 pszBuf = xmalloc(65536, pszSrcFile, __LINE__);
563 if (pszBuf) {
564 p = pszBuf;
565 *pszBuf = 0;
566 data = value + (sizeof(USHORT) * 3);
567 type = *(USHORT *) data;
568 data += sizeof(USHORT);
569 len = *(USHORT *) data;
570 data += sizeof(USHORT);
571 while ((data - value) - len < pfea->cbValue) {
572 if (type == EAT_ASCII) {
573 dlen = plen = 0;
574 while (dlen < len) {
575 if (data[dlen] == '\r') {
576 dlen++;
577 if (dlen < len && data[dlen] != '\n')
578 p[plen++] = '\n';
579 }
580 else
581 p[plen++] = data[dlen++];
582 }
583 if ((!len || !plen || p[plen - 1] != '\n') &&
584 (data - value) + len < pfea->cbValue)
585 p[plen++] = '\n';
586 p += plen;
587 *p = 0;
588 }
589 else
590 readonly = TRUE;
591 data += len;
592 if (data - value >= pfea->cbValue)
593 break;
594 type = *(USHORT *) data;
595 data += sizeof(USHORT);
596 len = *(USHORT *) data;
597 data += sizeof(USHORT);
598 } // while
599 if (p - pszBuf >= 65536) {
600 Runtime_Error(pszSrcFile, __LINE__, pszBufOvfMsg);
601 pszBuf[65535] = 0; // Try to stay alive
602 break;
603 }
604 WinSetWindowText(hwndAutoMLE, pszBuf);
605 xfree(pszBuf, pszSrcFile, __LINE__);
606 }
607 }
608 else
609 readonly = TRUE;
610 }
611 /* else EA not present */
612 MLEsetchanged(hwndAutoMLE, FALSE);
613 MLEsetreadonly(hwndAutoMLE, readonly);
614 }
615 else {
616 MLEsetchanged(hwndAutoMLE, FALSE);
617 MLEsetreadonly(hwndAutoMLE, FALSE);
618 }
619 xfree(pfealist, pszSrcFile, __LINE__);
620 }
621 }
622 }
623 }
624 xfree((CHAR *)mp1, pszSrcFile, __LINE__);
625# ifdef FORTIFY
626 Fortify_LeaveScope();
627# endif
628 }
629 return 0;
630
631 case UM_CLOSE:
632 if (!PostMsg((HWND) 0, WM_QUIT, MPVOID, MPVOID))
633 WinSendMsg((HWND) 0, WM_QUIT, MPVOID, MPVOID);
634 WinDestroyWindow(hwnd);
635 return 0;
636 }
637 return WinDefWindowProc(hwnd, msg, mp1, mp2);
638}
639
640static VOID MakeAutoWinThread(VOID * args)
641{
642 HAB hab2;
643 HMQ hmq2;
644 HWND hwndParent = (HWND) args;
645 QMSG qmsg2;
646
647 hab2 = WinInitialize(0);
648 if (hab2) {
649 hmq2 = WinCreateMsgQueue(hab2, 128);
650 if (hmq2) {
651 DosError(FERR_DISABLEHARDERR);
652 WinRegisterClass(hab2,
653 WC_OBJECTWINDOW,
654 AutoObjProc, 0, sizeof(PVOID));
655 hwndAutoObj = WinCreateWindow(HWND_OBJECT,
656 WC_OBJECTWINDOW,
657 (PSZ) NULL,
658 0,
659 0L,
660 0L,
661 0L,
662 0L, 0L, HWND_TOP, OBJ_FRAME, NULL, NULL);
663 if (!hwndAutoObj) {
664 Win_Error2(HWND_OBJECT, HWND_DESKTOP, pszSrcFile, __LINE__,
665 IDS_WINCREATEWINDOW);
666 if (!PostMsg(hwndParent, UM_CLOSE, MPVOID, MPVOID))
667 WinSendMsg(hwndParent, UM_CLOSE, MPVOID, MPVOID);
668 }
669 else {
670 WinSetWindowULong(hwndAutoObj, QWL_USER, hwndParent);
671 priority_normal();
672 while (WinGetMsg(hab2, &qmsg2, (HWND) 0, 0, 0))
673 WinDispatchMsg(hab2, &qmsg2);
674 WinDestroyWindow(hwndAutoObj);
675 hwndAutoObj = (HWND) 0;
676 }
677 WinDestroyMsgQueue(hmq2);
678 }
679 else
680 WinTerminate(hab2);
681 }
682}
683
684MRESULT EXPENTRY AutoViewProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
685{
686 USHORT id = WinQueryWindowUShort(hwnd, QWS_ID);
687
688 switch (msg) {
689 case WM_CREATE:
690 {
691 MRESULT mr;
692
693 if (!hwndAutoObj) {
694 if (_beginthread(MakeAutoWinThread, NULL, 65536, (PVOID) hwnd) == -1) {
695 Runtime_Error(pszSrcFile, __LINE__,
696 GetPString(IDS_COULDNTSTARTTHREADTEXT));
697 PostMsg(hwnd, UM_CLOSE, MPVOID, MPVOID);
698 }
699 }
700 mr = PFNWPStatic(hwnd, msg, mp1, mp2);
701 SetPresParams(hwnd,
702 &RGBGREY,
703 &RGBBLACK, &RGBGREY, GetPString(IDS_4SYSTEMVIOTEXT));
704 stopflag = 0;
705 return mr;
706 }
707
708 case UM_SETUP:
709 MLEsetlimit(hwnd, 32768);
710 MLEsetformat(hwnd, MLFIE_NOTRANS);
711 MLEsetchanged(hwnd, FALSE);
712 return 0;
713
714 case WM_BUTTON1DOWN:
715 {
716 SWP swp;
717
718 WinQueryWindowPos(hwnd, &swp);
719 if (SHORT2FROMMP(mp1) > swp.cy - 4) {
720
721 HPS hps = WinGetPS(WinQueryWindow(hwnd, QW_PARENT));
722 SWP swpC;
723 TRACKINFO track;
724
725 if (hps) {
726 WinQueryWindowPos(WinWindowFromID(WinQueryWindow(hwnd, QW_PARENT),
727 FID_CLIENT), &swpC);
728 track.cxBorder = 4;
729 track.cyBorder = 4;
730 track.cxGrid = 1;
731 track.cyGrid = 8;
732 track.cxKeyboard = 8;
733 track.rclTrack.yBottom = swp.y;
734 track.rclTrack.yTop = swp.y + swp.cy;
735 track.rclTrack.xLeft = swp.x;
736 track.rclTrack.xRight = swp.x + swp.cx;
737 track.rclBoundary = track.rclTrack;
738 track.rclBoundary.yTop = (swpC.cy + swp.y + swp.cy) - 116;
739 track.ptlMinTrackSize.x = swp.x + swp.cx;
740 track.ptlMinTrackSize.y = 36;
741 track.ptlMaxTrackSize.x = swp.x + swp.cx;
742 track.ptlMaxTrackSize.y = (swpC.cy + swp.cy) - 116;
743 track.fs = TF_TOP;
744 if (WinTrackRect(hwnd, hps, &track)) {
745 AutoviewHeight = track.rclTrack.yTop - track.rclTrack.yBottom;
746 PrfWriteProfileData(fmprof,
747 FM3Str,
748 "AutoviewHeight",
749 &AutoviewHeight, sizeof(ULONG));
750 WinSendMsg(WinQueryWindow(hwnd, QW_PARENT),
751 WM_UPDATEFRAME, MPFROMLONG(FCF_SIZEBORDER), MPVOID);
752 }
753 WinReleasePS(hps);
754 }
755 return (MRESULT) TRUE;
756 }
757 else if (id != MAIN_AUTOVIEWMLE)
758 return CommonTextButton(hwnd, msg, mp1, mp2);
759 }
760 break;
761
762 case WM_BUTTON3DOWN:
763 case WM_BUTTON1UP:
764 case WM_BUTTON3UP:
765 if (id != MAIN_AUTOVIEWMLE)
766 return CommonTextButton(hwnd, msg, mp1, mp2);
767 break;
768
769 case WM_MOUSEMOVE:
770 shiftstate = (SHORT2FROMMP(mp2) & (KC_ALT | KC_SHIFT | KC_CTRL));
771 {
772 SWP swp;
773
774 WinQueryWindowPos(hwnd, &swp);
775 if (SHORT2FROMMP(mp1) > swp.cy - 4) {
776 WinSetPointer(HWND_DESKTOP, hptrNS);
777 return (MRESULT) TRUE;
778 }
779 }
780 break;
781
782 case WM_PAINT:
783 PostMsg(hwnd, UM_PAINT, MPVOID, MPVOID);
784 break;
785
786 case UM_PAINT:
787 PaintRecessedWindow(hwnd, (HPS) 0, TRUE, TRUE);
788 return 0;
789
790 case WM_SETFOCUS:
791 switch (id) {
792 case MAIN_AUTOVIEWMLE:
793 if (!mp2 && !AutoMenu) {
794 if (*currfile) {
795 if (MLEgetchanged(hwnd)) {
796 CHAR *ea = xmalloc(32768, pszSrcFile, __LINE__);
797
798 if (ea) {
799 *ea = 0;
800 WinQueryWindowText(hwnd, 32767, ea);
801 PutComments(hwnd, currfile, ea);
802 PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(IDM_RESCAN, 0), MPVOID);
803 xfree(ea, pszSrcFile, __LINE__);
804# ifdef FORTIFY
805 Fortify_LeaveScope();
806# endif
807 }
808 }
809 }
810 }
811 break;
812 default:
813 if (mp2)
814 PostMsg(hwnd, UM_FOCUSME, mp1, mp2);
815 break;
816 }
817 break;
818
819 case UM_FOCUSME:
820 if (mp2) {
821
822 PID pid;
823 TID tid;
824
825 if (WinQueryWindowProcess((HWND) mp1, &pid, &tid) && pid == mypid)
826 WinSetFocus(HWND_DESKTOP, (HWND) mp1);
827 else
828 WinSetFocus(HWND_DESKTOP, hwndTree);
829 }
830 return 0;
831
832 case UM_CLICKED:
833 case UM_CLICKED3:
834 if (id != MAIN_AUTOVIEWMLE) {
835 PostMsg(hwnd,
836 WM_COMMAND,
837 MPFROM2SHORT(((msg == UM_CLICKED3) ?
838 IDM_EAS : IDM_VIEWORARC), 0), MPVOID);
839 }
840 return 0;
841
842 case WM_COMMAND:
843 PostMsg(hwnd, UM_COMMAND, mp1, mp2);
844 return 0;
845
846 case UM_COMMAND:
847 switch (SHORT1FROMMP(mp1)) {
848 case IDM_RESCAN:
849 if (*currfile) {
850
851 CHAR *cf = xstrdup(currfile, pszSrcFile, __LINE__);
852
853 if (cf) {
854 stopflag++;
855 if (!PostMsg(hwndAutoObj, UM_LOADFILE, MPFROMP(cf), MPVOID))
856 xfree(cf, pszSrcFile, __LINE__);
857# ifdef FORTIFY
858 Fortify_LeaveScope();
859# endif
860 }
861 }
862 break;
863
864 case IDM_INFO:
865 DefaultView(hwnd, (HWND) 0, hwndMain, NULL, 16, currfile);
866 break;
867
868 case IDM_VIEW:
869 DefaultView(hwnd, (HWND) 0, hwndMain, NULL, 0, currfile);
870 break;
871
872 case IDM_EDIT:
873 DefaultView(hwnd, (HWND) 0, hwndMain, NULL, 8, currfile);
874 break;
875
876 case IDM_EAS:
877 {
878 char *list[2];
879
880 list[0] = currfile;
881 list[1] = NULL;
882
883 WinDlgBox(HWND_DESKTOP,
884 hwndMain,
885 DisplayEAsProc, FM3ModHandle, EA_FRAME, (PVOID) list);
886 }
887 break;
888
889 default:
890 PostMsg(hwndMain, msg, mp1, mp2);
891 }
892 return 0;
893
894 case WM_MENUEND:
895 if ((HWND) mp2 == AutoMenu) {
896 WinDestroyWindow(AutoMenu);
897 AutoMenu = (HWND) 0;
898 }
899 break;
900
901 case WM_CONTEXTMENU:
902 CheckMenu(hwnd, &AutoMenu, (id == MAIN_AUTOVIEWMLE) ?
903 IDM_AUTOVIEWMLE : IDM_AUTOVIEW);
904 WinCheckMenuItem(AutoMenu, IDM_AUTOVIEWFILE, !fComments);
905 WinCheckMenuItem(AutoMenu, IDM_AUTOVIEWCOMMENTS, fComments);
906 WinEnableMenuItem(AutoMenu, IDM_VIEW, (IsFile(currfile) == 1));
907 WinEnableMenuItem(AutoMenu, IDM_EDIT, (IsFile(currfile) == 1));
908 WinEnableMenuItem(AutoMenu, IDM_INFO, (*currfile != 0));
909 PopupMenu(hwnd, hwnd, AutoMenu);
910 break;
911
912 case UM_LOADFILE:
913 stopflag++;
914 if (!PostMsg(hwndAutoObj, msg, mp1, mp2)) {
915 xfree((CHAR *)mp1, pszSrcFile, __LINE__);
916# ifdef FORTIFY
917 Fortify_LeaveScope();
918# endif
919 }
920 return 0;
921
922 case UM_CLOSE:
923 if (AutoMenu) {
924 WinDestroyWindow(AutoMenu);
925 AutoMenu = (HWND) 0;
926 }
927 WinDestroyWindow(hwnd);
928 return 0;
929
930 case WM_CLOSE:
931 WinSendMsg(hwnd, UM_CLOSE, MPVOID, MPVOID);
932 return 0;
933
934 case WM_DESTROY:
935 if (id != MAIN_AUTOVIEWMLE) {
936 if (hwndAutoObj)
937 if (!PostMsg(hwndAutoObj, WM_CLOSE, MPVOID, MPVOID))
938 WinSendMsg(hwndAutoObj, WM_CLOSE, MPVOID, MPVOID);
939 break;
940 }
941 break;
942 }
943
944 if (id == MAIN_AUTOVIEWMLE)
945 return PFNWPMLE(hwnd, msg, mp1, mp2);
946 return PFNWPStatic(hwnd, msg, mp1, mp2);
947}
948
949#pragma alloc_text(AUTOVIEW,AutoViewProc,CreateHexDump,AutoObjProc)
950#pragma alloc_text(AUTOVIEW2,MakeAutoWinThread,WriteEA,PutComments)
Note: See TracBrowser for help on using the repository browser.