Context Navigation

source: trunk/dll/avv.c@ 1039

Visit:

Last change on this file since 1039 was 1039, checked in by Gregg Young, 17 years ago
Removed unnecessary xfrees and included fortify.h where needed; moved several misplaced (x)frees;
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 26.4 KB

Rev	Line
[107]	1
	2	/***********************************************************************
	3
	4	$Id: avv.c 1039 2008-07-05 22:16:21Z gyoung $
	5
[122]	6	archiver.bb2 editor
	7
[107]	8	Copyright (c) 1993-98 M. Kimes
[697]	9	Copyright (c) 2004, 2007 Steven H.Levine
[107]	10
[199]	11	31 Jul 04 SHL ArcReviewDlgProc: correct nameis... decodes
	12	01 Aug 04 SHL Localize functions
	13	01 Aug 04 SHL Rework fixup usage
	14	06 Jun 05 SHL Drop unused
[250]	15	14 Aug 05 SHL rewrite_archiverbb2: avoid dereferencing null signature
	16	14 Aug 05 SHL ArcReviewDlgProc: ensure signature allocated
[420]	17	29 May 06 SHL EditArchiverDefinition: rework
[313]	18	26 Jun 06 SHL rewrite_archiverbb2: include user comments
[347]	19	14 Jul 06 SHL Use Runtime_Error
[404]	20	29 Jul 06 SHL Use xfgets
[420]	21	30 Jul 06 SHL Avoid warnings when editing new definition
[574]	22	22 Mar 07 GKY Use QWL_USER
[697]	23	16 Jun 07 SHL Update for OpenWatcom
[793]	24	20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
[920]	25	06 Jan 08 GKY Use NormalizeCmdLine to check program strings on entry
[985]	26	29 Feb 08 GKY Changes to enable user settable command line length
[107]	27
	28	***********************************************************************/
	29
[907]	30	#include <stdlib.h>
	31	#include <string.h>
	32
[2]	33	#define INCL_DOS
	34	#define INCL_WIN
[907]	35	#define INCL_LONGLONG // dircnrs.h
[2]	36
	37	#include "fm3dlg.h"
	38	#include "version.h"
	39	#include "fm3str.h"
[907]	40	#include "strutil.h" // GetPString
	41	#include "errutil.h" // Runtime_Error
	42	#include "fm3dll.h"
[920]	43	#include "pathutil.h" // NormalizeCmdLine
[1039]	44	#include "fortify.h"
[2]	45
	46	#pragma data_seg(DATA1)
[347]	47
	48	static PSZ pszSrcFile = __FILE__;
	49
[551]	50	static PSZ checkfile(PSZ file, INT * error);
	51	static BOOL check_archiver(HWND hwnd, ARC_TYPE * info);
	52	static INT get_int_from_window(HWND hwnd, USHORT id);
	53	static LONG get_long_from_window(HWND hwnd, USHORT id);
[122]	54	static PSZ nonull(PSZ a);
[551]	55	static PSZ free_and_strdup_from_window(HWND hwnd, USHORT id, PSZ pszDest);
[906]	56	static PSZ free_and_strdup_quoted_from_window(HWND hwnd, USHORT id, PSZ pszDest);
[2]	57
[420]	58	//=== EditArchiverDefinition() Select archiver to edit definition ===
[304]	59
[420]	60	VOID EditArchiverDefinition(HWND hwnd)
[122]	61	{
[2]	62	ARCDUMP ad;
[304]	63	ARC_TYPE *pat;
[2]	64
[304]	65	// Allow multiple edits
	66	for (;;) {
[551]	67	pat = NULL; // Do not hide dups
[304]	68	if (!WinDlgBox(HWND_DESKTOP,
[551]	69	hwnd,
	70	SBoxDlgProc,
	71	FM3ModHandle, ASEL_EDIT_FRAME, (PVOID) & pat) \|\| !pat) {
[304]	72	break; // we are done
[2]	73	}
[304]	74
[551]	75	memset(&ad, 0, sizeof(ARCDUMP));
[304]	76	ad.info = pat;
	77	WinDlgBox(HWND_DESKTOP,
[551]	78	hwnd, ArcReviewDlgProc, FM3ModHandle, AD_FRAME, MPFROMP(&ad));
	79	} // for
[2]	80	}
	81
[551]	82	static PSZ free_and_strdup_from_window(HWND hwnd, USHORT id, PSZ pszDest)
[122]	83	{
[420]	84	CHAR sz[256];
[2]	85
[1009]	86	xfree(pszDest, pszSrcFile, __LINE__);
[551]	87	WinQueryDlgItemText(hwnd, id, sizeof(sz), sz);
[347]	88	if (*sz)
	89	pszDest = xstrdup(sz, pszSrcFile, __LINE__);
	90	else
	91	pszDest = NULL;
[122]	92	return pszDest;
[2]	93	}
	94
[906]	95	static PSZ free_and_strdup_quoted_from_window(HWND hwnd, USHORT id, PSZ pszDest)
[918]	96	{ // fixme for command line limit
[985]	97	CHAR *szCmdLine;
[989]	98	PSZ pszWorkBuf;
[906]	99
[985]	100	szCmdLine = xmalloc(MaxComLineStrg, pszSrcFile, __LINE__);
[989]	101	if (szCmdLine) {
[1009]	102	xfree(pszDest, pszSrcFile, __LINE__);
[989]	103	WinQueryDlgItemText(hwnd, id, sizeof(szCmdLine), szCmdLine);
[985]	104	pszWorkBuf = xmalloc(MaxComLineStrg, pszSrcFile, __LINE__);
[959]	105	if (pszWorkBuf) {
	106	NormalizeCmdLine(pszWorkBuf, szCmdLine);
	107	pszDest = xstrdup(pszWorkBuf, pszSrcFile, __LINE__);
[1039]	108	free(pszWorkBuf);
[959]	109	}
	110	else
	111	pszDest = xstrdup(szCmdLine, pszSrcFile, __LINE__); // return the unexamined input on failure
[1039]	112	free(szCmdLine);
[906]	113	}
	114	else
	115	pszDest = NULL;
	116	return pszDest;
	117	}
	118
[551]	119	static INT get_int_from_window(HWND hwnd, USHORT id)
[122]	120	{
[420]	121	CHAR s[256];
[2]	122
[551]	123	WinQueryDlgItemText(hwnd, id, sizeof(s), s);
[2]	124	return atoi(s);
	125	}
	126
[551]	127	static INT get_int2_from_window(HWND hwnd, USHORT id)
[122]	128	{
[420]	129	CHAR s[256];
	130	PSZ p;
[2]	131
[551]	132	WinQueryDlgItemText(hwnd, id, sizeof(s), s);
	133	p = strchr(s, ',');
	134	if (p)
[2]	135	p++;
[420]	136	return p ? atoi(p) : 0;
[2]	137	}
	138
[551]	139	INT get_int3_from_window(HWND hwnd, USHORT id)
[122]	140	{
[420]	141	CHAR s[256];
	142	PSZ p;
[2]	143
[551]	144	WinQueryDlgItemText(hwnd, id, sizeof(s), s);
	145	p = strchr(s, ',');
	146	if (p) {
[2]	147	p++;
[551]	148	p = strchr(p, ',');
	149	if (p)
[2]	150	p++;
	151	}
[420]	152	return p ? atoi(p) : 0;
[2]	153	}
	154
[551]	155	INT get_int4_from_window(HWND hwnd, USHORT id)
[122]	156	{
[420]	157	CHAR s[256];
	158	PSZ p;
[2]	159
[551]	160	WinQueryDlgItemText(hwnd, id, sizeof(s), s);
	161	p = strchr(s, ',');
[420]	162	if (p) {
[2]	163	p++;
[551]	164	p = strchr(p, ',');
[420]	165	if (p) {
[2]	166	p++;
[551]	167	p = strchr(p, ',');
[420]	168	if (p)
[551]	169	p++;
[2]	170	}
	171	}
[420]	172	return p ? atoi(p) : 0;
[2]	173	}
	174
[551]	175	LONG get_long_from_window(HWND hwnd, USHORT id)
[122]	176	{
[420]	177	CHAR s[256];
[2]	178
[551]	179	WinQueryDlgItemText(hwnd, id, sizeof(s), s);
[2]	180	return atol(s);
	181	}
	182
[199]	183	#pragma alloc_text (AVV2,nonull,rewrite_archiverbb2,checkfile)
[2]	184
[122]	185	// nonull - convert NULL pointer to empty string
[2]	186
[122]	187	static PSZ nonull(PSZ psz)
	188	{
[551]	189	if (!psz)
[122]	190	psz = NullStr;
	191	return psz;
[2]	192	}
	193
