Context Navigation

source: trunk/dll/systemf.c@ 1162

Visit:

Last change on this file since 1162 was 1162, checked in by John Small, 17 years ago
Ticket 187: Draft 1: Functions only
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 38.7 KB

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

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

Download in other formats: