Context Navigation

source: trunk/dll/command.c@ 1117

Visit:

Last change on this file since 1117 was 1117, checked in by Gregg Young, 17 years ago
Check disk free space before writing data files to prevent traps from being on a full disk (ticket 154)
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 28.3 KB

Rev	Line
[123]	1
	2	/***********************************************************************
	3
	4	$Id: command.c 1117 2008-08-24 18:31:35Z gyoung $
	5
[347]	6	Custom commands
	7
[123]	8	Copyright (c) 1993-98 M. Kimes
[907]	9	Copyright (c) 2004, 2008 Steven H. Levine
[123]	10
[204]	11	01 Aug 04 SHL Rework lstrip/rstrip usage
	12	06 Jun 05 SHL Drop unused code
[347]	13	14 Jul 06 SHL Use Runtime_Error
[406]	14	29 Jul 06 SHL Use xfgets_bstripcr
[445]	15	15 Aug 06 SHL Better can't add message
[507]	16	18 Sep 06 GKY Add replace command and update okay to add if changed
[552]	17	17 Feb 07 GKY Move error messages etc to string file
[574]	18	22 Mar 07 GKY Use QWL_USER
	19	23 Mar 07 GKY Replace doesn't change item position
	20	23 Mar 07 GKY Okay fails silently when item not changed
[618]	21	19 Apr 07 SHL Sync with AcceptOneDrop GetOneDrop mods
[793]	22	20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
[920]	23	06 Jan 08 GKY Use NormalizeCmdLine to check program strings on entry
[985]	24	29 Feb 08 GKY Changes to enable user settable command line length
	25	29 Feb 08 GKY Use xfree where appropriate
[1078]	26	18 Jul 08 SHL Add Fortify support
[1082]	27	19 Jul 08 GKY Replace save_dir2(dir) with pFM2SaveDirectory and use BldFullPathName
[123]	28
	29	***********************************************************************/
	30
[2]	31	#include <stdlib.h>
	32	#include <string.h>
	33	#include <share.h>
[347]	34
[907]	35	#define INCL_DOS
	36	#define INCL_WIN
	37	#define INCL_LONGLONG // dircnrs.h
	38
[2]	39	#include "fm3dlg.h"
	40	#include "fm3str.h"
	41	#include "tools.h"
[907]	42	#include "arccnrs.h" // BldQuotedFileName
	43	#include "errutil.h" // Dos_Error...
	44	#include "strutil.h" // GetPString
	45	#include "fm3dll.h"
[920]	46	#include "pathutil.h" // NormalizeCmdLine
[989]	47	#include "command.h"
[1039]	48	#include "fortify.h"
[2]	49
[551]	50	typedef struct
	51	{
[985]	52	PSZ pszCmdLine;
[551]	53	INT flags;
	54	CHAR title[34];
	55	}
	56	COMMAND;
[2]	57
	58	#pragma data_seg(DATA1)
[347]	59
	60	static PSZ pszSrcFile = __FILE__;
	61
[551]	62	MRESULT EXPENTRY CommandTextProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
[347]	63	{
[574]	64	PFNWP oldproc = (PFNWP) WinQueryWindowPtr(hwnd, QWL_USER);
[2]	65	static BOOL emphasized = FALSE;
	66
[551]	67	switch (msg) {
	68	case DM_DRAGOVER:
	69	if (!emphasized) {
	70	emphasized = TRUE;
	71	DrawTargetEmphasis(hwnd, emphasized);
	72	}
[618]	73	if (AcceptOneDrop(hwnd, mp1, mp2))
[551]	74	return MRFROM2SHORT(DOR_DROP, DO_MOVE);
	75	return MRFROM2SHORT(DOR_NEVERDROP, 0);
[2]	76
[551]	77	case DM_DRAGLEAVE:
	78	if (emphasized) {
	79	emphasized = FALSE;
	80	DrawTargetEmphasis(hwnd, emphasized);
	81	}
	82	break;
	83
	84	case DM_DROPHELP:
	85	DropHelp(mp1, mp2, hwnd, GetPString(IDS_DROPCMDHELPTEXT));
	86	return 0;
	87
	88	case DM_DROP:
	89	{
	90	char szFrom[CCHMAXPATH + 5];
	91
	92	if (emphasized) {
[445]	93	emphasized = FALSE;
[551]	94	DrawTargetEmphasis(hwnd, emphasized);
[2]	95	}
[618]	96	if (GetOneDrop(hwnd, mp1, mp2, szFrom, CCHMAXPATH)) {
[551]	97	strcat(szFrom, " %a");
	98	WinSetWindowText(hwnd, szFrom);
	99	}
	100	}
	101	return 0;
	102	}
	103	return (oldproc) ? oldproc(hwnd, msg, mp1, mp2) :
	104	WinDefWindowProc(hwnd, msg, mp1, mp2);
	105	}
	106
	107	MRESULT EXPENTRY ReOrderProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
	108	{
	109	switch (msg) {
	110	case WM_INITDLG:
	111	if (!cmdhead) {
	112	WinDismissDlg(hwnd, 0);
[2]	113	break;
[551]	114	}
	115	{
	116	LINKCMDS *info;
	117	SHORT x;
[2]	118
[551]	119	info = cmdhead;
	120	while (info) {
	121	x = (SHORT) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX, LM_INSERTITEM,
	122	MPFROMSHORT(LIT_END),
	123	MPFROMP(info->title));
	124	if (x < 0) {
	125	Runtime_Error(pszSrcFile, __LINE__, "no cmd");
	126	WinDismissDlg(hwnd, 0);
[445]	127	}
[551]	128	else {
	129	WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX, LM_SETITEMHANDLE,
	130	MPFROMSHORT(x), MPFROMP(info));
[445]	131	}
[551]	132	info = info->next;
[2]	133	}
[551]	134	}
	135	break;
[2]	136
[551]	137	case WM_CONTROL:
	138	return 0;
[2]	139
[551]	140	case WM_COMMAND:
	141	switch (SHORT1FROMMP(mp1)) {
	142	case DID_CANCEL:
	143	WinDismissDlg(hwnd, 0);
	144	break;
	145
	146	case DID_OK:
[2]	147	{
[551]	148	LINKCMDS temphead = NULL, info, last = NULL, temptail = NULL;
	149	SHORT sSelect, numitems;
[2]	150
[551]	151	sSelect = 0;
	152	numitems = (SHORT) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
	153	LM_QUERYITEMCOUNT,
	154	MPVOID, MPVOID);
	155	while (numitems) {
	156	info = (LINKCMDS *) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
	157	LM_QUERYITEMHANDLE,
	158	MPFROMSHORT(sSelect++),
	159	MPVOID);
	160	if (info) {
	161	if (!temphead) {
	162	temphead = info;
	163	info->prev = NULL;
	164	}
	165	else {
	166	last->next = info;
	167	info->prev = last;
	168	}
	169	temptail = info;
	170	last = info;
	171	info->next = NULL;
[347]	172	}
[551]	173	numitems--;
	174	}
	175	sSelect = 0;
	176	numitems = (SHORT) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
	177	LM_QUERYITEMCOUNT,
	178	MPVOID, MPVOID);
	179	while (numitems) {
	180	info = (LINKCMDS *) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
	181	LM_QUERYITEMHANDLE,
	182	MPFROMSHORT(sSelect++),
	183	MPVOID);
	184	if (info) {
	185	if (!temphead) {
	186	temphead = info;
	187	info->prev = NULL;
	188	}
	189	else {
	190	last->next = info;
	191	info->prev = last;
	192	}
	193	temptail = info;
	194	last = info;
	195	info->next = NULL;
[347]	196	}
[551]	197	numitems--;
[445]	198	}
[551]	199	cmdhead = temphead;
	200	cmdtail = temptail;
[2]	201	}
[551]	202	WinDismissDlg(hwnd, 1);
[2]	203	break;
	204
[551]	205	case IDM_HELP:
	206	if (hwndHelp)
	207	WinSendMsg(hwndHelp, HM_DISPLAY_HELP,
	208	MPFROM2SHORT(HELP_REORDERCOMMANDS, 0),
	209	MPFROMSHORT(HM_RESOURCEID));
	210	break;
[2]	211
[551]	212	case RE_ADD:
	213	{
	214	SHORT sSelect, x;
	215	LINKCMDS *info;
[2]	216
[551]	217	sSelect = (SHORT) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
	218	LM_QUERYSELECTION,
	219	MPFROMSHORT(LIT_FIRST), MPVOID);
	220	while (sSelect >= 0) {
	221	info = (LINKCMDS *) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
	222	LM_QUERYITEMHANDLE,
	223	MPFROMSHORT(sSelect), MPVOID);
	224	if (info) {
	225	x = (SHORT) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
	226	LM_INSERTITEM,
	227	MPFROM2SHORT(LIT_END, 0),
	228	MPFROMP(info->title));
	229	if (x >= 0) {
	230	WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
	231	LM_SETITEMHANDLE,
	232	MPFROMSHORT(x), MPFROMP(info));
	233	WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX, LM_DELETEITEM,
	234	MPFROMSHORT(sSelect), MPVOID);
[445]	235	}
	236	}
[551]	237	else
	238	WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX, LM_SELECTITEM,
	239	MPFROMSHORT(sSelect), MPFROMSHORT(FALSE));
	240	sSelect = (USHORT) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
[445]	241	LM_QUERYSELECTION,
	242	MPFROMSHORT(LIT_FIRST),
	243	MPVOID);
[551]	244	}
	245	}
	246	break;
	247
	248	case RE_REMOVE:
	249	{
	250	SHORT sSelect, x;
	251	LINKCMDS *info;
	252
	253	sSelect = (SHORT) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
	254	LM_QUERYSELECTION,
	255	MPFROMSHORT(LIT_FIRST), MPVOID);
	256	while (sSelect >= 0) {
	257	info = (LINKCMDS *) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
	258	LM_QUERYITEMHANDLE,
	259	MPFROMSHORT(sSelect), MPVOID);
	260	if (info) {
	261	x = (SHORT) WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
	262	LM_INSERTITEM,
	263	MPFROM2SHORT(LIT_END, 0),
	264	MPFROMP(info->title));
	265	if (x >= 0) {
	266	WinSendDlgItemMsg(hwnd, RE_ADDLISTBOX,
	267	LM_SETITEMHANDLE,
	268	MPFROMSHORT(x), MPFROMP(info));
	269	WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX, LM_DELETEITEM,
	270	MPFROMSHORT(sSelect), MPVOID);
[445]	271	}
	272	}
[551]	273	else
	274	WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX, LM_SELECTITEM,
	275	MPFROMSHORT(sSelect), MPFROMSHORT(FALSE));
	276	sSelect = (USHORT) WinSendDlgItemMsg(hwnd, RE_REMOVELISTBOX,
[445]	277	LM_QUERYSELECTION,
	278	MPFROMSHORT(LIT_FIRST),
	279	MPVOID);
[551]	280	}
[2]	281	}
[551]	282	break;
	283	}
	284	return 0;
[2]	285	}
[551]	286	return WinDefDlgProc(hwnd, msg, mp1, mp2);
[2]	287	}
	288
[551]	289	CHAR *command_title(INT cx)
[347]	290	{
[551]	291	static CHAR duh[] = "???";
	292	LINKCMDS *info;
	293	INT x = 0;
[2]	294
[551]	295	if (!cmdloaded)
[2]	296	load_commands();
	297	info = cmdhead;
[551]	298	while (info) {
	299	if (x == cx)
[2]	300	return info->title;
	301	info = info->next;
	302	}
	303	return duh;
	304	}
	305
[551]	306	VOID free_commands(VOID)
[347]	307	{
[551]	308	LINKCMDS info, next;
[2]	309
	310	info = cmdhead;
[551]	311	while (info) {
[2]	312	next = info->next;
[1009]	313	xfree(info->title, pszSrcFile, __LINE__);
	314	xfree(info->pszCmdLine, pszSrcFile, __LINE__);
[1039]	315	free(info);
[2]	316	info = next;
	317	}
	318	cmdhead = cmdtail = NULL;
	319	}
	320
[551]	321	VOID load_commands(VOID)
[347]	322	{
[551]	323	FILE *fp;
[2]	324	LINKCMDS *info;
[989]	325	PSZ pszCmdLine;
[551]	326	CHAR title[100];
	327	CHAR flags[72];
[2]	328
[551]	329	if (cmdhead)
[2]	330	free_commands();
	331	cmdloaded = TRUE;
[989]	332	pszCmdLine = xmallocz(MaxComLineStrg, pszSrcFile, __LINE__);
	333	if (pszCmdLine) {
[1082]	334	BldFullPathName(pszCmdLine, pFM2SaveDirectory, "COMMANDS.DAT");
[989]	335	fp = _fsopen(pszCmdLine, "r", SH_DENYWR);
	336	if (fp) {
	337	while (!feof(fp)) {
	338	if (!xfgets_bstripcr(title, sizeof(title), fp, pszSrcFile, __LINE__))
	339	break;
	340	title[34] = 0; // fixme to know why chopped this way?
	341	bstripcr(title);
	342	if (!title \|\| title == ';')
	343	continue;
	344	if (!xfgets(pszCmdLine, MaxComLineStrg, fp, pszSrcFile, __LINE__))
	345	break; /* error! */
	346	if (!xfgets(flags, 72, fp, pszSrcFile, __LINE__))
	347	break; /* error! */
	348	pszCmdLine[MaxComLineStrg - 1] = 0; // fixme to know why chopped this way?
	349	bstripcr(pszCmdLine);
	350	flags[34] = 0;
	351	bstripcr(flags);
	352	if (!pszCmdLine)
	353	continue;
	354	info = xmallocz(sizeof(LINKCMDS), pszSrcFile, __LINE__);
	355	if (info) {
[1078]	356	# ifdef FORTIFY
	357	Fortify_SetOwner(info, 1);
	358	Fortify_SetScope(info, 1);
	359	# endif
[989]	360	info->pszCmdLine = xstrdup(pszCmdLine, pszSrcFile, __LINE__);
	361	info->title = xstrdup(title, pszSrcFile, __LINE__);
	362	info->flags = atol(flags);
	363	if (!info->pszCmdLine \|\| !info->title) {
[1009]	364	xfree(info->pszCmdLine, pszSrcFile, __LINE__);
	365	xfree(info->title, pszSrcFile, __LINE__);
[1039]	366	free(info);
[989]	367	break;
	368	}
[1078]	369	# ifdef FORTIFY
	370	Fortify_SetOwner(info->pszCmdLine, 1);
	371	Fortify_SetScope(info->pszCmdLine, 1);
	372	Fortify_SetOwner(info->title, 1);
	373	Fortify_SetScope(info->title, 1);
	374	# endif
[989]	375	if (!cmdhead)
	376	cmdhead = info;
	377	else {
	378	cmdtail->next = info;
	379	info->prev = cmdtail;
	380	}
	381	cmdtail = info;
	382	}
[2]	383	}
[1039]	384	free(pszCmdLine);
[989]	385	fclose(fp);
[2]	386	}
	387	}
	388	}
	389
[551]	390	VOID save_commands(VOID)
[347]	391	{
[2]	392	LINKCMDS *info;
[551]	393	FILE *fp;
	394	CHAR s[CCHMAXPATH + 14];
[2]	395
[551]	396	if (!cmdloaded \|\| !cmdhead)
[2]	397	return;
	398	info = cmdhead;
[1082]	399	BldFullPathName(s, pFM2SaveDirectory, "COMMANDS.DAT");
[1117]	400	if (CheckDriveSpaceAvail(s, ullDATFileSpaceNeeded, 0) == 2)
	401	return; //already gave error msg
[551]	402	fp = xfopen(s, "w", pszSrcFile, __LINE__);
[347]	403	if (fp) {
[551]	404	fputs(GetPString(IDS_COMMANDFILETEXT), fp);
[2]	405	info = cmdhead;
[551]	406	while (info) {
[2]	407	fprintf(fp,
[989]	408	";\n%0.34s\n%0.*s\n%lu\n",
	409	info->title, MaxComLineStrg, info->pszCmdLine, info->flags);
[2]	410	info = info->next;
	411	}
	412	fclose(fp);
	413	}
	414	}
	415
[445]	416	//== add_command() Add command to list ==
	417
[551]	418	LINKCMDS add_command(COMMAND addme)
[347]	419	{
[2]	420	LINKCMDS *info;
	421
[985]	422	if (!addme \|\| !addme->pszCmdLine \|\| !addme->title)
[551]	423	return NULL; // No data
[445]	424	info = cmdhead;
	425	while (info) {
[551]	426	if (!stricmp(info->title, addme->title))
	427	return NULL; // Got a dup
[445]	428	info = info->next;
[2]	429	}
[551]	430	info = xmallocz(sizeof(LINKCMDS), pszSrcFile, __LINE__);
[445]	431	if (!info)
	432	return NULL;
[989]	433	info->pszCmdLine = xstrdup(addme->pszCmdLine, pszSrcFile, __LINE__);
[551]	434	info->title = xstrdup(addme->title, pszSrcFile, __LINE__);
[445]	435	if (addme->flags)
	436	info->flags = addme->flags;
[989]	437	if (!info->pszCmdLine \|\| !info->title) {
[1009]	438	xfree(info->pszCmdLine, pszSrcFile, __LINE__);
	439	xfree(info->title, pszSrcFile, __LINE__);
[1039]	440	free(info);
[445]	441	return NULL;
	442	}
	443	if (!cmdhead) /* only item in list */
	444	cmdhead = cmdtail = info;
	445	else {
	446	/* place at tail */
	447	cmdtail->next = info;
	448	info->prev = cmdtail;
	449	cmdtail = info;
	450	}
	451	return info;
[2]	452	}
	453
[551]	454	BOOL kill_command(CHAR * killme)
[347]	455	{
[2]	456	LINKCMDS *info;
	457
[551]	458	if (killme && *killme) {
[2]	459	info = cmdhead;
[551]	460	while (info) {
	461	if (!stricmp(info->title, killme)) {
	462	if (info == cmdhead) {
[445]	463	cmdhead = info->next;
[551]	464	if (info == cmdtail)
[445]	465	cmdtail = info->prev;
	466	}
	467	else {
[551]	468	if (info->next)
[445]	469	(info->next)->prev = info->prev;
[551]	470	if (info->prev)
[445]	471	(info->prev)->next = info->next;
[551]	472	if (info == cmdtail)
[445]	473	cmdtail = info->prev;
	474	}
[1009]	475	xfree(info->pszCmdLine, pszSrcFile, __LINE__);
	476	xfree(info->title, pszSrcFile, __LINE__);
[1039]	477	free(info);
[445]	478	return TRUE;
[2]	479	}
	480	info = info->next;
	481	}
	482	}
	483	return FALSE;
	484	}
	485
[551]	486	MRESULT EXPENTRY CommandDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
[347]	487	{
[574]	488	SHORT x, y;
[2]	489	LINKCMDS *info;
	490
[551]	491	switch (msg) {
	492	case WM_INITDLG:
	493	WinSendDlgItemMsg(hwnd, CMD_LISTBOX, LM_DELETEALL, MPVOID, MPVOID);
	494	WinSendDlgItemMsg(hwnd, CMD_CL, EM_SETTEXTLIMIT,
	495	MPFROM2SHORT(1000, 0), MPVOID);
	496	WinSendDlgItemMsg(hwnd, CMD_TITLE, EM_SETTEXTLIMIT,
	497	MPFROM2SHORT(33, 0), MPVOID);
	498	WinSetDlgItemText(hwnd, CMD_CL, NullStr);
	499	WinSetDlgItemText(hwnd, CMD_TITLE, NullStr);
	500	WinCheckButton(hwnd, CMD_DEFAULT, TRUE);
	501	WinCheckButton(hwnd, CMD_PROMPT, FALSE);
	502	WinCheckButton(hwnd, CMD_ONCE, FALSE);
	503	info = cmdhead;
	504	while (info) {
	505	x = (SHORT) WinSendDlgItemMsg(hwnd, CMD_LISTBOX, LM_INSERTITEM,
	506	MPFROM2SHORT(LIT_END, 0),
	507	MPFROMP(info->title));
	508	if (x >= 0)
	509	WinSendDlgItemMsg(hwnd, CMD_LISTBOX, LM_SETITEMHANDLE,
	510	MPFROMSHORT(x), MPFROMP(info));
	511	info = info->next;
	512	}
	513	WinSendDlgItemMsg(hwnd, CMD_LISTBOX, LM_SELECTITEM,
	514	MPFROMSHORT(0), MPFROMSHORT(TRUE));
	515	{
	516	PFNWP oldproc;
	517
	518	oldproc = WinSubclassWindow(WinWindowFromID(hwnd, CMD_CL),
	519	(PFNWP) CommandTextProc);
	520	if (oldproc)
[574]	521	WinSetWindowPtr(WinWindowFromID(hwnd, CMD_CL), QWL_USER, (PVOID) oldproc);
[551]	522	}
	523	break;
	524
	525	case WM_CONTROL:
	526	if (SHORT1FROMMP(mp1) == CMD_LISTBOX) {
	527	switch (SHORT2FROMMP(mp1)) {
	528	case LN_ENTER:
	529	case LN_SELECT:
	530	x = (SHORT) WinSendDlgItemMsg(hwnd, CMD_LISTBOX,
	531	LM_QUERYSELECTION,
	532	MPFROMSHORT(LIT_FIRST), MPVOID);
	533	if (x >= 0) {
	534	info = (LINKCMDS *) WinSendDlgItemMsg(hwnd, CMD_LISTBOX,
	535	LM_QUERYITEMHANDLE,
	536	MPFROMSHORT(x), MPVOID);
	537	if (!info) {
	538	Runtime_Error(pszSrcFile, __LINE__, "LM_QUERYITEMHANDLE");
	539	break;
	540	}
[989]	541	WinSetDlgItemText(hwnd, CMD_CL, info->pszCmdLine);
[551]	542	if (!(info->flags & 1023))
	543	WinCheckButton(hwnd, CMD_DEFAULT, TRUE);
	544	else {
	545	if (info->flags & FULLSCREEN)
	546	WinCheckButton(hwnd, CMD_FULLSCREEN, TRUE);
	547	else if (info->flags & MINIMIZED)
	548	WinCheckButton(hwnd, CMD_MINIMIZED, TRUE);
	549	else if (info->flags & MAXIMIZED)
	550	WinCheckButton(hwnd, CMD_MAXIMIZED, TRUE);
	551	else if (info->flags & INVISIBLE)
	552	WinCheckButton(hwnd, CMD_INVISIBLE, TRUE);
	553	}
	554	WinCheckButton(hwnd, CMD_PROMPT, ((info->flags & PROMPT) != 0));
	555	WinCheckButton(hwnd, CMD_KEEP, ((info->flags & KEEP) != 0));
	556	WinCheckButton(hwnd, CMD_ONCE, ((info->flags & ONCE) != 0));
	557	WinSetDlgItemText(hwnd, CMD_TITLE, info->title);
	558	{
	559	CHAR env[1002];
	560	ULONG size;
	561
	562	*env = 0;
	563	size = sizeof(env) - 1;
[989]	564	if (PrfQueryProfileData(fmprof, FM3Str, info->pszCmdLine, env, &size) &&
[551]	565	*env)
	566	WinSetDlgItemText(hwnd, CMD_ENVIRON, env);
	567	else
	568	WinSetDlgItemText(hwnd, CMD_ENVIRON, NullStr);
	569	}
	570	}
	571	break;
[2]	572	}
[551]	573	}
	574	return 0;
	575
	576	case WM_COMMAND:
	577	switch (SHORT1FROMMP(mp1)) {
	578	case CMD_FIND:
[2]	579	{
[888]	580	CHAR filename[CCHMAXPATH + 9], szfilename[CCHMAXPATH + 9];
[2]	581
[551]	582	*filename = 0;
[888]	583	if (insert_filename(hwnd, filename, 2, FALSE) && *filename) {
	584	BldQuotedFileName(szfilename, filename);
	585	WinSetDlgItemText(hwnd, CMD_CL, szfilename);
[551]	586	}
[2]	587	}
	588	break;
	589
[551]	590	case CMD_REORDER:
	591	if (!cmdhead \|\| !cmdhead->next) {
	592	Runtime_Error(pszSrcFile, __LINE__, "no cmd");
	593	break;
	594	}
	595	if (WinDlgBox(HWND_DESKTOP, hwnd, ReOrderProc, FM3ModHandle,
	596	RE_FRAME, MPVOID)) {
	597	WinSendDlgItemMsg(hwnd, CMD_LISTBOX, LM_DELETEALL, MPVOID, MPVOID);
	598	WinSetDlgItemText(hwnd, CMD_CL, NullStr);
	599	WinSetDlgItemText(hwnd, CMD_TITLE, NullStr);
	600	info = cmdhead;
	601	while (info) {
	602	x = (SHORT) WinSendDlgItemMsg(hwnd,
	603	CMD_LISTBOX,
	604	LM_INSERTITEM,
	605	MPFROM2SHORT(LIT_END, 0),
	606	MPFROMP(info->title));
	607	if (x >= 0)
	608	WinSendDlgItemMsg(hwnd,
	609	CMD_LISTBOX,
	610	LM_SETITEMHANDLE,
	611	MPFROMSHORT(x), MPFROMP(info));
	612	info = info->next;
[445]	613	}
[551]	614	WinSendDlgItemMsg(hwnd,
	615	CMD_LISTBOX,
	616	LM_SELECTITEM, MPFROMSHORT(0), MPFROMSHORT(TRUE));
	617	WinCheckButton(hwnd, CMD_DEFAULT, TRUE);
	618	WinCheckButton(hwnd, CMD_PROMPT, FALSE);
	619	WinCheckButton(hwnd, CMD_ONCE, FALSE);
	620	save_commands();
[2]	621	}
[551]	622	break;
[2]	623
[551]	624	case DID_OK:
	625	{
	626	x = (SHORT) WinSendDlgItemMsg(hwnd,
	627	CMD_LISTBOX,
	628	LM_QUERYSELECTION, MPVOID, MPVOID);
	629	if (x == LIT_NONE)
	630	x = (SHORT) WinSendDlgItemMsg(hwnd,
	631	CMD_LISTBOX,
	632	LM_SELECTITEM,
	633	MPFROMSHORT(0), MPFROMSHORT(TRUE));
	634	}
	635	{
[909]	636	COMMAND temp;
[920]	637	PSZ pszWorkBuf;
[909]	638	APIRET ret;
[2]	639
[985]	640	memset(&temp, 0, sizeof(COMMAND));
	641	temp.pszCmdLine = xmallocz(MaxComLineStrg, pszSrcFile, __LINE__);
	642	if (!temp.pszCmdLine)
[959]	643	break; //already complained
[985]	644	pszWorkBuf = xmalloc(MaxComLineStrg, pszSrcFile, __LINE__);
	645	if (!pszWorkBuf) {
[1039]	646	free(temp.pszCmdLine);
[985]	647	break; //already complained
	648	}
	649	WinQueryDlgItemText(hwnd, CMD_CL, MaxComLineStrg, temp.pszCmdLine);
	650	NormalizeCmdLine(pszWorkBuf, temp.pszCmdLine);
	651	memcpy(temp.pszCmdLine, pszWorkBuf, strlen(pszWorkBuf) + 1);
[1039]	652	free(pszWorkBuf);
[985]	653	if (!strchr(temp.pszCmdLine, '%')){
[909]	654	ret = saymsg(MB_YESNO,
	655	HWND_DESKTOP,
	656	NullStr,
	657	GetPString(IDS_TOACTONSELECTEDTEXT));
	658	if (ret == MBID_YES)
[985]	659	strcat(temp.pszCmdLine, " %a");
[909]	660	}
[551]	661	WinQueryDlgItemText(hwnd, CMD_TITLE, sizeof(temp.title), temp.title);
	662	if (WinQueryButtonCheckstate(hwnd, CMD_DEFAULT))
	663	temp.flags = 0;
	664	else if (WinQueryButtonCheckstate(hwnd, CMD_FULLSCREEN))
	665	temp.flags = FULLSCREEN;
	666	else if (WinQueryButtonCheckstate(hwnd, CMD_MINIMIZED))
	667	temp.flags = MINIMIZED;
	668	else if (WinQueryButtonCheckstate(hwnd, CMD_MAXIMIZED))
	669	temp.flags = MAXIMIZED;
	670	else if (WinQueryButtonCheckstate(hwnd, CMD_INVISIBLE))
	671	temp.flags = INVISIBLE;
	672	if (WinQueryButtonCheckstate(hwnd, CMD_KEEP))
	673	temp.flags \|= KEEP;
	674	if (WinQueryButtonCheckstate(hwnd, CMD_PROMPT))
	675	temp.flags \|= PROMPT;
	676	if (WinQueryButtonCheckstate(hwnd, CMD_ONCE))
[909]	677	temp.flags \|= ONCE;
	678	if (fCancelAction){
	679	fCancelAction = FALSE;
[1039]	680	free(temp.pszCmdLine);
[909]	681	break;
	682	}
	683	else
	684	info = add_command(&temp);
	685	if (!info)
[552]	686	{
[551]	687	WinDismissDlg(hwnd, 0);
[574]	688	/*saymsg(MB_ENTER, hwnd,
[551]	689	GetPString(IDS_ERRORTEXT),
[552]	690	GetPString(IDS_CANTADDCOMMANDTEXT),
[574]	691	temp.title);*/
[552]	692	}
[551]	693	else {
	694	CHAR env[1002];
[2]	695
[551]	696	*env = 0;
	697	WinQueryDlgItemText(hwnd, CMD_ENVIRON, 1000, env);
	698	bstripcr(env);
	699	if (*env) {
[985]	700	PrfWriteProfileString(fmprof, FM3Str, temp.pszCmdLine, env);
[445]	701	}
[551]	702	x = (SHORT) WinSendDlgItemMsg(hwnd,
	703	CMD_LISTBOX,
	704	LM_INSERTITEM,
	705	MPFROM2SHORT(LIT_END, 0),
	706	MPFROMP(temp.title));
	707	if (x >= 0) {
[445]	708	WinSendDlgItemMsg(hwnd,
	709	CMD_LISTBOX,
[551]	710	LM_SETITEMHANDLE,
	711	MPFROMSHORT(x), MPFROMP(info));
[445]	712	WinSendDlgItemMsg(hwnd,
	713	CMD_LISTBOX,
	714	LM_SELECTITEM,
[551]	715	MPFROMSHORT(x), MPFROMSHORT(TRUE));
[445]	716	save_commands();
	717	}
[985]	718	}
[1039]	719	free(temp.pszCmdLine);
[551]	720	}
	721	x = (SHORT) WinSendDlgItemMsg(hwnd,
	722	CMD_LISTBOX,
	723	LM_QUERYSELECTION,
[985]	724	MPFROMSHORT(LIT_FIRST), MPVOID);
[551]	725	WinDismissDlg(hwnd, 0);
	726	break;
[2]	727
[551]	728	case DID_CANCEL:
	729	WinDismissDlg(hwnd, 0);
	730	break;
[507]	731
[551]	732	case IDM_HELP:
	733	if (hwndHelp)
	734	WinSendMsg(hwndHelp,
	735	HM_DISPLAY_HELP,
	736	MPFROM2SHORT(HELP_COMMAND, 0), MPFROMSHORT(HM_RESOURCEID));
	737	break;
[507]	738
[551]	739	case CMD_ADD:
	740	{
[909]	741	COMMAND temp;
[920]	742	PSZ pszWorkBuf;
[909]	743	APIRET ret;
[2]	744
[985]	745	memset(&temp, 0, sizeof(COMMAND));
	746	temp.pszCmdLine = xmallocz(MaxComLineStrg, pszSrcFile, __LINE__);
	747	if (!temp.pszCmdLine)
[959]	748	break; //already complained
[985]	749	pszWorkBuf = xmalloc(MaxComLineStrg, pszSrcFile, __LINE__);
	750	if (!pszWorkBuf) {
[1039]	751	free(temp.pszCmdLine);
[985]	752	break; //already complained
	753	}
	754	WinQueryDlgItemText(hwnd, CMD_CL, MaxComLineStrg, temp.pszCmdLine);
	755	NormalizeCmdLine(pszWorkBuf, temp.pszCmdLine);
	756	memcpy(temp.pszCmdLine, pszWorkBuf, strlen(pszWorkBuf) + 1);
[1039]	757	free(pszWorkBuf);
[985]	758	if (!strchr(temp.pszCmdLine, '%')){
[909]	759	ret = saymsg(MB_YESNO,
	760	HWND_DESKTOP,
	761	NullStr,
	762	GetPString(IDS_TOACTONSELECTEDTEXT));
	763	if (ret == MBID_YES)
[985]	764	strcat(temp.pszCmdLine, " %a");
[909]	765	}
[551]	766	WinQueryDlgItemText(hwnd, CMD_TITLE, sizeof(temp.title), temp.title);
	767	if (WinQueryButtonCheckstate(hwnd, CMD_DEFAULT))
	768	temp.flags = 0;
	769	else if (WinQueryButtonCheckstate(hwnd, CMD_FULLSCREEN))
	770	temp.flags = FULLSCREEN;
	771	else if (WinQueryButtonCheckstate(hwnd, CMD_MINIMIZED))
	772	temp.flags = MINIMIZED;
	773	else if (WinQueryButtonCheckstate(hwnd, CMD_MAXIMIZED))
	774	temp.flags = MAXIMIZED;
	775	else if (WinQueryButtonCheckstate(hwnd, CMD_INVISIBLE))
	776	temp.flags = INVISIBLE;
	777	if (WinQueryButtonCheckstate(hwnd, CMD_KEEP))
	778	temp.flags \|= KEEP;
	779	if (WinQueryButtonCheckstate(hwnd, CMD_PROMPT))
	780	temp.flags \|= PROMPT;
	781	if (WinQueryButtonCheckstate(hwnd, CMD_ONCE))
[909]	782	temp.flags \|= ONCE;
	783	if (fCancelAction){
	784	fCancelAction = FALSE;
[1039]	785	free(temp.pszCmdLine);
[909]	786	break;
	787	}
	788	else
	789	info = add_command(&temp);
[551]	790	if (!info) {
	791	saymsg(MB_ENTER, hwnd, GetPString(IDS_ERRORTEXT),
[552]	792	GetPString(IDS_CANTADDCOMMANDTEXTDUP), temp.title);
[551]	793	}
	794	else {
	795	CHAR env[1002];
[2]	796
[551]	797	*env = 0;
	798	WinQueryDlgItemText(hwnd, CMD_ENVIRON, 1000, env);
	799	bstripcr(env);
	800	if (*env) {
[985]	801	PrfWriteProfileString(fmprof, FM3Str, temp.pszCmdLine, env);
[445]	802	}
[551]	803	x = (SHORT) WinSendDlgItemMsg(hwnd,
	804	CMD_LISTBOX,
	805	LM_INSERTITEM,
	806	MPFROM2SHORT(LIT_END, 0),
	807	MPFROMP(temp.title));
	808	if (x >= 0) {
	809	WinSendDlgItemMsg(hwnd,
	810	CMD_LISTBOX,
	811	LM_SETITEMHANDLE,
	812	MPFROMSHORT(x), MPFROMP(info));
	813	WinSendDlgItemMsg(hwnd,
	814	CMD_LISTBOX,
	815	LM_SELECTITEM,
	816	MPFROMSHORT(x), MPFROMSHORT(TRUE));
	817	save_commands();
	818	}
[985]	819	}
[1039]	820	free(temp.pszCmdLine);
[551]	821	}
	822	break;
[2]	823
[551]	824	case CMD_DELETE:
	825	{
	826	CHAR temp[34];
[2]	827
[551]	828	WinQueryDlgItemText(hwnd, CMD_TITLE, 34, temp);
	829	bstrip(temp);
	830	if (!kill_command(temp))
	831	Runtime_Error(pszSrcFile, __LINE__, "kill_command");
	832	else {
	833	x = (SHORT) WinSendDlgItemMsg(hwnd,
	834	CMD_LISTBOX,
	835	LM_QUERYSELECTION,
	836	MPFROMSHORT(LIT_FIRST), MPVOID);
	837	if (x >= 0) {
	838	WinSendDlgItemMsg(hwnd,
	839	CMD_LISTBOX,
	840	LM_DELETEITEM, MPFROMSHORT(x), MPVOID);
	841	WinSendDlgItemMsg(hwnd,
	842	CMD_LISTBOX,
	843	LM_SELECTITEM,
	844	MPFROMSHORT(LIT_NONE), MPFROMSHORT(FALSE));
[445]	845	}
[551]	846	save_commands();
	847	}
	848	}
	849	break;
[985]	850
[551]	851	case CMD_REPLACE:
[909]	852	{ //Delete first
[920]	853	PSZ pszWorkBuf;
[909]	854	COMMAND temp;
	855	APIRET ret;
	856
[985]	857	pszWorkBuf = xmalloc(MaxComLineStrg, pszSrcFile, __LINE__);
	858	if (!pszWorkBuf) {
[959]	859	break; //already complained
[985]	860	}
	861	memset(&temp, 0, sizeof(COMMAND));
	862	temp.pszCmdLine = xmallocz(MaxComLineStrg, pszSrcFile, __LINE__);
	863	if (!temp.pszCmdLine) {
[1039]	864	free(pszWorkBuf);
[985]	865	break; //already complained
	866	}
	867	WinQueryDlgItemText(hwnd, CMD_CL, MaxComLineStrg, temp.pszCmdLine);
	868	NormalizeCmdLine(pszWorkBuf, temp.pszCmdLine);
	869	memcpy(temp.pszCmdLine, pszWorkBuf, strlen(pszWorkBuf) + 1);
[1039]	870	free(pszWorkBuf);
[909]	871	if (fCancelAction){
	872	fCancelAction = FALSE;
[1039]	873	free(temp.pszCmdLine);
[909]	874	break;
	875	}
[985]	876	if (!strchr(temp.pszCmdLine, '%')){
[909]	877	ret = saymsg(MB_YESNO,
	878	HWND_DESKTOP,
	879	NullStr,
	880	GetPString(IDS_TOACTONSELECTEDTEXT));
	881	if (ret == MBID_YES)
[985]	882	strcat(temp.pszCmdLine, " %a");
[909]	883	}
	884	//remember item location in the list
[574]	885	y = (SHORT) WinSendDlgItemMsg(hwnd,
[909]	886	CMD_LISTBOX,
	887	LM_QUERYSELECTION,
	888	MPFROMSHORT(LIT_CURSOR), MPVOID);
	889	WinQueryDlgItemText(hwnd, CMD_TITLE, sizeof(temp.title), temp.title);
	890	bstrip(temp.title);
	891	if (kill_command(temp.title)){
[551]	892	x = (SHORT) WinSendDlgItemMsg(hwnd,
	893	CMD_LISTBOX,
	894	LM_QUERYSELECTION,
	895	MPFROMSHORT(LIT_FIRST), MPVOID);
	896	if (x >= 0) {
	897	WinSendDlgItemMsg(hwnd,
	898	CMD_LISTBOX,
	899	LM_DELETEITEM, MPFROMSHORT(x), MPVOID);
	900	WinSendDlgItemMsg(hwnd,
	901	CMD_LISTBOX,
	902	LM_SELECTITEM,
	903	MPFROMSHORT(LIT_NONE), MPFROMSHORT(FALSE));
[507]	904	}
[909]	905	} // then do an add
	906	if (WinQueryButtonCheckstate(hwnd, CMD_DEFAULT))
	907	temp.flags = 0;
	908	else if (WinQueryButtonCheckstate(hwnd, CMD_FULLSCREEN))
	909	temp.flags = FULLSCREEN;
	910	else if (WinQueryButtonCheckstate(hwnd, CMD_MINIMIZED))
	911	temp.flags = MINIMIZED;
	912	else if (WinQueryButtonCheckstate(hwnd, CMD_MAXIMIZED))
	913	temp.flags = MAXIMIZED;
	914	else if (WinQueryButtonCheckstate(hwnd, CMD_INVISIBLE))
	915	temp.flags = INVISIBLE;
	916	if (WinQueryButtonCheckstate(hwnd, CMD_KEEP))
	917	temp.flags \|= KEEP;
	918	if (WinQueryButtonCheckstate(hwnd, CMD_PROMPT))
	919	temp.flags \|= PROMPT;
	920	if (WinQueryButtonCheckstate(hwnd, CMD_ONCE))
	921	temp.flags \|= ONCE;
	922	info = add_command(&temp);
	923	if (!info) {
	924	saymsg(MB_ENTER, hwnd, GetPString(IDS_ERRORTEXT),
	925	GetPString(IDS_CANTADDCOMMANDTEXT),
	926	temp.title);
	927	}
[507]	928
[551]	929	else {
	930	CHAR env[1002];
[507]	931
[551]	932	*env = 0;
	933	WinQueryDlgItemText(hwnd, CMD_ENVIRON, 1000, env);
	934	bstripcr(env);
	935	if (*env) {
[985]	936	PrfWriteProfileString(fmprof, FM3Str, temp.pszCmdLine, env);
[909]	937	} //put item back in original place
[551]	938	x = (SHORT) WinSendDlgItemMsg(hwnd,
	939	CMD_LISTBOX,
	940	LM_INSERTITEM,
[574]	941	MPFROM2SHORT(y, 0),
[551]	942	MPFROMP(temp.title));
[909]	943	if (x >= 0) {
	944	LINKCMDS temphead = NULL,last = NULL, *temptail = NULL;
	945	SHORT numitems, sSelect = 0;
	946
[551]	947	WinSendDlgItemMsg(hwnd,
	948	CMD_LISTBOX,
	949	LM_SETITEMHANDLE,
	950	MPFROMSHORT(x), MPFROMP(info));
	951	WinSendDlgItemMsg(hwnd,
	952	CMD_LISTBOX,
	953	LM_SELECTITEM,
[574]	954	MPFROMSHORT(x), MPFROMSHORT(TRUE));
[909]	955	//then reorder
	956	numitems = (SHORT) WinSendDlgItemMsg(hwnd, CMD_LISTBOX,
	957	LM_QUERYITEMCOUNT,
	958	MPVOID, MPVOID);
[574]	959
[909]	960	while (numitems) {
	961
	962
	963	info = (LINKCMDS *) WinSendDlgItemMsg(hwnd, CMD_LISTBOX,
	964	LM_QUERYITEMHANDLE,
	965	MPFROMSHORT(sSelect++),
	966	MPVOID);
	967	if (info) {
	968	if (!temphead) {
	969	temphead = info;
	970	info->prev = NULL;
	971	}
	972	else {
	973	last->next = info;
	974	info->prev = last;
	975	}
	976	temptail = info;
	977	last = info;
	978	info->next = NULL;
	979	}
	980	numitems--;
	981	}
	982	cmdhead = temphead;
	983	cmdtail = temptail;
	984	save_commands();
	985	}
[574]	986	}
[1039]	987	free(temp.pszCmdLine);
[2]	988	}
[551]	989	break;
	990	}
	991	return 0;
[2]	992	}
[551]	993	return WinDefDlgProc(hwnd, msg, mp1, mp2);
[2]	994	}
	995