[313]	194	//=== rewrite_archiverbb2() rewrite archiver.bb2, prompt if arg NULL, merge comments ===
[2]	195
[551]	196	VOID rewrite_archiverbb2(PSZ archiverbb2)
[122]	197	{
[551]	198	FILE *fpNew;
	199	FILE *fpOld = NULL;
	200	UINT entry_num = 0; // Definition counter
	201	UINT input_line_num = 0; // Input file line counter
	202	ARC_TYPE *pat;
	203	CHAR sz[258];
	204	CHAR *psz;
	205	BOOL needEntryNumber;
	206	BOOL needReload = FALSE; // Because line numbers changed
	207	time_t t;
[313]	208	struct tm *tm;
[551]	209	CHAR ch;
[2]	210
[304]	211	arcsigsmodified = FALSE;
	212
	213	if (!arcsighead) {
[2]	214	saymsg(MB_CANCEL \| MB_ICONEXCLAMATION,
[551]	215	HWND_DESKTOP,
	216	GetPString(IDS_SAYWHATTEXT), GetPString(IDS_NOINFOTOSAVETEXT));
[2]	217	return;
	218	}
[304]	219	// Alert unless file name passed
	220	if (!archiverbb2 \|\| !*archiverbb2) {
[2]	221	saymsg(MB_ENTER \| MB_ICONASTERISK,
[551]	222	HWND_DESKTOP,
	223	GetPString(IDS_NOTETEXT), GetPString(IDS_SAVEARCBB2TEXT));
[2]	224	archiverbb2 = GetPString(IDS_ARCHIVERBB2);
	225	}
[313]	226
	227	/* save a backup */
[551]	228	psz = strrchr(archiverbb2, '.');
	229	if (psz && !stricmp(psz, ".BB2")) {
	230	strcpy(psz, ".BAK");
[2]	231	DosDelete(archiverbb2);
[551]	232	strcpy(sz, archiverbb2);
	233	strcpy(psz, ".BB2");
	234	DosMove(archiverbb2, sz);
	235	fpOld = fopen(sz, "r"); // OK for file not to exist
[2]	236	}
[313]	237
[551]	238	fpNew = fopen(archiverbb2, "w");
[313]	239
	240	if (fpNew) {
	241
[551]	242	fprintf(fpNew, "%u\n", LINES_PER_ARCSIG);
[313]	243	t = time(NULL);
	244	tm = localtime(&t);
	245
	246	fprintf(fpNew,
[551]	247	";\n; %s file written by FM/2 v%d.%02d on %u/%u/%u %u:%02u:%02u\n;\n",
	248	GetPString(IDS_ARCHIVERBB2),
	249	VERMAJOR, VERMINOR,
	250	tm->tm_mon + 1, tm->tm_mday, tm->tm_year + 1900,
	251	tm->tm_hour, tm->tm_min, tm->tm_sec);
[313]	252	// Rewrite header if known
	253	if (fpOld && arcsigs_header_lines) {
	254	needReload = TRUE;
	255	while (input_line_num < arcsigs_header_lines) {
[551]	256	psz = xfgets(sz, sizeof(sz), fpOld, pszSrcFile, __LINE__);
[313]	257	if (!psz)
	258	break;
[551]	259	input_line_num++;
[313]	260	if (input_line_num == 1)
[551]	261	continue; // Bypass sig count
	262	fputs(sz, fpNew);
[313]	263	}
	264	}
	265	else {
	266	// Write default header
[551]	267	fputs(GetPString(IDS_ARCHIVERBB2TEXT), fpNew);
[313]	268	}
	269	pat = arcsighead;
	270	while (pat) {
	271	needEntryNumber = TRUE;
	272	// Rewrite per sig header comments if any exist
[551]	273	if (fpOld && pat->comment_line_num) {
	274	needReload = TRUE; // fixme to optimize
[313]	275	// Definitions reordered - need to rewind
[551]	276	if (input_line_num > pat->comment_line_num) {
[313]	277	fseek(fpOld, 0, SEEK_SET);
	278	input_line_num = 0;
	279	}
[551]	280	while (input_line_num + 1 < pat->defn_line_num) {
	281	psz = xfgets(sz, sizeof(sz), fpOld, pszSrcFile, __LINE__);
[313]	282	if (!psz)
	283	break; // Unexpected EOF
[551]	284	input_line_num++;
	285	if (input_line_num < pat->comment_line_num)
[313]	286	continue;
[551]	287	if (needEntryNumber && strnicmp(sz, "; Entry #", 9) == 0) {
	288	// Rewrite entry count comment
[313]	289	needEntryNumber = FALSE;
[551]	290	for (psz = sz + 9; *psz == ' '; psz++) ; // Find non-blank
	291	for (; (ch = *psz) >= '0' && ch <= '9'; psz++) ; // Find end of entry#
	292	fprintf(fpNew, GetPString(IDS_ENTRYCNTRTEXT), ++entry_num);
	293	fputs(psz, fpNew);
	294	}
[313]	295	else {
[551]	296	fputs(sz, fpNew);
[313]	297	}
[551]	298	}
[313]	299	}
	300
	301	if (needEntryNumber) {
[551]	302	fputs(";\n", fpNew);
	303	fprintf(fpNew, GetPString(IDS_ENTRYCNTRTEXT), ++entry_num);
	304	if (pat->id)
	305	fprintf(fpNew, " (%s)", pat->id);
	306	fputs("\n;\n", fpNew);
[313]	307	}
	308
	309	fprintf(fpNew,
[551]	310	"%s\n%s\n%ld\n%s\n",
	311	nonull(pat->id),
	312	nonull(pat->ext), pat->file_offset, nonull(pat->list));
[313]	313	fprintf(fpNew,
[551]	314	"%s\n%s\n%s\n%s\n%s\n%s\n",
	315	nonull(pat->extract),
	316	nonull(pat->exwdirs),
	317	nonull(pat->test),
	318	nonull(pat->create),
	319	nonull(pat->createwdirs), nonull(pat->createrecurse));
[313]	320	fprintf(fpNew,
[551]	321	"%s\n%s\n%s\n",
	322	nonull(pat->move), nonull(pat->movewdirs), nonull(pat->delete));
[313]	323	fprintf(fpNew,
[551]	324	"%s\n%s\n%s\n%d\n%d\n%d,%d\n%d\n%d,%lu,%lu,%lu\n",
	325	fixup(pat->signature,
	326	sz,
	327	sizeof(sz),
	328	pat->siglen),
	329	nonull(pat->startlist),
	330	nonull(pat->endlist),
	331	pat->osizepos,
	332	pat->nsizepos,
	333	pat->fdpos,
	334	pat->datetype,
	335	pat->fdflds,
	336	pat->fnpos, pat->nameislast, pat->nameisnext, pat->nameisfirst);
[313]	337	pat = pat->next;
[551]	338	} // while more sigs
[313]	339
	340	// Rewrite trailer comments if known
	341	if (fpOld && arcsigs_trailer_line_num) {
	342	for (;;) {
[551]	343	psz = xfgets(sz, sizeof(sz), fpOld, pszSrcFile, __LINE__);
[313]	344	if (!psz)
	345	break;
[551]	346	input_line_num++;
[313]	347	if (input_line_num < arcsigs_trailer_line_num)
[551]	348	continue; // Bypass sig count
	349	fputs(sz, fpNew);
[313]	350	}
[2]	351	}
[313]	352
	353	fclose(fpNew);
	354
[551]	355	} // if fpNew open OK
[313]	356
	357	if (fpOld)
	358	fclose(fpOld);
	359
	360	if (needReload)
	361	load_archivers(); // Resync commend line numbers
[2]	362	}
	363
