sbin/sysctl/sysctl.c

   1 /*
   2  * Copyright (c) 1993
   3  *      The Regents of the University of California.  All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  * 3. All advertising materials mentioning features or use of this software
  14  *    must display the following acknowledgement:
  15  *      This product includes software developed by the University of
  16  *      California, Berkeley and its contributors.
  17  * 4. Neither the name of the University nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  *
  33  * @(#) Copyright (c) 1993 The Regents of the University of California.  All rights reserved.
  34  * @(#)from: sysctl.c   8.1 (Berkeley) 6/6/93
  35  * $FreeBSD: src/sbin/sysctl/sysctl.c,v 1.25.2.11 2003/05/01 22:48:08 trhodes Exp $
  36  */
  37
  38 #ifdef __i386__
  39 #include <sys/diskslice.h>      /* used for bootdev parsing */
  40 #include <sys/reboot.h>         /* used for bootdev parsing */
  41 #endif
  42 #include <sys/types.h>
  43 #include <sys/stat.h>
  44 #include <sys/sysctl.h>
  45 #include <sys/resource.h>
  46 #include <sys/sensors.h>
  47 #include <sys/param.h>
  48
  49 #include <machine/inttypes.h>
  50
  51 #include <ctype.h>
  52 #include <err.h>
  53 #include <errno.h>
  54 #include <stdio.h>
  55 #include <stdlib.h>
  56 #include <string.h>
  57 #include <unistd.h>
  58
  59 static int      aflag, bflag, dflag, eflag, Nflag, nflag, oflag, xflag;
  60
  61 static int      oidfmt(int *, size_t, char *, u_int *);
  62 static void     parse(const char *);
  63 static int      show_var(int *, size_t);
  64 static int      sysctl_all(int *, size_t);
  65 static void     set_T_dev_t(const char *, void **, size_t *);
  66 static int      set_IK(const char *, int *);
  67
  68 static void
  69 usage(void)
  70 {
  71
  72         fprintf(stderr, "%s\n%s\n",
  73             "usage: sysctl [-bdeNnox] variable[=value] ...",
  74             "       sysctl [-bdeNnox] -a");
  75         exit(1);
  76 }
  77
  78 int
  79 main(int argc, char **argv)
  80 {
  81         int ch;
  82         setbuf(stdout,0);
  83         setbuf(stderr,0);
  84
  85         while ((ch = getopt(argc, argv, "AabdeNnowxX")) != -1) {
  86                 switch (ch) {
  87                 case 'A':
  88                         /* compatibility */
  89                         aflag = oflag = 1;
  90                         break;
  91                 case 'a':
  92                         aflag = 1;
  93                         break;
  94                 case 'b':
  95                         bflag = 1;
  96                         break;
  97                 case 'd':
  98                         dflag = 1;
  99                         break;
 100                 case 'e':
 101                         eflag = 1;
 102                         break;
 103                 case 'N':
 104                         Nflag = 1;
 105                         break;
 106                 case 'n':
 107                         nflag = 1;
 108                         break;
 109                 case 'o':
 110                         oflag = 1;
 111                         break;
 112                 case 'w':
 113                         /* compatibility */
 114                         /* ignored */
 115                         break;
 116                 case 'X':
 117                         /* compatibility */
 118                         aflag = xflag = 1;
 119                         break;
 120                 case 'x':
 121                         xflag = 1;
 122                         break;
 123                 default:
 124                         usage();
 125                 }
 126         }
 127         argc -= optind;
 128         argv += optind;
 129
 130         if (Nflag && nflag)
 131                 usage();
 132         if (aflag && argc == 0)
 133                 exit(sysctl_all(0, 0));
 134         if (argc == 0)
 135                 usage();
 136         while (argc-- > 0)
 137                 parse(*argv++);
 138         exit(0);
 139 }
 140
 141 /*
 142  * Parse a name into a MIB entry.
 143  * Lookup and print out the MIB entry if it exists.
 144  * Set a new value if requested.
 145  */
 146 static void
 147 parse(const char *string)
 148 {
 149         size_t len;
 150         int i, j;
 151         void *newval = NULL;
 152         int intval;
 153         unsigned int uintval;
 154         long longval;
 155         unsigned long ulongval;
 156         size_t newsize = 0;
 157         quad_t quadval;
 158         u_quad_t uquadval;
 159         int mib[CTL_MAXNAME];
 160         char *cp, fmt[BUFSIZ];
 161         const char *name;
 162         char *name_allocated = NULL;
 163         u_int kind;
 164
 165         if ((cp = strchr(string, '=')) != NULL) {
 166                 if ((name_allocated = malloc(cp - string + 1)) == NULL)
 167                         err(1, "malloc failed");
 168                 strlcpy(name_allocated, string, cp - string + 1);
 169                 name = name_allocated;
 170
 171                 while (isspace(*++cp))
 172                         ;
 173
 174                 newval = cp;
 175                 newsize = strlen(cp);
 176         } else {
 177                 name = string;
 178         }
 179
 180         len = CTL_MAXNAME;
 181         if (sysctlnametomib(name, mib, &len) < 0) {
 182                 if (errno == ENOENT) {
 183                         errx(1, "unknown oid '%s'", name);
 184                 } else {
 185                         err(1, "sysctlnametomib(\"%s\")", name);
 186                 }
 187         }
 188
 189         if (oidfmt(mib, len, fmt, &kind))
 190                 err(1, "couldn't find format of oid '%s'", name);
 191
 192         if (newval == NULL) {
 193                 if ((kind & CTLTYPE) == CTLTYPE_NODE) {
 194                         sysctl_all(mib, len);
 195                 } else {
 196                         i = show_var(mib, len);
 197                         if (!i && !bflag)
 198                                 putchar('\n');
 199                 }
 200         } else {
 201                 if ((kind & CTLTYPE) == CTLTYPE_NODE)
 202                         errx(1, "oid '%s' isn't a leaf node", name);
 203
 204                 if (!(kind&CTLFLAG_WR))
 205                         errx(1, "oid '%s' is read only", name);
 206
 207                 switch (kind & CTLTYPE) {
 208                         case CTLTYPE_INT:
 209                                 if (!strcmp(fmt, "IK") == 0) {
 210                                         if (!set_IK(newval, &intval))
 211                                                 errx(1, "invalid value '%s'",
 212                                                     (char *)newval);
 213                                 } else
 214                                         intval = (int) strtol(newval, NULL, 0);
 215                                 newval = &intval;
 216                                 newsize = sizeof(intval);
 217                                 break;
 218                         case CTLTYPE_UINT:
 219                                 uintval = (int) strtoul(newval, NULL, 0);
 220                                 newval = &uintval;
 221                                 newsize = sizeof uintval;
 222                                 break;
 223                         case CTLTYPE_LONG:
 224                                 longval = strtol(newval, NULL, 0);
 225                                 newval = &longval;
 226                                 newsize = sizeof longval;
 227                                 break;
 228                         case CTLTYPE_ULONG:
 229                                 ulongval = strtoul(newval, NULL, 0);
 230                                 newval = &ulongval;
 231                                 newsize = sizeof ulongval;
 232                                 break;
 233                         case CTLTYPE_STRING:
 234                                 break;
 235                         case CTLTYPE_QUAD:
 236                                 quadval = strtoq(newval, NULL, 0);
 237                                 newval = &quadval;
 238                                 newsize = sizeof(quadval);
 239                                 break;
 240                         case CTLTYPE_UQUAD:
 241                                 uquadval = strtouq(newval, NULL, 0);
 242                                 newval = &uquadval;
 243                                 newsize = sizeof(uquadval);
 244                                 break;
 245                         case CTLTYPE_OPAQUE:
 246                                 if (strcmp(fmt, "T,dev_t") == 0 ||
 247                                     strcmp(fmt, "T,udev_t") == 0
 248                                 ) {
 249                                         set_T_dev_t((char*)newval, &newval,
 250                                                     &newsize);
 251                                         break;
 252                                 }
 253                                 /* FALLTHROUGH */
 254                         default:
 255                                 errx(1, "oid '%s' is type %d,"
 256                                         " cannot set that", name,
 257                                         kind & CTLTYPE);
 258                 }
 259
 260                 i = show_var(mib, len);
 261                 if (sysctl(mib, len, 0, 0, newval, newsize) == -1) {
 262                         if (!i && !bflag)
 263                                 putchar('\n');
 264                         switch (errno) {
 265                         case EOPNOTSUPP:
 266                                 errx(1, "%s: value is not available",
 267                                         string);
 268                         case ENOTDIR:
 269                                 errx(1, "%s: specification is incomplete",
 270                                         string);
 271                         case ENOMEM:
 272                                 errx(1, "%s: type is unknown to this program",
 273                                         string);
 274                         default:
 275                                 warn("%s", string);
 276                                 return;
 277                         }
 278                 }
 279                 if (!bflag)
 280                         printf(" -> ");
 281                 i = nflag;
 282                 nflag = 1;
 283                 j = show_var(mib, len);
 284                 if (!j && !bflag)
 285                         putchar('\n');
 286                 nflag = i;
 287         }
 288
 289         if (name_allocated != NULL)
 290                 free(name_allocated);
 291 }
 292
 293 /* These functions will dump out various interesting structures. */
 294
 295 static int
 296 S_clockinfo(int l2, void *p)
 297 {
 298         struct clockinfo *ci = (struct clockinfo*)p;
 299         if (l2 != sizeof(*ci))
 300                 err(1, "S_clockinfo %d != %zu", l2, sizeof(*ci));
 301         printf("{ hz = %d, tick = %d, tickadj = %d, profhz = %d, stathz = %d }",
 302                 ci->hz, ci->tick, ci->tickadj, ci->profhz, ci->stathz);
 303         return (0);
 304 }
 305
 306 static int
 307 S_loadavg(int l2, void *p)
 308 {
 309         struct loadavg *tv = (struct loadavg*)p;
 310
 311         if (l2 != sizeof(*tv))
 312                 err(1, "S_loadavg %d != %zu", l2, sizeof(*tv));
 313
 314         printf("{ %.2f %.2f %.2f }",
 315                 (double)tv->ldavg[0]/(double)tv->fscale,
 316                 (double)tv->ldavg[1]/(double)tv->fscale,
 317                 (double)tv->ldavg[2]/(double)tv->fscale);
 318         return (0);
 319 }
 320
 321 static int
 322 S_timespec(int l2, void *p)
 323 {
 324         struct timespec *ts = (struct timespec*)p;
 325         time_t tv_sec;
 326         char *p1, *p2;
 327
 328         if (l2 != sizeof(*ts))
 329                 err(1, "S_timespec %d != %zu", l2, sizeof(*ts));
 330         printf("{ sec = %ld, nsec = %ld } ",
 331                 ts->tv_sec, ts->tv_nsec);
 332         tv_sec = ts->tv_sec;
 333         p1 = strdup(ctime(&tv_sec));
 334         for (p2=p1; *p2 ; p2++)
 335                 if (*p2 == '\n')
 336                         *p2 = '\0';
 337         fputs(p1, stdout);
 338         return (0);
 339 }
 340
 341 static int
 342 S_timeval(int l2, void *p)
 343 {
 344         struct timeval *tv = (struct timeval*)p;
 345         time_t tv_sec;
 346         char *p1, *p2;
 347
 348         if (l2 != sizeof(*tv))
 349                 err(1, "S_timeval %d != %zu", l2, sizeof(*tv));
 350         printf("{ sec = %ld, usec = %ld } ",
 351                 tv->tv_sec, tv->tv_usec);
 352         tv_sec = tv->tv_sec;
 353         p1 = strdup(ctime(&tv_sec));
 354         for (p2=p1; *p2 ; p2++)
 355                 if (*p2 == '\n')
 356                         *p2 = '\0';
 357         fputs(p1, stdout);
 358         return (0);
 359 }
 360
 361 static int
 362 S_sensor(int l2, void *p)
 363 {
 364         struct sensor *s = (struct sensor *)p;
 365
 366         if (l2 != sizeof(*s)) {
 367                 warnx("S_sensor %d != %zu", l2, sizeof(*s));
 368                 return (1);
 369         }
 370
 371         if (s->flags & SENSOR_FINVALID) {
 372                 /*
 373                  * XXX: with this flag, the node should be entirely ignored,
 374                  * but as the magic-based sysctl(8) is not too flexible, we
 375                  * simply have to print out that the sensor is invalid.
 376                  */
 377                 printf("invalid");
 378                 return (0);
 379         }
 380
 381         if (s->flags & SENSOR_FUNKNOWN)
 382                 printf("unknown");
 383         else {
 384                 switch (s->type) {
 385                 case SENSOR_TEMP:
 386                         printf("%.2f degC",
 387                             (s->value - 273150000) / 1000000.0);
 388                         break;
 389                 case SENSOR_FANRPM:
 390                         printf("%jd RPM", (intmax_t)s->value);
 391                         break;
 392                 case SENSOR_VOLTS_DC:
 393                         printf("%.2f VDC", s->value / 1000000.0);
 394                         break;
 395                 case SENSOR_AMPS:
 396                         printf("%.2f A", s->value / 1000000.0);
 397                         break;
 398                 case SENSOR_WATTHOUR:
 399                         printf("%.2f Wh", s->value / 1000000.0);
 400                         break;
 401                 case SENSOR_AMPHOUR:
 402                         printf("%.2f Ah", s->value / 1000000.0);
 403                         break;
 404                 case SENSOR_INDICATOR:
 405                         printf("%s", s->value ? "On" : "Off");
 406                         break;
 407                 case SENSOR_INTEGER:
 408                         printf("%jd", (intmax_t)s->value);
 409                         break;
 410                 case SENSOR_PERCENT:
 411                         printf("%.2f%%", s->value / 1000.0);
 412                         break;
 413                 case SENSOR_LUX:
 414                         printf("%.2f lx", s->value / 1000000.0);
 415                         break;
 416                 case SENSOR_DRIVE:
 417                 {
 418                         const char *name;
 419
 420                         switch (s->value) {
 421                         case SENSOR_DRIVE_EMPTY:
 422                                 name = "empty";
 423                                 break;
 424                         case SENSOR_DRIVE_READY:
 425                                 name = "ready";
 426                                 break;
 427                         case SENSOR_DRIVE_POWERUP:
 428                                 name = "powering up";
 429                                 break;
 430                         case SENSOR_DRIVE_ONLINE:
 431                                 name = "online";
 432                                 break;
 433                         case SENSOR_DRIVE_IDLE:
 434                                 name = "idle";
 435                                 break;
 436                         case SENSOR_DRIVE_ACTIVE:
 437                                 name = "active";
 438                                 break;
 439                         case SENSOR_DRIVE_REBUILD:
 440                                 name = "rebuilding";
 441                                 break;
 442                         case SENSOR_DRIVE_POWERDOWN:
 443                                 name = "powering down";
 444                                 break;
 445                         case SENSOR_DRIVE_FAIL:
 446                                 name = "failed";
 447                                 break;
 448                         case SENSOR_DRIVE_PFAIL:
 449                                 name = "degraded";
 450                                 break;
 451                         default:
 452                                 name = "unknown";
 453                                 break;
 454                         }
 455                         printf(name);
 456                         break;
 457                 }
 458                 case SENSOR_TIMEDELTA:
 459                         printf("%.6f secs", s->value / 1000000000.0);
 460                         break;
 461                 default:
 462                         printf("unknown");
 463                 }
 464         }
 465
 466         if (s->desc[0] != '\0')
 467                 printf(" (%s)", s->desc);
 468
 469         switch (s->status) {
 470         case SENSOR_S_UNSPEC:
 471                 break;
 472         case SENSOR_S_OK:
 473                 printf(", OK");
 474                 break;
 475         case SENSOR_S_WARN:
 476                 printf(", WARNING");
 477                 break;
 478         case SENSOR_S_CRIT:
 479                 printf(", CRITICAL");
 480                 break;
 481         case SENSOR_S_UNKNOWN:
 482                 printf(", UNKNOWN");
 483                 break;
 484         }
 485
 486         if (s->tv.tv_sec) {
 487                 time_t t = s->tv.tv_sec;
 488                 char ct[26];
 489
 490                 ctime_r(&t, ct);
 491                 ct[19] = '\0';
 492                 printf(", %s.%03ld", ct, s->tv.tv_usec / 1000);
 493         }
 494
 495         return (0);
 496 }
 497
 498 static int
 499 T_dev_t(int l2, void *p)
 500 {
 501         dev_t *d = (dev_t *)p;
 502         if (l2 != sizeof(*d))
 503                 err(1, "T_dev_T %d != %zu", l2, sizeof(*d));
 504         if ((int)(*d) != -1) {
 505                 if (minor(*d) > 255 || minor(*d) < 0)
 506                         printf("{ major = %d, minor = 0x%x }",
 507                                 major(*d), minor(*d));
 508                 else
 509                         printf("{ major = %d, minor = %d }",
 510                                 major(*d), minor(*d));
 511         }
 512         return (0);
 513 }
 514
 515 static void
 516 set_T_dev_t(const char *path, void **val, size_t *size)
 517 {
 518         static struct stat statb;
 519
 520         if (strcmp(path, "none") && strcmp(path, "off")) {
 521                 int rc = stat (path, &statb);
 522                 if (rc) {
 523                         err(1, "cannot stat %s", path);
 524                 }
 525
 526                 if (!S_ISCHR(statb.st_mode)) {
 527                         errx(1, "must specify a device special file.");
 528                 }
 529         } else {
 530                 statb.st_rdev = NODEV;
 531         }
 532         *val = (char*) &statb.st_rdev;
 533         *size = sizeof statb.st_rdev;
 534 }
 535
 536 static int
 537 set_IK(const char *str, int *val)
 538 {
 539         float temp;
 540         int len, kelv;
 541         const char *p;
 542         char *endptr;
 543
 544         if ((len = strlen(str)) == 0)
 545                 return (0);
 546         p = &str[len - 1];
 547         if (*p == 'C' || *p == 'F') {
 548                 temp = strtof(str, &endptr);
 549                 if (endptr == str || endptr != p)
 550                         return 0;
 551                 if (*p == 'F')
 552                         temp = (temp - 32) * 5 / 9;
 553                 kelv = temp * 10 + 2732;
 554         } else {
 555                 /*
 556                  * I would like to just use, 0 but it would make numbers
 557                  * like '023' which were interpreted as decimal before
 558                  * suddenly interpreted as octal.
 559                  */
 560                 if (str[0] == '0' && (str[1] == 'x' || str[1] == 'X'))
 561                         kelv = (int)strtol(str, &endptr, 0);
 562                 else
 563                         kelv = (int)strtol(str, &endptr, 10);
 564                 if (endptr == str || *endptr != '\0')
 565                         return 0;
 566         }
 567         *val = kelv;
 568         return 1;
 569 }
 570
 571 /*
 572  * These functions uses a presently undocumented interface to the kernel
 573  * to walk the tree and get the type so it can print the value.
 574  * This interface is under work and consideration, and should probably
 575  * be killed with a big axe by the first person who can find the time.
 576  * (be aware though, that the proper interface isn't as obvious as it
 577  * may seem, there are various conflicting requirements.
 578  */
 579
 580 static int
 581 oidfmt(int *oid, size_t len, char *fmt, u_int *kind)
 582 {
 583         int qoid[CTL_MAXNAME+2];
 584         u_char buf[BUFSIZ];
 585         int i;
 586         size_t j;
 587
 588         qoid[0] = 0;
 589         qoid[1] = 4;
 590         memcpy(qoid + 2, oid, len * sizeof(int));
 591
 592         j = sizeof(buf);
 593         i = sysctl(qoid, len + 2, buf, &j, 0, 0);
 594         if (i)
 595                 err(1, "sysctl fmt %d %zu %d", i, j, errno);
 596
 597         if (kind)
 598                 *kind = *(u_int *)buf;
 599
 600         if (fmt)
 601                 strcpy(fmt, (char *)(buf + sizeof(u_int)));
 602         return 0;
 603 }
 604
 605 #ifdef __i386__
 606 /*
 607  * Code to map a bootdev major number into a suitable device name.
 608  * Major numbers are mapped into names as in boot2.c
 609  */
 610 struct _foo {
 611         int majdev;
 612         const char *name;
 613 } maj2name[] = {
 614         { 30,   "ad" },
 615         { 0,    "wd" },
 616         { 1,    "wfd" },
 617         { 2,    "fd" },
 618         { 4,    "da" },
 619         { -1,   NULL }  /* terminator */
 620 };
 621
 622 static int
 623 machdep_bootdev(u_long value)
 624 {
 625         int majdev, unit, slice, part;
 626         struct _foo *p;
 627
 628         if ((value & B_MAGICMASK) != B_DEVMAGIC) {
 629                 printf("invalid (0x%08lx)", value);
 630                 return 0;
 631         }
 632         majdev = B_TYPE(value);
 633         unit = B_UNIT(value);
 634         slice = B_SLICE(value);
 635         part = B_PARTITION(value);
 636         if (majdev == 2) {      /* floppy, as known to the boot block... */
 637                 printf("/dev/fd%d", unit);
 638                 return 0;
 639         }
 640         for (p = maj2name; p->name != NULL && p->majdev != majdev ; p++) ;
 641         if (p->name != NULL) {  /* found */
 642                 if (slice == WHOLE_DISK_SLICE)
 643                         printf("/dev/%s%d%c", p->name, unit, part);
 644                 else
 645                         printf("/dev/%s%ds%d%c",
 646                             p->name, unit, slice - BASE_SLICE + 1, part + 'a');
 647         } else
 648                 printf("unknown (major %d unit %d slice %d part %d)",
 649                         majdev, unit, slice, part);
 650         return 0;
 651 }
 652 #endif
 653
 654 /*
 655  * This formats and outputs the value of one variable
 656  *
 657  * Returns zero if anything was actually output.
 658  * Returns one if didn't know what to do with this.
 659  * Return minus one if we had errors.
 660  */
 661
 662 static int
 663 show_var(int *oid, size_t nlen)
 664 {
 665         u_char buf[BUFSIZ], *val = NULL, *p, *nul;
 666         char name[BUFSIZ], *fmt;
 667         const char *sep, *spacer;
 668         int qoid[CTL_MAXNAME+2];
 669         int i;
 670         size_t j, len;
 671         u_int kind;
 672         int (*func)(int, void *);
 673         int error = 0;
 674
 675         qoid[0] = 0;
 676         memcpy(qoid + 2, oid, nlen * sizeof(int));
 677
 678         qoid[1] = 1;
 679         j = sizeof(name);
 680         i = sysctl(qoid, nlen + 2, name, &j, 0, 0);
 681         if (i || !j)
 682                 err(1, "sysctl name %d %zu %d", i, j, errno);
 683
 684         if (Nflag) {
 685                 printf("%s", name);
 686                 return (0);
 687         }
 688
 689         if (eflag)
 690                 sep = "=";
 691         else
 692                 sep = ": ";
 693
 694         if (dflag) {    /* just print description */
 695                 qoid[1] = 5;
 696                 j = sizeof(buf);
 697                 i = sysctl(qoid, nlen + 2, buf, &j, 0, 0);
 698                 if (!nflag)
 699                         printf("%s%s", name, sep);
 700                 printf("%s", buf);
 701                 return(0);
 702         }
 703         /* find an estimate of how much we need for this var */
 704         j = 0;
 705         i = sysctl(oid, nlen, 0, &j, 0, 0);
 706         j += j; /* we want to be sure :-) */
 707
 708         val = malloc(j + 1);
 709         if (val == NULL)
 710                 return (1);
 711
 712         len = j;
 713         i = sysctl(oid, nlen, val, &len, 0, 0);
 714         if (i || !len) {
 715                 error = 1;
 716                 goto done;
 717         }
 718
 719         if (bflag) {
 720                 fwrite(val, 1, len, stdout);
 721                 goto done;
 722         }
 723
 724         val[len] = '\0';
 725         fmt = buf;
 726         oidfmt(oid, nlen, fmt, &kind);
 727         p = val;
 728         switch (*fmt) {
 729         case 'A':
 730                 if (!nflag)
 731                         printf("%s%s", name, sep);
 732                 nul = memchr(p, '\0', len);
 733                 fwrite(p, nul == NULL ? (int)len : nul - p, 1, stdout);
 734                 return (0);
 735
 736         case 'I':
 737                 if (!nflag)
 738                         printf("%s%s", name, sep);
 739                 fmt++;
 740                 spacer = "";
 741                 while (len >= sizeof(int)) {
 742                         if(*fmt == 'U')
 743                                 printf("%s%u", spacer, *(unsigned int *)p);
 744                         else if (*fmt == 'K' && *(int *)p >= 0)
 745                                 printf("%s%.1fC", spacer, (*(int *)p - 2732) / 10.0);
 746                         else
 747                                 printf("%s%d", spacer, *(int *)p);
 748                         spacer = " ";
 749                         len -= sizeof(int);
 750                         p += sizeof(int);
 751                 }
 752                 goto done;
 753
 754         case 'L':
 755                 if (!nflag)
 756                         printf("%s%s", name, sep);
 757                 fmt++;
 758 #ifdef __i386__
 759                 if (!strcmp(name, "machdep.guessed_bootdev"))
 760                         return machdep_bootdev(*(unsigned long *)p);
 761 #endif
 762                 spacer = "";
 763                 while (len >= sizeof(long)) {
 764                         if(*fmt == 'U')
 765                                 printf("%s%lu", spacer, *(unsigned long *)p);
 766                         else
 767                                 printf("%s%ld", spacer, *(long *)p);
 768                         spacer = " ";
 769                         len -= sizeof(long);
 770                         p += sizeof(long);
 771                 }
 772                 goto done;
 773
 774         case 'P':
 775                 if (!nflag)
 776                         printf("%s%s", name, sep);
 777                 printf("%p", *(void **)p);
 778                 goto done;
 779
 780         case 'Q':
 781                 if (!nflag)
 782                         printf("%s%s", name, sep);
 783                 fmt++;
 784                 spacer = "";
 785                 while (len >= sizeof(quad_t)) {
 786                         if(*fmt == 'U') {
 787                                 printf("%s%ju",
 788                                        spacer, (uintmax_t)*(u_quad_t *)p);
 789                         } else {
 790                                 printf("%s%jd",
 791                                        spacer, (intmax_t)*(quad_t *)p);
 792                         }
 793                         spacer = " ";
 794                         len -= sizeof(int64_t);
 795                         p += sizeof(int64_t);
 796                 }
 797                 goto done;
 798
 799         case 'T':
 800         case 'S':
 801                 if (!oflag && !xflag) {
 802                         i = 0;
 803                         if (strcmp(fmt, "S,clockinfo") == 0)
 804                                 func = S_clockinfo;
 805                         else if (strcmp(fmt, "S,timespec") == 0)
 806                                 func = S_timespec;
 807                         else if (strcmp(fmt, "S,timeval") == 0)
 808                                 func = S_timeval;
 809                         else if (strcmp(fmt, "S,loadavg") == 0)
 810                                 func = S_loadavg;
 811                         else if (strcmp(fmt, "S,sensor") == 0)
 812                                 func = S_sensor;
 813                         else if (strcmp(fmt, "T,dev_t") == 0)
 814                                 func = T_dev_t;
 815                         else if (strcmp(fmt, "T,udev_t") == 0)
 816                                 func = T_dev_t;
 817                         else
 818                                 func = NULL;
 819                         if (func) {
 820                                 if (!nflag)
 821                                         printf("%s%s", name, sep);
 822                                 error = (*func)(len, p);
 823                                 goto done;
 824                         }
 825                 }
 826                 /* FALL THROUGH */
 827         default:
 828                 if (!oflag && !xflag) {
 829                         error = 1;
 830                         goto done;
 831                 }
 832                 if (!nflag)
 833                         printf("%s%s", name, sep);
 834                 printf("Format:%s Length:%zu Dump:0x", fmt, len);
 835                 while (len-- && (xflag || p < val + 16))
 836                         printf("%02x", *p++);
 837                 if (!xflag && len > 16)
 838                         printf("...");
 839                 goto done;
 840         }
 841
 842 done:
 843         if (val != NULL)
 844                 free(val);
 845         return (error);
 846 }
 847
 848 static int
 849 sysctl_all(int *oid, size_t len)
 850 {
 851         int name1[22], name2[22];
 852         int retval;
 853         size_t i, l1, l2;
 854
 855         name1[0] = 0;
 856         name1[1] = 2;
 857         l1 = 2;
 858         if (len) {
 859                 memcpy(name1+2, oid, len * sizeof(int));
 860                 l1 += len;
 861         } else {
 862                 name1[2] = 1;
 863                 l1++;
 864         }
 865         for (;;) {
 866                 l2 = sizeof(name2);
 867                 retval = sysctl(name1, l1, name2, &l2, 0, 0);
 868                 if (retval < 0) {
 869                         if (errno == ENOENT)
 870                                 return 0;
 871                         else
 872                                 err(1, "sysctl(getnext) %d %zu", retval, l2);
 873                 }
 874
 875                 l2 /= sizeof(int);
 876
 877                 if (l2 < len)
 878                         return 0;
 879
 880                 for (i = 0; i < len; i++)
 881                         if (name2[i] != oid[i])
 882                                 return 0;
 883
 884                 retval = show_var(name2, l2);
 885                 if (retval == 0 && !bflag)
 886                         putchar('\n');
 887
 888                 memcpy(name1+2, name2, l2 * sizeof(int));
 889                 l1 = 2 + l2;
 890         }
 891 }