Context Navigation

source: trunk/dll/systemf.c@ 1120

Visit:

Last change on this file since 1120 was 1104, checked in by Gregg Young, 17 years ago
Replace save_dir2(dir) with strcpy(dir, pFM2SaveDirectory)
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 31.5 KB

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

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

Download in other formats: