/*- * Copyright (c) 2012 Andreas Tobler * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include __FBSDID("$FreeBSD$"); #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include /* Sensor: Maxim DS1631 */ #define DS1631_STOP 0x22 #define DS1631_START 0x51 #define DS1631_RESET 0x54 #define DS1631_TEMP 0xAA #define DS1631_CONTROL 0xAC #define DS1631_CONTROL_1SHOT 0x01 #define DS1631_CONTROL_9BIT 0x00 #define DS1631_CONTROL_10BIT 0x04 #define DS1631_CONTROL_11BIT 0x08 #define DS1631_CONTROL_12BIT 0x0C /* Regular bus attachment functions */ static int ds1631_probe(device_t); static int ds1631_attach(device_t); struct ds1631_softc { struct pmac_therm sc_sensor; device_t sc_dev; struct intr_config_hook enum_hook; uint32_t sc_addr; uint32_t init_done; }; struct write_data { uint8_t reg; uint8_t val; }; struct read_data { uint8_t reg; uint16_t val; }; /* Utility functions */ static int ds1631_sensor_read(struct ds1631_softc *sc); static int ds1631_sensor_sysctl(SYSCTL_HANDLER_ARGS); static void ds1631_start(void *xdev); static int ds1631_read_1(device_t dev, uint32_t addr, uint8_t reg, uint8_t *data); static int ds1631_read_2(device_t dev, uint32_t addr, uint8_t reg, uint16_t *data); static int ds1631_write(device_t dev, uint32_t addr, uint8_t reg, uint8_t *buff, int len); static device_method_t ds1631_methods[] = { /* Device interface */ DEVMETHOD(device_probe, ds1631_probe), DEVMETHOD(device_attach, ds1631_attach), { 0, 0 }, }; static driver_t ds1631_driver = { "ds1631", ds1631_methods, sizeof(struct ds1631_softc) }; static devclass_t ds1631_devclass; DRIVER_MODULE(ds1631, iicbus, ds1631_driver, ds1631_devclass, 0, 0); static int ds1631_write(device_t dev, uint32_t addr, uint8_t reg, uint8_t *buff, int len) { uint8_t buf[4]; int try = 0; struct iic_msg msg[] = { { addr, IIC_M_WR, 0, buf } }; /* Prepare the write msg. */ msg[0].len = len + 1; buf[0] = reg; memcpy(buf + 1, buff, len); for (;;) { if (iicbus_transfer(dev, msg, 1) == 0) return (0); if (++try > 5) { device_printf(dev, "iicbus write failed\n"); return (-1); } pause("ds1631_write", hz); } } static int ds1631_read_1(device_t dev, uint32_t addr, uint8_t reg, uint8_t *data) { uint8_t buf[4]; int err, try = 0; struct iic_msg msg[2] = { { addr, IIC_M_WR, 1, ® }, { addr, IIC_M_RD, 1, buf }, }; for (;;) { err = iicbus_transfer(dev, msg, 2); if (err != 0) goto retry; *data = *((uint8_t*)buf); return (0); retry: if (++try > 5) { device_printf(dev, "iicbus read failed\n"); return (-1); } pause("ds1631_read_1", hz); } } static int ds1631_read_2(device_t dev, uint32_t addr, uint8_t reg, uint16_t *data) { uint8_t buf[4]; int err, try = 0; struct iic_msg msg[2] = { { addr, IIC_M_WR, 1, ® }, { addr, IIC_M_RD, 2, buf }, }; for (;;) { err = iicbus_transfer(dev, msg, 2); if (err != 0) goto retry; *data = *((uint16_t*)buf); return (0); retry: if (++try > 5) { device_printf(dev, "iicbus read failed\n"); return (-1); } pause("ds1631_read_2", hz); } } static int ds1631_probe(device_t dev) { const char *name, *compatible; struct ds1631_softc *sc; name = ofw_bus_get_name(dev); compatible = ofw_bus_get_compat(dev); if (!name) return (ENXIO); if (strcmp(name, "temp-monitor") != 0 || strcmp(compatible, "ds1631") != 0 ) return (ENXIO); sc = device_get_softc(dev); sc->sc_dev = dev; sc->sc_addr = iicbus_get_addr(dev); device_set_desc(dev, "Temp-Monitor DS1631"); return (0); } static int ds1631_attach(device_t dev) { struct ds1631_softc *sc; sc = device_get_softc(dev); sc->enum_hook.ich_func = ds1631_start; sc->enum_hook.ich_arg = dev; /* * We have to wait until interrupts are enabled. I2C read and write * only works if the interrupts are available. * The unin/i2c is controlled by the htpic on unin. But this is not * the master. The openpic on mac-io is controlling the htpic. * This one gets attached after the mac-io probing and then the * interrupts will be available. */ if (config_intrhook_establish(&sc->enum_hook) != 0) return (ENOMEM); return (0); } static int ds1631_init(device_t dev, uint32_t addr) { uint8_t conf; int err; struct ds1631_softc *sc; sc = device_get_softc(dev); err = ds1631_read_1(dev, addr, DS1631_CONTROL, &conf); if (err < 0) { device_printf(dev, "ds1631 read config failed: %x\n", err); return (-1); } /* Stop the conversion if not in 1SHOT mode. */ if (conf & ~DS1631_CONTROL_1SHOT) err = ds1631_write(dev, addr, DS1631_STOP, &conf, 0); /* * Setup the resolution, 10-bit is enough. Each bit increase in * resolution doubles the conversion time. */ conf = DS1631_CONTROL_10BIT; err = ds1631_write(dev, addr, DS1631_CONTROL, &conf, 1); if (err < 0) { device_printf(dev, "ds1631 write config failed: %x\n", err); return (-1); } /* And now start....*/ err = ds1631_write(dev, addr, DS1631_START, &conf, 0); if (err < 0) { device_printf(dev, "ds1631 write start failed: %x\n", err); return (-1); } sc->init_done = 1; return (0); } static void ds1631_start(void *xdev) { phandle_t child, node; struct ds1631_softc *sc; struct sysctl_oid *oid, *sensroot_oid; struct sysctl_ctx_list *ctx; ssize_t plen; int i; char sysctl_desc[40], sysctl_name[40]; device_t dev = (device_t)xdev; sc = device_get_softc(dev); child = ofw_bus_get_node(dev); ctx = device_get_sysctl_ctx(dev); sensroot_oid = SYSCTL_ADD_NODE(ctx, SYSCTL_CHILDREN(device_get_sysctl_tree(dev)), OID_AUTO, "sensor", CTLFLAG_RD, 0, "DS1631 Sensor Information"); if (OF_getprop(child, "hwsensor-zone", &sc->sc_sensor.zone, sizeof(int)) < 0) sc->sc_sensor.zone = 0; plen = OF_getprop(child, "hwsensor-location", sc->sc_sensor.name, sizeof(sc->sc_sensor.name)); if (plen == -1) { /* * Ok, no hwsensor-location property, so let's look for a * location property on a sub node. */ for (node = OF_child(child); node; node = OF_peer(node)) plen = OF_getprop(node, "location", sc->sc_sensor.name, sizeof(sc->sc_sensor.name)); } if (plen == -1) { strcpy(sysctl_name, "sensor"); } else { for (i = 0; i < strlen(sc->sc_sensor.name); i++) { sysctl_name[i] = tolower(sc->sc_sensor.name[i]); if (isspace(sysctl_name[i])) sysctl_name[i] = '_'; } sysctl_name[i] = 0; } /* Make up target temperatures. These are low, for the drive bay. */ if (sc->sc_sensor.zone == 0) { sc->sc_sensor.target_temp = 400 + ZERO_C_TO_K; sc->sc_sensor.max_temp = 500 + ZERO_C_TO_K; } else { sc->sc_sensor.target_temp = 300 + ZERO_C_TO_K; sc->sc_sensor.max_temp = 500 + ZERO_C_TO_K; } sc->sc_sensor.read = (int (*)(struct pmac_therm *sc))(ds1631_sensor_read); pmac_thermal_sensor_register(&sc->sc_sensor); sprintf(sysctl_desc,"%s %s", sc->sc_sensor.name, "(C)"); oid = SYSCTL_ADD_NODE(ctx, SYSCTL_CHILDREN(sensroot_oid), OID_AUTO, sysctl_name, CTLFLAG_RD, 0, "Sensor Information"); SYSCTL_ADD_PROC(ctx, SYSCTL_CHILDREN(oid), OID_AUTO, "temp", CTLTYPE_INT | CTLFLAG_RD | CTLFLAG_MPSAFE, dev, 0, ds1631_sensor_sysctl, "IK", sysctl_desc); config_intrhook_disestablish(&sc->enum_hook); } static int ds1631_sensor_read(struct ds1631_softc *sc) { uint16_t buf[2]; uint16_t read; int err; if (!sc->init_done) ds1631_init(sc->sc_dev, sc->sc_addr); err = ds1631_read_2(sc->sc_dev, sc->sc_addr, DS1631_TEMP, buf); if (err < 0) { device_printf(sc->sc_dev, "ds1631 read TEMP failed: %x\n", err); return (-1); } read = *((int16_t *)buf); /* * The default mode of the ADC is 12-bit, the resolution is 0.0625 C * per bit. The temperature is in tenth kelvin. * We use 10-bit resolution which seems enough, resolution is 0.25 C. */ return (((int16_t)(read) >> 6) * 25 / 10 + ZERO_C_TO_K); } static int ds1631_sensor_sysctl(SYSCTL_HANDLER_ARGS) { device_t dev; struct ds1631_softc *sc; int error; unsigned int temp; dev = arg1; sc = device_get_softc(dev); temp = ds1631_sensor_read(sc); if (temp < 0) return (EIO); error = sysctl_handle_int(oidp, &temp, 0, req); return (error); }