2 * SPDX-License-Identifier: Beerware
4 * ----------------------------------------------------------------------------
5 * "THE BEER-WARE LICENSE" (Revision 42):
6 * <phk@FreeBSD.org> wrote this file. As long as you retain this notice you
7 * can do whatever you want with this stuff. If we meet some day, and you think
8 * this stuff is worth it, you can buy me a beer in return. Poul-Henning Kamp
9 * ----------------------------------------------------------------------------
13 #include <sys/cdefs.h>
14 __FBSDID("$FreeBSD$");
16 #include <sys/param.h>
18 #include <sys/ctype.h>
19 #include <sys/kernel.h>
20 #include <sys/limits.h>
22 #include <sys/malloc.h>
23 #include <sys/mutex.h>
24 #include <sys/queue.h>
27 #include <sys/systm.h>
30 #include <dev/led/led.h>
33 LIST_ENTRY(ledsc) list;
46 static struct unrhdr *led_unit;
47 static struct mtx led_mtx;
48 static struct sx led_sx;
49 static LIST_HEAD(, ledsc) led_list = LIST_HEAD_INITIALIZER(led_list);
50 static struct callout led_ch;
51 static int blinkers = 0;
53 static MALLOC_DEFINE(M_LED, "LED", "LED driver");
60 LIST_FOREACH(sc, &led_list, list) {
67 if (*sc->ptr == '.') {
71 } else if (*sc->ptr == 'U' || *sc->ptr == 'u') {
72 if (sc->last_second == time_second)
74 sc->last_second = time_second;
75 sc->func(sc->private, *sc->ptr == 'U');
76 } else if (*sc->ptr >= 'a' && *sc->ptr <= 'j') {
77 sc->func(sc->private, 0);
78 sc->count = (*sc->ptr & 0xf) - 1;
79 } else if (*sc->ptr >= 'A' && *sc->ptr <= 'J') {
80 sc->func(sc->private, 1);
81 sc->count = (*sc->ptr & 0xf) - 1;
88 callout_reset(&led_ch, hz / 10, led_timeout, p);
92 led_state(struct ledsc *sc, struct sbuf **sb, int state)
94 struct sbuf *sb2 = NULL;
99 sc->str = sbuf_data(*sb);
100 if (sc->ptr == NULL) {
102 callout_reset(&led_ch, hz / 10, led_timeout, NULL);
110 sc->func(sc->private, state);
118 led_parse(const char *s, struct sbuf **sb, int *state)
123 * Handle "on" and "off" immediately so people can flash really
124 * fast from userland if they want to
126 if (*s == '0' || *s == '1') {
132 *sb = sbuf_new_auto();
137 * Flash, default is 100msec/100msec.
138 * 'f2' sets 200msec/200msec etc.
141 if (s[1] >= '1' && s[1] <= '9')
145 sbuf_printf(*sb, "%c%c", 'A' + i, 'a' + i);
148 * Digits, flashes out numbers.
149 * 'd12' becomes -__________-_-______________________________
165 * String, roll your own.
166 * 'a-j' gives "off" for n/10 sec.
167 * 'A-J' gives "on" for n/10 sec.
168 * no delay before repeat
169 * 'sAaAbBa' becomes _-_--__-
173 if ((*s >= 'a' && *s <= 'j') ||
174 (*s >= 'A' && *s <= 'J') ||
175 *s == 'U' || *s <= 'u' ||
177 sbuf_bcat(*sb, s, 1);
186 * 1sec pause between repeats
187 * '... --- ...' -> _-_-_-___---_---_---___-_-_-__________
206 error = sbuf_finish(*sb);
207 if (error != 0 || sbuf_len(*sb) == 0) {
215 led_write(struct cdev *dev, struct uio *uio, int ioflag)
219 struct sbuf *sb = NULL;
220 int error, state = 0;
222 if (uio->uio_resid > 512)
224 s = malloc(uio->uio_resid + 1, M_DEVBUF, M_WAITOK);
225 s[uio->uio_resid] = '\0';
226 error = uiomove(s, uio->uio_resid, uio);
231 error = led_parse(s, &sb, &state);
238 error = led_state(sc, &sb, state);
239 mtx_unlock(&led_mtx);
246 led_set(char const *name, char const *cmd)
249 struct sbuf *sb = NULL;
250 int error, state = 0;
252 error = led_parse(cmd, &sb, &state);
256 LIST_FOREACH(sc, &led_list, list) {
257 if (strcmp(sc->name, name) == 0)
261 error = led_state(sc, &sb, state);
264 mtx_unlock(&led_mtx);
270 static struct cdevsw led_cdevsw = {
271 .d_version = D_VERSION,
272 .d_write = led_write,
277 led_create(led_t *func, void *priv, char const *name)
280 return (led_create_state(func, priv, name, 0));
283 led_create_state(led_t *func, void *priv, char const *name, int state)
287 sc = malloc(sizeof *sc, M_LED, M_WAITOK | M_ZERO);
290 sc->name = strdup(name, M_LED);
291 sc->unit = alloc_unr(led_unit);
294 sc->dev = make_dev(&led_cdevsw, sc->unit,
295 UID_ROOT, GID_WHEEL, 0600, "led/%s", name);
299 sc->dev->si_drv1 = sc;
300 LIST_INSERT_HEAD(&led_list, sc, list);
302 sc->func(sc->private, state != 0);
303 mtx_unlock(&led_mtx);
309 led_destroy(struct cdev *dev)
318 LIST_REMOVE(sc, list);
319 if (LIST_EMPTY(&led_list))
320 callout_stop(&led_ch);
321 mtx_unlock(&led_mtx);
324 free_unr(led_unit, sc->unit);
326 if (sc->spec != NULL)
327 sbuf_delete(sc->spec);
328 free(sc->name, M_LED);
334 led_drvinit(void *unused)
337 led_unit = new_unrhdr(0, INT_MAX, NULL);
338 mtx_init(&led_mtx, "LED mtx", NULL, MTX_DEF);
339 sx_init(&led_sx, "LED sx");
340 callout_init_mtx(&led_ch, &led_mtx, 0);
343 SYSINIT(leddev, SI_SUB_DRIVERS, SI_ORDER_MIDDLE, led_drvinit, NULL);