source: trunk/dll/autoview.c@ 1323

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

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