Tcl Source Code

# define USEGETWD even if the posix getcwd exists. Add a test ?

AC_REPLACE_FUNCS(opendir strstr strtol strtoll strtoull tmpnam waitpid)
AC_CHECK_FUNC(strerror, , [AC_DEFINE(NO_STRERROR)])
AC_CHECK_FUNC(getwd, , [AC_DEFINE(NO_GETWD)])
AC_CHECK_FUNC(wait3, , [AC_DEFINE(NO_WAIT3)])
AC_CHECK_FUNC(uname, , [AC_DEFINE(NO_UNAME)])
AC_CHECK_FUNC(dladdr, , [AC_DEFINE(NO_DLADDR)])

if test "`uname -s`" = "Darwin" && test "${TCL_THREADS}" = 1 && \
	test "`uname -r | awk -F. '{print [$]1}'`" -lt 7; then
    # prior to Darwin 7, realpath is not threadsafe, so don't
    # use it when threads are enabled, c.f. bug # 711232
    ac_cv_func_realpath=no
fi

 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 */

#include "tclInt.h"
#include "tclPort.h"
#if !defined(NO_DLADDR) && !defined(NO_DLFCN_H)
#include <dlfcn.h>
#endif

static int NativeMatchType(CONST char* nativeName, Tcl_GlobTypeData *types);


/*

    CONST char *argv0;		/* The value of the application's argv[0]
				 * (native). */
{
    CONST char *name, *p;
    Tcl_StatBuf statBuf;
    int length;
    Tcl_DString buffer, nameString;
#if !defined(__APPLE__) && !defined(DJGPP)
    int i;
    unsigned long pid;
    static CONST char *exepaths[] = {
	"/proc/%lu/exe", "/proc/%lu/file", "/proc/%lu/object/a.out"

    };
    char buf1[PATH_MAX+1], buf2[64];
#endif
#if !defined(NO_DLADDR) && !defined(NO_DLFCN_H)
    Dl_info dlinfoBuffer;
    void *sym;
#endif

    if (argv0 == NULL) {
	return NULL;
    }
    if (tclNativeExecutableName != NULL) {
	return tclNativeExecutableName;
    }

    /*
     * The executable name is sometimes available to us directly, which is
     * useful because it's not always there in argv[0]; that's a value that is
     * set by the code that invoked this process and it sometimes lies.  [Bug
     * 1224888]
     *
     * Our options for independently determining it are to scrape it out of
     * /proc (if that's mounted, and we have readlink(2)) or to pick the
     * information out of the dynamic loader (assuming we're using a
     * compatible one and it supports the relevant - common - extension).
     */

#if !defined(__APPLE__) && !defined(DJGPP)
    pid = getpid();
    for (i=0 ; i<sizeof(exepaths)/sizeof(*exepaths) ; i++) {
	sprintf(buf2, exepaths[i], pid);
	if (readlink(buf2, buf1, PATH_MAX) > 0 && buf1[0] == '/') {
	    name = buf1;
	    goto gotName;
	}
    }
#endif
#if !defined(NO_DLADDR) && !defined(NO_DLFCN_H)
    sym = dlsym(RTLD_DEFAULT, "main");
    if (sym == NULL) {
	sym = dlsym(RTLD_DEFAULT, "_main");
    }
    if (sym != NULL && dladdr(sym, &dlinfoBuffer)
	    && dlinfoBuffer.dli_fname[0] == '/') {
	name = dlinfoBuffer.dli_fname;