src/msdos/utilsdos.cpp

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