Context Navigation

source: trunk/dll/autoview.c@ 793

Visit:

Last change on this file since 793 was 793, checked in by Gregg Young, 18 years ago
Move #pragma alloc_text to end for OpenWatcom compat
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 22.1 KB

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

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

Download in other formats: