-/*
-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
projects / wxWidgets.git / blobdiff