Context Navigation

source: trunk/dll/systemf.c@ 1439

Visit:

Last change on this file since 1439 was 1439, checked in by Gregg Young, 16 years ago
Changes to allow high mem loading of dll; Refactor .LONGNAME and .SUBJECT EA fetch to FetchCommonEAs. Add szFSType to FillInRecordFromFSA use to bypass EA scan and size formatting for tree container; Fix labels/FS type to work on scan on NOPRESCAN Drives; Fixed dbl directory names on restore of dir cnrs; (Tickets 47, 339, 363, 368, 369, 370)
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 31.9 KB

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

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

Download in other formats: