Context Navigation

source: trunk/dll/systemf.c@ 1272

Visit:

Last change on this file since 1272 was 1272, checked in by Gregg Young, 17 years ago
Remove priority_bumped from WaitChildThread and added some comments (Ticket 58)
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 39.2 KB

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

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

Download in other formats: