xref: /openbmc/linux/sound/synth/emux/emux_oss.c (revision b6dcefde)
1 /*
2  *  Interface for OSS sequencer emulation
3  *
4  *  Copyright (C) 1999 Takashi Iwai <tiwai@suse.de>
5  *
6  *   This program is free software; you can redistribute it and/or modify
7  *   it under the terms of the GNU General Public License as published by
8  *   the Free Software Foundation; either version 2 of the License, or
9  *   (at your option) any later version.
10  *
11  *   This program is distributed in the hope that it will be useful,
12  *   but WITHOUT ANY WARRANTY; without even the implied warranty of
13  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  *   GNU General Public License for more details.
15  *
16  *   You should have received a copy of the GNU General Public License
17  *   along with this program; if not, write to the Free Software
18  *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
19  *
20  * Changes
21  * 19990227   Steve Ratcliffe   Made separate file and merged in latest
22  * 				midi emulation.
23  */
24 
25 
26 #ifdef CONFIG_SND_SEQUENCER_OSS
27 
28 #include <asm/uaccess.h>
29 #include <sound/core.h>
30 #include "emux_voice.h"
31 #include <sound/asoundef.h>
32 
33 static int snd_emux_open_seq_oss(struct snd_seq_oss_arg *arg, void *closure);
34 static int snd_emux_close_seq_oss(struct snd_seq_oss_arg *arg);
35 static int snd_emux_ioctl_seq_oss(struct snd_seq_oss_arg *arg, unsigned int cmd,
36 				  unsigned long ioarg);
37 static int snd_emux_load_patch_seq_oss(struct snd_seq_oss_arg *arg, int format,
38 				       const char __user *buf, int offs, int count);
39 static int snd_emux_reset_seq_oss(struct snd_seq_oss_arg *arg);
40 static int snd_emux_event_oss_input(struct snd_seq_event *ev, int direct,
41 				    void *private, int atomic, int hop);
42 static void reset_port_mode(struct snd_emux_port *port, int midi_mode);
43 static void emuspec_control(struct snd_emux *emu, struct snd_emux_port *port,
44 			    int cmd, unsigned char *event, int atomic, int hop);
45 static void gusspec_control(struct snd_emux *emu, struct snd_emux_port *port,
46 			    int cmd, unsigned char *event, int atomic, int hop);
47 static void fake_event(struct snd_emux *emu, struct snd_emux_port *port,
48 		       int ch, int param, int val, int atomic, int hop);
49 
50 /* operators */
51 static struct snd_seq_oss_callback oss_callback = {
52 	.owner = THIS_MODULE,
53 	.open = snd_emux_open_seq_oss,
54 	.close = snd_emux_close_seq_oss,
55 	.ioctl = snd_emux_ioctl_seq_oss,
56 	.load_patch = snd_emux_load_patch_seq_oss,
57 	.reset = snd_emux_reset_seq_oss,
58 };
59 
60 
61 /*
62  * register OSS synth
63  */
64 
65 void
66 snd_emux_init_seq_oss(struct snd_emux *emu)
67 {
68 	struct snd_seq_oss_reg *arg;
69 	struct snd_seq_device *dev;
70 
71 	if (snd_seq_device_new(emu->card, 0, SNDRV_SEQ_DEV_ID_OSS,
72 			       sizeof(struct snd_seq_oss_reg), &dev) < 0)
73 		return;
74 
75 	emu->oss_synth = dev;
76 	strcpy(dev->name, emu->name);
77 	arg = SNDRV_SEQ_DEVICE_ARGPTR(dev);
78 	arg->type = SYNTH_TYPE_SAMPLE;
79 	arg->subtype = SAMPLE_TYPE_AWE32;
80 	arg->nvoices = emu->max_voices;
81 	arg->oper = oss_callback;
82 	arg->private_data = emu;
83 
84 	/* register to OSS synth table */
85 	snd_device_register(emu->card, dev);
86 }
87 
88 
89 /*
90  * unregister
91  */
92 void
93 snd_emux_detach_seq_oss(struct snd_emux *emu)
94 {
95 	if (emu->oss_synth) {
96 		snd_device_free(emu->card, emu->oss_synth);
97 		emu->oss_synth = NULL;
98 	}
99 }
100 
101 
102 /* use port number as a unique soundfont client number */
103 #define SF_CLIENT_NO(p)	((p) + 0x1000)
104 
105 /*
106  * open port for OSS sequencer
107  */
108 static int
109 snd_emux_open_seq_oss(struct snd_seq_oss_arg *arg, void *closure)
110 {
111 	struct snd_emux *emu;
112 	struct snd_emux_port *p;
113 	struct snd_seq_port_callback callback;
114 	char tmpname[64];
115 
116 	emu = closure;
117 	if (snd_BUG_ON(!arg || !emu))
118 		return -ENXIO;
119 
120 	mutex_lock(&emu->register_mutex);
121 
122 	if (!snd_emux_inc_count(emu)) {
123 		mutex_unlock(&emu->register_mutex);
124 		return -EFAULT;
125 	}
126 
127 	memset(&callback, 0, sizeof(callback));
128 	callback.owner = THIS_MODULE;
129 	callback.event_input = snd_emux_event_oss_input;
130 
131 	sprintf(tmpname, "%s OSS Port", emu->name);
132 	p = snd_emux_create_port(emu, tmpname, 32,
133 				 1, &callback);
134 	if (p == NULL) {
135 		snd_printk(KERN_ERR "can't create port\n");
136 		snd_emux_dec_count(emu);
137 		mutex_unlock(&emu->register_mutex);
138 		return -ENOMEM;
139 	}
140 
141 	/* fill the argument data */
142 	arg->private_data = p;
143 	arg->addr.client = p->chset.client;
144 	arg->addr.port = p->chset.port;
145 	p->oss_arg = arg;
146 
147 	reset_port_mode(p, arg->seq_mode);
148 
149 	snd_emux_reset_port(p);
150 
151 	mutex_unlock(&emu->register_mutex);
152 	return 0;
153 }
154 
155 
156 #define DEFAULT_DRUM_FLAGS	((1<<9) | (1<<25))
157 
158 /*
159  * reset port mode
160  */
161 static void
162 reset_port_mode(struct snd_emux_port *port, int midi_mode)
163 {
164 	if (midi_mode) {
165 		port->port_mode = SNDRV_EMUX_PORT_MODE_OSS_MIDI;
166 		port->drum_flags = DEFAULT_DRUM_FLAGS;
167 		port->volume_atten = 0;
168 		port->oss_arg->event_passing = SNDRV_SEQ_OSS_PROCESS_KEYPRESS;
169 	} else {
170 		port->port_mode = SNDRV_EMUX_PORT_MODE_OSS_SYNTH;
171 		port->drum_flags = 0;
172 		port->volume_atten = 32;
173 		port->oss_arg->event_passing = SNDRV_SEQ_OSS_PROCESS_EVENTS;
174 	}
175 }
176 
177 
178 /*
179  * close port
180  */
181 static int
182 snd_emux_close_seq_oss(struct snd_seq_oss_arg *arg)
183 {
184 	struct snd_emux *emu;
185 	struct snd_emux_port *p;
186 
187 	if (snd_BUG_ON(!arg))
188 		return -ENXIO;
189 	p = arg->private_data;
190 	if (snd_BUG_ON(!p))
191 		return -ENXIO;
192 
193 	emu = p->emu;
194 	if (snd_BUG_ON(!emu))
195 		return -ENXIO;
196 
197 	mutex_lock(&emu->register_mutex);
198 	snd_emux_sounds_off_all(p);
199 	snd_soundfont_close_check(emu->sflist, SF_CLIENT_NO(p->chset.port));
200 	snd_seq_event_port_detach(p->chset.client, p->chset.port);
201 	snd_emux_dec_count(emu);
202 
203 	mutex_unlock(&emu->register_mutex);
204 	return 0;
205 }
206 
207 
208 /*
209  * load patch
210  */
211 static int
212 snd_emux_load_patch_seq_oss(struct snd_seq_oss_arg *arg, int format,
213 			    const char __user *buf, int offs, int count)
214 {
215 	struct snd_emux *emu;
216 	struct snd_emux_port *p;
217 	int rc;
218 
219 	if (snd_BUG_ON(!arg))
220 		return -ENXIO;
221 	p = arg->private_data;
222 	if (snd_BUG_ON(!p))
223 		return -ENXIO;
224 
225 	emu = p->emu;
226 	if (snd_BUG_ON(!emu))
227 		return -ENXIO;
228 
229 	if (format == GUS_PATCH)
230 		rc = snd_soundfont_load_guspatch(emu->sflist, buf, count,
231 						 SF_CLIENT_NO(p->chset.port));
232 	else if (format == SNDRV_OSS_SOUNDFONT_PATCH) {
233 		struct soundfont_patch_info patch;
234 		if (count < (int)sizeof(patch))
235 			rc = -EINVAL;
236 		if (copy_from_user(&patch, buf, sizeof(patch)))
237 			rc = -EFAULT;
238 		if (patch.type >= SNDRV_SFNT_LOAD_INFO &&
239 		    patch.type <= SNDRV_SFNT_PROBE_DATA)
240 			rc = snd_soundfont_load(emu->sflist, buf, count, SF_CLIENT_NO(p->chset.port));
241 		else {
242 			if (emu->ops.load_fx)
243 				rc = emu->ops.load_fx(emu, patch.type, patch.optarg, buf, count);
244 			else
245 				rc = -EINVAL;
246 		}
247 	} else
248 		rc = 0;
249 	return rc;
250 }
251 
252 
253 /*
254  * ioctl
255  */
256 static int
257 snd_emux_ioctl_seq_oss(struct snd_seq_oss_arg *arg, unsigned int cmd, unsigned long ioarg)
258 {
259 	struct snd_emux_port *p;
260 	struct snd_emux *emu;
261 
262 	if (snd_BUG_ON(!arg))
263 		return -ENXIO;
264 	p = arg->private_data;
265 	if (snd_BUG_ON(!p))
266 		return -ENXIO;
267 
268 	emu = p->emu;
269 	if (snd_BUG_ON(!emu))
270 		return -ENXIO;
271 
272 	switch (cmd) {
273 	case SNDCTL_SEQ_RESETSAMPLES:
274 		snd_soundfont_remove_samples(emu->sflist);
275 		return 0;
276 
277 	case SNDCTL_SYNTH_MEMAVL:
278 		if (emu->memhdr)
279 			return snd_util_mem_avail(emu->memhdr);
280 		return 0;
281 	}
282 
283 	return 0;
284 }
285 
286 
287 /*
288  * reset device
289  */
290 static int
291 snd_emux_reset_seq_oss(struct snd_seq_oss_arg *arg)
292 {
293 	struct snd_emux_port *p;
294 
295 	if (snd_BUG_ON(!arg))
296 		return -ENXIO;
297 	p = arg->private_data;
298 	if (snd_BUG_ON(!p))
299 		return -ENXIO;
300 	snd_emux_reset_port(p);
301 	return 0;
302 }
303 
304 
305 /*
306  * receive raw events: only SEQ_PRIVATE is accepted.
307  */
308 static int
309 snd_emux_event_oss_input(struct snd_seq_event *ev, int direct, void *private_data,
310 			 int atomic, int hop)
311 {
312 	struct snd_emux *emu;
313 	struct snd_emux_port *p;
314 	unsigned char cmd, *data;
315 
316 	p = private_data;
317 	if (snd_BUG_ON(!p))
318 		return -EINVAL;
319 	emu = p->emu;
320 	if (snd_BUG_ON(!emu))
321 		return -EINVAL;
322 	if (ev->type != SNDRV_SEQ_EVENT_OSS)
323 		return snd_emux_event_input(ev, direct, private_data, atomic, hop);
324 
325 	data = ev->data.raw8.d;
326 	/* only SEQ_PRIVATE is accepted */
327 	if (data[0] != 0xfe)
328 		return 0;
329 	cmd = data[2] & _EMUX_OSS_MODE_VALUE_MASK;
330 	if (data[2] & _EMUX_OSS_MODE_FLAG)
331 		emuspec_control(emu, p, cmd, data, atomic, hop);
332 	else
333 		gusspec_control(emu, p, cmd, data, atomic, hop);
334 	return 0;
335 }
336 
337 
338 /*
339  * OSS/AWE driver specific h/w controls
340  */
341 static void
342 emuspec_control(struct snd_emux *emu, struct snd_emux_port *port, int cmd,
343 		unsigned char *event, int atomic, int hop)
344 {
345 	int voice;
346 	unsigned short p1;
347 	short p2;
348 	int i;
349 	struct snd_midi_channel *chan;
350 
351 	voice = event[3];
352 	if (voice < 0 || voice >= port->chset.max_channels)
353 		chan = NULL;
354 	else
355 		chan = &port->chset.channels[voice];
356 
357 	p1 = *(unsigned short *) &event[4];
358 	p2 = *(short *) &event[6];
359 
360 	switch (cmd) {
361 #if 0 /* don't do this atomically */
362 	case _EMUX_OSS_REMOVE_LAST_SAMPLES:
363 		snd_soundfont_remove_unlocked(emu->sflist);
364 		break;
365 #endif
366 	case _EMUX_OSS_SEND_EFFECT:
367 		if (chan)
368 			snd_emux_send_effect_oss(port, chan, p1, p2);
369 		break;
370 
371 	case _EMUX_OSS_TERMINATE_ALL:
372 		snd_emux_terminate_all(emu);
373 		break;
374 
375 	case _EMUX_OSS_TERMINATE_CHANNEL:
376 		/*snd_emux_mute_channel(emu, chan);*/
377 		break;
378 	case _EMUX_OSS_RESET_CHANNEL:
379 		/*snd_emux_channel_init(chset, chan);*/
380 		break;
381 
382 	case _EMUX_OSS_RELEASE_ALL:
383 		fake_event(emu, port, voice, MIDI_CTL_ALL_NOTES_OFF, 0, atomic, hop);
384 		break;
385 	case _EMUX_OSS_NOTEOFF_ALL:
386 		fake_event(emu, port, voice, MIDI_CTL_ALL_SOUNDS_OFF, 0, atomic, hop);
387 		break;
388 
389 	case _EMUX_OSS_INITIAL_VOLUME:
390 		if (p2) {
391 			port->volume_atten = (short)p1;
392 			snd_emux_update_port(port, SNDRV_EMUX_UPDATE_VOLUME);
393 		}
394 		break;
395 
396 	case _EMUX_OSS_CHN_PRESSURE:
397 		if (chan) {
398 			chan->midi_pressure = p1;
399 			snd_emux_update_channel(port, chan, SNDRV_EMUX_UPDATE_FMMOD|SNDRV_EMUX_UPDATE_FM2FRQ2);
400 		}
401 		break;
402 
403 	case _EMUX_OSS_CHANNEL_MODE:
404 		reset_port_mode(port, p1);
405 		snd_emux_reset_port(port);
406 		break;
407 
408 	case _EMUX_OSS_DRUM_CHANNELS:
409 		port->drum_flags = *(unsigned int*)&event[4];
410 		for (i = 0; i < port->chset.max_channels; i++) {
411 			chan = &port->chset.channels[i];
412 			chan->drum_channel = ((port->drum_flags >> i) & 1) ? 1 : 0;
413 		}
414 		break;
415 
416 	case _EMUX_OSS_MISC_MODE:
417 		if (p1 < EMUX_MD_END)
418 			port->ctrls[p1] = p2;
419 		break;
420 	case _EMUX_OSS_DEBUG_MODE:
421 		break;
422 
423 	default:
424 		if (emu->ops.oss_ioctl)
425 			emu->ops.oss_ioctl(emu, cmd, p1, p2);
426 		break;
427 	}
428 }
429 
430 /*
431  * GUS specific h/w controls
432  */
433 
434 #include <linux/ultrasound.h>
435 
436 static void
437 gusspec_control(struct snd_emux *emu, struct snd_emux_port *port, int cmd,
438 		unsigned char *event, int atomic, int hop)
439 {
440 	int voice;
441 	unsigned short p1;
442 	short p2;
443 	int plong;
444 	struct snd_midi_channel *chan;
445 
446 	if (port->port_mode != SNDRV_EMUX_PORT_MODE_OSS_SYNTH)
447 		return;
448 	if (cmd == _GUS_NUMVOICES)
449 		return;
450 	voice = event[3];
451 	if (voice < 0 || voice >= port->chset.max_channels)
452 		return;
453 
454 	chan = &port->chset.channels[voice];
455 
456 	p1 = *(unsigned short *) &event[4];
457 	p2 = *(short *) &event[6];
458 	plong = *(int*) &event[4];
459 
460 	switch (cmd) {
461 	case _GUS_VOICESAMPLE:
462 		chan->midi_program = p1;
463 		return;
464 
465 	case _GUS_VOICEBALA:
466 		/* 0 to 15 --> 0 to 127 */
467 		chan->control[MIDI_CTL_MSB_PAN] = (int)p1 << 3;
468 		snd_emux_update_channel(port, chan, SNDRV_EMUX_UPDATE_PAN);
469 		return;
470 
471 	case _GUS_VOICEVOL:
472 	case _GUS_VOICEVOL2:
473 		/* not supported yet */
474 		return;
475 
476 	case _GUS_RAMPRANGE:
477 	case _GUS_RAMPRATE:
478 	case _GUS_RAMPMODE:
479 	case _GUS_RAMPON:
480 	case _GUS_RAMPOFF:
481 		/* volume ramping not supported */
482 		return;
483 
484 	case _GUS_VOLUME_SCALE:
485 		return;
486 
487 	case _GUS_VOICE_POS:
488 #ifdef SNDRV_EMUX_USE_RAW_EFFECT
489 		snd_emux_send_effect(port, chan, EMUX_FX_SAMPLE_START,
490 				     (short)(plong & 0x7fff),
491 				     EMUX_FX_FLAG_SET);
492 		snd_emux_send_effect(port, chan, EMUX_FX_COARSE_SAMPLE_START,
493 				     (plong >> 15) & 0xffff,
494 				     EMUX_FX_FLAG_SET);
495 #endif
496 		return;
497 	}
498 }
499 
500 
501 /*
502  * send an event to midi emulation
503  */
504 static void
505 fake_event(struct snd_emux *emu, struct snd_emux_port *port, int ch, int param, int val, int atomic, int hop)
506 {
507 	struct snd_seq_event ev;
508 	memset(&ev, 0, sizeof(ev));
509 	ev.type = SNDRV_SEQ_EVENT_CONTROLLER;
510 	ev.data.control.channel = ch;
511 	ev.data.control.param = param;
512 	ev.data.control.value = val;
513 	snd_emux_event_input(&ev, 0, port, atomic, hop);
514 }
515 
516 #endif /* CONFIG_SND_SEQUENCER_OSS */
517