Context Navigation

source: trunk/dll/eas.c@ 1178

Visit:

Last change on this file since 1178 was 1157, checked in by John Small, 17 years ago
Ticket 187: Draft 1: Functions only
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 47.4 KB

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

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

Download in other formats: