psinfo.d revision 333617 
1/*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License, Version 1.0 only
6 * (the "License").  You may not use this file except in compliance
7 * with the License.
8 *
9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10 * or http://www.opensolaris.org/os/licensing.
11 * See the License for the specific language governing permissions
12 * and limitations under the License.
13 *
14 * When distributing Covered Code, include this CDDL HEADER in each
15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16 * If applicable, add the following below this CDDL HEADER, with the
17 * fields enclosed by brackets "[]" replaced with your own identifying
18 * information: Portions Copyright [yyyy] [name of copyright owner]
19 *
20 * CDDL HEADER END
21 *
22 * Portions Copyright 2006 John Birrell jb@freebsd.org
23 *
24 * $FreeBSD: stable/11/cddl/lib/libdtrace/psinfo.d 333617 2018-05-15 00:00:44Z dteske $
25 */
26/*
27 * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
28 * Use is subject to license terms.
29 */
30
31#pragma D depends_on module kernel
32
33typedef struct psinfo {
34	int	pr_nlwp;	/* number of threads */
35	pid_t	pr_pid;		/* unique process id */
36	pid_t	pr_ppid;	/* process id of parent */
37	pid_t	pr_pgid;	/* pid of process group leader */
38	pid_t	pr_sid;		/* session id */
39	uid_t	pr_uid;		/* real user id */
40	uid_t	pr_euid;	/* effective user id */
41	gid_t	pr_gid;		/* real group id */
42	gid_t	pr_egid;	/* effective group id */
43	uintptr_t
44		pr_addr;	/* address of process */
45	string	pr_psargs;	/* process arguments */
46	u_int	pr_arglen;	/* process argument length */
47	u_int	pr_jailid;	/* jail id */
48} psinfo_t;
49
50#pragma D binding "1.0" translator
51translator psinfo_t < struct proc *T > {
52	pr_nlwp = T->p_numthreads;
53	pr_pid = T->p_pid;
54	pr_ppid = (T->p_pptr == 0) ? 0 : T->p_pptr->p_pid;
55	pr_pgid = (T->p_leader == 0) ? 0 : T->p_leader->p_pid;
56	pr_sid = (T->p_pgrp == 0) ? 0 : ((T->p_pgrp->pg_session == 0) ? 0 : T->p_pgrp->pg_session->s_sid);
57	pr_uid = T->p_ucred->cr_ruid;
58	pr_euid = T->p_ucred->cr_uid;
59	pr_gid = T->p_ucred->cr_rgid;
60	pr_egid = T->p_ucred->cr_groups[0];
61	pr_addr = 0;
62	pr_psargs = (T->p_args == 0) ? "" :
63	    memstr(T->p_args->ar_args, ' ', T->p_args->ar_length);
64	pr_arglen = T->p_args->ar_length;
65	pr_jailid = T->p_ucred->cr_prison->pr_id;
66};
67
68typedef struct lwpsinfo {
69	id_t	pr_lwpid;	/* thread ID. */
70	int	pr_flag;	/* thread flags. */
71	int	pr_pri;		/* thread priority. */
72	char	pr_state;	/* numeric lwp state */
73	char	pr_sname;	/* printable character for pr_state */
74	short	pr_syscall;	/* system call number (if in syscall) */
75	uintptr_t
76		pr_addr;	/* internal address of lwp */
77	uintptr_t
78		pr_wchan;	/* sleep address */
79} lwpsinfo_t;
80
81#pragma D binding "1.0" translator
82translator lwpsinfo_t < struct thread *T > {
83	pr_lwpid = T->td_tid;
84	pr_pri = T->td_priority;
85	pr_flag = T->td_flags;
86	pr_state = 0; /* XXX */
87	pr_sname = '?'; /* XXX */
88	pr_syscall = 0; /* XXX */
89	pr_addr = (uintptr_t)T;
90	pr_wchan = (uintptr_t)T->td_wchan;
91};
92
93inline psinfo_t *curpsinfo = xlate <psinfo_t *> (curthread->td_proc);
94#pragma D attributes Stable/Stable/Common curpsinfo
95#pragma D binding "1.0" curpsinfo
96
97inline lwpsinfo_t *curlwpsinfo = xlate <lwpsinfo_t *> (curthread);
98#pragma D attributes Stable/Stable/Common curlwpsinfo
99#pragma D binding "1.0" curlwpsinfo
100