Context Navigation

source: trunk/dll/autoview.c@ 1397

Visit:

Last change on this file since 1397 was 1397, checked in by Gregg Young, 17 years ago
Some clean up of the date formatting code
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 24.2 KB

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

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

Download in other formats: