From 51d252fca0234adaccde2b764d73a5b2f751e92d Mon Sep 17 00:00:00 2001
From: Johan Danielsson <joda@pdc.kth.se>
Date: Sun, 30 Mar 1997 15:51:03 +0000
Subject: [PATCH] New function set_progname.

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@1514 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 lib/roken/warnerr.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lib/roken/warnerr.c b/lib/roken/warnerr.c
index b0e23b1b9..057fc23c7 100644
--- a/lib/roken/warnerr.c
+++ b/lib/roken/warnerr.c
@@ -47,6 +47,19 @@ RCSID("$Id$");
 const char *__progname;
 #endif
 
+void
+set_progname(char *argv0)
+{
+#ifndef HAVE___PROGNAME
+    char *p = strrchr(argv0, '/');
+    if(p == NULL)
+	p = argv0;
+    else
+	p++;
+    __progname = p;
+#endif
+}
+
 void
 warnerr(int doexit, int eval, int doerrno, const char *fmt, va_list ap)
 {