1 /*-
2 * SPDX-License-Identifier: BSD-2-Clause
3 *
4 * Copyright (c) 2010 Nathan Whitehorn
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,
21 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
22 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
23 * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
24 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 * SUCH DAMAGE.
27 *
28 */
29
30 #include <sys/cdefs.h>
31 #include <sys/param.h>
32 #include <sys/systm.h>
33 #include <sys/module.h>
34 #include <sys/bus.h>
35 #include <sys/conf.h>
36 #include <sys/cpu.h>
37 #include <sys/ctype.h>
38 #include <sys/kernel.h>
39 #include <sys/sysctl.h>
40
41 #include <dev/iicbus/iicbus.h>
42 #include <dev/iicbus/iiconf.h>
43 #include <dev/ofw/ofw_bus.h>
44 #include <dev/ofw/openfirm.h>
45
46 #include <powerpc/powermac/powermac_thermal.h>
47
48 struct smu_sensor {
49 struct pmac_therm therm;
50 device_t dev;
51
52 cell_t reg;
53 enum {
54 SMU_CURRENT_SENSOR,
55 SMU_VOLTAGE_SENSOR,
56 SMU_POWER_SENSOR,
57 SMU_TEMP_SENSOR
58 } type;
59 };
60
61 static int smusat_probe(device_t);
62 static int smusat_attach(device_t);
63 static int smusat_sensor_sysctl(SYSCTL_HANDLER_ARGS);
64 static int smusat_sensor_read(struct smu_sensor *sens);
65
66 static MALLOC_DEFINE(M_SMUSAT, "smusat", "SMU Sattelite Sensors");
67
68 static device_method_t smusat_methods[] = {
69 /* Device interface */
70 DEVMETHOD(device_probe, smusat_probe),
71 DEVMETHOD(device_attach, smusat_attach),
72 { 0, 0 },
73 };
74
75 struct smusat_softc {
76 struct smu_sensor *sc_sensors;
77 int sc_nsensors;
78
79 uint8_t sc_cache[16];
80 time_t sc_last_update;
81 };
82
83 static driver_t smusat_driver = {
84 "smusat",
85 smusat_methods,
86 sizeof(struct smusat_softc)
87 };
88
89 DRIVER_MODULE(smusat, iicbus, smusat_driver, 0, 0);
90
91 static int
smusat_probe(device_t dev)92 smusat_probe(device_t dev)
93 {
94 const char *compat = ofw_bus_get_compat(dev);
95
96 if (compat == NULL || strcmp(compat, "smu-sat") != 0)
97 return (ENXIO);
98
99 device_set_desc(dev, "SMU Satellite Sensors");
100 return (0);
101 }
102
103 static int
smusat_attach(device_t dev)104 smusat_attach(device_t dev)
105 {
106 phandle_t child;
107 struct smu_sensor *sens;
108 struct smusat_softc *sc;
109 struct sysctl_oid *sensroot_oid;
110 struct sysctl_ctx_list *ctx;
111 char type[32];
112 int i;
113
114 sc = device_get_softc(dev);
115 sc->sc_nsensors = 0;
116 sc->sc_last_update = 0;
117
118 for (child = OF_child(ofw_bus_get_node(dev)); child != 0;
119 child = OF_peer(child))
120 sc->sc_nsensors++;
121
122 if (sc->sc_nsensors == 0) {
123 device_printf(dev, "WARNING: No sensors detected!\n");
124 return (-1);
125 }
126
127 sc->sc_sensors = malloc(sc->sc_nsensors * sizeof(struct smu_sensor),
128 M_SMUSAT, M_WAITOK | M_ZERO);
129
130 sens = sc->sc_sensors;
131 sc->sc_nsensors = 0;
132
133 ctx = device_get_sysctl_ctx(dev);
134 sensroot_oid = device_get_sysctl_tree(dev);
135
136 for (child = OF_child(ofw_bus_get_node(dev)); child != 0;
137 child = OF_peer(child)) {
138 char sysctl_name[40], sysctl_desc[40];
139 const char *units;
140
141 sens->dev = dev;
142 sens->reg = 0;
143 OF_getprop(child, "reg", &sens->reg, sizeof(sens->reg));
144 if (sens->reg < 0x30)
145 continue;
146 sens->reg -= 0x30;
147
148 OF_getprop(child, "zone", &sens->therm.zone, sizeof(int));
149 OF_getprop(child, "location", sens->therm.name,
150 sizeof(sens->therm.name));
151
152 OF_getprop(child, "device_type", type, sizeof(type));
153
154 if (strcmp(type, "current-sensor") == 0) {
155 sens->type = SMU_CURRENT_SENSOR;
156 units = "mA";
157 } else if (strcmp(type, "temp-sensor") == 0) {
158 sens->type = SMU_TEMP_SENSOR;
159 units = "C";
160 } else if (strcmp(type, "voltage-sensor") == 0) {
161 sens->type = SMU_VOLTAGE_SENSOR;
162 units = "mV";
163 } else if (strcmp(type, "power-sensor") == 0) {
164 sens->type = SMU_POWER_SENSOR;
165 units = "mW";
166 } else {
167 continue;
168 }
169
170 for (i = 0; i < strlen(sens->therm.name); i++) {
171 sysctl_name[i] = tolower(sens->therm.name[i]);
172 if (isspace(sysctl_name[i]))
173 sysctl_name[i] = '_';
174 }
175 sysctl_name[i] = 0;
176
177 sprintf(sysctl_desc,"%s (%s)", sens->therm.name, units);
178 SYSCTL_ADD_PROC(ctx, SYSCTL_CHILDREN(sensroot_oid), OID_AUTO,
179 sysctl_name, CTLTYPE_INT | CTLFLAG_RD | CTLFLAG_MPSAFE, dev,
180 sc->sc_nsensors, smusat_sensor_sysctl,
181 (sens->type == SMU_TEMP_SENSOR) ? "IK" : "I", sysctl_desc);
182
183 if (sens->type == SMU_TEMP_SENSOR) {
184 /* Make up some numbers */
185 sens->therm.target_temp = 500 + 2731; /* 50 C */
186 sens->therm.max_temp = 900 + 2731; /* 90 C */
187 sens->therm.read =
188 (int (*)(struct pmac_therm *))smusat_sensor_read;
189 pmac_thermal_sensor_register(&sens->therm);
190 }
191
192 sens++;
193 sc->sc_nsensors++;
194 }
195
196 return (0);
197 }
198
199 static int
smusat_updatecache(device_t dev)200 smusat_updatecache(device_t dev)
201 {
202 uint8_t reg = 0x3f;
203 uint8_t value[16];
204 struct smusat_softc *sc = device_get_softc(dev);
205 int error;
206 struct iic_msg msgs[2] = {
207 {0, IIC_M_WR | IIC_M_NOSTOP, 1, ®},
208 {0, IIC_M_RD, 16, value},
209 };
210
211 msgs[0].slave = msgs[1].slave = iicbus_get_addr(dev);
212 error = iicbus_transfer(dev, msgs, 2);
213 if (error)
214 return (error);
215
216 sc->sc_last_update = time_uptime;
217 memcpy(sc->sc_cache, value, sizeof(value));
218 return (0);
219 }
220
221 static int
smusat_sensor_read(struct smu_sensor * sens)222 smusat_sensor_read(struct smu_sensor *sens)
223 {
224 int value, error;
225 device_t dev;
226 struct smusat_softc *sc;
227
228 dev = sens->dev;
229 sc = device_get_softc(dev);
230 error = 0;
231
232 if (time_uptime - sc->sc_last_update > 1)
233 error = smusat_updatecache(dev);
234 if (error)
235 return (-error);
236
237 value = (sc->sc_cache[sens->reg*2] << 8) +
238 sc->sc_cache[sens->reg*2 + 1];
239 if (value == 0xffff) {
240 sc->sc_last_update = 0; /* Result was bad, don't cache */
241 return (-EINVAL);
242 }
243
244 switch (sens->type) {
245 case SMU_TEMP_SENSOR:
246 /* 16.16 */
247 value <<= 10;
248 /* From 16.16 to 0.1 C */
249 value = 10*(value >> 16) + ((10*(value & 0xffff)) >> 16) + 2731;
250 break;
251 case SMU_VOLTAGE_SENSOR:
252 /* 16.16 */
253 value <<= 4;
254 /* Kill the .16 */
255 value >>= 16;
256 break;
257 case SMU_CURRENT_SENSOR:
258 /* 16.16 */
259 value <<= 8;
260 /* Kill the .16 */
261 value >>= 16;
262 break;
263 case SMU_POWER_SENSOR:
264 /* Doesn't exist */
265 break;
266 }
267
268 return (value);
269 }
270
271 static int
smusat_sensor_sysctl(SYSCTL_HANDLER_ARGS)272 smusat_sensor_sysctl(SYSCTL_HANDLER_ARGS)
273 {
274 device_t dev;
275 struct smusat_softc *sc;
276 struct smu_sensor *sens;
277 int value, error;
278
279 dev = arg1;
280 sc = device_get_softc(dev);
281 sens = &sc->sc_sensors[arg2];
282
283 value = smusat_sensor_read(sens);
284 if (value < 0)
285 return (EBUSY);
286
287 error = sysctl_handle_int(oidp, &value, 0, req);
288
289 return (error);
290 }
291