Port getprogname module to SCO OpenServer

[Benji Wiebe]

I ported the getprogname module to SCO OpenServer 6 (should also work on 
OSR5 and UnixWare). It prevents several OSS packages from building.

I just made it read from /proc/<pid>/cmdline to get the command name. 
The patch is below. Comments are welcome. Thanks!

-Benji



diff --git a/lib/getprogname.c b/lib/getprogname.c
index 744466ea9..9ee4c226d 100644
--- a/lib/getprogname.c
+++ b/lib/getprogname.c
@@ -51,6 +51,11 @@
 # include <sys/procfs.h>
 #endif

+#ifdef __SCO_VERSION__
+# include <fcntl.h>
+# include <stdlib.h>
+#endif
+
 #include "basename-lgpl.h"

 #ifndef HAVE_GETPROGNAME             /* not Mac OS X, FreeBSD, NetBSD, 
OpenBSD >= 5.4, Cygwin */
@@ -245,6 +250,39 @@ getprogname (void)
         }
     }
   return NULL;
+# elif defined __SCO_VERSION__                              /* SCO 
OpenServer/UnixWare */
+  char buf[50];
+  char *ret;
+  int fd;
+  int pathlen;
+  sprintf (buf, "/proc/%d/cmdline", (int)getpid());
+  fd = open (buf, O_RDONLY);
+  if (0 <= fd)
+    {
+      size_t n = read (fd, buf, 49);
+      if (n > 0)
+        {
+          buf[49] = '\0'; /* Guarantee null-termination */
+          pathlen = strlen (buf);
+          ret = malloc (pathlen + 1);
+          if (ret)
+            {
+              int i;
+              int pathsep = 0;
+              for (i = 0; i < pathlen; i++)
+                {
+                  if (buf[i] == '/')
+                    {
+                      pathsep = i;
+                    }
+                }
+              strcpy (ret, buf + pathsep + 1);
+              return ret;
+          }
+        }
+      close (fd);
+    }
+  return "?";
 # else
 #  error "getprogname module not ported to this OS"
 # endif