Context Navigation

source: trunk/dll/systemf.c@ 1375

Visit:

Last change on this file since 1375 was 1375, checked in by Gregg Young, 17 years ago
Updated history; comments minor code cleanup for recent changes
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 38.0 KB

Rev	Line
[78]	1
	2	/***********************************************************************
	3
	4	$Id: systemf.c 1375 2009-01-04 17:08: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
[1375]	26	03 Jan 09 GKY Check for system that is protectonly to gray out Dos/Win command lines and prevent
	27	Dos/Win programs from being inserted into the execute dialog with message why.
[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];
[1369]	678	BOOL fNoErrorMsg = FALSE;
[540]	679
[519]	680	typedef struct {
	681	USHORT usSessID;
	682	USHORT usRC;
	683	} TERMINFO;
	684
[540]	685	TERMINFO *pTermInfo;
[105]	686	BYTE bPriority;
	687	APIRET rc;
[519]	688	PIB *ppib;
	689	TIB *ptib;
[2]	690
[540]	691	// Shared by all threads
	692	# define TERMQ_BASE_NAME "\\QUEUES\\FM3WAIT"
	693	static char szTermQName[30];
	694	static HQUEUE hTermQ;
[1271]	695	static HEV hTermQSem;
[540]	696
	697	if (pszDirectory && *pszDirectory) {
	698	if (!DosQueryPathInfo(pszDirectory,
[1162]	699	FIL_QUERYFULLNAME,
	700	szTempdir,
	701	sizeof(szTempdir)))
[540]	702	pszDirectory = szTempdir;
[105]	703	}
[2]	704
[105]	705	if (!hwnd)
	706	hwnd = HWND_DESKTOP;
[2]	707
[540]	708	rc = DosAllocMem((PVOID)&pszPgm,
[1162]	709	MaxComLineStrg,
	710	PAG_COMMIT \| OBJ_TILE \| PAG_READ \| PAG_WRITE);
[330]	711	if (rc) {
	712	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,GetPString(IDS_OUTOFMEMORY));
[105]	713	return -1;
[330]	714	}
[2]	715
[540]	716	*szSavedir = 0;
[2]	717
[540]	718	*pszPgm = 0;
[105]	719	va_start(parguments,
[1162]	720	formatstring);
[540]	721	vsprintf(pszPgm,
[1162]	722	formatstring,
	723	parguments);
[105]	724	va_end(parguments);
[906]	725
[540]	726	if (pszEnvironment) {
	727	p = &pszEnvironment[strlen(pszEnvironment)] + 1;
[105]	728	*p = 0;
[540]	729	p = pszEnvironment;
[373]	730	while ((p = convert_nl_to_nul(p)) != NULL)
	731	; // loop
[105]	732	}
[2]	733
[1369]	734	if (!stricmp(pszCallingFile, "init.c"))
	735	fNoErrorMsg = TRUE;
	736
[540]	737	if (!*pszPgm) {
[105]	738	p = GetCmdSpec(FALSE);
[540]	739	strcpy(pszPgm, p);
	740	if (!*pszPgm) {
[441]	741	Runtime_Error2(pszSrcFile, __LINE__, IDS_NODATATEXT);
[105]	742	return -1;
[441]	743	}
[105]	744	}
[2]	745
[540]	746	if (*pszPgm) {
	747	if (*pszPgm == '<' && strchr(pszPgm, '>')) {
[441]	748	/* is a workplace object */
[105]	749	HOBJECT hWPSObject;
	750	char temp;
[2]	751
[540]	752	p = strchr(pszPgm, '>');
[105]	753	p++;
	754	temp = *p;
[330]	755	if (temp) {
[1162]	756	rc = DosAllocMem((PVOID)&pszArgs,
	757	MaxComLineStrg * 2,
	758	PAG_COMMIT \| OBJ_TILE \| PAG_READ \| PAG_WRITE);
	759	if (rc)
	760	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,GetPString(IDS_OUTOFMEMORY));
[330]	761	}
[105]	762	else
[1162]	763	pszArgs = NULL;
[105]	764	*p = 0;
	765	/* Find the handle of the WPS object */
[540]	766	hWPSObject = WinQueryObject(pszPgm);
[105]	767	*p = temp;
[441]	768	if (hWPSObject != NULLHANDLE) {
[1162]	769	if (pszArgs && *p) {
	770	sprintf(pszArgs,"OPEN=DEFAULT;PARAMETERS=\"%s\"",p);
	771	WinSetObjectData(hWPSObject,pszArgs);
	772	}
	773	else
	774	WinSetObjectData(hWPSObject,"OPEN=DEFAULT");
	775	ret = 0;
[105]	776	}
	777	goto ObjectInterrupt;
	778	}
[2]	779
[773]	780	if ((type & RUNTYPE_MASK) == SYNCHRONOUS \|\|
[1162]	781	(type & RUNTYPE_MASK) == ASYNCHRONOUS \|\|
	782	(type & RUNTYPE_MASK) == DETACHED)
[105]	783	{
[540]	784	strip_lead_char(" \t", pszPgm);
	785	p = pszPgm;
[105]	786	wasquote = FALSE;
	787	while (*p &&
[1162]	788	(wasquote \|\|
	789	(*p != ' ' &&
	790	*p != '\t')))
[105]	791	{
[1162]	792	if (*p == '\"') {
	793	if (!wasquote) {
	794	wasquote = TRUE;
	795	memmove(p,
	796	p + 1,
	797	strlen(p));
	798	while (*p == ' ' \|\|
	799	*p == '\t')
	800	p++;
	801	}
	802	else {
	803	memmove(p,
	804	p + 1,
	805	strlen(p));
	806	break;
	807	}
	808	}
	809	else
	810	p++;
[105]	811	}
[441]	812	if (*p) {
[1162]	813	*p = 0;
	814	p++;
[105]	815	}
	816	else
[1162]	817	p = pszPgm;
	818	p[strlen(p) + 1] = 0; /* double-terminate args */
[540]	819	if (*pszPgm) {
[1162]	820	if (!strchr(pszPgm, '\\') &&
	821	!strchr(pszPgm, ':') &&
	822	pszDirectory &&
	823	*pszDirectory)
	824	{
	825	strcpy(szSavedir, pFM2SaveDirectory);
	826	switch_to(pszDirectory);
	827	}
	828	rc = DosQueryAppType(pszPgm,&ulAppType);
	829	if (!strchr(pszPgm, '\\') &&
	830	!strchr(pszPgm, ':') &&
	831	pszDirectory &&
	832	*pszDirectory)
	833	switch_to(szSavedir);
	834	if (rc) {
	835	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,
	836	GetPString(IDS_DOSQAPPTYPEFAILEDTEXT),
	837	pszPgm, pszCallingFile, uiLineNumber); // 26 May 08 SHL
	838	DosFreeMem(pszPgm);
	839	if (pszArgs)
	840	DosFreeMem(pszArgs);
	841	return -1;
	842	}
	843	if (ulAppType) {
	844	if (ulAppType & FAPPTYP_DLL \|\| ulAppType & FAPPTYP_VIRTDRV \|\|
	845	ulAppType & FAPPTYP_PHYSDRV \|\| ulAppType & FAPPTYP_PROTDLL)
	846	{
	847	Runtime_Error(pszSrcFile, __LINE__,
	848	GetPString(IDS_APPTYPEUNEXPECTEDTEXT),
	849	ulAppType, pszPgm, pszCallingFile, uiLineNumber); // 26 May 08 SHL
	850	if (pszPgm)
	851	DosFreeMem(pszPgm);
	852	if (pszArgs)
	853	DosFreeMem(pszArgs);
	854	return -1;
	855	}
	856	if (ulAppType & FAPPTYP_DOS \|\| ulAppType & FAPPTYP_WINDOWSREAL \|\|
	857	ulAppType & FAPPTYP_WINDOWSPROT \|\| ulAppType & FAPPTYP_WINDOWSPROT31)
	858	{
	859	Runtime_Error(pszSrcFile, __LINE__,
	860	GetPString(IDS_APPTYPEUNEXPECTEDTEXT),
	861	ulAppType, pszPgm, pszCallingFile, uiLineNumber); // 26 May 08 SHL
	862	if (pszPgm)
	863	DosFreeMem(pszPgm);
	864	if (pszArgs)
	865	DosFreeMem(pszArgs);
	866	return -1;
	867	}
	868	}
	869	memset(&results, 0, sizeof(results));
	870	if (pszDirectory && *pszDirectory) {
	871	strcpy(szSavedir, pFM2SaveDirectory);
	872	switch_to(pszDirectory);
	873	}
	874	ret = DosExecPgm(szObject, sizeof(szObject),
	875	((type & RUNTYPE_MASK) == ASYNCHRONOUS ? EXEC_ASYNC : 0) +
	876	((type & RUNTYPE_MASK) == DETACHED ? EXEC_BACKGROUND : 0),
	877	pszPgm, pszEnvironment, &results, pszPgm);
	878	if (pszDirectory && *pszDirectory)
	879	switch_to(szSavedir);
[1369]	880	if (ret && !fNoErrorMsg) {
[1162]	881	Dos_Error(MB_ENTER,ret,hwnd,pszSrcFile,__LINE__,
	882	GetPString(IDS_DOSEXECPGMFAILEDTEXT), pszPgm,
	883	pszCallingFile, uiLineNumber); // 26 May 08 SHL
	884	}
[105]	885	}
	886	}
