src/common/utilscmn.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        utilscmn.cpp
// Purpose:     Miscellaneous utility functions and classes
// Author:      Julian Smart
// Modified by:
// Created:     29/01/98
// RCS-ID:      $Id$
// Copyright:   (c) 1998 Julian Smart
// Licence:   	wxWindows license
/////////////////////////////////////////////////////////////////////////////

#ifdef __GNUG__
#pragma implementation "utils.h"
#endif

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

#ifdef __BORLANDC__
#pragma hdrstop
#endif

#ifndef WX_PRECOMP
#include "wx/defs.h"
#include "wx/utils.h"
#include "wx/window.h"
#include "wx/menu.h"
#include "wx/frame.h"
#include "wx/msgdlg.h"
#include "wx/textdlg.h"
#endif

#if wxUSE_IOSTREAMH
#include <iostream.h>
#include <fstream.h>
#else
#include <iostream>
#include <fstream>
#  ifdef _MSC_VER
      using namespace std;
#  endif
#endif

#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#if !defined(__WATCOMC__)
#if !(defined(_MSC_VER) && (_MSC_VER > 800))
#include <errno.h>
#endif
#endif
#include <time.h>
#include <sys/types.h>
#include <sys/stat.h>

// Pattern matching code.
// Yes, this path is deliberate (for Borland compilation)
#ifdef wx_mac /* MATTHEW: [5] Mac doesn't like paths with "/" */
#include "glob.inc"
#else
#include "../common/glob.inc"
#endif

#ifdef __WXMSW__
#include "windows.h"
#endif

#define _MAXPATHLEN 500

extern char *wxBuffer;

#ifdef __VMS__
// we have no strI functions under VMS, therefore I have implemented
// an inefficient but portable version: convert copies of strings to lowercase
// and then use the normal comparison
static void myLowerString(char *s)
{
  while(*s){
    if(isalpha(*s)) *s = (char)tolower(*s);
    s++;
  }
}

int strcasecmp(const char *str_1, const char *str_2)
{
  char *temp1 = new char[strlen(str_1)+1];
  char *temp2 = new char[strlen(str_2)+1];
  strcpy(temp1,str_1);
  strcpy(temp2,str_2);
  myLowerString(temp1);
  myLowerString(temp2);

  int result = strcmp(temp1,temp2);
  delete[] temp1;
  delete[] temp2;

  return(result);
}

int strncasecmp(const char *str_1, const char *str_2, size_t maxchar)
{
  char *temp1 = new char[strlen(str_1)+1];
  char *temp2 = new char[strlen(str_2)+1];
  strcpy(temp1,str_1);
  strcpy(temp2,str_2);
  myLowerString(temp1);
  myLowerString(temp2);

  int result = strncmp(temp1,temp2,maxchar);
  delete[] temp1;
  delete[] temp2;

  return(result);
}
#endif

#ifdef __WINDOWS__

#ifndef __GNUWIN32__
#define strcasecmp stricmp
#define strncasecmp strnicmp
#endif

#ifdef _MSC_VER
#pragma warning (disable : 4245)
#endif

#ifdef _MSC_VER
#pragma warning (default : 4245)
#endif

#else
// This declaration is missing in SunOS!
// (Yes, I know it is NOT ANSI-C but its in BSD libc)
#if defined(__xlC) || defined(__AIX__) || defined(__GNUG__)
extern "C"
{
  int strcasecmp (const char *, const char *);
  int strncasecmp (const char *, const char *, size_t);
}
#endif
#endif				/* __WXMSW__ */


char *
copystring (const char *s)
{
  if (s == NULL) s = "";
  size_t len = strlen (s) + 1;

  char *news = new char[len];
  memcpy (news, s, len);	// Should be the fastest

  return news;
}

// Id generation
static long wxCurrentId = 100;

long
wxNewId (void)
{
  return wxCurrentId++;
}

long
wxGetCurrentId(void) { return wxCurrentId; }

void
wxRegisterId (long id)
{
  if (id >= wxCurrentId)
    wxCurrentId = id + 1;
}

void
StringToFloat (char *s, float *number)
{
  if (s && *s && number)
    *number = (float) strtod (s, (char **) NULL);
}

void
StringToDouble (char *s, double *number)
{
  if (s && *s && number)
    *number = strtod (s, (char **) NULL);
}

char *
FloatToString (float number, const char *fmt)
{
  static char buf[256];

//  sprintf (buf, "%.2f", number);
  sprintf (buf, fmt, number);
  return buf;
}

char *
DoubleToString (double number, const char *fmt)
{
  static char buf[256];

  sprintf (buf, fmt, number);
  return buf;
}

void
StringToInt (char *s, int *number)
{
  if (s && *s && number)
    *number = (int) strtol (s, (char **) NULL, 10);
}

void
StringToLong (char *s, long *number)
{
  if (s && *s && number)
    *number = strtol (s, (char **) NULL, 10);
}

char *
IntToString (int number)
{
  static char buf[20];

  sprintf (buf, "%d", number);
  return buf;
}

char *
LongToString (long number)
{
  static char buf[20];

  sprintf (buf, "%ld", number);
  return buf;
}

// Array used in DecToHex conversion routine.
static char hexArray[] = { '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B',
  'C', 'D', 'E', 'F' };

// Convert 2-digit hex number to decimal
int wxHexToDec(const wxString& buf)
{
  int firstDigit, secondDigit;

  if (buf.GetChar(0) >= 'A')
    firstDigit = buf.GetChar(0) - 'A' + 10;
  else
    firstDigit = buf.GetChar(0) - '0';

  if (buf.GetChar(1) >= 'A')
    secondDigit = buf.GetChar(1) - 'A' + 10;
  else
    secondDigit = buf.GetChar(1) - '0';

  return firstDigit * 16 + secondDigit;
}

// Convert decimal integer to 2-character hex string
void wxDecToHex(int dec, char *buf)
{
  int firstDigit = (int)(dec/16.0);
  int secondDigit = (int)(dec - (firstDigit*16.0));
  buf[0] = hexArray[firstDigit];
  buf[1] = hexArray[secondDigit];
  buf[2] = 0;
}

// Convert decimal integer to 2-character hex string
wxString wxDecToHex(int dec)
{
    char buf[3];
    wxDecToHex(dec, buf);
    return wxString(buf);
}

// Match a string INDEPENDENT OF CASE
bool
StringMatch (char *str1, char *str2, bool subString, bool exact)
{
  if (str1 == NULL || str2 == NULL)
    return FALSE;
  if (str1 == str2)
    return TRUE;

  if (subString)
    {
      int len1 = strlen (str1);
      int len2 = strlen (str2);
      int i;

      // Search for str1 in str2
      // Slow .... but acceptable for short strings
      for (i = 0; i <= len2 - len1; i++)
	{
	  if (strncasecmp (str1, str2 + i, len1) == 0)
	    return TRUE;
	}
    }
  else if (exact)
    {
      if (strcasecmp (str1, str2) == 0)
	return TRUE;
    }
  else
    {
      int len1 = strlen (str1);
      int len2 = strlen (str2);

      if (strncasecmp (str1, str2, wxMin (len1, len2)) == 0)
	return TRUE;
    }

  return FALSE;
}

// Return the current date/time
// [volatile]
wxString wxNow( void )
{
  time_t now = time((time_t *) NULL);
  char *date = ctime(&now);
  date[24] = '\0';
  return wxString(date);
}

/* Get Full RFC822 style email address */
bool
wxGetEmailAddress (char *address, int maxSize)
{
  char host[65];
  char user[65];

  if (wxGetHostName(host, 64) == FALSE)
    return FALSE;
  if (wxGetUserId(user, 64) == FALSE)
    return FALSE;

  char tmp[130];
  strcpy(tmp, user);
  strcat(tmp, "@");
  strcat(tmp, host);

  strncpy(address, tmp, maxSize - 1);
  address[maxSize-1] = '\0';
  return TRUE;
}

/*
 * Strip out any menu codes
 */

char *wxStripMenuCodes (char *in, char *out)
{
  if (!in)
    return (char *) NULL;

  if (!out)
    out = copystring(in);

  char *tmpOut = out;

  while (*in)
    {
      if (*in == '&')
	{
	  // Check && -> &, &x -> x
	  if (*++in == '&')
	    *out++ = *in++;
	}
      else if (*in == '\t')
	{
          // Remove all stuff after \t in X mode, and let the stuff as is
          // in Windows mode.
          // Accelerators are handled in wx_item.cc for Motif, and are not
          // YET supported in XView
	  break;
	}
      else
	*out++ = *in++;
    }				// while

  *out = '\0';

  return tmpOut;
}

wxString wxStripMenuCodes(const wxString& str)
{
    char *buf = new char[str.Length() + 1];
    wxStripMenuCodes((char*) (const char*) str, buf);
    wxString str1(buf);
    delete[] buf;
    return str1;
}

/*
 * Window search functions
 *
 */

/*
 * If parent is non-NULL, look through children for a label or title
 * matching the specified string. If NULL, look through all top-level windows.
 *
 */

static wxWindow *wxFindWindowByLabel1 (const wxString& title, wxWindow * parent);

wxWindow *
wxFindWindowByLabel (const wxString& title, wxWindow * parent)
{
  if (parent)
    {
      return wxFindWindowByLabel1 (title, parent);
    }
  else
    {
      for (wxNode * node = wxTopLevelWindows.First (); node; node = node->Next ())
	{
	  wxWindow *win = (wxWindow *) node->Data ();
	  wxWindow *retwin = wxFindWindowByLabel1 (title, win);
	  if (retwin)
	    return retwin;
	}			// for()

    }
  return (wxWindow *) NULL;
}

// Recursive
static wxWindow *
wxFindWindowByLabel1 (const wxString& title, wxWindow * parent)
{
  if (parent)
    {
      if (parent->GetLabel() == title)
		return parent;
    }

  if (parent)
    {
      for (wxNode * node = parent->GetChildren()->First (); node; node = node->Next ())
	{
	  wxWindow *win = (wxWindow *) node->Data ();
	  wxWindow *retwin = wxFindWindowByLabel1 (title, win);
	  if (retwin)
	    return retwin;
	}			// for()

    }

  return (wxWindow *) NULL;			// Not found

}

/*
 * If parent is non-NULL, look through children for a name
 * matching the specified string. If NULL, look through all top-level windows.
 *
 */

static wxWindow *wxFindWindowByName1 (const wxString& title, wxWindow * parent);

wxWindow *
wxFindWindowByName (const wxString& title, wxWindow * parent)
{
  if (parent)
    {
      return wxFindWindowByName1 (title, parent);
    }
  else
    {
      for (wxNode * node = wxTopLevelWindows.First (); node; node = node->Next ())
	{
	  wxWindow *win = (wxWindow *) node->Data ();
	  wxWindow *retwin = wxFindWindowByName1 (title, win);
	  if (retwin)
	    return retwin;
	}			// for()

    }
  // Failed? Try by label instead.
  return wxFindWindowByLabel(title, parent);
}

