source: trunk/dll/autoview.c@ 1159

Last change on this file since 1159 was 1159, checked in by John Small, 17 years ago

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