* win/Makefile.in, win/makefile.bc, win/makefile.vc, win/tcl.dsp:

        * win/tclWinPipe.c (TclpCreateProcess):
        * win/stub16.c (removed): removed Win9x tclpip8x.dll build and
        16-bit application loader stub support.  Win9x is no longer
        supported.

7 files changed, 20 insertions, 319 deletions

diff --git a/ChangeLog b/ChangeLog
index aac1bd1..164bf15 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2010-08-04  Jeff Hobbs  <jeffh@ActiveState.com>
 
+	* win/Makefile.in, win/makefile.bc, win/makefile.vc, win/tcl.dsp:
+	* win/tclWinPipe.c (TclpCreateProcess):
+	* win/stub16.c (removed): removed Win9x tclpip8x.dll build and
+	16-bit application loader stub support.  Win9x is no longer
+	supported.
+
 	* win/tclWin32Dll.c (TclWinInit): hard-enforce Windows 9x as an
 	unsupported platform with a panic.  Code to support it still
 	exists in other files (to go away in time), but new APIs are being
diff --git a/win/Makefile.in b/win/Makefile.in
index 61d9f07..f91fb14 100644
--- a/win/Makefile.in
+++ b/win/Makefile.in
@@ -4,7 +4,7 @@
 # "./configure", which is a configuration script generated by the "autoconf"
 # program (constructs like "@foo@" will get replaced in the actual Makefile.
 #
-# RCS: @(#) $Id: Makefile.in,v 1.181 2010/08/04 19:23:12 hobbs Exp $
+# RCS: @(#) $Id: Makefile.in,v 1.182 2010/08/04 21:37:18 hobbs Exp $
 
 VERSION = @TCL_VERSION@
 
@@ -136,10 +136,9 @@ REG_DLL_FILE		= tclreg$(REGVER)${DLLSUFFIX}
 REG_LIB_FILE		= @LIBPREFIX@tclreg$(REGVER)${LIBSUFFIX}
 TEST_DLL_FILE		= tcltest$(VER)${DLLSUFFIX}
 TEST_LIB_FILE		= @LIBPREFIX@tcltest$(VER)${LIBSUFFIX}
-PIPE_DLL_FILE		= tclpip$(VER)${DLLSUFFIX}
 ZLIB_DLL_FILE		= zlib1.dll
 
-SHARED_LIBRARIES 	= $(TCL_DLL_FILE) $(PIPE_DLL_FILE) @ZLIB_DLL_FILE@
+SHARED_LIBRARIES 	= $(TCL_DLL_FILE) @ZLIB_DLL_FILE@
 STATIC_LIBRARIES	= $(TCL_LIB_FILE) $(REG_LIB_FILE) $(DDE_LIB_FILE)
 
 # TCL_EXE is the name of a tclsh executable that is available *BEFORE* running
@@ -370,8 +369,6 @@ WIN_OBJS = \
 	tclWinThrd.$(OBJEXT) \
 	tclWinTime.$(OBJEXT)
 
-PIPE_OBJS = stub16.$(OBJEXT)
-
 DDE_OBJS = tclWinDde.$(OBJEXT)
 
 REG_OBJS = tclWinReg.$(OBJEXT)
@@ -481,12 +478,6 @@ ${TEST_DLL_FILE}: ${TCLTEST_OBJS} ${TCL_STUB_LIB_FILE}
 ${ZLIB_DLL_FILE}: $(ZLIB_DIR)/win32/${ZLIB_DLL_FILE}
 	@$(COPY) $(ZLIB_DIR)/win32/${ZLIB_DLL_FILE} ${ZLIB_DLL_FILE}
 
-# PIPE_DLL_FILE is actually an executable, don't build it like a DLL.
-
-${PIPE_DLL_FILE}: ${PIPE_OBJS}
-	@$(RM) ${PIPE_DLL_FILE}
-	@MAKE_EXE@ $(CFLAGS) ${PIPE_OBJS} $(LIBS) $(LDFLAGS_CONSOLE)
-
 # Add the object extension to the implicit rules. By default .obj is not
 # automatically added.
 
@@ -500,8 +491,7 @@ tclWinInit.${OBJEXT}: tclWinInit.c
 	$(CC) -c $(CC_SWITCHES) -DBUILD_tcl $(EXTFLAGS) @DEPARG@ $(CC_OBJNAME)
 
 tclWinPipe.${OBJEXT}: tclWinPipe.c
-	$(CC) -c $(CC_SWITCHES) -DBUILD_tcl -DTCL_PIPE_DLL=\"$(PIPE_DLL_FILE)\" \
-	    $(EXTFLAGS) @DEPARG@ $(CC_OBJNAME)
+	$(CC) -c $(CC_SWITCHES) -DBUILD_tcl $(EXTFLAGS) @DEPARG@ $(CC_OBJNAME)
 
 testMain.${OBJEXT}: tclAppInit.c
 	$(CC) -c $(CC_SWITCHES) -DTCL_TEST @DEPARG@ $(CC_OBJNAME)
@@ -590,7 +580,7 @@ install-binaries: binaries
 		else true; \
 		fi; \
 	    done;
-	@for i in $(TCL_DLL_FILE) $(ZLIB_DLL_FILE) $(TCLSH) $(PIPE_DLL_FILE); \
+	@for i in $(TCL_DLL_FILE) $(ZLIB_DLL_FILE) $(TCLSH); \
 	    do \
 	    if [ -f $$i ]; then \
 		echo "Installing $$i to $(BIN_INSTALL_DIR)/"; \
diff --git a/win/makefile.bc b/win/makefile.bc
index c339527..12ba603 100644
--- a/win/makefile.bc
+++ b/win/makefile.bc
@@ -159,8 +159,6 @@ TCLPLUGINDLLNAME	= $(NAMEPREFIX)$(VERSION)p$(DBGX).dll
 TCLPLUGINDLL	= $(OUTDIR)\$(TCLPLUGINDLLNAME)
 TCLSH		= $(OUTDIR)\$(NAMEPREFIX)sh$(VERSION)$(DBGX).exe
 TCLSHP		= $(OUTDIR)\$(NAMEPREFIX)shp$(VERSION)$(DBGX).exe
-TCLPIPEDLLNAME	= $(NAMEPREFIX)pip$(VERSION)$(DBGX).dll
-TCLPIPEDLL	= $(OUTDIR)\$(TCLPIPEDLLNAME)
 TCLREGDLLNAME	= $(NAMEPREFIX)reg$(REGVERSION)$(DBGX).dll
 TCLREGDLL	= $(OUTDIR)\$(TCLREGDLLNAME)
 TCLDDEDLLNAME	= $(NAMEPREFIX)dde$(DDEVERSION)$(DBGX).dll
@@ -342,7 +340,7 @@ LNLIBS	= import32 cw32mt
 ######################################################################
 
 release:	setup $(TCLSH) dlls
-dlls:		setup $(TCLPIPEDLL) $(TCLREGDLL) $(TCLDDEDLL)
+dlls:		setup $(TCLREGDLL) $(TCLDDEDLL)
 all:		setup $(TCLSH) dlls $(CAT32)
 tcltest:	setup $(TCLTEST) dlls $(CAT32)
 plugin:		setup $(TCLPLUGINDLL) $(TCLSHP)
@@ -391,11 +389,6 @@ $(TCLTEST): $(TCLTESTOBJS) $(TCLLIB) $(TMPDIR)\$(NAMEPREFIX)sh.res
 		$(TCLTESTOBJS), $@, -x, $(LNLIBS) $(TCLLIB),, $(TMPDIR)\$(NAMEPREFIX)sh.res
 !
 
-$(TCLPIPEDLL): $(WINDIR)\stub16.c
-	$(cc32) $(CFLAGS) -o$(TMPDIR)\stub16.obj $(WINDIR)\stub16.c
-	$(link32) $(ldebug) $(LNFLAGS) $(LNFLAGS_CONS) $(TOOLS32)\lib\c0x32 \
-		$(TMPDIR)\stub16.obj, $@, -x, $(LNLIBS),, $(TMPDIR)\$(NAMEPREFIX).res
-
 $(TCLDDEDLL): $(TMPDIR)\tclWinDde.obj $(TCLSTUBLIB)
 	$(link32) $(ldebug) $(LNFLAGS) $(LNFLAGS_DLL) $(TOOLS32)\lib\c0d32 \
 		$(TMPDIR)\tclWinDde.obj, $@, -x, $(LNLIBS) $(TCLSTUBLIB),, \
@@ -419,8 +412,6 @@ install-binaries: $(TCLSH)
 	@copy "$(TCLLIB)" "$(LIB_INSTALL_DIR)"
 	@echo installing "$(TCLSH)"
 	@copy "$(TCLSH)" "$(BIN_INSTALL_DIR)"
-	@echo installing $(TCLPIPEDLLNAME)
-	@copy "$(TCLPIPEDLL)" "$(BIN_INSTALL_DIR)"
 	@echo installing $(TCLSTUBLIBNAME)
 	@copy "$(TCLSTUBLIB)" "$(LIB_INSTALL_DIR)"
 	@echo installing $(WINDIR)\tclooConfig.sh
diff --git a/win/makefile.vc b/win/makefile.vc
index 189a03f..93db8bf 100644
--- a/win/makefile.vc
+++ b/win/makefile.vc
@@ -13,7 +13,7 @@
 # Copyright (c) 2003-2008 Pat Thoyts.
 #
 #------------------------------------------------------------------------------
-# RCS: @(#) $Id: makefile.vc,v 1.212 2010/04/05 12:45:27 dkf Exp $
+# RCS: @(#) $Id: makefile.vc,v 1.213 2010/08/04 21:37:19 hobbs Exp $
 #------------------------------------------------------------------------------
 
 # Check to see we are configured to build with MSVC (MSDEVDIR or MSVCDIR)
@@ -47,8 +47,7 @@ the build instructions.
 #
 # 3)  Targets are:
 #	release  -- Builds the core, the shell and the dlls. (default)
-#	dlls     -- Just builds the windows extensions and the 16-bit DOS
-#		    pipe/thunk helper app.
+#	dlls     -- Just builds the windows extensions
 #	shell    -- Just builds the shell and the core.
 #	core     -- Only builds the core [tclXX.(dll|lib)].
 #	all      -- Builds everything.
@@ -208,8 +207,6 @@ TCLSTUBLIB	= $(OUT_DIR)\$(TCLSTUBLIBNAME)
 
 TCLSHNAME	= $(PROJECT)sh$(VERSION)$(SUFX).exe
 TCLSH		= $(OUT_DIR)\$(TCLSHNAME)
-TCLPIPEDLLNAME	= $(PROJECT)pip$(VERSION)$(SUFX:t=).dll
-TCLPIPEDLL	= $(OUT_DIR)\$(TCLPIPEDLLNAME)
 
 TCLREGLIBNAME	= $(PROJECT)reg$(REGVERSION)$(SUFX:t=).$(EXT)
 TCLREGLIB	= $(OUT_DIR)\$(TCLREGLIBNAME)
@@ -482,8 +479,7 @@ crt = -MT
 !endif
 
 TCL_INCLUDES	= -I"$(WINDIR)" -I"$(GENERICDIR)" -I"$(TOMMATHDIR)"
-TCL_DEFINES	= -DTCL_PIPE_DLL=\"$(TCLPIPEDLLNAME)\" -DTCL_TOMMATH -DMP_PREC=4 \
-		  -Dinline=__inline -DHAVE_ZLIB=1
+TCL_DEFINES	= -DTCL_TOMMATH -DMP_PREC=4 -Dinline=__inline -DHAVE_ZLIB=1
 BASE_CFLAGS	= $(cflags) $(cdebug) $(crt) $(TCL_INCLUDES) $(TCL_DEFINES)
 CON_CFLAGS	= $(cflags) $(cdebug) $(crt) -DCONSOLE
 TCL_CFLAGS	= $(BASE_CFLAGS) $(OPTDEFINES)
@@ -551,7 +547,7 @@ TESTFLAGS = $(TESTFLAGS) -file $(TESTPAT)
 release:    setup $(TCLSH) $(TCLSTUBLIB) dlls pkgs
 core:	    setup $(TCLLIB) $(TCLSTUBLIB)
 shell:	    setup $(TCLSH)
-dlls:	    setup $(TCLPIPEDLL) $(TCLREGLIB) $(TCLDDELIB)
+dlls:	    setup $(TCLREGLIB) $(TCLDDELIB)
 all:	    setup $(TCLSH) $(TCLSTUBLIB) dlls $(CAT32) pkgs
 tcltest:    setup $(TCLTEST) dlls $(CAT32)
 install:    install-binaries install-libraries install-docs install-pkgs
@@ -613,11 +609,6 @@ $(TCLTEST): $(TCLTESTOBJS) $(TCLSTUBLIB) $(TCLIMPLIB)
 	$(link32) $(conlflags) -stack:2300000 -out:$@ $(baselibs) $**
 	$(_VC_MANIFEST_EMBED_EXE)
 
-$(TCLPIPEDLL): $(WINDIR)\stub16.c
-	$(cc32) $(CON_CFLAGS) -Fo$(TMP_DIR)\ $(WINDIR)\stub16.c
-	$(link32) $(conlflags) -out:$@ $(TMP_DIR)\stub16.obj $(baselibs)
-	$(_VC_MANIFEST_EMBED_DLL)
-
 !if $(STATIC_BUILD)
 $(TCLDDELIB): $(TMP_DIR)\tclWinDde.obj
 	$(lib32) -nologo $(LINKERFLAGS) -out:$@ $**
@@ -1059,10 +1050,6 @@ install-binaries:
 	@echo Installing $(TCLSHNAME)
 	@$(CPY) "$(TCLSH)" "$(BIN_INSTALL_DIR)\"
 !endif
-!if exist($(TCLPIPEDLL))
-	@echo Installing $(TCLPIPEDLLNAME)
-	@$(CPY) "$(TCLPIPEDLL)" "$(BIN_INSTALL_DIR)\"
-!endif
 	@echo Installing $(TCLSTUBLIBNAME)
 	@$(CPY) "$(TCLSTUBLIB)" "$(LIB_INSTALL_DIR)\"
 
diff --git a/win/stub16.c b/win/stub16.c
deleted file mode 100644
index 52460c3..0000000
--- a/win/stub16.c
+++ /dev/null
@@ -1,197 +0,0 @@
-/*
- * stub16.c
- *
- *	A helper program used for running 16-bit DOS applications under
- *	Windows 95.
- *
- * Copyright (c) 1996 by Sun Microsystems, Inc.
- *
- * See the file "license.terms" for information on usage and redistribution of
- * this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- * RCS: @(#) $Id: stub16.c,v 1.6 2010/03/20 12:00:41 nijtmans Exp $
- */
-
-#define STRICT
-
-#include <windows.h>
-#include <stdio.h>
-
-static HANDLE		CreateTempFile(void);
-
-/*
- *---------------------------------------------------------------------------
- *
- * main
- *
- *	Entry point for the 32-bit console mode app used by Windows 95 to help
- *	run the 16-bit program specified on the command line.
- *
- *	1. EOF on a pipe that connects a detached 16-bit process and a 32-bit
- *	process is never seen. So, this process runs the 16-bit process
- *	_attached_, and then it is run detached from the calling 32-bit
- *	process.
- *
- *	2. If a 16-bit process blocks reading from or writing to a pipe, it
- *	never wakes up, and eventually brings the whole system down with it if
- *	you try to kill the process. This app simulates pipes. If any of the
- *	stdio handles is a pipe, this program accumulates information into
- *	temp files and forwards it to or from the DOS application as
- *	appropriate. This means that this program must receive EOF from a
- *	stdin pipe before it will actually start the DOS app, and the DOS app
- *	must finish generating stdout or stderr before the data will be sent
- *	to the next stage of the pipe. If the stdio handles are not pipes, no
- *	accumulation occurs and the data is passed straight through to and
- *	from the DOS application.
- *
- * Results:
- *	None.
- *
- * Side effects:
- *	The child process is created and this process waits for it to
- *	complete.
- *
- *---------------------------------------------------------------------------
- */
-
-int
-main(void)
-{
-    DWORD dwRead, dwWrite;
-    char *cmdLine;
-    HANDLE hStdInput, hStdOutput, hStdError;
-    HANDLE hFileInput, hFileOutput, hFileError;
-    STARTUPINFOA si;
-    PROCESS_INFORMATION pi;
-    char buf[8192];
-    DWORD result;
-
-    hFileInput = INVALID_HANDLE_VALUE;
-    hFileOutput = INVALID_HANDLE_VALUE;
-    hFileError = INVALID_HANDLE_VALUE;
-    result = 1;
-
-    /*
-     * Don't get command line from argc, argv, because the command line
-     * tokenizer will have stripped off all the escape sequences needed for
-     * quotes and backslashes, and then we'd have to put them all back in
-     * again. Get the raw command line and parse off what we want ourselves.
-     * The command line should be of the form:
-     *
-     * stub16.exe program arg1 arg2 ...
-     */
-
-    cmdLine = strchr(GetCommandLineA(), ' ');
-    if (cmdLine == NULL) {
-	return 1;
-    }
-    cmdLine++;
-
-    hStdInput = GetStdHandle(STD_INPUT_HANDLE);
-    hStdOutput = GetStdHandle(STD_OUTPUT_HANDLE);
-    hStdError = GetStdHandle(STD_ERROR_HANDLE);
-
-    if (GetFileType(hStdInput) == FILE_TYPE_PIPE) {
-	hFileInput = CreateTempFile();
-	if (hFileInput == INVALID_HANDLE_VALUE) {
-	    goto cleanup;
-	}
-	while (ReadFile(hStdInput, buf, sizeof(buf), &dwRead, NULL) != FALSE) {
-	    if (dwRead == 0) {
-		break;
-	    }
-	    if (WriteFile(hFileInput, buf, dwRead, &dwWrite, NULL) == FALSE) {
-		goto cleanup;
-	    }
-	}
-	SetFilePointer(hFileInput, 0, 0, FILE_BEGIN);
-	SetStdHandle(STD_INPUT_HANDLE, hFileInput);
-    }
-    if (GetFileType(hStdOutput) == FILE_TYPE_PIPE) {
-	hFileOutput = CreateTempFile();
-	if (hFileOutput == INVALID_HANDLE_VALUE) {
-	    goto cleanup;
-	}
-	SetStdHandle(STD_OUTPUT_HANDLE, hFileOutput);
-    }
-    if (GetFileType(hStdError) == FILE_TYPE_PIPE) {
-	hFileError = CreateTempFile();
-	if (hFileError == INVALID_HANDLE_VALUE) {
-	    goto cleanup;
-	}
-	SetStdHandle(STD_ERROR_HANDLE, hFileError);
-    }
-
-    ZeroMemory(&si, sizeof(si));
-    si.cb = sizeof(si);
-    if (CreateProcessA(NULL, cmdLine, NULL, NULL, TRUE, 0, NULL, NULL, &si,
-	    &pi) == FALSE) {
-	goto cleanup;
-    }
-
-    WaitForInputIdle(pi.hProcess, 5000);
-    WaitForSingleObject(pi.hProcess, INFINITE);
-    GetExitCodeProcess(pi.hProcess, &result);
-    CloseHandle(pi.hProcess);
-    CloseHandle(pi.hThread);
-
-    if (hFileOutput != INVALID_HANDLE_VALUE) {
-	SetFilePointer(hFileOutput, 0, 0, FILE_BEGIN);
-	while (ReadFile(hFileOutput, buf, sizeof(buf), &dwRead, NULL) != FALSE) {
-	    if (dwRead == 0) {
-		break;
-	    }
-	    if (WriteFile(hStdOutput, buf, dwRead, &dwWrite, NULL) == FALSE) {
-		break;
-	    }
-	}
-    }
-    if (hFileError != INVALID_HANDLE_VALUE) {
-	SetFilePointer(hFileError, 0, 0, FILE_BEGIN);
-	while (ReadFile(hFileError, buf, sizeof(buf), &dwRead, NULL) != FALSE) {
-	    if (dwRead == 0) {
-		break;
-	    }
-	    if (WriteFile(hStdError, buf, dwRead, &dwWrite, NULL) == FALSE) {
-		break;
-	    }
-	}
-    }
-
-  cleanup:
-    if (hFileInput != INVALID_HANDLE_VALUE) {
-	CloseHandle(hFileInput);
-    }
-    if (hFileOutput != INVALID_HANDLE_VALUE) {
-	CloseHandle(hFileOutput);
-    }
-    if (hFileError != INVALID_HANDLE_VALUE) {
-	CloseHandle(hFileError);
-    }
-    CloseHandle(hStdInput);
-    CloseHandle(hStdOutput);
-    CloseHandle(hStdError);
-    ExitProcess(result);
-    return 1;
-}
-
-static HANDLE
-CreateTempFile(void)
-{
-    char name[MAX_PATH];
-    SECURITY_ATTRIBUTES sa;
-
-    if (GetTempPathA(MAX_PATH, name) == 0) {
-	return INVALID_HANDLE_VALUE;
-    }
-    if (GetTempFileNameA(name, "tcl", 0, name) == 0) {
-	return INVALID_HANDLE_VALUE;
-    }
-
-    sa.nLength = sizeof(sa);
-    sa.lpSecurityDescriptor = NULL;
-    sa.bInheritHandle = TRUE;
-    return CreateFileA(name, GENERIC_READ | GENERIC_WRITE, 0, &sa,
-	    CREATE_ALWAYS, FILE_ATTRIBUTE_TEMPORARY | FILE_FLAG_DELETE_ON_CLOSE,
-	    NULL);
-}
diff --git a/win/tcl.dsp b/win/tcl.dsp
index b16a98d..27b4220 100644
--- a/win/tcl.dsp
+++ b/win/tcl.dsp
@@ -1460,10 +1460,6 @@ SOURCE=.\rules.vc
 # End Source File
 # Begin Source File
 
-SOURCE=.\stub16.c
-# End Source File
-# Begin Source File
-
 SOURCE=.\tcl.hpj.in
 # End Source File
 # Begin Source File
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c
index 7c19e38..4debaa4 100644
--- a/win/tclWinPipe.c
+++ b/win/tclWinPipe.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclWinPipe.c,v 1.79 2010/04/22 11:40:32 nijtmans Exp $
+ * RCS: @(#) $Id: tclWinPipe.c,v 1.80 2010/08/04 21:37:19 hobbs Exp $
  */
 
 #include "tclWinInt.h"
@@ -1142,82 +1142,10 @@ TclpCreateProcess(
 	}
 
 	if (applType == APPL_DOS) {
-	    /*
-	     * Under Windows 95, 16-bit DOS applications do not work well with
-	     * pipes:
-	     *
-	     * 1. EOF on a pipe between a detached 16-bit DOS application and
-	     * another application is not seen at the other end of the pipe,
-	     * so the listening process blocks forever on reads. This inablity
-	     * to detect EOF happens when either a 16-bit app or the 32-bit
-	     * app is the listener.
-	     *
-	     * 2. If a 16-bit DOS application (detached or not) blocks when
-	     * writing to a pipe, it will never wake up again, and it
-	     * eventually brings the whole system down around it.
-	     *
-	     * The 16-bit application is run as a normal process inside of a
-	     * hidden helper console app, and this helper may be run as a
-	     * detached process. If any of the stdio handles is a pipe, the
-	     * helper application accumulates information into temp files and
-	     * forwards it to or from the DOS application as appropriate.
-	     * This means that DOS apps must receive EOF from a stdin pipe
-	     * before they will actually begin, and must finish generating
-	     * stdout or stderr before the data will be sent to the next stage
-	     * of the pipe.
-	     *
-	     * The helper app should be located in the same directory as the
-	     * tcl dll.
-	     */
-	    Tcl_Obj *tclExePtr, *pipeDllPtr;
-	    const char *start, *end;
-	    int i, fileExists;
-	    Tcl_DString pipeDll;
-
-	    if (createFlags != 0) {
-		startInfo.wShowWindow = SW_HIDE;
-		startInfo.dwFlags |= STARTF_USESHOWWINDOW;
-		createFlags = CREATE_NEW_CONSOLE;
-	    }
-
-	    Tcl_DStringInit(&pipeDll);
-	    Tcl_DStringAppend(&pipeDll, TCL_PIPE_DLL, -1);
-	    tclExePtr = TclGetObjNameOfExecutable();
-	    Tcl_IncrRefCount(tclExePtr);
-	    start = Tcl_GetStringFromObj(tclExePtr, &i);
-	    for (end = start + (i-1); end > start; end--) {
-		if (*end == '/') {
-		    break;
-		}
-	    }
-	    if (*end != '/') {
-		Tcl_AppendResult(interp, "no / in executable path name \"",
-			start, "\"", (char *) NULL);
-		Tcl_DecrRefCount(tclExePtr);
-		Tcl_DStringFree(&pipeDll);
-		goto end;
-	    }
-	    i = (end - start) + 1;
-	    pipeDllPtr = Tcl_NewStringObj(start, i);
-	    Tcl_AppendToObj(pipeDllPtr, Tcl_DStringValue(&pipeDll), -1);
-	    Tcl_IncrRefCount(pipeDllPtr);
-	    if (Tcl_FSConvertToPathType(interp, pipeDllPtr) != TCL_OK) {
-		Tcl_Panic("Tcl_FSConvertToPathType failed");
-	    }
-	    fileExists = (Tcl_FSAccess(pipeDllPtr, F_OK) == 0);
-	    if (!fileExists) {
-		Tcl_AppendResult(interp, "Tcl pipe dll \"",
-			Tcl_DStringValue(&pipeDll), "\" not found",
-			(char *) NULL);
-		Tcl_DecrRefCount(tclExePtr);
-		Tcl_DecrRefCount(pipeDllPtr);
-		Tcl_DStringFree(&pipeDll);
-		goto end;
-	    }
-	    Tcl_DStringAppend(&cmdLine, Tcl_DStringValue(&pipeDll), -1);
-	    Tcl_DecrRefCount(tclExePtr);
-	    Tcl_DecrRefCount(pipeDllPtr);
-	    Tcl_DStringFree(&pipeDll);
+	    Tcl_AppendResult(interp,
+		    "DOS application process not supported on this platform",
+		    (char *) NULL);
+	    goto end;
 	}
     }