Context Navigation

source: trunk/dll/systemf.c@ 1807

Visit:

Last change on this file since 1807 was 1749, checked in by John Small, 12 years ago
Ticket #522: Ensure use of wrapper functions where needed
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 36.3 KB

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

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

Download in other formats: