cddl/lib/libdtrace/psinfo.d

   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$
  25  */
  26 /*
  27  * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
  28  * Use is subject to license terms.
  29  */
  30
  31 typedef struct psinfo {
  32         int     pr_nlwp;        /* number of threads */
  33         pid_t   pr_pid;         /* unique process id */
  34         pid_t   pr_ppid;        /* process id of parent */
  35         pid_t   pr_pgid;        /* pid of process group leader */
  36         pid_t   pr_sid;         /* session id */
  37         uid_t   pr_uid;         /* real user id */
  38         uid_t   pr_euid;        /* effective user id */
  39         gid_t   pr_gid;         /* real group id */
  40         gid_t   pr_egid;        /* effective group id */
  41         uintptr_t
  42                 pr_addr;        /* address of process */
  43         string  pr_psargs;      /* process arguments */
  44         u_int   pr_arglen;      /* process argument length */
  45 } psinfo_t;
  46
  47 #pragma D binding "1.0" translator
  48 translator psinfo_t < struct proc *T > {
  49         pr_nlwp = T->p_numthreads;
  50         pr_pid = T->p_pid;
  51         pr_ppid = (T->p_pptr == 0) ? 0 : T->p_pptr->p_pid;
  52         pr_pgid = (T->p_leader == 0) ? 0 : T->p_leader->p_pid;
  53         pr_sid = (T->p_pgrp == 0) ? 0 : ((T->p_pgrp->pg_session == 0) ? 0 : T->p_pgrp->pg_session->s_sid);
  54         pr_uid = T->p_ucred->cr_ruid;
  55         pr_euid = T->p_ucred->cr_uid;
  56         pr_gid = T->p_ucred->cr_rgid;
  57         pr_egid = T->p_ucred->cr_groups[0];
  58         pr_addr = 0;
  59         pr_psargs = stringof(T->p_args->ar_args);
  60         pr_arglen = T->p_args->ar_length;
  61 };
  62
  63 typedef struct lwpsinfo {
  64         id_t    pr_lwpid;       /* thread ID. */
  65         int     pr_flag;        /* thread flags. */
  66         int     pr_pri;         /* thread priority. */
  67         char    pr_state;       /* numeric lwp state */
  68         char    pr_sname;       /* printable character for pr_state */
  69         short   pr_syscall;     /* system call number (if in syscall) */
  70         uintptr_t
  71                 pr_addr;        /* internal address of lwp */
  72         uintptr_t
  73                 pr_wchan;       /* sleep address */
  74 } lwpsinfo_t;
  75
  76 #pragma D binding "1.0" translator
  77 translator lwpsinfo_t < struct thread *T > {
  78         pr_lwpid = T->td_tid;
  79         pr_pri = T->td_priority;
  80         pr_flag = T->td_flags;
  81         pr_state = 0; /* XXX */
  82         pr_sname = '?'; /* XXX */
  83         pr_syscall = 0; /* XXX */
  84         pr_addr = (uintptr_t)T;
  85         pr_wchan = (uintptr_t)T->td_wchan;
  86 };
  87
  88 inline psinfo_t *curpsinfo = xlate <psinfo_t *> (curthread->td_proc);
  89 #pragma D attributes Stable/Stable/Common curpsinfo
  90 #pragma D binding "1.0" curpsinfo
  91
  92 inline lwpsinfo_t *curlwpsinfo = xlate <lwpsinfo_t *> (curthread);
  93 #pragma D attributes Stable/Stable/Common curlwpsinfo
  94 #pragma D binding "1.0" curlwpsinfo
  95