Home | History | Annotate | Line # | Download | only in dev
fancontrol.c revision 1.2
      1  1.2  macallan /* $NetBSD: fancontrol.c,v 1.2 2021/07/28 00:36:00 macallan Exp $ */
      2  1.1  macallan 
      3  1.1  macallan /*-
      4  1.2  macallan  * Copyright (c) 2021 Michael Lorenz
      5  1.1  macallan  * All rights reserved.
      6  1.1  macallan  *
      7  1.1  macallan  * Redistribution and use in source and binary forms, with or without
      8  1.1  macallan  * modification, are permitted provided that the following conditions
      9  1.1  macallan  * are met:
     10  1.1  macallan  * 1. Redistributions of source code must retain the above copyright
     11  1.1  macallan  *    notice, this list of conditions and the following disclaimer.
     12  1.1  macallan  * 2. Redistributions in binary form must reproduce the above copyright
     13  1.1  macallan  *    notice, this list of conditions and the following disclaimer in the
     14  1.1  macallan  *    documentation and/or other materials provided with the distribution.
     15  1.1  macallan  *
     16  1.1  macallan  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     17  1.1  macallan  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     18  1.1  macallan  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     19  1.1  macallan  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     20  1.1  macallan  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     21  1.1  macallan  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     22  1.1  macallan  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     23  1.1  macallan  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     24  1.1  macallan  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     25  1.1  macallan  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     26  1.1  macallan  * POSSIBILITY OF SUCH DAMAGE.
     27  1.1  macallan  */
     28  1.1  macallan 
     29  1.1  macallan #include <sys/cdefs.h>
     30  1.2  macallan __KERNEL_RCSID(0, "$NetBSD: fancontrol.c,v 1.2 2021/07/28 00:36:00 macallan Exp $");
     31  1.1  macallan 
     32  1.1  macallan #include <sys/param.h>
     33  1.1  macallan #include <sys/systm.h>
     34  1.1  macallan #include <sys/device.h>
     35  1.1  macallan #include <sys/conf.h>
     36  1.1  macallan #include <sys/bus.h>
     37  1.1  macallan #include <dev/sysmon/sysmonvar.h>
     38  1.1  macallan 
     39  1.1  macallan #include <macppc/dev/fancontrolvar.h>
     40  1.1  macallan #include "opt_fancontrol.h"
     41  1.1  macallan 
     42  1.1  macallan #ifdef FANCONTROL_DEBUG
     43  1.1  macallan #define DPRINTF printf
     44  1.1  macallan #else
     45  1.1  macallan #define DPRINTF while (0) printf
     46  1.1  macallan #endif
     47  1.1  macallan 
     48  1.1  macallan int
     49  1.1  macallan fancontrol_adjust_zone(fancontrol_zone_t *z)
     50  1.1  macallan {
     51  1.1  macallan 	int temp, i, speed, diff, step;
     52  1.1  macallan 
     53  1.1  macallan 	if (z->nfans <= 0)
     54  1.1  macallan 		return -1;
     55  1.1  macallan 
     56  1.1  macallan 	temp = sysmon_envsys_get_max_value(z->filter, true);
     57  1.1  macallan 	if (temp == 0) {
     58  1.1  macallan 		/* no sensor data - leave fan alone */
     59  1.1  macallan 		DPRINTF("nodata\n");
     60  1.1  macallan 		return -1;
     61  1.1  macallan 	}
     62  1.1  macallan 
     63  1.1  macallan 	temp = (temp - 273150000) / 1000000;
     64  1.1  macallan 	diff = temp - z->Tmin;
     65  1.1  macallan 	DPRINTF("%s %d %d\n", z->name, temp, z->Tmin);
     66  1.1  macallan 	if (diff < 0) diff = 0;
     67  1.1  macallan 	diff = (100 * diff) / (z->Tmax - z->Tmin);
     68  1.1  macallan 
     69  1.2  macallan 	/* now adjust each fan to the new speed */
     70  1.1  macallan 	for (i = 0; i < z->nfans; i++) {
     71  1.1  macallan 		step = (z->fans[i].max_rpm - z->fans[i].min_rpm) / 100;
     72  1.1  macallan 		speed = z->fans[i].min_rpm + diff * step;
     73  1.2  macallan 		DPRINTF("diff %d base %d %d sp %d\n",
     74  1.2  macallan 		    diff, z->fans[i].min_rpm, z->fans[i].max_rpm, speed);
     75  1.1  macallan 		z->set_rpm(z->cookie, z->fans[i].num, speed);
     76  1.1  macallan 	}
     77  1.1  macallan 	return 0;
     78  1.1  macallan }
     79