Home | History | Annotate | Line # | Download | only in envstat
envstat.c revision 1.74
      1 /* $NetBSD: envstat.c,v 1.74 2010/02/09 05:32:51 cnst Exp $ */
      2 
      3 /*-
      4  * Copyright (c) 2007, 2008 Juan Romero Pardines.
      5  * All rights reserved.
      6  *
      7  * Redistribution and use in source and binary forms, with or without
      8  * modification, are permitted provided that the following conditions
      9  * are met:
     10  * 1. Redistributions of source code must retain the above copyright
     11  *    notice, this list of conditions and the following disclaimer.
     12  * 2. Redistributions in binary form must reproduce the above copyright
     13  *    notice, this list of conditions and the following disclaimer in the
     14  *    documentation and/or other materials provided with the distribution.
     15  *
     16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     17  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     18  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     19  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     20  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     21  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     22  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     23  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     24  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     25  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     26  */
     27 
     28 #include <sys/cdefs.h>
     29 #ifndef lint
     30 __RCSID("$NetBSD: envstat.c,v 1.74 2010/02/09 05:32:51 cnst Exp $");
     31 #endif /* not lint */
     32 
     33 #include <stdio.h>
     34 #include <stdlib.h>
     35 #include <stdbool.h>
     36 #include <string.h>
     37 #include <unistd.h>
     38 #include <fcntl.h>
     39 #include <err.h>
     40 #include <errno.h>
     41 #include <syslog.h>
     42 #include <sys/envsys.h>
     43 #include <sys/types.h>
     44 #include <sys/queue.h>
     45 #include <prop/proplib.h>
     46 
     47 #include "envstat.h"
     48 
     49 #define _PATH_DEV_SYSMON	"/dev/sysmon"
     50 
     51 #define ENVSYS_DFLAG	0x00000001	/* list registered devices */
     52 #define ENVSYS_FFLAG	0x00000002	/* show temp in farenheit */
     53 #define ENVSYS_LFLAG	0x00000004	/* list sensors */
     54 #define ENVSYS_XFLAG	0x00000008	/* externalize dictionary */
     55 #define ENVSYS_IFLAG 	0x00000010	/* skip invalid sensors */
     56 #define ENVSYS_SFLAG	0x00000020	/* remove all properties set */
     57 #define ENVSYS_TFLAG	0x00000040	/* make statistics */
     58 #define ENVSYS_KFLAG	0x00000100	/* show temp in kelvin */
     59 
     60 /* Sensors */
     61 typedef struct envsys_sensor {
     62 	SIMPLEQ_ENTRY(envsys_sensor) entries;
     63 	int32_t	cur_value;
     64 	int32_t	max_value;
     65 	int32_t	min_value;
     66 	int32_t	avg_value;
     67 	int32_t critcap_value;
     68 	int32_t	critmin_value;
     69 	int32_t	critmax_value;
     70 	int32_t warncap_value;
     71 	int32_t	warnmin_value;
     72 	int32_t	warnmax_value;
     73 	char	desc[ENVSYS_DESCLEN];
     74 	char	type[ENVSYS_DESCLEN];
     75 	char	drvstate[ENVSYS_DESCLEN];
     76 	char	battcap[ENVSYS_DESCLEN];
     77 	char 	dvname[ENVSYS_DESCLEN];
     78 	bool	invalid;
     79 	bool	visible;
     80 	bool	percentage;
     81 } *sensor_t;
     82 
     83 /* Sensor statistics */
     84 typedef struct envsys_sensor_stats {
     85 	SIMPLEQ_ENTRY(envsys_sensor_stats) entries;
     86 	int32_t	max;
     87 	int32_t	min;
     88 	int32_t avg;
     89 	char	desc[ENVSYS_DESCLEN];
     90 } *sensor_stats_t;
     91 
     92 /* Device properties */
     93 typedef struct envsys_dvprops {
     94 	uint64_t	refresh_timo;
     95 	/* more members could be added in the future */
     96 } *dvprops_t;
     97 
     98 /* A simple queue to manage all sensors */
     99 static SIMPLEQ_HEAD(, envsys_sensor) sensors_list =
    100     SIMPLEQ_HEAD_INITIALIZER(sensors_list);
    101 
    102 /* A simple queue to manage statistics for all sensors */
    103 static SIMPLEQ_HEAD(, envsys_sensor_stats) sensor_stats_list =
    104     SIMPLEQ_HEAD_INITIALIZER(sensor_stats_list);
    105 
    106 static unsigned int 	interval, flags, width;
    107 static char 		*mydevname, *sensors;
    108 static bool 		statistics;
    109 static u_int		header_passes;
    110 
    111 static int 		parse_dictionary(int);
    112 static int 		send_dictionary(FILE *, int);
    113 static int 		find_sensors(prop_array_t, const char *, dvprops_t);
    114 static void 		print_sensors(void);
    115 static int 		check_sensors(char *);
    116 static int 		usage(void);
    117 
    118 
    119 int main(int argc, char **argv)
    120 {
    121 	prop_dictionary_t dict;
    122 	int c, fd, rval = 0;
    123 	char *endptr, *configfile = NULL;
    124 	FILE *cf;
    125 
    126 	setprogname(argv[0]);
    127 
    128 	while ((c = getopt(argc, argv, "c:Dd:fIi:klrSs:Tw:Wx")) != -1) {
    129 		switch (c) {
    130 		case 'c':	/* configuration file */
    131 			configfile = strdup(optarg);
    132 			if (configfile == NULL)
    133 				err(EXIT_FAILURE, "strdup");
    134 			break;
    135 		case 'D':	/* list registered devices */
    136 			flags |= ENVSYS_DFLAG;
    137 			break;
    138 		case 'd':	/* show sensors of a specific device */
    139 			mydevname = strdup(optarg);
    140 			if (mydevname == NULL)
    141 				err(EXIT_FAILURE, "strdup");
    142 			break;
    143 		case 'f':	/* display temperature in Farenheit */
    144 			flags |= ENVSYS_FFLAG;
    145 			break;
    146 		case 'I':	/* Skips invalid sensors */
    147 			flags |= ENVSYS_IFLAG;
    148 			break;
    149 		case 'i':	/* wait time between intervals */
    150 			interval = (unsigned int)strtoul(optarg, &endptr, 10);
    151 			if (*endptr != '\0')
    152 				errx(EXIT_FAILURE, "bad interval '%s'", optarg);
    153 			break;
    154 		case 'k':	/* display temperature in Kelvin */
    155 			flags |= ENVSYS_KFLAG;
    156 			break;
    157 		case 'l':	/* list sensors */
    158 			flags |= ENVSYS_LFLAG;
    159 			break;
    160 		case 'r':
    161 			/*
    162 			 * This flag is noop.. it's only here for
    163 			 * compatibility with the old implementation.
    164 			 */
    165 			break;
    166 		case 'S':
    167 			flags |= ENVSYS_SFLAG;
    168 			break;
    169 		case 's':	/* only show specified sensors */
    170 			sensors = strdup(optarg);
    171 			if (sensors == NULL)
    172 				err(EXIT_FAILURE, "strdup");
    173 			break;
    174 		case 'T':	/* make statistics */
    175 			flags |= ENVSYS_TFLAG;
    176 			break;
    177 		case 'w':	/* width value for the lines */
    178 			width = (unsigned int)strtoul(optarg, &endptr, 10);
    179 			if (*endptr != '\0')
    180 				errx(EXIT_FAILURE, "bad width '%s'", optarg);
    181 			break;
    182 		case 'x':	/* print the dictionary in raw format */
    183 			flags |= ENVSYS_XFLAG;
    184 			break;
    185 		case 'W':	/* No longer used, retained for campatability */
    186 			break;
    187 		case '?':
    188 		default:
    189 			usage();
    190 			/* NOTREACHED */
    191 		}
    192 	}
    193 
    194 	argc -= optind;
    195 	argv += optind;
    196 
    197 	if (argc > 0)
    198 		usage();
    199 
    200 	/* Check if we want to make statistics */
    201 	if (flags & ENVSYS_TFLAG) {
    202 		if (!interval)
    203 			errx(EXIT_FAILURE,
    204 		    	    "-T cannot be used without an interval (-i)");
    205 		else
    206 			statistics = true;
    207 	}
    208 
    209 	if (mydevname && sensors)
    210 		errx(EXIT_FAILURE, "-d flag cannot be used with -s");
    211 
    212 	/* Open the device in ro mode */
    213 	if ((fd = open(_PATH_DEV_SYSMON, O_RDONLY)) == -1)
    214 		err(EXIT_FAILURE, "%s", _PATH_DEV_SYSMON);
    215 
    216 	/* Print dictionary in raw mode */
    217 	if (flags & ENVSYS_XFLAG) {
    218 		rval = prop_dictionary_recv_ioctl(fd,
    219 						  ENVSYS_GETDICTIONARY,
    220 						  &dict);
    221 		if (rval)
    222 			errx(EXIT_FAILURE, "%s", strerror(rval));
    223 
    224 		config_dict_dump(dict);
    225 
    226 	/* Remove all properties set in dictionary */
    227 	} else if (flags & ENVSYS_SFLAG) {
    228 		/* Close the ro descriptor */
    229 		(void)close(fd);
    230 
    231 		/* open the fd in rw mode */
    232 		if ((fd = open(_PATH_DEV_SYSMON, O_RDWR)) == -1)
    233 			err(EXIT_FAILURE, "%s", _PATH_DEV_SYSMON);
    234 
    235 		dict = prop_dictionary_create();
    236 		if (!dict)
    237 			err(EXIT_FAILURE, "prop_dictionary_create");
    238 
    239 		rval = prop_dictionary_set_bool(dict,
    240 						"envsys-remove-props",
    241 					        true);
    242 		if (!rval)
    243 			err(EXIT_FAILURE, "prop_dict_set_bool");
    244 
    245 		/* send the dictionary to the kernel now */
    246 		rval = prop_dictionary_send_ioctl(dict, fd, ENVSYS_REMOVEPROPS);
    247 		if (rval)
    248 			warnx("%s", strerror(rval));
    249 
    250 	/* Set properties in dictionary */
    251 	} else if (configfile) {
    252 		/*
    253 		 * Parse the configuration file.
    254 		 */
    255 		if ((cf = fopen(configfile, "r")) == NULL) {
    256 			syslog(LOG_ERR, "fopen failed: %s", strerror(errno));
    257 			errx(EXIT_FAILURE, "%s", strerror(errno));
    258 		}
    259 
    260 		rval = send_dictionary(cf, fd);
    261 		(void)fclose(cf);
    262 
    263 	/* Show sensors with interval */
    264 	} else if (interval) {
    265 		for (;;) {
    266 			rval = parse_dictionary(fd);
    267 			if (rval)
    268 				break;
    269 
    270 			(void)fflush(stdout);
    271 			(void)sleep(interval);
    272 		}
    273 	/* Show sensors without interval */
    274 	} else {
    275 		rval = parse_dictionary(fd);
    276 	}
    277 
    278 	if (sensors)
    279 		free(sensors);
    280 	if (mydevname)
    281 		free(mydevname);
    282 	(void)close(fd);
    283 
    284 	return rval ? EXIT_FAILURE : EXIT_SUCCESS;
    285 }
    286 
    287 static int
    288 send_dictionary(FILE *cf, int fd)
    289 {
    290 	prop_dictionary_t kdict, udict;
    291 	int error = 0;
    292 
    293 	/* Retrieve dictionary from kernel */
    294 	error = prop_dictionary_recv_ioctl(fd, ENVSYS_GETDICTIONARY, &kdict);
    295       	if (error)
    296 		return error;
    297 
    298 	config_parse(cf, kdict);
    299 
    300 	/*
    301 	 * Dictionary built by the parser from the configuration file.
    302 	 */
    303 	udict = config_dict_parsed();
    304 
    305 	/*
    306 	 * Close the read only descriptor and open a new one read write.
    307 	 */
    308 	(void)close(fd);
    309 	if ((fd = open(_PATH_DEV_SYSMON, O_RDWR)) == -1) {
    310 		error = errno;
    311 		warn("%s", _PATH_DEV_SYSMON);
    312 		return error;
    313 	}
    314 
    315 	/*
    316 	 * Send our sensor properties dictionary to the kernel then.
    317 	 */
    318 	error = prop_dictionary_send_ioctl(udict, fd, ENVSYS_SETDICTIONARY);
    319 	if (error)
    320 		warnx("%s", strerror(error));
    321 
    322 	prop_object_release(udict);
    323 	return error;
    324 }
    325 
    326 static sensor_stats_t
    327 find_stats_sensor(const char *desc)
    328 {
    329 	sensor_stats_t stats;
    330 
    331 	/*
    332 	 * If we matched a sensor by its description return it, otherwise
    333 	 * allocate a new one.
    334 	 */
    335 	SIMPLEQ_FOREACH(stats, &sensor_stats_list, entries)
    336 		if (strcmp(stats->desc, desc) == 0)
    337 			return stats;
    338 
    339 	stats = calloc(1, sizeof(*stats));
    340 	if (stats == NULL)
    341 		return NULL;
    342 
    343 	(void)strlcpy(stats->desc, desc, sizeof(stats->desc));
    344 	SIMPLEQ_INSERT_TAIL(&sensor_stats_list, stats, entries);
    345 
    346 	return stats;
    347 }
    348 
    349 static int
    350 parse_dictionary(int fd)
    351 {
    352 	sensor_t sensor = NULL;
    353 	dvprops_t edp = NULL;
    354 	prop_array_t array;
    355 	prop_dictionary_t dict;
    356 	prop_object_iterator_t iter;
    357 	prop_object_t obj;
    358 	const char *dnp = NULL;
    359 	int rval = 0;
    360 
    361 	/* receive dictionary from kernel */
    362 	rval = prop_dictionary_recv_ioctl(fd, ENVSYS_GETDICTIONARY, &dict);
    363 	if (rval)
    364 		return rval;
    365 
    366 	/* No drivers registered? */
    367 	if (prop_dictionary_count(dict) == 0) {
    368 		warnx("no drivers registered");
    369 		goto out;
    370 	}
    371 
    372 	if (mydevname) {
    373 		/* -d flag specified, print sensors only for this device */
    374 		obj = prop_dictionary_get(dict, mydevname);
    375 		if (prop_object_type(obj) != PROP_TYPE_ARRAY) {
    376 			warnx("unknown device `%s'", mydevname);
    377 			rval = EINVAL;
    378 			goto out;
    379 		}
    380 
    381 		rval = find_sensors(obj, mydevname, NULL);
    382 		if (rval)
    383 			goto out;
    384 
    385 	} else {
    386 		/* print sensors for all devices registered */
    387 		iter = prop_dictionary_iterator(dict);
    388 		if (iter == NULL) {
    389 			rval = EINVAL;
    390 			goto out;
    391 		}
    392 
    393 		/* iterate over the dictionary returned by the kernel */
    394 		while ((obj = prop_object_iterator_next(iter)) != NULL) {
    395 			array = prop_dictionary_get_keysym(dict, obj);
    396 			if (prop_object_type(array) != PROP_TYPE_ARRAY) {
    397 				warnx("no sensors found");
    398 				rval = EINVAL;
    399 				goto out;
    400 			}
    401 
    402 			edp = calloc(1, sizeof(*edp));
    403 			if (!edp) {
    404 				rval = ENOMEM;
    405 				goto out;
    406 			}
    407 
    408 			dnp = prop_dictionary_keysym_cstring_nocopy(obj);
    409 			rval = find_sensors(array, dnp, edp);
    410 			if (rval)
    411 				goto out;
    412 
    413 			if (((flags & ENVSYS_LFLAG) == 0) &&
    414 			    (flags & ENVSYS_DFLAG)) {
    415 				(void)printf("%s (checking events every ",
    416 				    dnp);
    417 				if (edp->refresh_timo == 1)
    418 					(void)printf("second)\n");
    419 				else
    420 					(void)printf("%d seconds)\n",
    421 					    (int)edp->refresh_timo);
    422 			}
    423 
    424 			free(edp);
    425 			edp = NULL;
    426 		}
    427 		prop_object_iterator_release(iter);
    428 	}
    429 
    430 	/* print sensors now */
    431 	if (sensors) {
    432 		char *str = strdup(sensors);
    433 		if (!str) {
    434 			rval = ENOMEM;
    435 			goto out;
    436 		}
    437 		rval = check_sensors(str);
    438 		free(str);
    439 		if (rval)
    440 			free(str);
    441 	}
    442 	if ((flags & ENVSYS_LFLAG) == 0 && (flags & ENVSYS_DFLAG) == 0)
    443 		print_sensors();
    444 	if (interval)
    445 		(void)printf("\n");
    446 
    447 out:
    448 	while ((sensor = SIMPLEQ_FIRST(&sensors_list))) {
    449 		SIMPLEQ_REMOVE_HEAD(&sensors_list, entries);
    450 		free(sensor);
    451 	}
    452 	if (edp)
    453 		free(edp);
    454 	prop_object_release(dict);
    455 	return rval;
    456 }
    457 
    458 static int
    459 find_sensors(prop_array_t array, const char *dvname, dvprops_t edp)
    460 {
    461 	prop_object_iterator_t iter;
    462 	prop_object_t obj, obj1, obj2;
    463 	prop_string_t state, desc = NULL;
    464 	sensor_t sensor = NULL;
    465 	sensor_stats_t stats = NULL;
    466 
    467 	iter = prop_array_iterator(array);
    468 	if (!iter)
    469 		return ENOMEM;
    470 
    471 	/* iterate over the array of dictionaries */
    472 	while ((obj = prop_object_iterator_next(iter)) != NULL) {
    473 		/* get the refresh-timeout property */
    474 		obj2 = prop_dictionary_get(obj, "device-properties");
    475 		if (obj2) {
    476 			if (!edp)
    477 				continue;
    478 			if (!prop_dictionary_get_uint64(obj2,
    479 							"refresh-timeout",
    480 							&edp->refresh_timo))
    481 				continue;
    482 		}
    483 
    484 		/* new sensor coming */
    485 		sensor = calloc(1, sizeof(*sensor));
    486 		if (sensor == NULL) {
    487 			prop_object_iterator_release(iter);
    488 			return ENOMEM;
    489 		}
    490 
    491 		/* copy device name */
    492 		(void)strlcpy(sensor->dvname, dvname, sizeof(sensor->dvname));
    493 
    494 		/* description string */
    495 		desc = prop_dictionary_get(obj, "description");
    496 		if (desc) {
    497 			/* copy description */
    498 			(void)strlcpy(sensor->desc,
    499 			    prop_string_cstring_nocopy(desc),
    500 		    	    sizeof(sensor->desc));
    501 		} else {
    502 			free(sensor);
    503 			continue;
    504 		}
    505 
    506 		/* type string */
    507 		obj1  = prop_dictionary_get(obj, "type");
    508 		if (obj1) {
    509 			/* copy type */
    510 			(void)strlcpy(sensor->type,
    511 		    	    prop_string_cstring_nocopy(obj1),
    512 		    	    sizeof(sensor->type));
    513 		} else {
    514 			free(sensor);
    515 			continue;
    516 		}
    517 
    518 		/* check sensor's state */
    519 		state = prop_dictionary_get(obj, "state");
    520 
    521 		/* mark sensors with invalid/unknown state */
    522 		if ((prop_string_equals_cstring(state, "invalid") ||
    523 		     prop_string_equals_cstring(state, "unknown")))
    524 			sensor->invalid = true;
    525 
    526 		/* get current drive state string */
    527 		obj1 = prop_dictionary_get(obj, "drive-state");
    528 		if (obj1) {
    529 			(void)strlcpy(sensor->drvstate,
    530 			    prop_string_cstring_nocopy(obj1),
    531 			    sizeof(sensor->drvstate));
    532 		}
    533 
    534 		/* get current battery capacity string */
    535 		obj1 = prop_dictionary_get(obj, "battery-capacity");
    536 		if (obj1) {
    537 			(void)strlcpy(sensor->battcap,
    538 			    prop_string_cstring_nocopy(obj1),
    539 			    sizeof(sensor->battcap));
    540 		}
    541 
    542 		/* get current value */
    543 		obj1 = prop_dictionary_get(obj, "cur-value");
    544 		if (obj1)
    545 			sensor->cur_value = prop_number_integer_value(obj1);
    546 
    547 		/* get max value */
    548 		obj1 = prop_dictionary_get(obj, "max-value");
    549 		if (obj1)
    550 			sensor->max_value = prop_number_integer_value(obj1);
    551 
    552 		/* get min value */
    553 		obj1 = prop_dictionary_get(obj, "min-value");
    554 		if (obj1)
    555 			sensor->min_value = prop_number_integer_value(obj1);
    556 
    557 		/* get avg value */
    558 		obj1 = prop_dictionary_get(obj, "avg-value");
    559 		if (obj1)
    560 			sensor->avg_value = prop_number_integer_value(obj1);
    561 
    562 		/* get percentage flag */
    563 		obj1 = prop_dictionary_get(obj, "want-percentage");
    564 		if (obj1)
    565 			sensor->percentage = prop_bool_true(obj1);
    566 
    567 		/* get critical max value if available */
    568 		obj1 = prop_dictionary_get(obj, "critical-max");
    569 		if (obj1)
    570 			sensor->critmax_value = prop_number_integer_value(obj1);
    571 
    572 		/* get critical min value if available */
    573 		obj1 = prop_dictionary_get(obj, "critical-min");
    574 		if (obj1)
    575 			sensor->critmin_value = prop_number_integer_value(obj1);
    576 
    577 		/* get critical capacity value if available */
    578 		obj1 = prop_dictionary_get(obj, "critical-capacity");
    579 		if (obj1)
    580 			sensor->critcap_value = prop_number_integer_value(obj1);
    581 
    582 		/* get warning max value if available */
    583 		obj1 = prop_dictionary_get(obj, "warning-max");
    584 		if (obj1)
    585 			sensor->warnmax_value = prop_number_integer_value(obj1);
    586 
    587 		/* get warning min value if available */
    588 		obj1 = prop_dictionary_get(obj, "warning-min");
    589 		if (obj1)
    590 			sensor->warnmin_value = prop_number_integer_value(obj1);
    591 
    592 		/* get warning capacity value if available */
    593 		obj1 = prop_dictionary_get(obj, "warning-capacity");
    594 		if (obj1)
    595 			sensor->warncap_value = prop_number_integer_value(obj1);
    596 
    597 		/* print sensor names if -l was given */
    598 		if (flags & ENVSYS_LFLAG) {
    599 			if (width)
    600 				(void)printf("%*s\n", width,
    601 				    prop_string_cstring_nocopy(desc));
    602 			else
    603 				(void)printf("%s\n",
    604 				    prop_string_cstring_nocopy(desc));
    605 		}
    606 
    607 		/* Add the sensor into the list */
    608 		SIMPLEQ_INSERT_TAIL(&sensors_list, sensor, entries);
    609 
    610 		/* Collect statistics if flag enabled */
    611 		if (statistics) {
    612 			/* ignore sensors not relevant for statistics */
    613 			if ((strcmp(sensor->type, "Indicator") == 0) ||
    614 			    (strcmp(sensor->type, "Battery charge") == 0) ||
    615 			    (strcmp(sensor->type, "Drive") == 0))
    616 				continue;
    617 
    618 			/* ignore invalid data */
    619 			if (sensor->invalid || !sensor->cur_value)
    620 				continue;
    621 
    622 			/* find or allocate a new statistics sensor */
    623 			stats = find_stats_sensor(sensor->desc);
    624 			if (stats == NULL) {
    625 				free(sensor);
    626 				prop_object_iterator_release(iter);
    627 				return ENOMEM;
    628 			}
    629 
    630 			/* collect data */
    631 			if (!stats->max)
    632 				stats->max = sensor->cur_value;
    633 			if (!stats->min)
    634 				stats->min = sensor->cur_value;
    635 
    636 			if (sensor->cur_value > stats->max)
    637 				stats->max = sensor->cur_value;
    638 
    639 			if (sensor->cur_value < stats->min)
    640 				stats->min = sensor->cur_value;
    641 
    642 			/* compute avg value */
    643 			if (stats->max && stats->min)
    644 				stats->avg =
    645 				    (sensor->cur_value + stats->max +
    646 				    stats->min) / 3;
    647 		}
    648 	}
    649 
    650 	/* free memory */
    651 	prop_object_iterator_release(iter);
    652 	return 0;
    653 }
    654 
    655 static int
    656 check_sensors(char *str)
    657 {
    658 	sensor_t sensor = NULL;
    659 	char *dvstring, *sstring, *p, *last;
    660 	bool sensor_found = false;
    661 
    662 	/*
    663 	 * Parse device name and sensor description and find out
    664 	 * if the sensor is valid.
    665 	 */
    666 	for ((p = strtok_r(str, ",", &last)); p;
    667 	     (p = strtok_r(NULL, ",", &last))) {
    668 		/* get device name */
    669 		dvstring = strtok(p, ":");
    670 		if (dvstring == NULL) {
    671 			warnx("missing device name");
    672 			return EINVAL;
    673 		}
    674 
    675 		/* get sensor description */
    676 		sstring = strtok(NULL, ":");
    677 		if (sstring == NULL) {
    678 			warnx("missing sensor description");
    679 			return EINVAL;
    680 		}
    681 
    682 		SIMPLEQ_FOREACH(sensor, &sensors_list, entries) {
    683 			/* skip until we match device */
    684 			if (strcmp(dvstring, sensor->dvname))
    685 				continue;
    686 			if (strcmp(sstring, sensor->desc) == 0) {
    687 				sensor->visible = true;
    688 				sensor_found = true;
    689 				break;
    690 			}
    691 		}
    692 		if (sensor_found == false) {
    693 			warnx("unknown sensor `%s' for device `%s'",
    694 		       	    sstring, dvstring);
    695 			return EINVAL;
    696 		}
    697 		sensor_found = false;
    698 	}
    699 
    700 	/* check if all sensors were ok, and error out if not */
    701 	SIMPLEQ_FOREACH(sensor, &sensors_list, entries)
    702 		if (sensor->visible)
    703 			return 0;
    704 
    705 	warnx("no sensors selected to display");
    706 	return EINVAL;
    707 }
    708 
    709 static void
    710 print_sensors(void)
    711 {
    712 	sensor_t sensor;
    713 	sensor_stats_t stats = NULL;
    714 	size_t maxlen = 0, ilen;
    715 	double temp = 0;
    716 	const char *invalid = "N/A", *degrees, *tmpstr, *stype;
    717 	const char *a, *b, *c, *d, *e, *units;
    718 
    719 	tmpstr = stype = d = e = NULL;
    720 
    721 	/* find the longest description */
    722 	SIMPLEQ_FOREACH(sensor, &sensors_list, entries)
    723 		if (strlen(sensor->desc) > maxlen)
    724 			maxlen = strlen(sensor->desc);
    725 
    726 	if (width)
    727 		maxlen = width;
    728 
    729 	/*
    730 	 * Print a header at the bottom only once showing different
    731 	 * members if the statistics flag is set or not.
    732 	 *
    733 	 * As bonus if -s is set, only print this header every 10 iterations
    734 	 * to avoid redundancy... like vmstat(1).
    735 	 */
    736 
    737 	a = "Current";
    738 	units = "Unit";
    739 	if (statistics) {
    740 		b = "Max";
    741 		c = "Min";
    742 		d = "Avg";
    743 	} else {
    744 		b = "CritMax";
    745 		c = "WarnMax";
    746 		d = "WarnMin";
    747 		e = "CritMin";
    748 	}
    749 
    750 	if (!sensors || (!header_passes && sensors) ||
    751 	    (header_passes == 10 && sensors)) {
    752 		(void)printf("%s%*s  %9s %8s %8s %8s %8s %4s\n",
    753 		    mydevname ? "" : "  ", (int)maxlen,
    754 		    "", a, b, c, d, e, units);
    755 		if (sensors && header_passes == 10)
    756 			header_passes = 0;
    757 	}
    758 	if (sensors)
    759 		header_passes++;
    760 
    761 	/* print the sensors */
    762 	SIMPLEQ_FOREACH(sensor, &sensors_list, entries) {
    763 		/* skip sensors that were not marked as visible */
    764 		if (sensors && !sensor->visible)
    765 			continue;
    766 
    767 		/* skip invalid sensors if -I is set */
    768 		if ((flags & ENVSYS_IFLAG) && sensor->invalid)
    769 			continue;
    770 
    771 		/* print device name */
    772 		if (!mydevname) {
    773 			if (tmpstr == NULL || strcmp(tmpstr, sensor->dvname))
    774 				printf("[%s]\n", sensor->dvname);
    775 
    776 			tmpstr = sensor->dvname;
    777 		}
    778 
    779 		/* find out the statistics sensor */
    780 		if (statistics) {
    781 			stats = find_stats_sensor(sensor->desc);
    782 			if (stats == NULL) {
    783 				/* No statistics for this sensor */
    784 				continue;
    785 			}
    786 		}
    787 
    788 		/* print sensor description */
    789 		(void)printf("%s%*.*s", mydevname ? "" : "  ", (int)maxlen,
    790 		    (int)maxlen, sensor->desc);
    791 
    792 		/* print invalid string */
    793 		if (sensor->invalid) {
    794 			(void)printf(": %9s\n", invalid);
    795 			continue;
    796 		}
    797 
    798 		/*
    799 		 * Indicator and Battery charge sensors.
    800 		 */
    801 		if ((strcmp(sensor->type, "Indicator") == 0) ||
    802 		    (strcmp(sensor->type, "Battery charge") == 0)) {
    803 
    804 			(void)printf(":%10s", sensor->cur_value ? "ON" : "OFF");
    805 
    806 /* convert and print a temp value in degC, degF, or Kelvin */
    807 #define PRINTTEMP(a)						\
    808 do {								\
    809 	if (a) {						\
    810 		temp = ((a) / 1000000.0);			\
    811 		if (flags & ENVSYS_FFLAG) {			\
    812 			temp = temp * (9.0 / 5.0) - 459.67;	\
    813 			degrees = "degF";			\
    814 		} else if (flags & ENVSYS_KFLAG) {		\
    815 			degrees = "K";				\
    816 		} else {					\
    817 			temp = temp - 273.15;			\
    818 			degrees = "degC";			\
    819 		}						\
    820 		(void)printf("%*.3f ", (int)ilen, temp);	\
    821 		ilen = 8;					\
    822 	} else							\
    823 		ilen += 9;					\
    824 } while (/* CONSTCOND */ 0)
    825 
    826 		/* temperatures */
    827 		} else if (strcmp(sensor->type, "Temperature") == 0) {
    828 
    829 			ilen = 10;
    830 			degrees = "";
    831 			(void)printf(":");
    832 			PRINTTEMP(sensor->cur_value);
    833 			stype = degrees;
    834 
    835 			ilen = 8;
    836 			if (statistics) {
    837 				/* show statistics if flag set */
    838 				PRINTTEMP(stats->max);
    839 				PRINTTEMP(stats->min);
    840 				PRINTTEMP(stats->avg);
    841 				ilen += 9;
    842 			} else {
    843 				PRINTTEMP(sensor->critmax_value);
    844 				PRINTTEMP(sensor->warnmax_value);
    845 				PRINTTEMP(sensor->warnmin_value);
    846 				PRINTTEMP(sensor->critmin_value);
    847 			}
    848 			(void)printf("%*s", (int)ilen - 4, stype);
    849 #undef PRINTTEMP
    850 
    851 		/* fans */
    852 		} else if (strcmp(sensor->type, "Fan") == 0) {
    853 			stype = "RPM";
    854 
    855 			(void)printf(":%10u ", sensor->cur_value);
    856 
    857 			ilen = 8;
    858 			if (statistics) {
    859 				/* show statistics if flag set */
    860 				(void)printf("%8u %8u %8u ",
    861 				    stats->max, stats->min, stats->avg);
    862 				ilen += 9;
    863 			} else {
    864 				if (sensor->critmax_value) {
    865 					(void)printf("%*u ", (int)ilen,
    866 					    sensor->critmax_value);
    867 					ilen = 8;
    868 				} else
    869 					ilen += 9;
    870 
    871 				if (sensor->warnmax_value) {
    872 					(void)printf("%*u ", (int)ilen,
    873 					    sensor->warnmax_value);
    874 					ilen = 8;
    875 				} else
    876 					ilen += 9;
    877 
    878 				if (sensor->warnmin_value) {
    879 					(void)printf("%*u ", (int)ilen,
    880 					    sensor->warnmin_value);
    881 					ilen = 8;
    882 				} else
    883 					ilen += 9;
    884 
    885 				if (sensor->critmin_value) {
    886 					(void)printf( "%*u ", (int)ilen,
    887 					    sensor->warnmax_value);
    888 					ilen = 8;
    889 				} else
    890 					ilen += 9;
    891 
    892 			}
    893 
    894 			(void)printf("%*s", (int)ilen - 4, stype);
    895 
    896 		/* integers */
    897 		} else if (strcmp(sensor->type, "Integer") == 0) {
    898 
    899 			(void)printf(":%10d", sensor->cur_value);
    900 
    901 		/* drives  */
    902 		} else if (strcmp(sensor->type, "Drive") == 0) {
    903 
    904 			(void)printf(":%10s", sensor->drvstate);
    905 
    906 		/* Battery capacity */
    907 		} else if (strcmp(sensor->type, "Battery capacity") == 0) {
    908 
    909 			(void)printf(":%10s", sensor->battcap);
    910 
    911 		/* everything else */
    912 		} else {
    913 			if (strcmp(sensor->type, "Voltage DC") == 0)
    914 				stype = "V";
    915 			else if (strcmp(sensor->type, "Voltage AC") == 0)
    916 				stype = "VAC";
    917 			else if (strcmp(sensor->type, "Ampere") == 0)
    918 				stype = "A";
    919 			else if (strcmp(sensor->type, "Watts") == 0)
    920 				stype = "W";
    921 			else if (strcmp(sensor->type, "Ohms") == 0)
    922 				stype = "Ohms";
    923 			else if (strcmp(sensor->type, "Watt hour") == 0)
    924 				stype = "Wh";
    925 			else if (strcmp(sensor->type, "Ampere hour") == 0)
    926 				stype = "Ah";
    927 
    928 			(void)printf(":%10.3f ",
    929 			    sensor->cur_value / 1000000.0);
    930 
    931 			ilen = 8;
    932 			if (!statistics) {
    933 
    934 /* Print percentage of max_value */
    935 #define PRINTPCT(a)							\
    936 do {									\
    937 	if (sensor->a && sensor->max_value) {				\
    938 		(void)printf("%*.3f%%", (int)ilen,			\
    939 			(sensor->a * 100.0) / sensor->max_value);	\
    940 		ilen = 8;						\
    941 	} else								\
    942 		ilen += 9;						\
    943 } while ( /* CONSTCOND*/ 0 )
    944 
    945 /* Print a generic sensor value */
    946 #define PRINTVAL(a)							\
    947 do {									\
    948 	if (sensor->a) {						\
    949 		(void)printf("%*.3f ", (int)ilen, sensor->a / 1000000.0); \
    950 		ilen = 8;						\
    951 	} else								\
    952 		ilen += 9;						\
    953 } while ( /* CONSTCOND*/ 0 )
    954 
    955 
    956 				if (sensor->percentage) {
    957 					ilen += 9 + 9;
    958 					PRINTPCT(warncap_value);
    959 					PRINTPCT(critcap_value);
    960 				} else {
    961 
    962 					PRINTVAL(critmax_value);
    963 					PRINTVAL(warnmax_value);
    964 					PRINTVAL(warnmin_value);
    965 					PRINTVAL(critmin_value);
    966 #undef PRINTPCT
    967 #undef PRINTVAL
    968 				}
    969 			}
    970 
    971 			if (statistics && !sensor->percentage) {
    972 				/* show statistics if flag set */
    973 				(void)printf("%8.3f %8.3f %8.3f ",
    974 				    stats->max / 1000000.0,
    975 				    stats->min / 1000000.0,
    976 				    stats->avg / 1000000.0);
    977 				ilen += 9;
    978 			}
    979 
    980 			(void)printf("%*s", (int)ilen - 4, stype);
    981 
    982 			if (sensor->percentage && sensor->max_value) {
    983 				(void)printf(" (%5.2f%%)",
    984 				    (sensor->cur_value * 100.0) /
    985 				    sensor->max_value);
    986 			}
    987 		}
    988 		(void)printf("\n");
    989 	}
    990 }
    991 
    992 static int
    993 usage(void)
    994 {
    995 	(void)fprintf(stderr, "Usage: %s [-DfIklrSTx] ", getprogname());
    996 	(void)fprintf(stderr, "[-c file] [-d device] [-i interval] ");
    997 	(void)fprintf(stderr, "[-s device:sensor,...] [-w width]\n");
    998 	exit(EXIT_FAILURE);
    999 	/* NOTREACHED */
   1000 }
   1001