1 /* Program name management. 2 Copyright (C) 2016-2020 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://docs.microsoft.com/en-us/cpp/c-runtime-library/argc-argv-wargv */ 74 const char *p = __argv && __argv[0] ? __argv[0] : "?"; 75 return last_component (p); 76 # elif HAVE_VAR___PROGNAME /* OpenBSD, Android, 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 # if defined __ANDROID__ 86 return last_component (p); 87 # else 88 return p && p[0] ? p : "?"; 89 # endif 90 # elif _AIX /* AIX */ 91 /* Idea by Bastien ROUCARIÈS, 92 https://lists.gnu.org/r/bug-gnulib/2010-12/msg00095.html 93 Reference: https://www.ibm.com/support/knowledgecenter/en/ssw_aix_61/com.ibm.aix.basetrf1/getprocs.htm 94 */ 95 static char *p; 96 static int first = 1; 97 if (first) 98 { 99 first = 0; 100 pid_t pid = getpid (); 101 struct procentry64 procs; 102 p = (0 < getprocs64 (&procs, sizeof procs, NULL, 0, &pid, 1) 103 ? strdup (procs.pi_comm) 104 : NULL); 105 if (!p) 106 p = "?"; 107 } 108 return p; 109 # elif defined __hpux 110 static char *p; 111 static int first = 1; 112 if (first) 113 { 114 first = 0; 115 pid_t pid = getpid (); 116 struct pst_status status; 117 if (pstat_getproc (&status, sizeof status, 0, pid) > 0) 118 { 119 char *ucomm = status.pst_ucomm; 120 char *cmd = status.pst_cmd; 121 if (strlen (ucomm) < PST_UCOMMLEN - 1) 122 p = ucomm; 123 else 124 { 125 /* ucomm is truncated to length PST_UCOMMLEN - 1. 126 Look at cmd instead. */ 127 char *space = strchr (cmd, ' '); 128 if (space != NULL) 129 *space = '\0'; 130 p = strrchr (cmd, '/'); 131 if (p != NULL) 132 p++; 133 else 134 p = cmd; 135 if (strlen (p) > PST_UCOMMLEN - 1 136 && memcmp (p, ucomm, PST_UCOMMLEN - 1) == 0) 137 /* p is less truncated than ucomm. */ 138 ; 139 else 140 p = ucomm; 141 } 142 p = strdup (p); 143 } 144 else 145 { 146 # if !defined __LP64__ 147 /* Support for 32-bit programs running in 64-bit HP-UX. 148 The documented way to do this is to use the same source code 149 as above, but in a compilation unit where '#define _PSTAT64 1' 150 is in effect. I prefer a single compilation unit; the struct 151 size and the offsets are not going to change. */ 152 char status64[1216]; 153 if (__pstat_getproc64 (status64, sizeof status64, 0, pid) > 0) 154 { 155 char *ucomm = status64 + 288; 156 char *cmd = status64 + 168; 157 if (strlen (ucomm) < PST_UCOMMLEN - 1) 158 p = ucomm; 159 else 160 { 161 /* ucomm is truncated to length PST_UCOMMLEN - 1. 162 Look at cmd instead. */ 163 char *space = strchr (cmd, ' '); 164 if (space != NULL) 165 *space = '\0'; 166 p = strrchr (cmd, '/'); 167 if (p != NULL) 168 p++; 169 else 170 p = cmd; 171 if (strlen (p) > PST_UCOMMLEN - 1 172 && memcmp (p, ucomm, PST_UCOMMLEN - 1) == 0) 173 /* p is less truncated than ucomm. */ 174 ; 175 else 176 p = ucomm; 177 } 178 p = strdup (p); 179 } 180 else 181 # endif 182 p = NULL; 183 } 184 if (!p) 185 p = "?"; 186 } 187 return p; 188 # elif __MVS__ /* z/OS */ 189 /* https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxbd00/rtwgetp.htm */ 190 static char *p = "?"; 191 static int first = 1; 192 if (first) 193 { 194 pid_t pid = getpid (); 195 int token; 196 W_PSPROC buf; 197 first = 0; 198 memset (&buf, 0, sizeof(buf)); 199 buf.ps_cmdptr = (char *) malloc (buf.ps_cmdlen = PS_CMDBLEN_LONG); 200 buf.ps_conttyptr = (char *) malloc (buf.ps_conttylen = PS_CONTTYBLEN); 201 buf.ps_pathptr = (char *) malloc (buf.ps_pathlen = PS_PATHBLEN); 202 if (buf.ps_cmdptr && buf.ps_conttyptr && buf.ps_pathptr) 203 { 204 for (token = 0; token >= 0; 205 token = w_getpsent (token, &buf, sizeof(buf))) 206 { 207 if (token > 0 && buf.ps_pid == pid) 208 { 209 char *s = strdup (last_component (buf.ps_pathptr)); 210 if (s) 211 p = s; 212 break; 213 } 214 } 215 } 216 free (buf.ps_cmdptr); 217 free (buf.ps_conttyptr); 218 free (buf.ps_pathptr); 219 } 220 return p; 221 # elif defined __sgi /* IRIX */ 222 char filename[50]; 223 int fd; 224 225 sprintf (filename, "/proc/pinfo/%d", (int) getpid ()); 226 fd = open (filename, O_RDONLY); 227 if (0 <= fd) 228 { 229 prpsinfo_t buf; 230 int ioctl_ok = 0 <= ioctl (fd, PIOCPSINFO, &buf); 231 close (fd); 232 if (ioctl_ok) 233 { 234 char *name = buf.pr_fname; 235 size_t namesize = sizeof buf.pr_fname; 236 /* It may not be NUL-terminated. */ 237 char *namenul = memchr (name, '\0', namesize); 238 size_t namelen = namenul ? namenul - name : namesize; 239 char *namecopy = malloc (namelen + 1); 240 if (namecopy) 241 { 242 namecopy[namelen] = '\0'; 243 return memcpy (namecopy, name, namelen); 244 } 245 } 246 } 247 return NULL; 248 # else 249 # error "getprogname module not ported to this OS" 250 # endif 251 } 252 253 #endif 254 255 /* 256 * Hey Emacs! 257 * Local Variables: 258 * coding: utf-8 259 * End: 260 */ 261