[551]	364	static PSZ checkfile(PSZ file, INT * error)
[122]	365	{
[551]	366	CHAR p, pp = NULL;
	367	INT ret;
[2]	368	ULONG apptype;
	369
[551]	370	if (!file \|\| !*file) {
[2]	371	*error = 3;
	372	return NULL;
	373	}
[551]	374	pp = strchr(file, ' ');
	375	if (pp)
[2]	376	*pp = 0;
	377	p = searchpath(file);
[551]	378	if (!p \|\| !*p)
[2]	379	*error = 1;
	380	else {
[697]	381	ret = (INT) DosQueryAppType(p, &apptype);
[551]	382	if (ret)
[2]	383	*error = -1;
	384	else {
	385	apptype &= (~FAPPTYP_32BIT);
[551]	386	if (!apptype \|\|
	387	(apptype == FAPPTYP_NOTWINDOWCOMPAT) \|\|
	388	(apptype == FAPPTYP_WINDOWCOMPAT) \|\|
	389	(apptype & FAPPTYP_BOUND) \|\|
	390	(apptype & FAPPTYP_WINDOWAPI) \|\| (apptype & FAPPTYP_DOS)) {
	391	*error = 0;
[2]	392	}
	393	else
[551]	394	*error = 2;
[2]	395	}
	396	}
[551]	397	if (pp)
[2]	398	*pp = ' ';
	399	return p;
	400	}
	401
[199]	402	#pragma alloc_text (AVV3,check_archiver,ArcReviewDlgProc)
[2]	403
[551]	404	static BOOL check_archiver(HWND hwnd, ARC_TYPE * info)
[122]	405	{
[551]	406	BOOL noStart = FALSE, noEnd = FALSE, badPos = FALSE;
	407	INT badList = 0, badCreate = 0, badExtract = 0;
[122]	408	static PSZ aerrors[3];
[2]	409
	410	aerrors[0] = GetPString(IDS_STARTLISTEMPTYTEXT);
	411	aerrors[1] = GetPString(IDS_ENDLISTEMPTYTEXT);
	412	aerrors[2] = GetPString(IDS_BOGUSNAMETEXT);
[551]	413	if (!info->startlist \|\| !*info->startlist)
[304]	414	noStart = TRUE;
[551]	415	if (!info->endlist \|\| !*info->endlist)
[304]	416	noEnd = TRUE;
[551]	417	if (info->fnpos > 50 \|\| info->fnpos < -1)
[304]	418	badPos = TRUE;
[551]	419	checkfile(info->list, &badList);
	420	checkfile(info->create, &badCreate);
	421	checkfile(info->extract, &badExtract);
	422	if (!noStart && !noEnd && !badPos && !badList && !badCreate && !badExtract)
[304]	423	return TRUE; // OK
[420]	424	if (!info->id)
	425	return FALSE; // Assume new if no id
[2]	426	saymsg(MB_ENTER \| MB_ICONASTERISK,
[551]	427	hwnd,
	428	GetPString(IDS_WARNINGSTEXT),
	429	GetPString(IDS_AVVCHK1TEXT),
	430	noStart ? aerrors[0] : NullStr,
	431	noEnd ? aerrors[1] : NullStr,
	432	badPos ? aerrors[2] : NullStr,
	433	badList == 1 ?
	434	GetPString(IDS_AVVCHK2TEXT) :
	435	badList == -1 ?
	436	GetPString(IDS_AVVCHK3TEXT) :
	437	badList == 2 ?
	438	GetPString(IDS_AVVCHK4TEXT) :
	439	badList == 3 ?
	440	GetPString(IDS_AVVCHK5TEXT) :
	441	NullStr,
	442	badCreate == 1 ?
	443	GetPString(IDS_AVVCHK6TEXT) :
	444	badCreate == -1 ?
	445	GetPString(IDS_AVVCHK7TEXT) :
	446	badCreate == 2 ?
	447	GetPString(IDS_AVVCHK8TEXT) :
	448	badCreate == 3 ?
	449	GetPString(IDS_AVVCHK9TEXT) :
	450	NullStr,
	451	badExtract == 1 ?
	452	GetPString(IDS_AVVCHK10TEXT) :
	453	badExtract == -1 ?
	454	GetPString(IDS_AVVCHK11TEXT) :
	455	badExtract == 2 ?
	456	GetPString(IDS_AVVCHK12TEXT) :
	457	badExtract == 3 ? GetPString(IDS_AVVCHK13TEXT) : NullStr);
	458	if (badList \|\| badExtract)
[304]	459	return FALSE; // Problems
	460	return TRUE; // OK
[2]	461	}
	462
[304]	463	//=== ArcReviewDlgProc() View/edit single archiver.bb2 setup ===
[2]	464
[551]	465	MRESULT EXPENTRY ArcReviewDlgProc(HWND hwnd, ULONG msg, MPARAM mp1,
	466	MPARAM mp2)
[122]	467	{
[551]	468	ARCDUMP *admp;
	469	CHAR s[256];
	470	SHORT sSelect;
[2]	471
[551]	472	if (msg != WM_INITDLG)
[574]	473	admp = (ARCDUMP *) WinQueryWindowPtr(hwnd, QWL_USER);
[2]	474
[551]	475	switch (msg) {
	476	case WM_INITDLG:
	477	admp = (ARCDUMP *) mp2;
	478	if (!admp \|\| !admp->info) {
	479	WinDismissDlg(hwnd, 0);
	480	return 0;
	481	}
[122]	482
[551]	483	WinSetWindowPtr(hwnd, QWL_USER, mp2);
[122]	484
[551]	485	WinSendDlgItemMsg(hwnd, AD_LISTBOX, LM_DELETEALL, MPVOID, MPVOID);
	486	for (sSelect = AD_ID; sSelect < AD_ADDWPATHS + 1; sSelect++) {
	487	WinSendDlgItemMsg(hwnd,
	488	sSelect,
	489	EM_SETTEXTLIMIT,
	490	MPFROM2SHORT(sizeof(s) - 1, 0), MPVOID);
	491	}
	492	if (admp->info->id)
	493	WinSetDlgItemText(hwnd, AD_ID, admp->info->id);
	494	if (admp->info->ext)
	495	WinSetDlgItemText(hwnd, AD_EXT, admp->info->ext);
	496	sprintf(s, "%ld", admp->info->file_offset);
	497	WinSetDlgItemText(hwnd, AD_SIGPOS, s);
	498	if (admp->info->siglen) {
	499	WinSetDlgItemText(hwnd,
	500	AD_SIG,
	501	fixup(admp->info->signature,
	502	s, sizeof(s), admp->info->siglen));
	503	}
	504	if (admp->info->startlist)
	505	WinSetDlgItemText(hwnd, AD_STARTLIST, admp->info->startlist);
	506	if (admp->info->endlist)
	507	WinSetDlgItemText(hwnd, AD_ENDLIST, admp->info->endlist);
	508	if (admp->info->list)
	509	WinSetDlgItemText(hwnd, AD_LIST, admp->info->list);
	510	sprintf(s,
	511	"%d,%d,%d,%d",
	512	admp->info->fnpos,
	513	admp->info->nameislast,
	514	admp->info->nameisnext, admp->info->nameisfirst);
	515	WinSetDlgItemText(hwnd, AD_FNAMEPOS, s);
	516	sprintf(s, "%d", admp->info->osizepos);
	517	WinSetDlgItemText(hwnd, AD_OLDSZ, s);
	518	sprintf(s, "%d", admp->info->nsizepos);
	519	WinSetDlgItemText(hwnd, AD_NEWSZ, s);
	520	sprintf(s, "%d,%d", admp->info->fdpos, admp->info->datetype);
	521	WinSetDlgItemText(hwnd, AD_DATEPOS, s);
	522	sprintf(s, "%d", admp->info->fdflds);
	523	WinSetDlgItemText(hwnd, AD_NUMDATEFLDS, s);
	524	if (admp->info->extract)
	525	WinSetDlgItemText(hwnd, AD_EXTRACT, admp->info->extract);
	526	if (admp->info->exwdirs)
	527	WinSetDlgItemText(hwnd, AD_WDIRS, admp->info->exwdirs);
	528	if (admp->info->test)
	529	WinSetDlgItemText(hwnd, AD_TEST, admp->info->test);
	530	if (admp->info->create)
	531	WinSetDlgItemText(hwnd, AD_ADD, admp->info->create);
	532	if (admp->info->move)
	533	WinSetDlgItemText(hwnd, AD_MOVE, admp->info->move);
	534	if (admp->info->delete)
	535	WinSetDlgItemText(hwnd, AD_DELETE, admp->info->delete);
	536	if (admp->info->createrecurse)
	537	WinSetDlgItemText(hwnd, AD_ADDRECURSE, admp->info->createrecurse);
	538	if (admp->info->createwdirs)
	539	WinSetDlgItemText(hwnd, AD_ADDWPATHS, admp->info->createwdirs);
	540	if (admp->info->movewdirs)
	541	WinSetDlgItemText(hwnd, AD_MOVEWPATHS, admp->info->movewdirs);
[122]	542
[551]	543	PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
	544	break; // WM_INITDLG
[2]	545
[551]	546	case UM_SETUP:
	547	if (admp->listname && *admp->listname) {
[2]	548
[551]	549	FILE *fp = fopen(admp->listname, "r");
	550
	551	if (!fp) {
	552	WinSendDlgItemMsg(hwnd,
	553	AD_LISTBOX,
	554	LM_INSERTITEM,
	555	MPFROM2SHORT(LIT_END, 0),
	556	MPFROMP(GetPString(IDS_CANTOPENFILETEXT)));
[2]	557	}
	558	else {
[551]	559	while (!feof(fp)) {
	560	if (!xfgets(s, sizeof(s), fp, pszSrcFile, __LINE__))
	561	break;
	562	stripcr(s);
	563	WinSendDlgItemMsg(hwnd,
	564	AD_LISTBOX,
	565	LM_INSERTITEM,
	566	MPFROM2SHORT(LIT_END, 0), MPFROMP(s));
	567	}
	568	fclose(fp);
[2]	569	}
[551]	570	}
	571	else {
	572	WinSendDlgItemMsg(hwnd,
	573	AD_LISTBOX,
	574	LM_INSERTITEM,
	575	MPFROM2SHORT(LIT_END, 0),
	576	MPFROMP(GetPString(IDS_NOTAPPLICABLETEXT)));
	577	}
	578	check_archiver(hwnd, admp->info);
	579	return 0;
[2]	580
[551]	581	case WM_ADJUSTWINDOWPOS:
	582	PostMsg(hwnd, UM_SETDIR, MPVOID, MPVOID);
	583	break;
[2]	584
[551]	585	case UM_SETDIR:
	586	PaintRecessedWindow(WinWindowFromID(hwnd, AD_HELP), (HPS) 0, FALSE, TRUE);
	587	return 0;
[2]	588
[551]	589	case WM_CONTROL:
	590	switch (SHORT1FROMMP(mp1)) {
	591	case AD_LISTBOX:
	592	switch (SHORT2FROMMP(mp1)) {
	593	case LN_ENTER:
	594	for (sSelect = 0; sSelect < 10; sSelect++)
	595	WinSetDlgItemText(hwnd, AD_FLD1 + sSelect, NullStr);
	596	if (!admp->listname)
	597	Runtime_Error(pszSrcFile, __LINE__, "no listname");
	598	else {
	599	sSelect = (SHORT) WinSendDlgItemMsg(hwnd,
	600	AD_LISTBOX,
	601	LM_QUERYSELECTION,
	602	MPVOID, MPVOID);
	603	WinSendDlgItemMsg(hwnd,
	604	AD_LISTBOX,
	605	LM_QUERYITEMTEXT,
	606	MPFROM2SHORT(sSelect, 255), MPFROMP(s));
	607	if (!*s)
	608	Runtime_Error(pszSrcFile, __LINE__, "no text");
	609	else {
	610	PSZ p;
	611	PSZ pp;
[2]	612
[551]	613	p = s;
	614	for (sSelect = 0; sSelect < 10; sSelect++) {
	615	pp = p;
	616	while (pp == ' ' \|\| pp == '\t')
	617	pp++;
	618	if (!*pp)
	619	break;
	620	p = pp;
	621	while (p && (p != ' ' && *p != '\t'))
	622	p++;
	623	if (*p)
	624	*p++ = 0;
	625	WinSetDlgItemText(hwnd, AD_FLD1 + sSelect, pp);
	626	}
	627	}
	628	}
	629	break;
[2]	630
[551]	631	case LN_KILLFOCUS:
	632	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	633	break;
[2]	634
[551]	635	case LN_SETFOCUS:
	636	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_TEXTARCPRODUCEDTEXT));
	637	break;
	638	}
	639	break;
[2]	640
[551]	641	case AD_ID:
	642	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	643	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	644	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	645	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADIDTEXT));
	646	break;
[2]	647
[551]	648	case AD_ADD:
	649	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	650	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	651	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	652	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADADDTEXT));
	653	break;
[2]	654
[551]	655	case AD_MOVE:
	656	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	657	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	658	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	659	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADMOVETEXT));
	660	break;
[2]	661
[551]	662	case AD_EXT:
	663	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	664	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	665	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	666	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADEXTTEXT));
	667	break;
[2]	668
[551]	669	case AD_EXTRACT:
	670	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	671	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	672	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	673	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADEXTRACTTEXT));
	674	break;
[2]	675
[551]	676	case AD_WDIRS:
	677	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	678	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	679	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	680	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADWDIRSTEXT));
	681	break;
[2]	682
[551]	683	case AD_SIG:
	684	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	685	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	686	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	687	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADSIGTEXT));
	688	break;
[2]	689
[551]	690	case AD_LIST:
	691	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	692	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	693	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	694	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADLISTTEXT));
	695	break;
[2]	696
[551]	697	case AD_TEST:
	698	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	699	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	700	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	701	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADTESTTEXT));
	702	break;
[2]	703
[551]	704	case AD_ADDWPATHS:
	705	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	706	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	707	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	708	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADADDWPATHSTEXT));
	709	break;
[2]	710
[551]	711	case AD_MOVEWPATHS:
	712	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	713	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	714	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	715	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADMOVEWPATHSTEXT));
	716	break;
[2]	717
[551]	718	case AD_ADDRECURSE:
	719	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	720	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	721	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	722	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADADDRECURSETEXT));
	723	break;
[2]	724
[551]	725	case AD_DELETE:
	726	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	727	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	728	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	729	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADDELETETEXT));
	730	break;
[2]	731
[551]	732	case AD_SIGPOS:
	733	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	734	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	735	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	736	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADSIGPOSTEXT));
	737	break;
[2]	738
[551]	739	case AD_FNAMEPOS:
	740	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	741	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	742	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	743	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADFNAMEPOSTEXT));
	744	break;
[2]	745
[551]	746	case AD_OLDSZ:
	747	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	748	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	749	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	750	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADOLDSZTEXT));
	751	break;
[2]	752
[551]	753	case AD_NUMDATEFLDS:
	754	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	755	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	756	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	757	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADNUMDATEFLDSTEXT));
	758	break;
[2]	759
[551]	760	case AD_DATEPOS:
	761	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	762	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	763	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	764	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADDATEPOSTEXT));
	765	break;
[2]	766
[551]	767	case AD_NEWSZ:
	768	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	769	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	770	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	771	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADNEWSZTEXT));
	772	break;
[2]	773
[551]	774	case AD_STARTLIST:
	775	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	776	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	777	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	778	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADSTARTLISTTEXT));
	779	break;
[2]	780
[551]	781	case AD_ENDLIST:
	782	if (SHORT2FROMMP(mp1) == EN_KILLFOCUS)
	783	WinSetDlgItemText(hwnd, AD_HELP, NullStr);
	784	if (SHORT2FROMMP(mp1) == EN_SETFOCUS)
	785	WinSetDlgItemText(hwnd, AD_HELP, GetPString(IDS_ADENDLISTTEXT));
	786	break;
[2]	787
[551]	788	}
	789	return 0;
[2]	790
[551]	791	case WM_COMMAND:
	792	switch (SHORT1FROMMP(mp1)) {
	793	case AD_SEEEXTRACTOR:
	794	case AD_SEEADDER:
	795	{
	796	static CHAR tempargs[1026];
[2]	797
[551]	798	*tempargs = 0;
	799	if (SHORT1FROMMP(mp1) == AD_SEEADDER)
	800	WinQueryDlgItemText(hwnd, AD_ADD, 255, tempargs);
	801	else
	802	WinQueryDlgItemText(hwnd, AD_EXTRACT, 255, tempargs);
	803	if (!*tempargs)
	804	saymsg(MB_CANCEL,
	805	hwnd,
	806	GetPString(IDS_BZZZTTEXT), GetPString(IDS_NEEDENTRYTEXT));
	807	else {
[2]	808
[551]	809	PSZ p;
[2]	810
[551]	811	lstrip(tempargs);
	812	p = strchr(tempargs, ' ');
	813	if (p)
	814	*p = 0;
	815	{
	816	EXECARGS ex;
[2]	817
[551]	818	ex.flags = SEPARATEKEEP \| WINDOWED \| MAXIMIZED;
	819	ex.commandline = tempargs;
	820	*ex.path = 0;
	821	*ex.environment = 0;
	822	if (WinDlgBox(HWND_DESKTOP,
	823	hwnd,
	824	CmdLineDlgProc, FM3ModHandle, EXEC_FRAME, &ex) == 1)
	825	runemf2(ex.flags,
[888]	826	hwnd, pszSrcFile, __LINE__,
[551]	827	NULL,
	828	(*ex.environment) ? ex.environment : NULL,
	829	"%s", tempargs);
	830	}
	831	}
	832	}
	833	return 0;
[2]	834
[551]	835	case DID_OK:
	836	// fixme to avoid creating empty strings for startlist and endlist
	837	admp->info->startlist =
	838	free_and_strdup_from_window(hwnd, AD_STARTLIST,
	839	admp->info->startlist);
	840	admp->info->endlist =
	841	free_and_strdup_from_window(hwnd, AD_ENDLIST, admp->info->endlist);
	842	admp->info->id =
	843	free_and_strdup_from_window(hwnd, AD_ID, admp->info->id);
	844	admp->info->create =
[906]	845	free_and_strdup_quoted_from_window(hwnd, AD_ADD, admp->info->create);
[551]	846	admp->info->createwdirs =
[906]	847	free_and_strdup_quoted_from_window(hwnd, AD_ADDWPATHS,
[551]	848	admp->info->createwdirs);
	849	admp->info->createrecurse =
[906]	850	free_and_strdup_quoted_from_window(hwnd, AD_ADDRECURSE,
[551]	851	admp->info->createrecurse);
	852	admp->info->movewdirs =
[906]	853	free_and_strdup_quoted_from_window(hwnd, AD_MOVEWPATHS,
[551]	854	admp->info->movewdirs);
	855	admp->info->move =
[906]	856	free_and_strdup_quoted_from_window(hwnd, AD_MOVE, admp->info->move);
[551]	857	admp->info->delete =
[906]	858	free_and_strdup_quoted_from_window(hwnd, AD_DELETE, admp->info->delete);
[551]	859	admp->info->test =
[906]	860	free_and_strdup_quoted_from_window(hwnd, AD_TEST, admp->info->test);
[551]	861	admp->info->extract =
[906]	862	free_and_strdup_quoted_from_window(hwnd, AD_EXTRACT, admp->info->extract);
[551]	863	admp->info->exwdirs =
[906]	864	free_and_strdup_quoted_from_window(hwnd, AD_WDIRS, admp->info->exwdirs);
[551]	865	admp->info->ext =
	866	free_and_strdup_from_window(hwnd, AD_EXT, admp->info->ext);
	867	admp->info->signature =
	868	free_and_strdup_from_window(hwnd, AD_SIG, admp->info->signature);
	869	admp->info->siglen = literal(admp->info->signature);
[906]	870	admp->info->list = free_and_strdup_quoted_from_window(hwnd,
[551]	871	AD_LIST,
	872	admp->info->list);
	873	admp->info->file_offset = get_long_from_window(hwnd, AD_SIGPOS);
	874	admp->info->osizepos = get_int_from_window(hwnd, AD_OLDSZ);
	875	admp->info->nsizepos = get_int_from_window(hwnd, AD_NEWSZ);
	876	admp->info->fdpos = get_int_from_window(hwnd, AD_DATEPOS);
	877	admp->info->datetype = get_int2_from_window(hwnd, AD_DATEPOS);
	878	admp->info->fdflds = get_int_from_window(hwnd, AD_NUMDATEFLDS);
	879	admp->info->fnpos = get_int_from_window(hwnd, AD_FNAMEPOS);
	880	admp->info->nameislast =
	881	(get_int2_from_window(hwnd, AD_FNAMEPOS)) ? TRUE : FALSE;
	882	admp->info->nameisnext =
	883	(get_int3_from_window(hwnd, AD_FNAMEPOS)) ? TRUE : FALSE;
	884	admp->info->nameisfirst =
	885	(get_int4_from_window(hwnd, AD_FNAMEPOS)) ? TRUE : FALSE;
	886	{
	887	INT ok = check_archiver(hwnd, admp->info);
[2]	888
[551]	889	if (saymsg(MB_YESNO,
	890	hwnd,
	891	GetPString(IDS_ADCHANGESINMEMTEXT),
	892	GetPString(IDS_ADREWRITETEXT),
	893	!ok ? GetPString(IDS_NOTRECOMMENDTEXT) : NullStr) ==
	894	MBID_YES) {
[2]	895
[551]	896	PSZ ab2;
[2]	897
[551]	898	ab2 = searchpath(GetPString(IDS_ARCHIVERBB2)); // Rewrite without alerting
	899	rewrite_archiverbb2(ab2);
	900	}
	901	}
	902	WinDismissDlg(hwnd, TRUE);
	903	return 0;
[2]	904
[551]	905	case IDM_HELP:
	906	if (hwndHelp)
	907	WinSendMsg(hwndHelp,
	908	HM_DISPLAY_HELP,
	909	MPFROM2SHORT(HELP_EDITARC, 0), MPFROMSHORT(HM_RESOURCEID));
	910	break;
[2]	911
[551]	912	case DID_CANCEL:
	913	WinDismissDlg(hwnd, FALSE);
	914	return 0;
	915
	916	case AD_TOSTART:
	917	if (!admp->listname)
	918	Runtime_Error(pszSrcFile, __LINE__, "no listname");
	919	else {
	920	sSelect = (SHORT) WinSendDlgItemMsg(hwnd,
	921	AD_LISTBOX,
	922	LM_QUERYSELECTION,
	923	MPVOID, MPVOID);
	924	WinSendDlgItemMsg(hwnd,
	925	AD_LISTBOX,
	926	LM_QUERYITEMTEXT,
	927	MPFROM2SHORT(sSelect, 255), MPFROMP(s));
	928	if (*s)
	929	WinSetDlgItemText(hwnd, AD_STARTLIST, s);
	930	else
	931	BooBoo:
	932	saymsg(MB_ENTER,
	933	hwnd,
	934	GetPString(IDS_OOPSTEXT),
	935	GetPString(IDS_SELECTFROMLISTTEXT));
[2]	936	}
	937	return 0;
[551]	938
	939	case AD_TOEND:
	940	if (!admp->listname)
	941	Runtime_Error(pszSrcFile, __LINE__, "no listname");
	942	else {
	943	sSelect = (SHORT) WinSendDlgItemMsg(hwnd,
	944	AD_LISTBOX,
	945	LM_QUERYSELECTION,
	946	MPVOID, MPVOID);
	947	WinSendDlgItemMsg(hwnd,
	948	AD_LISTBOX,
	949	LM_QUERYITEMTEXT,
	950	MPFROM2SHORT(sSelect, 255), MPFROMP(s));
	951	if (*s)
	952	WinSetDlgItemText(hwnd, AD_ENDLIST, s);
	953	else
	954	goto BooBoo;
	955	}
	956	return 0;
	957	}
	958	return 0;
[2]	959	}
[551]	960	return WinDefDlgProc(hwnd, msg, mp1, mp2);
[2]	961	}
[793]	962
	963	#pragma alloc_text(AVV,EditArchiverDefinition,free_and_strdup_from_window)
	964	#pragma alloc_text(AVV,get_int_from_window,get_int2_from_window)
	965	#pragma alloc_text(AVV,get_long_from_window,get_int3_from_window)
[911]	966	#pragma alloc_text(AVV,get_int4_from_window,free_and_strdup_quoted_from_window)

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

Download in other formats: