Context Navigation

source: trunk/dll/systemf.c@ 907

Visit:

Last change on this file since 907 was 907, checked in by Steven Levine, 18 years ago
Avoid out of memory traps in Compare Directories Rework Compare Directories progress display for 2 second update rate Start refactoring to reduce dependence on fm3dll.h Add timer services (IsITimerExpired etc.)
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 37.8 KB

Line
1
2	/***********************************************************************
3
4	$Id: systemf.c 907 2008-01-06 07:26:17Z stevenhl $
5
6	System Interfaces
7
8	Copyright (c) 1993-98 M. Kimes
9	Copyright (c) 2003, 2006 Steven H.Levine
10
11	21 Nov 03 SHL Comments
12	31 Jul 04 SHL Indent -i2
13	01 Aug 04 SHL Rework lstrip/rstrip usage
14	17 Jul 06 SHL Use Runtime_Error
15	26 Jul 06 SHL Use convert_nl_to_nul
16	15 Aug 06 SHL More error popups
17	01 Nov 06 SHL runemf2: temp fix for hung windows caused by termq errors
18	03 Nov 06 SHL runemf2: rework termination queue logic to work for multiple threads
19	07 Jan 07 GKY Move error strings etc. to string file
20	06 Aug 07 GKY Reduce DosSleep times (ticket 148)
21	20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
22
23	***********************************************************************/
24
25	#include <stdlib.h>
26	#include <stdarg.h>
27	#include <string.h>
28	#include <ctype.h>
29
30	#define INCL_DOS
31	#define INCL_DOSERRORS
32	#define INCL_WIN
33	#define INCL_LONGLONG // dircnrs.h
34
35	#include "fm3dlg.h"
36	#include "fm3str.h"
37	#include "errutil.h" // Dos_Error...
38	#include "strutil.h" // GetPString
39	#include "pathutil.h"
40	#include "fm3dll.h"
41
42	static PSZ pszSrcFile = __FILE__;
43
44	#define MAXSTRG (4096) /* used to build command line strings */
45
46	//== ShowSession() bring session for foreground ==
47
48	BOOL ShowSession(HWND hwnd, PID pid)
49	{
50	HSWITCH hswitch;
51	SWCNTRL swctl;
52	ULONG rc;
53
54	hswitch = WinQuerySwitchHandle(pid ? (HWND)0 : hwnd, pid);
55	if (hswitch) {
56	rc = WinQuerySwitchEntry(hswitch, &swctl);
57	if (!rc) {
58	if (swctl.idProcess == pid && swctl.uchVisibility == SWL_VISIBLE)
59	rc = WinSwitchToProgram(hswitch);
60	if (!rc)
61	return TRUE;
62	// else saymsg(MB_ENTER,HWND_DESKTOP,DEBUG_STRING,"Failed: %lu/%lx",rc,rc);
63
64	}
65	}
66	return FALSE;
67	}
68
69	//== ExecOnList() Invoke runemf2 for command and file/directory list ==
70
71	int ExecOnList(HWND hwnd, char command, int flags, char tpath,
72	char *list, char prompt, PCSZ pszCallingFile, UINT uiLineNumber)
73	{
74	/* executes the command once for all files in list */
75
76	char path[CCHMAXPATH], commandline[2048], modpath[CCHMAXPATH], listfile[CCHMAXPATH],
77	p, pp, drive, file, ext, *dot;
78	register int x;
79	BOOL spaces;
80
81	if (!command \|\| !*command) {
82	Runtime_Error2(pszSrcFile, __LINE__, IDS_NODATATEXT);
83	return -1;
84	}
85	*listfile = 0;
86	bstrip(command);
87
88	*path = 0;
89	if (tpath && *tpath)
90	strcpy(path, tpath);
91	else if (*command != '<' \|\| !strchr(command, '>')) {
92	strcpy(path, command + (*command == '"'));
93	if (*command == '\"')
94	p = strchr(path, '\"');
95	else
96	p = strchr(path, ' ');
97	if (p)
98	*p = 0;
99	p = strrchr(path, '\\');
100	if (!p)
101	p = strrchr(path, ':');
102	if (p) {
103	if (*p == ':') {
104	p++;
105	*p = '\\';
106	p++;
107	}
108	*p = 0;
109	}
110	else
111	*path = 0;
112	}
113	if (!*path) {
114	if (list && list[0])
115	strcpy(path, list[0]);
116	p = strrchr(path, '\\');
117	if (!p)
118	p = strrchr(path, ':');
119	if (p) {
120	if (*p == ':') {
121	p++;
122	*p = '\\';
123	p++;
124	}
125	*p = 0;
126	}
127	else
128	*path = 0;
129	}
130	*modpath = 0;
131	if (list && list[0])
132	strcpy(modpath, list[0]);
133	p = strrchr(modpath, '\\');
134	if (!p)
135	p = strrchr(modpath, ':');
136	if (p) {
137	if (*p == ':') {
138	p++;
139	*p = '\\';
140	p++;
141	}
142	*p = 0;
143	}
144	else
145	*modpath = 0;
146	if (!*modpath)
147	strcpy(modpath, path);
148	if (*path)
149	MakeFullName(path);
150	if (*modpath)
151	MakeFullName(modpath);
152	if (IsFullName(path))
153	drive = toupper(*path);
154	else
155	drive = 0;
156
157	p = command; // substitue for special % sequences
158
159	pp = commandline;
160	*commandline = 0;
161	while (*p) {
162	if (*p == '%') {
163	switch (*(p + 1)) {
164	case '!': /* write list to file, add filename */
165	if (list) {
166	if (!*listfile) {
167	FILE *fp;
168
169	save_dir2(listfile);
170	if (listfile[strlen(listfile) - 1] != '\\')
171	strcat(listfile, "\\");
172	sprintf(&listfile[strlen(listfile)], "%s%03x",
173	LISTTEMPROOT, (clock() & 4095));
174	fp = xfopen(listfile, "w",pszSrcFile,__LINE__);
175	if (fp) {
176	for (x = 0; list[x]; x++)
177	{
178	fputs(list[x], fp);
179	if (list[x + 1])
180	fputc('\n', fp);
181	}
182	fclose(fp);
183	}
184	}
185	strcpy(pp, listfile);
186	pp += strlen(listfile);
187	}
188	p += 2;
189	break;
190
191	case 'c': /* add name of command processor */
192	{
193	char *env = GetCmdSpec(FALSE);
194
195	if (needs_quoting(env) && !strchr(env, '\"')) {
196	*pp = '\"';
197	pp++;
198	spaces = TRUE;
199	}
200	else
201	spaces = FALSE;
202	strcpy(pp, env);
203	p += 2;
204	pp += strlen(env);
205	if (spaces) {
206	*pp = '\"';
207	pp++;
208	}
209	}
210	break;
211
212	case 't': /* add Target directory */
213	if (needs_quoting(targetdir) && !strchr(targetdir, '\"')) {
214	*pp = '\"';
215	pp++;
216	spaces = TRUE;
217	}
218	else
219	spaces = FALSE;
220	strcpy(pp, targetdir);
221	p += 2;
222	pp += strlen(targetdir);
223	if (spaces) {
224	*pp = '\"';
225	pp++;
226	}
227	break;
228
229	case '$': /* add drive letter */
230	if (drive)
231	*pp = drive;
232	else {
233	ULONG ulDriveNum = 3, ulDriveMap;
234
235	DosQCurDisk(&ulDriveNum, &ulDriveMap);
236	*pp = (char) (ulDriveNum + '@');
237	}
238	pp++;
239	p += 2;
240	break;
241
242	case 'U': /* add path of first list component */
243	case 'u':
244	if (*modpath) {
245	if (needs_quoting(modpath) && !strchr(modpath, '\"')) {
246	spaces = TRUE;
247	*pp = '\"';
248	pp++;
249	}
250	else
251	spaces = FALSE;
252	if (*(p + 1) == 'u') {
253	strcpy(pp, modpath);
254	pp += strlen(modpath);
255	}
256	else {
257	strcpy(pp, modpath + 2);
258	pp += strlen(modpath + 2);
259	}
260	if (spaces) {
261	if (modpath[strlen(modpath) - 1] == '\\') {
262	*pp = '\\';
263	pp++;
264	}
265	*pp = '\"';
266	pp++;
267	}
268	}
269	else {
270	char temp[CCHMAXPATH];
271
272	save_dir2(temp);
273	if (needs_quoting(temp) && !strchr(temp, '\"')) {
274	spaces = TRUE;
275	*pp = '\"';
276	pp++;
277	}
278	else
279	spaces = FALSE;
280	strcpy(pp, temp);
281	pp += strlen(temp);
282	if (spaces) {
283	if (temp[strlen(temp) - 1] == '\\') {
284	*pp = '\\';
285	pp++;
286	}
287	*pp = '\"';
288	pp++;
289	}
290	}
291	p += 2;
292	break;
293
294	case 'P': /* add path of execution */
295	case 'p':
296	if (*path) {
297	if (needs_quoting(path) && !strchr(path, '\"')) {
298	spaces = TRUE;
299	*pp = '\"';
300	pp++;
301	}
302	else
303	spaces = FALSE;
304	if (*(p + 1) == 'p') {
305	strcpy(pp, path);
306	pp += strlen(path);
307	}
308	else {
309	strcpy(pp, path + 2);
310	pp += strlen(path + 2);
311	}
312	if (spaces) {
313	if (path[strlen(path) - 1] == '\\') {
314	*pp = '\\';
315	pp++;
316	}
317	*pp = '\"';
318	pp++;
319	}
320	}
321	else {
322	char temp[CCHMAXPATH];
323
324	save_dir2(temp);
325	if (needs_quoting(temp) && !strchr(temp, '\"')) {
326	spaces = TRUE;
327	*pp = '\"';
328	pp++;
329	}
330	else
331	spaces = FALSE;
332	strcpy(pp, temp);
333	pp += strlen(temp);
334	if (spaces) {
335	if (temp[strlen(temp) - 1] == '\\') {
336	*pp = '\\';
337	pp++;
338	}
339	*pp = '\"';
340	pp++;
341	}
342	}
343	p += 2;
344	break;
345
346	case 'D':
347	if (hwndMain) {
348	PCNRITEM pci;
349
350	pci = (PCNRITEM) WinSendMsg(WinWindowFromID(WinWindowFromID(
351	hwndTree, FID_CLIENT), TREE_CNR),
352	CM_QUERYRECORDEMPHASIS,
353	MPFROMLONG(CMA_FIRST),
354	MPFROMSHORT(CRA_CURSORED));
355	if (pci && (int) pci != -1 && *pci->pszFileName) {
356	if (needs_quoting(pci->pszFileName) &&
357	!strchr(pci->pszFileName, '\"'))
358	{
359	*pp = '\"';
360	pp++;
361	spaces = TRUE;
362	}
363	else
364	spaces = FALSE;
365	strcpy(pp, pci->pszFileName);
366	pp += strlen(pci->pszFileName);
367	if (spaces) {
368	*pp = '\"';
369	pp++;
370	}
371	}
372	}
373	p += 2;
374	break;
375
376	case 'd':
377	if (hwndMain) {
378	HENUM henum;
379	char retstr[CCHMAXPATH];
380	HWND hwndC, hwndDir;
381	USHORT id;
382	BOOL first = TRUE;
383
384	henum = WinBeginEnumWindows(hwndMain);
385	while ((hwndC = WinGetNextWindow(henum)) != NULLHANDLE) {
386	if (hwndC != hwndTree) {
387	id = WinQueryWindowUShort(hwndC, QWS_ID);
388	if (id) {
389	hwndDir = WinWindowFromID(hwndC, FID_CLIENT);
390	if (hwndDir) {
391	hwndDir = WinWindowFromID(hwndDir, DIR_CNR);
392	if (hwndDir) {
393	*retstr = 0;
394	WinSendMsg(hwndC, UM_CONTAINERDIR, MPFROMP(retstr), MPVOID);
395	if (*retstr) {
396	if (!first) {
397	*pp = ' ';
398	pp++;
399	}
400	first = FALSE;
401	if (needs_quoting(retstr) && !strchr(retstr, '\"')) {
402	*pp = '\"';
403	pp++;
404	spaces = TRUE;
405	}
406	else
407	spaces = FALSE;
408	strcpy(pp, retstr);
409	pp += strlen(retstr);
410	if (spaces) {
411	*pp = '\"';
412	pp++;
413	}
414	}
415	}
416	}
417	}
418	}
419	}
420	WinEndEnumWindows(henum);
421	}
422	p += 2;
423	break;
424
425	case '%':
426	*pp = '%';
427	pp++;
428	p += 2;
429	break;
430
431	case 'R':
432	case 'F':
433	case 'A':
434	case 'r':
435	case 'f':
436	case 'a':
437	case 'e':
438	if (list) {
439	for (x = 0; list[x]; x++)
440	{
441	file = strrchr(list[x], '\\');
442	if (!file)
443	file = strrchr(list[x], ':');
444	if (file)
445	file++;
446	else
447	file = list[x];
448	ext = strrchr(file, '.');
449	dot = ext;
450	if (ext)
451	ext++;
452	switch (*(p + 1)) {
453	case 'R':
454	case 'r':
455	if (pp + strlen(list[x]) > commandline + 1250)
456	goto BreakOut;
457	if (*(p + 1) == 'r') {
458	strcpy(pp, list[x]);
459	pp += strlen(list[x]);
460	}
461	else {
462	strcpy(pp, list[x] + 2);
463	pp += strlen(list[x] + 2);
464	}
465	break;
466
467	case 'F':
468	case 'f':
469	if (*(p + 1) == 'F' && dot)
470	*dot = 0;
471	if (pp + strlen(file) > commandline + 1250)
472	goto BreakOut;
473	if (needs_quoting(file)) {
474	spaces = TRUE;
475	*pp = '\"';
476	pp++;
477	}
478	else
479	spaces = FALSE;
480	strcpy(pp, file);
481	pp += strlen(file);
482	if (*(p + 1) == 'F' && dot)
483	*dot = '.';
484	if (spaces) {
485	if (*(pp - 1) != '\"') {
486	*pp = '\"';
487	pp++;
488	}
489	}
490	break;
491
492	case 'A':
493	case 'a':
494	if (pp + strlen(list[x]) > commandline + 1250)
495	goto BreakOut;
496	if (needs_quoting(list[x]) && !strchr(list[x], '\"')) {
497	spaces = TRUE;
498	*pp = '\"';
499	pp++;
500	}
501	else
502	spaces = FALSE;
503	if (*(p + 1) == 'a') {
504	strcpy(pp, list[x]);
505	pp += strlen(list[x]);
506	}
507	else {
508	strcpy(pp, list[x] + 2);
509	pp += strlen(list[x] + 2);
510	}
511	if (spaces) {
512	if (list[x][strlen(list[x]) - 1] == '\\') {
513	*pp = '\\';
514	pp++;
515	}
516	*pp = '\"';
517	pp++;
518	}
519	break;
520
521	case 'e':
522	if (ext) {
523	if (pp + strlen(ext) > commandline + 1250)
524	goto BreakOut;
525	if (needs_quoting(ext)) {
526	spaces = TRUE;
527	*pp = '\"';
528	pp++;
529	}
530	else
531	spaces = FALSE;
532	strcpy(pp, ext);
533	pp += strlen(ext);
534	if (spaces) {
535	if (*(pp - 1) != '\"') {
536	*pp = '\"';
537	pp++;
538	}
539	}
540	}
541	break;
542	}
543	if (list[x + 1]) {
544	*pp = ' ';
545	pp++;
546	}
547	}
548	}
549	p += 2;
550	break;
551
552	default:
553	pp = p;
554	p++;
555	pp++;
556	break;
557	}
558	}
559	else {
560	pp = p;
561	pp++;
562	p++;
563	}
564	*pp = 0;
565	}
566
567	BreakOut:
568
569	{
570	EXECARGS ex;
571	ULONG size;
572	int ret;
573
574	memset(&ex, 0, sizeof(EXECARGS));
575	size = sizeof(ex.environment) - 1;
576	PrfQueryProfileData(fmprof, FM3Str, command, ex.environment, &size);
577	if (flags & PROMPT) {
578	/* allow editing command line */
579	ex.flags = (flags & (~PROMPT));
580	ex.commandline = commandline;
581	strcpy(ex.path, path);
582	if (prompt)
583	strcpy(ex.title, prompt);
584	ret = WinDlgBox(HWND_DESKTOP, hwnd, CmdLineDlgProc, FM3ModHandle,
585	EXEC_FRAME, &ex);
586	if (ret != 1)
587	return (ret == 0) ? -1 : -2;
588	}
589	else
590	ex.flags = flags;
591	ex.flags &= (~PROMPT);
592	return runemf2(ex.flags, hwnd, pszCallingFile, uiLineNumber, path,
593	(*ex.environment) ? ex.environment : NULL,
594	"%s", commandline);
595	}
596	}
597
598	//== runemf2() run requested app, return -1 if problem starting else return app rc ==
599
600	int runemf2(int type, HWND hwnd, PCSZ pszCallingFile, UINT uiLineNumber,
601	char pszDirectory, char pszEnvironment,
602	char *formatstring,...)
603	{
604	/* example:
605
606	* status = runemf2(SEPARATE \| WINDOWED,
607	* hwnd, pszCallingFile, __LINE__,
608	* NullStr,
609	* NULL,
610	* "%s /C %s",
611	* getenv("COMSPEC"),
612	* batchfilename);
613	*
614	* use (HWND)0 for hwnd if window handle not handy.
615	* pszCallingFile and __LINE__ are used to determine caller for easier error tracking
616	*/
617
618	/*
619	* type bitmapped flag -- see FM3DLL.H
620	*/
621
622	va_list parguments;
623	int ret = -1;
624	RESULTCODES results;
625	STARTDATA sdata;
626	REQUESTDATA rq;
627	ULONG ulSessID;
628	ULONG ulLength;
629	UINT ctr;
630	ULONG ulAppType;
631	PID sessPID;
632	BOOL wasquote;
633	char pszPgm, pszArgs = NULL;
634	char szObject[32] = "", *p, szSavedir[CCHMAXPATH];
635	BOOL useTermQ = FALSE;
636	char szTempdir[CCHMAXPATH];
637
638	typedef struct {
639	USHORT usSessID;
640	USHORT usRC;
641	} TERMINFO;
642
643	TERMINFO *pTermInfo;
644	BYTE bPriority;
645	APIRET rc;
646	PIB *ppib;
647	TIB *ptib;
648
649	// Shared by all threads
650	# define TERMQ_BASE_NAME "\\QUEUES\\FM3WAIT"
651	static char szTermQName[30];
652	static HQUEUE hTermQ;
653	static HEV hTermQSem;
654
655	if (pszDirectory && *pszDirectory) {
656	if (!DosQueryPathInfo(pszDirectory,
657	FIL_QUERYFULLNAME,
658	szTempdir,
659	sizeof(szTempdir)))
660	pszDirectory = szTempdir;
661	}
662
663	if (!hwnd)
664	hwnd = HWND_DESKTOP;
665
666	rc = DosAllocMem((PVOID)&pszPgm,
667	MAXSTRG,
668	PAG_COMMIT \| OBJ_TILE \| PAG_READ \| PAG_WRITE);
669	if (rc) {
670	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,GetPString(IDS_OUTOFMEMORY));
671	return -1;
672	}
673
674	*szSavedir = 0;
675
676	*pszPgm = 0;
677	va_start(parguments,
678	formatstring);
679	vsprintf(pszPgm,
680	formatstring,
681	parguments);
682	va_end(parguments);
683
684	if (pszEnvironment) {
685	p = &pszEnvironment[strlen(pszEnvironment)] + 1;
686	*p = 0;
687	p = pszEnvironment;
688	while ((p = convert_nl_to_nul(p)) != NULL)
689	; // loop
690	}
691
692	if (!*pszPgm) {
693	p = GetCmdSpec(FALSE);
694	strcpy(pszPgm, p);
695	if (!*pszPgm) {
696	Runtime_Error2(pszSrcFile, __LINE__, IDS_NODATATEXT);
697	return -1;
698	}
699	}
700
701	if (*pszPgm) {
702	if (*pszPgm == '<' && strchr(pszPgm, '>')) {
703	/* is a workplace object */
704	HOBJECT hWPSObject;
705	char temp;
706
707	p = strchr(pszPgm, '>');
708	p++;
709	temp = *p;
710	if (temp) {
711	rc = DosAllocMem((PVOID)&pszArgs,
712	MAXSTRG * 2,
713	PAG_COMMIT \| OBJ_TILE \| PAG_READ \| PAG_WRITE);
714	if (rc)
715	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,GetPString(IDS_OUTOFMEMORY));
716	}
717	else
718	pszArgs = NULL;
719	*p = 0;
720	/* Find the handle of the WPS object */
721	hWPSObject = WinQueryObject(pszPgm);
722	*p = temp;
723	if (hWPSObject != NULLHANDLE) {
724	if (pszArgs && *p) {
725	sprintf(pszArgs,"OPEN=DEFAULT;PARAMETERS=\"%s\"",p);
726	WinSetObjectData(hWPSObject,pszArgs);
727	}
728	else
729	WinSetObjectData(hWPSObject,"OPEN=DEFAULT");
730	ret = 0;
731	}
732	goto ObjectInterrupt;
733	}
734
735	if ((type & RUNTYPE_MASK) == SYNCHRONOUS \|\|
736	(type & RUNTYPE_MASK) == ASYNCHRONOUS \|\|
737	(type & RUNTYPE_MASK) == DETACHED)
738	{
739	strip_lead_char(" \t", pszPgm);
740	p = pszPgm;
741	wasquote = FALSE;
742	while (*p &&
743	(wasquote \|\|
744	(*p != ' ' &&
745	*p != '\t')))
746	{
747	if (*p == '\"') {
748	if (!wasquote) {
749	wasquote = TRUE;
750	memmove(p,
751	p + 1,
752	strlen(p));
753	while (*p == ' ' \|\|
754	*p == '\t')
755	p++;
756	}
757	else {
758	memmove(p,
759	p + 1,
760	strlen(p));
761	break;
762	}
763	}
764	else
765	p++;
766	}
767	if (*p) {
768	*p = 0;
769	p++;
770	}
771	else
772	p = pszPgm;
773	p[strlen(p) + 1] = 0; /* double-terminate args */
774	if (*pszPgm) {
775	if (!strchr(pszPgm, '\\') &&
776	!strchr(pszPgm, ':') &&
777	pszDirectory &&
778	*pszDirectory)
779	{
780	save_dir2(szSavedir);
781	switch_to(pszDirectory);
782	}
783	rc = DosQueryAppType(pszPgm,&ulAppType);
784	if (!strchr(pszPgm, '\\') &&
785	!strchr(pszPgm, ':') &&
786	pszDirectory &&
787	*pszDirectory)
788	switch_to(szSavedir);
789	if (rc) {
790	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,
791	GetPString(IDS_DOSQAPPTYPEFAILEDTEXT),
792	pszPgm, pszCallingFile, __LINE__);
793	DosFreeMem(pszPgm);
794	if (pszArgs)
795	DosFreeMem(pszArgs);
796	return -1;
797	}
798	if (ulAppType) {
799	if (ulAppType & FAPPTYP_DLL \|\| ulAppType & FAPPTYP_VIRTDRV \|\|
800	ulAppType & FAPPTYP_PHYSDRV \|\| ulAppType & FAPPTYP_PROTDLL)
801	{
802	Runtime_Error(pszSrcFile, __LINE__,
803	GetPString(IDS_APPTYPEUNEXPECTEDTEXT),
804	ulAppType, pszPgm, pszCallingFile, __LINE__);
805	if (pszPgm)
806	DosFreeMem(pszPgm);
807	if (pszArgs)
808	DosFreeMem(pszArgs);
809	return -1;
810	}
811	if (ulAppType & FAPPTYP_DOS \|\| ulAppType & FAPPTYP_WINDOWSREAL \|\|
812	ulAppType & FAPPTYP_WINDOWSPROT \|\| ulAppType & FAPPTYP_WINDOWSPROT31)
813	{
814	Runtime_Error(pszSrcFile, __LINE__,
815	GetPString(IDS_APPTYPEUNEXPECTEDTEXT),
816	ulAppType, pszPgm, pszCallingFile, __LINE__);
817	if (pszPgm)
818	DosFreeMem(pszPgm);
819	if (pszArgs)
820	DosFreeMem(pszArgs);
821	return -1;
822	}
823	}
824	memset(&results, 0, sizeof(results));
825	if (pszDirectory && *pszDirectory) {
826	save_dir2(szSavedir);
827	switch_to(pszDirectory);
828	}
829	ret = DosExecPgm(szObject, sizeof(szObject),
830	((type & RUNTYPE_MASK) == ASYNCHRONOUS ? EXEC_ASYNC : 0) +
831	((type & RUNTYPE_MASK) == DETACHED ? EXEC_BACKGROUND : 0),
832	pszPgm, pszEnvironment, &results, pszPgm);
833	if (pszDirectory && *pszDirectory)
834	switch_to(szSavedir);
835	if (ret) {
836	Dos_Error(MB_ENTER,ret,hwnd,pszSrcFile,__LINE__,
837	GetPString(IDS_DOSEXECPGMFAILEDTEXT), pszPgm,
838	pszCallingFile, __LINE__);
839	}
840	}
841	}
842	else {
843	if (~type & FULLSCREEN)
844	type \|= WINDOWED;
845	rc = DosAllocMem((PVOID) & pszArgs, MAXSTRG * 2,
846	PAG_COMMIT \| OBJ_TILE \| PAG_READ \| PAG_WRITE);
847	if (rc) {
848	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,GetPString(IDS_OUTOFMEMORY));
849	DosFreeMem(pszPgm);
850	return -1;
851	}
852	*pszArgs = 0;
853	memset(&sdata, 0, sizeof(sdata));
854	strip_lead_char(" \t", pszPgm);
855	p = pszPgm;
856	wasquote = FALSE;
857	while (p && (wasquote \|\| (p != ' ' && *p != '\t'))) {
858	if (*p == '\"') {
859	if (!wasquote) {
860	wasquote = TRUE;
861	memmove(p, p + 1, strlen(p));
862	while (p == ' ' \|\| p == '\t')
863	p++;
864	}
865	else {
866	memmove(p, p + 1, strlen(p));
867	break;
868	}
869	}
870	else
871	p++;
872	} // while
873	if (*p) {
874	*p = 0;
875	p++;
876	}
877	else
878	p = NullStr;
879	if (*p)
880	strcpy(pszArgs, p);
881
882	p = strrchr(pszPgm, '.');
883	if (p) {
884	char temp[CCHMAXPATH + 1];
885
886	if (!stricmp(p, ".BAT")) {
887	strcpy(temp, pszPgm);
888	strcpy(pszPgm, pszArgs);
889	strcpy(pszArgs, "/C ");
890	strcat(pszArgs, temp);
891	strcat(pszArgs, " ");
892	strcat(pszArgs, pszPgm);
893	strcpy(pszPgm, GetCmdSpec(TRUE)); // DOS
894	}
895	else if (!stricmp(p, ".CMD") \|\| !stricmp(p, ".BTM")) {
896	// Assume 4OS2 is BTM
897	strcpy(temp, pszPgm);
898	strcpy(pszPgm, pszArgs);
899	strcpy(pszArgs, "/C ");
900	strcat(pszArgs, temp);
901	strcat(pszArgs, " ");
902	strcat(pszArgs, pszPgm);
903	strcpy(pszPgm, GetCmdSpec(FALSE)); // OS/2
904	}
905	}
906
907	// goddamned OS/2 limit
908
909	if (strlen(pszPgm) + strlen(pszArgs) > 1024)
910	pszArgs[1024 - strlen(pszPgm)] = 0;
911
912	if (!strchr(pszPgm, '\\') &&
913	!strchr(pszPgm, ':') &&
914	pszDirectory &&
915	*pszDirectory)
916	{
917	save_dir2(szSavedir);
918	switch_to(pszDirectory);
919	}
920	rc = DosQueryAppType(pszPgm,&ulAppType);
921	if (!strchr(pszPgm, '\\') &&
922	!strchr(pszPgm, ':') &&
923	pszDirectory &&
924	*pszDirectory)
925	switch_to(szSavedir);
926	if (rc){
927	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,
928	GetPString(IDS_DOSQAPPTYPEFAILEDTEXT),
929	pszPgm, pszCallingFile, __LINE__);
930	DosFreeMem(pszPgm);
931	if (pszArgs)
932	DosFreeMem(pszArgs);
933	return -1;
934	}
935
936	if (ulAppType) {
937	if (ulAppType & (FAPPTYP_DLL \| FAPPTYP_VIRTDRV \| FAPPTYP_PHYSDRV \| FAPPTYP_PROTDLL))
938	{
939	Runtime_Error(pszSrcFile, __LINE__,
940	GetPString(IDS_APPTYPEUNEXPECTEDTEXT),
941	pszPgm, pszCallingFile, __LINE__);
942	DosFreeMem(pszPgm);
943	if (pszArgs)
944	DosFreeMem(pszArgs);
945	return -1;
946	}
947	ulAppType &= ~FAPPTYP_BOUND;
948	if (ulAppType & (FAPPTYP_DOS \| FAPPTYP_WINDOWSREAL \| FAPPTYP_WINDOWSPROT \| FAPPTYP_WINDOWSPROT31))
949	{
950	if (ulAppType & (FAPPTYP_WINDOWSREAL \| FAPPTYP_WINDOWSPROT \| FAPPTYP_WINDOWSPROT31))
951	{
952	if (~type & FULLSCREEN &&
953	ulAppType & (FAPPTYP_WINDOWSREAL \| FAPPTYP_WINDOWSPROT \| FAPPTYP_WINDOWSPROT31))
954	{
955	ret = RunSeamless(pszPgm, pszArgs, hwnd);
956	if (pszPgm)
957	DosFreeMem(pszPgm);
958	if (pszArgs)
959	DosFreeMem(pszArgs);
960	return ret ? 0 : -1;
961	}
962	else {
963	strcat(pszPgm, " ");
964	strcat(pszPgm, pszArgs);
965	*pszArgs = 0;
966	if (ulAppType & (FAPPTYP_WINDOWSPROT \| FAPPTYP_WINDOWSREAL \| FAPPTYP_WINDOWSPROT31))
967	strcat(pszArgs, "/3 ");
968	strcat(pszArgs, pszPgm);
969	strcpy(pszPgm, "WINOS2.COM");
970	}
971	}
972	else {
973	if (~type & FULLSCREEN) {
974	type \|= WINDOWED;
975	ulAppType = SSF_TYPE_WINDOWEDVDM;
976	}
977	else {
978	type &= ~WINDOWED;
979	ulAppType = SSF_TYPE_VDM;
980	}
981	}
982	}
983	else if (ulAppType & FAPPTYP_32BIT) {
984	ulAppType &= ~FAPPTYP_32BIT;
985	if (ulAppType == FAPPTYP_WINDOWAPI)
986	ulAppType = SSF_TYPE_PM;
987	else if (ulAppType == FAPPTYP_WINDOWCOMPAT)
988	ulAppType = SSF_TYPE_WINDOWABLEVIO;
989	else if (ulAppType == FAPPTYP_NOTWINDOWCOMPAT) {
990	ulAppType = SSF_TYPE_FULLSCREEN;
991	type &= ~WINDOWED;
992	type \|= FULLSCREEN;
993	}
994	else /* ? */
995	ulAppType = SSF_TYPE_WINDOWABLEVIO;
996	}
997	else if (ulAppType == FAPPTYP_WINDOWAPI)
998	ulAppType = SSF_TYPE_PM;
999	else if (ulAppType == FAPPTYP_WINDOWCOMPAT)
1000	ulAppType = SSF_TYPE_WINDOWABLEVIO;
1001	else if (ulAppType == FAPPTYP_NOTWINDOWCOMPAT) {
1002	type &= ~WINDOWED;
1003	ulAppType = SSF_TYPE_FULLSCREEN;
1004	}
1005	else
1006	ulAppType = SSF_TYPE_DEFAULT;
1007	if ((type & FULLSCREEN \|\| ~type & WINDOWED) &&
1008	ulAppType == SSF_TYPE_WINDOWABLEVIO)
1009	{
1010	ulAppType = SSF_TYPE_FULLSCREEN;
1011	}
1012	// fixme parens?
1013	else if (type & FULLSCREEN \|\|
1014	(type & WINDOWED && ulAppType == SSF_TYPE_WINDOWEDVDM))
1015	{
1016	ulAppType = SSF_TYPE_VDM;
1017	}
1018	}
1019	if (ulAppType == SSF_TYPE_WINDOWEDVDM && type & SEPARATEKEEP) {
1020	type &= ~SEPARATEKEEP;
1021	type \|= SEPARATE;
1022	}
1023
1024	DosGetInfoBlocks(&ptib, &ppib);
1025
1026	if (~type & WAIT)
1027	useTermQ = FALSE;
1028	else {
1029	rc = 0;
1030	DosEnterCritSec();
1031	if (!hTermQ) {
1032	// Create term queue and event semaphore just once
1033	sprintf(szTermQName, TERMQ_BASE_NAME "_%x", ppib->pib_ulpid);
1034	rc = DosCreateQueue(&hTermQ, QUE_FIFO \| QUE_CONVERT_ADDRESS, szTermQName);
1035	if (rc) {
1036	hTermQ = (HQUEUE)0; // Try to survive
1037	DosExitCritSec();
1038	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,"DosCreateQueue");
1039	}
1040	else {
1041	rc = DosCreateEventSem(NULL,(PHEV)&hTermQSem,0,FALSE);
1042	if (rc) {
1043	hTermQSem = (HEV)0; // Try to survive
1044	DosCloseQueue(hTermQ);
1045	hTermQ = (HQUEUE)0; // Try to survive
1046	DosExitCritSec();
1047	Dos_Error(MB_ENTER,rc,HWND_DESKTOP,pszSrcFile,__LINE__,"DoCreateEventSem");
1048	}
1049	// if (!rc) fprintf(stderr,"%s %d qcreated ptib %x hTermQ %x\n",__FILE__, __LINE__,ptib,hTermQ);
1050	}
1051	} // if 1st time
1052	useTermQ = hTermQ && hTermQSem;
1053	if (!rc)
1054	DosExitCritSec();
1055	} // if wait
1056
1057	memset(&sdata,0,sizeof(sdata));
1058	sdata.Length = sizeof(sdata);
1059	sdata.Related = type & (WAIT \| CHILD) ? SSF_RELATED_CHILD :
1060	SSF_RELATED_INDEPENDENT;
1061	sdata.FgBg = type & BACKGROUND ? SSF_FGBG_BACK : SSF_FGBG_FORE;
1062	sdata.TraceOpt = SSF_TRACEOPT_NONE;
1063	sdata.PgmName = pszPgm;
1064	if (*pszArgs)
1065	sdata.PgmInputs = pszArgs;
1066	if (useTermQ)
1067	sdata.TermQ = szTermQName;
1068	sdata.Environment = pszEnvironment;
1069	sdata.InheritOpt = SSF_INHERTOPT_PARENT;
1070	sdata.SessionType = ulAppType;
1071	sdata.ObjectBuffer = szObject;
1072	sdata.ObjectBuffLen = sizeof(szObject);
1073	if ((type & RUNTYPE_MASK) == SEPARATEKEEP)
1074	sdata.PgmControl \|= SSF_CONTROL_NOAUTOCLOSE;
1075	if (type & MAXIMIZED)
1076	sdata.PgmControl \|= SSF_CONTROL_MAXIMIZE;
1077	if (type & MINIMIZED)
1078	sdata.PgmControl \|= SSF_CONTROL_MINIMIZE;
1079	if (type & INVISIBLE)
1080	sdata.PgmControl \|= SSF_CONTROL_INVISIBLE;
1081
1082	if (pszDirectory && *pszDirectory) {
1083	save_dir2(szSavedir);
1084	switch_to(pszDirectory);
1085	}
1086
1087	// printf("%s %d DosStartsession thread 0x%x data\n ",
1088	// __FILE__, __LINE__,ptib->tib_ordinal); fflush(stdout); // 10 Mar 07 SHL hang
1089	// printf(" %d %d %d %s %s %s %d %d\n %s %x %x\n",
1090	// sdata.Length , sdata.Related, sdata.FgBg, sdata.PgmName,
1091	// sdata.PgmInputs, sdata.TermQ, sdata.InheritOpt,
1092	// sdata.SessionType, szTermQName,
1093	// hTermQ, hTermQSem); fflush(stdout);
1094	ret = DosStartSession(&sdata, &ulSessID, &sessPID);
1095
1096	// if (type & WAIT) {
1097	// printf("%s %d DosStartession thread 0x%x rc = %d sess = %u pid = 0x%x\n",
1098	// __FILE__, __LINE__, ptib->tib_ordinal,ret, ulSessID, sessPID); fflush(stdout); // 10 Mar 07 SHL hang
1099	// }
1100	// else {
1101	// printf("%s %d DosStartession thread 0x%x nowait rc = %d\n",
1102	// __FILE__, __LINE__, ptib->tib_ordinal,ret); fflush(stdout); // 10 Mar 07 SHL hang
1103	// }
1104
1105	if (pszDirectory && *pszDirectory)
1106	switch_to(szSavedir);
1107
1108	if (ret && ret != ERROR_SMG_START_IN_BACKGROUND) {
1109	Dos_Error(MB_CANCEL,ret,hwnd,pszSrcFile,__LINE__,
1110	GetPString(IDS_DOSSTARTSESSIONFAILEDTEXT),pszPgm,pszArgs,
1111	pszCallingFile, __LINE__);
1112	}
1113	else if (type & WAIT) {
1114	if (!(type & (BACKGROUND \| MINIMIZED \| INVISIBLE)))
1115	ShowSession(hwnd, sessPID);
1116
1117	if (!useTermQ) {
1118	STATUSDATA sd;
1119	// Could not create queue - fallback - fixme to be gone?
1120	// printf("%s %d waiting wo/termq\n", __FILE__, __LINE__); fflush(stdout); // 12 Mar 07 SHL hang
1121
1122	memset(&sd, 0, sizeof(sd));
1123	sd.Length = (USHORT) sizeof(sd);
1124	sd.SelectInd = SET_SESSION_UNCHANGED;
1125	sd.BondInd = SET_SESSION_UNCHANGED;
1126	for (ctr = 0;; ctr++)
1127	{
1128	DosSleep(100);//05 Aug 07 GKY 200
1129	if (DosSetSession(ulSessID, &sd)) // Check if session gone (i.e. finished)
1130	break;
1131	if (ctr > 10) {
1132	// printf("%s %d thread 0x%x showing slow sess %u pid 0x%x\n",
1133	// __FILE__, __LINE__,ptib->tib_ordinal,ulSessID,sessPID); fflush(stdout); // 12 Mar 07 SHL
1134	ShowSession(hwnd, sessPID); // Show every 2 seconds
1135	ctr = 0;
1136	}
1137	}
1138	}
1139	else {
1140	for (ctr = 0;; ctr++)
1141	{
1142	if (ctr < 20) {
1143	rc = DosReadQueue(hTermQ, &rq, &ulLength, (PPVOID)&pTermInfo, 0,
1144	DCWW_NOWAIT, &bPriority, hTermQSem);
1145	if (rc == ERROR_QUE_EMPTY) {
1146	DosSleep(50);//05 Aug 07 GKY 100
1147	continue;
1148	}
1149	}
1150	else {
1151	if (ctr == 20) {
1152	// printf("%s %d thread 0x%x showing slow sess %u pid 0x%x\n",
1153	// __FILE__, __LINE__,ptib->tib_ordinal,ulSessID,sessPID); fflush(stdout);
1154	ShowSession(hwnd, sessPID); // Show long running session
1155	}
1156	rc = DosReadQueue(hTermQ, &rq, &ulLength, (PPVOID)&pTermInfo, 0,
1157	DCWW_WAIT, &bPriority, 0);
1158	}
1159
1160	if (rc) {
1161	// Oh heck
1162	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,"DosReadQueue");
1163	DosSleep(100);//05 Aug 07 GKY 500
1164	continue;
1165	}
1166
1167	// printf("%s %d DosReadQueue thread 0x%x sess %u sessRC %u rq.pid 0x%x rq.data 0x%x\n",
1168	// __FILE__, __LINE__,ptib->tib_ordinal,pTermInfo->usSessID,pTermInfo->usRC,rq.pid, rq.ulData); fflush(stdout);
1169
1170	if (pTermInfo->usSessID == ulSessID)
1171	break; // Our session is done
1172
1173	// Requeue session for other thread
1174	{
1175	static ULONG ulLastSessID;
1176	// printf("%s %d requeue thread 0x%x our sess %u term sess %u term rc %u\n",
1177	// __FILE__, __LINE__,ptib->tib_ordinal,ulSessID,pTermInfo->usSessID,pTermInfo->usRC); fflush(stdout);
1178	// fixme to be gone when no longer needed for debug?
1179	if (ulLastSessID) {
1180	DosSleep(100);//05 Aug 07 GKY 500
1181	ulLastSessID = pTermInfo->usSessID;
1182	}
1183	// requeue term report for other thread and do not free yet
1184	rc = DosWriteQueue(hTermQ, rq.ulData, ulLength,(PVOID)pTermInfo, bPriority);
1185	if (rc)
1186	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,"DosWriteQueue");
1187	DosSleep(50); //05 Aug 07 GKY 100 // Let other thread see queue entry
1188	}
1189	} // for
1190
1191	ret = pTermInfo->usRC == 0; // Set 1 if rc 0 else 0
1192	// printf("%s %d thread 0x%x term for sess %u\n",
1193	// __FILE__, __LINE__,ptib->tib_ordinal,ulSessID);fflush(stdout);
1194	DosFreeMem(pTermInfo);
1195	}
1196	} // if wait
1197	else if (!(type & (BACKGROUND \| MINIMIZED \| INVISIBLE)))
1198	ShowSession(hwnd, sessPID);
1199	}
1200	}
1201
1202	ObjectInterrupt:
1203
1204	if (pszPgm)
1205	DosFreeMem(pszPgm);
1206	if (pszArgs)
1207	DosFreeMem(pszArgs);
1208
1209	return ret;
1210	}
1211
1212	//== Exec() Start application with WinStartApp ==
1213
1214	HAPP Exec(HWND hwndNotify, BOOL child, char startdir, char env,
1215	PROGTYPE progt, ULONG fl, char formatstring,...)
1216	{
1217	PROGDETAILS pgd;
1218	register char *p;
1219	char parameters = NULL, executable = NULL;
1220	HAPP happ = (HAPP)0;
1221	ULONG ulOptions = SAF_INSTALLEDCMDLINE;
1222	BOOL wasquote;
1223	va_list parguments;
1224
1225	if (child)
1226	ulOptions \|= SAF_STARTCHILDAPP;
1227
1228	executable = xmallocz(MAXSTRG,pszSrcFile,__LINE__);
1229	if (executable) {
1230	va_start(parguments, formatstring);
1231	vsprintf(executable, formatstring, parguments);
1232	va_end(parguments);
1233	strip_lead_char(" \t", executable);
1234	if (*executable) {
1235	parameters = xmalloc(MAXSTRG,pszSrcFile,__LINE__);
1236	if (parameters) {
1237	p = executable;
1238	wasquote = FALSE;
1239	while (p && (wasquote \|\| (p != ' ' && *p != '\t'))) {
1240	if (*p == '\"') {
1241	if (!wasquote) {
1242	wasquote = TRUE;
1243	memmove(p, p + 1, strlen(p));
1244	while (p == ' ' \|\| p == '\t')
1245	p++;
1246	}
1247	else {
1248	memmove(p, p + 1, strlen(p));
1249	break;
1250	}
1251	}
1252	else
1253	p++;
1254	}
1255	if (*p) {
1256	*p = 0;
1257	p++;
1258	}
1259	else
1260	p = NullStr;
1261	if (*p)
1262	strcpy(parameters, p);
1263
1264	if (p && (!stricmp(p, ".BAT") \|\| !stricmp(p, ".CMD"))) {
1265	char *temp;
1266
1267	temp = xmalloc(CCHMAXPATH * 2,pszSrcFile,__LINE__);
1268	if (temp) {
1269	if (!stricmp(p, ".BAT")) {
1270	strcpy(temp, executable);
1271	strcpy(executable, parameters);
1272	strcpy(parameters, "/C ");
1273	strcat(parameters, temp);
1274	strcat(parameters, " ");
1275	strcat(parameters, executable);
1276	strcpy(executable, GetCmdSpec(TRUE));
1277	}
1278	else if (!stricmp(p, ".CMD")) {
1279	strcpy(temp, executable);
1280	strcpy(executable, parameters);
1281	strcpy(parameters, "/C ");
1282	strcat(parameters, temp);
1283	strcat(parameters, " ");
1284	strcat(parameters, executable);
1285	strcpy(executable, GetCmdSpec(FALSE));
1286	}
1287	free(temp);
1288	}
1289	}
1290
1291	memset(&pgd, 0, sizeof(pgd));
1292	pgd.Length = sizeof(pgd);
1293	pgd.progt = *progt;
1294	pgd.swpInitial.fl = fl;
1295	pgd.pszEnvironment = env;
1296	pgd.pszStartupDir = startdir;
1297	pgd.pszParameters = *parameters ? parameters : NULL;
1298	pgd.pszExecutable = executable;
1299	pgd.swpInitial.hwndInsertBehind = HWND_TOP;
1300	happ = WinStartApp(hwndNotify, &pgd, NULL, NULL, ulOptions);
1301	free(parameters);
1302	}
1303	}
1304	free(executable);
1305	}
1306	return happ;
1307	}
1308
1309	PSZ CheckApp_QuoteAddExe(PSZ pszPgm)
1310	{
1311	char szTempPgm[CCHMAXPATH], tempcom[CCHMAXPATH], temparg[CCHMAXPATH];
1312	char offset, offsetexe, offsetcom, offsetcmd, offsetbtm, offsetbat;
1313	APIRET ret;
1314	ULONG ulAppType;
1315	char *pszChar;
1316	FILEFINDBUF3 FindBuffer;
1317	ULONG ulResultBufLen = sizeof(FILEFINDBUF3);
1318	HDIR hdirFindHandle = HDIR_CREATE;
1319	ULONG ulFindCount = 1;
1320	PSZ pszQuotedCompletePgm;
1321
1322	bstrip(pszPgm);
1323	strcpy(tempcom, pszPgm);
1324	if (tempcom[0] != '\0'){
1325	offsetexe = strstr(strlwr(pszPgm), ".exe");
1326	offsetcmd = strstr(strlwr(pszPgm), ".cmd");
1327	offsetcom = strstr(strlwr(pszPgm), ".com");
1328	offsetbtm = strstr(strlwr(pszPgm), ".btm");
1329	offsetbat = strstr(strlwr(pszPgm), ".bat");
1330	if (offsetbat){
1331	if (strstr(strlwr(pszPgm), "command ") < offsetbat)
1332	offset = pszPgm;
1333	else
1334	offset = offsetbat;
1335	}
1336	else if (offsetbtm){
1337	if (strstr(strlwr(pszPgm), "4os2 ") < offsetbtm)
1338	offset = pszPgm;
1339	else
1340	offset = offsetbtm;
1341	}
1342	else if (offsetcmd){
1343	if (strstr(strlwr(pszPgm), "cmd ") < offsetcmd \|\|
1344	strstr(strlwr(pszPgm), "4os2 ") < offsetcmd)
1345	offset = pszPgm;
1346	else
1347	offset = offsetcmd;
1348	}
1349	else if (offsetcom)
1350	offset = offsetcom;
1351	else if (offsetexe)
1352	offset = offsetexe;
1353	else {
1354	offset = pszPgm;
1355	}
1356	if (offset - pszPgm != 0){
1357	tempcom[offset + 4 - pszPgm] = '\0';
1358	strcpy(temparg, &pszPgm[offset + 4 - pszPgm]);
1359	/*if ((offsetexe && !offsetcom && !offsetcmd && !offsetbtm && !offsetbat) \|\|
1360	(offsetcom && !offsetexe && !offsetcmd && !offsetbtm && !offsetbat) \|\|
1361	(offsetcmd && !offsetexe && !offsetcom && !offsetbtm && !offsetbat) \|\|
1362	(offsetbtm && !offsetexe && !offsetcom && !offsetcmd && !offsetbat) \|\|
1363	(offsetbat && !offsetexe && !offsetcom && !offsetcmd && !offsetbtm))*/
1364	remove_first_occurence_of_character("\"", tempcom);
1365	if (strchr(tempcom, '\"') != strrchr(tempcom, '\"'))
1366	saymsg(MB_OK, HWND_DESKTOP,
1367	NullStr,
1368	GetPString(IDS_QUOTESINARGSTEXT),
1369	pszPgm);
1370	else
1371	remove_first_occurence_of_character("\"", tempcom);
1372	if ((temparg[0] == '\"' && temparg[1] == ' ') \|\|
1373	!strstr(pszPgm, "\\:")\|\|
1374	strchr(temparg, '\"') == strrchr(temparg, '\"'))
1375	remove_first_occurence_of_character("\"", temparg);
1376	if (strchr(temparg, '\"') != strrchr(temparg, '\"'))
1377	saymsg(MB_OK, HWND_DESKTOP,
1378	NullStr,
1379	GetPString(IDS_QUOTESINARGSTEXT),
1380	pszPgm);
1381	if (!strstr(strlwr(tempcom), ".exe")) {
1382	ret = DosFindFirst(tempcom, &hdirFindHandle, FILE_NORMAL, &FindBuffer,
1383	ulResultBufLen, &ulFindCount, FIL_STANDARD);
1384	BldQuotedFileName(szTempPgm, tempcom);
1385	}
1386	else{
1387	BldQuotedFileName(szTempPgm, tempcom);
1388	ret = DosQueryAppType(tempcom, &ulAppType);
1389	}
1390	//printf("%d A", ret); fflush(stdout);
1391	if (ret) {
1392	ret = saymsg(MB_YESNO,
1393	HWND_DESKTOP,
1394	NullStr,
1395	GetPString(IDS_PROGRAMNOTFOUNDTEXT),
1396	pszPgm);
1397	if (ret == MBID_YES){
1398	if (temparg[0] != ' ')
1399	strcat(szTempPgm, " ");
1400	strcat(szTempPgm, temparg);
1401	pszQuotedCompletePgm = szTempPgm;
1402	}
1403	else{
1404	fCancelAction = TRUE;
1405	pszQuotedCompletePgm = pszPgm;
1406	}
1407	}
1408	else{
1409	if (temparg[0] != ' ')
1410	strcat(szTempPgm, " ");
1411	strcat(szTempPgm, temparg);
1412	pszQuotedCompletePgm = szTempPgm;
1413	}
1414
1415	}
1416	else if (tempcom && (!strchr(tempcom, '.') \|\|
1417	strrchr(tempcom, '.' ) < strrchr(tempcom, '\\'))){
1418	if (!strchr(tempcom, ' ')){
1419	while (strchr(tempcom, '\"'))
1420	remove_first_occurence_of_character("\"", tempcom);
1421	strcat(tempcom, ".exe");
1422	ret = DosFindFirst(tempcom, &hdirFindHandle, FILE_NORMAL, &FindBuffer,
1423	ulResultBufLen, &ulFindCount, FIL_STANDARD);
1424	//printf("%d", ret); fflush(stdout);
1425	}
1426	else{
1427	pszChar = tempcom;
1428	while (pszChar){
1429	while (strchr(tempcom, '\"'))
1430	remove_first_occurence_of_character("\"", tempcom);
1431	if (*pszChar == ' '){
1432	*pszChar = '\0';
1433	strcat(tempcom, ".exe");
1434	ret = DosQueryAppType(tempcom, &ulAppType);
1435	//printf("%d %s\n", ret, tempcom); fflush(stdout);
1436	if (!ret){
1437	break;
1438	}
1439	}
1440	strcpy(tempcom, pszPgm);
1441	pszChar++;
1442	}
1443	}
1444	if (!ret){
1445	BldQuotedFileName(szTempPgm, tempcom);
1446	strcpy(temparg, pszPgm + strlen(tempcom) - 3);
1447	if ((temparg[0] == '\"' && temparg[1] == ' ') \|\|
1448	!strstr(pszPgm, "\\:" ) \|\|
1449	strchr(temparg, '\"') == strrchr(temparg, '\"'))
1450	remove_first_occurence_of_character("\"", temparg);
1451	if (strchr(temparg, '\"') != strrchr(temparg, '\"'))
1452	saymsg(MB_OK, HWND_DESKTOP,
1453	NullStr,
1454	GetPString(IDS_QUOTESINARGSTEXT),
1455	pszPgm);
1456	if (temparg[0] != ' ')
1457	strcat(szTempPgm, " ");
1458	strcat(szTempPgm, temparg);
1459	pszQuotedCompletePgm = szTempPgm;
1460	}
1461	else {
1462	ret = saymsg(MB_OK,
1463	HWND_DESKTOP,
1464	NullStr,
1465	GetPString(IDS_PROGRAMNOTEXE2TEXT),
1466	pszPgm);
1467	fCancelAction = TRUE;
1468	pszQuotedCompletePgm = pszPgm;
1469	}
1470	}
1471	else {
1472	pszChar = strrchr(tempcom, '.');
1473	while (pszChar && *pszChar !=' '){
1474	pszChar++;
1475	}
1476	*pszChar = '\0';
1477	strcpy (temparg, pszPgm + strlen(tempcom));
1478	while (strchr(tempcom, '\"'))
1479	remove_first_occurence_of_character("\"", tempcom);
1480	if ((temparg[0] == '\"' && temparg[1] == ' ') \|\|
1481	!strstr(pszPgm, "\\:")\|\|
1482	strchr(temparg, '\"') == strrchr(temparg, '\"'))
1483	remove_first_occurence_of_character("\"", temparg);
1484	if (strchr(temparg, '\"') != strrchr(temparg, '\"'))
1485	saymsg(MB_OK, HWND_DESKTOP,
1486	NullStr,
1487	GetPString(IDS_QUOTESINARGSTEXT),
1488	pszPgm);
1489	ret = DosFindFirst(tempcom, &hdirFindHandle, FILE_NORMAL, &FindBuffer,
1490	ulResultBufLen, &ulFindCount, FIL_STANDARD);
1491
1492	BldQuotedFileName(szTempPgm, tempcom);
1493	//printf("%d %s ", ret, tempcom); fflush(stdout);
1494	if (ret) {
1495	ret = saymsg(MB_YESNO,
1496	HWND_DESKTOP,
1497	NullStr,
1498	GetPString(IDS_PROGRAMNOTFOUNDTEXT),
1499	pszPgm);
1500	if (ret == MBID_YES){
1501	if (temparg[0] != ' ')
1502	strcat(szTempPgm, " ");
1503	strcat(szTempPgm, temparg);
1504	pszQuotedCompletePgm = szTempPgm;
1505	}
1506	else{
1507	fCancelAction = TRUE;
1508	pszQuotedCompletePgm = pszPgm;
1509	}
1510	}
1511	ret = saymsg(MB_YESNO,
1512	HWND_DESKTOP,
1513	NullStr,
1514	GetPString(IDS_PROGRAMNOTEXE3TEXT),
1515	pszPgm);
1516	if (ret == MBID_YES){
1517	if (temparg[0] != ' ')
1518	strcat(szTempPgm, " ");
1519	strcat(szTempPgm, temparg);
1520	pszQuotedCompletePgm = szTempPgm;
1521	}
1522	else{
1523	fCancelAction = TRUE;
1524	pszQuotedCompletePgm = pszPgm;
1525	}
1526	}
1527	return pszQuotedCompletePgm;
1528	}
1529	return pszPgm;
1530	}
1531
1532	#pragma alloc_text(SYSTEMF,ShowSession,ExecOnList,runemf2)

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

Download in other formats: