aboutsummaryrefslogtreecommitdiff
path: root/gdb/common/linux-osdata.c
diff options
context:
space:
mode:
authorGary Benson <gbenson@redhat.com>2014-06-19 14:46:38 +0100
committerGary Benson <gbenson@redhat.com>2014-06-20 14:06:48 +0100
commit125f8a3ddedd413a2290dae011f0bed9ffc78278 (patch)
treed9755566364119d825f6ee87229983c7a8d68e46 /gdb/common/linux-osdata.c
parent42995dbda646ff0291a36f83a7f1a9f45e3fda8a (diff)
downloadbinutils-125f8a3ddedd413a2290dae011f0bed9ffc78278.zip
binutils-125f8a3ddedd413a2290dae011f0bed9ffc78278.tar.gz
binutils-125f8a3ddedd413a2290dae011f0bed9ffc78278.tar.bz2
Move shared native target specific code to gdb/nat
https://sourceware.org/gdb/wiki/Common describes the following directory structure: gdb/nat/ Native target backend files. Code that interfaces with the host debug API. E.g., ptrace code, Windows debug API code, procfs code should go here. gdb/target/ Host-independent, target vector specific code (target_ops). gdb/common/ All other shared code. This commit moves all native target backend files currently in gdb/common to gdb/nat. gdb/ 2014-06-20 Gary Benson <gbenson@redhat.com> * common/gdb_thread_db.h: Moved to nat. All includes updated. * common/glibc_thread_db.h: Likewise. * common/i386-cpuid.h: Likewise. * common/i386-gcc-cpuid.h: Likewise. * common/linux-btrace.h: Likewise. * common/linux-osdata.h: Likewise. * common/linux-procfs.h: Likewise. * common/linux-ptrace.h: Likewise. * common/mips-linux-watch.h: Likewise. * common/linux-btrace.c: Moved to nat. * common/linux-osdata.c: Likewise. * common/linux-procfs.c: Likewise. * common/linux-ptrace.c: Likewise. * common/mips-linux-watch.c: Likewise. * nat/gdb_thread_db.h: Moved from common. * nat/glibc_thread_db.h: Likewise. * nat/i386-cpuid.h: Likewise. * nat/i386-gcc-cpuid.h: Likewise. * nat/linux-btrace.c: Likewise. * nat/linux-btrace.h: Likewise. * nat/linux-osdata.c: Likewise. * nat/linux-osdata.h: Likewise. * nat/linux-procfs.c: Likewise. * nat/linux-procfs.h: Likewise. * nat/linux-ptrace.c: Likewise. * nat/linux-ptrace.h: Likewise. * nat/mips-linux-watch.c: Likewise. * nat/mips-linux-watch.h: Likewise. * Makefile.in (HFILES_NO_SRCDIR): Reflect new locations. (object file files): Reordered. * gdb/copyright.py (EXCLUDE_LIST): Reflect new location of glibc_thread_db.h. gdb/gdbserver/ 2014-06-20 Gary Benson <gbenson@redhat.com> * Makefile.in (SFILES): Update locations for files moved from common to nat. (object file files): Reordered. gdb/testsuite/ 2014-06-20 Gary Benson <gbenson@redhat.com> * gdb.arch/i386-avx.exp: Fix include file location. * gdb.arch/i386-sse.exp: Likewise.
Diffstat (limited to 'gdb/common/linux-osdata.c')
-rw-r--r--gdb/common/linux-osdata.c1634
1 files changed, 0 insertions, 1634 deletions
diff --git a/gdb/common/linux-osdata.c b/gdb/common/linux-osdata.c
deleted file mode 100644
index dae637b..0000000
--- a/gdb/common/linux-osdata.c
+++ /dev/null
@@ -1,1634 +0,0 @@
-/* Linux-specific functions to retrieve OS data.
-
- Copyright (C) 2009-2014 Free Software Foundation, Inc.
-
- This file is part of GDB.
-
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 3 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>. */
-
-#ifdef GDBSERVER
-#include "server.h"
-#else
-#include "defs.h"
-#endif
-
-#include "linux-osdata.h"
-
-#include <sys/types.h>
-#include <sys/sysinfo.h>
-#include <ctype.h>
-#include <stdlib.h>
-#include <string.h>
-#include <utmp.h>
-#include <time.h>
-#include <unistd.h>
-#include <pwd.h>
-#include <grp.h>
-#include <netdb.h>
-#include <netinet/in.h>
-#include <arpa/inet.h>
-
-#include "xml-utils.h"
-#include "buffer.h"
-#include "gdb_assert.h"
-#include <dirent.h>
-#include <sys/stat.h>
-#include "filestuff.h"
-
-#define NAMELEN(dirent) strlen ((dirent)->d_name)
-
-/* Define PID_T to be a fixed size that is at least as large as pid_t,
- so that reading pid values embedded in /proc works
- consistently. */
-
-typedef long long PID_T;
-
-/* Define TIME_T to be at least as large as time_t, so that reading
- time values embedded in /proc works consistently. */
-
-typedef long long TIME_T;
-
-#define MAX_PID_T_STRLEN (sizeof ("-9223372036854775808") - 1)
-
-/* Returns the CPU core that thread PTID is currently running on. */
-
-/* Compute and return the processor core of a given thread. */
-
-int
-linux_common_core_of_thread (ptid_t ptid)
-{
- char filename[sizeof ("/proc//task//stat") + 2 * MAX_PID_T_STRLEN];
- FILE *f;
- char *content = NULL;
- char *p;
- char *ts = 0;
- int content_read = 0;
- int i;
- int core;
-
- sprintf (filename, "/proc/%lld/task/%lld/stat",
- (PID_T) ptid_get_pid (ptid), (PID_T) ptid_get_lwp (ptid));
- f = gdb_fopen_cloexec (filename, "r");
- if (!f)
- return -1;
-
- for (;;)
- {
- int n;
- content = xrealloc (content, content_read + 1024);
- n = fread (content + content_read, 1, 1024, f);
- content_read += n;
- if (n < 1024)
- {
- content[content_read] = '\0';
- break;
- }
- }
-
- /* ps command also relies on no trailing fields ever contain ')'. */
- p = strrchr (content, ')');
- if (p != NULL)
- p++;
-
- /* If the first field after program name has index 0, then core number is
- the field with index 36. There's no constant for that anywhere. */
- if (p != NULL)
- p = strtok_r (p, " ", &ts);
- for (i = 0; p != NULL && i != 36; ++i)
- p = strtok_r (NULL, " ", &ts);
-
- if (p == NULL || sscanf (p, "%d", &core) == 0)
- core = -1;
-
- xfree (content);
- fclose (f);
-
- return core;
-}
-
-/* Finds the command-line of process PID and copies it into COMMAND.
- At most MAXLEN characters are copied. If the command-line cannot
- be found, PID is copied into command in text-form. */
-
-static void
-command_from_pid (char *command, int maxlen, PID_T pid)
-{
- char *stat_path = xstrprintf ("/proc/%lld/stat", pid);
- FILE *fp = gdb_fopen_cloexec (stat_path, "r");
-
- command[0] = '\0';
-
- if (fp)
- {
- /* sizeof (cmd) should be greater or equal to TASK_COMM_LEN (in
- include/linux/sched.h in the Linux kernel sources) plus two
- (for the brackets). */
- char cmd[18];
- PID_T stat_pid;
- int items_read = fscanf (fp, "%lld %17s", &stat_pid, cmd);
-
- if (items_read == 2 && pid == stat_pid)
- {
- cmd[strlen (cmd) - 1] = '\0'; /* Remove trailing parenthesis. */
- strncpy (command, cmd + 1, maxlen); /* Ignore leading parenthesis. */
- }
-
- fclose (fp);
- }
- else
- {
- /* Return the PID if a /proc entry for the process cannot be found. */
- snprintf (command, maxlen, "%lld", pid);
- }
-
- command[maxlen - 1] = '\0'; /* Ensure string is null-terminated. */
-
- xfree (stat_path);
-}
-
-/* Returns the command-line of the process with the given PID. The
- returned string needs to be freed using xfree after use. */
-
-static char *
-commandline_from_pid (PID_T pid)
-{
- char *pathname = xstrprintf ("/proc/%lld/cmdline", pid);
- char *commandline = NULL;
- FILE *f = gdb_fopen_cloexec (pathname, "r");
-
- if (f)
- {
- size_t len = 0;
-
- while (!feof (f))
- {
- char buf[1024];
- size_t read_bytes = fread (buf, 1, sizeof (buf), f);
-
- if (read_bytes)
- {
- commandline = (char *) xrealloc (commandline, len + read_bytes + 1);
- memcpy (commandline + len, buf, read_bytes);
- len += read_bytes;
- }
- }
-
- fclose (f);
-
- if (commandline)
- {
- size_t i;
-
- /* Replace null characters with spaces. */
- for (i = 0; i < len; ++i)
- if (commandline[i] == '\0')
- commandline[i] = ' ';
-
- commandline[len] = '\0';
- }
- else
- {
- /* Return the command in square brackets if the command-line
- is empty. */
- commandline = (char *) xmalloc (32);
- commandline[0] = '[';
- command_from_pid (commandline + 1, 31, pid);
-
- len = strlen (commandline);
- if (len < 31)
- strcat (commandline, "]");
- }
- }
-
- xfree (pathname);
-
- return commandline;
-}
-
-/* Finds the user name for the user UID and copies it into USER. At
- most MAXLEN characters are copied. */
-
-static void
-user_from_uid (char *user, int maxlen, uid_t uid)
-{
- struct passwd *pwentry = getpwuid (uid);
-
- if (pwentry)
- {
- strncpy (user, pwentry->pw_name, maxlen);
- /* Ensure that the user name is null-terminated. */
- user[maxlen - 1] = '\0';
- }
- else
- user[0] = '\0';
-}
-
-/* Finds the owner of process PID and returns the user id in OWNER.
- Returns 0 if the owner was found, -1 otherwise. */
-
-static int
-get_process_owner (uid_t *owner, PID_T pid)
-{
- struct stat statbuf;
- char procentry[sizeof ("/proc/") + MAX_PID_T_STRLEN];
-
- sprintf (procentry, "/proc/%lld", pid);
-
- if (stat (procentry, &statbuf) == 0 && S_ISDIR (statbuf.st_mode))
- {
- *owner = statbuf.st_uid;
- return 0;
- }
- else
- return -1;
-}
-
-/* Find the CPU cores used by process PID and return them in CORES.
- CORES points to an array of NUM_CORES elements. */
-
-static int
-get_cores_used_by_process (PID_T pid, int *cores, const int num_cores)
-{
- char taskdir[sizeof ("/proc/") + MAX_PID_T_STRLEN + sizeof ("/task") - 1];
- DIR *dir;
- struct dirent *dp;
- int task_count = 0;
-
- sprintf (taskdir, "/proc/%lld/task", pid);
- dir = opendir (taskdir);
- if (dir)
- {
- while ((dp = readdir (dir)) != NULL)
- {
- PID_T tid;
- int core;
-
- if (!isdigit (dp->d_name[0])
- || NAMELEN (dp) > MAX_PID_T_STRLEN)
- continue;
-
- sscanf (dp->d_name, "%lld", &tid);
- core = linux_common_core_of_thread (ptid_build ((pid_t) pid,
- (pid_t) tid, 0));
-
- if (core >= 0 && core < num_cores)
- {
- ++cores[core];
- ++task_count;
- }
- }
-
- closedir (dir);
- }
-
- return task_count;
-}
-
-static LONGEST
-linux_xfer_osdata_processes (gdb_byte *readbuf,
- ULONGEST offset, ULONGEST len)
-{
- /* We make the process list snapshot when the object starts to be read. */
- static const char *buf;
- static LONGEST len_avail = -1;
- static struct buffer buffer;
-
- if (offset == 0)
- {
- DIR *dirp;
-
- if (len_avail != -1 && len_avail != 0)
- buffer_free (&buffer);
- len_avail = 0;
- buf = NULL;
- buffer_init (&buffer);
- buffer_grow_str (&buffer, "<osdata type=\"processes\">\n");
-
- dirp = opendir ("/proc");
- if (dirp)
- {
- const int num_cores = sysconf (_SC_NPROCESSORS_ONLN);
- struct dirent *dp;
-
- while ((dp = readdir (dirp)) != NULL)
- {
- PID_T pid;
- uid_t owner;
- char user[UT_NAMESIZE];
- char *command_line;
- int *cores;
- int task_count;
- char *cores_str;
- int i;
-
- if (!isdigit (dp->d_name[0])
- || NAMELEN (dp) > MAX_PID_T_STRLEN)
- continue;
-
- sscanf (dp->d_name, "%lld", &pid);
- command_line = commandline_from_pid (pid);
-
- if (get_process_owner (&owner, pid) == 0)
- user_from_uid (user, sizeof (user), owner);
- else
- strcpy (user, "?");
-
- /* Find CPU cores used by the process. */
- cores = (int *) xcalloc (num_cores, sizeof (int));
- task_count = get_cores_used_by_process (pid, cores, num_cores);
- cores_str = (char *) xcalloc (task_count, sizeof ("4294967295") + 1);
-
- for (i = 0; i < num_cores && task_count > 0; ++i)
- if (cores[i])
- {
- char core_str[sizeof ("4294967295")];
-
- sprintf (core_str, "%d", i);
- strcat (cores_str, core_str);
-
- task_count -= cores[i];
- if (task_count > 0)
- strcat (cores_str, ",");
- }
-
- xfree (cores);
-
- buffer_xml_printf (
- &buffer,
- "<item>"
- "<column name=\"pid\">%lld</column>"
- "<column name=\"user\">%s</column>"
- "<column name=\"command\">%s</column>"
- "<column name=\"cores\">%s</column>"
- "</item>",
- pid,
- user,
- command_line ? command_line : "",
- cores_str);
-
- xfree (command_line);
- xfree (cores_str);
- }
-
- closedir (dirp);
- }
-
- buffer_grow_str0 (&buffer, "</osdata>\n");
- buf = buffer_finish (&buffer);
- len_avail = strlen (buf);
- }
-
- if (offset >= len_avail)
- {
- /* Done. Get rid of the buffer. */
- buffer_free (&buffer);
- buf = NULL;
- len_avail = 0;
- return 0;
- }
-
- if (len > len_avail - offset)
- len = len_avail - offset;
- memcpy (readbuf, buf + offset, len);
-
- return len;
-}
-
-/* Auxiliary function used by qsort to sort processes by process
- group. Compares two processes with ids PROCESS1 and PROCESS2.
- PROCESS1 comes before PROCESS2 if it has a lower process group id.
- If they belong to the same process group, PROCESS1 comes before
- PROCESS2 if it has a lower process id or is the process group
- leader. */
-
-static int
-compare_processes (const void *process1, const void *process2)
-{
- PID_T pid1 = *((PID_T *) process1);
- PID_T pid2 = *((PID_T *) process2);
- PID_T pgid1 = *((PID_T *) process1 + 1);
- PID_T pgid2 = *((PID_T *) process2 + 1);
-
- /* Sort by PGID. */
- if (pgid1 < pgid2)
- return -1;
- else if (pgid1 > pgid2)
- return 1;
- else
- {
- /* Process group leaders always come first, else sort by PID. */
- if (pid1 == pgid1)
- return -1;
- else if (pid2 == pgid2)
- return 1;
- else if (pid1 < pid2)
- return -1;
- else if (pid1 > pid2)
- return 1;
- else
- return 0;
- }
-}
-
-/* Collect all process groups from /proc. */
-
-static LONGEST
-linux_xfer_osdata_processgroups (gdb_byte *readbuf,
- ULONGEST offset, ULONGEST len)
-{
- /* We make the process list snapshot when the object starts to be read. */
- static const char *buf;
- static LONGEST len_avail = -1;
- static struct buffer buffer;
-
- if (offset == 0)
- {
- DIR *dirp;
-
- if (len_avail != -1 && len_avail != 0)
- buffer_free (&buffer);
- len_avail = 0;
- buf = NULL;
- buffer_init (&buffer);
- buffer_grow_str (&buffer, "<osdata type=\"process groups\">\n");
-
- dirp = opendir ("/proc");
- if (dirp)
- {
- struct dirent *dp;
- const size_t list_block_size = 512;
- PID_T *process_list = (PID_T *) xmalloc (list_block_size * 2 * sizeof (PID_T));
- size_t process_count = 0;
- size_t i;
-
- /* Build list consisting of PIDs followed by their
- associated PGID. */
- while ((dp = readdir (dirp)) != NULL)
- {
- PID_T pid, pgid;
-
- if (!isdigit (dp->d_name[0])
- || NAMELEN (dp) > MAX_PID_T_STRLEN)
- continue;
-
- sscanf (dp->d_name, "%lld", &pid);
- pgid = getpgid (pid);
-
- if (pgid > 0)
- {
- process_list[2 * process_count] = pid;
- process_list[2 * process_count + 1] = pgid;
- ++process_count;
-
- /* Increase the size of the list if necessary. */
- if (process_count % list_block_size == 0)
- process_list = (PID_T *) xrealloc (
- process_list,
- (process_count + list_block_size)
- * 2 * sizeof (PID_T));
- }
- }
-
- closedir (dirp);
-
- /* Sort the process list. */
- qsort (process_list, process_count, 2 * sizeof (PID_T),
- compare_processes);
-
- for (i = 0; i < process_count; ++i)
- {
- PID_T pid = process_list[2 * i];
- PID_T pgid = process_list[2 * i + 1];
- char leader_command[32];
- char *command_line;
-
- command_from_pid (leader_command, sizeof (leader_command), pgid);
- command_line = commandline_from_pid (pid);
-
- buffer_xml_printf (
- &buffer,
- "<item>"
- "<column name=\"pgid\">%lld</column>"
- "<column name=\"leader command\">%s</column>"
- "<column name=\"pid\">%lld</column>"
- "<column name=\"command line\">%s</column>"
- "</item>",
- pgid,
- leader_command,
- pid,
- command_line ? command_line : "");
-
- xfree (command_line);
- }
-
- xfree (process_list);
- }
-
- buffer_grow_str0 (&buffer, "</osdata>\n");
- buf = buffer_finish (&buffer);
- len_avail = strlen (buf);
- }
-
- if (offset >= len_avail)
- {
- /* Done. Get rid of the buffer. */
- buffer_free (&buffer);
- buf = NULL;
- len_avail = 0;
- return 0;
- }
-
- if (len > len_avail - offset)
- len = len_avail - offset;
- memcpy (readbuf, buf + offset, len);
-
- return len;
-}
-
-/* Collect all the threads in /proc by iterating through processes and
- then tasks within each process. */
-
-static LONGEST
-linux_xfer_osdata_threads (gdb_byte *readbuf,
- ULONGEST offset, ULONGEST len)
-{
- /* We make the process list snapshot when the object starts to be read. */
- static const char *buf;
- static LONGEST len_avail = -1;
- static struct buffer buffer;
-
- if (offset == 0)
- {
- DIR *dirp;
-
- if (len_avail != -1 && len_avail != 0)
- buffer_free (&buffer);
- len_avail = 0;
- buf = NULL;
- buffer_init (&buffer);
- buffer_grow_str (&buffer, "<osdata type=\"threads\">\n");
-
- dirp = opendir ("/proc");
- if (dirp)
- {
- struct dirent *dp;
-
- while ((dp = readdir (dirp)) != NULL)
- {
- struct stat statbuf;
- char procentry[sizeof ("/proc/4294967295")];
-
- if (!isdigit (dp->d_name[0])
- || NAMELEN (dp) > sizeof ("4294967295") - 1)
- continue;
-
- sprintf (procentry, "/proc/%s", dp->d_name);
- if (stat (procentry, &statbuf) == 0
- && S_ISDIR (statbuf.st_mode))
- {
- DIR *dirp2;
- char *pathname;
- PID_T pid;
- char command[32];
-
- pathname = xstrprintf ("/proc/%s/task", dp->d_name);
-
- pid = atoi (dp->d_name);
- command_from_pid (command, sizeof (command), pid);
-
- dirp2 = opendir (pathname);
-
- if (dirp2)
- {
- struct dirent *dp2;
-
- while ((dp2 = readdir (dirp2)) != NULL)
- {
- PID_T tid;
- int core;
-
- if (!isdigit (dp2->d_name[0])
- || NAMELEN (dp2) > sizeof ("4294967295") - 1)
- continue;
-
- tid = atoi (dp2->d_name);
- core = linux_common_core_of_thread (ptid_build (pid, tid, 0));
-
- buffer_xml_printf (
- &buffer,
- "<item>"
- "<column name=\"pid\">%lld</column>"
- "<column name=\"command\">%s</column>"
- "<column name=\"tid\">%lld</column>"
- "<column name=\"core\">%d</column>"
- "</item>",
- pid,
- command,
- tid,
- core);
- }
-
- closedir (dirp2);
- }
-
- xfree (pathname);
- }
- }
-
- closedir (dirp);
- }
-
- buffer_grow_str0 (&buffer, "</osdata>\n");
- buf = buffer_finish (&buffer);
- len_avail = strlen (buf);
- }
-
- if (offset >= len_avail)
- {
- /* Done. Get rid of the buffer. */
- buffer_free (&buffer);
- buf = NULL;
- len_avail = 0;
- return 0;
- }
-
- if (len > len_avail - offset)
- len = len_avail - offset;
- memcpy (readbuf, buf + offset, len);
-
- return len;
-}
-
-/* Collect all the open file descriptors found in /proc and put the details
- found about them into READBUF. */
-
-static LONGEST
-linux_xfer_osdata_fds (gdb_byte *readbuf,
- ULONGEST offset, ULONGEST len)
-{
- /* We make the process list snapshot when the object starts to be read. */
- static const char *buf;
- static LONGEST len_avail = -1;
- static struct buffer buffer;
-
- if (offset == 0)
- {
- DIR *dirp;
-
- if (len_avail != -1 && len_avail != 0)
- buffer_free (&buffer);
- len_avail = 0;
- buf = NULL;
- buffer_init (&buffer);
- buffer_grow_str (&buffer, "<osdata type=\"files\">\n");
-
- dirp = opendir ("/proc");
- if (dirp)
- {
- struct dirent *dp;
-
- while ((dp = readdir (dirp)) != NULL)
- {
- struct stat statbuf;
- char procentry[sizeof ("/proc/4294967295")];
-
- if (!isdigit (dp->d_name[0])
- || NAMELEN (dp) > sizeof ("4294967295") - 1)
- continue;
-
- sprintf (procentry, "/proc/%s", dp->d_name);
- if (stat (procentry, &statbuf) == 0
- && S_ISDIR (statbuf.st_mode))
- {
- char *pathname;
- DIR *dirp2;
- PID_T pid;
- char command[32];
-
- pid = atoi (dp->d_name);
- command_from_pid (command, sizeof (command), pid);
-
- pathname = xstrprintf ("/proc/%s/fd", dp->d_name);
- dirp2 = opendir (pathname);
-
- if (dirp2)
- {
- struct dirent *dp2;
-
- while ((dp2 = readdir (dirp2)) != NULL)
- {
- char *fdname;
- char buf[1000];
- ssize_t rslt;
-
- if (!isdigit (dp2->d_name[0]))
- continue;
-
- fdname = xstrprintf ("%s/%s", pathname, dp2->d_name);
- rslt = readlink (fdname, buf, sizeof (buf) - 1);
- if (rslt >= 0)
- buf[rslt] = '\0';
-
- buffer_xml_printf (
- &buffer,
- "<item>"
- "<column name=\"pid\">%s</column>"
- "<column name=\"command\">%s</column>"
- "<column name=\"file descriptor\">%s</column>"
- "<column name=\"name\">%s</column>"
- "</item>",
- dp->d_name,
- command,
- dp2->d_name,
- (rslt >= 0 ? buf : dp2->d_name));
- }
-
- closedir (dirp2);
- }
-
- xfree (pathname);
- }
- }
-
- closedir (dirp);
- }
-
- buffer_grow_str0 (&buffer, "</osdata>\n");
- buf = buffer_finish (&buffer);
- len_avail = strlen (buf);
- }
-
- if (offset >= len_avail)
- {
- /* Done. Get rid of the buffer. */
- buffer_free (&buffer);
- buf = NULL;
- len_avail = 0;
- return 0;
- }
-
- if (len > len_avail - offset)
- len = len_avail - offset;
- memcpy (readbuf, buf + offset, len);
-
- return len;
-}
-
-/* Returns the socket state STATE in textual form. */
-
-static const char *
-format_socket_state (unsigned char state)
-{
- /* Copied from include/net/tcp_states.h in the Linux kernel sources. */
- enum {
- TCP_ESTABLISHED = 1,
- TCP_SYN_SENT,
- TCP_SYN_RECV,
- TCP_FIN_WAIT1,
- TCP_FIN_WAIT2,
- TCP_TIME_WAIT,
- TCP_CLOSE,
- TCP_CLOSE_WAIT,
- TCP_LAST_ACK,
- TCP_LISTEN,
- TCP_CLOSING
- };
-
- switch (state)
- {
- case TCP_ESTABLISHED:
- return "ESTABLISHED";
- case TCP_SYN_SENT:
- return "SYN_SENT";
- case TCP_SYN_RECV:
- return "SYN_RECV";
- case TCP_FIN_WAIT1:
- return "FIN_WAIT1";
- case TCP_FIN_WAIT2:
- return "FIN_WAIT2";
- case TCP_TIME_WAIT:
- return "TIME_WAIT";
- case TCP_CLOSE:
- return "CLOSE";
- case TCP_CLOSE_WAIT:
- return "CLOSE_WAIT";
- case TCP_LAST_ACK:
- return "LAST_ACK";
- case TCP_LISTEN:
- return "LISTEN";
- case TCP_CLOSING:
- return "CLOSING";
- default:
- return "(unknown)";
- }
-}
-
-union socket_addr
- {
- struct sockaddr sa;
- struct sockaddr_in sin;
- struct sockaddr_in6 sin6;
- };
-
-/* Auxiliary function used by linux_xfer_osdata_isocket. Formats
- information for all open internet sockets of type FAMILY on the
- system into BUFFER. If TCP is set, only TCP sockets are processed,
- otherwise only UDP sockets are processed. */
-
-static void
-print_sockets (unsigned short family, int tcp, struct buffer *buffer)
-{
- const char *proc_file;
- FILE *fp;
-
- if (family == AF_INET)
- proc_file = tcp ? "/proc/net/tcp" : "/proc/net/udp";
- else if (family == AF_INET6)
- proc_file = tcp ? "/proc/net/tcp6" : "/proc/net/udp6";
- else
- return;
-
- fp = gdb_fopen_cloexec (proc_file, "r");
- if (fp)
- {
- char buf[8192];
-
- do
- {
- if (fgets (buf, sizeof (buf), fp))
- {
- uid_t uid;
- unsigned int local_port, remote_port, state;
- char local_address[NI_MAXHOST], remote_address[NI_MAXHOST];
- int result;
-
-#if NI_MAXHOST <= 32
-#error "local_address and remote_address buffers too small"
-#endif
-
- result = sscanf (buf,
- "%*d: %32[0-9A-F]:%X %32[0-9A-F]:%X %X %*X:%*X %*X:%*X %*X %d %*d %*u %*s\n",
- local_address, &local_port,
- remote_address, &remote_port,
- &state,
- &uid);
-
- if (result == 6)
- {
- union socket_addr locaddr, remaddr;
- size_t addr_size;
- char user[UT_NAMESIZE];
- char local_service[NI_MAXSERV], remote_service[NI_MAXSERV];
-
- if (family == AF_INET)
- {
- sscanf (local_address, "%X",
- &locaddr.sin.sin_addr.s_addr);
- sscanf (remote_address, "%X",
- &remaddr.sin.sin_addr.s_addr);
-
- locaddr.sin.sin_port = htons (local_port);
- remaddr.sin.sin_port = htons (remote_port);
-
- addr_size = sizeof (struct sockaddr_in);
- }
- else
- {
- sscanf (local_address, "%8X%8X%8X%8X",
- locaddr.sin6.sin6_addr.s6_addr32,
- locaddr.sin6.sin6_addr.s6_addr32 + 1,
- locaddr.sin6.sin6_addr.s6_addr32 + 2,
- locaddr.sin6.sin6_addr.s6_addr32 + 3);
- sscanf (remote_address, "%8X%8X%8X%8X",
- remaddr.sin6.sin6_addr.s6_addr32,
- remaddr.sin6.sin6_addr.s6_addr32 + 1,
- remaddr.sin6.sin6_addr.s6_addr32 + 2,
- remaddr.sin6.sin6_addr.s6_addr32 + 3);
-
- locaddr.sin6.sin6_port = htons (local_port);
- remaddr.sin6.sin6_port = htons (remote_port);
-
- locaddr.sin6.sin6_flowinfo = 0;
- remaddr.sin6.sin6_flowinfo = 0;
- locaddr.sin6.sin6_scope_id = 0;
- remaddr.sin6.sin6_scope_id = 0;
-
- addr_size = sizeof (struct sockaddr_in6);
- }
-
- locaddr.sa.sa_family = remaddr.sa.sa_family = family;
-
- result = getnameinfo (&locaddr.sa, addr_size,
- local_address, sizeof (local_address),
- local_service, sizeof (local_service),
- NI_NUMERICHOST | NI_NUMERICSERV
- | (tcp ? 0 : NI_DGRAM));
- if (result)
- continue;
-
- result = getnameinfo (&remaddr.sa, addr_size,
- remote_address,
- sizeof (remote_address),
- remote_service,
- sizeof (remote_service),
- NI_NUMERICHOST | NI_NUMERICSERV
- | (tcp ? 0 : NI_DGRAM));
- if (result)
- continue;
-
- user_from_uid (user, sizeof (user), uid);
-
- buffer_xml_printf (
- buffer,
- "<item>"
- "<column name=\"local address\">%s</column>"
- "<column name=\"local port\">%s</column>"
- "<column name=\"remote address\">%s</column>"
- "<column name=\"remote port\">%s</column>"
- "<column name=\"state\">%s</column>"
- "<column name=\"user\">%s</column>"
- "<column name=\"family\">%s</column>"
- "<column name=\"protocol\">%s</column>"
- "</item>",
- local_address,
- local_service,
- remote_address,
- remote_service,
- format_socket_state (state),
- user,
- (family == AF_INET) ? "INET" : "INET6",
- tcp ? "STREAM" : "DGRAM");
- }
- }
- }
- while (!feof (fp));
-
- fclose (fp);
- }
-}
-
-/* Collect data about internet sockets and write it into READBUF. */
-
-static LONGEST
-linux_xfer_osdata_isockets (gdb_byte *readbuf,
- ULONGEST offset, ULONGEST len)
-{
- static const char *buf;
- static LONGEST len_avail = -1;
- static struct buffer buffer;
-
- if (offset == 0)
- {
- if (len_avail != -1 && len_avail != 0)
- buffer_free (&buffer);
- len_avail = 0;
- buf = NULL;
- buffer_init (&buffer);
- buffer_grow_str (&buffer, "<osdata type=\"I sockets\">\n");
-
- print_sockets (AF_INET, 1, &buffer);
- print_sockets (AF_INET, 0, &buffer);
- print_sockets (AF_INET6, 1, &buffer);
- print_sockets (AF_INET6, 0, &buffer);
-
- buffer_grow_str0 (&buffer, "</osdata>\n");
- buf = buffer_finish (&buffer);
- len_avail = strlen (buf);
- }
-
- if (offset >= len_avail)
- {
- /* Done. Get rid of the buffer. */
- buffer_free (&buffer);
- buf = NULL;
- len_avail = 0;
- return 0;
- }
-
- if (len > len_avail - offset)
- len = len_avail - offset;
- memcpy (readbuf, buf + offset, len);
-
- return len;
-}
-
-/* Converts the time SECONDS into textual form and copies it into a
- buffer TIME, with at most MAXLEN characters copied. */
-
-static void
-time_from_time_t (char *time, int maxlen, TIME_T seconds)
-{
- if (!seconds)
- time[0] = '\0';
- else
- {
- time_t t = (time_t) seconds;
-
- strncpy (time, ctime (&t), maxlen);
- time[maxlen - 1] = '\0';
- }
-}
-
-/* Finds the group name for the group GID and copies it into GROUP.
- At most MAXLEN characters are copied. */
-
-static void
-group_from_gid (char *group, int maxlen, gid_t gid)
-{
- struct group *grentry = getgrgid (gid);
-
- if (grentry)
- {
- strncpy (group, grentry->gr_name, maxlen);
- /* Ensure that the group name is null-terminated. */
- group[maxlen - 1] = '\0';
- }
- else
- group[0] = '\0';
-}
-
-/* Collect data about shared memory recorded in /proc and write it
- into READBUF. */
-
-static LONGEST
-linux_xfer_osdata_shm (gdb_byte *readbuf,
- ULONGEST offset, ULONGEST len)
-{
- static const char *buf;
- static LONGEST len_avail = -1;
- static struct buffer buffer;
-
- if (offset == 0)
- {
- FILE *fp;
-
- if (len_avail != -1 && len_avail != 0)
- buffer_free (&buffer);
- len_avail = 0;
- buf = NULL;
- buffer_init (&buffer);
- buffer_grow_str (&buffer, "<osdata type=\"shared memory\">\n");
-
- fp = gdb_fopen_cloexec ("/proc/sysvipc/shm", "r");
- if (fp)
- {
- char buf[8192];
-
- do
- {
- if (fgets (buf, sizeof (buf), fp))
- {
- key_t key;
- uid_t uid, cuid;
- gid_t gid, cgid;
- PID_T cpid, lpid;
- int shmid, size, nattch;
- TIME_T atime, dtime, ctime;
- unsigned int perms;
- int items_read;
-
- items_read = sscanf (buf,
- "%d %d %o %d %lld %lld %d %u %u %u %u %lld %lld %lld",
- &key, &shmid, &perms, &size,
- &cpid, &lpid,
- &nattch,
- &uid, &gid, &cuid, &cgid,
- &atime, &dtime, &ctime);
-
- if (items_read == 14)
- {
- char user[UT_NAMESIZE], group[UT_NAMESIZE];
- char cuser[UT_NAMESIZE], cgroup[UT_NAMESIZE];
- char ccmd[32], lcmd[32];
- char atime_str[32], dtime_str[32], ctime_str[32];
-
- user_from_uid (user, sizeof (user), uid);
- group_from_gid (group, sizeof (group), gid);
- user_from_uid (cuser, sizeof (cuser), cuid);
- group_from_gid (cgroup, sizeof (cgroup), cgid);
-
- command_from_pid (ccmd, sizeof (ccmd), cpid);
- command_from_pid (lcmd, sizeof (lcmd), lpid);
-
- time_from_time_t (atime_str, sizeof (atime_str), atime);
- time_from_time_t (dtime_str, sizeof (dtime_str), dtime);
- time_from_time_t (ctime_str, sizeof (ctime_str), ctime);
-
- buffer_xml_printf (
- &buffer,
- "<item>"
- "<column name=\"key\">%d</column>"
- "<column name=\"shmid\">%d</column>"
- "<column name=\"permissions\">%o</column>"
- "<column name=\"size\">%d</column>"
- "<column name=\"creator command\">%s</column>"
- "<column name=\"last op. command\">%s</column>"
- "<column name=\"num attached\">%d</column>"
- "<column name=\"user\">%s</column>"
- "<column name=\"group\">%s</column>"
- "<column name=\"creator user\">%s</column>"
- "<column name=\"creator group\">%s</column>"
- "<column name=\"last shmat() time\">%s</column>"
- "<column name=\"last shmdt() time\">%s</column>"
- "<column name=\"last shmctl() time\">%s</column>"
- "</item>",
- key,
- shmid,
- perms,
- size,
- ccmd,
- lcmd,
- nattch,
- user,
- group,
- cuser,
- cgroup,
- atime_str,
- dtime_str,
- ctime_str);
- }
- }
- }
- while (!feof (fp));
-
- fclose (fp);
- }
-
- buffer_grow_str0 (&buffer, "</osdata>\n");
- buf = buffer_finish (&buffer);
- len_avail = strlen (buf);
- }
-
- if (offset >= len_avail)
- {
- /* Done. Get rid of the buffer. */
- buffer_free (&buffer);
- buf = NULL;
- len_avail = 0;
- return 0;
- }
-
- if (len > len_avail - offset)
- len = len_avail - offset;
- memcpy (readbuf, buf + offset, len);
-
- return len;
-}
-
-/* Collect data about semaphores recorded in /proc and write it
- into READBUF. */
-
-static LONGEST
-linux_xfer_osdata_sem (gdb_byte *readbuf,
- ULONGEST offset, ULONGEST len)
-{
- static const char *buf;
- static LONGEST len_avail = -1;
- static struct buffer buffer;
-
- if (offset == 0)
- {
- FILE *fp;
-
- if (len_avail != -1 && len_avail != 0)
- buffer_free (&buffer);
- len_avail = 0;
- buf = NULL;
- buffer_init (&buffer);
- buffer_grow_str (&buffer, "<osdata type=\"semaphores\">\n");
-
- fp = gdb_fopen_cloexec ("/proc/sysvipc/sem", "r");
- if (fp)
- {
- char buf[8192];
-
- do
- {
- if (fgets (buf, sizeof (buf), fp))
- {
- key_t key;
- uid_t uid, cuid;
- gid_t gid, cgid;
- unsigned int perms, nsems;
- int semid;
- TIME_T otime, ctime;
- int items_read;
-
- items_read = sscanf (buf,
- "%d %d %o %u %d %d %d %d %lld %lld",
- &key, &semid, &perms, &nsems,
- &uid, &gid, &cuid, &cgid,
- &otime, &ctime);
-
- if (items_read == 10)
- {
- char user[UT_NAMESIZE], group[UT_NAMESIZE];
- char cuser[UT_NAMESIZE], cgroup[UT_NAMESIZE];
- char otime_str[32], ctime_str[32];
-
- user_from_uid (user, sizeof (user), uid);
- group_from_gid (group, sizeof (group), gid);
- user_from_uid (cuser, sizeof (cuser), cuid);
- group_from_gid (cgroup, sizeof (cgroup), cgid);
-
- time_from_time_t (otime_str, sizeof (otime_str), otime);
- time_from_time_t (ctime_str, sizeof (ctime_str), ctime);
-
- buffer_xml_printf (
- &buffer,
- "<item>"
- "<column name=\"key\">%d</column>"
- "<column name=\"semid\">%d</column>"
- "<column name=\"permissions\">%o</column>"
- "<column name=\"num semaphores\">%u</column>"
- "<column name=\"user\">%s</column>"
- "<column name=\"group\">%s</column>"
- "<column name=\"creator user\">%s</column>"
- "<column name=\"creator group\">%s</column>"
- "<column name=\"last semop() time\">%s</column>"
- "<column name=\"last semctl() time\">%s</column>"
- "</item>",
- key,
- semid,
- perms,
- nsems,
- user,
- group,
- cuser,
- cgroup,
- otime_str,
- ctime_str);
- }
- }
- }
- while (!feof (fp));
-
- fclose (fp);
- }
-
- buffer_grow_str0 (&buffer, "</osdata>\n");
- buf = buffer_finish (&buffer);
- len_avail = strlen (buf);
- }
-
- if (offset >= len_avail)
- {
- /* Done. Get rid of the buffer. */
- buffer_free (&buffer);
- buf = NULL;
- len_avail = 0;
- return 0;
- }
-
- if (len > len_avail - offset)
- len = len_avail - offset;
- memcpy (readbuf, buf + offset, len);
-
- return len;
-}
-
-/* Collect data about message queues recorded in /proc and write it
- into READBUF. */
-
-static LONGEST
-linux_xfer_osdata_msg (gdb_byte *readbuf,
- ULONGEST offset, ULONGEST len)
-{
- static const char *buf;
- static LONGEST len_avail = -1;
- static struct buffer buffer;
-
- if (offset == 0)
- {
- FILE *fp;
-
- if (len_avail != -1 && len_avail != 0)
- buffer_free (&buffer);
- len_avail = 0;
- buf = NULL;
- buffer_init (&buffer);
- buffer_grow_str (&buffer, "<osdata type=\"message queues\">\n");
-
- fp = gdb_fopen_cloexec ("/proc/sysvipc/msg", "r");
- if (fp)
- {
- char buf[8192];
-
- do
- {
- if (fgets (buf, sizeof (buf), fp))
- {
- key_t key;
- PID_T lspid, lrpid;
- uid_t uid, cuid;
- gid_t gid, cgid;
- unsigned int perms, cbytes, qnum;
- int msqid;
- TIME_T stime, rtime, ctime;
- int items_read;
-
- items_read = sscanf (buf,
- "%d %d %o %u %u %lld %lld %d %d %d %d %lld %lld %lld",
- &key, &msqid, &perms, &cbytes, &qnum,
- &lspid, &lrpid, &uid, &gid, &cuid, &cgid,
- &stime, &rtime, &ctime);
-
- if (items_read == 14)
- {
- char user[UT_NAMESIZE], group[UT_NAMESIZE];
- char cuser[UT_NAMESIZE], cgroup[UT_NAMESIZE];
- char lscmd[32], lrcmd[32];
- char stime_str[32], rtime_str[32], ctime_str[32];
-
- user_from_uid (user, sizeof (user), uid);
- group_from_gid (group, sizeof (group), gid);
- user_from_uid (cuser, sizeof (cuser), cuid);
- group_from_gid (cgroup, sizeof (cgroup), cgid);
-
- command_from_pid (lscmd, sizeof (lscmd), lspid);
- command_from_pid (lrcmd, sizeof (lrcmd), lrpid);
-
- time_from_time_t (stime_str, sizeof (stime_str), stime);
- time_from_time_t (rtime_str, sizeof (rtime_str), rtime);
- time_from_time_t (ctime_str, sizeof (ctime_str), ctime);
-
- buffer_xml_printf (
- &buffer,
- "<item>"
- "<column name=\"key\">%d</column>"
- "<column name=\"msqid\">%d</column>"
- "<column name=\"permissions\">%o</column>"
- "<column name=\"num used bytes\">%u</column>"
- "<column name=\"num messages\">%u</column>"
- "<column name=\"last msgsnd() command\">%s</column>"
- "<column name=\"last msgrcv() command\">%s</column>"
- "<column name=\"user\">%s</column>"
- "<column name=\"group\">%s</column>"
- "<column name=\"creator user\">%s</column>"
- "<column name=\"creator group\">%s</column>"
- "<column name=\"last msgsnd() time\">%s</column>"
- "<column name=\"last msgrcv() time\">%s</column>"
- "<column name=\"last msgctl() time\">%s</column>"
- "</item>",
- key,
- msqid,
- perms,
- cbytes,
- qnum,
- lscmd,
- lrcmd,
- user,
- group,
- cuser,
- cgroup,
- stime_str,
- rtime_str,
- ctime_str);
- }
- }
- }
- while (!feof (fp));
-
- fclose (fp);
- }
-
- buffer_grow_str0 (&buffer, "</osdata>\n");
- buf = buffer_finish (&buffer);
- len_avail = strlen (buf);
- }
-
- if (offset >= len_avail)
- {
- /* Done. Get rid of the buffer. */
- buffer_free (&buffer);
- buf = NULL;
- len_avail = 0;
- return 0;
- }
-
- if (len > len_avail - offset)
- len = len_avail - offset;
- memcpy (readbuf, buf + offset, len);
-
- return len;
-}
-
-/* Collect data about loaded kernel modules and write it into
- READBUF. */
-
-static LONGEST
-linux_xfer_osdata_modules (gdb_byte *readbuf,
- ULONGEST offset, ULONGEST len)
-{
- static const char *buf;
- static LONGEST len_avail = -1;
- static struct buffer buffer;
-
- if (offset == 0)
- {
- FILE *fp;
-
- if (len_avail != -1 && len_avail != 0)
- buffer_free (&buffer);
- len_avail = 0;
- buf = NULL;
- buffer_init (&buffer);
- buffer_grow_str (&buffer, "<osdata type=\"modules\">\n");
-
- fp = gdb_fopen_cloexec ("/proc/modules", "r");
- if (fp)
- {
- char buf[8192];
-
- do
- {
- if (fgets (buf, sizeof (buf), fp))
- {
- char *name, *dependencies, *status, *tmp;
- unsigned int size;
- unsigned long long address;
- int uses;
-
- name = strtok (buf, " ");
- if (name == NULL)
- continue;
-
- tmp = strtok (NULL, " ");
- if (tmp == NULL)
- continue;
- if (sscanf (tmp, "%u", &size) != 1)
- continue;
-
- tmp = strtok (NULL, " ");
- if (tmp == NULL)
- continue;
- if (sscanf (tmp, "%d", &uses) != 1)
- continue;
-
- dependencies = strtok (NULL, " ");
- if (dependencies == NULL)
- continue;
-
- status = strtok (NULL, " ");
- if (status == NULL)
- continue;
-
- tmp = strtok (NULL, "\n");
- if (tmp == NULL)
- continue;
- if (sscanf (tmp, "%llx", &address) != 1)
- continue;
-
- buffer_xml_printf (
- &buffer,
- "<item>"
- "<column name=\"name\">%s</column>"
- "<column name=\"size\">%u</column>"
- "<column name=\"num uses\">%d</column>"
- "<column name=\"dependencies\">%s</column>"
- "<column name=\"status\">%s</column>"
- "<column name=\"address\">%llx</column>"
- "</item>",
- name,
- size,
- uses,
- dependencies,
- status,
- address);
- }
- }
- while (!feof (fp));
-
- fclose (fp);
- }
-
- buffer_grow_str0 (&buffer, "</osdata>\n");
- buf = buffer_finish (&buffer);
- len_avail = strlen (buf);
- }
-
- if (offset >= len_avail)
- {
- /* Done. Get rid of the buffer. */
- buffer_free (&buffer);
- buf = NULL;
- len_avail = 0;
- return 0;
- }
-
- if (len > len_avail - offset)
- len = len_avail - offset;
- memcpy (readbuf, buf + offset, len);
-
- return len;
-}
-
-struct osdata_type {
- char *type;
- char *title;
- char *description;
- LONGEST (*getter) (gdb_byte *readbuf, ULONGEST offset, ULONGEST len);
-} osdata_table[] = {
- { "processes", "Processes", "Listing of all processes",
- linux_xfer_osdata_processes },
- { "procgroups", "Process groups", "Listing of all process groups",
- linux_xfer_osdata_processgroups },
- { "threads", "Threads", "Listing of all threads",
- linux_xfer_osdata_threads },
- { "files", "File descriptors", "Listing of all file descriptors",
- linux_xfer_osdata_fds },
- { "sockets", "Sockets", "Listing of all internet-domain sockets",
- linux_xfer_osdata_isockets },
- { "shm", "Shared-memory regions", "Listing of all shared-memory regions",
- linux_xfer_osdata_shm },
- { "semaphores", "Semaphores", "Listing of all semaphores",
- linux_xfer_osdata_sem },
- { "msg", "Message queues", "Listing of all message queues",
- linux_xfer_osdata_msg },
- { "modules", "Kernel modules", "Listing of all loaded kernel modules",
- linux_xfer_osdata_modules },
- { NULL, NULL, NULL }
-};
-
-LONGEST
-linux_common_xfer_osdata (const char *annex, gdb_byte *readbuf,
- ULONGEST offset, ULONGEST len)
-{
- if (!annex || *annex == '\0')
- {
- static const char *buf;
- static LONGEST len_avail = -1;
- static struct buffer buffer;
-
- if (offset == 0)
- {
- int i;
-
- if (len_avail != -1 && len_avail != 0)
- buffer_free (&buffer);
- len_avail = 0;
- buf = NULL;
- buffer_init (&buffer);
- buffer_grow_str (&buffer, "<osdata type=\"types\">\n");
-
- for (i = 0; osdata_table[i].type; ++i)
- buffer_xml_printf (
- &buffer,
- "<item>"
- "<column name=\"Type\">%s</column>"
- "<column name=\"Description\">%s</column>"
- "<column name=\"Title\">%s</column>"
- "</item>",
- osdata_table[i].type,
- osdata_table[i].description,
- osdata_table[i].title);
-
- buffer_grow_str0 (&buffer, "</osdata>\n");
- buf = buffer_finish (&buffer);
- len_avail = strlen (buf);
- }
-
- if (offset >= len_avail)
- {
- /* Done. Get rid of the buffer. */
- buffer_free (&buffer);
- buf = NULL;
- len_avail = 0;
- return 0;
- }
-
- if (len > len_avail - offset)
- len = len_avail - offset;
- memcpy (readbuf, buf + offset, len);
-
- return len;
- }
- else
- {
- int i;
-
- for (i = 0; osdata_table[i].type; ++i)
- {
- if (strcmp (annex, osdata_table[i].type) == 0)
- {
- gdb_assert (readbuf);
-
- return (osdata_table[i].getter) (readbuf, offset, len);
- }
- }
-
- return 0;
- }
-}
-