1 /* List dynamic shared objects linked into given process.
2 Copyright (C) 2011, 2012 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Ulrich Drepper <drepper@gmail.com>, 2011.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, see
18 <http://www.gnu.org/licenses/>. */
35 #include <sys/ptrace.h>
41 /* Global variables. */
42 extern char *program_invocation_short_name
;
43 #define PACKAGE _libc_intl_domainname
45 /* External functions. */
46 extern void *xmalloc (size_t n
)
47 __attribute_malloc__
__attribute_alloc_size (1);
48 extern void *xrealloc (void *o
, size_t n
)
49 __attribute_malloc__
__attribute_alloc_size (2);
51 /* Name and version of program. */
52 static void print_version (FILE *stream
, struct argp_state
*state
);
53 void (*argp_program_version_hook
) (FILE *, struct argp_state
*) = print_version
;
55 /* Function to print some extra text in the help message. */
56 static char *more_help (int key
, const char *text
, void *input
);
58 /* Definitions of arguments for argp functions. */
59 static const struct argp_option options
[] =
61 { NULL
, 0, NULL
, 0, NULL
}
64 /* Short description of program. */
65 static const char doc
[] = N_("\
66 List dynamic shared objects loaded into process.");
68 /* Strings for arguments in help texts. */
69 static const char args_doc
[] = N_("PID");
71 /* Prototype for option handler. */
72 static error_t
parse_opt (int key
, char *arg
, struct argp_state
*state
);
74 /* Data structure to communicate with argp functions. */
75 static struct argp argp
=
77 options
, parse_opt
, args_doc
, doc
, NULL
, more_help
, NULL
80 // File descriptor of /proc/*/mem file.
83 /* Name of the executable */
86 /* Local functions. */
87 static int get_process_info (int dfd
, long int pid
);
91 main (int argc
, char *argv
[])
93 /* Parse and process arguments. */
95 argp_parse (&argp
, argc
, argv
, 0, &remaining
, NULL
);
97 if (remaining
!= argc
- 1)
100 gettext ("Exactly one parameter with process ID required.\n"));
101 argp_help (&argp
, stderr
, ARGP_HELP_SEE
, program_invocation_short_name
);
105 assert (sizeof (pid_t
) == sizeof (int)
106 || sizeof (pid_t
) == sizeof (long int));
109 long int pid
= strtol (argv
[remaining
], &endp
, 10);
110 if (pid
< 0 || (pid
== ULONG_MAX
&& errno
== ERANGE
) || *endp
!= '\0'
111 || (sizeof (pid_t
) < sizeof (pid
) && pid
> INT_MAX
))
112 error (EXIT_FAILURE
, 0, gettext ("invalid process ID '%s'"),
115 /* Determine the program name. */
116 char buf
[7 + 3 * sizeof (pid
)];
117 snprintf (buf
, sizeof (buf
), "/proc/%lu", pid
);
118 int dfd
= open (buf
, O_RDONLY
| O_DIRECTORY
);
120 error (EXIT_FAILURE
, errno
, gettext ("cannot open %s"), buf
);
122 size_t exesize
= 1024;
126 exe
= alloca (exesize
);
128 while ((nexe
= readlinkat (dfd
, "exe", exe
, exesize
)) == exesize
)
129 extend_alloca (exe
, exesize
, 2 * exesize
);
131 exe
= (char *) "<program name undetermined>";
135 /* Stop all threads since otherwise the list of loaded modules might
136 change while we are reading it. */
140 struct thread_list
*next
;
141 } *thread_list
= NULL
;
143 int taskfd
= openat (dfd
, "task", O_RDONLY
| O_DIRECTORY
| O_CLOEXEC
);
145 error (EXIT_FAILURE
, errno
, gettext ("cannot open %s/task"), buf
);
146 DIR *dir
= fdopendir (taskfd
);
148 error (EXIT_FAILURE
, errno
, gettext ("cannot prepare reading %s/task"),
152 while ((d
= readdir64 (dir
)) != NULL
)
154 if (! isdigit (d
->d_name
[0]))
158 long int tid
= strtol (d
->d_name
, &endp
, 10);
159 if (tid
< 0 || (tid
== ULONG_MAX
&& errno
== ERANGE
) || *endp
!= '\0'
160 || (sizeof (pid_t
) < sizeof (pid
) && tid
> INT_MAX
))
161 error (EXIT_FAILURE
, 0, gettext ("invalid thread ID '%s'"),
164 if (ptrace (PTRACE_ATTACH
, tid
, NULL
, NULL
) != 0)
166 /* There might be a race between reading the directory and
167 threads terminating. Ignore errors attaching to unknown
168 threads unless this is the main thread. */
169 if (errno
== ESRCH
&& tid
!= pid
)
172 error (EXIT_FAILURE
, errno
, gettext ("cannot attach to process %lu"),
176 struct thread_list
*newp
= alloca (sizeof (*newp
));
178 newp
->next
= thread_list
;
184 int status
= get_process_info (dfd
, pid
);
186 assert (thread_list
!= NULL
);
189 ptrace (PTRACE_DETACH
, thread_list
->tid
, NULL
, NULL
);
190 thread_list
= thread_list
->next
;
192 while (thread_list
!= NULL
);
200 /* Handle program arguments. */
202 parse_opt (int key
, char *arg
, struct argp_state
*state
)
207 return ARGP_ERR_UNKNOWN
;
213 /* Print bug-reporting information in the help message. */
215 more_help (int key
, const char *text
, void *input
)
220 case ARGP_KEY_HELP_EXTRA
:
221 /* We print some extra information. */
222 if (asprintf (&tp
, gettext ("\
223 For bug reporting instructions, please see:\n\
224 %s.\n"), REPORT_BUGS_TO
) < 0)
230 return (char *) text
;
233 /* Print the version information. */
235 print_version (FILE *stream
, struct argp_state
*state
)
237 fprintf (stream
, "pldd %s%s\n", PKGVERSION
, VERSION
);
238 fprintf (stream
, gettext ("\
239 Copyright (C) %s Free Software Foundation, Inc.\n\
240 This is free software; see the source for copying conditions. There is NO\n\
241 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\
243 fprintf (stream
, gettext ("Written by %s.\n"), "Ulrich Drepper");
254 get_process_info (int dfd
, long int pid
)
256 memfd
= openat (dfd
, "mem", O_RDONLY
);
260 int fd
= openat (dfd
, "exe", O_RDONLY
);
264 error (0, errno
, gettext ("cannot get information about process %lu"),
269 char e_ident
[EI_NIDENT
];
270 if (read (fd
, e_ident
, EI_NIDENT
) != EI_NIDENT
)
275 if (memcmp (e_ident
, ELFMAG
, SELFMAG
) != 0)
277 error (0, 0, gettext ("process %lu is no ELF program"), pid
);
281 fd
= openat (dfd
, "auxv", O_RDONLY
);
285 size_t auxv_size
= 0;
290 auxv
= xrealloc (auxv
, auxv_size
);
292 ssize_t n
= pread (fd
, auxv
, auxv_size
, 0);
305 if (e_ident
[EI_CLASS
] == ELFCLASS32
)
306 retval
= find_maps32 (pid
, auxv
, auxv_size
);
308 retval
= find_maps64 (pid
, auxv
, auxv_size
);