lib/libprocstat/libprocstat.c

   1 /*-
   2  * Copyright (c) 2009 Stanislav Sedov <stas@FreeBSD.org>
   3  * Copyright (c) 1988, 1993
   4  *      The Regents of the University of California.  All rights reserved.
   5  *
   6  * Redistribution and use in source and binary forms, with or without
   7  * modification, are permitted provided that the following conditions
   8  * are met:
   9  * 1. Redistributions of source code must retain the above copyright
  10  *    notice, this list of conditions and the following disclaimer.
  11  * 2. Redistributions in binary form must reproduce the above copyright
  12  *    notice, this list of conditions and the following disclaimer in the
  13  *    documentation and/or other materials provided with the distribution.
  14  * 3. All advertising materials mentioning features or use of this software
  15  *    must display the following acknowledgement:
  16  *      This product includes software developed by the University of
  17  *      California, Berkeley and its contributors.
  18  * 4. Neither the name of the University nor the names of its contributors
  19  *    may be used to endorse or promote products derived from this software
  20  *    without specific prior written permission.
  21  *
  22  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  23  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  24  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  25  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  26  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  27  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  28  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  29  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  30  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  31  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  32  * SUCH DAMAGE.
  33  */
  34
  35 #include <sys/cdefs.h>
  36 __FBSDID("$FreeBSD$");
  37
  38 #include <sys/param.h>
  39 #include <sys/elf.h>
  40 #include <sys/time.h>
  41 #include <sys/resourcevar.h>
  42 #define _WANT_UCRED
  43 #include <sys/ucred.h>
  44 #undef _WANT_UCRED
  45 #include <sys/proc.h>
  46 #include <sys/user.h>
  47 #include <sys/stat.h>
  48 #include <sys/vnode.h>
  49 #include <sys/socket.h>
  50 #include <sys/socketvar.h>
  51 #include <sys/domain.h>
  52 #include <sys/protosw.h>
  53 #include <sys/un.h>
  54 #include <sys/unpcb.h>
  55 #include <sys/sysctl.h>
  56 #include <sys/tty.h>
  57 #include <sys/filedesc.h>
  58 #include <sys/queue.h>
  59 #define _WANT_FILE
  60 #include <sys/file.h>
  61 #include <sys/conf.h>
  62 #include <sys/ksem.h>
  63 #include <sys/mman.h>
  64 #include <sys/capsicum.h>
  65 #define _KERNEL
  66 #include <sys/mount.h>
  67 #include <sys/pipe.h>
  68 #include <ufs/ufs/quota.h>
  69 #include <ufs/ufs/inode.h>
  70 #include <fs/devfs/devfs.h>
  71 #include <fs/devfs/devfs_int.h>
  72 #undef _KERNEL
  73 #include <nfs/nfsproto.h>
  74 #include <nfsclient/nfs.h>
  75 #include <nfsclient/nfsnode.h>
  76
  77 #include <vm/vm.h>
  78 #include <vm/vm_map.h>
  79 #include <vm/vm_object.h>
  80
  81 #include <net/route.h>
  82 #include <netinet/in.h>
  83 #include <netinet/in_systm.h>
  84 #include <netinet/ip.h>
  85 #define _WANT_INPCB
  86 #include <netinet/in_pcb.h>
  87
  88 #include <assert.h>
  89 #include <ctype.h>
  90 #include <err.h>
  91 #include <fcntl.h>
  92 #include <kvm.h>
  93 #include <libutil.h>
  94 #include <limits.h>
  95 #include <paths.h>
  96 #include <pwd.h>
  97 #include <stdio.h>
  98 #include <stdlib.h>
  99 #include <stddef.h>
 100 #include <string.h>
 101 #include <unistd.h>
 102 #include <netdb.h>
 103
 104 #include <libprocstat.h>
 105 #include "libprocstat_internal.h"
 106 #include "common_kvm.h"
 107 #include "core.h"
 108
 109 int     statfs(const char *, struct statfs *);  /* XXX */
 110
 111 #define PROCSTAT_KVM    1
 112 #define PROCSTAT_SYSCTL 2
 113 #define PROCSTAT_CORE   3
 114
 115 static char     **getargv(struct procstat *procstat, struct kinfo_proc *kp,
 116     size_t nchr, int env);
 117 static char     *getmnton(kvm_t *kd, struct mount *m);
 118 static struct kinfo_vmentry *   kinfo_getvmmap_core(struct procstat_core *core,
 119     int *cntp);
 120 static Elf_Auxinfo      *procstat_getauxv_core(struct procstat_core *core,
 121     unsigned int *cntp);
 122 static Elf_Auxinfo      *procstat_getauxv_sysctl(pid_t pid, unsigned int *cntp);
 123 static struct filestat_list     *procstat_getfiles_kvm(
 124     struct procstat *procstat, struct kinfo_proc *kp, int mmapped);
 125 static struct filestat_list     *procstat_getfiles_sysctl(
 126     struct procstat *procstat, struct kinfo_proc *kp, int mmapped);
 127 static int      procstat_get_pipe_info_sysctl(struct filestat *fst,
 128     struct pipestat *pipe, char *errbuf);
 129 static int      procstat_get_pipe_info_kvm(kvm_t *kd, struct filestat *fst,
 130     struct pipestat *pipe, char *errbuf);
 131 static int      procstat_get_pts_info_sysctl(struct filestat *fst,
 132     struct ptsstat *pts, char *errbuf);
 133 static int      procstat_get_pts_info_kvm(kvm_t *kd, struct filestat *fst,
 134     struct ptsstat *pts, char *errbuf);
 135 static int      procstat_get_sem_info_sysctl(struct filestat *fst,
 136     struct semstat *sem, char *errbuf);
 137 static int      procstat_get_sem_info_kvm(kvm_t *kd, struct filestat *fst,
 138     struct semstat *sem, char *errbuf);
 139 static int      procstat_get_shm_info_sysctl(struct filestat *fst,
 140     struct shmstat *shm, char *errbuf);
 141 static int      procstat_get_shm_info_kvm(kvm_t *kd, struct filestat *fst,
 142     struct shmstat *shm, char *errbuf);
 143 static int      procstat_get_socket_info_sysctl(struct filestat *fst,
 144     struct sockstat *sock, char *errbuf);
 145 static int      procstat_get_socket_info_kvm(kvm_t *kd, struct filestat *fst,
 146     struct sockstat *sock, char *errbuf);
 147 static int      to_filestat_flags(int flags);
 148 static int      procstat_get_vnode_info_kvm(kvm_t *kd, struct filestat *fst,
 149     struct vnstat *vn, char *errbuf);
 150 static int      procstat_get_vnode_info_sysctl(struct filestat *fst,
 151     struct vnstat *vn, char *errbuf);
 152 static gid_t    *procstat_getgroups_core(struct procstat_core *core,
 153     unsigned int *count);
 154 static gid_t *  procstat_getgroups_kvm(kvm_t *kd, struct kinfo_proc *kp,
 155     unsigned int *count);
 156 static gid_t    *procstat_getgroups_sysctl(pid_t pid, unsigned int *count);
 157 static struct kinfo_kstack      *procstat_getkstack_sysctl(pid_t pid,
 158     int *cntp);
 159 static int      procstat_getosrel_core(struct procstat_core *core,
 160     int *osrelp);
 161 static int      procstat_getosrel_kvm(kvm_t *kd, struct kinfo_proc *kp,
 162     int *osrelp);
 163 static int      procstat_getosrel_sysctl(pid_t pid, int *osrelp);
 164 static int      procstat_getpathname_core(struct procstat_core *core,
 165     char *pathname, size_t maxlen);
 166 static int      procstat_getpathname_sysctl(pid_t pid, char *pathname,
 167     size_t maxlen);
 168 static int      procstat_getrlimit_core(struct procstat_core *core, int which,
 169     struct rlimit* rlimit);
 170 static int      procstat_getrlimit_kvm(kvm_t *kd, struct kinfo_proc *kp,
 171     int which, struct rlimit* rlimit);
 172 static int      procstat_getrlimit_sysctl(pid_t pid, int which,
 173     struct rlimit* rlimit);
 174 static int      procstat_getumask_core(struct procstat_core *core,
 175     unsigned short *maskp);
 176 static int      procstat_getumask_kvm(kvm_t *kd, struct kinfo_proc *kp,
 177     unsigned short *maskp);
 178 static int      procstat_getumask_sysctl(pid_t pid, unsigned short *maskp);
 179 static int      vntype2psfsttype(int type);
 180
 181 void
 182 procstat_close(struct procstat *procstat)
 183 {
 184
 185         assert(procstat);
 186         if (procstat->type == PROCSTAT_KVM)
 187                 kvm_close(procstat->kd);
 188         else if (procstat->type == PROCSTAT_CORE)
 189                 procstat_core_close(procstat->core);
 190         procstat_freeargv(procstat);
 191         procstat_freeenvv(procstat);
 192         free(procstat);
 193 }
 194
 195 struct procstat *
 196 procstat_open_sysctl(void)
 197 {
 198         struct procstat *procstat;
 199
 200         procstat = calloc(1, sizeof(*procstat));
 201         if (procstat == NULL) {
 202                 warn("malloc()");
 203                 return (NULL);
 204         }
 205         procstat->type = PROCSTAT_SYSCTL;
 206         return (procstat);
 207 }
 208
 209 struct procstat *
 210 procstat_open_kvm(const char *nlistf, const char *memf)
 211 {
 212         struct procstat *procstat;
 213         kvm_t *kd;
 214         char buf[_POSIX2_LINE_MAX];
 215
 216         procstat = calloc(1, sizeof(*procstat));
 217         if (procstat == NULL) {
 218                 warn("malloc()");
 219                 return (NULL);
 220         }
 221         kd = kvm_openfiles(nlistf, memf, NULL, O_RDONLY, buf);
 222         if (kd == NULL) {
 223                 warnx("kvm_openfiles(): %s", buf);
 224                 free(procstat);
 225                 return (NULL);
 226         }
 227         procstat->type = PROCSTAT_KVM;
 228         procstat->kd = kd;
 229         return (procstat);
 230 }
 231
 232 struct procstat *
 233 procstat_open_core(const char *filename)
 234 {
 235         struct procstat *procstat;
 236         struct procstat_core *core;
 237
 238         procstat = calloc(1, sizeof(*procstat));
 239         if (procstat == NULL) {
 240                 warn("malloc()");
 241                 return (NULL);
 242         }
 243         core = procstat_core_open(filename);
 244         if (core == NULL) {
 245                 free(procstat);
 246                 return (NULL);
 247         }
 248         procstat->type = PROCSTAT_CORE;
 249         procstat->core = core;
 250         return (procstat);
 251 }
 252
 253 struct kinfo_proc *
 254 procstat_getprocs(struct procstat *procstat, int what, int arg,
 255     unsigned int *count)
 256 {
 257         struct kinfo_proc *p0, *p;
 258         size_t len, olen;
 259         int name[4];
 260         int cnt;
 261         int error;
 262
 263         assert(procstat);
 264         assert(count);
 265         p = NULL;
 266         if (procstat->type == PROCSTAT_KVM) {
 267                 *count = 0;
 268                 p0 = kvm_getprocs(procstat->kd, what, arg, &cnt);
 269                 if (p0 == NULL || cnt <= 0)
 270                         return (NULL);
 271                 *count = cnt;
 272                 len = *count * sizeof(*p);
 273                 p = malloc(len);
 274                 if (p == NULL) {
 275                         warnx("malloc(%zu)", len);
 276                         goto fail;
 277                 }
 278                 bcopy(p0, p, len);
 279                 return (p);
 280         } else if (procstat->type == PROCSTAT_SYSCTL) {
 281                 len = 0;
 282                 name[0] = CTL_KERN;
 283                 name[1] = KERN_PROC;
 284                 name[2] = what;
 285                 name[3] = arg;
 286                 error = sysctl(name, nitems(name), NULL, &len, NULL, 0);
 287                 if (error < 0 && errno != EPERM) {
 288                         warn("sysctl(kern.proc)");
 289                         goto fail;
 290                 }
 291                 if (len == 0) {
 292                         warnx("no processes?");
 293                         goto fail;
 294                 }
 295                 do {
 296                         len += len / 10;
 297                         p = reallocf(p, len);
 298                         if (p == NULL) {
 299                                 warnx("reallocf(%zu)", len);
 300                                 goto fail;
 301                         }
 302                         olen = len;
 303                         error = sysctl(name, nitems(name), p, &len, NULL, 0);
 304                 } while (error < 0 && errno == ENOMEM && olen == len);
 305                 if (error < 0 && errno != EPERM) {
 306                         warn("sysctl(kern.proc)");
 307                         goto fail;
 308                 }
 309                 /* Perform simple consistency checks. */
 310                 if ((len % sizeof(*p)) != 0 || p->ki_structsize != sizeof(*p)) {
 311                         warnx("kinfo_proc structure size mismatch (len = %zu)", len);
 312                         goto fail;
 313                 }
 314                 *count = len / sizeof(*p);
 315                 return (p);
 316         } else if (procstat->type == PROCSTAT_CORE) {
 317                 p = procstat_core_get(procstat->core, PSC_TYPE_PROC, NULL,
 318                     &len);
 319                 if ((len % sizeof(*p)) != 0 || p->ki_structsize != sizeof(*p)) {
 320                         warnx("kinfo_proc structure size mismatch");
 321                         goto fail;
 322                 }
 323                 *count = len / sizeof(*p);
 324                 return (p);
 325         } else {
 326                 warnx("unknown access method: %d", procstat->type);
 327                 return (NULL);
 328         }
 329 fail:
 330         if (p)
 331                 free(p);
 332         return (NULL);
 333 }
 334
 335 void
 336 procstat_freeprocs(struct procstat *procstat __unused, struct kinfo_proc *p)
 337 {
 338
 339         if (p != NULL)
 340                 free(p);
 341         p = NULL;
 342 }
 343
 344 struct filestat_list *
 345 procstat_getfiles(struct procstat *procstat, struct kinfo_proc *kp, int mmapped)
 346 {
 347
 348         switch(procstat->type) {
 349         case PROCSTAT_KVM:
 350                 return (procstat_getfiles_kvm(procstat, kp, mmapped));
 351         case PROCSTAT_SYSCTL:
 352         case PROCSTAT_CORE:
 353                 return (procstat_getfiles_sysctl(procstat, kp, mmapped));
 354         default:
 355                 warnx("unknown access method: %d", procstat->type);
 356                 return (NULL);
 357         }
 358 }
 359
 360 void
 361 procstat_freefiles(struct procstat *procstat, struct filestat_list *head)
 362 {
 363         struct filestat *fst, *tmp;
 364
 365         STAILQ_FOREACH_SAFE(fst, head, next, tmp) {
 366                 if (fst->fs_path != NULL)
 367                         free(fst->fs_path);
 368                 free(fst);
 369         }
 370         free(head);
 371         if (procstat->vmentries != NULL) {
 372                 free(procstat->vmentries);
 373                 procstat->vmentries = NULL;
 374         }
 375         if (procstat->files != NULL) {
 376                 free(procstat->files);
 377                 procstat->files = NULL;
 378         }
 379 }
 380
 381 static struct filestat *
 382 filestat_new_entry(void *typedep, int type, int fd, int fflags, int uflags,
 383     int refcount, off_t offset, char *path, cap_rights_t *cap_rightsp)
 384 {
 385         struct filestat *entry;
 386
 387         entry = calloc(1, sizeof(*entry));
 388         if (entry == NULL) {
 389                 warn("malloc()");
 390                 return (NULL);
 391         }
 392         entry->fs_typedep = typedep;
 393         entry->fs_fflags = fflags;
 394         entry->fs_uflags = uflags;
 395         entry->fs_fd = fd;
 396         entry->fs_type = type;
 397         entry->fs_ref_count = refcount;
 398         entry->fs_offset = offset;
 399         entry->fs_path = path;
 400         if (cap_rightsp != NULL)
 401                 entry->fs_cap_rights = *cap_rightsp;
 402         else
 403                 cap_rights_init(&entry->fs_cap_rights);
 404         return (entry);
 405 }
 406
 407 static struct vnode *
 408 getctty(kvm_t *kd, struct kinfo_proc *kp)
 409 {
 410         struct pgrp pgrp;
 411         struct proc proc;
 412         struct session sess;
 413         int error;
 414
 415         assert(kp);
 416         error = kvm_read_all(kd, (unsigned long)kp->ki_paddr, &proc,
 417             sizeof(proc));
 418         if (error == 0) {
 419                 warnx("can't read proc struct at %p for pid %d",
 420                     kp->ki_paddr, kp->ki_pid);
 421                 return (NULL);
 422         }
 423         if (proc.p_pgrp == NULL)
 424                 return (NULL);
 425         error = kvm_read_all(kd, (unsigned long)proc.p_pgrp, &pgrp,
 426             sizeof(pgrp));
 427         if (error == 0) {
 428                 warnx("can't read pgrp struct at %p for pid %d",
 429                     proc.p_pgrp, kp->ki_pid);
 430                 return (NULL);
 431         }
 432         error = kvm_read_all(kd, (unsigned long)pgrp.pg_session, &sess,
 433             sizeof(sess));
 434         if (error == 0) {
 435                 warnx("can't read session struct at %p for pid %d",
 436                     pgrp.pg_session, kp->ki_pid);
 437                 return (NULL);
 438         }
 439         return (sess.s_ttyvp);
 440 }
 441
 442 static struct filestat_list *
 443 procstat_getfiles_kvm(struct procstat *procstat, struct kinfo_proc *kp, int mmapped)
 444 {
 445         struct file file;
 446         struct filedesc filed;
 447         struct vm_map_entry vmentry;
 448         struct vm_object object;
 449         struct vmspace vmspace;
 450         vm_map_entry_t entryp;
 451         vm_map_t map;
 452         vm_object_t objp;
 453         struct vnode *vp;
 454         struct file **ofiles;
 455         struct filestat *entry;
 456         struct filestat_list *head;
 457         kvm_t *kd;
 458         void *data;
 459         int i, fflags;
 460         int prot, type;
 461         unsigned int nfiles;
 462
 463         assert(procstat);
 464         kd = procstat->kd;
 465         if (kd == NULL)
 466                 return (NULL);
 467         if (kp->ki_fd == NULL)
 468                 return (NULL);
 469         if (!kvm_read_all(kd, (unsigned long)kp->ki_fd, &filed,
 470             sizeof(filed))) {
 471                 warnx("can't read filedesc at %p", (void *)kp->ki_fd);
 472                 return (NULL);
 473         }
 474
 475         /*
 476          * Allocate list head.
 477          */
 478         head = malloc(sizeof(*head));
 479         if (head == NULL)
 480                 return (NULL);
 481         STAILQ_INIT(head);
 482
 483         /* root directory vnode, if one. */
 484         if (filed.fd_rdir) {
 485                 entry = filestat_new_entry(filed.fd_rdir, PS_FST_TYPE_VNODE, -1,
 486                     PS_FST_FFLAG_READ, PS_FST_UFLAG_RDIR, 0, 0, NULL, NULL);
 487                 if (entry != NULL)
 488                         STAILQ_INSERT_TAIL(head, entry, next);
 489         }
 490         /* current working directory vnode. */
 491         if (filed.fd_cdir) {
 492                 entry = filestat_new_entry(filed.fd_cdir, PS_FST_TYPE_VNODE, -1,
 493                     PS_FST_FFLAG_READ, PS_FST_UFLAG_CDIR, 0, 0, NULL, NULL);
 494                 if (entry != NULL)
 495                         STAILQ_INSERT_TAIL(head, entry, next);
 496         }
 497         /* jail root, if any. */
 498         if (filed.fd_jdir) {
 499                 entry = filestat_new_entry(filed.fd_jdir, PS_FST_TYPE_VNODE, -1,
 500                     PS_FST_FFLAG_READ, PS_FST_UFLAG_JAIL, 0, 0, NULL, NULL);
 501                 if (entry != NULL)
 502                         STAILQ_INSERT_TAIL(head, entry, next);
 503         }
 504         /* ktrace vnode, if one */
 505         if (kp->ki_tracep) {
 506                 entry = filestat_new_entry(kp->ki_tracep, PS_FST_TYPE_VNODE, -1,
 507                     PS_FST_FFLAG_READ | PS_FST_FFLAG_WRITE,
 508                     PS_FST_UFLAG_TRACE, 0, 0, NULL, NULL);
 509                 if (entry != NULL)
 510                         STAILQ_INSERT_TAIL(head, entry, next);
 511         }
 512         /* text vnode, if one */
 513         if (kp->ki_textvp) {
 514                 entry = filestat_new_entry(kp->ki_textvp, PS_FST_TYPE_VNODE, -1,
 515                     PS_FST_FFLAG_READ, PS_FST_UFLAG_TEXT, 0, 0, NULL, NULL);
 516                 if (entry != NULL)
 517                         STAILQ_INSERT_TAIL(head, entry, next);
 518         }
 519         /* Controlling terminal. */
 520         if ((vp = getctty(kd, kp)) != NULL) {
 521                 entry = filestat_new_entry(vp, PS_FST_TYPE_VNODE, -1,
 522                     PS_FST_FFLAG_READ | PS_FST_FFLAG_WRITE,
 523                     PS_FST_UFLAG_CTTY, 0, 0, NULL, NULL);
 524                 if (entry != NULL)
 525                         STAILQ_INSERT_TAIL(head, entry, next);
 526         }
 527
 528         nfiles = filed.fd_lastfile + 1;
 529         ofiles = malloc(nfiles * sizeof(struct file *));
 530         if (ofiles == NULL) {
 531                 warn("malloc(%zu)", nfiles * sizeof(struct file *));
 532                 goto do_mmapped;
 533         }
 534         if (!kvm_read_all(kd, (unsigned long)filed.fd_ofiles, ofiles,
 535             nfiles * sizeof(struct file *))) {
 536                 warnx("cannot read file structures at %p",
 537                     (void *)filed.fd_ofiles);
 538                 free(ofiles);
 539                 goto do_mmapped;
 540         }
 541         for (i = 0; i <= filed.fd_lastfile; i++) {
 542                 if (ofiles[i] == NULL)
 543                         continue;
 544                 if (!kvm_read_all(kd, (unsigned long)ofiles[i], &file,
 545                     sizeof(struct file))) {
 546                         warnx("can't read file %d at %p", i,
 547                             (void *)ofiles[i]);
 548                         continue;
 549                 }
 550                 switch (file.f_type) {
 551                 case DTYPE_VNODE:
 552                         type = PS_FST_TYPE_VNODE;
 553                         data = file.f_vnode;
 554                         break;
 555                 case DTYPE_SOCKET:
 556                         type = PS_FST_TYPE_SOCKET;
 557                         data = file.f_data;
 558                         break;
 559                 case DTYPE_PIPE:
 560                         type = PS_FST_TYPE_PIPE;
 561                         data = file.f_data;
 562                         break;
 563                 case DTYPE_FIFO:
 564                         type = PS_FST_TYPE_FIFO;
 565                         data = file.f_vnode;
 566                         break;
 567 #ifdef DTYPE_PTS
 568                 case DTYPE_PTS:
 569                         type = PS_FST_TYPE_PTS;
 570                         data = file.f_data;
 571                         break;
 572 #endif
 573                 case DTYPE_SEM:
 574                         type = PS_FST_TYPE_SEM;
 575                         data = file.f_data;
 576                         break;
 577                 case DTYPE_SHM:
 578                         type = PS_FST_TYPE_SHM;
 579                         data = file.f_data;
 580                         break;
 581                 default:
 582                         continue;
 583                 }
 584                 /* XXXRW: No capability rights support for kvm yet. */
 585                 entry = filestat_new_entry(data, type, i,
 586                     to_filestat_flags(file.f_flag), 0, 0, 0, NULL, NULL);
 587                 if (entry != NULL)
 588                         STAILQ_INSERT_TAIL(head, entry, next);
 589         }
 590         free(ofiles);
 591
 592 do_mmapped:
 593
 594         /*
 595          * Process mmapped files if requested.
 596          */
 597         if (mmapped) {
 598                 if (!kvm_read_all(kd, (unsigned long)kp->ki_vmspace, &vmspace,
 599                     sizeof(vmspace))) {
 600                         warnx("can't read vmspace at %p",
 601                             (void *)kp->ki_vmspace);
 602                         goto exit;
 603                 }
 604                 map = &vmspace.vm_map;
 605
 606                 for (entryp = map->header.next;
 607                     entryp != &kp->ki_vmspace->vm_map.header;
 608                     entryp = vmentry.next) {
 609                         if (!kvm_read_all(kd, (unsigned long)entryp, &vmentry,
 610                             sizeof(vmentry))) {
 611                                 warnx("can't read vm_map_entry at %p",
 612                                     (void *)entryp);
 613                                 continue;
 614                         }
 615                         if (vmentry.eflags & MAP_ENTRY_IS_SUB_MAP)
 616                                 continue;
 617                         if ((objp = vmentry.object.vm_object) == NULL)
 618                                 continue;
 619                         for (; objp; objp = object.backing_object) {
 620                                 if (!kvm_read_all(kd, (unsigned long)objp,
 621                                     &object, sizeof(object))) {
 622                                         warnx("can't read vm_object at %p",
 623                                             (void *)objp);
 624                                         break;
 625                                 }
 626                         }
 627
 628                         /* We want only vnode objects. */
 629                         if (object.type != OBJT_VNODE)
 630                                 continue;
 631
 632                         prot = vmentry.protection;
 633                         fflags = 0;
 634                         if (prot & VM_PROT_READ)
 635                                 fflags = PS_FST_FFLAG_READ;
 636                         if ((vmentry.eflags & MAP_ENTRY_COW) == 0 &&
 637                             prot & VM_PROT_WRITE)
 638                                 fflags |= PS_FST_FFLAG_WRITE;
 639
 640                         /*
 641                          * Create filestat entry.
 642                          */
 643                         entry = filestat_new_entry(object.handle,
 644                             PS_FST_TYPE_VNODE, -1, fflags,
 645                             PS_FST_UFLAG_MMAP, 0, 0, NULL, NULL);
 646                         if (entry != NULL)
 647                                 STAILQ_INSERT_TAIL(head, entry, next);
 648                 }
 649         }
 650 exit:
 651         return (head);
 652 }
 653
 654 /*
 655  * kinfo types to filestat translation.
 656  */
 657 static int
 658 kinfo_type2fst(int kftype)
 659 {
 660         static struct {
 661                 int     kf_type;
 662                 int     fst_type;
 663         } kftypes2fst[] = {
 664                 { KF_TYPE_CRYPTO, PS_FST_TYPE_CRYPTO },
 665                 { KF_TYPE_FIFO, PS_FST_TYPE_FIFO },
 666                 { KF_TYPE_KQUEUE, PS_FST_TYPE_KQUEUE },
 667                 { KF_TYPE_MQUEUE, PS_FST_TYPE_MQUEUE },
 668                 { KF_TYPE_NONE, PS_FST_TYPE_NONE },
 669                 { KF_TYPE_PIPE, PS_FST_TYPE_PIPE },
 670                 { KF_TYPE_PTS, PS_FST_TYPE_PTS },
 671                 { KF_TYPE_SEM, PS_FST_TYPE_SEM },
 672                 { KF_TYPE_SHM, PS_FST_TYPE_SHM },
 673                 { KF_TYPE_SOCKET, PS_FST_TYPE_SOCKET },
 674                 { KF_TYPE_VNODE, PS_FST_TYPE_VNODE },
 675                 { KF_TYPE_UNKNOWN, PS_FST_TYPE_UNKNOWN }
 676         };
 677 #define NKFTYPES        (sizeof(kftypes2fst) / sizeof(*kftypes2fst))
 678         unsigned int i;
 679
 680         for (i = 0; i < NKFTYPES; i++)
 681                 if (kftypes2fst[i].kf_type == kftype)
 682                         break;
 683         if (i == NKFTYPES)
 684                 return (PS_FST_TYPE_UNKNOWN);
 685         return (kftypes2fst[i].fst_type);
 686 }
 687
 688 /*
 689  * kinfo flags to filestat translation.
 690  */
 691 static int
 692 kinfo_fflags2fst(int kfflags)
 693 {
 694         static struct {
 695                 int     kf_flag;
 696                 int     fst_flag;
 697         } kfflags2fst[] = {
 698                 { KF_FLAG_APPEND, PS_FST_FFLAG_APPEND },
 699                 { KF_FLAG_ASYNC, PS_FST_FFLAG_ASYNC },
 700                 { KF_FLAG_CREAT, PS_FST_FFLAG_CREAT },
 701                 { KF_FLAG_DIRECT, PS_FST_FFLAG_DIRECT },
 702                 { KF_FLAG_EXCL, PS_FST_FFLAG_EXCL },
 703                 { KF_FLAG_EXEC, PS_FST_FFLAG_EXEC },
 704                 { KF_FLAG_EXLOCK, PS_FST_FFLAG_EXLOCK },
 705                 { KF_FLAG_FSYNC, PS_FST_FFLAG_SYNC },
 706                 { KF_FLAG_HASLOCK, PS_FST_FFLAG_HASLOCK },
 707                 { KF_FLAG_NOFOLLOW, PS_FST_FFLAG_NOFOLLOW },
 708                 { KF_FLAG_NONBLOCK, PS_FST_FFLAG_NONBLOCK },
 709                 { KF_FLAG_READ, PS_FST_FFLAG_READ },
 710                 { KF_FLAG_SHLOCK, PS_FST_FFLAG_SHLOCK },
 711                 { KF_FLAG_TRUNC, PS_FST_FFLAG_TRUNC },
 712                 { KF_FLAG_WRITE, PS_FST_FFLAG_WRITE }
 713         };
 714 #define NKFFLAGS        (sizeof(kfflags2fst) / sizeof(*kfflags2fst))
 715         unsigned int i;
 716         int flags;
 717
 718         flags = 0;
 719         for (i = 0; i < NKFFLAGS; i++)
 720                 if ((kfflags & kfflags2fst[i].kf_flag) != 0)
 721                         flags |= kfflags2fst[i].fst_flag;
 722         return (flags);
 723 }
 724
 725 static int
 726 kinfo_uflags2fst(int fd)
 727 {
 728
 729         switch (fd) {
 730         case KF_FD_TYPE_CTTY:
 731                 return (PS_FST_UFLAG_CTTY);
 732         case KF_FD_TYPE_CWD:
 733                 return (PS_FST_UFLAG_CDIR);
 734         case KF_FD_TYPE_JAIL:
 735                 return (PS_FST_UFLAG_JAIL);
 736         case KF_FD_TYPE_TEXT:
 737                 return (PS_FST_UFLAG_TEXT);
 738         case KF_FD_TYPE_TRACE:
 739                 return (PS_FST_UFLAG_TRACE);
 740         case KF_FD_TYPE_ROOT:
 741                 return (PS_FST_UFLAG_RDIR);
 742         }
 743         return (0);
 744 }
 745
 746 static struct kinfo_file *
 747 kinfo_getfile_core(struct procstat_core *core, int *cntp)
 748 {
 749         int cnt;
 750         size_t len;
 751         char *buf, *bp, *eb;
 752         struct kinfo_file *kif, *kp, *kf;
 753
 754         buf = procstat_core_get(core, PSC_TYPE_FILES, NULL, &len);
 755         if (buf == NULL)
 756                 return (NULL);
 757         /*
 758          * XXXMG: The code below is just copy&past from libutil.
 759          * The code duplication can be avoided if libutil
 760          * is extended to provide something like:
 761          *   struct kinfo_file *kinfo_getfile_from_buf(const char *buf,
 762          *       size_t len, int *cntp);
 763          */
 764
 765         /* Pass 1: count items */
 766         cnt = 0;
 767         bp = buf;
 768         eb = buf + len;
 769         while (bp < eb) {
 770                 kf = (struct kinfo_file *)(uintptr_t)bp;
 771                 if (kf->kf_structsize == 0)
 772                         break;
 773                 bp += kf->kf_structsize;
 774                 cnt++;
 775         }
 776
 777         kif = calloc(cnt, sizeof(*kif));
 778         if (kif == NULL) {
 779                 free(buf);
 780                 return (NULL);
 781         }
 782         bp = buf;
 783         eb = buf + len;
 784         kp = kif;
 785         /* Pass 2: unpack */
 786         while (bp < eb) {
 787                 kf = (struct kinfo_file *)(uintptr_t)bp;
 788                 if (kf->kf_structsize == 0)
 789                         break;
 790                 /* Copy/expand into pre-zeroed buffer */
 791                 memcpy(kp, kf, kf->kf_structsize);
 792                 /* Advance to next packed record */
 793                 bp += kf->kf_structsize;
 794                 /* Set field size to fixed length, advance */
 795                 kp->kf_structsize = sizeof(*kp);
 796                 kp++;
 797         }
 798         free(buf);
 799         *cntp = cnt;
 800         return (kif);   /* Caller must free() return value */
 801 }
 802
 803 static struct filestat_list *
 804 procstat_getfiles_sysctl(struct procstat *procstat, struct kinfo_proc *kp,
 805     int mmapped)
 806 {
 807         struct kinfo_file *kif, *files;
 808         struct kinfo_vmentry *kve, *vmentries;
 809         struct filestat_list *head;
 810         struct filestat *entry;
 811         char *path;
 812         off_t offset;
 813         int cnt, fd, fflags;
 814         int i, type, uflags;
 815         int refcount;
 816         cap_rights_t cap_rights;
 817
 818         assert(kp);
 819         if (kp->ki_fd == NULL)
 820                 return (NULL);
 821         switch(procstat->type) {
 822         case PROCSTAT_SYSCTL:
 823                 files = kinfo_getfile(kp->ki_pid, &cnt);
 824                 break;
 825         case PROCSTAT_CORE:
 826                 files = kinfo_getfile_core(procstat->core, &cnt);
 827                 break;
 828         default:
 829                 assert(!"invalid type");
 830         }
 831         if (files == NULL && errno != EPERM) {
 832                 warn("kinfo_getfile()");
 833                 return (NULL);
 834         }
 835         procstat->files = files;
 836
 837         /*
 838          * Allocate list head.
 839          */
 840         head = malloc(sizeof(*head));
 841         if (head == NULL)
 842                 return (NULL);
 843         STAILQ_INIT(head);
 844         for (i = 0; i < cnt; i++) {
 845                 kif = &files[i];
 846
 847                 type = kinfo_type2fst(kif->kf_type);
 848                 fd = kif->kf_fd >= 0 ? kif->kf_fd : -1;
 849                 fflags = kinfo_fflags2fst(kif->kf_flags);
 850                 uflags = kinfo_uflags2fst(kif->kf_fd);
 851                 refcount = kif->kf_ref_count;
 852                 offset = kif->kf_offset;
 853                 if (*kif->kf_path != '\0')
 854                         path = strdup(kif->kf_path);
 855                 else
 856                         path = NULL;
 857                 cap_rights = kif->kf_cap_rights;
 858
 859                 /*
 860                  * Create filestat entry.
 861                  */
 862                 entry = filestat_new_entry(kif, type, fd, fflags, uflags,
 863                     refcount, offset, path, &cap_rights);
 864                 if (entry != NULL)
 865                         STAILQ_INSERT_TAIL(head, entry, next);
 866         }
 867         if (mmapped != 0) {
 868                 vmentries = procstat_getvmmap(procstat, kp, &cnt);
 869                 procstat->vmentries = vmentries;
 870                 if (vmentries == NULL || cnt == 0)
 871                         goto fail;
 872                 for (i = 0; i < cnt; i++) {
 873                         kve = &vmentries[i];
 874                         if (kve->kve_type != KVME_TYPE_VNODE)
 875                                 continue;
 876                         fflags = 0;
 877                         if (kve->kve_protection & KVME_PROT_READ)
 878                                 fflags = PS_FST_FFLAG_READ;
 879                         if ((kve->kve_flags & KVME_FLAG_COW) == 0 &&
 880                             kve->kve_protection & KVME_PROT_WRITE)
 881                                 fflags |= PS_FST_FFLAG_WRITE;
 882                         offset = kve->kve_offset;
 883                         refcount = kve->kve_ref_count;
 884                         if (*kve->kve_path != '\0')
 885                                 path = strdup(kve->kve_path);
 886                         else
 887                                 path = NULL;
 888                         entry = filestat_new_entry(kve, PS_FST_TYPE_VNODE, -1,
 889                             fflags, PS_FST_UFLAG_MMAP, refcount, offset, path,
 890                             NULL);
 891                         if (entry != NULL)
 892                                 STAILQ_INSERT_TAIL(head, entry, next);
 893                 }
 894         }
 895 fail:
 896         return (head);
 897 }
 898
 899 int
 900 procstat_get_pipe_info(struct procstat *procstat, struct filestat *fst,
 901     struct pipestat *ps, char *errbuf)
 902 {
 903
 904         assert(ps);
 905         if (procstat->type == PROCSTAT_KVM) {
 906                 return (procstat_get_pipe_info_kvm(procstat->kd, fst, ps,
 907                     errbuf));
 908         } else if (procstat->type == PROCSTAT_SYSCTL ||
 909                 procstat->type == PROCSTAT_CORE) {
 910                 return (procstat_get_pipe_info_sysctl(fst, ps, errbuf));
 911         } else {
 912                 warnx("unknown access method: %d", procstat->type);
 913                 if (errbuf != NULL)
 914                         snprintf(errbuf, _POSIX2_LINE_MAX, "error");
 915                 return (1);
 916         }
 917 }
 918
 919 static int
 920 procstat_get_pipe_info_kvm(kvm_t *kd, struct filestat *fst,
 921     struct pipestat *ps, char *errbuf)
 922 {
 923         struct pipe pi;
 924         void *pipep;
 925
 926         assert(kd);
 927         assert(ps);
 928         assert(fst);
 929         bzero(ps, sizeof(*ps));
 930         pipep = fst->fs_typedep;
 931         if (pipep == NULL)
 932                 goto fail;
 933         if (!kvm_read_all(kd, (unsigned long)pipep, &pi, sizeof(struct pipe))) {
 934                 warnx("can't read pipe at %p", (void *)pipep);
 935                 goto fail;
 936         }
 937         ps->addr = (uintptr_t)pipep;
 938         ps->peer = (uintptr_t)pi.pipe_peer;
 939         ps->buffer_cnt = pi.pipe_buffer.cnt;
 940         return (0);
 941
 942 fail:
 943         if (errbuf != NULL)
 944                 snprintf(errbuf, _POSIX2_LINE_MAX, "error");
 945         return (1);
 946 }
 947
 948 static int
 949 procstat_get_pipe_info_sysctl(struct filestat *fst, struct pipestat *ps,
 950     char *errbuf __unused)
 951 {
 952         struct kinfo_file *kif;
 953
 954         assert(ps);
 955         assert(fst);
 956         bzero(ps, sizeof(*ps));
 957         kif = fst->fs_typedep;
 958         if (kif == NULL)
 959                 return (1);
 960         ps->addr = kif->kf_un.kf_pipe.kf_pipe_addr;
 961         ps->peer = kif->kf_un.kf_pipe.kf_pipe_peer;
 962         ps->buffer_cnt = kif->kf_un.kf_pipe.kf_pipe_buffer_cnt;
 963         return (0);
 964 }
 965
 966 int
 967 procstat_get_pts_info(struct procstat *procstat, struct filestat *fst,
 968     struct ptsstat *pts, char *errbuf)
 969 {
 970
 971         assert(pts);
 972         if (procstat->type == PROCSTAT_KVM) {
 973                 return (procstat_get_pts_info_kvm(procstat->kd, fst, pts,
 974                     errbuf));
 975         } else if (procstat->type == PROCSTAT_SYSCTL ||
 976                 procstat->type == PROCSTAT_CORE) {
 977                 return (procstat_get_pts_info_sysctl(fst, pts, errbuf));
 978         } else {
 979                 warnx("unknown access method: %d", procstat->type);
 980                 if (errbuf != NULL)
 981                         snprintf(errbuf, _POSIX2_LINE_MAX, "error");
 982                 return (1);
 983         }
 984 }
 985
 986 static int
 987 procstat_get_pts_info_kvm(kvm_t *kd, struct filestat *fst,
 988     struct ptsstat *pts, char *errbuf)
 989 {
 990         struct tty tty;
 991         void *ttyp;
 992
 993         assert(kd);
 994         assert(pts);
 995         assert(fst);
 996         bzero(pts, sizeof(*pts));
 997         ttyp = fst->fs_typedep;
 998         if (ttyp == NULL)
 999                 goto fail;
1000         if (!kvm_read_all(kd, (unsigned long)ttyp, &tty, sizeof(struct tty))) {
1001                 warnx("can't read tty at %p", (void *)ttyp);
1002                 goto fail;
1003         }
1004         pts->dev = dev2udev(kd, tty.t_dev);
1005         (void)kdevtoname(kd, tty.t_dev, pts->devname);
1006         return (0);
1007
1008 fail:
1009         if (errbuf != NULL)
1010                 snprintf(errbuf, _POSIX2_LINE_MAX, "error");
1011         return (1);
1012 }
1013
1014 static int
1015 procstat_get_pts_info_sysctl(struct filestat *fst, struct ptsstat *pts,
1016     char *errbuf __unused)
1017 {
1018         struct kinfo_file *kif;
1019
1020         assert(pts);
1021         assert(fst);
1022         bzero(pts, sizeof(*pts));
1023         kif = fst->fs_typedep;
1024         if (kif == NULL)
1025                 return (0);
1026         pts->dev = kif->kf_un.kf_pts.kf_pts_dev;
1027         strlcpy(pts->devname, kif->kf_path, sizeof(pts->devname));
1028         return (0);
1029 }
1030
1031 int
1032 procstat_get_sem_info(struct procstat *procstat, struct filestat *fst,
1033     struct semstat *sem, char *errbuf)
1034 {
1035
1036         assert(sem);
1037         if (procstat->type == PROCSTAT_KVM) {
1038                 return (procstat_get_sem_info_kvm(procstat->kd, fst, sem,
1039                     errbuf));
1040         } else if (procstat->type == PROCSTAT_SYSCTL ||
1041             procstat->type == PROCSTAT_CORE) {
1042                 return (procstat_get_sem_info_sysctl(fst, sem, errbuf));
1043         } else {
1044                 warnx("unknown access method: %d", procstat->type);
1045                 if (errbuf != NULL)
1046                         snprintf(errbuf, _POSIX2_LINE_MAX, "error");
1047                 return (1);
1048         }
1049 }
1050
1051 static int
1052 procstat_get_sem_info_kvm(kvm_t *kd, struct filestat *fst,
1053     struct semstat *sem, char *errbuf)
1054 {
1055         struct ksem ksem;
1056         void *ksemp;
1057         char *path;
1058         int i;
1059
1060         assert(kd);
1061         assert(sem);
1062         assert(fst);
1063         bzero(sem, sizeof(*sem));
1064         ksemp = fst->fs_typedep;
1065         if (ksemp == NULL)
1066                 goto fail;
1067         if (!kvm_read_all(kd, (unsigned long)ksemp, &ksem,
1068             sizeof(struct ksem))) {
1069                 warnx("can't read ksem at %p", (void *)ksemp);
1070                 goto fail;
1071         }
1072         sem->mode = S_IFREG | ksem.ks_mode;
1073         sem->value = ksem.ks_value;
1074         if (fst->fs_path == NULL && ksem.ks_path != NULL) {
1075                 path = malloc(MAXPATHLEN);
1076                 for (i = 0; i < MAXPATHLEN - 1; i++) {
1077                         if (!kvm_read_all(kd, (unsigned long)ksem.ks_path + i,
1078                             path + i, 1))
1079                                 break;
1080                         if (path[i] == '\0')
1081                                 break;
1082                 }
1083                 path[i] = '\0';
1084                 if (i == 0)
1085                         free(path);
1086                 else
1087                         fst->fs_path = path;
1088         }
1089         return (0);
1090
1091 fail:
1092         if (errbuf != NULL)
1093                 snprintf(errbuf, _POSIX2_LINE_MAX, "error");
1094         return (1);
1095 }
1096
1097 static int
1098 procstat_get_sem_info_sysctl(struct filestat *fst, struct semstat *sem,
1099     char *errbuf __unused)
1100 {
1101         struct kinfo_file *kif;
1102
1103         assert(sem);
1104         assert(fst);
1105         bzero(sem, sizeof(*sem));
1106         kif = fst->fs_typedep;
1107         if (kif == NULL)
1108                 return (0);
1109         sem->value = kif->kf_un.kf_sem.kf_sem_value;
1110         sem->mode = kif->kf_un.kf_sem.kf_sem_mode;
1111         return (0);
1112 }
1113
1114 int
1115 procstat_get_shm_info(struct procstat *procstat, struct filestat *fst,
1116     struct shmstat *shm, char *errbuf)
1117 {
1118
1119         assert(shm);
1120         if (procstat->type == PROCSTAT_KVM) {
1121                 return (procstat_get_shm_info_kvm(procstat->kd, fst, shm,
1122                     errbuf));
1123         } else if (procstat->type == PROCSTAT_SYSCTL ||
1124             procstat->type == PROCSTAT_CORE) {
1125                 return (procstat_get_shm_info_sysctl(fst, shm, errbuf));
1126         } else {
1127                 warnx("unknown access method: %d", procstat->type);
1128                 if (errbuf != NULL)
1129                         snprintf(errbuf, _POSIX2_LINE_MAX, "error");
1130                 return (1);
1131         }
1132 }
1133
1134 static int
1135 procstat_get_shm_info_kvm(kvm_t *kd, struct filestat *fst,
1136     struct shmstat *shm, char *errbuf)
1137 {
1138         struct shmfd shmfd;
1139         void *shmfdp;
1140         char *path;
1141         int i;
1142
1143         assert(kd);
1144         assert(shm);
1145         assert(fst);
1146         bzero(shm, sizeof(*shm));
1147         shmfdp = fst->fs_typedep;
1148         if (shmfdp == NULL)
1149                 goto fail;
1150         if (!kvm_read_all(kd, (unsigned long)shmfdp, &shmfd,
1151             sizeof(struct shmfd))) {
1152                 warnx("can't read shmfd at %p", (void *)shmfdp);
1153                 goto fail;
1154         }
1155         shm->mode = S_IFREG | shmfd.shm_mode;
1156         shm->size = shmfd.shm_size;
1157         if (fst->fs_path == NULL && shmfd.shm_path != NULL) {
1158                 path = malloc(MAXPATHLEN);
1159                 for (i = 0; i < MAXPATHLEN - 1; i++) {
1160                         if (!kvm_read_all(kd, (unsigned long)shmfd.shm_path + i,
1161                             path + i, 1))
1162                                 break;
1163                         if (path[i] == '\0')
1164                                 break;
1165                 }
1166                 path[i] = '\0';
1167                 if (i == 0)
1168                         free(path);
1169                 else
1170                         fst->fs_path = path;
1171         }
1172         return (0);
1173
1174 fail:
1175         if (errbuf != NULL)
1176                 snprintf(errbuf, _POSIX2_LINE_MAX, "error");
1177         return (1);
1178 }
1179
1180 static int
1181 procstat_get_shm_info_sysctl(struct filestat *fst, struct shmstat *shm,
1182     char *errbuf __unused)
1183 {
1184         struct kinfo_file *kif;
1185
1186         assert(shm);
1187         assert(fst);
1188         bzero(shm, sizeof(*shm));
1189         kif = fst->fs_typedep;
1190         if (kif == NULL)
1191                 return (0);
1192         shm->size = kif->kf_un.kf_file.kf_file_size;
1193         shm->mode = kif->kf_un.kf_file.kf_file_mode;
1194         return (0);
1195 }
1196
1197 int
1198 procstat_get_vnode_info(struct procstat *procstat, struct filestat *fst,
1199     struct vnstat *vn, char *errbuf)
1200 {
1201
1202         assert(vn);
1203         if (procstat->type == PROCSTAT_KVM) {
1204                 return (procstat_get_vnode_info_kvm(procstat->kd, fst, vn,
1205                     errbuf));
1206         } else if (procstat->type == PROCSTAT_SYSCTL ||
1207                 procstat->type == PROCSTAT_CORE) {
1208                 return (procstat_get_vnode_info_sysctl(fst, vn, errbuf));
1209         } else {
1210                 warnx("unknown access method: %d", procstat->type);
1211                 if (errbuf != NULL)
1212                         snprintf(errbuf, _POSIX2_LINE_MAX, "error");
1213                 return (1);
1214         }
1215 }
1216
1217 static int
1218 procstat_get_vnode_info_kvm(kvm_t *kd, struct filestat *fst,
1219     struct vnstat *vn, char *errbuf)
1220 {
1221         /* Filesystem specific handlers. */
1222         #define FSTYPE(fst)     {#fst, fst##_filestat}
1223         struct {
1224                 const char      *tag;
1225                 int             (*handler)(kvm_t *kd, struct vnode *vp,
1226                     struct vnstat *vn);
1227         } fstypes[] = {
1228                 FSTYPE(devfs),
1229                 FSTYPE(isofs),
1230                 FSTYPE(msdosfs),
1231                 FSTYPE(nfs),
1232                 FSTYPE(smbfs),
1233                 FSTYPE(udf),
1234                 FSTYPE(ufs),
1235 #ifdef LIBPROCSTAT_ZFS
1236                 FSTYPE(zfs),
1237 #endif
1238         };
1239 #define NTYPES  (sizeof(fstypes) / sizeof(*fstypes))
1240         struct vnode vnode;
1241         char tagstr[12];
1242         void *vp;
1243         int error;
1244         unsigned int i;
1245
1246         assert(kd);
1247         assert(vn);
1248         assert(fst);
1249         vp = fst->fs_typedep;
1250         if (vp == NULL)
1251                 goto fail;
1252         error = kvm_read_all(kd, (unsigned long)vp, &vnode, sizeof(vnode));
1253         if (error == 0) {
1254                 warnx("can't read vnode at %p", (void *)vp);
1255                 goto fail;
1256         }
1257         bzero(vn, sizeof(*vn));
1258         vn->vn_type = vntype2psfsttype(vnode.v_type);
1259         if (vnode.v_type == VNON || vnode.v_type == VBAD)
1260                 return (0);
1261         error = kvm_read_all(kd, (unsigned long)vnode.v_tag, tagstr,
1262             sizeof(tagstr));
1263         if (error == 0) {
1264                 warnx("can't read v_tag at %p", (void *)vp);
1265                 goto fail;
1266         }
1267         tagstr[sizeof(tagstr) - 1] = '\0';
1268
1269         /*
1270          * Find appropriate handler.
1271          */
1272         for (i = 0; i < NTYPES; i++)
1273                 if (!strcmp(fstypes[i].tag, tagstr)) {
1274                         if (fstypes[i].handler(kd, &vnode, vn) != 0) {
1275                                 goto fail;
1276                         }
1277                         break;
1278                 }
1279         if (i == NTYPES) {
1280                 if (errbuf != NULL)
1281                         snprintf(errbuf, _POSIX2_LINE_MAX, "?(%s)", tagstr);
1282                 return (1);
1283         }
1284         vn->vn_mntdir = getmnton(kd, vnode.v_mount);
1285         if ((vnode.v_type == VBLK || vnode.v_type == VCHR) &&
1286             vnode.v_rdev != NULL){
1287                 vn->vn_dev = dev2udev(kd, vnode.v_rdev);
1288                 (void)kdevtoname(kd, vnode.v_rdev, vn->vn_devname);
1289         } else {
1290                 vn->vn_dev = -1;
1291         }
1292         return (0);
1293
1294 fail:
1295         if (errbuf != NULL)
1296                 snprintf(errbuf, _POSIX2_LINE_MAX, "error");
1297         return (1);
1298 }
1299
1300 /*
1301  * kinfo vnode type to filestat translation.
1302  */
1303 static int
1304 kinfo_vtype2fst(int kfvtype)
1305 {
1306         static struct {
1307                 int     kf_vtype;
1308                 int     fst_vtype;
1309         } kfvtypes2fst[] = {
1310                 { KF_VTYPE_VBAD, PS_FST_VTYPE_VBAD },
1311                 { KF_VTYPE_VBLK, PS_FST_VTYPE_VBLK },
1312                 { KF_VTYPE_VCHR, PS_FST_VTYPE_VCHR },
1313                 { KF_VTYPE_VDIR, PS_FST_VTYPE_VDIR },
1314                 { KF_VTYPE_VFIFO, PS_FST_VTYPE_VFIFO },
1315                 { KF_VTYPE_VLNK, PS_FST_VTYPE_VLNK },
1316                 { KF_VTYPE_VNON, PS_FST_VTYPE_VNON },
1317                 { KF_VTYPE_VREG, PS_FST_VTYPE_VREG },
1318                 { KF_VTYPE_VSOCK, PS_FST_VTYPE_VSOCK }
1319         };
1320 #define NKFVTYPES       (sizeof(kfvtypes2fst) / sizeof(*kfvtypes2fst))
1321         unsigned int i;
1322
1323         for (i = 0; i < NKFVTYPES; i++)
1324                 if (kfvtypes2fst[i].kf_vtype == kfvtype)
1325                         break;
1326         if (i == NKFVTYPES)
1327                 return (PS_FST_VTYPE_UNKNOWN);
1328         return (kfvtypes2fst[i].fst_vtype);
1329 }
1330
1331 static int
1332 procstat_get_vnode_info_sysctl(struct filestat *fst, struct vnstat *vn,
1333     char *errbuf)
1334 {
1335         struct statfs stbuf;
1336         struct kinfo_file *kif;
1337         struct kinfo_vmentry *kve;
1338         uint64_t fileid;
1339         uint64_t size;
1340         char *name, *path;
1341         uint32_t fsid;
1342         uint16_t mode;
1343         uint32_t rdev;
1344         int vntype;
1345         int status;
1346
1347         assert(fst);
1348         assert(vn);
1349         bzero(vn, sizeof(*vn));
1350         if (fst->fs_typedep == NULL)
1351                 return (1);
1352         if (fst->fs_uflags & PS_FST_UFLAG_MMAP) {
1353                 kve = fst->fs_typedep;
1354                 fileid = kve->kve_vn_fileid;
1355                 fsid = kve->kve_vn_fsid;
1356                 mode = kve->kve_vn_mode;
1357                 path = kve->kve_path;
1358                 rdev = kve->kve_vn_rdev;
1359                 size = kve->kve_vn_size;
1360                 vntype = kinfo_vtype2fst(kve->kve_vn_type);
1361                 status = kve->kve_status;
1362         } else {
1363                 kif = fst->fs_typedep;
1364                 fileid = kif->kf_un.kf_file.kf_file_fileid;
1365                 fsid = kif->kf_un.kf_file.kf_file_fsid;
1366                 mode = kif->kf_un.kf_file.kf_file_mode;
1367                 path = kif->kf_path;
1368                 rdev = kif->kf_un.kf_file.kf_file_rdev;
1369                 size = kif->kf_un.kf_file.kf_file_size;
1370                 vntype = kinfo_vtype2fst(kif->kf_vnode_type);
1371                 status = kif->kf_status;
1372         }
1373         vn->vn_type = vntype;
1374         if (vntype == PS_FST_VTYPE_VNON || vntype == PS_FST_VTYPE_VBAD)
1375                 return (0);
1376         if ((status & KF_ATTR_VALID) == 0) {
1377                 if (errbuf != NULL) {
1378                         snprintf(errbuf, _POSIX2_LINE_MAX,
1379                             "? (no info available)");
1380                 }
1381                 return (1);
1382         }
1383         if (path && *path) {
1384                 statfs(path, &stbuf);
1385                 vn->vn_mntdir = strdup(stbuf.f_mntonname);
1386         } else
1387                 vn->vn_mntdir = strdup("-");
1388         vn->vn_dev = rdev;
1389         if (vntype == PS_FST_VTYPE_VBLK) {
1390                 name = devname(rdev, S_IFBLK);
1391                 if (name != NULL)
1392                         strlcpy(vn->vn_devname, name,
1393                             sizeof(vn->vn_devname));
1394         } else if (vntype == PS_FST_VTYPE_VCHR) {
1395                 name = devname(vn->vn_dev, S_IFCHR);
1396                 if (name != NULL)
1397                         strlcpy(vn->vn_devname, name,
1398                             sizeof(vn->vn_devname));
1399         }
1400         vn->vn_fsid = fsid;
1401         vn->vn_fileid = fileid;
1402         vn->vn_size = size;
1403         vn->vn_mode = mode;
1404         return (0);
1405 }
1406
1407 int
1408 procstat_get_socket_info(struct procstat *procstat, struct filestat *fst,
1409     struct sockstat *sock, char *errbuf)
1410 {
1411
1412         assert(sock);
1413         if (procstat->type == PROCSTAT_KVM) {
1414                 return (procstat_get_socket_info_kvm(procstat->kd, fst, sock,
1415                     errbuf));
1416         } else if (procstat->type == PROCSTAT_SYSCTL ||
1417                 procstat->type == PROCSTAT_CORE) {
1418                 return (procstat_get_socket_info_sysctl(fst, sock, errbuf));
1419         } else {
1420                 warnx("unknown access method: %d", procstat->type);
1421                 if (errbuf != NULL)
1422                         snprintf(errbuf, _POSIX2_LINE_MAX, "error");
1423                 return (1);
1424         }
1425 }
1426
1427 static int
1428 procstat_get_socket_info_kvm(kvm_t *kd, struct filestat *fst,
1429     struct sockstat *sock, char *errbuf)
1430 {
1431         struct domain dom;
1432         struct inpcb inpcb;
1433         struct protosw proto;
1434         struct socket s;
1435         struct unpcb unpcb;
1436         ssize_t len;
1437         void *so;
1438
1439         assert(kd);
1440         assert(sock);
1441         assert(fst);
1442         bzero(sock, sizeof(*sock));
1443         so = fst->fs_typedep;
1444         if (so == NULL)
1445                 goto fail;
1446         sock->so_addr = (uintptr_t)so;
1447         /* fill in socket */
1448         if (!kvm_read_all(kd, (unsigned long)so, &s,
1449             sizeof(struct socket))) {
1450                 warnx("can't read sock at %p", (void *)so);
1451                 goto fail;
1452         }
1453         /* fill in protosw entry */
1454         if (!kvm_read_all(kd, (unsigned long)s.so_proto, &proto,
1455             sizeof(struct protosw))) {
1456                 warnx("can't read protosw at %p", (void *)s.so_proto);
1457                 goto fail;
1458         }
1459         /* fill in domain */
1460         if (!kvm_read_all(kd, (unsigned long)proto.pr_domain, &dom,
1461             sizeof(struct domain))) {
1462                 warnx("can't read domain at %p",
1463                     (void *)proto.pr_domain);
1464                 goto fail;
1465         }
1466         if ((len = kvm_read(kd, (unsigned long)dom.dom_name, sock->dname,
1467             sizeof(sock->dname) - 1)) < 0) {
1468                 warnx("can't read domain name at %p", (void *)dom.dom_name);
1469                 sock->dname[0] = '\0';
1470         }
1471         else
1472                 sock->dname[len] = '\0';
1473
1474         /*
1475          * Fill in known data.
1476          */
1477         sock->type = s.so_type;
1478         sock->proto = proto.pr_protocol;
1479         sock->dom_family = dom.dom_family;
1480         sock->so_pcb = (uintptr_t)s.so_pcb;
1481
1482         /*
1483          * Protocol specific data.
1484          */
1485         switch(dom.dom_family) {
1486         case AF_INET:
1487         case AF_INET6:
1488                 if (proto.pr_protocol == IPPROTO_TCP) {
1489                         if (s.so_pcb) {
1490                                 if (kvm_read(kd, (u_long)s.so_pcb,
1491                                     (char *)&inpcb, sizeof(struct inpcb))
1492                                     != sizeof(struct inpcb)) {
1493                                         warnx("can't read inpcb at %p",
1494                                             (void *)s.so_pcb);
1495                                 } else
1496                                         sock->inp_ppcb =
1497                                             (uintptr_t)inpcb.inp_ppcb;
1498                         }
1499                 }
1500                 break;
1501         case AF_UNIX:
1502                 if (s.so_pcb) {
1503                         if (kvm_read(kd, (u_long)s.so_pcb, (char *)&unpcb,
1504                             sizeof(struct unpcb)) != sizeof(struct unpcb)){
1505                                 warnx("can't read unpcb at %p",
1506                                     (void *)s.so_pcb);
1507                         } else if (unpcb.unp_conn) {
1508                                 sock->so_rcv_sb_state = s.so_rcv.sb_state;
1509                                 sock->so_snd_sb_state = s.so_snd.sb_state;
1510                                 sock->unp_conn = (uintptr_t)unpcb.unp_conn;
1511                         }
1512                 }
1513                 break;
1514         default:
1515                 break;
1516         }
1517         return (0);
1518
1519 fail:
1520         if (errbuf != NULL)
1521                 snprintf(errbuf, _POSIX2_LINE_MAX, "error");
1522         return (1);
1523 }
1524
1525 static int
1526 procstat_get_socket_info_sysctl(struct filestat *fst, struct sockstat *sock,
1527     char *errbuf __unused)
1528 {
1529         struct kinfo_file *kif;
1530
1531         assert(sock);
1532         assert(fst);
1533         bzero(sock, sizeof(*sock));
1534         kif = fst->fs_typedep;
1535         if (kif == NULL)
1536                 return (0);
1537
1538         /*
1539          * Fill in known data.
1540          */
1541         sock->type = kif->kf_sock_type;
1542         sock->proto = kif->kf_sock_protocol;
1543         sock->dom_family = kif->kf_sock_domain;
1544         sock->so_pcb = kif->kf_un.kf_sock.kf_sock_pcb;
1545         strlcpy(sock->dname, kif->kf_path, sizeof(sock->dname));
1546         bcopy(&kif->kf_sa_local, &sock->sa_local, kif->kf_sa_local.ss_len);
1547         bcopy(&kif->kf_sa_peer, &sock->sa_peer, kif->kf_sa_peer.ss_len);
1548
1549         /*
1550          * Protocol specific data.
1551          */
1552         switch(sock->dom_family) {
1553         case AF_INET:
1554         case AF_INET6:
1555                 if (sock->proto == IPPROTO_TCP)
1556                         sock->inp_ppcb = kif->kf_un.kf_sock.kf_sock_inpcb;
1557                 break;
1558         case AF_UNIX:
1559                 if (kif->kf_un.kf_sock.kf_sock_unpconn != 0) {
1560                                 sock->so_rcv_sb_state =
1561                                     kif->kf_un.kf_sock.kf_sock_rcv_sb_state;
1562                                 sock->so_snd_sb_state =
1563                                     kif->kf_un.kf_sock.kf_sock_snd_sb_state;
1564                                 sock->unp_conn =
1565                                     kif->kf_un.kf_sock.kf_sock_unpconn;
1566                 }
1567                 break;
1568         default:
1569                 break;
1570         }
1571         return (0);
1572 }
1573
1574 /*
1575  * Descriptor flags to filestat translation.
1576  */
1577 static int
1578 to_filestat_flags(int flags)
1579 {
1580         static struct {
1581                 int flag;
1582                 int fst_flag;
1583         } fstflags[] = {
1584                 { FREAD, PS_FST_FFLAG_READ },
1585                 { FWRITE, PS_FST_FFLAG_WRITE },
1586                 { O_APPEND, PS_FST_FFLAG_APPEND },
1587                 { O_ASYNC, PS_FST_FFLAG_ASYNC },
1588                 { O_CREAT, PS_FST_FFLAG_CREAT },
1589                 { O_DIRECT, PS_FST_FFLAG_DIRECT },
1590                 { O_EXCL, PS_FST_FFLAG_EXCL },
1591                 { O_EXEC, PS_FST_FFLAG_EXEC },
1592                 { O_EXLOCK, PS_FST_FFLAG_EXLOCK },
1593                 { O_NOFOLLOW, PS_FST_FFLAG_NOFOLLOW },
1594                 { O_NONBLOCK, PS_FST_FFLAG_NONBLOCK },
1595                 { O_SHLOCK, PS_FST_FFLAG_SHLOCK },
1596                 { O_SYNC, PS_FST_FFLAG_SYNC },
1597                 { O_TRUNC, PS_FST_FFLAG_TRUNC }
1598         };
1599 #define NFSTFLAGS       (sizeof(fstflags) / sizeof(*fstflags))
1600         int fst_flags;
1601         unsigned int i;
1602
1603         fst_flags = 0;
1604         for (i = 0; i < NFSTFLAGS; i++)
1605                 if (flags & fstflags[i].flag)
1606                         fst_flags |= fstflags[i].fst_flag;
1607         return (fst_flags);
1608 }
1609
1610 /*
1611  * Vnode type to filestate translation.
1612  */
1613 static int
1614 vntype2psfsttype(int type)
1615 {
1616         static struct {
1617                 int     vtype;
1618                 int     fst_vtype;
1619         } vt2fst[] = {
1620                 { VBAD, PS_FST_VTYPE_VBAD },
1621                 { VBLK, PS_FST_VTYPE_VBLK },
1622                 { VCHR, PS_FST_VTYPE_VCHR },
1623                 { VDIR, PS_FST_VTYPE_VDIR },
1624                 { VFIFO, PS_FST_VTYPE_VFIFO },
1625                 { VLNK, PS_FST_VTYPE_VLNK },
1626                 { VNON, PS_FST_VTYPE_VNON },
1627                 { VREG, PS_FST_VTYPE_VREG },
1628                 { VSOCK, PS_FST_VTYPE_VSOCK }
1629         };
1630 #define NVFTYPES        (sizeof(vt2fst) / sizeof(*vt2fst))
1631         unsigned int i, fst_type;
1632
1633         fst_type = PS_FST_VTYPE_UNKNOWN;
1634         for (i = 0; i < NVFTYPES; i++) {
1635                 if (type == vt2fst[i].vtype) {
1636                         fst_type = vt2fst[i].fst_vtype;
1637                         break;
1638                 }
1639         }
1640         return (fst_type);
1641 }
1642
1643 static char *
1644 getmnton(kvm_t *kd, struct mount *m)
1645 {
1646         struct mount mnt;
1647         static struct mtab {
1648                 struct mtab *next;
1649                 struct mount *m;
1650                 char mntonname[MNAMELEN + 1];
1651         } *mhead = NULL;
1652         struct mtab *mt;
1653
1654         for (mt = mhead; mt != NULL; mt = mt->next)
1655                 if (m == mt->m)
1656                         return (mt->mntonname);
1657         if (!kvm_read_all(kd, (unsigned long)m, &mnt, sizeof(struct mount))) {
1658                 warnx("can't read mount table at %p", (void *)m);
1659                 return (NULL);
1660         }
1661         if ((mt = malloc(sizeof (struct mtab))) == NULL)
1662                 err(1, NULL);
1663         mt->m = m;
1664         bcopy(&mnt.mnt_stat.f_mntonname[0], &mt->mntonname[0], MNAMELEN);
1665         mt->mntonname[MNAMELEN] = '\0';
1666         mt->next = mhead;
1667         mhead = mt;
1668         return (mt->mntonname);
1669 }
1670
1671 /*
1672  * Auxiliary structures and functions to get process environment or
1673  * command line arguments.
1674  */
1675 struct argvec {
1676         char    *buf;
1677         size_t  bufsize;
1678         char    **argv;
1679         size_t  argc;
1680 };
1681
1682 static struct argvec *
1683 argvec_alloc(size_t bufsize)
1684 {
1685         struct argvec *av;
1686
1687         av = malloc(sizeof(*av));
1688         if (av == NULL)
1689                 return (NULL);
1690         av->bufsize = bufsize;
1691         av->buf = malloc(av->bufsize);
1692         if (av->buf == NULL) {
1693                 free(av);
1694                 return (NULL);
1695         }
1696         av->argc = 32;
1697         av->argv = malloc(sizeof(char *) * av->argc);
1698         if (av->argv == NULL) {
1699                 free(av->buf);
1700                 free(av);
1701                 return (NULL);
1702         }
1703         return av;
1704 }
1705
1706 static void
1707 argvec_free(struct argvec * av)
1708 {
1709
1710         free(av->argv);
1711         free(av->buf);
1712         free(av);
1713 }
1714
1715 static char **
1716 getargv(struct procstat *procstat, struct kinfo_proc *kp, size_t nchr, int env)
1717 {
1718         int error, name[4], argc, i;
1719         struct argvec *av, **avp;
1720         enum psc_type type;
1721         size_t len;
1722         char *p, **argv;
1723
1724         assert(procstat);
1725         assert(kp);
1726         if (procstat->type == PROCSTAT_KVM) {
1727                 warnx("can't use kvm access method");
1728                 return (NULL);
1729         }
1730         if (procstat->type != PROCSTAT_SYSCTL &&
1731             procstat->type != PROCSTAT_CORE) {
1732                 warnx("unknown access method: %d", procstat->type);
1733                 return (NULL);
1734         }
1735
1736         if (nchr == 0 || nchr > ARG_MAX)
1737                 nchr = ARG_MAX;
1738
1739         avp = (struct argvec **)(env ? &procstat->argv : &procstat->envv);
1740         av = *avp;
1741
1742         if (av == NULL)
1743         {
1744                 av = argvec_alloc(nchr);
1745                 if (av == NULL)
1746                 {
1747                         warn("malloc(%zu)", nchr);
1748                         return (NULL);
1749                 }
1750                 *avp = av;
1751         } else if (av->bufsize < nchr) {
1752                 av->buf = reallocf(av->buf, nchr);
1753                 if (av->buf == NULL) {
1754                         warn("malloc(%zu)", nchr);
1755                         return (NULL);
1756                 }
1757         }
1758         if (procstat->type == PROCSTAT_SYSCTL) {
1759                 name[0] = CTL_KERN;
1760                 name[1] = KERN_PROC;
1761                 name[2] = env ? KERN_PROC_ENV : KERN_PROC_ARGS;
1762                 name[3] = kp->ki_pid;
1763                 len = nchr;
1764                 error = sysctl(name, nitems(name), av->buf, &len, NULL, 0);
1765                 if (error != 0 && errno != ESRCH && errno != EPERM)
1766                         warn("sysctl(kern.proc.%s)", env ? "env" : "args");
1767                 if (error != 0 || len == 0)
1768                         return (NULL);
1769         } else /* procstat->type == PROCSTAT_CORE */ {
1770                 type = env ? PSC_TYPE_ENVV : PSC_TYPE_ARGV;
1771                 len = nchr;
1772                 if (procstat_core_get(procstat->core, type, av->buf, &len)
1773                     == NULL) {
1774                         return (NULL);
1775                 }
1776         }
1777
1778         argv = av->argv;
1779         argc = av->argc;
1780         i = 0;
1781         for (p = av->buf; p < av->buf + len; p += strlen(p) + 1) {
1782                 argv[i++] = p;
1783                 if (i < argc)
1784                         continue;
1785                 /* Grow argv. */
1786                 argc += argc;
1787                 argv = realloc(argv, sizeof(char *) * argc);
1788                 if (argv == NULL) {
1789                         warn("malloc(%zu)", sizeof(char *) * argc);
1790                         return (NULL);
1791                 }
1792                 av->argv = argv;
1793                 av->argc = argc;
1794         }
1795         argv[i] = NULL;
1796
1797         return (argv);
1798 }
1799
1800 /*
1801  * Return process command line arguments.
1802  */
1803 char **
1804 procstat_getargv(struct procstat *procstat, struct kinfo_proc *p, size_t nchr)
1805 {
1806
1807         return (getargv(procstat, p, nchr, 0));
1808 }
1809
1810 /*
1811  * Free the buffer allocated by procstat_getargv().
1812  */
1813 void
1814 procstat_freeargv(struct procstat *procstat)
1815 {
1816
1817         if (procstat->argv != NULL) {
1818                 argvec_free(procstat->argv);
1819                 procstat->argv = NULL;
1820         }
1821 }
1822
1823 /*
1824  * Return process environment.
1825  */
1826 char **
1827 procstat_getenvv(struct procstat *procstat, struct kinfo_proc *p, size_t nchr)
1828 {
1829
1830         return (getargv(procstat, p, nchr, 1));
1831 }
1832
1833 /*
1834  * Free the buffer allocated by procstat_getenvv().
1835  */
1836 void
1837 procstat_freeenvv(struct procstat *procstat)
1838 {
1839         if (procstat->envv != NULL) {
1840                 argvec_free(procstat->envv);
1841                 procstat->envv = NULL;
1842         }
1843 }
1844
1845 static struct kinfo_vmentry *
1846 kinfo_getvmmap_core(struct procstat_core *core, int *cntp)
1847 {
1848         int cnt;
1849         size_t len;
1850         char *buf, *bp, *eb;
1851         struct kinfo_vmentry *kiv, *kp, *kv;
1852
1853         buf = procstat_core_get(core, PSC_TYPE_VMMAP, NULL, &len);
1854         if (buf == NULL)
1855                 return (NULL);
1856
1857         /*
1858          * XXXMG: The code below is just copy&past from libutil.
1859          * The code duplication can be avoided if libutil
1860          * is extended to provide something like:
1861          *   struct kinfo_vmentry *kinfo_getvmmap_from_buf(const char *buf,
1862          *       size_t len, int *cntp);
1863          */
1864
1865         /* Pass 1: count items */
1866         cnt = 0;
1867         bp = buf;
1868         eb = buf + len;
1869         while (bp < eb) {
1870                 kv = (struct kinfo_vmentry *)(uintptr_t)bp;
1871                 if (kv->kve_structsize == 0)
1872                         break;
1873                 bp += kv->kve_structsize;
1874                 cnt++;
1875         }
1876
1877         kiv = calloc(cnt, sizeof(*kiv));
1878         if (kiv == NULL) {
1879                 free(buf);
1880                 return (NULL);
1881         }
1882         bp = buf;
1883         eb = buf + len;
1884         kp = kiv;
1885         /* Pass 2: unpack */
1886         while (bp < eb) {
1887                 kv = (struct kinfo_vmentry *)(uintptr_t)bp;
1888                 if (kv->kve_structsize == 0)
1889                         break;
1890                 /* Copy/expand into pre-zeroed buffer */
1891                 memcpy(kp, kv, kv->kve_structsize);
1892                 /* Advance to next packed record */
1893                 bp += kv->kve_structsize;
1894                 /* Set field size to fixed length, advance */
1895                 kp->kve_structsize = sizeof(*kp);
1896                 kp++;
1897         }
1898         free(buf);
1899         *cntp = cnt;
1900         return (kiv);   /* Caller must free() return value */
1901 }
1902
1903 struct kinfo_vmentry *
1904 procstat_getvmmap(struct procstat *procstat, struct kinfo_proc *kp,
1905     unsigned int *cntp)
1906 {
1907
1908         switch(procstat->type) {
1909         case PROCSTAT_KVM:
1910                 warnx("kvm method is not supported");
1911                 return (NULL);
1912         case PROCSTAT_SYSCTL:
1913                 return (kinfo_getvmmap(kp->ki_pid, cntp));
1914         case PROCSTAT_CORE:
1915                 return (kinfo_getvmmap_core(procstat->core, cntp));
1916         default:
1917                 warnx("unknown access method: %d", procstat->type);
1918                 return (NULL);
1919         }
1920 }
1921
1922 void
1923 procstat_freevmmap(struct procstat *procstat __unused,
1924     struct kinfo_vmentry *vmmap)
1925 {
1926
1927         free(vmmap);
1928 }
1929
1930 static gid_t *
1931 procstat_getgroups_kvm(kvm_t *kd, struct kinfo_proc *kp, unsigned int *cntp)
1932 {
1933         struct proc proc;
1934         struct ucred ucred;
1935         gid_t *groups;
1936         size_t len;
1937
1938         assert(kd != NULL);
1939         assert(kp != NULL);
1940         if (!kvm_read_all(kd, (unsigned long)kp->ki_paddr, &proc,
1941             sizeof(proc))) {
1942                 warnx("can't read proc struct at %p for pid %d",
1943                     kp->ki_paddr, kp->ki_pid);
1944                 return (NULL);
1945         }
1946         if (proc.p_ucred == NOCRED)
1947                 return (NULL);
1948         if (!kvm_read_all(kd, (unsigned long)proc.p_ucred, &ucred,
1949             sizeof(ucred))) {
1950                 warnx("can't read ucred struct at %p for pid %d",
1951                     proc.p_ucred, kp->ki_pid);
1952                 return (NULL);
1953         }
1954         len = ucred.cr_ngroups * sizeof(gid_t);
1955         groups = malloc(len);
1956         if (groups == NULL) {
1957                 warn("malloc(%zu)", len);
1958                 return (NULL);
1959         }
1960         if (!kvm_read_all(kd, (unsigned long)ucred.cr_groups, groups, len)) {
1961                 warnx("can't read groups at %p for pid %d",
1962                     ucred.cr_groups, kp->ki_pid);
1963                 free(groups);
1964                 return (NULL);
1965         }
1966         *cntp = ucred.cr_ngroups;
1967         return (groups);
1968 }
1969
1970 static gid_t *
1971 procstat_getgroups_sysctl(pid_t pid, unsigned int *cntp)
1972 {
1973         int mib[4];
1974         size_t len;
1975         gid_t *groups;
1976
1977         mib[0] = CTL_KERN;
1978         mib[1] = KERN_PROC;
1979         mib[2] = KERN_PROC_GROUPS;
1980         mib[3] = pid;
1981         len = (sysconf(_SC_NGROUPS_MAX) + 1) * sizeof(gid_t);
1982         groups = malloc(len);
1983         if (groups == NULL) {
1984                 warn("malloc(%zu)", len);
1985                 return (NULL);
1986         }
1987         if (sysctl(mib, nitems(mib), groups, &len, NULL, 0) == -1) {
1988                 warn("sysctl: kern.proc.groups: %d", pid);
1989                 free(groups);
1990                 return (NULL);
1991         }
1992         *cntp = len / sizeof(gid_t);
1993         return (groups);
1994 }
1995
1996 static gid_t *
1997 procstat_getgroups_core(struct procstat_core *core, unsigned int *cntp)
1998 {
1999         size_t len;
2000         gid_t *groups;
2001
2002         groups = procstat_core_get(core, PSC_TYPE_GROUPS, NULL, &len);
2003         if (groups == NULL)
2004                 return (NULL);
2005         *cntp = len / sizeof(gid_t);
2006         return (groups);
2007 }
2008
2009 gid_t *
2010 procstat_getgroups(struct procstat *procstat, struct kinfo_proc *kp,
2011     unsigned int *cntp)
2012 {
2013         switch(procstat->type) {
2014         case PROCSTAT_KVM:
2015                 return (procstat_getgroups_kvm(procstat->kd, kp, cntp));
2016         case PROCSTAT_SYSCTL:
2017                 return (procstat_getgroups_sysctl(kp->ki_pid, cntp));
2018         case PROCSTAT_CORE:
2019                 return (procstat_getgroups_core(procstat->core, cntp));
2020         default:
2021                 warnx("unknown access method: %d", procstat->type);
2022                 return (NULL);
2023         }
2024 }
2025
2026 void
2027 procstat_freegroups(struct procstat *procstat __unused, gid_t *groups)
2028 {
2029
2030         free(groups);
2031 }
2032
2033 static int
2034 procstat_getumask_kvm(kvm_t *kd, struct kinfo_proc *kp, unsigned short *maskp)
2035 {
2036         struct filedesc fd;
2037
2038         assert(kd != NULL);
2039         assert(kp != NULL);
2040         if (kp->ki_fd == NULL)
2041                 return (-1);
2042         if (!kvm_read_all(kd, (unsigned long)kp->ki_fd, &fd, sizeof(fd))) {
2043                 warnx("can't read filedesc at %p for pid %d", kp->ki_fd,
2044                     kp->ki_pid);
2045                 return (-1);
2046         }
2047         *maskp = fd.fd_cmask;
2048         return (0);
2049 }
2050
2051 static int
2052 procstat_getumask_sysctl(pid_t pid, unsigned short *maskp)
2053 {
2054         int error;
2055         int mib[4];
2056         size_t len;
2057
2058         mib[0] = CTL_KERN;
2059         mib[1] = KERN_PROC;
2060         mib[2] = KERN_PROC_UMASK;
2061         mib[3] = pid;
2062         len = sizeof(*maskp);
2063         error = sysctl(mib, nitems(mib), maskp, &len, NULL, 0);
2064         if (error != 0 && errno != ESRCH && errno != EPERM)
2065                 warn("sysctl: kern.proc.umask: %d", pid);
2066         return (error);
2067 }
2068
2069 static int
2070 procstat_getumask_core(struct procstat_core *core, unsigned short *maskp)
2071 {
2072         size_t len;
2073         unsigned short *buf;
2074
2075         buf = procstat_core_get(core, PSC_TYPE_UMASK, NULL, &len);
2076         if (buf == NULL)
2077                 return (-1);
2078         if (len < sizeof(*maskp)) {
2079                 free(buf);
2080                 return (-1);
2081         }
2082         *maskp = *buf;
2083         free(buf);
2084         return (0);
2085 }
2086
2087 int
2088 procstat_getumask(struct procstat *procstat, struct kinfo_proc *kp,
2089     unsigned short *maskp)
2090 {
2091         switch(procstat->type) {
2092         case PROCSTAT_KVM:
2093                 return (procstat_getumask_kvm(procstat->kd, kp, maskp));
2094         case PROCSTAT_SYSCTL:
2095                 return (procstat_getumask_sysctl(kp->ki_pid, maskp));
2096         case PROCSTAT_CORE:
2097                 return (procstat_getumask_core(procstat->core, maskp));
2098         default:
2099                 warnx("unknown access method: %d", procstat->type);
2100                 return (-1);
2101         }
2102 }
2103
2104 static int
2105 procstat_getrlimit_kvm(kvm_t *kd, struct kinfo_proc *kp, int which,
2106     struct rlimit* rlimit)
2107 {
2108         struct proc proc;
2109         unsigned long offset;
2110
2111         assert(kd != NULL);
2112         assert(kp != NULL);
2113         assert(which >= 0 && which < RLIM_NLIMITS);
2114         if (!kvm_read_all(kd, (unsigned long)kp->ki_paddr, &proc,
2115             sizeof(proc))) {
2116                 warnx("can't read proc struct at %p for pid %d",
2117                     kp->ki_paddr, kp->ki_pid);
2118                 return (-1);
2119         }
2120         if (proc.p_limit == NULL)
2121                 return (-1);
2122         offset = (unsigned long)proc.p_limit + sizeof(struct rlimit) * which;
2123         if (!kvm_read_all(kd, offset, rlimit, sizeof(*rlimit))) {
2124                 warnx("can't read rlimit struct at %p for pid %d",
2125                     (void *)offset, kp->ki_pid);
2126                 return (-1);
2127         }
2128         return (0);
2129 }
2130
2131 static int
2132 procstat_getrlimit_sysctl(pid_t pid, int which, struct rlimit* rlimit)
2133 {
2134         int error, name[5];
2135         size_t len;
2136
2137         name[0] = CTL_KERN;
2138         name[1] = KERN_PROC;
2139         name[2] = KERN_PROC_RLIMIT;
2140         name[3] = pid;
2141         name[4] = which;
2142         len = sizeof(struct rlimit);
2143         error = sysctl(name, nitems(name), rlimit, &len, NULL, 0);
2144         if (error < 0 && errno != ESRCH) {
2145                 warn("sysctl: kern.proc.rlimit: %d", pid);
2146                 return (-1);
2147         }
2148         if (error < 0 || len != sizeof(struct rlimit))
2149                 return (-1);
2150         return (0);
2151 }
2152
2153 static int
2154 procstat_getrlimit_core(struct procstat_core *core, int which,
2155     struct rlimit* rlimit)
2156 {
2157         size_t len;
2158         struct rlimit* rlimits;
2159
2160         if (which < 0 || which >= RLIM_NLIMITS) {
2161                 errno = EINVAL;
2162                 warn("getrlimit: which");
2163                 return (-1);
2164         }
2165         rlimits = procstat_core_get(core, PSC_TYPE_RLIMIT, NULL, &len);
2166         if (rlimits == NULL)
2167                 return (-1);
2168         if (len < sizeof(struct rlimit) * RLIM_NLIMITS) {
2169                 free(rlimits);
2170                 return (-1);
2171         }
2172         *rlimit = rlimits[which];
2173         return (0);
2174 }
2175
2176 int
2177 procstat_getrlimit(struct procstat *procstat, struct kinfo_proc *kp, int which,
2178     struct rlimit* rlimit)
2179 {
2180         switch(procstat->type) {
2181         case PROCSTAT_KVM:
2182                 return (procstat_getrlimit_kvm(procstat->kd, kp, which,
2183                     rlimit));
2184         case PROCSTAT_SYSCTL:
2185                 return (procstat_getrlimit_sysctl(kp->ki_pid, which, rlimit));
2186         case PROCSTAT_CORE:
2187                 return (procstat_getrlimit_core(procstat->core, which, rlimit));
2188         default:
2189                 warnx("unknown access method: %d", procstat->type);
2190                 return (-1);
2191         }
2192 }
2193
2194 static int
2195 procstat_getpathname_sysctl(pid_t pid, char *pathname, size_t maxlen)
2196 {
2197         int error, name[4];
2198         size_t len;
2199
2200         name[0] = CTL_KERN;
2201         name[1] = KERN_PROC;
2202         name[2] = KERN_PROC_PATHNAME;
2203         name[3] = pid;
2204         len = maxlen;
2205         error = sysctl(name, nitems(name), pathname, &len, NULL, 0);
2206         if (error != 0 && errno != ESRCH)
2207                 warn("sysctl: kern.proc.pathname: %d", pid);
2208         if (len == 0)
2209                 pathname[0] = '\0';
2210         return (error);
2211 }
2212
2213 static int
2214 procstat_getpathname_core(struct procstat_core *core, char *pathname,
2215     size_t maxlen)
2216 {
2217         struct kinfo_file *files;
2218         int cnt, i, result;
2219
2220         files = kinfo_getfile_core(core, &cnt);
2221         if (files == NULL)
2222                 return (-1);
2223         result = -1;
2224         for (i = 0; i < cnt; i++) {
2225                 if (files[i].kf_fd != KF_FD_TYPE_TEXT)
2226                         continue;
2227                 strncpy(pathname, files[i].kf_path, maxlen);
2228                 result = 0;
2229                 break;
2230         }
2231         free(files);
2232         return (result);
2233 }
2234
2235 int
2236 procstat_getpathname(struct procstat *procstat, struct kinfo_proc *kp,
2237     char *pathname, size_t maxlen)
2238 {
2239         switch(procstat->type) {
2240         case PROCSTAT_KVM:
2241                 /* XXX: Return empty string. */
2242                 if (maxlen > 0)
2243                         pathname[0] = '\0';
2244                 return (0);
2245         case PROCSTAT_SYSCTL:
2246                 return (procstat_getpathname_sysctl(kp->ki_pid, pathname,
2247                     maxlen));
2248         case PROCSTAT_CORE:
2249                 return (procstat_getpathname_core(procstat->core, pathname,
2250                     maxlen));
2251         default:
2252                 warnx("unknown access method: %d", procstat->type);
2253                 return (-1);
2254         }
2255 }
2256
2257 static int
2258 procstat_getosrel_kvm(kvm_t *kd, struct kinfo_proc *kp, int *osrelp)
2259 {
2260         struct proc proc;
2261
2262         assert(kd != NULL);
2263         assert(kp != NULL);
2264         if (!kvm_read_all(kd, (unsigned long)kp->ki_paddr, &proc,
2265             sizeof(proc))) {
2266                 warnx("can't read proc struct at %p for pid %d",
2267                     kp->ki_paddr, kp->ki_pid);
2268                 return (-1);
2269         }
2270         *osrelp = proc.p_osrel;
2271         return (0);
2272 }
2273
2274 static int
2275 procstat_getosrel_sysctl(pid_t pid, int *osrelp)
2276 {
2277         int error, name[4];
2278         size_t len;
2279
2280         name[0] = CTL_KERN;
2281         name[1] = KERN_PROC;
2282         name[2] = KERN_PROC_OSREL;
2283         name[3] = pid;
2284         len = sizeof(*osrelp);
2285         error = sysctl(name, nitems(name), osrelp, &len, NULL, 0);
2286         if (error != 0 && errno != ESRCH)
2287                 warn("sysctl: kern.proc.osrel: %d", pid);
2288         return (error);
2289 }
2290
2291 static int
2292 procstat_getosrel_core(struct procstat_core *core, int *osrelp)
2293 {
2294         size_t len;
2295         int *buf;
2296
2297         buf = procstat_core_get(core, PSC_TYPE_OSREL, NULL, &len);
2298         if (buf == NULL)
2299                 return (-1);
2300         if (len < sizeof(*osrelp)) {
2301                 free(buf);
2302                 return (-1);
2303         }
2304         *osrelp = *buf;
2305         free(buf);
2306         return (0);
2307 }
2308
2309 int
2310 procstat_getosrel(struct procstat *procstat, struct kinfo_proc *kp, int *osrelp)
2311 {
2312         switch(procstat->type) {
2313         case PROCSTAT_KVM:
2314                 return (procstat_getosrel_kvm(procstat->kd, kp, osrelp));
2315         case PROCSTAT_SYSCTL:
2316                 return (procstat_getosrel_sysctl(kp->ki_pid, osrelp));
2317         case PROCSTAT_CORE:
2318                 return (procstat_getosrel_core(procstat->core, osrelp));
2319         default:
2320                 warnx("unknown access method: %d", procstat->type);
2321                 return (-1);
2322         }
2323 }
2324
2325 #define PROC_AUXV_MAX   256
2326
2327 #if __ELF_WORD_SIZE == 64
2328 static const char *elf32_sv_names[] = {
2329         "Linux ELF32",
2330         "FreeBSD ELF32",
2331 };
2332
2333 static int
2334 is_elf32_sysctl(pid_t pid)
2335 {
2336         int error, name[4];
2337         size_t len, i;
2338         static char sv_name[256];
2339
2340         name[0] = CTL_KERN;
2341         name[1] = KERN_PROC;
2342         name[2] = KERN_PROC_SV_NAME;
2343         name[3] = pid;
2344         len = sizeof(sv_name);
2345         error = sysctl(name, nitems(name), sv_name, &len, NULL, 0);
2346         if (error != 0 || len == 0)
2347                 return (0);
2348         for (i = 0; i < sizeof(elf32_sv_names) / sizeof(*elf32_sv_names); i++) {
2349                 if (strncmp(sv_name, elf32_sv_names[i], sizeof(sv_name)) == 0)
2350                         return (1);
2351         }
2352         return (0);
2353 }
2354
2355 static Elf_Auxinfo *
2356 procstat_getauxv32_sysctl(pid_t pid, unsigned int *cntp)
2357 {
2358         Elf_Auxinfo *auxv;
2359         Elf32_Auxinfo *auxv32;
2360         void *ptr;
2361         size_t len;
2362         unsigned int i, count;
2363         int name[4];
2364
2365         name[0] = CTL_KERN;
2366         name[1] = KERN_PROC;
2367         name[2] = KERN_PROC_AUXV;
2368         name[3] = pid;
2369         len = PROC_AUXV_MAX * sizeof(Elf32_Auxinfo);
2370         auxv = NULL;
2371         auxv32 = malloc(len);
2372         if (auxv32 == NULL) {
2373                 warn("malloc(%zu)", len);
2374                 goto out;
2375         }
2376         if (sysctl(name, nitems(name), auxv32, &len, NULL, 0) == -1) {
2377                 if (errno != ESRCH && errno != EPERM)
2378                         warn("sysctl: kern.proc.auxv: %d: %d", pid, errno);
2379                 goto out;
2380         }
2381         count = len / sizeof(Elf_Auxinfo);
2382         auxv = malloc(count  * sizeof(Elf_Auxinfo));
2383         if (auxv == NULL) {
2384                 warn("malloc(%zu)", count * sizeof(Elf_Auxinfo));
2385                 goto out;
2386         }
2387         for (i = 0; i < count; i++) {
2388                 /*
2389                  * XXX: We expect that values for a_type on a 32-bit platform
2390                  * are directly mapped to values on 64-bit one, which is not
2391                  * necessarily true.
2392                  */
2393                 auxv[i].a_type = auxv32[i].a_type;
2394                 ptr = &auxv32[i].a_un;
2395                 auxv[i].a_un.a_val = *((uint32_t *)ptr);
2396         }
2397         *cntp = count;
2398 out:
2399         free(auxv32);
2400         return (auxv);
2401 }
2402 #endif /* __ELF_WORD_SIZE == 64 */
2403
2404 static Elf_Auxinfo *
2405 procstat_getauxv_sysctl(pid_t pid, unsigned int *cntp)
2406 {
2407         Elf_Auxinfo *auxv;
2408         int name[4];
2409         size_t len;
2410
2411 #if __ELF_WORD_SIZE == 64
2412         if (is_elf32_sysctl(pid))
2413                 return (procstat_getauxv32_sysctl(pid, cntp));
2414 #endif
2415         name[0] = CTL_KERN;
2416         name[1] = KERN_PROC;
2417         name[2] = KERN_PROC_AUXV;
2418         name[3] = pid;
2419         len = PROC_AUXV_MAX * sizeof(Elf_Auxinfo);
2420         auxv = malloc(len);
2421         if (auxv == NULL) {
2422                 warn("malloc(%zu)", len);
2423                 return (NULL);
2424         }
2425         if (sysctl(name, nitems(name), auxv, &len, NULL, 0) == -1) {
2426                 if (errno != ESRCH && errno != EPERM)
2427                         warn("sysctl: kern.proc.auxv: %d: %d", pid, errno);
2428                 free(auxv);
2429                 return (NULL);
2430         }
2431         *cntp = len / sizeof(Elf_Auxinfo);
2432         return (auxv);
2433 }
2434
2435 static Elf_Auxinfo *
2436 procstat_getauxv_core(struct procstat_core *core, unsigned int *cntp)
2437 {
2438         Elf_Auxinfo *auxv;
2439         size_t len;
2440
2441         auxv = procstat_core_get(core, PSC_TYPE_AUXV, NULL, &len);
2442         if (auxv == NULL)
2443                 return (NULL);
2444         *cntp = len / sizeof(Elf_Auxinfo);
2445         return (auxv);
2446 }
2447
2448 Elf_Auxinfo *
2449 procstat_getauxv(struct procstat *procstat, struct kinfo_proc *kp,
2450     unsigned int *cntp)
2451 {
2452         switch(procstat->type) {
2453         case PROCSTAT_KVM:
2454                 warnx("kvm method is not supported");
2455                 return (NULL);
2456         case PROCSTAT_SYSCTL:
2457                 return (procstat_getauxv_sysctl(kp->ki_pid, cntp));
2458         case PROCSTAT_CORE:
2459                 return (procstat_getauxv_core(procstat->core, cntp));
2460         default:
2461                 warnx("unknown access method: %d", procstat->type);
2462                 return (NULL);
2463         }
2464 }
2465
2466 void
2467 procstat_freeauxv(struct procstat *procstat __unused, Elf_Auxinfo *auxv)
2468 {
2469
2470         free(auxv);
2471 }
2472
2473 static struct kinfo_kstack *
2474 procstat_getkstack_sysctl(pid_t pid, int *cntp)
2475 {
2476         struct kinfo_kstack *kkstp;
2477         int error, name[4];
2478         size_t len;
2479
2480         name[0] = CTL_KERN;
2481         name[1] = KERN_PROC;
2482         name[2] = KERN_PROC_KSTACK;
2483         name[3] = pid;
2484
2485         len = 0;
2486         error = sysctl(name, nitems(name), NULL, &len, NULL, 0);
2487         if (error < 0 && errno != ESRCH && errno != EPERM && errno != ENOENT) {
2488                 warn("sysctl: kern.proc.kstack: %d", pid);
2489                 return (NULL);
2490         }
2491         if (error == -1 && errno == ENOENT) {
2492                 warnx("sysctl: kern.proc.kstack unavailable"
2493                     " (options DDB or options STACK required in kernel)");
2494                 return (NULL);
2495         }
2496         if (error == -1)
2497                 return (NULL);
2498         kkstp = malloc(len);
2499         if (kkstp == NULL) {
2500                 warn("malloc(%zu)", len);
2501                 return (NULL);
2502         }
2503         if (sysctl(name, nitems(name), kkstp, &len, NULL, 0) == -1) {
2504                 warn("sysctl: kern.proc.pid: %d", pid);
2505                 free(kkstp);
2506                 return (NULL);
2507         }
2508         *cntp = len / sizeof(*kkstp);
2509
2510         return (kkstp);
2511 }
2512
2513 struct kinfo_kstack *
2514 procstat_getkstack(struct procstat *procstat, struct kinfo_proc *kp,
2515     unsigned int *cntp)
2516 {
2517         switch(procstat->type) {
2518         case PROCSTAT_KVM:
2519                 warnx("kvm method is not supported");
2520                 return (NULL);
2521         case PROCSTAT_SYSCTL:
2522                 return (procstat_getkstack_sysctl(kp->ki_pid, cntp));
2523         case PROCSTAT_CORE:
2524                 warnx("core method is not supported");
2525                 return (NULL);
2526         default:
2527                 warnx("unknown access method: %d", procstat->type);
2528                 return (NULL);
2529         }
2530 }
2531
2532 void
2533 procstat_freekstack(struct procstat *procstat __unused,
2534     struct kinfo_kstack *kkstp)
2535 {
2536
2537         free(kkstp);
2538 }