1 /* Program name management.
2 Copyright (C) 2016-2017 Free Software Foundation, Inc.
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU Lesser General Public License as published by
6 the Free Software Foundation; either version 2.1 of the License, or
7 (at your option) any later version.
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 Lesser General Public License for more details.
14 You should have received a copy of the GNU Lesser General Public License
15 along with this program. If not, see <https://www.gnu.org/licenses/>. */
20 #include "getprogname.h"
22 #include <errno.h> /* get program_invocation_name declaration */
23 #include <stdlib.h> /* get __argv declaration */
27 # include <procinfo.h>
41 # include <sys/param.h>
42 # include <sys/pstat.h>
51 # include <sys/procfs.h>
56 #ifndef HAVE_GETPROGNAME /* not Mac OS X, FreeBSD, NetBSD, OpenBSD >= 5.4, Cygwin */
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 ();
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
: "?";
87 /* Idea by Bastien ROUCARIÈS,
88 https://lists.gnu.org/archive/html/bug-gnulib/2010-12/msg00095.html
89 Reference: https://www.ibm.com/support/knowledgecenter/en/ssw_aix_61/com.ibm.aix.basetrf1/getprocs.htm
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
)
105 # elif defined __hpux
107 static int first
= 1;
111 pid_t pid
= getpid ();
112 struct pst_status status
;
113 p
= (0 < pstat_getproc (&status
, sizeof status
, 0, pid
)
114 ? strdup (status
.pst_ucomm
)
120 # elif __MVS__ /* z/OS */
121 /* https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxbd00/rtwgetp.htm */
122 static char *p
= "?";
123 static int first
= 1;
126 pid_t pid
= getpid ();
130 memset (&buf
, 0, sizeof(buf
));
131 buf
.ps_cmdptr
= (char *) malloc (buf
.ps_cmdlen
= PS_CMDBLEN_LONG
);
132 buf
.ps_conttyptr
= (char *) malloc (buf
.ps_conttylen
= PS_CONTTYBLEN
);
133 buf
.ps_pathptr
= (char *) malloc (buf
.ps_pathlen
= PS_PATHBLEN
);
134 if (buf
.ps_cmdptr
&& buf
.ps_conttyptr
&& buf
.ps_pathptr
)
136 for (token
= 0; token
>= 0;
137 token
= w_getpsent (token
, &buf
, sizeof(buf
)))
139 if (token
> 0 && buf
.ps_pid
== pid
)
141 char *s
= strdup (last_component (buf
.ps_pathptr
));
148 free (buf
.ps_cmdptr
);
149 free (buf
.ps_conttyptr
);
150 free (buf
.ps_pathptr
);
153 # elif defined __sgi /* IRIX */
157 sprintf (filename
, "/proc/pinfo/%d", (int) getpid ());
158 fd
= open (filename
, O_RDONLY
);
162 int ioctl_ok
= 0 <= ioctl (fd
, PIOCPSINFO
, &buf
);
166 char *name
= buf
.pr_fname
;
167 char *namesize
= sizeof buf
.pr_fname
;
168 char *namenul
= memchr (name
, '\0', namesize
);
169 size_t namelen
= namenul
? namenul
- name
: namesize
;
170 char *namecopy
= malloc (namelen
+ 1);
173 namecopy
[namelen
] = 0;
174 return memcpy (namecopy
, name
, namelen
);
180 # error "getprogname module not ported to this OS"