source: trunk/dll/command.c@ 985

Last change on this file since 985 was 985, checked in by Gregg Young, 17 years ago

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