1 /* Program name management. 2 Copyright (C) 2016-2018 Free Software Foundation, Inc. 3 4 This program is free software: you can redistribute it and/or modify 5 it under the terms of the GNU General Public License as published by 6 the Free Software Foundation; either version 3 of the License, or 7 (at your option) any later version. 8 9 This program is distributed in the hope that it will be useful, 10 but WITHOUT ANY WARRANTY; without even the implied warranty of 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12 GNU General Public License for more details. 13 14 You should have received a copy of the GNU General Public License 15 along with this program. If not, see <https://www.gnu.org/licenses/>. */ 16 17 #include <config.h> 18 19 /* Specification. */ 20 #include "getprogname.h" 21 22 #include <errno.h> /* get program_invocation_name declaration */ 23 #include <stdlib.h> /* get __argv declaration */ 24 25 #ifdef _AIX 26 # include <unistd.h> 27 # include <procinfo.h> 28 # include <string.h> 29 #endif 30 31 #ifdef __MVS__ 32 # ifndef _OPEN_SYS 33 # define _OPEN_SYS 34 # endif 35 # include <string.h> 36 # include <sys/ps.h> 37 #endif 38 39 #ifdef __hpux 40 # include <unistd.h> 41 # include <sys/param.h> 42 # include <sys/pstat.h> 43 # include <string.h> 44 #endif 45 46 #ifdef __sgi 47 # include <string.h> 48 # include <unistd.h> 49 # include <stdio.h> 50 # include <fcntl.h> 51 # include <sys/procfs.h> 52 #endif 53 54 #include "dirname.h" 55 56 #ifndef HAVE_GETPROGNAME /* not Mac OS X, FreeBSD, NetBSD, OpenBSD >= 5.4, Cygwin */ 57 char const * 58 getprogname (void) 59 { 60 # if HAVE_DECL_PROGRAM_INVOCATION_SHORT_NAME /* glibc, BeOS */ 61 /* https://www.gnu.org/software/libc/manual/html_node/Error-Messages.html */ 62 return program_invocation_short_name; 63 # elif HAVE_DECL_PROGRAM_INVOCATION_NAME /* glibc, BeOS */ 64 /* https://www.gnu.org/software/libc/manual/html_node/Error-Messages.html */ 65 return last_component (program_invocation_name); 66 # elif HAVE_GETEXECNAME /* Solaris */ 67 /* https://docs.oracle.com/cd/E19253-01/816-5168/6mbb3hrb1/index.html */ 68 const char *p = getexecname (); 69 if (!p) 70 p = "?"; 71 return last_component (p); 72 # elif HAVE_DECL___ARGV /* mingw, MSVC */ 73 /* https://msdn.microsoft.com/en-us/library/dn727674.aspx */ 74 const char *p = __argv && __argv[0] ? __argv[0] : "?"; 75 return last_component (p); 76 # elif HAVE_VAR___PROGNAME /* OpenBSD, QNX */ 77 /* https://man.openbsd.org/style.9 */ 78 /* http://www.qnx.de/developers/docs/6.5.0/index.jsp?topic=%2Fcom.qnx.doc.neutrino_lib_ref%2Fp%2F__progname.html */ 79 /* Be careful to declare this only when we absolutely need it 80 (OpenBSD 5.1), rather than when it's available. Otherwise, 81 its mere declaration makes program_invocation_short_name 82 malfunction (have zero length) with Fedora 25's glibc. */ 83 extern char *__progname; 84 const char *p = __progname; 85 return p && p[0] ? p : "?"; 86 # elif _AIX /* AIX */ 87 /* Idea by Bastien ROUCARIÈS, 88 https://lists.gnu.org/r/bug-gnulib/2010-12/msg00095.html 89 Reference: https://www.ibm.com/support/knowledgecenter/en/ssw_aix_61/com.ibm.aix.basetrf1/getprocs.htm 90 */ 91 static char *p; 92 static int first = 1; 93 if (first) 94 { 95 first = 0; 96 pid_t pid = getpid (); 97 struct procentry64 procs; 98 p = (0 < getprocs64 (&procs, sizeof procs, NULL, 0, &pid, 1) 99 ? strdup (procs.pi_comm) 100 : NULL); 101 if (!p) 102 p = "?"; 103 } 104 return p; 105 # elif defined __hpux 106 static char *p; 107 static int first = 1; 108 if (first) 109 { 110 first = 0; 111 pid_t pid = getpid (); 112 struct pst_status status; 113 if (pstat_getproc (&status, sizeof status, 0, pid) > 0) 114 { 115 char *ucomm = status.pst_ucomm; 116 char *cmd = status.pst_cmd; 117 if (strlen (ucomm) < PST_UCOMMLEN - 1) 118 p = ucomm; 119 else 120 { 121 /* ucomm is truncated to length PST_UCOMMLEN - 1. 122 Look at cmd instead. */ 123 char *space = strchr (cmd, ' '); 124 if (space != NULL) 125 *space = '\0'; 126 p = strrchr (cmd, '/'); 127 if (p != NULL) 128 p++; 129 else 130 p = cmd; 131 if (strlen (p) > PST_UCOMMLEN - 1 132 && memcmp (p, ucomm, PST_UCOMMLEN - 1) == 0) 133 /* p is less truncated than ucomm. */ 134 ; 135 else 136 p = ucomm; 137 } 138 p = strdup (p); 139 } 140 else 141 { 142 # if !defined __LP64__ 143 /* Support for 32-bit programs running in 64-bit HP-UX. 144 The documented way to do this is to use the same source code 145 as above, but in a compilation unit where '#define _PSTAT64 1' 146 is in effect. I prefer a single compilation unit; the struct 147 size and the offsets are not going to change. */ 148 char status64[1216]; 149 if (__pstat_getproc64 (status64, sizeof status64, 0, pid) > 0) 150 { 151 char *ucomm = status64 + 288; 152 char *cmd = status64 + 168; 153 if (strlen (ucomm) < PST_UCOMMLEN - 1) 154 p = ucomm; 155 else 156 { 157 /* ucomm is truncated to length PST_UCOMMLEN - 1. 158 Look at cmd instead. */ 159 char *space = strchr (cmd, ' '); 160 if (space != NULL) 161 *space = '\0'; 162 p = strrchr (cmd, '/'); 163 if (p != NULL) 164 p++; 165 else 166 p = cmd; 167 if (strlen (p) > PST_UCOMMLEN - 1 168 && memcmp (p, ucomm, PST_UCOMMLEN - 1) == 0) 169 /* p is less truncated than ucomm. */ 170 ; 171 else 172 p = ucomm; 173 } 174 p = strdup (p); 175 } 176 else 177 # endif 178 p = NULL; 179 } 180 if (!p) 181 p = "?"; 182 } 183 return p; 184 # elif __MVS__ /* z/OS */ 185 /* https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxbd00/rtwgetp.htm */ 186 static char *p = "?"; 187 static int first = 1; 188 if (first) 189 { 190 pid_t pid = getpid (); 191 int token; 192 W_PSPROC buf; 193 first = 0; 194 memset (&buf, 0, sizeof(buf)); 195 buf.ps_cmdptr = (char *) malloc (buf.ps_cmdlen = PS_CMDBLEN_LONG); 196 buf.ps_conttyptr = (char *) malloc (buf.ps_conttylen = PS_CONTTYBLEN); 197 buf.ps_pathptr = (char *) malloc (buf.ps_pathlen = PS_PATHBLEN); 198 if (buf.ps_cmdptr && buf.ps_conttyptr && buf.ps_pathptr) 199 { 200 for (token = 0; token >= 0; 201 token = w_getpsent (token, &buf, sizeof(buf))) 202 { 203 if (token > 0 && buf.ps_pid == pid) 204 { 205 char *s = strdup (last_component (buf.ps_pathptr)); 206 if (s) 207 p = s; 208 break; 209 } 210 } 211 } 212 free (buf.ps_cmdptr); 213 free (buf.ps_conttyptr); 214 free (buf.ps_pathptr); 215 } 216 return p; 217 # elif defined __sgi /* IRIX */ 218 char filename[50]; 219 int fd; 220 221 sprintf (filename, "/proc/pinfo/%d", (int) getpid ()); 222 fd = open (filename, O_RDONLY); 223 if (0 <= fd) 224 { 225 prpsinfo_t buf; 226 int ioctl_ok = 0 <= ioctl (fd, PIOCPSINFO, &buf); 227 close (fd); 228 if (ioctl_ok) 229 { 230 char *name = buf.pr_fname; 231 size_t namesize = sizeof buf.pr_fname; 232 char *namenul = memchr (name, '\0', namesize); 233 size_t namelen = namenul ? namenul - name : namesize; 234 char *namecopy = malloc (namelen + 1); 235 if (namecopy) 236 { 237 namecopy[namelen] = 0; 238 return memcpy (namecopy, name, namelen); 239 } 240 } 241 } 242 return NULL; 243 # else 244 # error "getprogname module not ported to this OS" 245 # endif 246 } 247 248 #endif 249 250 /* 251 * Hey Emacs! 252 * Local Variables: 253 * coding: utf-8 254 * End: 255 */ 256