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