source: trunk/dll/eas.c@ 636

Last change on this file since 636 was 574, checked in by Gregg Young, 19 years ago

Use QWL_USER; Replace doesn't move the command and Okay on cmd dialog removed error on unchanged command
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 35.0 KB
Line 
1
2/***********************************************************************
3
4 $Id: eas.c 574 2007-03-23 22:37:07Z gyoung $
5
6 Display/edit EAs
7
8 Copyright (c) 1993-98 M. Kimes
9 Copyright (c) 2004, 2006 Steven H. Levine
10
11 01 Aug 04 SHL Rework lstrip/rstrip usage
12 06 Jun 05 SHL Indent -i2
13 06 Jun 05 SHL Rework DisplayEAsProc for VAC3.65 compat
14 06 Jun 05 SHL Drop unused variables
15 17 Jul 06 SHL Use Runtime_Error
16 22 Mar 07 GKY Use QWL_USER
17
18***********************************************************************/
19
20#define INCL_WIN
21#define INCL_DOS
22#define INCL_DOSERRORS
23#include <os2.h>
24
25#include <stdlib.h>
26#include <stdio.h>
27#include <string.h>
28#include <ctype.h>
29
30#include "fm3dll.h"
31#include "fm3dlg.h"
32#include "fm3str.h"
33#include "mle.h"
34
35#pragma data_seg(DATA1)
36
37static PSZ pszSrcFile = __FILE__;
38
39#pragma alloc_text(EAS,DisplayEAsProc,SaveEA,HexDumpEA,CheckEA,AddEAProc)
40#pragma alloc_text(EAS1,HexDump,GetFileEAs,Free_FEAList)
41
42typedef struct
43{
44 CHAR *name;
45 INT type;
46}
47RESERVEDEAS;
48
49typedef struct
50{
51 CHAR *filename;
52 HOLDFEA *head;
53}
54ADDEA;
55
56HOLDFEA *CheckEA(HOLDFEA * head, CHAR * eaname)
57{
58 /* return pointer to ea named eaname if found in linked list */
59
60 register HOLDFEA *info = NULL;
61
62 if (eaname && *eaname) {
63 info = head;
64 while (info) {
65 if (!strcmp(info->name, eaname))
66 return info;
67 info = info->next;
68 }
69 }
70 return info;
71}
72
73MRESULT EXPENTRY AddEAProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
74{
75 ADDEA *add;
76 HOLDFEA *head;
77 CHAR *filename;
78 static CHAR *forbidden[] = { ".ASSOCTABLE",
79 ".CLASSINFO",
80 ".ICON",
81 ".CODEPAGE",
82 ""
83 };
84 static RESERVEDEAS restypes[] = { ".TYPE", EAT_MVMT,
85 ".SUBJECT", EAT_ASCII,
86 ".COMMENTS", EAT_MVMT,
87 ".KEYPHRASES", EAT_MVMT,
88 ".HISTORY", EAT_MVMT,
89 ".LONGNAME", EAT_ASCII,
90 ".VERSION", EAT_ASCII,
91 "", 0
92 };
93
94 switch (msg) {
95 case WM_INITDLG:
96 if (!mp2) {
97 WinDismissDlg(hwnd, 0);
98 break;
99 }
100 WinSetWindowPtr(hwnd, QWL_USER, (PVOID) mp2);
101 WinSendDlgItemMsg(hwnd, EAC_NAME, EM_SETTEXTLIMIT,
102 MPFROM2SHORT(255, 0), MPVOID);
103 WinCheckButton(hwnd, EAC_ASCII, TRUE);
104 break;
105
106 case WM_PAINT:
107 PostMsg(hwnd, UM_PAINT, MPVOID, MPVOID);
108 break;
109
110 case UM_PAINT:
111 PaintRecessedWindow(WinWindowFromID(hwnd, EAC_TEXT), (HPS) 0, FALSE,
112 FALSE);
113 return 0;
114
115 case WM_CONTROL:
116 return 0;
117
118 case WM_COMMAND:
119 switch (SHORT1FROMMP(mp1)) {
120 case DID_OK:
121 add = INSTDATA(hwnd);
122 head = add->head;
123 filename = add->filename;
124 {
125 CHAR s[257];
126 INT x;
127 USHORT type = EAT_ASCII;
128
129 *s = 0;
130 WinQueryDlgItemText(hwnd, EAC_NAME, 255, s);
131 bstrip(s);
132 if (!*s)
133 WinDismissDlg(hwnd, 0);
134 else {
135 if (CheckEA(head, s)) {
136 DosBeep(50, 100);
137 WinSetDlgItemText(hwnd, EAC_TEXT,
138 GetPString(IDS_EANAMEEXISTSTEXT));
139 break;
140 }
141 for (x = 0; *forbidden[x]; x++) {
142 if (!strcmp(forbidden[x], s)) {
143 DosBeep(50, 100);
144 WinSetDlgItemText(hwnd, EAC_TEXT,
145 GetPString(IDS_EANAMERESERVEDTEXT));
146 return 0;
147 }
148 }
149 if (WinQueryButtonCheckstate(hwnd, EAC_MVST))
150 type = EAT_MVST;
151 else if (WinQueryButtonCheckstate(hwnd, EAC_MVMT))
152 type = EAT_MVMT;
153 for (x = 0; *restypes[x].name; x++) {
154 if (!strcmp(restypes[x].name, s)) {
155 if (type != restypes[x].type) {
156 DosBeep(50, 100);
157 WinSetDlgItemText(hwnd, EAC_TEXT,
158 GetPString(IDS_EAWRONGTYPETEXT));
159 return 0;
160 }
161 break;
162 }
163 }
164 /* if we get here, create dummy ea */
165 {
166 PFEA2LIST pfealist = NULL;
167 EAOP2 eaop;
168 ULONG ealen;
169 CHAR *eaval;
170 APIRET rc;
171
172 ealen = sizeof(FEA2LIST) + strlen(s) + 64;
173 rc = DosAllocMem((PPVOID) & pfealist, ealen + 1L,
174 OBJ_TILE | PAG_COMMIT | PAG_READ | PAG_WRITE);
175 if (rc)
176 Dos_Error(MB_CANCEL, rc, HWND_DESKTOP, pszSrcFile, __LINE__,
177 GetPString(IDS_OUTOFMEMORY));
178 else {
179 memset(pfealist, 0, ealen + 1);
180 pfealist->cbList = ealen;
181 pfealist->list[0].oNextEntryOffset = 0L;
182 pfealist->list[0].fEA = 0;
183 pfealist->list[0].cbName = strlen(s);
184 strcpy(pfealist->list[0].szName, s);
185 eaval = pfealist->list[0].szName + strlen(s) + 1;
186 *(USHORT *) eaval = (USHORT) type;
187 eaval += sizeof(USHORT);
188 if (type == EAT_MVST || type == EAT_MVMT) {
189 *(USHORT *) eaval = (USHORT) 0; /* codepage */
190 eaval += sizeof(USHORT);
191 *(USHORT *) eaval = (USHORT) 1; /* number */
192 eaval += sizeof(USHORT);
193 *(USHORT *) eaval = (USHORT) EAT_ASCII; /* type */
194 eaval += sizeof(USHORT);
195 }
196 *(USHORT *) eaval = (USHORT) 4;
197 eaval += sizeof(USHORT);
198 memcpy(eaval, GetPString(IDS_FAKETEXT), 4);
199 pfealist->list[0].cbValue = 4 + (sizeof(USHORT) * 2) +
200 ((type == EAT_MVST ||
201 type == EAT_MVMT) ? sizeof(USHORT) * 3 : 0);
202 eaop.fpGEA2List = (PGEA2LIST) 0;
203 eaop.fpFEA2List = pfealist;
204 eaop.oError = 0L;
205 DosSetPathInfo(filename, FIL_QUERYEASIZE, (PVOID) & eaop,
206 (ULONG) sizeof(EAOP2), DSPI_WRTTHRU);
207 WinDismissDlg(hwnd, 1);
208 }
209 }
210 }
211 }
212 break;
213
214 case DID_CANCEL:
215 WinDismissDlg(hwnd, 0);
216 break;
217
218 case IDM_HELP:
219 if (hwndHelp)
220 WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
221 MPFROM2SHORT(HELP_ADDEA, 0), MPFROMSHORT(HM_RESOURCEID));
222 break;
223 }
224 return 0;
225 }
226 return WinDefDlgProc(hwnd, msg, mp1, mp2);
227}
228
229static VOID HexDumpEA(HWND hwnd, HOLDFEA * info)
230{
231 if (info)
232 HexDump(WinWindowFromID(hwnd, EA_HEXDUMP), info->value, info->cbValue);
233}
234
235VOID HexDump(HWND hwnd, CHAR * value, ULONG cbValue)
236{
237 /* display a hexdump of a binary 'string' in listbox hwnd */
238
239 CHAR s[132];
240 register CHAR *p, *pp, *a;
241 register ULONG x = 0, y, z;
242
243 WinSendMsg(hwnd, LM_DELETEALL, MPVOID, MPVOID);
244 if (cbValue) {
245 pp = p = value;
246 while (x < cbValue) {
247 y = x;
248 sprintf(s, "%04lx ", x);
249 a = s + 6;
250 do {
251 sprintf(a, "%02hx ", *p);
252 a += 3;
253 p++;
254 x++;
255 }
256 while (x < cbValue && (x % 16));
257 if (x % 16) {
258 z = x;
259 while (z % 16) {
260 *a++ = ' ';
261 *a++ = ' ';
262 *a++ = ' ';
263 z++;
264 }
265 }
266 *a++ = ' ';
267 p = pp;
268 do {
269 if (*p)
270 *a++ = *p++;
271 else {
272 *a++ = '.';
273 p++;
274 }
275 *a = 0;
276 y++;
277 }
278 while (y < x);
279 if ((SHORT) WinSendMsg(hwnd, LM_INSERTITEM, MPFROM2SHORT(LIT_END, 0),
280 MPFROMP(s)) < 0)
281 break;
282 pp = p;
283 }
284 }
285}
286
287typedef struct
288{
289 USHORT size;
290 USHORT flags;
291 HOLDFEA *head, *current;
292 CHAR **list;
293 CHAR filename[CCHMAXPATH];
294}
295EAPROCDATA;
296
297MRESULT EXPENTRY DisplayEAsProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
298{
299 EAPROCDATA *eap;
300 HOLDFEA *info;
301 static HPOINTER hptrIcon = (HPOINTER) 0;
302
303 if (msg != WM_INITDLG)
304 eap = (EAPROCDATA *) WinQueryWindowPtr(hwnd, QWL_USER);
305
306 switch (msg) {
307 case WM_INITDLG:
308 if (!mp2) {
309 WinDismissDlg(hwnd, 0);
310 break;
311 }
312 eap = xmallocz(sizeof(EAPROCDATA), pszSrcFile, __LINE__);
313 if (!eap) {
314 WinDismissDlg(hwnd, 0);
315 break;
316 }
317 hptrIcon = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, EA_FRAME);
318 WinDefDlgProc(hwnd, WM_SETICON, MPFROMLONG(hptrIcon), MPVOID);
319 eap->size = sizeof(EAPROCDATA);
320 eap->list = (CHAR **) mp2;
321 WinSetWindowPtr(hwnd, QWL_USER, (PVOID) eap);
322 WinSendDlgItemMsg(hwnd,
323 EA_ENTRY, EM_SETTEXTLIMIT, MPFROM2SHORT(40, 0), MPVOID);
324 MLEsetlimit(WinWindowFromID(hwnd, EA_MLE), 32767L);
325 MLEsetformat(WinWindowFromID(hwnd, EA_MLE), MLFIE_NOTRANS);
326 {
327 INT x;
328 SHORT sSelect;
329 CHAR s[CCHMAXPATH];
330
331 for (x = 0; eap->list[x]; x++) {
332 if (DosQueryPathInfo(eap->list[x], FIL_QUERYFULLNAME, s, sizeof(s)))
333 strcpy(s, eap->list[x]);
334 if (IsFile(s) != -1)
335 WinSendDlgItemMsg(hwnd,
336 EA_NAMES,
337 LM_INSERTITEM,
338 MPFROM2SHORT(LIT_SORTASCENDING, 0), MPFROMP(s));
339 }
340 sSelect = (SHORT) WinSendDlgItemMsg(hwnd,
341 EA_NAMES,
342 LM_QUERYITEMCOUNT, MPVOID, MPVOID);
343 if (sSelect > 0)
344 WinSendDlgItemMsg(hwnd,
345 EA_NAMES,
346 LM_SELECTITEM,
347 MPFROM2SHORT(0, 0), MPFROMSHORT(TRUE));
348 else
349 WinDismissDlg(hwnd, 0);
350 }
351 break;
352
353 case UM_SETDIR:
354 if (*eap->filename) {
355 if (eap->head)
356 Free_FEAList(eap->head);
357 eap->head = GetFileEAs(eap->filename, FALSE, FALSE);
358 if (!isalpha(*eap->filename) ||
359 (driveflags[toupper(*eap->filename) - 'A'] & DRIVE_NOTWRITEABLE)) {
360 WinEnableWindow(WinWindowFromID(hwnd, EA_CHANGE), FALSE);
361 WinEnableWindow(WinWindowFromID(hwnd, EA_ADD), FALSE);
362 WinEnableWindow(WinWindowFromID(hwnd, EA_DELETE), FALSE);
363 }
364 else {
365 WinEnableWindow(WinWindowFromID(hwnd, EA_CHANGE), TRUE);
366 WinEnableWindow(WinWindowFromID(hwnd, EA_ADD), TRUE);
367 WinEnableWindow(WinWindowFromID(hwnd, EA_DELETE), TRUE);
368 }
369 WinSendMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
370 }
371 break;
372
373 case UM_SETUP:
374 WinSendDlgItemMsg(hwnd, EA_LISTBOX, LM_DELETEALL, MPVOID, MPVOID);
375 WinShowWindow(WinWindowFromID(hwnd, EA_ENTRY), FALSE);
376 WinSetDlgItemText(hwnd, EA_ENTRY, NullStr);
377 WinShowWindow(WinWindowFromID(hwnd, EA_MLE), FALSE);
378 MLEclearall(WinWindowFromID(hwnd, EA_MLE));
379 WinShowWindow(WinWindowFromID(hwnd, EA_HEXDUMP), FALSE);
380 WinSendDlgItemMsg(hwnd, EA_HEXDUMP, LM_DELETEALL, MPVOID, MPVOID);
381 WinShowWindow(WinWindowFromID(hwnd, EA_CHANGE), FALSE);
382 WinShowWindow(WinWindowFromID(hwnd, EA_DELETE), FALSE);
383 eap->current = NULL;
384 if (eap->head) {
385 WinSetDlgItemText(hwnd, EA_TEXT, NullStr);
386 info = eap->head;
387 while (info) {
388 WinSendDlgItemMsg(hwnd, EA_LISTBOX, LM_INSERTITEM,
389 MPFROM2SHORT(LIT_END, 0), MPFROMP(info->name));
390 info = info->next;
391 }
392 WinSendDlgItemMsg(hwnd, EA_LISTBOX, LM_SELECTITEM,
393 MPFROM2SHORT(0, 0), MPFROM2SHORT(TRUE, 0));
394 }
395 else
396 WinSetDlgItemText(hwnd, EA_TEXT, GetPString(IDS_EANOEAS));
397 return 0;
398
399 case WM_PAINT:
400 PostMsg(hwnd, UM_PAINT, MPVOID, MPVOID);
401 break;
402
403 case UM_PAINT:
404 PaintRecessedWindow(WinWindowFromID(hwnd, EA_HELP), (HPS) 0, FALSE, TRUE);
405 PaintRecessedWindow(WinWindowFromID(hwnd, EA_TEXT), (HPS) 0, FALSE,
406 FALSE);
407 return 0;
408
409 case WM_CONTROL:
410 switch (SHORT1FROMMP(mp1)) {
411 case EA_NAMES:
412 switch (SHORT2FROMMP(mp1)) {
413 case LN_SETFOCUS:
414 WinSetDlgItemText(hwnd, EA_HELP, GetPString(IDS_EAFILENAMESHELPTEXT));
415 break;
416 case LN_KILLFOCUS:
417 WinSetDlgItemText(hwnd, EA_HELP, NullStr);
418 break;
419 case LN_ENTER:
420 case LN_SELECT:
421 {
422 CHAR s[CCHMAXPATH];
423 SHORT sSelect;
424
425 sSelect = (SHORT) WinSendDlgItemMsg(hwnd, EA_NAMES,
426 LM_QUERYSELECTION,
427 MPFROM2SHORT(LIT_FIRST, 0),
428 MPVOID);
429 if (sSelect >= 0) {
430 *s = 0;
431 WinSendDlgItemMsg(hwnd, EA_NAMES, LM_QUERYITEMTEXT,
432 MPFROM2SHORT(sSelect, CCHMAXPATH), MPFROMP(s));
433 if (*s) {
434 strcpy(eap->filename, s);
435 if (SHORT2FROMMP(mp1) == LN_SELECT)
436 WinSendMsg(hwnd, UM_SETDIR, MPVOID, MPVOID);
437 else
438 QuickView(hwnd, eap->filename);
439 }
440 }
441 }
442 break;
443 }
444 break;
445
446 case EA_LISTBOX:
447 switch (SHORT2FROMMP(mp1)) {
448 case LN_SETFOCUS:
449 WinSetDlgItemText(hwnd, EA_HELP, GetPString(IDS_EATYPESHELPTEXT));
450 break;
451 case LN_KILLFOCUS:
452 WinSetDlgItemText(hwnd, EA_HELP, NullStr);
453 break;
454 case LN_SELECT:
455 {
456 CHAR s[257];
457 SHORT sSelect;
458
459 eap->current = NULL;
460 if (eap->head) {
461 WinSetDlgItemText(hwnd, EA_TEXT, NullStr);
462 WinShowWindow(WinWindowFromID(hwnd, EA_ENTRY), FALSE);
463 WinSetDlgItemText(hwnd, EA_ENTRY, NullStr);
464 MLEclearall(WinWindowFromID(hwnd, EA_MLE));
465 WinShowWindow(WinWindowFromID(hwnd, EA_MLE), FALSE);
466 WinShowWindow(WinWindowFromID(hwnd, EA_CHANGE), FALSE);
467 WinShowWindow(WinWindowFromID(hwnd, EA_DELETE), FALSE);
468 WinShowWindow(WinWindowFromID(hwnd, EA_HEXDUMP), FALSE);
469 WinSendDlgItemMsg(hwnd, EA_HEXDUMP, LM_DELETEALL, MPVOID, MPVOID);
470 *s = 0;
471 sSelect = (USHORT) WinSendDlgItemMsg(hwnd, EA_LISTBOX,
472 LM_QUERYSELECTION,
473 MPFROMSHORT(LIT_FIRST),
474 MPVOID);
475 if (sSelect >= 0) {
476 WinSendDlgItemMsg(hwnd, EA_LISTBOX, LM_QUERYITEMTEXT,
477 MPFROM2SHORT(sSelect, 256), MPFROMP(s));
478 if (*s) {
479
480 USHORT len, num, type;
481 CHAR *data;
482 CHAR last = '\n';
483 const CHAR *linefeed = "\n";
484 BOOL alltext;
485 IPT pos = 0L;
486
487 info = eap->head;
488 while (info) {
489 if (!strcmp(s, info->name)) {
490 eap->current = info;
491 WinShowWindow(WinWindowFromID(hwnd, EA_DELETE), TRUE);
492 switch (*(USHORT *) info->value) {
493 case EAT_EA:
494 case EAT_ASCII:
495 if (!strcmp(info->name, SUBJECT))
496 WinSendDlgItemMsg(hwnd, EA_ENTRY,
497 EM_SETTEXTLIMIT,
498 MPFROM2SHORT(40, 0), MPVOID);
499 else
500 WinSendDlgItemMsg(hwnd, EA_ENTRY,
501 EM_SETTEXTLIMIT,
502 MPFROM2SHORT(256, 0), MPVOID);
503 WinSetDlgItemText(hwnd, EA_ENTRY,
504 info->value + (sizeof(USHORT) * 2));
505 WinShowWindow(WinWindowFromID(hwnd, EA_ENTRY), TRUE);
506 WinEnableWindow(WinWindowFromID(hwnd, EA_CHANGE),
507 FALSE);
508 WinShowWindow(WinWindowFromID(hwnd, EA_CHANGE), TRUE);
509 {
510 CHAR str[81];
511
512 sprintf(str,
513 GetPString(IDS_DATAANDBYTESTEXT),
514 (*(USHORT *) info->value == EAT_ASCII) ?
515 GetPString(IDS_TEXTTEXT) :
516 GetPString(IDS_EAREFTEXT), info->cbValue);
517 WinSetDlgItemText(hwnd, EA_TEXT, str);
518 }
519 break;
520 case EAT_MVST:
521 MLEclearall(WinWindowFromID(hwnd, EA_MLE));
522 num = *(USHORT *) (info->value + (sizeof(USHORT) * 2));
523 type = *(USHORT *) (info->value + (sizeof(USHORT) * 3));
524 if (type == EAT_ASCII) {
525 data = info->value + (sizeof(USHORT) * 4);
526 len = *(USHORT *) data;
527 data += sizeof(USHORT);
528 while ((data - info->value) + len <= info->cbValue) {
529 if (last != '\n') {
530 WinSendDlgItemMsg(hwnd,
531 EA_MLE,
532 MLM_SETIMPORTEXPORT,
533 MPFROMP(linefeed),
534 MPFROMLONG(1L));
535 WinSendDlgItemMsg(hwnd,
536 EA_MLE,
537 MLM_IMPORT,
538 MPFROMP(&pos), MPFROMLONG(1L));
539 }
540 WinSendDlgItemMsg(hwnd,
541 EA_MLE,
542 MLM_SETIMPORTEXPORT,
543 MPFROMP(data),
544 MPFROMLONG((ULONG) len));
545 WinSendDlgItemMsg(hwnd,
546 EA_MLE,
547 MLM_IMPORT,
548 MPFROMP(&pos),
549 MPFROMLONG((ULONG) len));
550 data += len;
551 last = *(data - 1);
552 if (data - info->value >= info->cbValue)
553 break;
554 len = *(USHORT *) data;
555 data += sizeof(USHORT);
556 }
557 WinShowWindow(WinWindowFromID(hwnd, EA_MLE), TRUE);
558 WinEnableWindow(WinWindowFromID(hwnd, EA_CHANGE),
559 FALSE);
560 WinShowWindow(WinWindowFromID(hwnd, EA_CHANGE), TRUE);
561 }
562 else {
563 WinShowWindow(WinWindowFromID(hwnd, EA_MLE), FALSE);
564 HexDumpEA(hwnd, info);
565 WinShowWindow(WinWindowFromID(hwnd, EA_HEXDUMP),
566 TRUE);
567 }
568 {
569 CHAR str[81];
570
571 sprintf(str,
572 GetPString(IDS_MVSTTEXT),
573 num,
574 (num == 1) ?
575 GetPString(IDS_YTEXT) :
576 GetPString(IDS_IESTEXT), info->cbValue);
577 WinSetDlgItemText(hwnd, EA_TEXT, str);
578 }
579 break;
580 case EAT_MVMT:
581 MLEclearall(WinWindowFromID(hwnd, EA_MLE));
582 num = *(USHORT *) (info->value + (sizeof(USHORT) * 2));
583 data = info->value + (sizeof(USHORT) * 3);
584 type = *(USHORT *) data;
585 data += sizeof(USHORT);
586 len = *(USHORT *) data;
587 data += sizeof(USHORT);
588 alltext = TRUE;
589 while ((data - info->value) - len <= info->cbValue) {
590 if (type != EAT_ASCII) {
591 alltext = FALSE;
592 break;
593 }
594 data += len;
595 if (data - info->value >= info->cbValue)
596 break;
597 type = *(USHORT *) data;
598 data += sizeof(USHORT);
599 len = *(USHORT *) data;
600 data += sizeof(USHORT);
601 }
602 if (alltext) {
603 data = info->value + (sizeof(USHORT) * 3);
604 type = *(USHORT *) data;
605 data += sizeof(USHORT);
606 len = *(USHORT *) data;
607 data += sizeof(USHORT);
608 while ((data - info->value) - len <= info->cbValue) {
609 if (last != '\n') {
610 WinSendDlgItemMsg(hwnd,
611 EA_MLE,
612 MLM_SETIMPORTEXPORT,
613 MPFROMP(linefeed),
614 MPFROMLONG(1L));
615 WinSendDlgItemMsg(hwnd,
616 EA_MLE,
617 MLM_IMPORT,
618 MPFROMP(&pos), MPFROMLONG(1L));
619 }
620 WinSendDlgItemMsg(hwnd,
621 EA_MLE,
622 MLM_SETIMPORTEXPORT,
623 MPFROMP(data),
624 MPFROMLONG((ULONG) len));
625 WinSendDlgItemMsg(hwnd,
626 EA_MLE,
627 MLM_IMPORT,
628 MPFROMP(&pos),
629 MPFROMLONG((ULONG) len));
630 data += len;
631 last = *(data - 1);
632 if (data - info->value >= info->cbValue)
633 break;
634 type = *(USHORT *) data;
635 data += sizeof(USHORT);
636 len = *(USHORT *) data;
637 data += sizeof(USHORT);
638 }
639 }
640 if (alltext) {
641 WinShowWindow(WinWindowFromID(hwnd, EA_MLE), TRUE);
642 WinEnableWindow(WinWindowFromID(hwnd,
643 EA_CHANGE), FALSE);
644 WinShowWindow(WinWindowFromID(hwnd, EA_CHANGE), TRUE);
645 }
646 else {
647 WinShowWindow(WinWindowFromID(hwnd, EA_MLE), FALSE);
648 HexDumpEA(hwnd, info);
649 WinShowWindow(WinWindowFromID(hwnd, EA_HEXDUMP),
650 TRUE);
651 }
652 {
653 CHAR str[81];
654
655 sprintf(str,
656 GetPString(IDS_MVMTTEXT),
657 num,
658 (num == 1) ?
659 GetPString(IDS_YTEXT) :
660 GetPString(IDS_IESTEXT),
661 info->cbValue,
662 (alltext) ?
663 GetPString(IDS_ALLTEXTTEXT) :
664 GetPString(IDS_MIXEDTYPESTEXT));
665 WinSetDlgItemText(hwnd, EA_TEXT, str);
666 }
667 break;
668 default:
669 HexDumpEA(hwnd, info);
670 WinShowWindow(WinWindowFromID(hwnd, EA_HEXDUMP), TRUE);
671 switch (*(USHORT *) info->value) {
672 case EAT_BINARY:
673 {
674 CHAR str[81];
675
676 sprintf(str,
677 GetPString(IDS_BINARYBYTESTEXT),
678 info->cbValue);
679 WinSetDlgItemText(hwnd, EA_TEXT, str);
680 }
681 break;
682 case EAT_BITMAP:
683 {
684 CHAR str[81];
685
686 sprintf(str,
687 GetPString(IDS_BITMAPBYTESTEXT),
688 info->cbValue);
689 WinSetDlgItemText(hwnd, EA_TEXT, str);
690 }
691 break;
692 case EAT_METAFILE:
693 {
694 CHAR str[81];
695
696 sprintf(str,
697 GetPString(IDS_METAFILEBYTESTEXT),
698 info->cbValue);
699 WinSetDlgItemText(hwnd, EA_TEXT, str);
700 }
701 break;
702 case EAT_ICON:
703 {
704 CHAR str[81];
705
706 sprintf(str,
707 GetPString(IDS_ICONBYTESTEXT),
708 info->cbValue);
709 WinSetDlgItemText(hwnd, EA_TEXT, str);
710 }
711 break;
712 case EAT_ASN1:
713 {
714 CHAR str[81];
715
716 sprintf(str,
717 GetPString(IDS_ASN1BYTESTEXT),
718 info->cbValue);
719 WinSetDlgItemText(hwnd, EA_TEXT, str);
720 }
721 break;
722 default:
723 {
724 CHAR str[81];
725
726 sprintf(str,
727 GetPString(IDS_UNKNOWNBYTESTEXT),
728 *(USHORT *) info->value, info->cbValue);
729 WinSetDlgItemText(hwnd, EA_TEXT, str);
730 }
731 break;
732 }
733 break;
734 }
735 }
736 info = info->next;
737 }
738 }
739 }
740 }
741 if (!isalpha(*eap->filename) ||
742 (driveflags[toupper(*eap->filename) - 'A'] &
743 DRIVE_NOTWRITEABLE)) {
744 WinEnableWindow(WinWindowFromID(hwnd, EA_CHANGE), FALSE);
745 WinEnableWindow(WinWindowFromID(hwnd, EA_ADD), FALSE);
746 WinEnableWindow(WinWindowFromID(hwnd, EA_DELETE), FALSE);
747 }
748 else {
749 WinEnableWindow(WinWindowFromID(hwnd, EA_CHANGE), TRUE);
750 WinEnableWindow(WinWindowFromID(hwnd, EA_ADD), TRUE);
751 WinEnableWindow(WinWindowFromID(hwnd, EA_DELETE), TRUE);
752 }
753 }
754 break;
755 }
756 break;
757
758 case EA_ENTRY:
759 switch (SHORT2FROMMP(mp1)) {
760 case EN_SETFOCUS:
761 WinSetDlgItemText(hwnd, EA_HELP, GetPString(IDS_EADATAHELPTEXT));
762 break;
763 case EN_KILLFOCUS:
764 WinSetDlgItemText(hwnd, EA_HELP, NullStr);
765 break;
766 case EN_CHANGE:
767 WinEnableWindow(WinWindowFromID(hwnd, EA_CHANGE), TRUE);
768 break;
769 }
770 break;
771
772 case EA_HEXDUMP:
773 switch (SHORT2FROMMP(mp1)) {
774 case LN_SETFOCUS:
775 WinSetDlgItemText(hwnd, EA_HELP, GetPString(IDS_EADATAHELPTEXT));
776 break;
777 case LN_KILLFOCUS:
778 WinSetDlgItemText(hwnd, EA_HELP, NullStr);
779 break;
780 }
781 break;
782
783 case EA_MLE:
784 switch (SHORT2FROMMP(mp1)) {
785 case MLN_SETFOCUS:
786 WinSetDlgItemText(hwnd, EA_HELP, GetPString(IDS_EADATAHELPTEXT));
787 break;
788 case MLN_KILLFOCUS:
789 WinSetDlgItemText(hwnd, EA_HELP, NullStr);
790 break;
791 case MLN_CHANGE:
792 WinEnableWindow(WinWindowFromID(hwnd, EA_CHANGE), TRUE);
793 break;
794 }
795 break;
796 }
797 return 0;
798
799 case WM_COMMAND:
800 switch (SHORT1FROMMP(mp1)) {
801 case EA_ADD:
802 {
803 ADDEA add;
804
805 add.filename = eap->filename;
806 add.head = eap->head;
807 if (WinDlgBox(HWND_DESKTOP, hwnd, AddEAProc, FM3ModHandle,
808 EAC_FRAME, &add)) {
809 Free_FEAList(eap->head);
810 eap->head = GetFileEAs(eap->filename, FALSE, FALSE);
811 WinSendMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
812 }
813 }
814 break;
815 case EA_CHANGE:
816 if (!eap->current)
817 WinShowWindow(WinWindowFromID(hwnd, EA_CHANGE), FALSE);
818 else {
819
820 CHAR *s;
821 USHORT control;
822
823 if (!eap->head || !*eap->filename)
824 Runtime_Error2(pszSrcFile, __LINE__, IDS_NODATATEXT);
825 else {
826 switch (*(USHORT *) eap->current->value) {
827 case EAT_EA:
828 case EAT_ASCII:
829 control = EA_ENTRY;
830 break;
831 case EAT_MVMT:
832 control = EA_MLE;
833 break;
834 case EAT_MVST:
835 control = EA_MLE;
836 break;
837 default:
838 Runtime_Error(pszSrcFile, __LINE__, "unexpected type");
839 WinShowWindow(WinWindowFromID(hwnd, EA_CHANGE), FALSE);
840 control = 0;
841 }
842 if (control) {
843 s = xmalloc(32768, pszSrcFile, __LINE__);
844 if (s) {
845 *s = 0;
846 WinQueryDlgItemText(hwnd, control, 32767L, (PCH) s);
847 if (!*s)
848 Runtime_Error2(pszSrcFile, __LINE__, IDS_NODATATEXT);
849 else {
850 PFEA2LIST pfealist;
851
852 pfealist = SaveEA(eap->filename, eap->current, s, FALSE);
853 if (!pfealist)
854 Runtime_Error(pszSrcFile, __LINE__, "SaveEA");
855 else {
856 PFEA2 pfea;
857
858 pfea = xmalloc(pfealist->cbList, pszSrcFile, __LINE__);
859 if (pfea) {
860 memcpy(pfea, pfealist->list,
861 pfealist->cbList - sizeof(ULONG));
862 free(eap->current->pfea);
863 eap->current->pfea = pfea;
864 eap->current->name = eap->current->pfea->szName;
865 eap->current->cbName = eap->current->pfea->cbName;
866 eap->current->cbValue = eap->current->pfea->cbValue;
867 eap->current->value = eap->current->pfea->szName +
868 eap->current->pfea->cbName + 1;
869 eap->current->value[eap->current->cbValue] = 0;
870 PostMsg(hwnd, WM_CONTROL,
871 MPFROM2SHORT(EA_LISTBOX, LN_SELECT), MPVOID);
872 }
873 DosFreeMem(pfealist);
874 }
875 }
876 free(s);
877 }
878 }
879 }
880 }
881 break;
882
883 case EA_DELETE:
884 if (eap->head && eap->current) {
885
886 EAOP2 eaop;
887 PFEA2LIST pfealist;
888 GEA2LIST gealist;
889 APIRET rc;
890 SHORT sSelect;
891
892 pfealist =
893 xmallocz(sizeof(FEA2LIST) + eap->current->cbName + 1, pszSrcFile,
894 __LINE__);
895 if (pfealist) {
896 pfealist->cbList = sizeof(FEA2LIST) + eap->current->cbName + 1;
897 pfealist->list[0].cbName = eap->current->cbName;
898 strcpy(pfealist->list[0].szName, eap->current->name);
899 pfealist->list[0].cbValue = 0;
900 memset(&gealist, 0, sizeof(GEA2LIST));
901 gealist.cbList = sizeof(GEA2LIST);
902 eaop.fpGEA2List = &gealist;
903 eaop.fpFEA2List = pfealist;
904 eaop.oError = 0L;
905 rc = DosSetPathInfo(eap->filename, FIL_QUERYEASIZE, (PVOID) & eaop,
906 (ULONG) sizeof(EAOP2), DSPI_WRTTHRU);
907 free(pfealist);
908 if (rc)
909 Dos_Error(MB_CANCEL, rc, hwnd, pszSrcFile, __LINE__,
910 "DosSetPathInfo");
911 else {
912 sSelect = 0;
913 if (eap->current == eap->head) {
914 eap->head = eap->head->next;
915 free(eap->current->pfea);
916 free(eap->current);
917 eap->current = NULL;
918 }
919 else {
920 info = eap->head;
921 while (info) {
922 if (info->next == eap->current) {
923 sSelect++;
924 info->next = eap->current->next;
925 free(eap->current->pfea);
926 free(eap->current);
927 eap->current = NULL;
928 break;
929 }
930 sSelect++;
931 info = info->next;
932 }
933 }
934 WinSendDlgItemMsg(hwnd, EA_LISTBOX, LM_DELETEITEM,
935 MPFROM2SHORT(sSelect, 0), MPVOID);
936 WinShowWindow(WinWindowFromID(hwnd, EA_ENTRY), FALSE);
937 WinShowWindow(WinWindowFromID(hwnd, EA_MLE), FALSE);
938 WinShowWindow(WinWindowFromID(hwnd, EA_CHANGE), FALSE);
939 WinShowWindow(WinWindowFromID(hwnd, EA_DELETE), FALSE);
940 WinShowWindow(WinWindowFromID(hwnd, EA_HEXDUMP), FALSE);
941 WinSetDlgItemText(hwnd, EA_ENTRY, NullStr);
942 MLEclearall(WinWindowFromID(hwnd, EA_MLE));
943 WinSendDlgItemMsg(hwnd, EA_HEXDUMP, LM_DELETEALL, MPVOID, MPVOID);
944 if (sSelect && (SHORT) WinSendDlgItemMsg(hwnd, EA_LISTBOX,
945 LM_QUERYITEMCOUNT,
946 MPVOID, MPVOID) <=
947 sSelect)
948 sSelect--;
949 WinSendDlgItemMsg(hwnd, EA_LISTBOX, LM_SELECTITEM,
950 MPFROM2SHORT(sSelect, 0),
951 MPFROM2SHORT(TRUE, 0));
952 }
953 }
954 }
955 if (!eap->head)
956 WinSetDlgItemText(hwnd, EA_TEXT, GetPString(IDS_EANOEAS));
957 break;
958
959 case IDM_HELP:
960 if (hwndHelp)
961 WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
962 MPFROM2SHORT(HELP_EAS, 0), MPFROMSHORT(HM_RESOURCEID));
963 break;
964
965 case DID_OK:
966 WinDismissDlg(hwnd, 1);
967 break;
968
969 case DID_CANCEL:
970 WinDismissDlg(hwnd, 0);
971 break;
972 }
973 return 0;
974
975 case WM_CLOSE:
976 break;
977
978 case WM_DESTROY:
979 if (eap) {
980 if (eap->head)
981 Free_FEAList(eap->head);
982 free(eap);
983 if (hptrIcon)
984 WinDestroyPointer(hptrIcon);
985 hptrIcon = (HPOINTER) 0;
986 }
987 break;
988 } // switch
989 return WinDefDlgProc(hwnd, msg, mp1, mp2);
990}
991
992PVOID SaveEA(CHAR * filename, HOLDFEA * current, CHAR * newdata,
993 BOOL silentfail)
994{
995 /* save an ea to disk */
996
997 PFEA2LIST pfealist = NULL;
998 EAOP2 eaop;
999 APIRET rc;
1000 ULONG ealen;
1001 USHORT len, *num, *plen;
1002 CHAR *p, *eaval;
1003
1004 if (!filename || !current)
1005 return (PVOID) pfealist;
1006 len = strlen(newdata);
1007 ealen = sizeof(FEA2LIST) + 24L + (ULONG) current->cbName + 1L +
1008 (ULONG) len + 4L;
1009 switch (*(USHORT *) current->value) {
1010 case EAT_EA:
1011 case EAT_ASCII:
1012 break;
1013 case EAT_MVST:
1014 ealen += sizeof(USHORT) * 5;
1015 p = newdata;
1016 while (*p == '\n')
1017 p++;
1018 while (*p) {
1019 if (*p == '\n' && *(p + 1))
1020 ealen += sizeof(USHORT);
1021 p++;
1022 }
1023 break;
1024 case EAT_MVMT:
1025 ealen += sizeof(USHORT) * 5;
1026 p = newdata;
1027 while (*p == '\n')
1028 p++;
1029 while (*p) {
1030 if (*p == '\n' && *(p + 1))
1031 ealen += (sizeof(USHORT) * 2);
1032 p++;
1033 }
1034 break;
1035 default:
1036 return (PVOID) pfealist;
1037 }
1038
1039 rc = DosAllocMem((PPVOID) & pfealist, ealen,
1040 OBJ_TILE | PAG_COMMIT | PAG_READ | PAG_WRITE);
1041 if (rc)
1042 Dos_Error(MB_CANCEL, rc, HWND_DESKTOP, pszSrcFile, __LINE__,
1043 GetPString(IDS_OUTOFMEMORY));
1044 else {
1045 memset(pfealist, 0, ealen);
1046 pfealist->list[0].oNextEntryOffset = 0L;
1047 pfealist->list[0].fEA = 0; //current->fEA;
1048
1049 pfealist->list[0].cbName = current->cbName;
1050 memcpy(pfealist->list[0].szName, current->name,
1051 pfealist->list[0].cbName + 1);
1052 eaval = pfealist->list[0].szName + pfealist->list[0].cbName + 1;
1053 switch (*(USHORT *) current->value) {
1054 case EAT_EA:
1055 case EAT_ASCII:
1056 *(USHORT *) eaval = *(USHORT *) current->value;
1057 eaval += sizeof(USHORT);
1058 *(USHORT *) eaval = (USHORT) len;
1059 eaval += sizeof(USHORT);
1060 memcpy(eaval, newdata, len);
1061 eaval += len;
1062 break;
1063 case EAT_MVST:
1064 *(USHORT *) eaval = (USHORT) EAT_MVST;
1065 eaval += sizeof(USHORT);
1066 *(USHORT *) eaval = *(USHORT *) (current->value + sizeof(USHORT));
1067 eaval += sizeof(USHORT);
1068 num = (USHORT *) eaval;
1069 *num = 0;
1070 eaval += sizeof(USHORT);
1071 *(USHORT *) eaval = (USHORT) EAT_ASCII;
1072 eaval += sizeof(USHORT);
1073 plen = (USHORT *) eaval;
1074 *plen = 0;
1075 eaval += sizeof(USHORT);
1076 p = newdata;
1077 while (*p == '\n')
1078 p++;
1079 while (*p) {
1080 while (*p) {
1081 if (*p == '\n')
1082 p++;
1083 *eaval++ = *p++;
1084 (*plen)++;
1085 }
1086 if (*p || *plen)
1087 (*num)++;
1088 if (*p) {
1089 plen = (USHORT *) eaval;
1090 *plen = 0;
1091 eaval += sizeof(USHORT);
1092 }
1093 }
1094 break;
1095/*
1096 cbList nextoffset fea cb cbval name.......
1097 000000 3C 00 00 00 00 00 00 00 6F 0B 24 00 2E 4B 45 59 < o
1098$ .KEY
1099 .................... eat code num eat
1100 000010 50 48 52 41 53 45 53 00 DF FF 00 00 02 00 FD FF PHRASES ßÿ ýÿ
1101 len.. phrase1............................ eat
1102 000020 0C 00 4B 65 79 20 70 68 72 61 73 65 20 31 FD FF
1103 Key phrase 1ýÿ
1104 len.. phrase2......................
1105 000030 0A 00 4B 65 79 20 70 68 72 61 73 65 Key phrase
1106 */
1107 case EAT_MVMT:
1108 *(USHORT *) eaval = (USHORT) EAT_MVMT;
1109 eaval += sizeof(USHORT);
1110 *(USHORT *) eaval = *(USHORT *) (current->value + sizeof(USHORT));
1111 eaval += sizeof(USHORT);
1112 num = (USHORT *) eaval;
1113 *num = 0;
1114 eaval += sizeof(USHORT);
1115 *(USHORT *) eaval = (USHORT) EAT_ASCII;
1116 eaval += sizeof(USHORT);
1117 plen = (USHORT *) eaval;
1118 *plen = 0;
1119 eaval += sizeof(USHORT);
1120 p = newdata;
1121 while (*p == '\n')
1122 p++;
1123 while (*p) {
1124 while (*p) {
1125 if (*p == '\n')
1126 p++;
1127 *eaval++ = *p++;
1128 (*plen)++;
1129 }
1130 if (*p || *plen)
1131 (*num)++;
1132 if (*p) {
1133 *(USHORT *) eaval = (USHORT) EAT_ASCII;
1134 eaval += sizeof(USHORT);
1135 plen = (USHORT *) eaval;
1136 *plen = 0;
1137 eaval += sizeof(USHORT);
1138 }
1139 }
1140 break;
1141 }
1142 pfealist->list[0].cbValue = (ULONG) (eaval -
1143 (pfealist->list[0].szName +
1144 pfealist->list[0].cbName + 1));
1145 eaop.fpGEA2List = (PGEA2LIST) 0;
1146 eaop.fpFEA2List = pfealist;
1147 eaop.oError = 0L;
1148 pfealist->cbList = 13L + (ULONG) pfealist->list[0].cbName +
1149 (ULONG) pfealist->list[0].cbValue;
1150
1151 rc = DosSetPathInfo(filename, FIL_QUERYEASIZE, (PVOID) & eaop,
1152 (ULONG) sizeof(EAOP2), DSPI_WRTTHRU);
1153 if (rc) {
1154 DosFreeMem(pfealist);
1155 pfealist = NULL;
1156 }
1157 if (rc && !silentfail) {
1158 if (rc == ERROR_ACCESS_DENIED || rc == ERROR_SHARING_VIOLATION) {
1159 saymsg(MB_ENTER,
1160 HWND_DESKTOP,
1161 GetPString(IDS_OOPSTEXT),
1162 GetPString(IDS_CANTWRITEEATEXT), current->name, filename);
1163 }
1164 else {
1165 Dos_Error(MB_ENTER,
1166 rc,
1167 HWND_DESKTOP,
1168 pszSrcFile,
1169 __LINE__,
1170 GetPString(IDS_ERRORWRITEEATEXT),
1171 current->name, filename, eaop.oError);
1172 }
1173 }
1174 }
1175 return (PVOID) pfealist;
1176}
1177
1178HOLDFEA *GetFileEAs(CHAR * filename, BOOL ishandle, BOOL silentfail)
1179{
1180 /* load eas from disk into HOLDFEA linked list */
1181
1182 HOLDFEA *head = NULL, *info, *last = NULL;
1183 FILESTATUS4 fsa4;
1184 HFILE handle;
1185 ULONG action;
1186 APIRET rc;
1187
1188 if (!filename)
1189 return head;
1190 if (ishandle || !DosOpen(filename, &handle, &action, 0L, 0,
1191 OPEN_ACTION_FAIL_IF_NEW |
1192 OPEN_ACTION_OPEN_IF_EXISTS,
1193 OPEN_FLAGS_NOINHERIT |
1194 OPEN_SHARE_DENYREADWRITE |
1195 OPEN_ACCESS_READWRITE, (PEAOP2) 0)) {
1196 if (ishandle)
1197 handle = *(HFILE *) filename;
1198 if (!DosQueryFileInfo(handle, FIL_QUERYEASIZE, (PVOID) & fsa4,
1199 (ULONG) sizeof(fsa4)) && fsa4.cbList > 4L) {
1200
1201 PDENA2 pdena;
1202 EAOP2 eaop;
1203 PGEA2LIST pgealist;
1204 PFEA2LIST pfealist;
1205 PGEA2 pgea;
1206 ULONG x = 1L, ecnt = 1L;
1207
1208 pdena = xmalloc(65536 + 1024, pszSrcFile, __LINE__);
1209 if (pdena) {
1210 while (!DosEnumAttribute
1211 (ENUMEA_REFTYPE_FHANDLE, &handle, x, (PVOID) pdena,
1212 (ULONG) 65536L, &ecnt, ENUMEA_LEVEL_NO_VALUE) && ecnt) {
1213 pgealist = xmalloc(64 + pdena->cbName, pszSrcFile, __LINE__);
1214 if (pgealist) {
1215 pgealist->cbList = 64 + pdena->cbName;
1216 pgea = pgealist->list;
1217 pgea->oNextEntryOffset = 0L;
1218 pgea->cbName = pdena->cbName;
1219 memcpy(pgea->szName, pdena->szName, pdena->cbName + 1);
1220 pfealist =
1221 xmallocz(64 + pdena->cbName + pdena->cbValue, pszSrcFile,
1222 __LINE__);
1223 if (pfealist) {
1224 pfealist->cbList = 64 + pdena->cbName + pdena->cbValue;
1225 eaop.fpGEA2List = pgealist;
1226 eaop.fpFEA2List = pfealist;
1227 eaop.oError = 0L;
1228 // saymsg(MB_ENTER,HWND_DESKTOP,"Debug1","\"%s\" %ld",pdena->szName,x);
1229 rc =
1230 DosQueryFileInfo(handle, FIL_QUERYEASFROMLIST, (PVOID) & eaop,
1231 (ULONG) sizeof(EAOP2));
1232 if (rc) {
1233 if (!silentfail) {
1234 Dos_Error(MB_ENTER,
1235 rc,
1236 HWND_DESKTOP,
1237 pszSrcFile,
1238 __LINE__,
1239 GetPString(IDS_ERRORREADEATEXT), pdena->szName);
1240 }
1241 }
1242 else {
1243 info = xmalloc(sizeof(HOLDFEA), pszSrcFile, __LINE__);
1244 if (info) {
1245 info->pfea =
1246 xmalloc(eaop.fpFEA2List->cbList - sizeof(ULONG),
1247 pszSrcFile, __LINE__);
1248 memcpy(info->pfea, eaop.fpFEA2List->list,
1249 eaop.fpFEA2List->cbList - sizeof(ULONG));
1250 info->name = info->pfea->szName;
1251 info->cbName = info->pfea->cbName;
1252 info->cbValue = info->pfea->cbValue;
1253 info->value = info->pfea->szName + info->pfea->cbName + 1;
1254 info->value[info->cbValue] = 0;
1255 info->next = NULL;
1256 if (!head)
1257 head = info;
1258 else
1259 last->next = info;
1260 last = info;
1261 }
1262 }
1263 free(pfealist);
1264 }
1265 free(pgealist);
1266 }
1267 x += ecnt;
1268 }
1269 free(pdena);
1270 DosPostEventSem(CompactSem);
1271 }
1272 }
1273 if (!ishandle)
1274 DosClose(handle);
1275 }
1276 else {
1277 /* try it without opening it */
1278 if (!DosQueryPathInfo(filename, FIL_QUERYEASIZE, (PVOID) & fsa4,
1279 (ULONG) sizeof(fsa4)) && fsa4.cbList > 4L) {
1280
1281 PDENA2 pdena;
1282 EAOP2 eaop;
1283 PGEA2LIST pgealist;
1284 PFEA2LIST pfealist;
1285 PGEA2 pgea;
1286 ULONG x = 1L, ecnt = 1L;
1287
1288 pdena = xmalloc(65536 + 1024, pszSrcFile, __LINE__);
1289 if (pdena) {
1290 while (!DosEnumAttribute
1291 (ENUMEA_REFTYPE_PATH, filename, x, (PVOID) pdena,
1292 (ULONG) 65536L, &ecnt, ENUMEA_LEVEL_NO_VALUE) && ecnt) {
1293 pgealist = xmalloc(64 + pdena->cbName, pszSrcFile, __LINE__);
1294 if (pgealist) {
1295 pgealist->cbList = 64 + pdena->cbName;
1296 pgea = pgealist->list;
1297 pgea->oNextEntryOffset = 0L;
1298 pgea->cbName = pdena->cbName;
1299 memcpy(pgea->szName, pdena->szName, pdena->cbName + 1);
1300 pfealist =
1301 xmallocz(64 + pdena->cbName + pdena->cbValue, pszSrcFile,
1302 __LINE__);
1303 if (pfealist) {
1304 pfealist->cbList = 64 + pdena->cbName + pdena->cbValue;
1305 eaop.fpGEA2List = pgealist;
1306 eaop.fpFEA2List = pfealist;
1307 eaop.oError = 0L;
1308// saymsg(MB_ENTER,HWND_DESKTOP,"Debug2","\"%s\" %ld",pdena->szName,x);
1309 rc = DosQueryPathInfo(filename, FIL_QUERYEASFROMLIST,
1310 (PVOID) & eaop, (ULONG) sizeof(EAOP2));
1311 if (!rc) {
1312 info = xmalloc(sizeof(HOLDFEA), pszSrcFile, __LINE__);
1313 if (info) {
1314 info->pfea =
1315 xmalloc(eaop.fpFEA2List->cbList - sizeof(ULONG),
1316 pszSrcFile, __LINE__);
1317 memcpy(info->pfea, eaop.fpFEA2List->list,
1318 eaop.fpFEA2List->cbList - sizeof(ULONG));
1319 info->name = info->pfea->szName;
1320 info->cbName = info->pfea->cbName;
1321 info->cbValue = info->pfea->cbValue;
1322 info->value = info->pfea->szName + info->pfea->cbName + 1;
1323 info->value[info->cbValue] = 0;
1324 info->next = NULL;
1325 if (!head)
1326 head = info;
1327 else
1328 last->next = info;
1329 last = info;
1330 }
1331 else
1332 free(pfealist);
1333 }
1334 else {
1335 free(pfealist);
1336 if (!silentfail) {
1337 if (rc == ERROR_ACCESS_DENIED
1338 || rc == ERROR_SHARING_VIOLATION) {
1339 rc =
1340 saymsg(MB_ENTER | MB_CANCEL, HWND_DESKTOP,
1341 GetPString(IDS_OOPSTEXT),
1342 GetPString(IDS_CANTREADEATEXT), filename,
1343 pdena->szName);
1344 if (rc == MBID_CANCEL) {
1345 free(pgealist);
1346 break;
1347 }
1348 }
1349 else {
1350 Dos_Error(MB_ENTER,
1351 rc,
1352 HWND_DESKTOP,
1353 pszSrcFile,
1354 __LINE__,
1355 GetPString(IDS_ERRORREADEATEXT), pdena->szName);
1356 }
1357 }
1358 }
1359 }
1360 free(pgealist);
1361 }
1362 x += ecnt;
1363 }
1364 free(pdena);
1365 DosPostEventSem(CompactSem);
1366 }
1367 }
1368 }
1369 return head;
1370}
1371
1372VOID Free_FEAList(HOLDFEA * pFEA)
1373{
1374 /* free a linked list of HOLDFEAs */
1375
1376 register HOLDFEA *next;
1377
1378 while (pFEA) {
1379 /* Free linked list */
1380 next = pFEA->next;
1381 free(pFEA->pfea);
1382 free(pFEA);
1383 pFEA = next;
1384 }
1385 DosPostEventSem(CompactSem);
1386}
Note: See TracBrowser for help on using the repository browser.