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