From a3c9e9798edab3e0331d3f3728a92ed67ddab4e0 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Fri, 1 Mar 1996 23:54:35 +0000 Subject: Initial revision --- utils/portinfo.c | 265 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 265 insertions(+) create mode 100644 utils/portinfo.c 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 + + 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 +#include +#include +#include +#include +#include +#include + +#include + +#include +#include + +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); +} -- cgit v1.2.3