]>
git.saurik.com Git - wxWidgets.git/blob - src/common/utilscmn.cpp
1 /////////////////////////////////////////////////////////////////////////////
3 // Purpose: Miscellaneous utility functions and classes
4 // Author: Julian Smart
8 // Copyright: (c) 1998 Julian Smart
9 // Licence: wxWindows license
10 /////////////////////////////////////////////////////////////////////////////
13 #pragma implementation "utils.h"
16 // For compilers that support precompilation, includes "wx.h".
17 #include "wx/wxprec.h"
26 #include "wx/window.h"
29 #include "wx/msgdlg.h"
30 #include "wx/textdlg.h"
48 #if !defined(__WATCOMC__)
49 #if !(defined(_MSC_VER) && (_MSC_VER > 800))
54 #include <sys/types.h>
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 "/" */
62 #include "../common/glob.inc"
69 #define _MAXPATHLEN 500
71 extern char *wxBuffer
;
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
)
80 if(isalpha(*s
)) *s
= (char)tolower(*s
);
85 int strcasecmp(const char *str_1
, const char *str_2
)
87 char *temp1
= new char[strlen(str_1
)+1];
88 char *temp2
= new char[strlen(str_2
)+1];
94 int result
= strcmp(temp1
,temp2
);
101 int strncasecmp(const char *str_1
, const char *str_2
, size_t maxchar
)
103 char *temp1
= new char[strlen(str_1
)+1];
104 char *temp2
= new char[strlen(str_2
)+1];
107 myLowerString(temp1
);
108 myLowerString(temp2
);
110 int result
= strncmp(temp1
,temp2
,maxchar
);
121 #define strcasecmp stricmp
122 #define strncasecmp strnicmp
126 #pragma warning (disable : 4245)
130 #pragma warning (default : 4245)
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__)
139 int strcasecmp (const char *, const char *);
140 int strncasecmp (const char *, const char *, size_t);
143 #endif /* __WXMSW__ */
147 copystring (const char *s
)
149 if (s
== NULL
) s
= "";
150 size_t len
= strlen (s
) + 1;
152 char *news
= new char[len
];
153 memcpy (news
, s
, len
); // Should be the fastest
159 static long wxCurrentId
= 100;
164 return wxCurrentId
++;
168 wxGetCurrentId(void) { return wxCurrentId
; }
171 wxRegisterId (long id
)
173 if (id
>= wxCurrentId
)
174 wxCurrentId
= id
+ 1;
178 StringToFloat (char *s
, float *number
)
180 if (s
&& *s
&& number
)
181 *number
= (float) strtod (s
, (char **) NULL
);
185 StringToDouble (char *s
, double *number
)
187 if (s
&& *s
&& number
)
188 *number
= strtod (s
, (char **) NULL
);
192 FloatToString (float number
, const char *fmt
)
194 static char buf
[256];
196 // sprintf (buf, "%.2f", number);
197 sprintf (buf
, fmt
, number
);
202 DoubleToString (double number
, const char *fmt
)
204 static char buf
[256];
206 sprintf (buf
, fmt
, number
);
211 StringToInt (char *s
, int *number
)
213 if (s
&& *s
&& number
)
214 *number
= (int) strtol (s
, (char **) NULL
, 10);
218 StringToLong (char *s
, long *number
)
220 if (s
&& *s
&& number
)
221 *number
= strtol (s
, (char **) NULL
, 10);
225 IntToString (int number
)
229 sprintf (buf
, "%d", number
);
234 LongToString (long number
)
238 sprintf (buf
, "%ld", number
);
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' };
246 // Convert 2-digit hex number to decimal
247 int wxHexToDec(const wxString
& buf
)
249 int firstDigit
, secondDigit
;
251 if (buf
.GetChar(0) >= 'A')
252 firstDigit
= buf
.GetChar(0) - 'A' + 10;
254 firstDigit
= buf
.GetChar(0) - '0';
256 if (buf
.GetChar(1) >= 'A')
257 secondDigit
= buf
.GetChar(1) - 'A' + 10;
259 secondDigit
= buf
.GetChar(1) - '0';
261 return firstDigit
* 16 + secondDigit
;
264 // Convert decimal integer to 2-character hex string
265 void wxDecToHex(int dec
, char *buf
)
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
];
274 // Convert decimal integer to 2-character hex string
275 wxString
wxDecToHex(int dec
)
278 wxDecToHex(dec
, buf
);
279 return wxString(buf
);
282 // Match a string INDEPENDENT OF CASE
284 StringMatch (char *str1
, char *str2
, bool subString
, bool exact
)
286 if (str1
== NULL
|| str2
== NULL
)
293 int len1
= strlen (str1
);
294 int len2
= strlen (str2
);
297 // Search for str1 in str2
298 // Slow .... but acceptable for short strings
299 for (i
= 0; i
<= len2
- len1
; i
++)
301 if (strncasecmp (str1
, str2
+ i
, len1
) == 0)
307 if (strcasecmp (str1
, str2
) == 0)
312 int len1
= strlen (str1
);
313 int len2
= strlen (str2
);
315 if (strncasecmp (str1
, str2
, wxMin (len1
, len2
)) == 0)
322 // Return the current date/time
324 wxString
wxNow( void )
326 time_t now
= time((time_t *) NULL
);
327 char *date
= ctime(&now
);
329 return wxString(date
);
332 /* Get Full RFC822 style email address */
334 wxGetEmailAddress (char *address
, int maxSize
)
339 if (wxGetHostName(host
, 64) == FALSE
)
341 if (wxGetUserId(user
, 64) == FALSE
)
349 strncpy(address
, tmp
, maxSize
- 1);
350 address
[maxSize
-1] = '\0';
355 * Strip out any menu codes
358 char *wxStripMenuCodes (char *in
, char *out
)
361 return (char *) NULL
;
364 out
= copystring(in
);
372 // Check && -> &, &x -> x
376 else if (*in
== '\t')
378 // Remove all stuff after \t in X mode, and let the stuff as is
380 // Accelerators are handled in wx_item.cc for Motif, and are not
381 // YET supported in XView
393 wxString
wxStripMenuCodes(const wxString
& str
)
395 char *buf
= new char[str
.Length() + 1];
396 wxStripMenuCodes((char*) (const char*) str
, buf
);
403 * Window search functions
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.
413 static wxWindow
*wxFindWindowByLabel1 (const wxString
& title
, wxWindow
* parent
);
416 wxFindWindowByLabel (const wxString
& title
, wxWindow
* parent
)
420 return wxFindWindowByLabel1 (title
, parent
);
424 for (wxNode
* node
= wxTopLevelWindows
.First (); node
; node
= node
->Next ())
426 wxWindow
*win
= (wxWindow
*) node
->Data ();
427 wxWindow
*retwin
= wxFindWindowByLabel1 (title
, win
);
433 return (wxWindow
*) NULL
;
438 wxFindWindowByLabel1 (const wxString
& title
, wxWindow
* parent
)
442 if (parent
->GetLabel() == title
)
448 for (wxNode
* node
= parent
->GetChildren().First (); node
; node
= node
->Next ())
450 wxWindow
*win
= (wxWindow
*) node
->Data ();
451 wxWindow
*retwin
= wxFindWindowByLabel1 (title
, win
);
458 return (wxWindow
*) NULL
; // Not found
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.
468 static wxWindow
*wxFindWindowByName1 (const wxString
& title
, wxWindow
* parent
);
471 wxFindWindowByName (const wxString
& title
, wxWindow
* parent
)
475 return wxFindWindowByName1 (title
, parent
);
479 for (wxNode
* node
= wxTopLevelWindows
.First (); node
; node
= node
->Next ())
481 wxWindow
*win
= (wxWindow
*) node
->Data ();
482 wxWindow
*retwin
= wxFindWindowByName1 (title
, win
);
488 // Failed? Try by label instead.
489 return wxFindWindowByLabel(title
, parent
);
494 wxFindWindowByName1 (const wxString
& title
, wxWindow
* parent
)
498 if ( parent
->GetName() == title
)
504 for (wxNode
* node
= parent
->GetChildren().First (); node
; node
= node
->Next ())
506 wxWindow
*win
= (wxWindow
*) node
->Data ();
507 wxWindow
*retwin
= wxFindWindowByName1 (title
, win
);
514 return (wxWindow
*) NULL
; // Not found
518 // Returns menu item id or -1 if none.
520 wxFindMenuItemId (wxFrame
* frame
, const wxString
& menuString
, const wxString
& itemString
)
522 wxMenuBar
*menuBar
= frame
->GetMenuBar ();
525 return menuBar
->FindMenuItem (menuString
, itemString
);
531 #if !defined(_WINDLL)
533 wxDebugStreamBuf::wxDebugStreamBuf(void)
535 // <iostream> usage doesn't need this, and i have no idea how to simulate it.
542 int wxDebugStreamBuf::overflow(int WXUNUSED(i
))
544 int len
= pptr() - pbase();
545 char *txt
= new char[len
+1];
546 strncpy(txt
, pbase(), len
);
549 OutputDebugString((LPCSTR
)txt
);
551 fprintf(stderr
, txt
);
553 setp(pbase(), epptr());
558 int wxDebugStreamBuf::sync(void)
560 int len
= pptr() - pbase();
561 char *txt
= new char[len
+1];
562 strncpy(txt
, pbase(), len
);
565 OutputDebugString((LPCSTR
)txt
);
567 fprintf(stderr
, txt
);
569 setp(pbase(), epptr());
577 On Fri, 21 Jul 1995, Paul Craven wrote:
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.
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).
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 ------------------------------------------------------------------------
594 // This code is commented out but it may be integrated with wxWin at
595 // a later date, after testing. Thanks Ken!
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 *--------------------------------------------------------------------*/
609 register char *cutoff
= NULL
; /* stifle -Wall */
616 * See if the file is accessible either through the current directory
617 * or through an absolute path.
620 if (access(name
, R_OK
) == 0) {
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 *-------------------------------------------------------------*/
629 if (!absolute_pathname(name
)) {
630 #if defined(DOS) || defined(__WIN32__)
636 if (*(name
+ 1) == ':') {
637 if (*name
>= 'a' && *name
<= 'z')
638 drive
= (int) (*name
- 'a' + 1);
640 drive
= (int) (*name
- 'A' + 1);
642 *newrbuf
++ = *(name
+ 1);
643 *newrbuf
++ = DIR_SEPARATOR
;
647 *newrbuf
++ = DIR_SEPARATOR
;
649 if (getcwd(newrbuf
, drive
) == 0) { /* } */
651 if (getcwd(newrbuf
, 1024) == 0) { /* } */
655 if (getwd(imagedir
) == 0) { /* } */
656 #else /* !HAVE_GETWD */
657 if (getcwd(imagedir
, 1024) == 0) {
658 #endif /* !HAVE_GETWD */
660 fatal_error(FE_GETCWD
, 0);
662 for (; *t
; t
++) /* Set t to end of buffer */
664 if (*(t
- 1) == DIR_SEPARATOR
) /* leave slash if already
669 cutoff
= t
; /* otherwise put one in */
670 *t
++ = DIR_SEPARATOR
;
673 #if (!defined(__MAC__) && !defined(__DJGPP__) && !defined(__GO32__) && !defined(__WIN32__))
675 (*t
++ = DIR_SEPARATOR
);
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
683 *-------------------------------------------------------------*/
685 for ((*name
== DIR_SEPARATOR
? (s
= name
+1) : (s
= name
));;) {
686 if (*s
== DIR_SEPARATOR
)
695 /*-------------------------------------------------------------*
696 * Get the path list from the environment. If the path list is
697 * inaccessible for any reason, leave with fatal error.
698 *-------------------------------------------------------------*/
701 if ((s
= getenv("Commands")) == (char *) 0)
703 if ((s
= getenv("PATH")) == (char *) 0)
705 fatal_error(FE_PATH
, 0);
708 * Copy path list into ebuf and set the source pointer to the
709 * beginning of this buffer.
717 while (*s
&& *s
!= PATH_SEPARATOR
)
719 if (t
> imagedir
&& *(t
- 1) == DIR_SEPARATOR
)
720 ; /* do nothing -- slash already is in place */
722 *t
++ = DIR_SEPARATOR
; /* put in the slash */
723 cutoff
= t
- 1; /* set cutoff */
725 if (access(imagedir
, R_OK
) == 0)
729 s
++; /* advance source pointer */
731 fatal_error(FE_INFND
, 0);
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 *-------------------------------------------------------------*/
744 while ((cc
= readlink(imagedir
, ebuf
, 512)) != -1) {
747 if (*s
== DIR_SEPARATOR
) {
754 if (*s
== DIR_SEPARATOR
)
755 cutoff
= t
; /* mark the last slash seen */
756 if (!(*t
++ = *s
++)) /* copy the character */
761 #endif /* HAVE_SYMLINK */
763 strcpy(imagename
, cutoff
+ 1); /* keep the image name */
764 *(cutoff
+ 1) = 0; /* chop off the filename part */
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.
774 int wxMessageBox(const wxString
& message
, const wxString
& caption
, long style
,
775 wxWindow
*parent
, int WXUNUSED(x
), int WXUNUSED(y
) )
777 wxMessageDialog
dialog(parent
, message
, caption
, style
);
779 int ans
= dialog
.ShowModal();
799 wxString
wxGetTextFromUser(const wxString
& message
, const wxString
& caption
,
800 const wxString
& defaultValue
, wxWindow
*parent
,
801 int x
, int y
, bool WXUNUSED(centre
) )
803 wxTextEntryDialog
dialog(parent
, message
, caption
, defaultValue
, wxOK
|wxCANCEL
, wxPoint(x
, y
));
804 if (dialog
.ShowModal() == wxID_OK
)
805 return dialog
.GetValue();