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 dev_err(card->dev, "can't create client\n");
65 return -ENODEV;
66 }
67
68 if (emu->num_ports <= 0) {
69 dev_warn(card->dev, "seqports must be greater than zero\n");
70 emu->num_ports = 1;
71 } else if (emu->num_ports > SNDRV_EMUX_MAX_PORTS) {
72 dev_warn(card->dev,
73 "too many ports. limited max. ports %d\n",
74 SNDRV_EMUX_MAX_PORTS);
75 emu->num_ports = SNDRV_EMUX_MAX_PORTS;
76 }
77
78 memset(&pinfo, 0, sizeof(pinfo));
79 pinfo.owner = THIS_MODULE;
80 pinfo.use = snd_emux_use;
81 pinfo.unuse = snd_emux_unuse;
82 pinfo.event_input = snd_emux_event_input;
83
84 for (i = 0; i < emu->num_ports; i++) {
85 struct snd_emux_port *p;
86
87 sprintf(tmpname, "%s Port %d", emu->name, i);
88 p = snd_emux_create_port(emu, tmpname, MIDI_CHANNELS,
89 0, &pinfo);
90 if (!p) {
91 dev_err(card->dev, "can't create port\n");
92 return -ENOMEM;
93 }
94
95 p->port_mode = SNDRV_EMUX_PORT_MODE_MIDI;
96 snd_emux_init_port(p);
97 emu->ports[i] = p->chset.port;
98 emu->portptrs[i] = p;
99 }
100
101 return 0;
102 }
103
104
105 /*
106 * Detach from the ports that were set up for this synthesizer and
107 * destroy the kernel client.
108 */
109 void
snd_emux_detach_seq(struct snd_emux * emu)110 snd_emux_detach_seq(struct snd_emux *emu)
111 {
112 if (emu->voices)
113 snd_emux_terminate_all(emu);
114
115 if (emu->client >= 0) {
116 snd_seq_delete_kernel_client(emu->client);
117 emu->client = -1;
118 }
119 }
120
121
122 /*
123 * create a sequencer port and channel_set
124 */
125
126 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)127 snd_emux_create_port(struct snd_emux *emu, char *name,
128 int max_channels, int oss_port,
129 struct snd_seq_port_callback *callback)
130 {
131 struct snd_emux_port *p;
132 int i, type, cap;
133
134 /* Allocate structures for this channel */
135 p = kzalloc_obj(*p);
136 if (!p)
137 return NULL;
138
139 p->chset.channels = kzalloc_objs(*p->chset.channels, max_channels);
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 guard(mutex)(&emu->register_mutex);
275 return __snd_emux_inc_count(emu);
276 }
277
278 /*
279 * decrease usage count
280 */
281 static void
__snd_emux_dec_count(struct snd_emux * emu)282 __snd_emux_dec_count(struct snd_emux *emu)
283 {
284 module_put(emu->card->module);
285 emu->used--;
286 if (emu->used <= 0)
287 snd_emux_terminate_all(emu);
288 module_put(emu->ops.owner);
289 }
290
snd_emux_dec_count(struct snd_emux * emu)291 void snd_emux_dec_count(struct snd_emux *emu)
292 {
293 guard(mutex)(&emu->register_mutex);
294 __snd_emux_dec_count(emu);
295 }
296
297 /*
298 * Routine that is called upon a first use of a particular port
299 */
300 static int
snd_emux_use(void * private_data,struct snd_seq_port_subscribe * info)301 snd_emux_use(void *private_data, struct snd_seq_port_subscribe *info)
302 {
303 struct snd_emux_port *p;
304 struct snd_emux *emu;
305
306 p = private_data;
307 if (snd_BUG_ON(!p))
308 return -EINVAL;
309 emu = p->emu;
310 if (snd_BUG_ON(!emu))
311 return -EINVAL;
312
313 guard(mutex)(&emu->register_mutex);
314 snd_emux_init_port(p);
315 __snd_emux_inc_count(emu);
316 return 0;
317 }
318
319 /*
320 * Routine that is called upon the last unuse() of a particular port.
321 */
322 static int
snd_emux_unuse(void * private_data,struct snd_seq_port_subscribe * info)323 snd_emux_unuse(void *private_data, struct snd_seq_port_subscribe *info)
324 {
325 struct snd_emux_port *p;
326 struct snd_emux *emu;
327
328 p = private_data;
329 if (snd_BUG_ON(!p))
330 return -EINVAL;
331 emu = p->emu;
332 if (snd_BUG_ON(!emu))
333 return -EINVAL;
334
335 guard(mutex)(&emu->register_mutex);
336 snd_emux_sounds_off_all(p);
337 __snd_emux_dec_count(emu);
338 return 0;
339 }
340
341
342 /*
343 * attach virtual rawmidi devices
344 */
snd_emux_init_virmidi(struct snd_emux * emu,struct snd_card * card)345 int snd_emux_init_virmidi(struct snd_emux *emu, struct snd_card *card)
346 {
347 int i;
348
349 emu->vmidi = NULL;
350 if (emu->midi_ports <= 0)
351 return 0;
352
353 emu->vmidi = kzalloc_objs(*emu->vmidi, emu->midi_ports);
354 if (!emu->vmidi)
355 return -ENOMEM;
356
357 for (i = 0; i < emu->midi_ports; i++) {
358 struct snd_rawmidi *rmidi;
359 struct snd_virmidi_dev *rdev;
360 if (snd_virmidi_new(card, emu->midi_devidx + i, &rmidi) < 0)
361 goto __error;
362 rdev = rmidi->private_data;
363 sprintf(rmidi->name, "%s Synth MIDI", emu->name);
364 rdev->seq_mode = SNDRV_VIRMIDI_SEQ_ATTACH;
365 rdev->client = emu->client;
366 rdev->port = emu->ports[i];
367 if (snd_device_register(card, rmidi) < 0) {
368 snd_device_free(card, rmidi);
369 goto __error;
370 }
371 emu->vmidi[i] = rmidi;
372 }
373 return 0;
374
375 __error:
376 snd_emux_delete_virmidi(emu);
377 return -ENOMEM;
378 }
379
snd_emux_delete_virmidi(struct snd_emux * emu)380 int snd_emux_delete_virmidi(struct snd_emux *emu)
381 {
382 int i;
383
384 if (!emu->vmidi)
385 return 0;
386
387 for (i = 0; i < emu->midi_ports; i++) {
388 if (emu->vmidi[i])
389 snd_device_free(emu->card, emu->vmidi[i]);
390 }
391 kfree(emu->vmidi);
392 emu->vmidi = NULL;
393 return 0;
394 }
395