New function set_progname.

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@1514 ec53bebd-3082-4978-b11e-865c3cabbd6b

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)
 {