// Recursive
static wxWindow *
wxFindWindowByName1 (const wxString& title, wxWindow * parent)
{
  if (parent)
    {
    	if ( parent->GetName() == title )
			return parent;
    }

  if (parent)
    {
      for (wxNode * node = parent->GetChildren()->First (); node; node = node->Next ())
	{
	  wxWindow *win = (wxWindow *) node->Data ();
	  wxWindow *retwin = wxFindWindowByName1 (title, win);
	  if (retwin)
	    return retwin;
	}			// for()

    }

  return (wxWindow *) NULL;			// Not found

}

// Returns menu item id or -1 if none.
int
wxFindMenuItemId (wxFrame * frame, const wxString& menuString, const wxString& itemString)
{
  wxMenuBar *menuBar = frame->GetMenuBar ();
  if (!menuBar)
    return -1;
  return menuBar->FindMenuItem (menuString, itemString);
}

/*
 * wxDebugStreamBuf
 */
#if !defined(_WINDLL)

wxDebugStreamBuf::wxDebugStreamBuf(void)
{
	// <iostream> usage doesn't need this, and i have no idea how to simulate it.
#if wxUSE_IOSTREAMH
	if (allocate())
	  setp(base(),ebuf());
#endif
}

int wxDebugStreamBuf::overflow(int WXUNUSED(i))
{
  int len = pptr() - pbase();
  char *txt = new char[len+1];
  strncpy(txt, pbase(), len);
  txt[len] = '\0';
#ifdef __WXMSW__
  OutputDebugString((LPCSTR)txt);
#else
  fprintf(stderr, txt);
#endif
  setp(pbase(), epptr());
  delete[] txt;
  return EOF;
}

int wxDebugStreamBuf::sync(void)
{
  int len = pptr() - pbase();
  char *txt = new char[len+1];
  strncpy(txt, pbase(), len);
  txt[len] = '\0';
#ifdef __WXMSW__
  OutputDebugString((LPCSTR)txt);
#else
  fprintf(stderr, txt);
#endif
  setp(pbase(), epptr());
  delete[] txt;
  return 0;
}

#endif

/*
On Fri, 21 Jul 1995, Paul Craven wrote:

> Is there a way to find the path of running program's executable? I can get
> my home directory, and the current directory, but I don't know how to get the
> executable directory.
>

The code below (warty as it is), does what you want on most Unix,
DOS, and Mac platforms (it's from the ALS Prolog main).

|| Ken Bowen      Applied Logic Systems, Inc.         PO Box 180,
||====            Voice:  +1 (617)965-9191            Newton Centre,
||                FAX:    +1 (617)965-1636            MA  02159  USA
                  Email:  ken@als.com        WWW: http://www.als.com
------------------------------------------------------------------------
*/

// This code is commented out but it may be integrated with wxWin at
// a later date, after testing. Thanks Ken!
#if 0

/*--------------------------------------------------------------------*
 | whereami is given a filename f in the form:  whereami(argv[0])
 | It returns the directory in which the executable file (containing
 | this code [main.c] ) may be found.  A dot will be returned to indicate
 | the current directory.
 *--------------------------------------------------------------------*/

static void
whereami(name)
    char *name;
{
    register char *cutoff = NULL;	/* stifle -Wall */
    register char *s;
    register char *t;
    int   cc;
    char  ebuf[4096];

    /*
     * See if the file is accessible either through the current directory
     * or through an absolute path.
     */

    if (access(name, R_OK) == 0) {

	/*-------------------------------------------------------------*
	 * The file was accessible without any other work.  But the current
	 * working directory might change on us, so if it was accessible
	 * through the cwd, then we should get it for later accesses.
	 *-------------------------------------------------------------*/

	t = imagedir;
	if (!absolute_pathname(name)) {
#if defined(DOS) || defined(__WIN32__)
	    int   drive;
	    char *newrbuf;

	    newrbuf = imagedir;
#ifndef __DJGPP__
	    if (*(name + 1) == ':') {
		if (*name >= 'a' && *name <= 'z')
		    drive = (int) (*name - 'a' + 1);
		else
		    drive = (int) (*name - 'A' + 1);
		*newrbuf++ = *name;
		*newrbuf++ = *(name + 1);
		*newrbuf++ = DIR_SEPARATOR;
	    }
	    else {
		drive = 0;
		*newrbuf++ = DIR_SEPARATOR;
	    }
	    if (getcwd(newrbuf, drive) == 0) {	/* } */
#else
	    if (getcwd(newrbuf, 1024) == 0) {	/* } */
#endif
#else  /* DOS */
#ifdef HAVE_GETWD
	    if (getwd(imagedir) == 0) {		/* } */
#else  /* !HAVE_GETWD */
	    if (getcwd(imagedir, 1024) == 0) {
#endif /* !HAVE_GETWD */
#endif /* DOS */
		fatal_error(FE_GETCWD, 0);
	    }
	    for (; *t; t++)	/* Set t to end of buffer */
		;
	    if (*(t - 1) == DIR_SEPARATOR)	/* leave slash if already
						 * last char
						 */
		cutoff = t - 1;
	    else {
		cutoff = t;	/* otherwise put one in */
		*t++ = DIR_SEPARATOR;
	    }
	}
#if (!defined(__MAC__) && !defined(__DJGPP__) && !defined(__GO32__) && !defined(__WIN32__))
	else
		(*t++ = DIR_SEPARATOR);
#endif

	/*-------------------------------------------------------------*
	 * Copy the rest of the string and set the cutoff if it was not
	 * already set.  If the first character of name is a slash, cutoff
	 * is not presently set but will be on the first iteration of the
	 * loop below.
	 *-------------------------------------------------------------*/

	for ((*name == DIR_SEPARATOR ? (s = name+1) : (s = name));;) {
	    if (*s == DIR_SEPARATOR)
			cutoff = t;
	    if (!(*t++ = *s++))
			break;
	}

    }
    else {

	/*-------------------------------------------------------------*
	 * Get the path list from the environment.  If the path list is
	 * inaccessible for any reason, leave with fatal error.
	 *-------------------------------------------------------------*/

#ifdef __MAC__
	if ((s = getenv("Commands")) == (char *) 0)
#else
	if ((s = getenv("PATH")) == (char *) 0)
#endif
	    fatal_error(FE_PATH, 0);

	/*
	 * Copy path list into ebuf and set the source pointer to the
	 * beginning of this buffer.
	 */

	strcpy(ebuf, s);
	s = ebuf;

	for (;;) {
	    t = imagedir;
	    while (*s && *s != PATH_SEPARATOR)
		*t++ = *s++;
	    if (t > imagedir && *(t - 1) == DIR_SEPARATOR)
		;		/* do nothing -- slash already is in place */
	    else
		*t++ = DIR_SEPARATOR;	/* put in the slash */
	    cutoff = t - 1;	/* set cutoff */
	    strcpy(t, name);
	    if (access(imagedir, R_OK) == 0)
		break;

	    if (*s)
		s++;		/* advance source pointer */
	    else
		fatal_error(FE_INFND, 0);
	}

    }

    /*-------------------------------------------------------------*
     | At this point the full pathname should exist in imagedir and
     | cutoff should be set to the final slash.  We must now determine
     | whether the file name is a symbolic link or not and chase it down
     | if it is.  Note that we reuse ebuf for getting the link.
     *-------------------------------------------------------------*/

#ifdef HAVE_SYMLINK
    while ((cc = readlink(imagedir, ebuf, 512)) != -1) {
	ebuf[cc] = 0;
	s = ebuf;
	if (*s == DIR_SEPARATOR) {
	    t = imagedir;
	}
	else {
	    t = cutoff + 1;
	}
	for (;;) {
	    if (*s == DIR_SEPARATOR)
		cutoff = t;	/* mark the last slash seen */
	    if (!(*t++ = *s++))	/* copy the character */
		break;
	}
    }

#endif /* HAVE_SYMLINK */

    strcpy(imagename, cutoff + 1);	/* keep the image name */
    *(cutoff + 1) = 0;		/* chop off the filename part */
}

#endif

/*
 * N.B. these convenience functions must be separate from msgdlgg.cpp, textdlgg.cpp
 * since otherwise the generic code may be pulled in unnecessarily.
 */

int wxMessageBox(const wxString& message, const wxString& caption, long style,
                 wxWindow *parent, int WXUNUSED(x), int WXUNUSED(y) )
{
    wxMessageDialog dialog(parent, message, caption, style);

    int ans = dialog.ShowModal();
    switch ( ans )
    {
        case wxID_OK:
            return wxOK;
            break;
        case wxID_YES:
            return wxYES;
            break;
        case wxID_NO:
            return wxNO;
            break;
        default:
        case wxID_CANCEL:
            return wxCANCEL;
            break;
    }
    return ans;
}

wxString wxGetTextFromUser(const wxString& message, const wxString& caption,
                        const wxString& defaultValue, wxWindow *parent,
                        int x, int y, bool WXUNUSED(centre) )
{
    wxTextEntryDialog dialog(parent, message, caption, defaultValue, wxOK|wxCANCEL, wxPoint(x, y));
    if (dialog.ShowModal() == wxID_OK)
        return dialog.GetValue();
    else
        return wxString("");
}
Commit	Line	Data
	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: utilscmn.cpp
	3	// Purpose: Miscellaneous utility functions and classes
	4	// Author: Julian Smart
	5	// Modified by:
	6	// Created: 29/01/98
	7	// RCS-ID: $Id$
	8	// Copyright: (c) 1998 Julian Smart
	9	// Licence: wxWindows license
	10	/////////////////////////////////////////////////////////////////////////////
	11
	12	#ifdef __GNUG__
	13	#pragma implementation "utils.h"
	14	#endif
	15
	16	// For compilers that support precompilation, includes "wx.h".
	17	#include "wx/wxprec.h"
	18
	19	#ifdef __BORLANDC__
	20	#pragma hdrstop
	21	#endif
	22
	23	#ifndef WX_PRECOMP
	24	#include "wx/defs.h"
	25	#include "wx/utils.h"
	26	#include "wx/window.h"
	27	#include "wx/menu.h"
	28	#include "wx/frame.h"
	29	#include "wx/msgdlg.h"
	30	#include "wx/textdlg.h"
	31	#endif
	32
	33	#if wxUSE_IOSTREAMH
	34	#include <iostream.h>
	35	#include <fstream.h>
	36	#else
	37	#include <iostream>
	38	#include <fstream>
	39	# ifdef _MSC_VER
	40	using namespace std;
	41	# endif
	42	#endif
	43
	44	#include <ctype.h>
	45	#include <stdio.h>
	46	#include <stdlib.h>
	47	#include <string.h>
	48	#if !defined(__WATCOMC__)
	49	#if !(defined(_MSC_VER) && (_MSC_VER > 800))
	50	#include <errno.h>
	51	#endif
	52	#endif
	53	#include <time.h>
	54	#include <sys/types.h>
	55	#include <sys/stat.h>
	56
	57	// Pattern matching code.
	58	// Yes, this path is deliberate (for Borland compilation)
	59	#ifdef wx_mac /* MATTHEW: [5] Mac doesn't like paths with "/" */
	60	#include "glob.inc"
	61	#else
	62	#include "../common/glob.inc"
	63	#endif
	64
	65	#ifdef __WXMSW__
	66	#include "windows.h"
	67	#endif
	68
	69	#define _MAXPATHLEN 500
	70
	71	extern char *wxBuffer;
	72
	73	#ifdef __VMS__
	74	// we have no strI functions under VMS, therefore I have implemented
	75	// an inefficient but portable version: convert copies of strings to lowercase
	76	// and then use the normal comparison
	77	static void myLowerString(char *s)
	78	{
	79	while(*s){
	80	if(isalpha(s)) s = (char)tolower(*s);
	81	s++;
	82	}
	83	}
	84
	85	int strcasecmp(const char str_1, const char str_2)
	86	{
	87	char *temp1 = new char[strlen(str_1)+1];
	88	char *temp2 = new char[strlen(str_2)+1];
	89	strcpy(temp1,str_1);
	90	strcpy(temp2,str_2);
	91	myLowerString(temp1);
	92	myLowerString(temp2);
	93
	94	int result = strcmp(temp1,temp2);
	95	delete[] temp1;
	96	delete[] temp2;
	97
	98	return(result);
	99	}
	100
	101	int strncasecmp(const char str_1, const char str_2, size_t maxchar)
	102	{
	103	char *temp1 = new char[strlen(str_1)+1];
	104	char *temp2 = new char[strlen(str_2)+1];
	105	strcpy(temp1,str_1);
	106	strcpy(temp2,str_2);
	107	myLowerString(temp1);
	108	myLowerString(temp2);
	109
	110	int result = strncmp(temp1,temp2,maxchar);
	111	delete[] temp1;
	112	delete[] temp2;
	113
	114	return(result);
	115	}
	116	#endif
	117
	118	#ifdef __WINDOWS__
	119
	120	#ifndef __GNUWIN32__
	121	#define strcasecmp stricmp
	122	#define strncasecmp strnicmp
	123	#endif
	124
	125	#ifdef _MSC_VER
	126	#pragma warning (disable : 4245)
	127	#endif
	128
	129	#ifdef _MSC_VER
	130	#pragma warning (default : 4245)
	131	#endif
	132
	133	#else
	134	// This declaration is missing in SunOS!
	135	// (Yes, I know it is NOT ANSI-C but its in BSD libc)
	136	#if defined(__xlC) \|\| defined(__AIX__) \|\| defined(__GNUG__)
	137	extern "C"
	138	{
	139	int strcasecmp (const char , const char );
	140	int strncasecmp (const char , const char , size_t);
	141	}
	142	#endif
	143	#endif /* __WXMSW__ */
	144
	145
	146	char *
	147	copystring (const char *s)
	148	{
	149	if (s == NULL) s = "";
	150	size_t len = strlen (s) + 1;
	151
	152	char *news = new char[len];
	153	memcpy (news, s, len); // Should be the fastest
	154
	155	return news;
	156	}
	157
	158	// Id generation
	159	static long wxCurrentId = 100;
	160
	161	long
	162	wxNewId (void)
	163	{
	164	return wxCurrentId++;
	165	}
	166
	167	long
	168	wxGetCurrentId(void) { return wxCurrentId; }
	169
	170	void
	171	wxRegisterId (long id)
	172	{
	173	if (id >= wxCurrentId)
	174	wxCurrentId = id + 1;
	175	}
	176
	177	void
	178	StringToFloat (char s, float number)
	179	{
	180	if (s && *s && number)
	181	number = (float) strtod (s, (char *) NULL);
	182	}
	183
	184	void
	185	StringToDouble (char s, double number)
	186	{
	187	if (s && *s && number)
	188	number = strtod (s, (char *) NULL);
	189	}
	190
	191	char *
	192	FloatToString (float number, const char *fmt)
	193	{
	194	static char buf[256];
	195
	196	// sprintf (buf, "%.2f", number);
	197	sprintf (buf, fmt, number);
	198	return buf;
	199	}
	200
	201	char *
	202	DoubleToString (double number, const char *fmt)
	203	{
	204	static char buf[256];
	205
	206	sprintf (buf, fmt, number);
	207	return buf;
	208	}
	209
	210	void
	211	StringToInt (char s, int number)
	212	{
	213	if (s && *s && number)
	214	number = (int) strtol (s, (char *) NULL, 10);
	215	}
	216
	217	void
	218	StringToLong (char s, long number)
	219	{
	220	if (s && *s && number)
	221	number = strtol (s, (char *) NULL, 10);
	222	}
	223
	224	char *
	225	IntToString (int number)
	226	{
	227	static char buf[20];
	228
	229	sprintf (buf, "%d", number);
	230	return buf;
	231	}
	232
	233	char *
	234	LongToString (long number)
	235	{
	236	static char buf[20];
	237
	238	sprintf (buf, "%ld", number);
	239	return buf;
	240	}
	241
	242	// Array used in DecToHex conversion routine.
	243	static char hexArray[] = { '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B',
	244	'C', 'D', 'E', 'F' };
	245
	246	// Convert 2-digit hex number to decimal
	247	int wxHexToDec(const wxString& buf)
	248	{
	249	int firstDigit, secondDigit;
	250
	251	if (buf.GetChar(0) >= 'A')
	252	firstDigit = buf.GetChar(0) - 'A' + 10;
	253	else
	254	firstDigit = buf.GetChar(0) - '0';
	255
	256	if (buf.GetChar(1) >= 'A')
	257	secondDigit = buf.GetChar(1) - 'A' + 10;
	258	else
	259	secondDigit = buf.GetChar(1) - '0';
	260
	261	return firstDigit * 16 + secondDigit;
	262	}
	263
	264	// Convert decimal integer to 2-character hex string
	265	void wxDecToHex(int dec, char *buf)
	266	{
	267	int firstDigit = (int)(dec/16.0);
	268	int secondDigit = (int)(dec - (firstDigit*16.0));
	269	buf[0] = hexArray[firstDigit];
	270	buf[1] = hexArray[secondDigit];
	271	buf[2] = 0;
	272	}
	273
	274	// Convert decimal integer to 2-character hex string
	275	wxString wxDecToHex(int dec)
	276	{
	277	char buf[3];
	278	wxDecToHex(dec, buf);
	279	return wxString(buf);
	280	}
	281
	282	// Match a string INDEPENDENT OF CASE
	283	bool
	284	StringMatch (char str1, char str2, bool subString, bool exact)
	285	{
	286	if (str1 == NULL \|\| str2 == NULL)
	287	return FALSE;
	288	if (str1 == str2)
	289	return TRUE;
	290
	291	if (subString)
	292	{
	293	int len1 = strlen (str1);
	294	int len2 = strlen (str2);
	295	int i;
	296
	297	// Search for str1 in str2
	298	// Slow .... but acceptable for short strings
	299	for (i = 0; i <= len2 - len1; i++)
	300	{
	301	if (strncasecmp (str1, str2 + i, len1) == 0)
	302	return TRUE;
	303	}
	304	}
	305	else if (exact)
	306	{
	307	if (strcasecmp (str1, str2) == 0)
	308	return TRUE;
	309	}
	310	else
	311	{
	312	int len1 = strlen (str1);
	313	int len2 = strlen (str2);
	314
	315	if (strncasecmp (str1, str2, wxMin (len1, len2)) == 0)
	316	return TRUE;
	317	}
	318
	319	return FALSE;
	320	}
	321
	322	// Return the current date/time
	323	// [volatile]
	324	wxString wxNow( void )
	325	{
	326	time_t now = time((time_t *) NULL);
	327	char *date = ctime(&now);
	328	date[24] = '\0';
	329	return wxString(date);
	330	}
	331
	332	/* Get Full RFC822 style email address */
	333	bool
	334	wxGetEmailAddress (char *address, int maxSize)
	335	{
	336	char host[65];
	337	char user[65];
	338
	339	if (wxGetHostName(host, 64) == FALSE)
	340	return FALSE;
	341	if (wxGetUserId(user, 64) == FALSE)
	342	return FALSE;
	343
	344	char tmp[130];
	345	strcpy(tmp, user);
	346	strcat(tmp, "@");
	347	strcat(tmp, host);
	348
	349	strncpy(address, tmp, maxSize - 1);
	350	address[maxSize-1] = '\0';
	351	return TRUE;
	352	}
	353
	354	/*
	355	* Strip out any menu codes
	356	*/
	357
	358	char wxStripMenuCodes (char in, char *out)
	359	{
	360	if (!in)
	361	return (char *) NULL;
	362
	363	if (!out)
	364	out = copystring(in);
	365
	366	char *tmpOut = out;
	367
	368	while (*in)
	369	{
	370	if (*in == '&')
	371	{
	372	// Check && -> &, &x -> x
	373	if (*++in == '&')
	374	out++ = in++;
	375	}
	376	else if (*in == '\t')
	377	{
	378	// Remove all stuff after \t in X mode, and let the stuff as is
	379	// in Windows mode.
	380	// Accelerators are handled in wx_item.cc for Motif, and are not
	381	// YET supported in XView
	382	break;
	383	}
	384	else
	385	out++ = in++;
	386	} // while
	387
	388	*out = '\0';
	389
	390	return tmpOut;
	391	}
	392
	393	wxString wxStripMenuCodes(const wxString& str)
	394	{
	395	char *buf = new char[str.Length() + 1];
	396	wxStripMenuCodes((char) (const char) str, buf);
	397	wxString str1(buf);
	398	delete[] buf;
	399	return str1;
	400	}
	401
	402	/*
	403	* Window search functions
	404	*
	405	*/
	406
	407	/*
	408	* If parent is non-NULL, look through children for a label or title
	409	* matching the specified string. If NULL, look through all top-level windows.
	410	*
	411	*/
	412
	413	static wxWindow wxFindWindowByLabel1 (const wxString& title, wxWindow parent);
	414
	415	wxWindow *
	416	wxFindWindowByLabel (const wxString& title, wxWindow * parent)
	417	{
	418	if (parent)
	419	{
	420	return wxFindWindowByLabel1 (title, parent);
	421	}
	422	else
	423	{
	424	for (wxNode * node = wxTopLevelWindows.First (); node; node = node->Next ())
	425	{
	426	wxWindow win = (wxWindow ) node->Data ();
	427	wxWindow *retwin = wxFindWindowByLabel1 (title, win);
	428	if (retwin)
	429	return retwin;
	430	} // for()
	431
	432	}
	433	return (wxWindow *) NULL;
	434	}
	435
	436	// Recursive
	437	static wxWindow *
	438	wxFindWindowByLabel1 (const wxString& title, wxWindow * parent)
	439	{
	440	if (parent)
	441	{
	442	if (parent->GetLabel() == title)
	443	return parent;
	444	}
	445
	446	if (parent)
	447	{
	448	for (wxNode * node = parent->GetChildren()->First (); node; node = node->Next ())
	449	{
	450	wxWindow win = (wxWindow ) node->Data ();
	451	wxWindow *retwin = wxFindWindowByLabel1 (title, win);
	452	if (retwin)
	453	return retwin;
	454	} // for()
	455
	456	}
	457
	458	return (wxWindow *) NULL; // Not found
	459
	460	}
	461
	462	/*
	463	* If parent is non-NULL, look through children for a name
	464	* matching the specified string. If NULL, look through all top-level windows.
	465	*
	466	*/
	467
	468	static wxWindow wxFindWindowByName1 (const wxString& title, wxWindow parent);
	469
	470	wxWindow *
	471	wxFindWindowByName (const wxString& title, wxWindow * parent)
	472	{
	473	if (parent)
	474	{
	475	return wxFindWindowByName1 (title, parent);
	476	}
	477	else
	478	{
	479	for (wxNode * node = wxTopLevelWindows.First (); node; node = node->Next ())
	480	{
	481	wxWindow win = (wxWindow ) node->Data ();
	482	wxWindow *retwin = wxFindWindowByName1 (title, win);
	483	if (retwin)
	484	return retwin;
	485	} // for()
	486
	487	}
	488	// Failed? Try by label instead.
	489	return wxFindWindowByLabel(title, parent);
	490	}
	491
	492	// Recursive
	493	static wxWindow *
	494	wxFindWindowByName1 (const wxString& title, wxWindow * parent)
	495	{
	496	if (parent)
	497	{
	498	if ( parent->GetName() == title )
	499	return parent;
	500	}
	501
	502	if (parent)
	503	{
	504	for (wxNode * node = parent->GetChildren()->First (); node; node = node->Next ())
	505	{
	506	wxWindow win = (wxWindow ) node->Data ();
	507	wxWindow *retwin = wxFindWindowByName1 (title, win);
	508	if (retwin)
	509	return retwin;
	510	} // for()
	511
	512	}
	513
	514	return (wxWindow *) NULL; // Not found
	515
	516	}
	517
	518	// Returns menu item id or -1 if none.
	519	int
	520	wxFindMenuItemId (wxFrame * frame, const wxString& menuString, const wxString& itemString)
	521	{
	522	wxMenuBar *menuBar = frame->GetMenuBar ();
	523	if (!menuBar)
	524	return -1;
	525	return menuBar->FindMenuItem (menuString, itemString);
	526	}
	527
	528	/*
	529	* wxDebugStreamBuf
	530	*/
	531	#if !defined(_WINDLL)
	532
	533	wxDebugStreamBuf::wxDebugStreamBuf(void)
	534	{
	535	// <iostream> usage doesn't need this, and i have no idea how to simulate it.
	536	#if wxUSE_IOSTREAMH
	537	if (allocate())
	538	setp(base(),ebuf());
	539	#endif
	540	}
	541
	542	int wxDebugStreamBuf::overflow(int WXUNUSED(i))
	543	{
	544	int len = pptr() - pbase();
	545	char *txt = new char[len+1];
	546	strncpy(txt, pbase(), len);
	547	txt[len] = '\0';
	548	#ifdef __WXMSW__
	549	OutputDebugString((LPCSTR)txt);
	550	#else
	551	fprintf(stderr, txt);
	552	#endif
	553	setp(pbase(), epptr());
	554	delete[] txt;
	555	return EOF;
	556	}
	557
	558	int wxDebugStreamBuf::sync(void)
	559	{
	560	int len = pptr() - pbase();
	561	char *txt = new char[len+1];
	562	strncpy(txt, pbase(), len);
	563	txt[len] = '\0';
	564	#ifdef __WXMSW__
	565	OutputDebugString((LPCSTR)txt);
	566	#else
	567	fprintf(stderr, txt);
	568	#endif
	569	setp(pbase(), epptr());
	570	delete[] txt;
	571	return 0;
	572	}
	573
	574	#endif
	575
	576	/*
	577	On Fri, 21 Jul 1995, Paul Craven wrote:
	578
	579	> Is there a way to find the path of running program's executable? I can get
	580	> my home directory, and the current directory, but I don't know how to get the
	581	> executable directory.
	582	>
	583
	584	The code below (warty as it is), does what you want on most Unix,
	585	DOS, and Mac platforms (it's from the ALS Prolog main).
	586
	587	\|\| Ken Bowen Applied Logic Systems, Inc. PO Box 180,
	588	\|\|==== Voice: +1 (617)965-9191 Newton Centre,
	589	\|\| FAX: +1 (617)965-1636 MA 02159 USA
	590	Email: ken@als.com WWW: http://www.als.com
	591	------------------------------------------------------------------------
	592	*/
	593
	594	// This code is commented out but it may be integrated with wxWin at
	595	// a later date, after testing. Thanks Ken!
	596	#if 0
	597
	598	/--------------------------------------------------------------------
	599	\| whereami is given a filename f in the form: whereami(argv[0])
	600	\| It returns the directory in which the executable file (containing
	601	\| this code [main.c] ) may be found. A dot will be returned to indicate
	602	\| the current directory.
	603	--------------------------------------------------------------------/
	604
	605	static void
	606	whereami(name)
	607	char *name;
	608	{
	609	register char cutoff = NULL; / stifle -Wall */
	610	register char *s;
	611	register char *t;
	612	int cc;
	613	char ebuf[4096];
	614
	615	/*
	616	* See if the file is accessible either through the current directory
	617	* or through an absolute path.
	618	*/
	619
	620	if (access(name, R_OK) == 0) {
	621
	622	/-------------------------------------------------------------
	623	* The file was accessible without any other work. But the current
	624	* working directory might change on us, so if it was accessible
	625	* through the cwd, then we should get it for later accesses.
	626	-------------------------------------------------------------/
	627
	628	t = imagedir;
	629	if (!absolute_pathname(name)) {
	630	#if defined(DOS) \|\| defined(__WIN32__)
	631	int drive;
	632	char *newrbuf;
	633
	634	newrbuf = imagedir;
	635	#ifndef __DJGPP__
	636	if (*(name + 1) == ':') {
	637	if (name >= 'a' && name <= 'z')
	638	drive = (int) (*name - 'a' + 1);
	639	else
	640	drive = (int) (*name - 'A' + 1);
	641	newrbuf++ = name;
	642	newrbuf++ = (name + 1);
	643	*newrbuf++ = DIR_SEPARATOR;
	644	}
	645	else {
	646	drive = 0;
	647	*newrbuf++ = DIR_SEPARATOR;
	648	}
	649	if (getcwd(newrbuf, drive) == 0) { /* } */
	650	#else
	651	if (getcwd(newrbuf, 1024) == 0) { /* } */
	652	#endif
	653	#else /* DOS */
	654	#ifdef HAVE_GETWD
	655	if (getwd(imagedir) == 0) { /* } */
	656	#else /* !HAVE_GETWD */
	657	if (getcwd(imagedir, 1024) == 0) {
	658	#endif /* !HAVE_GETWD */
	659	#endif /* DOS */
	660	fatal_error(FE_GETCWD, 0);
	661	}
	662	for (; t; t++) / Set t to end of buffer */
	663	;
	664	if ((t - 1) == DIR_SEPARATOR) / leave slash if already
	665	* last char
	666	*/
	667	cutoff = t - 1;
	668	else {
	669	cutoff = t; /* otherwise put one in */
	670	*t++ = DIR_SEPARATOR;
	671	}
	672	}
	673	#if (!defined(__MAC__) && !defined(__DJGPP__) && !defined(__GO32__) && !defined(__WIN32__))
	674	else
	675	(*t++ = DIR_SEPARATOR);
	676	#endif
	677
	678	/-------------------------------------------------------------
	679	* Copy the rest of the string and set the cutoff if it was not
	680	* already set. If the first character of name is a slash, cutoff
	681	* is not presently set but will be on the first iteration of the
	682	* loop below.
	683	-------------------------------------------------------------/
	684
	685	for ((*name == DIR_SEPARATOR ? (s = name+1) : (s = name));;) {
	686	if (*s == DIR_SEPARATOR)
	687	cutoff = t;
	688	if (!(t++ = s++))
	689	break;
	690	}
	691
	692	}
	693	else {
	694
	695	/-------------------------------------------------------------
	696	* Get the path list from the environment. If the path list is
	697	* inaccessible for any reason, leave with fatal error.
	698	-------------------------------------------------------------/
	699
	700	#ifdef __MAC__
	701	if ((s = getenv("Commands")) == (char *) 0)
	702	#else
	703	if ((s = getenv("PATH")) == (char *) 0)
	704	#endif
	705	fatal_error(FE_PATH, 0);
	706
	707	/*
	708	* Copy path list into ebuf and set the source pointer to the
	709	* beginning of this buffer.
	710	*/
	711
	712	strcpy(ebuf, s);
	713	s = ebuf;
	714
	715	for (;;) {
	716	t = imagedir;
	717	while (s && s != PATH_SEPARATOR)
	718	t++ = s++;
	719	if (t > imagedir && *(t - 1) == DIR_SEPARATOR)
	720	; /* do nothing -- slash already is in place */
	721	else
	722	t++ = DIR_SEPARATOR; / put in the slash */
	723	cutoff = t - 1; /* set cutoff */
	724	strcpy(t, name);
	725	if (access(imagedir, R_OK) == 0)
	726	break;
	727
	728	if (*s)
	729	s++; /* advance source pointer */
	730	else
	731	fatal_error(FE_INFND, 0);
	732	}
	733
	734	}
	735
	736	/-------------------------------------------------------------
	737	\| At this point the full pathname should exist in imagedir and
	738	\| cutoff should be set to the final slash. We must now determine
	739	\| whether the file name is a symbolic link or not and chase it down
	740	\| if it is. Note that we reuse ebuf for getting the link.
	741	-------------------------------------------------------------/
	742
	743	#ifdef HAVE_SYMLINK
	744	while ((cc = readlink(imagedir, ebuf, 512)) != -1) {
	745	ebuf[cc] = 0;
	746	s = ebuf;
	747	if (*s == DIR_SEPARATOR) {
	748	t = imagedir;
	749	}
	750	else {
	751	t = cutoff + 1;
	752	}
	753	for (;;) {
	754	if (*s == DIR_SEPARATOR)
	755	cutoff = t; /* mark the last slash seen */
	756	if (!(t++ = s++)) /* copy the character */
	757	break;
	758	}
	759	}
	760
	761	#endif /* HAVE_SYMLINK */
	762
	763	strcpy(imagename, cutoff + 1); /* keep the image name */
	764	(cutoff + 1) = 0; / chop off the filename part */
	765	}
	766
	767	#endif
	768
	769	/*
	770	* N.B. these convenience functions must be separate from msgdlgg.cpp, textdlgg.cpp
	771	* since otherwise the generic code may be pulled in unnecessarily.
	772	*/
	773
	774	int wxMessageBox(const wxString& message, const wxString& caption, long style,
	775	wxWindow *parent, int WXUNUSED(x), int WXUNUSED(y) )
	776	{
	777	wxMessageDialog dialog(parent, message, caption, style);
	778
	779	int ans = dialog.ShowModal();
	780	switch ( ans )
	781	{
	782	case wxID_OK:
	783	return wxOK;
	784	break;
	785	case wxID_YES:
	786	return wxYES;
	787	break;
	788	case wxID_NO:
	789	return wxNO;
	790	break;
	791	default:
	792	case wxID_CANCEL:
	793	return wxCANCEL;
	794	break;
	795	}
	796	return ans;
	797	}
	798
	799	wxString wxGetTextFromUser(const wxString& message, const wxString& caption,
	800	const wxString& defaultValue, wxWindow *parent,
	801	int x, int y, bool WXUNUSED(centre) )
	802	{
	803	wxTextEntryDialog dialog(parent, message, caption, defaultValue, wxOK\|wxCANCEL, wxPoint(x, y));
	804	if (dialog.ShowModal() == wxID_OK)
	805	return dialog.GetValue();
	806	else
	807	return wxString("");
	808	}
	809