[441]	887	else {
[519]	888	if (~type & FULLSCREEN)
[1162]	889	type \|= WINDOWED;
[985]	890	rc = DosAllocMem((PVOID) & pszArgs, MaxComLineStrg * 2,
[1162]	891	PAG_COMMIT \| OBJ_TILE \| PAG_READ \| PAG_WRITE);
[441]	892	if (rc) {
[1162]	893	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,GetPString(IDS_OUTOFMEMORY));
	894	DosFreeMem(pszPgm);
	895	return -1;
[105]	896	}
[540]	897	*pszArgs = 0;
	898	memset(&sdata, 0, sizeof(sdata));
	899	strip_lead_char(" \t", pszPgm);
	900	p = pszPgm;
[105]	901	wasquote = FALSE;
[441]	902	while (p && (wasquote \|\| (p != ' ' && *p != '\t'))) {
[1162]	903	if (*p == '\"') {
	904	if (!wasquote) {
	905	wasquote = TRUE;
	906	memmove(p, p + 1, strlen(p));
	907	while (p == ' ' \|\| p == '\t')
	908	p++;
	909	}
	910	else {
	911	memmove(p, p + 1, strlen(p));
	912	break;
	913	}
	914	}
	915	else
	916	p++;
[540]	917	} // while
[441]	918	if (*p) {
[1162]	919	*p = 0;
	920	p++;
[105]	921	}
	922	else
[1162]	923	p = NullStr;
[105]	924	if (*p)
[1162]	925	strcpy(pszArgs, p);
[2]	926
[540]	927	p = strrchr(pszPgm, '.');
[441]	928	if (p) {
[1162]	929	char temp[CCHMAXPATH + 1];
[2]	930
[1162]	931	if (!stricmp(p, ".BAT")) {
	932	strcpy(temp, pszPgm);
	933	strcpy(pszPgm, pszArgs);
	934	strcpy(pszArgs, "/C ");
	935	strcat(pszArgs, temp);
	936	strcat(pszArgs, " ");
	937	strcat(pszArgs, pszPgm);
	938	strcpy(pszPgm, GetCmdSpec(TRUE)); // DOS
	939	}
	940	else if (!stricmp(p, ".CMD") \|\| !stricmp(p, ".BTM")) {
	941	// Assume 4OS2 is BTM
	942	strcpy(temp, pszPgm);
	943	strcpy(pszPgm, pszArgs);
	944	strcpy(pszArgs, "/C ");
	945	strcat(pszArgs, temp);
	946	strcat(pszArgs, " ");
	947	strcat(pszArgs, pszPgm);
	948	strcpy(pszPgm, GetCmdSpec(FALSE)); // OS/2
	949	}
[105]	950	}
[2]	951
[888]	952	// goddamned OS/2 limit
[2]	953
[540]	954	if (strlen(pszPgm) + strlen(pszArgs) > 1024)
[1162]	955	pszArgs[1024 - strlen(pszPgm)] = 0;
[2]	956
[540]	957	if (!strchr(pszPgm, '\\') &&
[1162]	958	!strchr(pszPgm, ':') &&
	959	pszDirectory &&
	960	*pszDirectory)
[105]	961	{
[1162]	962	strcpy(szSavedir, pFM2SaveDirectory);
	963	switch_to(pszDirectory);
[105]	964	}
[562]	965	rc = DosQueryAppType(pszPgm,&ulAppType);
[540]	966	if (!strchr(pszPgm, '\\') &&
[1162]	967	!strchr(pszPgm, ':') &&
	968	pszDirectory &&
	969	*pszDirectory)
	970	switch_to(szSavedir);
[917]	971	if (rc) {
[1162]	972	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,
	973	GetPString(IDS_DOSQAPPTYPEFAILEDTEXT),
	974	pszPgm, pszCallingFile, uiLineNumber); // 26 May 08 SHL
	975	DosFreeMem(pszPgm);
	976	if (pszArgs)
	977	DosFreeMem(pszArgs);
	978	return -1;
[105]	979	}
[2]	980
[562]	981	if (ulAppType) {
[1162]	982	if (ulAppType & (FAPPTYP_DLL \| FAPPTYP_VIRTDRV \| FAPPTYP_PHYSDRV \| FAPPTYP_PROTDLL))
	983	{
	984	Runtime_Error(pszSrcFile, __LINE__,
	985	GetPString(IDS_APPTYPEUNEXPECTEDTEXT),
[1371]	986	ulAppType, pszPgm, pszCallingFile, uiLineNumber); // 26 May 08 SHL
[1162]	987	DosFreeMem(pszPgm);
	988	if (pszArgs)
	989	DosFreeMem(pszArgs);
	990	return -1;
	991	}
	992	ulAppType &= ~FAPPTYP_BOUND;
	993	if (ulAppType & (FAPPTYP_DOS \| FAPPTYP_WINDOWSREAL \| FAPPTYP_WINDOWSPROT \| FAPPTYP_WINDOWSPROT31))
	994	{
	995	if (ulAppType & (FAPPTYP_WINDOWSREAL \| FAPPTYP_WINDOWSPROT \| FAPPTYP_WINDOWSPROT31))
	996	{
	997	if (~type & FULLSCREEN &&
	998	ulAppType & (FAPPTYP_WINDOWSREAL \| FAPPTYP_WINDOWSPROT \| FAPPTYP_WINDOWSPROT31))
	999	{
	1000	ret = RunSeamless(pszPgm, pszArgs, hwnd);
	1001	if (pszPgm)
	1002	DosFreeMem(pszPgm);
	1003	if (pszArgs)
	1004	DosFreeMem(pszArgs);
	1005	return ret ? 0 : -1;
	1006	}
	1007	else {
	1008	strcat(pszPgm, " ");
	1009	strcat(pszPgm, pszArgs);
	1010	*pszArgs = 0;
	1011	if (ulAppType & (FAPPTYP_WINDOWSPROT \| FAPPTYP_WINDOWSREAL \| FAPPTYP_WINDOWSPROT31))
	1012	strcat(pszArgs, "/3 ");
	1013	strcat(pszArgs, pszPgm);
	1014	strcpy(pszPgm, "WINOS2.COM");
	1015	}
	1016	}
	1017	else {
	1018	if (~type & FULLSCREEN) {
	1019	type \|= WINDOWED;
	1020	ulAppType = SSF_TYPE_WINDOWEDVDM;
	1021	}
	1022	else {
	1023	type &= ~WINDOWED;
	1024	ulAppType = SSF_TYPE_VDM;
	1025	}
	1026	}
	1027	}
	1028	else if (ulAppType & FAPPTYP_32BIT) {
	1029	ulAppType &= ~FAPPTYP_32BIT;
	1030	if (ulAppType == FAPPTYP_WINDOWAPI)
	1031	ulAppType = SSF_TYPE_PM;
	1032	else if (ulAppType == FAPPTYP_WINDOWCOMPAT)
	1033	ulAppType = SSF_TYPE_WINDOWABLEVIO;
	1034	else if (ulAppType == FAPPTYP_NOTWINDOWCOMPAT) {
	1035	ulAppType = SSF_TYPE_FULLSCREEN;
	1036	type &= ~WINDOWED;
	1037	type \|= FULLSCREEN;
	1038	}
	1039	else /* ? */
	1040	ulAppType = SSF_TYPE_WINDOWABLEVIO;
	1041	}
	1042	else if (ulAppType == FAPPTYP_WINDOWAPI)
	1043	ulAppType = SSF_TYPE_PM;
	1044	else if (ulAppType == FAPPTYP_WINDOWCOMPAT)
	1045	ulAppType = SSF_TYPE_WINDOWABLEVIO;
	1046	else if (ulAppType == FAPPTYP_NOTWINDOWCOMPAT) {
	1047	type &= ~WINDOWED;
	1048	ulAppType = SSF_TYPE_FULLSCREEN;
	1049	}
	1050	else
	1051	ulAppType = SSF_TYPE_DEFAULT;
	1052	if ((type & FULLSCREEN \|\| ~type & WINDOWED) &&
	1053	ulAppType == SSF_TYPE_WINDOWABLEVIO)
	1054	{
	1055	ulAppType = SSF_TYPE_FULLSCREEN;
	1056	}
	1057	// fixme parens?
	1058	else if (type & FULLSCREEN \|\|
	1059	(type & WINDOWED && ulAppType == SSF_TYPE_WINDOWEDVDM))
	1060	{
	1061	ulAppType = SSF_TYPE_VDM;
	1062	}
[105]	1063	}
[562]	1064	if (ulAppType == SSF_TYPE_WINDOWEDVDM && type & SEPARATEKEEP) {
[1162]	1065	type &= ~SEPARATEKEEP;
	1066	type \|= SEPARATE;
[105]	1067	}
[2]	1068
[519]	1069	DosGetInfoBlocks(&ptib, &ppib);
	1070
[540]	1071	if (~type & WAIT)
[1162]	1072	useTermQ = FALSE;
[519]	1073	else {
[1162]	1074	rc = 0;
	1075	DosEnterCritSec();
	1076	if (!hTermQ) {
	1077	// Create term queue and event semaphore just once
	1078	sprintf(szTermQName, TERMQ_BASE_NAME "_%x", ppib->pib_ulpid);
	1079	rc = DosCreateQueue(&hTermQ, QUE_FIFO \| QUE_CONVERT_ADDRESS, szTermQName);
	1080	if (rc) {
	1081	hTermQ = (HQUEUE)0; // Try to survive
	1082	DosExitCritSec();
	1083	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,"DosCreateQueue");
	1084	}
	1085	else {
[1271]	1086	rc = DosCreateEventSem(NULL,(PHEV)&hTermQSem,0,FALSE);
[1162]	1087	if (rc) {
[1271]	1088	hTermQSem = (HEV)0; // Try to survive
[1162]	1089	DosCloseQueue(hTermQ);
	1090	hTermQ = (HQUEUE)0; // Try to survive
	1091	DosExitCritSec();
[1274]	1092	Dos_Error(MB_ENTER,rc,HWND_DESKTOP,pszSrcFile,__LINE__,"DoCreateEventSem");
[1162]	1093	}
	1094	// if (!rc) fprintf(stderr,"%s %d qcreated ptib %x hTermQ %x\n",__FILE__, __LINE__,ptib,hTermQ);
	1095	}
	1096	} // if 1st time
[1271]	1097	useTermQ = hTermQ && hTermQSem;
[1162]	1098	if (!rc)
	1099	DosExitCritSec();
[540]	1100	} // if wait
[562]	1101
	1102	memset(&sdata,0,sizeof(sdata));
[519]	1103	sdata.Length = sizeof(sdata);
[562]	1104	sdata.Related = type & (WAIT \| CHILD) ? SSF_RELATED_CHILD :
[1162]	1105	SSF_RELATED_INDEPENDENT;
[519]	1106	sdata.FgBg = type & BACKGROUND ? SSF_FGBG_BACK : SSF_FGBG_FORE;
	1107	sdata.TraceOpt = SSF_TRACEOPT_NONE;
[540]	1108	sdata.PgmName = pszPgm;
[562]	1109	if (*pszArgs)
[1321]	1110	sdata.PgmInputs = (PBYTE)pszArgs;
[562]	1111	if (useTermQ)
[1321]	1112	sdata.TermQ = (PBYTE)szTermQName;
	1113	sdata.Environment = (PBYTE)pszEnvironment;
[519]	1114	sdata.InheritOpt = SSF_INHERTOPT_PARENT;
[562]	1115	sdata.SessionType = ulAppType;
[540]	1116	sdata.ObjectBuffer = szObject;
	1117	sdata.ObjectBuffLen = sizeof(szObject);
[773]	1118	if ((type & RUNTYPE_MASK) == SEPARATEKEEP)
[1162]	1119	sdata.PgmControl \|= SSF_CONTROL_NOAUTOCLOSE;
[562]	1120	if (type & MAXIMIZED)
[1162]	1121	sdata.PgmControl \|= SSF_CONTROL_MAXIMIZE;
[562]	1122	if (type & MINIMIZED)
[1162]	1123	sdata.PgmControl \|= SSF_CONTROL_MINIMIZE;
[562]	1124	if (type & INVISIBLE)
[1162]	1125	sdata.PgmControl \|= SSF_CONTROL_INVISIBLE;
[562]	1126
[540]	1127	if (pszDirectory && *pszDirectory) {
[1162]	1128	strcpy(szSavedir, pFM2SaveDirectory);
	1129	switch_to(pszDirectory);
[105]	1130	}
[519]	1131	ret = DosStartSession(&sdata, &ulSessID, &sessPID);
[562]	1132
[563]	1133
[540]	1134	if (pszDirectory && *pszDirectory)
[1162]	1135	switch_to(szSavedir);
[562]	1136
[330]	1137	if (ret && ret != ERROR_SMG_START_IN_BACKGROUND) {
[1369]	1138	if (!fNoErrorMsg)
[1162]	1139	Dos_Error(MB_CANCEL,ret,hwnd,pszSrcFile,__LINE__,
	1140	GetPString(IDS_DOSSTARTSESSIONFAILEDTEXT),pszPgm,pszArgs,
	1141	pszCallingFile, uiLineNumber); // 26 May 08 SHL
[330]	1142	}
[441]	1143	else if (type & WAIT) {
[1162]	1144	if (!(type & (BACKGROUND \| MINIMIZED \| INVISIBLE)))
	1145	ShowSession(hwnd, sessPID);
[2]	1146
[1162]	1147	if (!useTermQ) {
	1148	STATUSDATA sd;
[2]	1149
[1162]	1150	memset(&sd, 0, sizeof(sd));
	1151	sd.Length = (USHORT) sizeof(sd);
	1152	sd.SelectInd = SET_SESSION_UNCHANGED;
	1153	sd.BondInd = SET_SESSION_UNCHANGED;
	1154	for (ctr = 0;; ctr++)
	1155	{
	1156	DosSleep(100);//05 Aug 07 GKY 200
	1157	if (DosSetSession(ulSessID, &sd)) // Check if session gone (i.e. finished)
	1158	break;
[1274]	1159	if (ctr > 10) {
[1162]	1160	ShowSession(hwnd, sessPID); // Show every 2 seconds
	1161	ctr = 0;
	1162	}
	1163	}
	1164	}
	1165	else {
	1166	for (ctr = 0;; ctr++)
	1167	{
	1168	if (ctr < 20) {
	1169	rc = DosReadQueue(hTermQ, &rq, &ulLength, (PPVOID)&pTermInfo, 0,
[1271]	1170	DCWW_NOWAIT, &bPriority, hTermQSem);
[1162]	1171	if (rc == ERROR_QUE_EMPTY) {
	1172	DosSleep(50);//05 Aug 07 GKY 100
	1173	continue;
	1174	}
	1175	}
	1176	else {
	1177	if (ctr == 20) {
	1178	ShowSession(hwnd, sessPID); // Show long running session
	1179	}
	1180	rc = DosReadQueue(hTermQ, &rq, &ulLength, (PPVOID)&pTermInfo, 0,
	1181	DCWW_WAIT, &bPriority, 0);
	1182	}
[540]	1183
[1162]	1184	if (rc) {
	1185	// Oh heck
	1186	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,"DosReadQueue");
	1187	DosSleep(100);//05 Aug 07 GKY 500
	1188	continue;
	1189	}
[540]	1190
[1274]	1191	// printf("%s %d DosReadQueue thread 0x%x sess %u sessRC %u rq.pid 0x%x rq.data 0x%x\n",
	1192	// __FILE__, __LINE__,ptib->tib_ordinal,pTermInfo->usSessID,pTermInfo->usRC,rq.pid, rq.ulData); fflush(stdout);
[562]	1193
[1274]	1194	if (pTermInfo->usSessID == ulSessID)
[1271]	1195	break; // Our session is done
[540]	1196
[1162]	1197	// Requeue session for other thread
	1198	{
	1199	static ULONG ulLastSessID;
	1200	// printf("%s %d requeue thread 0x%x our sess %u term sess %u term rc %u\n",
	1201	// __FILE__, __LINE__,ptib->tib_ordinal,ulSessID,pTermInfo->usSessID,pTermInfo->usRC); fflush(stdout);
	1202	// fixme to be gone when no longer needed for debug?
	1203	if (ulLastSessID) {
	1204	DosSleep(100);//05 Aug 07 GKY 500
	1205	ulLastSessID = pTermInfo->usSessID;
	1206	}
	1207	// requeue term report for other thread and do not free yet
	1208	rc = DosWriteQueue(hTermQ, rq.ulData, ulLength,(PVOID)pTermInfo, bPriority);
	1209	if (rc)
	1210	Dos_Error(MB_CANCEL,rc,hwnd,pszSrcFile,__LINE__,"DosWriteQueue");
	1211	DosSleep(50); //05 Aug 07 GKY 100 // Let other thread see queue entry
	1212	}
	1213	} // for
[540]	1214
[1162]	1215	ret = pTermInfo->usRC == 0; // Set 1 if rc 0 else 0
	1216	// printf("%s %d thread 0x%x term for sess %u\n",
	1217	// __FILE__, __LINE__,ptib->tib_ordinal,ulSessID);fflush(stdout);
	1218	DosFreeMem(pTermInfo);
	1219	}
[540]	1220	} // if wait
[105]	1221	else if (!(type & (BACKGROUND \| MINIMIZED \| INVISIBLE)))
[1162]	1222	ShowSession(hwnd, sessPID);
[105]	1223	}
	1224	}
[2]	1225
	1226	ObjectInterrupt:
	1227
[540]	1228	if (pszPgm)
	1229	DosFreeMem(pszPgm);
	1230	if (pszArgs)
	1231	DosFreeMem(pszArgs);
[562]	1232
[105]	1233	return ret;
[2]	1234	}
	1235
[519]	1236	//== Exec() Start application with WinStartApp ==
[1193]	1237	#if 0 // JBS 11 Sep 08
[105]	1238	HAPP Exec(HWND hwndNotify, BOOL child, char startdir, char env,
[1162]	1239	PROGTYPE progt, ULONG fl, char formatstring,...)
[78]	1240	{
[105]	1241	PROGDETAILS pgd;
[2]	1242	register char *p;
[105]	1243	char parameters = NULL, executable = NULL;
[519]	1244	HAPP happ = (HAPP)0;
[105]	1245	ULONG ulOptions = SAF_INSTALLEDCMDLINE;
	1246	BOOL wasquote;
	1247	va_list parguments;
[2]	1248
[105]	1249	if (child)
[2]	1250	ulOptions \|= SAF_STARTCHILDAPP;
	1251
[985]	1252	executable = xmallocz(MaxComLineStrg, pszSrcFile, __LINE__);
[330]	1253	if (executable) {
[105]	1254	va_start(parguments, formatstring);
	1255	vsprintf(executable, formatstring, parguments);
[2]	1256	va_end(parguments);
[105]	1257	strip_lead_char(" \t", executable);
[441]	1258	if (*executable) {
[985]	1259	parameters = xmalloc(MaxComLineStrg, pszSrcFile, __LINE__);
[441]	1260	if (parameters) {
[1162]	1261	p = executable;
	1262	wasquote = FALSE;
	1263	while (p && (wasquote \|\| (p != ' ' && *p != '\t'))) {
	1264	if (*p == '\"') {
	1265	if (!wasquote) {
	1266	wasquote = TRUE;
	1267	memmove(p, p + 1, strlen(p));
	1268	while (p == ' ' \|\| p == '\t')
	1269	p++;
	1270	}
	1271	else {
	1272	memmove(p, p + 1, strlen(p));
	1273	break;
	1274	}
	1275	}
	1276	else
	1277	p++;
	1278	}
	1279	if (*p) {
	1280	*p = 0;
	1281	p++;
	1282	}
	1283	else
	1284	p = NullStr;
	1285	if (*p)
	1286	strcpy(parameters, p);
[2]	1287
[1162]	1288	if (p && (!stricmp(p, ".BAT") \|\| !stricmp(p, ".CMD"))) {
	1289	char *temp;
[2]	1290
[1162]	1291	temp = xmalloc(CCHMAXPATH * 2,pszSrcFile,__LINE__);
	1292	if (temp) {
	1293	if (!stricmp(p, ".BAT")) {
	1294	strcpy(temp, executable);
	1295	strcpy(executable, parameters);
	1296	strcpy(parameters, "/C ");
	1297	strcat(parameters, temp);
	1298	strcat(parameters, " ");
	1299	strcat(parameters, executable);
	1300	strcpy(executable, GetCmdSpec(TRUE));
	1301	}
	1302	else if (!stricmp(p, ".CMD")) {
	1303	strcpy(temp, executable);
	1304	strcpy(executable, parameters);
	1305	strcpy(parameters, "/C ");
	1306	strcat(parameters, temp);
	1307	strcat(parameters, " ");
	1308	strcat(parameters, executable);
	1309	strcpy(executable, GetCmdSpec(FALSE));
	1310	}
	1311	free(temp);
	1312	}
	1313	}
[2]	1314
[1162]	1315	memset(&pgd, 0, sizeof(pgd));
	1316	pgd.Length = sizeof(pgd);
	1317	pgd.progt = *progt;
	1318	pgd.swpInitial.fl = fl;
	1319	pgd.pszEnvironment = env;
	1320	pgd.pszStartupDir = startdir;
	1321	pgd.pszParameters = *parameters ? parameters : NULL;
	1322	pgd.pszExecutable = executable;
	1323	pgd.swpInitial.hwndInsertBehind = HWND_TOP;
	1324	happ = WinStartApp(hwndNotify, &pgd, NULL, NULL, ulOptions);
	1325	free(parameters);
[2]	1326	}
	1327	}
[1039]	1328	free(executable);
[2]	1329	}
	1330	return happ;
	1331	}
[1162]	1332	#endif
[920]	1333	#pragma alloc_text(SYSTEMF,ShowSession,ExecOnList,runemf2)

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

Download in other formats: