src/msdos/utilsdos.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        src/msdos/utilsdos.cpp
// Purpose:     DOS implementations of utility functions
// Author:      Vaclav Slavik, M.J.Wetherell
// Id:          $Id$
// Copyright:   (c) 2001-2002 SciTech Software, Inc. (www.scitechsoft.com)
//              (c) 2005 M.J.Wetherell
// Licence:     wxWindows licence
/////////////////////////////////////////////////////////////////////////////

// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"

#ifdef __BORLANDC__
    #pragma hdrstop
#endif

#include "wx/utils.h"

#ifndef WX_PRECOMP
    #include "wx/string.h"
    #include "wx/intl.h"
    #include "wx/log.h"
    #include "wx/app.h"
#endif

#include "wx/apptrait.h"
#include "wx/process.h"
#include "wx/confbase.h"        // for wxExpandEnvVars()
#include "wx/cmdline.h"
#include "wx/filename.h"
#include "wx/wfstream.h"

#include <stdarg.h>
#include <string.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <unistd.h>
#include <signal.h>
#include <time.h>
#include <dos.h>
#include <process.h>

//----------------------------------------------------------------------------
// Sleep
//----------------------------------------------------------------------------

void wxSleep(int nSecs)
{
    wxMilliSleep(1000 * nSecs);
}

void wxMilliSleep(unsigned long milliseconds)
{
#if HAVE_USLEEP || defined __DJGPP__
    usleep(milliseconds * 1000);
#elif defined __WATCOMC__
    delay(milliseconds);
#else
    clock_t start = clock();
    while ((clock() - start) * 1000 / CLOCKS_PER_SEC < (clock_t)milliseconds)
    {
        // yield if in a multitasking environment
        // "Release Current Virtual Machine's Time Slice" in DPMI 1.0
        REGS r;
        memset(&r, 0, sizeof(r));
        r.x.ax = 0x1680;
        int386(0x2f, &r, &r);
    }
#endif
}

void wxMicroSleep(unsigned long microseconds)
{
#if HAVE_USLEEP || defined __DJGPP__
    usleep(microseconds);
#else
    wxMilliSleep(microseconds/1000);
#endif
}

//----------------------------------------------------------------------------
// Get/Set environment variables
//----------------------------------------------------------------------------

bool wxGetEnv(const wxString& var, wxString *value)
{
    // wxGetenv is defined as getenv()
    wxChar *p = wxGetenv(var);
    if ( !p )
        return false;

    if ( value )
        *value = p;

    return true;
}

static bool wxDoSetEnv(const wxString& variable, const char *value)
{
    wxString s = variable;
    if ( value )
        s << wxT('=') << value;

    // transform to ANSI
    const char *p = s.mb_str();

    // the string will be free()d by libc
    char *buf = (char *)malloc(strlen(p) + 1);
    strcpy(buf, p);

    return putenv(buf) == 0;
}

bool wxSetEnv(const wxString& variable, const wxString& value)
{
    return wxDoSetEnv(variable, value.mb_str());
}

bool wxUnsetEnv(const wxString& variable)
{
    return wxDoSetEnv(variable, NULL);
}


//----------------------------------------------------------------------------
// Hostname, username, home directory
//----------------------------------------------------------------------------

// Based on the MSW implementation
//
// Respects the following environment variables in this order: %HomeDrive% +
// %HomePath%, %UserProfile%, $HOME. Otherwise takes program's directory if
// wxApp has been initialised, otherwise returns ".".
//
const wxChar* wxGetHomeDir(wxString *home)
{
    wxString& strDir = *home;

    strDir.clear();

    // try HOMEDRIVE/PATH
    const wxChar *szHome = wxGetenv(wxT("HOMEDRIVE"));
    if ( szHome != NULL )
        strDir << szHome;
    szHome = wxGetenv(wxT("HOMEPATH"));

    if ( szHome != NULL )
    {
        strDir << szHome;

        // the idea is that under NT these variables have default values of
        // "%systemdrive%:" and "\\". As we don't want to create our config
        // files in the root directory of the system drive, we will create it
        // in our program's dir. However, if the user took care to set
        // HOMEPATH to something other than "\\", we suppose that he knows
        // what he is doing and use the supplied value.
        if ( wxStrcmp(szHome, wxT("\\")) == 0 )
            strDir.clear();
    }

    if ( strDir.empty() )
    {
        // If we have a valid USERPROFILE directory, as is the case in
        // Windows NT, 2000 and XP, we should use that as our home directory.
        szHome = wxGetenv(wxT("USERPROFILE"));

        if ( szHome != NULL )
            strDir = szHome;
    }

    if ( strDir.empty() )
    {
        // If we have a valid HOME directory, as is used on many machines
        // that have unix utilities on them, we should use that.
        szHome = wxGetenv(wxT("HOME"));

        if ( szHome != NULL )
        {
            strDir = szHome;
            // when msys sets %HOME% it uses '/' (cygwin uses '\\')
            strDir.Replace(wxT("/"), wxT("\\"));
        }
    }

    if ( !strDir.empty() )
    {
        // sometimes the value of HOME may be "%USERPROFILE%", so reexpand the
        // value once again, it shouldn't hurt anyhow
        strDir = wxExpandEnvVars(strDir);
    }
    else // fall back to the program directory
    {
        if ( wxTheApp )
        {
            wxString prog(wxTheApp->argv[0]);
#ifdef __DJGPP__
            // djgpp startup code switches the slashes around, so restore them
            prog.Replace(wxT("/"), wxT("\\"));
#endif
            // it needs to be a full path to be usable
            if ( prog.compare(1, 2, wxT(":\\")) == 0 )
                wxFileName::SplitPath(prog, &strDir, NULL, NULL);
        }
        if ( strDir.empty() )
        {
            strDir = wxT(".");
        }
    }

    return strDir.c_str();
}

wxString wxGetUserHome(const wxString& user)
{
    wxString home;

    if (user.empty() || user == wxGetUserId())
        wxGetHomeDir(&home);

    return home;
}

// returns %UserName%, $USER or just "user"
//
bool wxGetUserId(wxChar *buf, int n)
{
    const wxChar *user = wxGetenv(wxT("UserName"));

    if (!user)
        user = wxGetenv(wxT("USER"));

    if (!user)
        user = wxT("user");

    wxStrlcpy(buf, user, n);
    return true;
}

bool wxGetUserName(wxChar *buf, int n)
{
    return wxGetUserId(buf, n);
}

// returns %ComputerName%, or $HOSTNAME, or "host"
//
bool wxGetHostName(wxChar *buf, int n)
{
    const wxChar *host = wxGetenv(wxT("ComputerName"));

    if (!host)
        host = wxGetenv(wxT("HOSTNAME"));

    if (!host)
        host = wxT("host");

    wxStrlcpy(buf, host, n);
    return true;
}

// adds %UserDnsDomain% to wxGetHostName()
//
bool wxGetFullHostName(wxChar *buf, int n)
{
    wxGetHostName(buf, n);

    const wxChar *domain = wxGetenv(wxT("UserDnsDomain"));

    if (domain)
        wxStrncat(wxStrncat(buf, wxT("."), n), domain, n);

    return true;
}

//----------------------------------------------------------------------------
// Processes
//----------------------------------------------------------------------------

unsigned long wxGetProcessId()
{
    return (unsigned long)getpid();
}

int wxKill(long pid, wxSignal sig, wxKillError *rc, int WXUNUSED(flags))
{
    int result = -1;

    if (pid != (long)wxGetProcessId())
    {
        result = raise(sig);
        if (rc)
            *rc = result == 0 ? wxKILL_OK : wxKILL_BAD_SIGNAL;
    }
    else
    {
        wxLogDebug(wxT("wxKill can only send signals to the current process under MSDOS"));
        if (rc)
            *rc = wxKILL_NO_PROCESS;
    }

    return result;
}

bool wxShell(const wxString& command /*=wxEmptyString*/)
{
    // FIXME: suspend/resume gui
    int result = system(command);

    if (result == -1)
    {
        wxLogSysError(_("can't execute '%s'"), command.c_str());
    }

    return result == 0;
}

long wxExecute(const wxString& command, int flags, wxProcess *process,
        const wxExecuteEnv *env)
{
    // FIXME: shouldn't depend on wxCmdLineParser
    wxArrayString args(wxCmdLineParser::ConvertStringToArgs(command));
    size_t n = args.size();
    wxChar **argv = new wxChar*[n + 1];

    argv[n] = NULL;
    while (n-- > 0)
        argv[n] = const_cast<wxChar*>((const char *)args[n].c_str());

    long result = wxExecute(argv, flags, process);

    delete [] argv;
    return result;
}

#if wxUSE_STREAMS

// A wxFFileInputStream that deletes the file in it's destructor
//
class wxTempFileInStream : public wxFFileInputStream
{
public:
    wxTempFileInStream(const wxString& name)
        : wxFFileInputStream(name, wxT("rt"))
    { }

    virtual ~wxTempFileInStream()
    {
        m_file->Close();
        wxRemoveFile(m_file->GetName());
    }
};

// A file descriptor that can be redirected to a file
//
class wxRedirectableFd
{
public:
    wxRedirectableFd(int fd) : m_fd(fd), m_dup(-1) { }
    ~wxRedirectableFd();

    // Redirect the descriptor to a file, similar to ANSI C's freopen, but
    // for low level descriptors. The desctructor un-redirects. If O_CREAT
    // is in the flags then the destructor will delete the file unless it is
    // given away with Release().
    bool Reopen(const wxString& name, int flags);

    // un-redirect the redirected file descriptor, closing the file, and give
    // away the filename without deleting it
    wxString Release();

private:
    // un-redirect the descriptor, closing the file
    void Restore();

    int m_fd;
    int m_dup;
    wxString m_name;
};

wxRedirectableFd::~wxRedirectableFd()
{
    Restore();
    if (!m_name.empty())
        wxRemoveFile(m_name);
}

bool wxRedirectableFd::Reopen(const wxString& name, int flags)
{
    wxASSERT(m_dup == -1);
    bool result = false;

    // save a duplicate so that the descriptor can be closed now and
    // restored later
    m_dup = dup(m_fd);

    if (m_dup != -1)
    {
        int tmp = open(name.mb_str(), flags);

        if (tmp != -1)
        {
            close(m_fd);

            if (flags & O_CREAT)
                m_name = name;

            result = dup2(tmp, m_fd) == m_fd;
            close(tmp);
        }
    }

    if (!result)
    {
        wxLogSysError(_("error opening '%s'"), name.c_str());
    }

    return result;
}

void wxRedirectableFd::Restore()
{
    if (m_dup != -1)
    {
        close(m_fd);
        dup2(m_dup, m_fd);
        close(m_dup);
        m_dup = -1;
    }
}

wxString wxRedirectableFd::Release()
{
    Restore();
    wxString name = m_name;
    m_name.clear();
    return name;
}

#endif // wxUSE_STREAMS

// wxExecute implementation
//
long wxExecute(wxChar **argv, int flags, wxProcess *process,
        const wxString* cwd, const wxEnvVariableHashMap* env)
{
#if wxUSE_STREAMS
    const int STDIN = 0;
    const int STDOUT = 1;
    const int STDERR = 2;

    wxRedirectableFd in(STDIN), out(STDOUT), err(STDERR);
    bool redirect = process && process->IsRedirected() && (flags & wxEXEC_SYNC);

    if (redirect)
    {
        // close stdin/out/err and reopen them as files
        if (!in.Reopen(wxT("NUL"), O_RDONLY | O_TEXT))
            return -1;

        if (!out.Reopen(wxFileName::CreateTempFileName(wxT("out")),
                        O_CREAT | O_WRONLY | O_TRUNC | O_TEXT))
            return -1;

        if (!err.Reopen(wxFileName::CreateTempFileName(wxT("err")),
                        O_CREAT | O_WRONLY | O_TRUNC | O_TEXT))
            return -1;
    }
#endif // wxUSE_STREAMS

    // FIXME: suspend/resume gui
    int mode = flags & wxEXEC_SYNC ? P_WAIT : P_NOWAIT;
    int result = spawnvp(mode, argv[0], argv);

    if (result == -1)
    {
        wxLogSysError(_("can't execute '%s'"), argv[0]);
    }

#if wxUSE_STREAMS
    if (redirect)
        process->SetPipeStreams(new wxTempFileInStream(out.Release()),
                                new wxFFileOutputStream(wxT("NUL"), wxT("wt")),
                                new wxTempFileInStream(err.Release()));
#endif // wxUSE_STREAMS

    return result;
}


//----------------------------------------------------------------------------
// OS-related
//----------------------------------------------------------------------------

wxString wxGetOsDescription()
{
    wxString osname(wxT("DOS"));
    return osname;
}

wxOperatingSystemId wxGetOsVersion(int *verMaj, int *verMin)
{
    if ( verMaj )
        *verMaj = _osmajor;
    if ( verMin )
        *verMin = _osminor;

    return wxOS_DOS;
}

bool wxIsPlatform64Bit()
{
    return false;
}
Commit	Line	Data
	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: src/msdos/utilsdos.cpp
	3	// Purpose: DOS implementations of utility functions
	4	// Author: Vaclav Slavik, M.J.Wetherell
	5	// Id: $Id$
	6	// Copyright: (c) 2001-2002 SciTech Software, Inc. (www.scitechsoft.com)
	7	// (c) 2005 M.J.Wetherell
	8	// Licence: wxWindows licence
	9	/////////////////////////////////////////////////////////////////////////////
	10
	11	// For compilers that support precompilation, includes "wx.h".
	12	#include "wx/wxprec.h"
	13
	14	#ifdef __BORLANDC__
	15	#pragma hdrstop
	16	#endif
	17
	18	#include "wx/utils.h"
	19
	20	#ifndef WX_PRECOMP
	21	#include "wx/string.h"
	22	#include "wx/intl.h"
	23	#include "wx/log.h"
	24	#include "wx/app.h"
	25	#endif
	26
	27	#include "wx/apptrait.h"
	28	#include "wx/process.h"
	29	#include "wx/confbase.h" // for wxExpandEnvVars()
	30	#include "wx/cmdline.h"
	31	#include "wx/filename.h"
	32	#include "wx/wfstream.h"
	33
	34	#include <stdarg.h>
	35	#include <string.h>
	36	#include <sys/stat.h>
	37	#include <sys/types.h>
	38	#include <unistd.h>
	39	#include <signal.h>
	40	#include <time.h>
	41	#include <dos.h>
	42	#include <process.h>
	43
	44	//----------------------------------------------------------------------------
	45	// Sleep
	46	//----------------------------------------------------------------------------
	47
	48	void wxSleep(int nSecs)
	49	{
	50	wxMilliSleep(1000 * nSecs);
	51	}
	52
	53	void wxMilliSleep(unsigned long milliseconds)
	54	{
	55	#if HAVE_USLEEP \|\| defined __DJGPP__
	56	usleep(milliseconds * 1000);
	57	#elif defined __WATCOMC__
	58	delay(milliseconds);
	59	#else
	60	clock_t start = clock();
	61	while ((clock() - start) * 1000 / CLOCKS_PER_SEC < (clock_t)milliseconds)
	62	{
	63	// yield if in a multitasking environment
	64	// "Release Current Virtual Machine's Time Slice" in DPMI 1.0
	65	REGS r;
	66	memset(&r, 0, sizeof(r));
	67	r.x.ax = 0x1680;
	68	int386(0x2f, &r, &r);
	69	}
	70	#endif
	71	}
	72
	73	void wxMicroSleep(unsigned long microseconds)
	74	{
	75	#if HAVE_USLEEP \|\| defined __DJGPP__
	76	usleep(microseconds);
	77	#else
	78	wxMilliSleep(microseconds/1000);
	79	#endif
	80	}
	81
	82	//----------------------------------------------------------------------------
	83	// Get/Set environment variables
	84	//----------------------------------------------------------------------------
	85
	86	bool wxGetEnv(const wxString& var, wxString *value)
	87	{
	88	// wxGetenv is defined as getenv()
	89	wxChar *p = wxGetenv(var);
	90	if ( !p )
	91	return false;
	92
	93	if ( value )
	94	*value = p;
	95
	96	return true;
	97	}
	98
	99	static bool wxDoSetEnv(const wxString& variable, const char *value)
	100	{
	101	wxString s = variable;
	102	if ( value )
	103	s << wxT('=') << value;
	104
	105	// transform to ANSI
	106	const char *p = s.mb_str();
	107
	108	// the string will be free()d by libc
	109	char buf = (char )malloc(strlen(p) + 1);
	110	strcpy(buf, p);
	111
	112	return putenv(buf) == 0;
	113	}
	114
	115	bool wxSetEnv(const wxString& variable, const wxString& value)
	116	{
	117	return wxDoSetEnv(variable, value.mb_str());
	118	}
	119
	120	bool wxUnsetEnv(const wxString& variable)
	121	{
	122	return wxDoSetEnv(variable, NULL);
	123	}
	124
	125
	126	//----------------------------------------------------------------------------
	127	// Hostname, username, home directory
	128	//----------------------------------------------------------------------------
	129
	130	// Based on the MSW implementation
	131	//
	132	// Respects the following environment variables in this order: %HomeDrive% +
	133	// %HomePath%, %UserProfile%, $HOME. Otherwise takes program's directory if
	134	// wxApp has been initialised, otherwise returns ".".
	135	//
	136	const wxChar* wxGetHomeDir(wxString *home)
	137	{
	138	wxString& strDir = *home;
	139
	140	strDir.clear();
	141
	142	// try HOMEDRIVE/PATH
	143	const wxChar *szHome = wxGetenv(wxT("HOMEDRIVE"));
	144	if ( szHome != NULL )
	145	strDir << szHome;
	146	szHome = wxGetenv(wxT("HOMEPATH"));
	147
	148	if ( szHome != NULL )
	149	{
	150	strDir << szHome;
	151
	152	// the idea is that under NT these variables have default values of
	153	// "%systemdrive%:" and "\\". As we don't want to create our config
	154	// files in the root directory of the system drive, we will create it
	155	// in our program's dir. However, if the user took care to set
	156	// HOMEPATH to something other than "\\", we suppose that he knows
	157	// what he is doing and use the supplied value.
	158	if ( wxStrcmp(szHome, wxT("\\")) == 0 )
	159	strDir.clear();
	160	}
	161
	162	if ( strDir.empty() )
	163	{
	164	// If we have a valid USERPROFILE directory, as is the case in
	165	// Windows NT, 2000 and XP, we should use that as our home directory.
	166	szHome = wxGetenv(wxT("USERPROFILE"));
	167
	168	if ( szHome != NULL )
	169	strDir = szHome;
	170	}
	171
	172	if ( strDir.empty() )
	173	{
	174	// If we have a valid HOME directory, as is used on many machines
	175	// that have unix utilities on them, we should use that.
	176	szHome = wxGetenv(wxT("HOME"));
	177
	178	if ( szHome != NULL )
	179	{
	180	strDir = szHome;
	181	// when msys sets %HOME% it uses '/' (cygwin uses '\\')
	182	strDir.Replace(wxT("/"), wxT("\\"));
	183	}
	184	}
	185
	186	if ( !strDir.empty() )
	187	{
	188	// sometimes the value of HOME may be "%USERPROFILE%", so reexpand the
	189	// value once again, it shouldn't hurt anyhow
	190	strDir = wxExpandEnvVars(strDir);
	191	}
	192	else // fall back to the program directory
	193	{
	194	if ( wxTheApp )
	195	{
	196	wxString prog(wxTheApp->argv[0]);
	197	#ifdef __DJGPP__
	198	// djgpp startup code switches the slashes around, so restore them
	199	prog.Replace(wxT("/"), wxT("\\"));
	200	#endif
	201	// it needs to be a full path to be usable
	202	if ( prog.compare(1, 2, wxT(":\\")) == 0 )
	203	wxFileName::SplitPath(prog, &strDir, NULL, NULL);
	204	}
	205	if ( strDir.empty() )
	206	{
	207	strDir = wxT(".");
	208	}
	209	}
	210
	211	return strDir.c_str();
	212	}
	213
	214	wxString wxGetUserHome(const wxString& user)
	215	{
	216	wxString home;
	217
	218	if (user.empty() \|\| user == wxGetUserId())
	219	wxGetHomeDir(&home);
	220
	221	return home;
	222	}
	223
	224	// returns %UserName%, $USER or just "user"
	225	//
	226	bool wxGetUserId(wxChar *buf, int n)
	227	{
	228	const wxChar *user = wxGetenv(wxT("UserName"));
	229
	230	if (!user)
	231	user = wxGetenv(wxT("USER"));
	232
	233	if (!user)
	234	user = wxT("user");
	235
	236	wxStrlcpy(buf, user, n);
	237	return true;
	238	}
	239
	240	bool wxGetUserName(wxChar *buf, int n)
	241	{
	242	return wxGetUserId(buf, n);
	243	}
	244
	245	// returns %ComputerName%, or $HOSTNAME, or "host"
	246	//
	247	bool wxGetHostName(wxChar *buf, int n)
	248	{
	249	const wxChar *host = wxGetenv(wxT("ComputerName"));
	250
	251	if (!host)
	252	host = wxGetenv(wxT("HOSTNAME"));
	253
	254	if (!host)
	255	host = wxT("host");
	256
	257	wxStrlcpy(buf, host, n);
	258	return true;
	259	}
	260
	261	// adds %UserDnsDomain% to wxGetHostName()
	262	//
	263	bool wxGetFullHostName(wxChar *buf, int n)
	264	{
	265	wxGetHostName(buf, n);
	266
	267	const wxChar *domain = wxGetenv(wxT("UserDnsDomain"));
	268
	269	if (domain)
	270	wxStrncat(wxStrncat(buf, wxT("."), n), domain, n);
	271
	272	return true;
	273	}
	274
	275	//----------------------------------------------------------------------------
	276	// Processes
	277	//----------------------------------------------------------------------------
	278
	279	unsigned long wxGetProcessId()
	280	{
	281	return (unsigned long)getpid();
	282	}
	283
	284	int wxKill(long pid, wxSignal sig, wxKillError *rc, int WXUNUSED(flags))
	285	{
	286	int result = -1;
	287
	288	if (pid != (long)wxGetProcessId())
	289	{
	290	result = raise(sig);
	291	if (rc)
	292	*rc = result == 0 ? wxKILL_OK : wxKILL_BAD_SIGNAL;
	293	}
	294	else
	295	{
	296	wxLogDebug(wxT("wxKill can only send signals to the current process under MSDOS"));
	297	if (rc)
	298	*rc = wxKILL_NO_PROCESS;
	299	}
	300
	301	return result;
	302	}
	303
	304	bool wxShell(const wxString& command /=wxEmptyString/)
	305	{
	306	// FIXME: suspend/resume gui
	307	int result = system(command);
	308
	309	if (result == -1)
	310	{
	311	wxLogSysError(_("can't execute '%s'"), command.c_str());
	312	}
	313
	314	return result == 0;
	315	}
	316
	317	long wxExecute(const wxString& command, int flags, wxProcess *process,
	318	const wxExecuteEnv *env)
	319	{
	320	// FIXME: shouldn't depend on wxCmdLineParser
	321	wxArrayString args(wxCmdLineParser::ConvertStringToArgs(command));
	322	size_t n = args.size();
	323	wxChar *argv = new wxChar[n + 1];
	324
	325	argv[n] = NULL;
	326	while (n-- > 0)
	327	argv[n] = const_cast<wxChar>((const char )args[n].c_str());
	328
	329	long result = wxExecute(argv, flags, process);
	330
	331	delete [] argv;
	332	return result;
	333	}
	334
	335	#if wxUSE_STREAMS
	336
	337	// A wxFFileInputStream that deletes the file in it's destructor
	338	//
	339	class wxTempFileInStream : public wxFFileInputStream
	340	{
	341	public:
	342	wxTempFileInStream(const wxString& name)
	343	: wxFFileInputStream(name, wxT("rt"))
	344	{ }
	345
	346	virtual ~wxTempFileInStream()
	347	{
	348	m_file->Close();
	349	wxRemoveFile(m_file->GetName());
	350	}
	351	};
	352
	353	// A file descriptor that can be redirected to a file
	354	//
	355	class wxRedirectableFd
	356	{
	357	public:
	358	wxRedirectableFd(int fd) : m_fd(fd), m_dup(-1) { }
	359	~wxRedirectableFd();
	360
	361	// Redirect the descriptor to a file, similar to ANSI C's freopen, but
	362	// for low level descriptors. The desctructor un-redirects. If O_CREAT
	363	// is in the flags then the destructor will delete the file unless it is
	364	// given away with Release().
	365	bool Reopen(const wxString& name, int flags);
	366
	367	// un-redirect the redirected file descriptor, closing the file, and give
	368	// away the filename without deleting it
	369	wxString Release();
	370
	371	private:
	372	// un-redirect the descriptor, closing the file
	373	void Restore();
	374
	375	int m_fd;
	376	int m_dup;
	377	wxString m_name;
	378	};
	379
	380	wxRedirectableFd::~wxRedirectableFd()
	381	{
	382	Restore();
	383	if (!m_name.empty())
	384	wxRemoveFile(m_name);
	385	}
	386
	387	bool wxRedirectableFd::Reopen(const wxString& name, int flags)
	388	{
	389	wxASSERT(m_dup == -1);
	390	bool result = false;
	391
	392	// save a duplicate so that the descriptor can be closed now and
	393	// restored later
	394	m_dup = dup(m_fd);
	395
	396	if (m_dup != -1)
	397	{
	398	int tmp = open(name.mb_str(), flags);
	399
	400	if (tmp != -1)
	401	{
	402	close(m_fd);
	403
	404	if (flags & O_CREAT)
	405	m_name = name;
	406
	407	result = dup2(tmp, m_fd) == m_fd;
	408	close(tmp);
	409	}
	410	}
	411
	412	if (!result)
	413	{
	414	wxLogSysError(_("error opening '%s'"), name.c_str());
	415	}
	416
	417	return result;
	418	}
	419
	420	void wxRedirectableFd::Restore()
	421	{
	422	if (m_dup != -1)
	423	{
	424	close(m_fd);
	425	dup2(m_dup, m_fd);
	426	close(m_dup);
	427	m_dup = -1;
	428	}
	429	}
	430
	431	wxString wxRedirectableFd::Release()
	432	{
	433	Restore();
	434	wxString name = m_name;
	435	m_name.clear();
	436	return name;
	437	}
	438
	439	#endif // wxUSE_STREAMS
	440
	441	// wxExecute implementation
	442	//
	443	long wxExecute(wxChar *argv, int flags, wxProcess process,
	444	const wxString* cwd, const wxEnvVariableHashMap* env)
	445	{
	446	#if wxUSE_STREAMS
	447	const int STDIN = 0;
	448	const int STDOUT = 1;
	449	const int STDERR = 2;
	450
	451	wxRedirectableFd in(STDIN), out(STDOUT), err(STDERR);
	452	bool redirect = process && process->IsRedirected() && (flags & wxEXEC_SYNC);
	453
	454	if (redirect)
	455	{
	456	// close stdin/out/err and reopen them as files
	457	if (!in.Reopen(wxT("NUL"), O_RDONLY \| O_TEXT))
	458	return -1;
	459
	460	if (!out.Reopen(wxFileName::CreateTempFileName(wxT("out")),
	461	O_CREAT \| O_WRONLY \| O_TRUNC \| O_TEXT))
	462	return -1;
	463
	464	if (!err.Reopen(wxFileName::CreateTempFileName(wxT("err")),
	465	O_CREAT \| O_WRONLY \| O_TRUNC \| O_TEXT))
	466	return -1;
	467	}
	468	#endif // wxUSE_STREAMS
	469
	470	// FIXME: suspend/resume gui
	471	int mode = flags & wxEXEC_SYNC ? P_WAIT : P_NOWAIT;
	472	int result = spawnvp(mode, argv[0], argv);
	473
	474	if (result == -1)
	475	{
	476	wxLogSysError(_("can't execute '%s'"), argv[0]);
	477	}
	478
	479	#if wxUSE_STREAMS
	480	if (redirect)
	481	process->SetPipeStreams(new wxTempFileInStream(out.Release()),
	482	new wxFFileOutputStream(wxT("NUL"), wxT("wt")),
	483	new wxTempFileInStream(err.Release()));
	484	#endif // wxUSE_STREAMS
	485
	486	return result;
	487	}
	488
	489
	490	//----------------------------------------------------------------------------
	491	// OS-related
	492	//----------------------------------------------------------------------------
	493
	494	wxString wxGetOsDescription()
	495	{
	496	wxString osname(wxT("DOS"));
	497	return osname;
	498	}
	499
	500	wxOperatingSystemId wxGetOsVersion(int verMaj, int verMin)
	501	{
	502	if ( verMaj )
	503	*verMaj = _osmajor;
	504	if ( verMin )
	505	*verMin = _osminor;
	506
	507	return wxOS_DOS;
	508	}
	509
	510	bool wxIsPlatform64Bit()
	511	{
	512	return false;
	513	}
	514