Context Navigation

source: trunk/dll/eas.c@ 872

Visit:

Last change on this file since 872 was 870, checked in by Gregg Young, 18 years ago
Fixed Hex formating problem (ticket 174) caused by open watcom same as Ticket 143 at different locations. Added 3.08 release comment to version.h
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 35.7 KB

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats: