OMAP3: PM: Add function omap_device_find_pdev to omap_device layer
[linux-ginger.git] / sound / core / seq / oss / seq_oss_midi.c
blob9dfb2f77be608368ff897c948742dbf806fa52cd
1 /*
2 * OSS compatible sequencer driver
4 * MIDI device handlers
6 * Copyright (C) 1998,99 Takashi Iwai <tiwai@suse.de>
8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation; either version 2 of the License, or
11 * (at your option) any later version.
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23 #include <sound/asoundef.h>
24 #include "seq_oss_midi.h"
25 #include "seq_oss_readq.h"
26 #include "seq_oss_timer.h"
27 #include "seq_oss_event.h"
28 #include <sound/seq_midi_event.h>
29 #include "../seq_lock.h"
30 #include <linux/init.h>
34 * constants
36 #define SNDRV_SEQ_OSS_MAX_MIDI_NAME 30
39 * definition of midi device record
41 struct seq_oss_midi {
42 int seq_device; /* device number */
43 int client; /* sequencer client number */
44 int port; /* sequencer port number */
45 unsigned int flags; /* port capability */
46 int opened; /* flag for opening */
47 unsigned char name[SNDRV_SEQ_OSS_MAX_MIDI_NAME];
48 struct snd_midi_event *coder; /* MIDI event coder */
49 struct seq_oss_devinfo *devinfo; /* assigned OSSseq device */
50 snd_use_lock_t use_lock;
55 * midi device table
57 static int max_midi_devs;
58 static struct seq_oss_midi *midi_devs[SNDRV_SEQ_OSS_MAX_MIDI_DEVS];
60 static DEFINE_SPINLOCK(register_lock);
63 * prototypes
65 static struct seq_oss_midi *get_mdev(int dev);
66 static struct seq_oss_midi *get_mididev(struct seq_oss_devinfo *dp, int dev);
67 static int send_synth_event(struct seq_oss_devinfo *dp, struct snd_seq_event *ev, int dev);
68 static int send_midi_event(struct seq_oss_devinfo *dp, struct snd_seq_event *ev, struct seq_oss_midi *mdev);
71 * look up the existing ports
72 * this looks a very exhausting job.
74 int __init
75 snd_seq_oss_midi_lookup_ports(int client)
77 struct snd_seq_client_info *clinfo;
78 struct snd_seq_port_info *pinfo;
80 clinfo = kzalloc(sizeof(*clinfo), GFP_KERNEL);
81 pinfo = kzalloc(sizeof(*pinfo), GFP_KERNEL);
82 if (! clinfo || ! pinfo) {
83 kfree(clinfo);
84 kfree(pinfo);
85 return -ENOMEM;
87 clinfo->client = -1;
88 while (snd_seq_kernel_client_ctl(client, SNDRV_SEQ_IOCTL_QUERY_NEXT_CLIENT, clinfo) == 0) {
89 if (clinfo->client == client)
90 continue; /* ignore myself */
91 pinfo->addr.client = clinfo->client;
92 pinfo->addr.port = -1;
93 while (snd_seq_kernel_client_ctl(client, SNDRV_SEQ_IOCTL_QUERY_NEXT_PORT, pinfo) == 0)
94 snd_seq_oss_midi_check_new_port(pinfo);
96 kfree(clinfo);
97 kfree(pinfo);
98 return 0;
104 static struct seq_oss_midi *
105 get_mdev(int dev)
107 struct seq_oss_midi *mdev;
108 unsigned long flags;
110 spin_lock_irqsave(&register_lock, flags);
111 mdev = midi_devs[dev];
112 if (mdev)
113 snd_use_lock_use(&mdev->use_lock);
114 spin_unlock_irqrestore(&register_lock, flags);
115 return mdev;
119 * look for the identical slot
121 static struct seq_oss_midi *
122 find_slot(int client, int port)
124 int i;
125 struct seq_oss_midi *mdev;
126 unsigned long flags;
128 spin_lock_irqsave(&register_lock, flags);
129 for (i = 0; i < max_midi_devs; i++) {
130 mdev = midi_devs[i];
131 if (mdev && mdev->client == client && mdev->port == port) {
132 /* found! */
133 snd_use_lock_use(&mdev->use_lock);
134 spin_unlock_irqrestore(&register_lock, flags);
135 return mdev;
138 spin_unlock_irqrestore(&register_lock, flags);
139 return NULL;
143 #define PERM_WRITE (SNDRV_SEQ_PORT_CAP_WRITE|SNDRV_SEQ_PORT_CAP_SUBS_WRITE)
144 #define PERM_READ (SNDRV_SEQ_PORT_CAP_READ|SNDRV_SEQ_PORT_CAP_SUBS_READ)
146 * register a new port if it doesn't exist yet
149 snd_seq_oss_midi_check_new_port(struct snd_seq_port_info *pinfo)
151 int i;
152 struct seq_oss_midi *mdev;
153 unsigned long flags;
155 debug_printk(("check for MIDI client %d port %d\n", pinfo->addr.client, pinfo->addr.port));
156 /* the port must include generic midi */
157 if (! (pinfo->type & SNDRV_SEQ_PORT_TYPE_MIDI_GENERIC))
158 return 0;
159 /* either read or write subscribable */
160 if ((pinfo->capability & PERM_WRITE) != PERM_WRITE &&
161 (pinfo->capability & PERM_READ) != PERM_READ)
162 return 0;
165 * look for the identical slot
167 if ((mdev = find_slot(pinfo->addr.client, pinfo->addr.port)) != NULL) {
168 /* already exists */
169 snd_use_lock_free(&mdev->use_lock);
170 return 0;
174 * allocate midi info record
176 if ((mdev = kzalloc(sizeof(*mdev), GFP_KERNEL)) == NULL) {
177 snd_printk(KERN_ERR "can't malloc midi info\n");
178 return -ENOMEM;
181 /* copy the port information */
182 mdev->client = pinfo->addr.client;
183 mdev->port = pinfo->addr.port;
184 mdev->flags = pinfo->capability;
185 mdev->opened = 0;
186 snd_use_lock_init(&mdev->use_lock);
188 /* copy and truncate the name of synth device */
189 strlcpy(mdev->name, pinfo->name, sizeof(mdev->name));
191 /* create MIDI coder */
192 if (snd_midi_event_new(MAX_MIDI_EVENT_BUF, &mdev->coder) < 0) {
193 snd_printk(KERN_ERR "can't malloc midi coder\n");
194 kfree(mdev);
195 return -ENOMEM;
197 /* OSS sequencer adds running status to all sequences */
198 snd_midi_event_no_status(mdev->coder, 1);
201 * look for en empty slot
203 spin_lock_irqsave(&register_lock, flags);
204 for (i = 0; i < max_midi_devs; i++) {
205 if (midi_devs[i] == NULL)
206 break;
208 if (i >= max_midi_devs) {
209 if (max_midi_devs >= SNDRV_SEQ_OSS_MAX_MIDI_DEVS) {
210 spin_unlock_irqrestore(&register_lock, flags);
211 snd_midi_event_free(mdev->coder);
212 kfree(mdev);
213 return -ENOMEM;
215 max_midi_devs++;
217 mdev->seq_device = i;
218 midi_devs[mdev->seq_device] = mdev;
219 spin_unlock_irqrestore(&register_lock, flags);
221 return 0;
225 * release the midi device if it was registered
228 snd_seq_oss_midi_check_exit_port(int client, int port)
230 struct seq_oss_midi *mdev;
231 unsigned long flags;
232 int index;
234 if ((mdev = find_slot(client, port)) != NULL) {
235 spin_lock_irqsave(&register_lock, flags);
236 midi_devs[mdev->seq_device] = NULL;
237 spin_unlock_irqrestore(&register_lock, flags);
238 snd_use_lock_free(&mdev->use_lock);
239 snd_use_lock_sync(&mdev->use_lock);
240 if (mdev->coder)
241 snd_midi_event_free(mdev->coder);
242 kfree(mdev);
244 spin_lock_irqsave(&register_lock, flags);
245 for (index = max_midi_devs - 1; index >= 0; index--) {
246 if (midi_devs[index])
247 break;
249 max_midi_devs = index + 1;
250 spin_unlock_irqrestore(&register_lock, flags);
251 return 0;
256 * release the midi device if it was registered
258 void
259 snd_seq_oss_midi_clear_all(void)
261 int i;
262 struct seq_oss_midi *mdev;
263 unsigned long flags;
265 spin_lock_irqsave(&register_lock, flags);
266 for (i = 0; i < max_midi_devs; i++) {
267 if ((mdev = midi_devs[i]) != NULL) {
268 if (mdev->coder)
269 snd_midi_event_free(mdev->coder);
270 kfree(mdev);
271 midi_devs[i] = NULL;
274 max_midi_devs = 0;
275 spin_unlock_irqrestore(&register_lock, flags);
280 * set up midi tables
282 void
283 snd_seq_oss_midi_setup(struct seq_oss_devinfo *dp)
285 dp->max_mididev = max_midi_devs;
289 * clean up midi tables
291 void
292 snd_seq_oss_midi_cleanup(struct seq_oss_devinfo *dp)
294 int i;
295 for (i = 0; i < dp->max_mididev; i++)
296 snd_seq_oss_midi_close(dp, i);
297 dp->max_mididev = 0;
302 * open all midi devices. ignore errors.
304 void
305 snd_seq_oss_midi_open_all(struct seq_oss_devinfo *dp, int file_mode)
307 int i;
308 for (i = 0; i < dp->max_mididev; i++)
309 snd_seq_oss_midi_open(dp, i, file_mode);
314 * get the midi device information
316 static struct seq_oss_midi *
317 get_mididev(struct seq_oss_devinfo *dp, int dev)
319 if (dev < 0 || dev >= dp->max_mididev)
320 return NULL;
321 return get_mdev(dev);
326 * open the midi device if not opened yet
329 snd_seq_oss_midi_open(struct seq_oss_devinfo *dp, int dev, int fmode)
331 int perm;
332 struct seq_oss_midi *mdev;
333 struct snd_seq_port_subscribe subs;
335 if ((mdev = get_mididev(dp, dev)) == NULL)
336 return -ENODEV;
338 /* already used? */
339 if (mdev->opened && mdev->devinfo != dp) {
340 snd_use_lock_free(&mdev->use_lock);
341 return -EBUSY;
344 perm = 0;
345 if (is_write_mode(fmode))
346 perm |= PERM_WRITE;
347 if (is_read_mode(fmode))
348 perm |= PERM_READ;
349 perm &= mdev->flags;
350 if (perm == 0) {
351 snd_use_lock_free(&mdev->use_lock);
352 return -ENXIO;
355 /* already opened? */
356 if ((mdev->opened & perm) == perm) {
357 snd_use_lock_free(&mdev->use_lock);
358 return 0;
361 perm &= ~mdev->opened;
363 memset(&subs, 0, sizeof(subs));
365 if (perm & PERM_WRITE) {
366 subs.sender = dp->addr;
367 subs.dest.client = mdev->client;
368 subs.dest.port = mdev->port;
369 if (snd_seq_kernel_client_ctl(dp->cseq, SNDRV_SEQ_IOCTL_SUBSCRIBE_PORT, &subs) >= 0)
370 mdev->opened |= PERM_WRITE;
372 if (perm & PERM_READ) {
373 subs.sender.client = mdev->client;
374 subs.sender.port = mdev->port;
375 subs.dest = dp->addr;
376 subs.flags = SNDRV_SEQ_PORT_SUBS_TIMESTAMP;
377 subs.queue = dp->queue; /* queue for timestamps */
378 if (snd_seq_kernel_client_ctl(dp->cseq, SNDRV_SEQ_IOCTL_SUBSCRIBE_PORT, &subs) >= 0)
379 mdev->opened |= PERM_READ;
382 if (! mdev->opened) {
383 snd_use_lock_free(&mdev->use_lock);
384 return -ENXIO;
387 mdev->devinfo = dp;
388 snd_use_lock_free(&mdev->use_lock);
389 return 0;
393 * close the midi device if already opened
396 snd_seq_oss_midi_close(struct seq_oss_devinfo *dp, int dev)
398 struct seq_oss_midi *mdev;
399 struct snd_seq_port_subscribe subs;
401 if ((mdev = get_mididev(dp, dev)) == NULL)
402 return -ENODEV;
403 if (! mdev->opened || mdev->devinfo != dp) {
404 snd_use_lock_free(&mdev->use_lock);
405 return 0;
408 debug_printk(("closing client %d port %d mode %d\n", mdev->client, mdev->port, mdev->opened));
409 memset(&subs, 0, sizeof(subs));
410 if (mdev->opened & PERM_WRITE) {
411 subs.sender = dp->addr;
412 subs.dest.client = mdev->client;
413 subs.dest.port = mdev->port;
414 snd_seq_kernel_client_ctl(dp->cseq, SNDRV_SEQ_IOCTL_UNSUBSCRIBE_PORT, &subs);
416 if (mdev->opened & PERM_READ) {
417 subs.sender.client = mdev->client;
418 subs.sender.port = mdev->port;
419 subs.dest = dp->addr;
420 snd_seq_kernel_client_ctl(dp->cseq, SNDRV_SEQ_IOCTL_UNSUBSCRIBE_PORT, &subs);
423 mdev->opened = 0;
424 mdev->devinfo = NULL;
426 snd_use_lock_free(&mdev->use_lock);
427 return 0;
431 * change seq capability flags to file mode flags
434 snd_seq_oss_midi_filemode(struct seq_oss_devinfo *dp, int dev)
436 struct seq_oss_midi *mdev;
437 int mode;
439 if ((mdev = get_mididev(dp, dev)) == NULL)
440 return 0;
442 mode = 0;
443 if (mdev->opened & PERM_WRITE)
444 mode |= SNDRV_SEQ_OSS_FILE_WRITE;
445 if (mdev->opened & PERM_READ)
446 mode |= SNDRV_SEQ_OSS_FILE_READ;
448 snd_use_lock_free(&mdev->use_lock);
449 return mode;
453 * reset the midi device and close it:
454 * so far, only close the device.
456 void
457 snd_seq_oss_midi_reset(struct seq_oss_devinfo *dp, int dev)
459 struct seq_oss_midi *mdev;
461 if ((mdev = get_mididev(dp, dev)) == NULL)
462 return;
463 if (! mdev->opened) {
464 snd_use_lock_free(&mdev->use_lock);
465 return;
468 if (mdev->opened & PERM_WRITE) {
469 struct snd_seq_event ev;
470 int c;
472 debug_printk(("resetting client %d port %d\n", mdev->client, mdev->port));
473 memset(&ev, 0, sizeof(ev));
474 ev.dest.client = mdev->client;
475 ev.dest.port = mdev->port;
476 ev.queue = dp->queue;
477 ev.source.port = dp->port;
478 if (dp->seq_mode == SNDRV_SEQ_OSS_MODE_SYNTH) {
479 ev.type = SNDRV_SEQ_EVENT_SENSING;
480 snd_seq_oss_dispatch(dp, &ev, 0, 0);
482 for (c = 0; c < 16; c++) {
483 ev.type = SNDRV_SEQ_EVENT_CONTROLLER;
484 ev.data.control.channel = c;
485 ev.data.control.param = MIDI_CTL_ALL_NOTES_OFF;
486 snd_seq_oss_dispatch(dp, &ev, 0, 0);
487 if (dp->seq_mode == SNDRV_SEQ_OSS_MODE_MUSIC) {
488 ev.data.control.param =
489 MIDI_CTL_RESET_CONTROLLERS;
490 snd_seq_oss_dispatch(dp, &ev, 0, 0);
491 ev.type = SNDRV_SEQ_EVENT_PITCHBEND;
492 ev.data.control.value = 0;
493 snd_seq_oss_dispatch(dp, &ev, 0, 0);
497 // snd_seq_oss_midi_close(dp, dev);
498 snd_use_lock_free(&mdev->use_lock);
503 * get client/port of the specified MIDI device
505 void
506 snd_seq_oss_midi_get_addr(struct seq_oss_devinfo *dp, int dev, struct snd_seq_addr *addr)
508 struct seq_oss_midi *mdev;
510 if ((mdev = get_mididev(dp, dev)) == NULL)
511 return;
512 addr->client = mdev->client;
513 addr->port = mdev->port;
514 snd_use_lock_free(&mdev->use_lock);
519 * input callback - this can be atomic
522 snd_seq_oss_midi_input(struct snd_seq_event *ev, int direct, void *private_data)
524 struct seq_oss_devinfo *dp = (struct seq_oss_devinfo *)private_data;
525 struct seq_oss_midi *mdev;
526 int rc;
528 if (dp->readq == NULL)
529 return 0;
530 if ((mdev = find_slot(ev->source.client, ev->source.port)) == NULL)
531 return 0;
532 if (! (mdev->opened & PERM_READ)) {
533 snd_use_lock_free(&mdev->use_lock);
534 return 0;
537 if (dp->seq_mode == SNDRV_SEQ_OSS_MODE_MUSIC)
538 rc = send_synth_event(dp, ev, mdev->seq_device);
539 else
540 rc = send_midi_event(dp, ev, mdev);
542 snd_use_lock_free(&mdev->use_lock);
543 return rc;
547 * convert ALSA sequencer event to OSS synth event
549 static int
550 send_synth_event(struct seq_oss_devinfo *dp, struct snd_seq_event *ev, int dev)
552 union evrec ossev;
554 memset(&ossev, 0, sizeof(ossev));
556 switch (ev->type) {
557 case SNDRV_SEQ_EVENT_NOTEON:
558 ossev.v.cmd = MIDI_NOTEON; break;
559 case SNDRV_SEQ_EVENT_NOTEOFF:
560 ossev.v.cmd = MIDI_NOTEOFF; break;
561 case SNDRV_SEQ_EVENT_KEYPRESS:
562 ossev.v.cmd = MIDI_KEY_PRESSURE; break;
563 case SNDRV_SEQ_EVENT_CONTROLLER:
564 ossev.l.cmd = MIDI_CTL_CHANGE; break;
565 case SNDRV_SEQ_EVENT_PGMCHANGE:
566 ossev.l.cmd = MIDI_PGM_CHANGE; break;
567 case SNDRV_SEQ_EVENT_CHANPRESS:
568 ossev.l.cmd = MIDI_CHN_PRESSURE; break;
569 case SNDRV_SEQ_EVENT_PITCHBEND:
570 ossev.l.cmd = MIDI_PITCH_BEND; break;
571 default:
572 return 0; /* not supported */
575 ossev.v.dev = dev;
577 switch (ev->type) {
578 case SNDRV_SEQ_EVENT_NOTEON:
579 case SNDRV_SEQ_EVENT_NOTEOFF:
580 case SNDRV_SEQ_EVENT_KEYPRESS:
581 ossev.v.code = EV_CHN_VOICE;
582 ossev.v.note = ev->data.note.note;
583 ossev.v.parm = ev->data.note.velocity;
584 ossev.v.chn = ev->data.note.channel;
585 break;
586 case SNDRV_SEQ_EVENT_CONTROLLER:
587 case SNDRV_SEQ_EVENT_PGMCHANGE:
588 case SNDRV_SEQ_EVENT_CHANPRESS:
589 ossev.l.code = EV_CHN_COMMON;
590 ossev.l.p1 = ev->data.control.param;
591 ossev.l.val = ev->data.control.value;
592 ossev.l.chn = ev->data.control.channel;
593 break;
594 case SNDRV_SEQ_EVENT_PITCHBEND:
595 ossev.l.code = EV_CHN_COMMON;
596 ossev.l.val = ev->data.control.value + 8192;
597 ossev.l.chn = ev->data.control.channel;
598 break;
601 snd_seq_oss_readq_put_timestamp(dp->readq, ev->time.tick, dp->seq_mode);
602 snd_seq_oss_readq_put_event(dp->readq, &ossev);
604 return 0;
608 * decode event and send MIDI bytes to read queue
610 static int
611 send_midi_event(struct seq_oss_devinfo *dp, struct snd_seq_event *ev, struct seq_oss_midi *mdev)
613 char msg[32];
614 int len;
616 snd_seq_oss_readq_put_timestamp(dp->readq, ev->time.tick, dp->seq_mode);
617 if (!dp->timer->running)
618 len = snd_seq_oss_timer_start(dp->timer);
619 if (ev->type == SNDRV_SEQ_EVENT_SYSEX) {
620 if ((ev->flags & SNDRV_SEQ_EVENT_LENGTH_MASK) == SNDRV_SEQ_EVENT_LENGTH_VARIABLE)
621 snd_seq_oss_readq_puts(dp->readq, mdev->seq_device,
622 ev->data.ext.ptr, ev->data.ext.len);
623 } else {
624 len = snd_midi_event_decode(mdev->coder, msg, sizeof(msg), ev);
625 if (len > 0)
626 snd_seq_oss_readq_puts(dp->readq, mdev->seq_device, msg, len);
629 return 0;
634 * dump midi data
635 * return 0 : enqueued
636 * non-zero : invalid - ignored
639 snd_seq_oss_midi_putc(struct seq_oss_devinfo *dp, int dev, unsigned char c, struct snd_seq_event *ev)
641 struct seq_oss_midi *mdev;
643 if ((mdev = get_mididev(dp, dev)) == NULL)
644 return -ENODEV;
645 if (snd_midi_event_encode_byte(mdev->coder, c, ev) > 0) {
646 snd_seq_oss_fill_addr(dp, ev, mdev->client, mdev->port);
647 snd_use_lock_free(&mdev->use_lock);
648 return 0;
650 snd_use_lock_free(&mdev->use_lock);
651 return -EINVAL;
655 * create OSS compatible midi_info record
658 snd_seq_oss_midi_make_info(struct seq_oss_devinfo *dp, int dev, struct midi_info *inf)
660 struct seq_oss_midi *mdev;
662 if ((mdev = get_mididev(dp, dev)) == NULL)
663 return -ENXIO;
664 inf->device = dev;
665 inf->dev_type = 0; /* FIXME: ?? */
666 inf->capabilities = 0; /* FIXME: ?? */
667 strlcpy(inf->name, mdev->name, sizeof(inf->name));
668 snd_use_lock_free(&mdev->use_lock);
669 return 0;
673 #ifdef CONFIG_PROC_FS
675 * proc interface
677 static char *
678 capmode_str(int val)
680 val &= PERM_READ|PERM_WRITE;
681 if (val == (PERM_READ|PERM_WRITE))
682 return "read/write";
683 else if (val == PERM_READ)
684 return "read";
685 else if (val == PERM_WRITE)
686 return "write";
687 else
688 return "none";
691 void
692 snd_seq_oss_midi_info_read(struct snd_info_buffer *buf)
694 int i;
695 struct seq_oss_midi *mdev;
697 snd_iprintf(buf, "\nNumber of MIDI devices: %d\n", max_midi_devs);
698 for (i = 0; i < max_midi_devs; i++) {
699 snd_iprintf(buf, "\nmidi %d: ", i);
700 mdev = get_mdev(i);
701 if (mdev == NULL) {
702 snd_iprintf(buf, "*empty*\n");
703 continue;
705 snd_iprintf(buf, "[%s] ALSA port %d:%d\n", mdev->name,
706 mdev->client, mdev->port);
707 snd_iprintf(buf, " capability %s / opened %s\n",
708 capmode_str(mdev->flags),
709 capmode_str(mdev->opened));
710 snd_use_lock_free(&mdev->use_lock);
713 #endif /* CONFIG_PROC_FS */