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, 8 insertions, 0 deletions

diff --git a/txr.c b/txr.c
index 428a0ff0..197f6515 100644
--- a/txr.c
+++ b/txr.c
@@ -243,6 +243,14 @@ static val get_self_path(void)
     return nil;
   return string_utf8(self);
 }
+#elif HAVE_GETEXECNAME
+static val get_self_path(void)
+{
+  val execname = string_utf8(getexecname());
+  if (car(execname) == chr('/'))
+    return execname;
+  return format(nil, lit("~a/~a"), getcwd_wrap(), execname, nao);
+}
 #else
 static val get_self_path(void)
 {