Context Navigation

source: trunk/dll/avv.c@ 959

Visit:

Last change on this file since 959 was 959, checked in by Gregg Young, 18 years ago
Use xfree where appropriate. Check that buffer exists following all xmallocs. Stopped at eas.c with xfree checking. One remaining xmalloc without test in dirsize.c
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 26.2 KB

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