[wxWidgets.git] / src / msdos / utilsdos.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        src/msdos/utils.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 << _T('=') << 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(_T("/"), _T("\\"));
        }
    }

    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(_T("/"), _T("\\"));
#endif
            // it needs to be a full path to be usable
            if ( prog.compare(1, 2, _T(":\\")) == 0 )
                wxSplitPath(prog, &strDir, NULL, NULL);
        }
        if ( strDir.empty() )
        {
            strDir = _T(".");
        }
    }

    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(_T("UserName"));

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

    if (!user)
        user = _T("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(_T("ComputerName"));

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

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

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

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

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

    if (domain)
        wxStrncat(wxStrncat(buf, _T("."), 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(_T("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)
{
    // 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, _T("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)
{
#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(_T("NUL"), O_RDONLY | O_TEXT))
            return -1;

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

        if (!err.Reopen(wxFileName::CreateTempFileName(_T("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(_T("NUL"), _T("wt")),
                                new wxTempFileInStream(err.Release()));
#endif // wxUSE_STREAMS

    return result;
}


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

wxString wxGetOsDescription()
{
    wxString osname(_T("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
81d9e625	1	/////////////////////////////////////////////////////////////////////////////
df91131c	2	// Name: src/msdos/utils.cpp
81d9e625	3	// Purpose: DOS implementations of utility functions
a3c0d768	4	// Author: Vaclav Slavik, M.J.Wetherell
81d9e625 MW	5	// Id: $Id$
81d9e625 MW	6	// Copyright: (c) 2001-2002 SciTech Software, Inc. (www.scitechsoft.com)
a3c0d768	7	// (c) 2005 M.J.Wetherell
81d9e625 MW	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"
df91131c WS	19
	20	#ifndef WX_PRECOMP
	21	#include "wx/string.h"
88a7a4e1	22	#include "wx/intl.h"
e4db172a	23	#include "wx/log.h"
670f9935	24	#include "wx/app.h"
df91131c	25	#endif
81d9e625	26
81d9e625	27	#include "wx/apptrait.h"
81d9e625	28	#include "wx/process.h"
a3c0d768	29	#include "wx/confbase.h" // for wxExpandEnvVars()
a3c0d768 MW	30	#include "wx/cmdline.h"
	31	#include "wx/filename.h"
	32	#include "wx/wfstream.h"
81d9e625 MW	33
	34	#include <stdarg.h>
	35	#include <string.h>
	36	#include <sys/stat.h>
	37	#include <sys/types.h>
	38	#include <unistd.h>
a3c0d768	39	#include <signal.h>
81d9e625	40	#include <time.h>
a3c0d768 MW	41	#include <dos.h>
a3c0d768 MW	42	#include <process.h>
81d9e625 MW	43
81d9e625 MW	44	//----------------------------------------------------------------------------
a3c0d768	45	// Sleep
81d9e625 MW	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)
a3c0d768 MW	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	}
81d9e625 MW	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
a3c0d768 MW	82	//----------------------------------------------------------------------------
	83	// Get/Set environment variables
	84	//----------------------------------------------------------------------------
81d9e625 MW	85
	86	bool wxGetEnv(const wxString& var, wxString *value)
	87	{
	88	// wxGetenv is defined as getenv()
	89	wxChar *p = wxGetenv(var);
	90	if ( !p )
df91131c	91	return false;
81d9e625 MW	92
	93	if ( value )
	94	*value = p;
	95
df91131c	96	return true;
81d9e625 MW	97	}
81d9e625 MW	98
90a77e64	99	static bool wxDoSetEnv(const wxString& variable, const char *value)
81d9e625 MW	100	{
	101	wxString s = variable;
	102	if ( value )
	103	s << _T('=') << 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
90a77e64 VS	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
a3c0d768 MW	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	//
81d9e625 MW	136	const wxChar* wxGetHomeDir(wxString *home)
81d9e625 MW	137	{
a3c0d768	138	wxString& strDir = *home;
81d9e625	139
a3c0d768 MW	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(_T("/"), _T("\\"));
	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(_T("/"), _T("\\"));
	200	#endif
	201	// it needs to be a full path to be usable
	202	if ( prog.compare(1, 2, _T(":\\")) == 0 )
	203	wxSplitPath(prog, &strDir, NULL, NULL);
204	}
205	if ( strDir.empty() )
206	{
207	strDir = _T(".");
208	}
209	}
210
211	return strDir.c_str();
81d9e625 MW	212	}
81d9e625 MW	213
14d63513	214	wxString wxGetUserHome(const wxString& user)
81d9e625	215	{
14d63513	216	wxString home;
a3c0d768 MW	217
a3c0d768 MW	218	if (user.empty() \|\| user == wxGetUserId())
14d63513 VZ	219	wxGetHomeDir(&home);
	220
	221	return home;
81d9e625 MW	222	}
81d9e625 MW	223
a3c0d768 MW	224	// returns %UserName%, $USER or just "user"
	225	//
	226	bool wxGetUserId(wxChar *buf, int n)
81d9e625	227	{
a3c0d768 MW	228	const wxChar *user = wxGetenv(_T("UserName"));
	229
	230	if (!user)
	231	user = wxGetenv(_T("USER"));
	232
	233	if (!user)
	234	user = _T("user");
	235
e408bf52	236	wxStrlcpy(buf, user, n);
a3c0d768	237	return true;
81d9e625 MW	238	}
81d9e625 MW	239
a3c0d768	240	bool wxGetUserName(wxChar *buf, int n)
81d9e625	241	{
a3c0d768	242	return wxGetUserId(buf, n);
81d9e625 MW	243	}
81d9e625 MW	244
a3c0d768 MW	245	// returns %ComputerName%, or $HOSTNAME, or "host"
	246	//
	247	bool wxGetHostName(wxChar *buf, int n)
81d9e625	248	{
a3c0d768	249	const wxChar *host = wxGetenv(_T("ComputerName"));
df91131c	250
a3c0d768 MW	251	if (!host)
	252	host = wxGetenv(_T("HOSTNAME"));
	253
	254	if (!host)
	255	host = _T("host");
	256
e408bf52	257	wxStrlcpy(buf, host, n);
a3c0d768	258	return true;
81d9e625 MW	259	}
81d9e625 MW	260
a3c0d768 MW	261	// adds %UserDnsDomain% to wxGetHostName()
	262	//
	263	bool wxGetFullHostName(wxChar *buf, int n)
	264	{
	265	wxGetHostName(buf, n);
	266
	267	const wxChar *domain = wxGetenv(_T("UserDnsDomain"));
	268
	269	if (domain)
	270	wxStrncat(wxStrncat(buf, _T("."), n), domain, n);
	271
	272	return true;
	273	}
	274
	275	//----------------------------------------------------------------------------
	276	// Processes
	277	//----------------------------------------------------------------------------
	278
	279	unsigned long wxGetProcessId()
81d9e625	280	{
a3c0d768	281	return (unsigned long)getpid();
81d9e625 MW	282	}
81d9e625 MW	283
a3c0d768	284	int wxKill(long pid, wxSignal sig, wxKillError *rc, int WXUNUSED(flags))
81d9e625	285	{
a3c0d768 MW	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(_T("wxKill can only send signals to the current process under MSDOS"));
	297	if (rc)
	298	*rc = wxKILL_NO_PROCESS;
	299	}
	300
	301	return result;
81d9e625 MW	302	}
81d9e625 MW	303
a3c0d768	304	bool wxShell(const wxString& command /=wxEmptyString/)
81d9e625	305	{
a3c0d768 MW	306	// FIXME: suspend/resume gui
	307	int result = system(command);
	308
	309	if (result == -1)
	310	wxLogSysError(_("can't execute '%s'"), command.c_str());
	311
	312	return result == 0;
81d9e625 MW	313	}
81d9e625 MW	314
a3c0d768	315	long wxExecute(const wxString& command, int flags, wxProcess *process)
81d9e625	316	{
a3c0d768 MW	317	// FIXME: shouldn't depend on wxCmdLineParser
	318	wxArrayString args(wxCmdLineParser::ConvertStringToArgs(command));
	319	size_t n = args.size();
	320	wxChar *argv = new wxChar[n + 1];
	321
	322	argv[n] = NULL;
	323	while (n-- > 0)
5c33522f	324	argv[n] = const_cast<wxChar>((const char )args[n].c_str());
a3c0d768 MW	325
	326	long result = wxExecute(argv, flags, process);
	327
	328	delete [] argv;
	329	return result;
81d9e625 MW	330	}
81d9e625 MW	331
a3c0d768 MW	332	#if wxUSE_STREAMS
	333
	334	// A wxFFileInputStream that deletes the file in it's destructor
df91131c	335	//
a3c0d768 MW	336	class wxTempFileInStream : public wxFFileInputStream
	337	{
	338	public:
	339	wxTempFileInStream(const wxString& name)
	340	: wxFFileInputStream(name, _T("rt"))
	341	{ }
	342
d3c7fc99	343	virtual ~wxTempFileInStream()
a3c0d768 MW	344	{
	345	m_file->Close();
	346	wxRemoveFile(m_file->GetName());
	347	}
	348	};
	349
	350	// A file descriptor that can be redirected to a file
	351	//
	352	class wxRedirectableFd
	353	{
	354	public:
	355	wxRedirectableFd(int fd) : m_fd(fd), m_dup(-1) { }
	356	~wxRedirectableFd();
	357
	358	// Redirect the descriptor to a file, similar to ANSI C's freopen, but
	359	// for low level descriptors. The desctructor un-redirects. If O_CREAT
	360	// is in the flags then the destructor will delete the file unless it is
	361	// given away with Release().
	362	bool Reopen(const wxString& name, int flags);
	363
	364	// un-redirect the redirected file descriptor, closing the file, and give
	365	// away the filename without deleting it
	366	wxString Release();
	367
	368	private:
	369	// un-redirect the descriptor, closing the file
	370	void Restore();
	371
	372	int m_fd;
	373	int m_dup;
	374	wxString m_name;
	375	};
	376
	377	wxRedirectableFd::~wxRedirectableFd()
	378	{
	379	Restore();
	380	if (!m_name.empty())
	381	wxRemoveFile(m_name);
	382	}
	383
	384	bool wxRedirectableFd::Reopen(const wxString& name, int flags)
	385	{
	386	wxASSERT(m_dup == -1);
	387	bool result = false;
	388
	389	// save a duplicate so that the descriptor can be closed now and
	390	// restored later
	391	m_dup = dup(m_fd);
	392
	393	if (m_dup != -1)
	394	{
	395	int tmp = open(name.mb_str(), flags);
	396
	397	if (tmp != -1)
	398	{
	399	close(m_fd);
	400
	401	if (flags & O_CREAT)
	402	m_name = name;
	403
	404	result = dup2(tmp, m_fd) == m_fd;
	405	close(tmp);
	406	}
	407	}
408
409	if (!result)
410	wxLogSysError(_("error opening '%s'"), name.c_str());
411
412	return result;
413	}
414
415	void wxRedirectableFd::Restore()
416	{
417	if (m_dup != -1)
418	{
419	close(m_fd);
420	dup2(m_dup, m_fd);
421	close(m_dup);
422	m_dup = -1;
423	}
424	}
425
426	wxString wxRedirectableFd::Release()
427	{
428	Restore();
429	wxString name = m_name;
430	m_name.clear();
431	return name;
432	}
433
434	#endif // wxUSE_STREAMS
435
436	// wxExecute implementation
437	//
438	long wxExecute(wxChar *argv, int flags, wxProcess process)
439	{
440	#if wxUSE_STREAMS
441	const int STDIN = 0;
442	const int STDOUT = 1;
443	const int STDERR = 2;
444
445	wxRedirectableFd in(STDIN), out(STDOUT), err(STDERR);
446	bool redirect = process && process->IsRedirected() && (flags & wxEXEC_SYNC);
447
448	if (redirect)
449	{
450	// close stdin/out/err and reopen them as files
451	if (!in.Reopen(_T("NUL"), O_RDONLY \| O_TEXT))
452	return -1;
453
454	if (!out.Reopen(wxFileName::CreateTempFileName(_T("out")),
455	O_CREAT \| O_WRONLY \| O_TRUNC \| O_TEXT))
456	return -1;
457
458	if (!err.Reopen(wxFileName::CreateTempFileName(_T("err")),
459	O_CREAT \| O_WRONLY \| O_TRUNC \| O_TEXT))
460	return -1;
461	}
462	#endif // wxUSE_STREAMS
463
464	// FIXME: suspend/resume gui
465	int mode = flags & wxEXEC_SYNC ? P_WAIT : P_NOWAIT;
466	int result = spawnvp(mode, argv[0], argv);
467
468	if (result == -1)
469	wxLogSysError(_("can't execute '%s'"), argv[0]);
470
471	#if wxUSE_STREAMS
472	if (redirect)
473	process->SetPipeStreams(new wxTempFileInStream(out.Release()),
474	new wxFFileOutputStream(_T("NUL"), _T("wt")),
475	new wxTempFileInStream(err.Release()));
476	#endif // wxUSE_STREAMS
477
478	return result;
479	}
480
b5d09a5f MW	481
b5d09a5f MW	482	//----------------------------------------------------------------------------
8bb6b2c0	483	// OS-related
b5d09a5f MW	484	//----------------------------------------------------------------------------
	485
	486	wxString wxGetOsDescription()
	487	{
	488	wxString osname(_T("DOS"));
	489	return osname;
	490	}
8bb6b2c0 VZ	491
	492	wxOperatingSystemId wxGetOsVersion(int verMaj, int verMin)
	493	{
	494	if ( verMaj )
	495	*verMaj = _osmajor;
	496	if ( verMin )
	497	*verMin = _osminor;
	498
	499	return wxOS_DOS;
	500	}
	501
73dd8b2d MW	502	bool wxIsPlatform64Bit()
	503	{
	504	return false;
	505	}
	506