summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>1996-03-01 23:54:35 +0000
committerMiles Bader <miles@gnu.org>1996-03-01 23:54:35 +0000
commita3c9e9798edab3e0331d3f3728a92ed67ddab4e0 (patch)
tree5b802d1b11da8e5b4f0f217981cb256d411a5e0d
parentc190f7a6e4c3e61a459154ebbaa70d27d47b03cd (diff)
Initial revision
-rw-r--r--utils/portinfo.c265
1 files changed, 265 insertions, 0 deletions
diff --git a/utils/portinfo.c b/utils/portinfo.c
new file mode 100644
index 00000000..40cdb3f3
--- /dev/null
+++ b/utils/portinfo.c
@@ -0,0 +1,265 @@
+/* Print information about a task's ports
+
+ Copyright (C) 1996 Free Software Foundation, Inc.
+
+ Written by Miles Bader <miles@gnu.ai.mit.edu>
+
+ 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 2, 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, write to the Free Software
+ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
+
+#include <stdio.h>
+#include <stddef.h>
+#include <argp.h>
+#include <error.h>
+#include <string.h>
+#include <unistd.h>
+#include <stdlib.h>
+
+#include <mach.h>
+
+#include <hurd.h>
+#include <hurd/process.h>
+
+static const struct argp_option options[] = {
+ {0,0,0,0,0, 1},
+ {"verbose", 'v', 0, 0, "Give more detailed information"},
+ {"members", 'm', 0, 0, "Show members of port-sets"},
+ {"hex-names", 'x', 0, 0, "Show port names in hexadecimal"},
+
+ {0,0,0,0, "Selecting which names to show:", 2},
+ {"receive", 'r', 0, 0, "Show ports with receive rights"},
+ {"send", 's', 0, 0, "Show ports with send rights"},
+ {"send-once", 'o', 0, 0, "Show ports with send once rights"},
+ {"dead-names",'d', 0, 0, "Show ports with dead name rights"},
+ {"port-sets", 'p', 0, 0, "Show port sets"},
+
+ {0}
+};
+static const char *args_doc = "PID [NAME...]";
+static const char *doc =
+"If no port NAMEs are given, all ports in process PID are reported. NAMEs"
+" may be specified in hexadecimal or octal by using a 0x or 0 prefix.";
+
+#define SHOW_DETAILS 0x1
+#define SHOW_MEMBERS 0x4
+#define SHOW_HEX_NAMES 0x8
+
+/* Prints info in SHOW about NAME in TASK to stdout. If TYPE is non-zero, it
+ should be what mach_port_type returns for NAME. */
+static error_t
+port_info (mach_port_t name, mach_port_type_t type, task_t task, unsigned show)
+{
+ int hex_names = (show & SHOW_HEX_NAMES);
+ int first = 1;
+ void comma ()
+ {
+ if (first)
+ first = 0;
+ else
+ printf (", ");
+ }
+ void prefs (mach_port_right_t right)
+ {
+ mach_port_urefs_t refs;
+ error_t err = mach_port_get_refs (task, name, right, &refs);
+ if (! err)
+ printf (" (refs: %u)", refs);
+ }
+
+ if (type == 0)
+ {
+ error_t err = mach_port_type (task, name, &type);
+ if (err)
+ return err;
+ }
+
+ printf (hex_names ? "%#6x: " : "%6d: ", name);
+
+ if (type & MACH_PORT_TYPE_RECEIVE)
+ {
+ comma ();
+ printf ("receive");
+ if (show & SHOW_DETAILS)
+ {
+ struct mach_port_status status;
+ error_t err = mach_port_get_receive_status (task, name, &status);
+ if (! err)
+ {
+ printf (" (");
+ if (status.mps_pset != MACH_PORT_NULL)
+ printf (hex_names ? "port-set: %#x, " : "port-set: %d, ",
+ status.mps_pset);
+ printf ("seqno: %u", status.mps_seqno);
+ if (status.mps_mscount)
+ printf (", ms-count: %u", status.mps_mscount);
+ if (status.mps_qlimit != MACH_PORT_QLIMIT_DEFAULT)
+ printf (", qlimit: %u", status.mps_qlimit);
+ if (status.mps_msgcount)
+ printf (", msgs: %u", status.mps_msgcount);
+ printf ("%s%s%s)",
+ status.mps_srights ? ", send-rights" : "",
+ status.mps_pdrequest ? ", pd-req" : "",
+ status.mps_nsrequest ? ", ns-req" : "");
+ }
+ }
+ }
+ if (type & MACH_PORT_TYPE_SEND)
+ {
+ comma ();
+ printf ("send");
+ if (show & SHOW_DETAILS)
+ prefs (MACH_PORT_RIGHT_SEND);
+ }
+ if (type & MACH_PORT_TYPE_SEND_ONCE)
+ {
+ comma ();
+ printf ("send-once");
+ }
+ if (type & MACH_PORT_TYPE_DEAD_NAME)
+ {
+ comma ();
+ printf ("dead-name");
+ if (show & SHOW_DETAILS)
+ prefs (MACH_PORT_RIGHT_DEAD_NAME);
+ }
+ if (type & MACH_PORT_TYPE_PORT_SET)
+ {
+ comma ();
+ printf ("port-set");
+ if (show & SHOW_DETAILS)
+ {
+ mach_port_t *members = 0;
+ mach_msg_type_number_t members_len = 0, i;
+ error_t err =
+ mach_port_get_set_status (task, name, &members, &members_len);
+ if (! err)
+ if (members_len == 0)
+ printf (" (empty)");
+ else
+ {
+ printf (hex_names ? " (%#x" : " (%u", members[0]);
+ for (i = 1; i < members_len; i++)
+ printf (hex_names ? ", %#x" : ", %u", members[i]);
+ printf (")");
+ vm_deallocate (mach_task_self (), (vm_address_t)members,
+ members_len * sizeof *members);
+ }
+ }
+ }
+ putchar ('\n');
+
+ return 0;
+}
+
+/* Prints info about every port in TASK with TYPES to stdout. */
+static error_t
+ports_info (task_t task, mach_port_type_t only, unsigned show)
+{
+ mach_port_t *names = 0;
+ mach_port_type_t *types = 0;
+ mach_msg_type_number_t names_len = 0, types_len = 0, i;
+ error_t err = mach_port_names (task, &names, &names_len, &types, &types_len);
+
+ if (err)
+ return err;
+
+ for (i = 0; i < names_len; i++)
+ if (types[i] & only)
+ port_info (names[i], types[i], task, show);
+
+ vm_deallocate (mach_task_self (),
+ (vm_address_t)names, names_len * sizeof *names);
+ vm_deallocate (mach_task_self (),
+ (vm_address_t)types, types_len * sizeof *types);
+
+ return 0;
+}
+
+int
+main (int argc, char **argv)
+{
+ error_t err;
+ task_t task;
+ unsigned show = 0; /* what info we print */
+ mach_port_type_t only = 0; /* Which names to show */
+
+ /* Parse our options... */
+ error_t parse_opt (int key, char *arg, struct argp_state *state)
+ {
+ switch (key)
+ {
+ case 'v': show |= SHOW_DETAILS; break;
+ case 'm': show |= SHOW_MEMBERS; break;
+ case 'x': show |= SHOW_HEX_NAMES; break;
+
+ case 'r': only |= MACH_PORT_TYPE_RECEIVE; break;
+ case 's': only |= MACH_PORT_TYPE_SEND; break;
+ case 'o': only |= MACH_PORT_TYPE_SEND_ONCE; break;
+ case 'd': only |= MACH_PORT_TYPE_DEAD_NAME; break;
+ case 'p': only |= MACH_PORT_TYPE_PORT_SET; break;
+
+ case ARGP_KEY_NO_ARGS:
+ argp_error (state->argp, "No process specified");
+
+ case ARGP_KEY_ARG:
+ if (state->arg_num == 0)
+ /* The task */
+ {
+ pid_t pid = atoi (arg);
+ if (! pid)
+ error (10, 0, "%s: Invalid PID", arg);
+
+ err = proc_pid2task (getproc (), pid, &task);
+ if (err)
+ error (11, err, "%s", arg);
+
+ if (only == 0)
+ only = ~0;
+
+ if (state->next == state->argc)
+ /* No port names specified, print all of them. */
+ {
+ err = ports_info (task, only, show);
+ if (err)
+ error (12, err, "%s", arg);
+ }
+ break;
+ }
+
+ /* A port name */
+ {
+ char *end;
+ unsigned long name = strtoul (arg, &end, 0);
+ if (name == 0)
+ error (0, 0, "%s: Invalid port name", arg);
+ else
+ {
+ err = port_info (name, 0, task, show);
+ if (err)
+ error (0, err, "%s", arg);
+ }
+ }
+ break;
+
+ default: return EINVAL;
+ }
+ return 0;
+ }
+ const struct argp argp = { options, parse_opt, args_doc, doc };
+
+ /* Parse our arguments. */
+ argp_parse (&argp, argc, argv, 0, 0);
+
+ exit (0);
+}