(setprogname, getprogname: add), leaving the underscore versions for

backwards compat


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

lib/roken/warnerr.c

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 1995, 1996, 1997 Kungliga Tekniska H<>gskolan 
+ * Copyright (c) 1995 - 2001 Kungliga Tekniska H<>gskolan 
  * (Royal Institute of Technology, Stockholm, Sweden).  
  * All rights reserved.
  * 
@@ -43,14 +43,17 @@ RCSID("$Id$");
 const char *__progname;
 #endif
 
+#ifndef HAVE_GETPROGNAME
 const char *
-get_progname(void)
+getprogname(void)
 {
     return __progname;
 }
+#endif
 
+#ifndef HAVE_SETPROGNAME
 void
-set_progname(char *argv0)
+setprogname(const char *argv0)
 {
 #ifndef HAVE___PROGNAME
     char *p;
@@ -64,6 +67,19 @@ set_progname(char *argv0)
     __progname = p;
 #endif
 }
+#endif /* HAVE_SETPROGNAME */
+
+void
+set_progname(char *argv0)
+{
+    setprogname ((const char *)argv0);
+}
+
+const char *
+get_progname (void)
+{
+    return getprogname ();
+}
 
 void
 warnerr(int doerrno, const char *fmt, va_list ap)