[551]	996	VOID RunCommand(HWND hwnd, INT cx)
[347]	997	{
[551]	998	INT x;
	999	CHAR **list;
	1000	LINKCMDS *info;
[2]	1001
	1002	list = BuildList(hwnd);
[551]	1003	if (!list \|\| !list[0])
[2]	1004	return;
	1005	x = 0;
	1006	info = cmdhead;
[551]	1007	while (info) {
[2]	1008	x++;
[551]	1009	if (x == cx)
[2]	1010	break;
	1011	info = info->next;
	1012	}
[551]	1013	if (info) {
[2]	1014
[551]	1015	INT flags;
[2]	1016
	1017	x--;
	1018	flags = info->flags;
[551]	1019	if (!(flags & FULLSCREEN))
[2]	1020	flags \|= WINDOWED;
[551]	1021	if (flags & KEEP)
[2]	1022	flags \|= SEPARATEKEEP;
	1023	else
	1024	flags \|= SEPARATE;
[204]	1025	flags &= ~(KEEP \| DIEAFTER);
[551]	1026	if ((flags & ONCE) && list && list[0]) {
[2]	1027
[551]	1028	CHAR *fakelist[2];
	1029	INT cntr;
[2]	1030
	1031	flags &= (~ONCE);
[551]	1032	for (cntr = 0; list[cntr]; cntr++) {
[445]	1033	*fakelist = list[cntr];
	1034	fakelist[1] = NULL;
	1035	ExecOnList(hwnd,
[989]	1036	info->pszCmdLine,
[888]	1037	flags, NULL, fakelist, GetPString(IDS_EXECCMDTITLETEXT),
	1038	pszSrcFile, __LINE__);
[2]	1039	}
	1040	}
	1041	else
	1042	ExecOnList(hwnd,
[989]	1043	info->pszCmdLine,
[888]	1044	flags, NULL, list, GetPString(IDS_EXECCMDTITLETEXT),
	1045	pszSrcFile, __LINE__);
[2]	1046	}
	1047	FreeList(list);
	1048	DosPostEventSem(CompactSem);
	1049	}
	1050
[551]	1051	VOID EditCommands(HWND hwnd)
[347]	1052	{
[2]	1053	static CHAR stop = 0;
	1054
[551]	1055	if (stop)
[2]	1056	return;
	1057	stop++;
[551]	1058	if (!cmdloaded)
[2]	1059	load_commands();
	1060	WinDlgBox(HWND_DESKTOP,
[551]	1061	hwnd, CommandDlgProc, FM3ModHandle, CMD_FRAME, MPFROMP(&hwnd));
[2]	1062	stop = 0;
	1063	}
[793]	1064
	1065	#pragma alloc_text(COMMAND,command_title,free_commands,add_command,kill_command)
	1066	#pragma alloc_text(COMMAND,CommandDlgProc,EditCommands,ReOrderProc,CommandTextProc)

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

Download in other formats: