bugfix: correcly obtain self path on Solaris.

* configure: Add detection for getexecname.

* sysif.c (getcwd_wrap): Change static function to external.

* sysif.h (getcwd_wrap): Declared.

* txr.c (get_self_path): New implementation for Solaris
using getexecname, which requires us to prepend the current
directory name if the result is a relative path.

1 files changed, 18 insertions, 0 deletions

diff --git a/configure b/configure
index 3e42ddc2..bd84ad42 100755
--- a/configure
+++ b/configure
@@ -2973,6 +2973,24 @@ else
   printf "no\n"
 fi
 
+printf "Checking for getexecname ... "
+cat > conftest.c <<!
+#include <stdlib.h>
+
+int main(void)
+{
+  const char *rp = getexecname();
+  return 0;
+}
+!
+
+if conftest ; then
+  printf "yes\n"
+  printf "#define HAVE_GETEXECNAME 1\n" >> config.h
+else
+  printf "no\n"
+fi
+
 #
 # Dependent variables
 #