[ALSA] Replace with kzalloc() - others
[linux-3.10.git] / sound / synth / emux / emux_seq.c
1 /*
2  *  Midi Sequencer interface routines.
3  *
4  *  Copyright (C) 1999 Steve Ratcliffe
5  *  Copyright (c) 1999-2000 Takashi Iwai <tiwai@suse.de>
6  *
7  *   This program is free software; you can redistribute it and/or modify
8  *   it under the terms of the GNU General Public License as published by
9  *   the Free Software Foundation; either version 2 of the License, or
10  *   (at your option) any later version.
11  *
12  *   This program is distributed in the hope that it will be useful,
13  *   but WITHOUT ANY WARRANTY; without even the implied warranty of
14  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  *   GNU General Public License for more details.
16  *
17  *   You should have received a copy of the GNU General Public License
18  *   along with this program; if not, write to the Free Software
19  *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
20  */
21
22 #include "emux_voice.h"
23 #include <linux/slab.h>
24
25
26 /* Prototypes for static functions */
27 static void free_port(void *private);
28 static void snd_emux_init_port(snd_emux_port_t *p);
29 static int snd_emux_use(void *private_data, snd_seq_port_subscribe_t *info);
30 static int snd_emux_unuse(void *private_data, snd_seq_port_subscribe_t *info);
31 static int get_client(snd_card_t *card, int index, char *name);
32
33 /*
34  * MIDI emulation operators
35  */
36 static snd_midi_op_t emux_ops = {
37         snd_emux_note_on,
38         snd_emux_note_off,
39         snd_emux_key_press,
40         snd_emux_terminate_note,
41         snd_emux_control,
42         snd_emux_nrpn,
43         snd_emux_sysex,
44 };
45
46
47 /*
48  * number of MIDI channels
49  */
50 #define MIDI_CHANNELS           16
51
52 /*
53  * type flags for MIDI sequencer port
54  */
55 #define DEFAULT_MIDI_TYPE       (SNDRV_SEQ_PORT_TYPE_MIDI_GENERIC |\
56                                  SNDRV_SEQ_PORT_TYPE_MIDI_GM |\
57                                  SNDRV_SEQ_PORT_TYPE_MIDI_GS |\
58                                  SNDRV_SEQ_PORT_TYPE_MIDI_XG |\
59                                  SNDRV_SEQ_PORT_TYPE_DIRECT_SAMPLE)
60
61 /*
62  * Initialise the EMUX Synth by creating a client and registering
63  * a series of ports.
64  * Each of the ports will contain the 16 midi channels.  Applications
65  * can connect to these ports to play midi data.
66  */
67 int
68 snd_emux_init_seq(snd_emux_t *emu, snd_card_t *card, int index)
69 {
70         int  i;
71         snd_seq_port_callback_t pinfo;
72         char tmpname[64];
73
74         sprintf(tmpname, "%s WaveTable", emu->name);
75         emu->client = get_client(card, index, tmpname);
76         if (emu->client < 0) {
77                 snd_printk("can't create client\n");
78                 return -ENODEV;
79         }
80
81         if (emu->num_ports < 0) {
82                 snd_printk("seqports must be greater than zero\n");
83                 emu->num_ports = 1;
84         } else if (emu->num_ports >= SNDRV_EMUX_MAX_PORTS) {
85                 snd_printk("too many ports."
86                            "limited max. ports %d\n", SNDRV_EMUX_MAX_PORTS);
87                 emu->num_ports = SNDRV_EMUX_MAX_PORTS;
88         }
89
90         memset(&pinfo, 0, sizeof(pinfo));
91         pinfo.owner = THIS_MODULE;
92         pinfo.use = snd_emux_use;
93         pinfo.unuse = snd_emux_unuse;
94         pinfo.event_input = snd_emux_event_input;
95
96         for (i = 0; i < emu->num_ports; i++) {
97                 snd_emux_port_t *p;
98
99                 sprintf(tmpname, "%s Port %d", emu->name, i);
100                 p = snd_emux_create_port(emu, tmpname, MIDI_CHANNELS,
101                                          0, &pinfo);
102                 if (p == NULL) {
103                         snd_printk("can't create port\n");
104                         return -ENOMEM;
105                 }
106
107                 p->port_mode =  SNDRV_EMUX_PORT_MODE_MIDI;
108                 snd_emux_init_port(p);
109                 emu->ports[i] = p->chset.port;
110                 emu->portptrs[i] = p;
111         }
112
113         return 0;
114 }
115
116
117 /*
118  * Detach from the ports that were set up for this synthesizer and
119  * destroy the kernel client.
120  */
121 void
122 snd_emux_detach_seq(snd_emux_t *emu)
123 {
124         if (emu->voices)
125                 snd_emux_terminate_all(emu);
126                 
127         down(&emu->register_mutex);
128         if (emu->client >= 0) {
129                 snd_seq_delete_kernel_client(emu->client);
130                 emu->client = -1;
131         }
132         up(&emu->register_mutex);
133 }
134
135
136 /*
137  * create a sequencer port and channel_set
138  */
139
140 snd_emux_port_t *
141 snd_emux_create_port(snd_emux_t *emu, char *name,
142                         int max_channels, int oss_port,
143                         snd_seq_port_callback_t *callback)
144 {
145         snd_emux_port_t *p;
146         int i, type, cap;
147
148         /* Allocate structures for this channel */
149         if ((p = kzalloc(sizeof(*p), GFP_KERNEL)) == NULL) {
150                 snd_printk("no memory\n");
151                 return NULL;
152         }
153         p->chset.channels = kcalloc(max_channels, sizeof(snd_midi_channel_t), GFP_KERNEL);
154         if (p->chset.channels == NULL) {
155                 snd_printk("no memory\n");
156                 kfree(p);
157                 return NULL;
158         }
159         for (i = 0; i < max_channels; i++)
160                 p->chset.channels[i].number = i;
161         p->chset.private_data = p;
162         p->chset.max_channels = max_channels;
163         p->emu = emu;
164         p->chset.client = emu->client;
165 #ifdef SNDRV_EMUX_USE_RAW_EFFECT
166         snd_emux_create_effect(p);
167 #endif
168         callback->private_free = free_port;
169         callback->private_data = p;
170
171         cap = SNDRV_SEQ_PORT_CAP_WRITE;
172         if (oss_port) {
173                 type = SNDRV_SEQ_PORT_TYPE_SPECIFIC;
174         } else {
175                 type = DEFAULT_MIDI_TYPE;
176                 cap |= SNDRV_SEQ_PORT_CAP_SUBS_WRITE;
177         }
178
179         p->chset.port = snd_seq_event_port_attach(emu->client, callback,
180                                                   cap, type, max_channels,
181                                                   emu->max_voices, name);
182
183         return p;
184 }
185
186
187 /*
188  * release memory block for port
189  */
190 static void
191 free_port(void *private_data)
192 {
193         snd_emux_port_t *p;
194
195         p = private_data;
196         if (p) {
197 #ifdef SNDRV_EMUX_USE_RAW_EFFECT
198                 snd_emux_delete_effect(p);
199 #endif
200                 kfree(p->chset.channels);
201                 kfree(p);
202         }
203 }
204
205
206 #define DEFAULT_DRUM_FLAGS      (1<<9)
207
208 /*
209  * initialize the port specific parameters
210  */
211 static void
212 snd_emux_init_port(snd_emux_port_t *p)
213 {
214         p->drum_flags = DEFAULT_DRUM_FLAGS;
215         p->volume_atten = 0;
216
217         snd_emux_reset_port(p);
218 }
219
220
221 /*
222  * reset port
223  */
224 void
225 snd_emux_reset_port(snd_emux_port_t *port)
226 {
227         int i;
228
229         /* stop all sounds */
230         snd_emux_sounds_off_all(port);
231
232         snd_midi_channel_set_clear(&port->chset);
233
234 #ifdef SNDRV_EMUX_USE_RAW_EFFECT
235         snd_emux_clear_effect(port);
236 #endif
237
238         /* set port specific control parameters */
239         port->ctrls[EMUX_MD_DEF_BANK] = 0;
240         port->ctrls[EMUX_MD_DEF_DRUM] = 0;
241         port->ctrls[EMUX_MD_REALTIME_PAN] = 1;
242
243         for (i = 0; i < port->chset.max_channels; i++) {
244                 snd_midi_channel_t *chan = port->chset.channels + i;
245                 chan->drum_channel = ((port->drum_flags >> i) & 1) ? 1 : 0;
246         }
247 }
248
249
250 /*
251  * input sequencer event
252  */
253 int
254 snd_emux_event_input(snd_seq_event_t *ev, int direct, void *private_data,
255                      int atomic, int hop)
256 {
257         snd_emux_port_t *port;
258
259         port = private_data;
260         snd_assert(port != NULL && ev != NULL, return -EINVAL);
261
262         snd_midi_process_event(&emux_ops, ev, &port->chset);
263
264         return 0;
265 }
266
267
268 /*
269  * increment usage count
270  */
271 int
272 snd_emux_inc_count(snd_emux_t *emu)
273 {
274         emu->used++;
275         if (!try_module_get(emu->ops.owner))
276                 goto __error;
277         if (!try_module_get(emu->card->module)) {
278                 module_put(emu->ops.owner);
279               __error:
280                 emu->used--;
281                 return 0;
282         }
283         return 1;
284 }
285
286
287 /*
288  * decrease usage count
289  */
290 void
291 snd_emux_dec_count(snd_emux_t *emu)
292 {
293         module_put(emu->card->module);
294         emu->used--;
295         if (emu->used <= 0)
296                 snd_emux_terminate_all(emu);
297         module_put(emu->ops.owner);
298 }
299
300
301 /*
302  * Routine that is called upon a first use of a particular port
303  */
304 static int
305 snd_emux_use(void *private_data, snd_seq_port_subscribe_t *info)
306 {
307         snd_emux_port_t *p;
308         snd_emux_t *emu;
309
310         p = private_data;
311         snd_assert(p != NULL, return -EINVAL);
312         emu = p->emu;
313         snd_assert(emu != NULL, return -EINVAL);
314
315         down(&emu->register_mutex);
316         snd_emux_init_port(p);
317         snd_emux_inc_count(emu);
318         up(&emu->register_mutex);
319         return 0;
320 }
321
322 /*
323  * Routine that is called upon the last unuse() of a particular port.
324  */
325 static int
326 snd_emux_unuse(void *private_data, snd_seq_port_subscribe_t *info)
327 {
328         snd_emux_port_t *p;
329         snd_emux_t *emu;
330
331         p = private_data;
332         snd_assert(p != NULL, return -EINVAL);
333         emu = p->emu;
334         snd_assert(emu != NULL, return -EINVAL);
335
336         down(&emu->register_mutex);
337         snd_emux_sounds_off_all(p);
338         snd_emux_dec_count(emu);
339         up(&emu->register_mutex);
340         return 0;
341 }
342
343
344 /*
345  * Create a sequencer client
346  */
347 static int
348 get_client(snd_card_t *card, int index, char *name)
349 {
350         snd_seq_client_callback_t callbacks;
351         snd_seq_client_info_t cinfo;
352         int client;
353
354         memset(&callbacks, 0, sizeof(callbacks));
355         callbacks.private_data = NULL;
356         callbacks.allow_input = 1;
357         callbacks.allow_output = 1;
358
359         /* Find a free client, start from 1 as the MPU expects to use 0 */
360         client = snd_seq_create_kernel_client(card, index, &callbacks);
361         if (client < 0)
362                 return client;
363
364         memset(&cinfo, 0, sizeof(cinfo));
365         cinfo.client = client;
366         cinfo.type = KERNEL_CLIENT;
367         strcpy(cinfo.name, name);
368         snd_seq_kernel_client_ctl(client, SNDRV_SEQ_IOCTL_SET_CLIENT_INFO, &cinfo);
369
370         return client;
371 }
372
373
374 /*
375  * attach virtual rawmidi devices
376  */
377 int snd_emux_init_virmidi(snd_emux_t *emu, snd_card_t *card)
378 {
379         int i;
380
381         emu->vmidi = NULL;
382         if (emu->midi_ports <= 0)
383                 return 0;
384
385         emu->vmidi = kcalloc(emu->midi_ports, sizeof(snd_rawmidi_t*), GFP_KERNEL);
386         if (emu->vmidi == NULL)
387                 return -ENOMEM;
388
389         for (i = 0; i < emu->midi_ports; i++) {
390                 snd_rawmidi_t *rmidi;
391                 snd_virmidi_dev_t *rdev;
392                 if (snd_virmidi_new(card, emu->midi_devidx + i, &rmidi) < 0)
393                         goto __error;
394                 rdev = rmidi->private_data;
395                 sprintf(rmidi->name, "%s Synth MIDI", emu->name);
396                 rdev->seq_mode = SNDRV_VIRMIDI_SEQ_ATTACH;
397                 rdev->client = emu->client;
398                 rdev->port = emu->ports[i];
399                 if (snd_device_register(card, rmidi) < 0) {
400                         snd_device_free(card, rmidi);
401                         goto __error;
402                 }
403                 emu->vmidi[i] = rmidi;
404                 //snd_printk("virmidi %d ok\n", i);
405         }
406         return 0;
407
408 __error:
409         //snd_printk("error init..\n");
410         snd_emux_delete_virmidi(emu);
411         return -ENOMEM;
412 }
413
414 int snd_emux_delete_virmidi(snd_emux_t *emu)
415 {
416         int i;
417
418         if (emu->vmidi == NULL)
419                 return 0;
420
421         for (i = 0; i < emu->midi_ports; i++) {
422                 if (emu->vmidi[i])
423                         snd_device_free(emu->card, emu->vmidi[i]);
424         }
425         kfree(emu->vmidi);
426         emu->vmidi = NULL;
427         return 0;
428 }