mixerctl.c revision 1.27 1 1.27 kre /* $NetBSD: mixerctl.c,v 1.27 2017/02/23 14:09:11 kre Exp $ */
2 1.1 augustss
3 1.1 augustss /*
4 1.1 augustss * Copyright (c) 1997 The NetBSD Foundation, Inc.
5 1.1 augustss * All rights reserved.
6 1.1 augustss *
7 1.14 augustss * This code is derived from software contributed to The NetBSD Foundation
8 1.20 salo * by Lennart Augustsson (augustss (at) NetBSD.org) and Chuck Cranor.
9 1.1 augustss *
10 1.1 augustss * Redistribution and use in source and binary forms, with or without
11 1.1 augustss * modification, are permitted provided that the following conditions
12 1.1 augustss * are met:
13 1.1 augustss * 1. Redistributions of source code must retain the above copyright
14 1.1 augustss * notice, this list of conditions and the following disclaimer.
15 1.1 augustss * 2. Redistributions in binary form must reproduce the above copyright
16 1.1 augustss * notice, this list of conditions and the following disclaimer in the
17 1.1 augustss * documentation and/or other materials provided with the distribution.
18 1.1 augustss *
19 1.1 augustss * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 1.1 augustss * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 1.1 augustss * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 1.7 jtc * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 1.7 jtc * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 1.1 augustss * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 1.1 augustss * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 1.1 augustss * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 1.1 augustss * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 1.1 augustss * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 1.1 augustss * POSSIBILITY OF SUCH DAMAGE.
30 1.1 augustss */
31 1.18 agc #include <sys/cdefs.h>
32 1.18 agc
33 1.18 agc #ifndef lint
34 1.27 kre __RCSID("$NetBSD: mixerctl.c,v 1.27 2017/02/23 14:09:11 kre Exp $");
35 1.18 agc #endif
36 1.18 agc
37 1.1 augustss #include <stdio.h>
38 1.1 augustss #include <stdlib.h>
39 1.1 augustss #include <fcntl.h>
40 1.1 augustss #include <err.h>
41 1.1 augustss #include <unistd.h>
42 1.1 augustss #include <string.h>
43 1.1 augustss #include <sys/types.h>
44 1.1 augustss #include <sys/ioctl.h>
45 1.1 augustss #include <sys/audioio.h>
46 1.1 augustss
47 1.17 augustss #include <paths.h>
48 1.12 augustss
49 1.1 augustss FILE *out = stdout;
50 1.15 augustss int vflag = 0;
51 1.1 augustss
52 1.1 augustss char *prog;
53 1.1 augustss
54 1.1 augustss struct field {
55 1.1 augustss char *name;
56 1.1 augustss mixer_ctrl_t *valp;
57 1.1 augustss mixer_devinfo_t *infp;
58 1.4 augustss char changed;
59 1.1 augustss } *fields, *rfields;
60 1.1 augustss
61 1.1 augustss mixer_ctrl_t *values;
62 1.1 augustss mixer_devinfo_t *infos;
63 1.1 augustss
64 1.27 kre static const char mixer_path[] = _PATH_MIXER;
65 1.27 kre
66 1.15 augustss static char *
67 1.15 augustss catstr(char *p, char *q)
68 1.1 augustss {
69 1.19 itojun char *r;
70 1.19 itojun
71 1.19 itojun asprintf(&r, "%s.%s", p, q);
72 1.19 itojun if (!r)
73 1.19 itojun err(1, "malloc");
74 1.1 augustss return r;
75 1.1 augustss }
76 1.1 augustss
77 1.15 augustss static struct field *
78 1.15 augustss findfield(char *name)
79 1.1 augustss {
80 1.1 augustss int i;
81 1.26 isaki for (i = 0; fields[i].name; i++)
82 1.1 augustss if (strcmp(fields[i].name, name) == 0)
83 1.1 augustss return &fields[i];
84 1.1 augustss return 0;
85 1.1 augustss }
86 1.1 augustss
87 1.15 augustss static void
88 1.23 lukem prfield(struct field *p, const char *sep, int prvalset)
89 1.1 augustss {
90 1.1 augustss mixer_ctrl_t *m;
91 1.3 augustss int i, n;
92 1.1 augustss
93 1.1 augustss if (sep)
94 1.1 augustss fprintf(out, "%s%s", p->name, sep);
95 1.1 augustss m = p->valp;
96 1.1 augustss switch(m->type) {
97 1.1 augustss case AUDIO_MIXER_ENUM:
98 1.26 isaki for (i = 0; i < p->infp->un.e.num_mem; i++)
99 1.4 augustss if (p->infp->un.e.member[i].ord == m->un.ord)
100 1.4 augustss fprintf(out, "%s",
101 1.26 isaki p->infp->un.e.member[i].label.name);
102 1.1 augustss if (prvalset) {
103 1.1 augustss fprintf(out, " [ ");
104 1.26 isaki for (i = 0; i < p->infp->un.e.num_mem; i++)
105 1.15 augustss fprintf(out, "%s ",
106 1.15 augustss p->infp->un.e.member[i].label.name);
107 1.1 augustss fprintf(out, "]");
108 1.1 augustss }
109 1.1 augustss break;
110 1.1 augustss case AUDIO_MIXER_SET:
111 1.26 isaki for (n = i = 0; i < p->infp->un.s.num_mem; i++)
112 1.3 augustss if (m->un.mask & p->infp->un.s.member[i].mask)
113 1.3 augustss fprintf(out, "%s%s", n++ ? "," : "",
114 1.26 isaki p->infp->un.s.member[i].label.name);
115 1.1 augustss if (prvalset) {
116 1.1 augustss fprintf(out, " { ");
117 1.26 isaki for (i = 0; i < p->infp->un.s.num_mem; i++)
118 1.15 augustss fprintf(out, "%s ",
119 1.15 augustss p->infp->un.s.member[i].label.name);
120 1.1 augustss fprintf(out, "}");
121 1.1 augustss }
122 1.1 augustss break;
123 1.1 augustss case AUDIO_MIXER_VALUE:
124 1.1 augustss if (m->un.value.num_channels == 1)
125 1.1 augustss fprintf(out, "%d", m->un.value.level[0]);
126 1.1 augustss else
127 1.1 augustss fprintf(out, "%d,%d", m->un.value.level[0],
128 1.26 isaki m->un.value.level[1]);
129 1.15 augustss if (prvalset) {
130 1.9 augustss fprintf(out, " %s", p->infp->un.v.units.name);
131 1.15 augustss if (p->infp->un.v.delta)
132 1.15 augustss fprintf(out, " delta=%d", p->infp->un.v.delta);
133 1.15 augustss }
134 1.1 augustss break;
135 1.1 augustss default:
136 1.5 augustss printf("\n");
137 1.1 augustss errx(1, "Invalid format.");
138 1.1 augustss }
139 1.1 augustss }
140 1.1 augustss
141 1.15 augustss static int
142 1.15 augustss rdfield(struct field *p, char *q)
143 1.1 augustss {
144 1.1 augustss mixer_ctrl_t *m;
145 1.4 augustss int v, v0, v1, mask;
146 1.1 augustss int i;
147 1.1 augustss char *s;
148 1.1 augustss
149 1.1 augustss m = p->valp;
150 1.1 augustss switch(m->type) {
151 1.1 augustss case AUDIO_MIXER_ENUM:
152 1.26 isaki for (i = 0; i < p->infp->un.e.num_mem; i++)
153 1.1 augustss if (strcmp(p->infp->un.e.member[i].label.name, q) == 0)
154 1.1 augustss break;
155 1.1 augustss if (i < p->infp->un.e.num_mem)
156 1.3 augustss m->un.ord = p->infp->un.e.member[i].ord;
157 1.4 augustss else {
158 1.1 augustss warnx("Bad enum value %s", q);
159 1.4 augustss return 0;
160 1.4 augustss }
161 1.1 augustss break;
162 1.1 augustss case AUDIO_MIXER_SET:
163 1.4 augustss mask = 0;
164 1.26 isaki for (v = 0; q && *q; q = s) {
165 1.1 augustss s = strchr(q, ',');
166 1.1 augustss if (s)
167 1.1 augustss *s++ = 0;
168 1.26 isaki for (i = 0; i < p->infp->un.s.num_mem; i++)
169 1.15 augustss if (strcmp(p->infp->un.s.member[i].label.name,
170 1.26 isaki q) == 0)
171 1.1 augustss break;
172 1.3 augustss if (i < p->infp->un.s.num_mem) {
173 1.4 augustss mask |= p->infp->un.s.member[i].mask;
174 1.4 augustss } else {
175 1.2 augustss warnx("Bad set value %s", q);
176 1.4 augustss return 0;
177 1.4 augustss }
178 1.1 augustss }
179 1.4 augustss m->un.mask = mask;
180 1.1 augustss break;
181 1.1 augustss case AUDIO_MIXER_VALUE:
182 1.1 augustss if (m->un.value.num_channels == 1) {
183 1.1 augustss if (sscanf(q, "%d", &v) == 1) {
184 1.1 augustss m->un.value.level[0] = v;
185 1.1 augustss } else {
186 1.1 augustss warnx("Bad number %s", q);
187 1.4 augustss return 0;
188 1.1 augustss }
189 1.1 augustss } else {
190 1.1 augustss if (sscanf(q, "%d,%d", &v0, &v1) == 2) {
191 1.1 augustss m->un.value.level[0] = v0;
192 1.1 augustss m->un.value.level[1] = v1;
193 1.1 augustss } else if (sscanf(q, "%d", &v) == 1) {
194 1.1 augustss m->un.value.level[0] = m->un.value.level[1] = v;
195 1.1 augustss } else {
196 1.1 augustss warnx("Bad numbers %s", q);
197 1.4 augustss return 0;
198 1.1 augustss }
199 1.1 augustss }
200 1.1 augustss break;
201 1.1 augustss default:
202 1.1 augustss errx(1, "Invalid format.");
203 1.1 augustss }
204 1.4 augustss p->changed = 1;
205 1.4 augustss return 1;
206 1.1 augustss }
207 1.1 augustss
208 1.15 augustss static int
209 1.15 augustss incfield(struct field *p, int inc)
210 1.15 augustss {
211 1.15 augustss mixer_ctrl_t *m;
212 1.15 augustss int i, v;
213 1.15 augustss
214 1.15 augustss m = p->valp;
215 1.15 augustss switch(m->type) {
216 1.15 augustss case AUDIO_MIXER_ENUM:
217 1.15 augustss m->un.ord += inc;
218 1.15 augustss if (m->un.ord < 0)
219 1.26 isaki m->un.ord = p->infp->un.e.num_mem - 1;
220 1.15 augustss if (m->un.ord >= p->infp->un.e.num_mem)
221 1.15 augustss m->un.ord = 0;
222 1.15 augustss break;
223 1.15 augustss case AUDIO_MIXER_SET:
224 1.15 augustss m->un.mask += inc;
225 1.15 augustss if (m->un.mask < 0)
226 1.15 augustss m->un.mask = (1 << p->infp->un.s.num_mem) - 1;
227 1.15 augustss if (m->un.mask >= (1 << p->infp->un.s.num_mem))
228 1.15 augustss m->un.mask = 0;
229 1.15 augustss warnx("Can't ++/-- %s", p->name);
230 1.15 augustss return 0;
231 1.15 augustss case AUDIO_MIXER_VALUE:
232 1.15 augustss if (p->infp->un.v.delta)
233 1.15 augustss inc *= p->infp->un.v.delta;
234 1.15 augustss for (i = 0; i < m->un.value.num_channels; i++) {
235 1.15 augustss v = m->un.value.level[i];
236 1.15 augustss v += inc;
237 1.15 augustss if (v < AUDIO_MIN_GAIN)
238 1.15 augustss v = AUDIO_MIN_GAIN;
239 1.15 augustss if (v > AUDIO_MAX_GAIN)
240 1.15 augustss v = AUDIO_MAX_GAIN;
241 1.15 augustss m->un.value.level[i] = v;
242 1.15 augustss }
243 1.15 augustss break;
244 1.15 augustss default:
245 1.15 augustss errx(1, "Invalid format.");
246 1.15 augustss }
247 1.15 augustss p->changed = 1;
248 1.15 augustss return 1;
249 1.15 augustss }
250 1.15 augustss
251 1.15 augustss static void
252 1.23 lukem wrarg(int fd, char *arg, const char *sep)
253 1.15 augustss {
254 1.15 augustss char *q;
255 1.15 augustss struct field *p;
256 1.15 augustss mixer_ctrl_t val;
257 1.15 augustss int incdec, r;
258 1.15 augustss
259 1.15 augustss q = strchr(arg, '=');
260 1.15 augustss if (q == NULL) {
261 1.15 augustss int l = strlen(arg);
262 1.15 augustss incdec = 0;
263 1.15 augustss if (l > 2 && arg[l-2] == '+' && arg[l-1] == '+')
264 1.15 augustss incdec = 1;
265 1.15 augustss else if (l > 2 && arg[l-2] == '-' && arg[l-1] == '-')
266 1.15 augustss incdec = -1;
267 1.15 augustss else {
268 1.15 augustss warnx("No `=' in %s", arg);
269 1.15 augustss return;
270 1.15 augustss }
271 1.15 augustss arg[l-2] = 0;
272 1.21 cube } else if (q > arg && (*(q-1) == '+' || *(q-1) == '-')) {
273 1.21 cube if (sscanf(q+1, "%d", &incdec) != 1) {
274 1.21 cube warnx("Bad number %s", q+1);
275 1.21 cube return;
276 1.21 cube }
277 1.21 cube if (*(q-1) == '-')
278 1.21 cube incdec *= -1;
279 1.21 cube *(q-1) = 0;
280 1.21 cube q = NULL;
281 1.26 isaki } else
282 1.15 augustss *q++ = 0;
283 1.15 augustss
284 1.15 augustss p = findfield(arg);
285 1.15 augustss if (p == NULL) {
286 1.15 augustss warnx("field %s does not exist", arg);
287 1.15 augustss return;
288 1.15 augustss }
289 1.15 augustss
290 1.15 augustss val = *p->valp;
291 1.15 augustss if (q != NULL)
292 1.15 augustss r = rdfield(p, q);
293 1.15 augustss else
294 1.15 augustss r = incfield(p, incdec);
295 1.15 augustss if (r) {
296 1.15 augustss if (ioctl(fd, AUDIO_MIXER_WRITE, p->valp) < 0)
297 1.15 augustss warn("AUDIO_MIXER_WRITE");
298 1.15 augustss else if (sep) {
299 1.15 augustss *p->valp = val;
300 1.15 augustss prfield(p, ": ", 0);
301 1.15 augustss ioctl(fd, AUDIO_MIXER_READ, p->valp);
302 1.15 augustss printf(" -> ");
303 1.15 augustss prfield(p, 0, 0);
304 1.15 augustss printf("\n");
305 1.15 augustss }
306 1.15 augustss }
307 1.15 augustss }
308 1.15 augustss
309 1.15 augustss static void
310 1.23 lukem prarg(int fd, char *arg, const char *sep)
311 1.15 augustss {
312 1.15 augustss struct field *p;
313 1.15 augustss
314 1.15 augustss p = findfield(arg);
315 1.15 augustss if (p == NULL)
316 1.15 augustss warnx("field %s does not exist", arg);
317 1.15 augustss else
318 1.15 augustss prfield(p, sep, vflag), fprintf(out, "\n");
319 1.15 augustss }
320 1.15 augustss
321 1.27 kre static inline void __dead
322 1.27 kre usage(void)
323 1.27 kre {
324 1.27 kre fprintf(out, "%s [-d file] [-v] [-n] name ...\n", prog);
325 1.27 kre fprintf(out, "%s [-d file] [-v] [-n] -w name=value ...\n",prog);
326 1.27 kre fprintf(out, "%s [-d file] [-v] [-n] -a\n", prog);
327 1.27 kre exit(0);
328 1.27 kre }
329 1.27 kre
330 1.6 augustss int
331 1.15 augustss main(int argc, char **argv)
332 1.1 augustss {
333 1.6 augustss int fd, i, j, ch, pos;
334 1.15 augustss int aflag = 0, wflag = 0;
335 1.23 lukem const char *file;
336 1.23 lukem const char *sep = "=";
337 1.1 augustss mixer_devinfo_t dinfo;
338 1.1 augustss int ndev;
339 1.10 augustss
340 1.11 augustss file = getenv("MIXERDEVICE");
341 1.17 augustss if (file == NULL)
342 1.27 kre file = mixer_path;
343 1.1 augustss
344 1.1 augustss prog = *argv;
345 1.1 augustss
346 1.16 jdolecek while ((ch = getopt(argc, argv, "ad:f:nvw")) != -1) {
347 1.1 augustss switch(ch) {
348 1.1 augustss case 'a':
349 1.1 augustss aflag++;
350 1.1 augustss break;
351 1.1 augustss case 'w':
352 1.1 augustss wflag++;
353 1.1 augustss break;
354 1.1 augustss case 'v':
355 1.1 augustss vflag++;
356 1.1 augustss break;
357 1.1 augustss case 'n':
358 1.1 augustss sep = 0;
359 1.1 augustss break;
360 1.16 jdolecek case 'f': /* compatibility */
361 1.16 jdolecek case 'd':
362 1.1 augustss file = optarg;
363 1.1 augustss break;
364 1.1 augustss case '?':
365 1.1 augustss default:
366 1.27 kre usage();
367 1.1 augustss }
368 1.1 augustss }
369 1.1 augustss argc -= optind;
370 1.1 augustss argv += optind;
371 1.26 isaki
372 1.27 kre if (aflag ? (argc != 0 || wflag) : argc == 0)
373 1.27 kre usage();
374 1.27 kre
375 1.1 augustss fd = open(file, O_RDWR);
376 1.27 kre /* Try with mixer0 but only if using the default device. */
377 1.27 kre if (fd < 0 && file == mixer_path) {
378 1.26 isaki file = _PATH_MIXER0;
379 1.26 isaki fd = open(file, O_RDWR);
380 1.26 isaki }
381 1.17 augustss
382 1.1 augustss if (fd < 0)
383 1.1 augustss err(1, "%s", file);
384 1.1 augustss
385 1.26 isaki for (ndev = 0; ; ndev++) {
386 1.1 augustss dinfo.index = ndev;
387 1.1 augustss if (ioctl(fd, AUDIO_MIXER_DEVINFO, &dinfo) < 0)
388 1.1 augustss break;
389 1.1 augustss }
390 1.1 augustss rfields = calloc(ndev, sizeof *rfields);
391 1.1 augustss fields = calloc(ndev, sizeof *fields);
392 1.1 augustss infos = calloc(ndev, sizeof *infos);
393 1.1 augustss values = calloc(ndev, sizeof *values);
394 1.1 augustss
395 1.26 isaki for (i = 0; i < ndev; i++) {
396 1.1 augustss infos[i].index = i;
397 1.1 augustss ioctl(fd, AUDIO_MIXER_DEVINFO, &infos[i]);
398 1.1 augustss }
399 1.1 augustss
400 1.26 isaki for (i = 0; i < ndev; i++) {
401 1.5 augustss rfields[i].name = infos[i].label.name;
402 1.1 augustss rfields[i].valp = &values[i];
403 1.1 augustss rfields[i].infp = &infos[i];
404 1.1 augustss }
405 1.1 augustss
406 1.26 isaki for (i = 0; i < ndev; i++) {
407 1.1 augustss values[i].dev = i;
408 1.1 augustss values[i].type = infos[i].type;
409 1.1 augustss if (infos[i].type != AUDIO_MIXER_CLASS) {
410 1.1 augustss values[i].un.value.num_channels = 2;
411 1.1 augustss if (ioctl(fd, AUDIO_MIXER_READ, &values[i]) < 0) {
412 1.1 augustss values[i].un.value.num_channels = 1;
413 1.1 augustss if (ioctl(fd, AUDIO_MIXER_READ, &values[i]) < 0)
414 1.6 augustss err(1, "AUDIO_MIXER_READ");
415 1.1 augustss }
416 1.1 augustss }
417 1.1 augustss }
418 1.1 augustss
419 1.26 isaki for (j = i = 0; i < ndev; i++) {
420 1.1 augustss if (infos[i].type != AUDIO_MIXER_CLASS &&
421 1.1 augustss infos[i].type != -1) {
422 1.1 augustss fields[j++] = rfields[i];
423 1.26 isaki for (pos = infos[i].next; pos != AUDIO_MIXER_LAST;
424 1.1 augustss pos = infos[pos].next) {
425 1.1 augustss fields[j] = rfields[pos];
426 1.26 isaki fields[j].name = catstr(rfields[i].name,
427 1.26 isaki infos[pos].label.name);
428 1.1 augustss infos[pos].type = -1;
429 1.1 augustss j++;
430 1.1 augustss }
431 1.1 augustss }
432 1.5 augustss }
433 1.5 augustss
434 1.26 isaki for (i = 0; i < j; i++) {
435 1.8 augustss int cls = fields[i].infp->mixer_class;
436 1.8 augustss if (cls >= 0 && cls < ndev)
437 1.8 augustss fields[i].name = catstr(infos[cls].label.name,
438 1.26 isaki fields[i].name);
439 1.1 augustss }
440 1.1 augustss
441 1.1 augustss if (argc == 0 && aflag && !wflag) {
442 1.26 isaki for (i = 0; i < j; i++) {
443 1.1 augustss prfield(&fields[i], sep, vflag);
444 1.1 augustss fprintf(out, "\n");
445 1.1 augustss }
446 1.1 augustss } else if (argc > 0 && !aflag) {
447 1.26 isaki while (argc--) {
448 1.15 augustss if (wflag)
449 1.15 augustss wrarg(fd, *argv, sep);
450 1.15 augustss else
451 1.15 augustss prarg(fd, *argv, sep);
452 1.15 augustss argv++;
453 1.1 augustss }
454 1.1 augustss } else
455 1.27 kre usage();
456 1.1 augustss exit(0);
457 1.1 augustss }
458