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 */
27static void free_port(void *private);
28static void snd_emux_init_port(struct snd_emux_port *p);
29static int snd_emux_use(void *private_data, struct snd_seq_port_subscribe *info);
30static int snd_emux_unuse(void *private_data, struct snd_seq_port_subscribe *info);
31
32/*
33 * MIDI emulation operators
34 */
35static struct snd_midi_op emux_ops = {
36	snd_emux_note_on,
37	snd_emux_note_off,
38	snd_emux_key_press,
39	snd_emux_terminate_note,
40	snd_emux_control,
41	snd_emux_nrpn,
42	snd_emux_sysex,
43};
44
45
46/*
47 * number of MIDI channels
48 */
49#define MIDI_CHANNELS		16
50
51/*
52 * type flags for MIDI sequencer port
53 */
54#define DEFAULT_MIDI_TYPE	(SNDRV_SEQ_PORT_TYPE_MIDI_GENERIC |\
55				 SNDRV_SEQ_PORT_TYPE_MIDI_GM |\
56				 SNDRV_SEQ_PORT_TYPE_MIDI_GS |\
57				 SNDRV_SEQ_PORT_TYPE_MIDI_XG |\
58				 SNDRV_SEQ_PORT_TYPE_HARDWARE |\
59				 SNDRV_SEQ_PORT_TYPE_SYNTHESIZER)
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 */
67int
68snd_emux_init_seq(struct snd_emux *emu, struct snd_card *card, int index)
69{
70	int  i;
71	struct snd_seq_port_callback pinfo;
72	char tmpname[64];
73
74	emu->client = snd_seq_create_kernel_client(card, index,
75						   "%s WaveTable", emu->name);
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		struct snd_emux_port *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 */
121void
122snd_emux_detach_seq(struct snd_emux *emu)
123{
124	if (emu->voices)
125		snd_emux_terminate_all(emu);
126
127	mutex_lock(&emu->register_mutex);
128	if (emu->client >= 0) {
129		snd_seq_delete_kernel_client(emu->client);
130		emu->client = -1;
131	}
132	mutex_unlock(&emu->register_mutex);
133}
134
135
136/*
137 * create a sequencer port and channel_set
138 */
139
140struct snd_emux_port *
141snd_emux_create_port(struct snd_emux *emu, char *name,
142		     int max_channels, int oss_port,
143		     struct snd_seq_port_callback *callback)
144{
145	struct snd_emux_port *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(struct snd_midi_channel), 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 */
190static void
191free_port(void *private_data)
192{
193	struct snd_emux_port *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 */
211static void
212snd_emux_init_port(struct snd_emux_port *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 */
224void
225snd_emux_reset_port(struct snd_emux_port *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		struct snd_midi_channel *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 */
253int
254snd_emux_event_input(struct snd_seq_event *ev, int direct, void *private_data,
255		     int atomic, int hop)
256{
257	struct snd_emux_port *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 */
271int
272snd_emux_inc_count(struct snd_emux *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 */
290void
291snd_emux_dec_count(struct snd_emux *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 */
304static int
305snd_emux_use(void *private_data, struct snd_seq_port_subscribe *info)
306{
307	struct snd_emux_port *p;
308	struct snd_emux *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	mutex_lock(&emu->register_mutex);
316	snd_emux_init_port(p);
317	snd_emux_inc_count(emu);
318	mutex_unlock(&emu->register_mutex);
319	return 0;
320}
321
322/*
323 * Routine that is called upon the last unuse() of a particular port.
324 */
325static int
326snd_emux_unuse(void *private_data, struct snd_seq_port_subscribe *info)
327{
328	struct snd_emux_port *p;
329	struct snd_emux *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	mutex_lock(&emu->register_mutex);
337	snd_emux_sounds_off_all(p);
338	snd_emux_dec_count(emu);
339	mutex_unlock(&emu->register_mutex);
340	return 0;
341}
342
343
344/*
345 * attach virtual rawmidi devices
346 */
347int snd_emux_init_virmidi(struct snd_emux *emu, struct snd_card *card)
348{
349	int i;
350
351	emu->vmidi = NULL;
352	if (emu->midi_ports <= 0)
353		return 0;
354
355	emu->vmidi = kcalloc(emu->midi_ports, sizeof(struct snd_rawmidi *), GFP_KERNEL);
356	if (emu->vmidi == NULL)
357		return -ENOMEM;
358
359	for (i = 0; i < emu->midi_ports; i++) {
360		struct snd_rawmidi *rmidi;
361		struct snd_virmidi_dev *rdev;
362		if (snd_virmidi_new(card, emu->midi_devidx + i, &rmidi) < 0)
363			goto __error;
364		rdev = rmidi->private_data;
365		sprintf(rmidi->name, "%s Synth MIDI", emu->name);
366		rdev->seq_mode = SNDRV_VIRMIDI_SEQ_ATTACH;
367		rdev->client = emu->client;
368		rdev->port = emu->ports[i];
369		if (snd_device_register(card, rmidi) < 0) {
370			snd_device_free(card, rmidi);
371			goto __error;
372		}
373		emu->vmidi[i] = rmidi;
374		//snd_printk("virmidi %d ok\n", i);
375	}
376	return 0;
377
378__error:
379	//snd_printk("error init..\n");
380	snd_emux_delete_virmidi(emu);
381	return -ENOMEM;
382}
383
384int snd_emux_delete_virmidi(struct snd_emux *emu)
385{
386	int i;
387
388	if (emu->vmidi == NULL)
389		return 0;
390
391	for (i = 0; i < emu->midi_ports; i++) {
392		if (emu->vmidi[i])
393			snd_device_free(emu->card, emu->vmidi[i]);
394	}
395	kfree(emu->vmidi);
396	emu->vmidi = NULL;
397	return 0;
398}
399