Context Navigation

source: trunk/dll/autoview.c@ 636

Visit:

Last change on this file since 636 was 593, checked in by Gregg Young, 19 years ago
Changes to remove GetPString from window class names
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 21.8 KB

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

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

Download in other formats: