/* * OSS compatible sequencer driver * * synth device handlers * * Copyright (C) 1998,99 Takashi Iwai <tiwai@suse.de> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA */#include "seq_oss_synth.h"#include "seq_oss_midi.h"#include "../seq_lock.h"#include <linux/init.h>/* * constants */#define SNDRV_SEQ_OSS_MAX_SYNTH_NAME	30#define MAX_SYSEX_BUFLEN		128/* * definition of synth info records *//* sysex buffer */struct seq_oss_synth_sysex_t {	int len;	int skip;	unsigned char buf[MAX_SYSEX_BUFLEN];};/* synth info */struct seq_oss_synth_t {	int seq_device;	/* for synth_info */	int synth_type;	int synth_subtype;	int nr_voices;	char name[SNDRV_SEQ_OSS_MAX_SYNTH_NAME];	snd_seq_oss_callback_t oper;	int opened;	void *private_data;	snd_use_lock_t use_lock;};/* * device table */static int max_synth_devs;static seq_oss_synth_t *synth_devs[SNDRV_SEQ_OSS_MAX_SYNTH_DEVS];static seq_oss_synth_t midi_synth_dev = {	-1, /* seq_device */	SYNTH_TYPE_MIDI, /* synth_type */	0, /* synth_subtype */	16, /* nr_voices */	"MIDI", /* name */};static spinlock_t register_lock = SPIN_LOCK_UNLOCKED;/* * prototypes */static seq_oss_synth_t *get_synthdev(seq_oss_devinfo_t *dp, int dev);static void reset_channels(seq_oss_synthinfo_t *info);/* * global initialization */void __initsnd_seq_oss_synth_init(void){	snd_use_lock_init(&midi_synth_dev.use_lock);}/* * registration of the synth device */intsnd_seq_oss_synth_register(snd_seq_device_t *dev){	int i;	seq_oss_synth_t *rec;	snd_seq_oss_reg_t *reg = SNDRV_SEQ_DEVICE_ARGPTR(dev);	unsigned long flags;	if ((rec = snd_kcalloc(sizeof(*rec), GFP_KERNEL)) == NULL) {		snd_printk(KERN_ERR "can't malloc synth info\n");		return -ENOMEM;	}	rec->seq_device = -1;	rec->synth_type = reg->type;	rec->synth_subtype = reg->subtype;	rec->nr_voices = reg->nvoices;	rec->oper = reg->oper;	rec->private_data = reg->private_data;	rec->opened = 0;	snd_use_lock_init(&rec->use_lock);	/* copy and truncate the name of synth device */	strlcpy(rec->name, dev->name, sizeof(rec->name));	/* registration */	spin_lock_irqsave(&register_lock, flags);	for (i = 0; i < max_synth_devs; i++) {		if (synth_devs[i] == NULL)			break;	}	if (i >= max_synth_devs) {		if (max_synth_devs >= SNDRV_SEQ_OSS_MAX_SYNTH_DEVS) {			spin_unlock_irqrestore(&register_lock, flags);			snd_printk(KERN_ERR "no more synth slot\n");			kfree(rec);			return -ENOMEM;		}		max_synth_devs++;	}	rec->seq_device = i;	synth_devs[i] = rec;	debug_printk(("synth %s registered %d\n", rec->name, i));	spin_unlock_irqrestore(&register_lock, flags);	dev->driver_data = rec;#ifdef SNDRV_OSS_INFO_DEV_SYNTH	if (i < SNDRV_CARDS)		snd_oss_info_register(SNDRV_OSS_INFO_DEV_SYNTH, i, rec->name);#endif	return 0;}intsnd_seq_oss_synth_unregister(snd_seq_device_t *dev){	int index;	seq_oss_synth_t *rec = dev->driver_data;	unsigned long flags;	spin_lock_irqsave(&register_lock, flags);	for (index = 0; index < max_synth_devs; index++) {		if (synth_devs[index] == rec)			break;	}	if (index >= max_synth_devs) {		spin_unlock_irqrestore(&register_lock, flags);		snd_printk(KERN_ERR "can't unregister synth\n");		return -EINVAL;	}	synth_devs[index] = NULL;	if (index == max_synth_devs - 1) {		for (index--; index >= 0; index--) {			if (synth_devs[index])				break;		}		max_synth_devs = index + 1;	}	spin_unlock_irqrestore(&register_lock, flags);#ifdef SNDRV_OSS_INFO_DEV_SYNTH	if (rec->seq_device < SNDRV_CARDS)		snd_oss_info_unregister(SNDRV_OSS_INFO_DEV_SYNTH, rec->seq_device);#endif	snd_use_lock_sync(&rec->use_lock);	kfree(rec);	return 0;}/* */static seq_oss_synth_t *get_sdev(int dev){	seq_oss_synth_t *rec;	unsigned long flags;	spin_lock_irqsave(&register_lock, flags);	rec = synth_devs[dev];	if (rec)		snd_use_lock_use(&rec->use_lock);	spin_unlock_irqrestore(&register_lock, flags);	return rec;}/* * set up synth tables */voidsnd_seq_oss_synth_setup(seq_oss_devinfo_t *dp){	int i;	seq_oss_synth_t *rec;	seq_oss_synthinfo_t *info;	dp->max_synthdev = max_synth_devs;	dp->synth_opened = 0;	memset(dp->synths, 0, sizeof(dp->synths));	for (i = 0; i < dp->max_synthdev; i++) {		rec = get_sdev(i);		if (rec == NULL)			continue;		if (rec->oper.open == NULL || rec->oper.close == NULL) {			snd_use_lock_free(&rec->use_lock);			continue;		}		info = &dp->synths[i];		info->arg.app_index = dp->port;		info->arg.file_mode = dp->file_mode;		info->arg.seq_mode = dp->seq_mode;		if (dp->seq_mode == SNDRV_SEQ_OSS_MODE_SYNTH)			info->arg.event_passing = SNDRV_SEQ_OSS_PROCESS_EVENTS;		else			info->arg.event_passing = SNDRV_SEQ_OSS_PASS_EVENTS;		info->opened = 0;		if (!try_module_get(rec->oper.owner)) {			snd_use_lock_free(&rec->use_lock);			continue;		}		if (rec->oper.open(&info->arg, rec->private_data) < 0) {			module_put(rec->oper.owner);			snd_use_lock_free(&rec->use_lock);			continue;		}		info->nr_voices = rec->nr_voices;		if (info->nr_voices > 0) {			info->ch = snd_kcalloc(sizeof(seq_oss_chinfo_t) * info->nr_voices, GFP_KERNEL);			reset_channels(info);		}		debug_printk(("synth %d assigned\n", i));		info->opened++;		rec->opened++;		dp->synth_opened++;		snd_use_lock_free(&rec->use_lock);	}}/* * set up synth tables for MIDI emulation - /dev/music mode only */voidsnd_seq_oss_synth_setup_midi(seq_oss_devinfo_t *dp){	int i;	if (dp->max_synthdev >= SNDRV_SEQ_OSS_MAX_SYNTH_DEVS)		return;	for (i = 0; i < dp->max_mididev; i++) {		seq_oss_synthinfo_t *info;		info = &dp->synths[dp->max_synthdev];		if (snd_seq_oss_midi_open(dp, i, dp->file_mode) < 0)			continue;		info->arg.app_index = dp->port;		info->arg.file_mode = dp->file_mode;		info->arg.seq_mode = dp->seq_mode;		info->arg.private_data = info;		info->is_midi = 1;		info->midi_mapped = i;		info->arg.event_passing = SNDRV_SEQ_OSS_PASS_EVENTS;		snd_seq_oss_midi_get_addr(dp, i, &info->arg.addr);		info->opened = 1;		midi_synth_dev.opened++;		dp->max_synthdev++;		if (dp->max_synthdev >= SNDRV_SEQ_OSS_MAX_SYNTH_DEVS)			break;	}}/* * clean up synth tables */voidsnd_seq_oss_synth_cleanup(seq_oss_devinfo_t *dp){	int i;	seq_oss_synth_t *rec;	seq_oss_synthinfo_t *info;	snd_assert(dp->max_synthdev <= SNDRV_SEQ_OSS_MAX_SYNTH_DEVS, return);	for (i = 0; i < dp->max_synthdev; i++) {		info = &dp->synths[i];		if (! info->opened)			continue;		if (info->is_midi) {			if (midi_synth_dev.opened > 0) {				snd_seq_oss_midi_close(dp, info->midi_mapped);				midi_synth_dev.opened--;			}		} else {			rec = get_sdev(i);			if (rec == NULL)				continue;			if (rec->opened > 0) {				debug_printk(("synth %d closed\n", i));				rec->oper.close(&info->arg);				module_put(rec->oper.owner);				rec->opened = 0;			}			snd_use_lock_free(&rec->use_lock);		}		if (info->sysex) {			kfree(info->sysex);			info->sysex = NULL;		}		if (info->ch) {			kfree(info->ch);			info->ch = NULL;		}	}	dp->synth_opened = 0;	dp->max_synthdev = 0;}/* * check if the specified device is MIDI mapped device */static intis_midi_dev(seq_oss_devinfo_t *dp, int dev){	if (dev < 0 || dev >= dp->max_synthdev)		return 0;	if (dp->synths[dev].is_midi)		return 1;	return 0;}/* * return synth device information pointer */static seq_oss_synth_t *get_synthdev(seq_oss_devinfo_t *dp, int dev){	seq_oss_synth_t *rec;	if (dev < 0 || dev >= dp->max_synthdev)		return NULL;	if (! dp->synths[dev].opened)		return NULL;	if (dp->synths[dev].is_midi)		return &midi_synth_dev;	if ((rec = get_sdev(dev)) == NULL)		return NULL;	if (! rec->opened) {		snd_use_lock_free(&rec->use_lock);		return NULL;	}	return rec;}/* * reset note and velocity on each channel. */static voidreset_channels(seq_oss_synthinfo_t *info){	int i;	if (info->ch == NULL || ! info->nr_voices)		return;	for (i = 0; i < info->nr_voices; i++) {		info->ch[i].note = -1;		info->ch[i].vel = 0;	}}/* * reset synth device: * call reset callback.  if no callback is defined, send a heartbeat * event to the corresponding port. */voidsnd_seq_oss_synth_reset(seq_oss_devinfo_t *dp, int dev){	seq_oss_synth_t *rec;	seq_oss_synthinfo_t *info;	snd_assert(dev >= 0 && dev < dp->max_synthdev, return);	info = &dp->synths[dev];	if (! info->opened)		return;	if (info->sysex)		info->sysex->len = 0; /* reset sysex */	reset_channels(info);	if (info->is_midi) {		if (midi_synth_dev.opened <= 0)			return;		snd_seq_oss_midi_reset(dp, info->midi_mapped);		/* reopen the device */		snd_seq_oss_midi_close(dp, dev);		if (snd_seq_oss_midi_open(dp, info->midi_mapped,					  dp->file_mode) < 0) {			midi_synth_dev.opened--;			info->opened = 0;			if (info->sysex) {				kfree(info->sysex);				info->sysex = NULL;			}			if (info->ch) {				kfree(info->ch);				info->ch = NULL;			}		}		return;	}	rec = get_sdev(dev);	if (rec == NULL)		return;	if (rec->oper.reset) {		rec->oper.reset(&info->arg);	} else {		snd_seq_event_t ev;		memset(&ev, 0, sizeof(ev));		snd_seq_oss_fill_addr(dp, &ev, info->arg.addr.client,				      info->arg.addr.port);		ev.type = SNDRV_SEQ_EVENT_RESET;		snd_seq_oss_dispatch(dp, &ev, 0, 0);	}	snd_use_lock_free(&rec->use_lock);}/* * load a patch record: * call load_patch callback function */intsnd_seq_oss_synth_load_patch(seq_oss_devinfo_t *dp, int dev, int fmt,			    const char __user *buf, int p, int c){	seq_oss_synth_t *rec;	int rc;	if (dev < 0 || dev >= dp->max_synthdev)		return -ENXIO;	if (is_midi_dev(dp, dev))		return 0;	if ((rec = get_synthdev(dp, dev)) == NULL)		return -ENXIO;	if (rec->oper.load_patch == NULL)		rc = -ENXIO;	else		rc = rec->oper.load_patch(&dp->synths[dev].arg, fmt, buf, p, c);	snd_use_lock_free(&rec->use_lock);	return rc;}/* * check if the device is valid synth device */intsnd_seq_oss_synth_is_valid(seq_oss_devinfo_t *dp, int dev){	seq_oss_synth_t *rec;	rec = get_synthdev(dp, dev);	if (rec) {		snd_use_lock_free(&rec->use_lock);		return 1;	}	return 0;}/* * receive OSS 6 byte sysex packet: * the full sysex message will be sent if it reaches to the end of data * (0xff). */intsnd_seq_oss_synth_sysex(seq_oss_devinfo_t *dp, int dev, unsigned char *buf, snd_seq_event_t *ev){	int i, send;	unsigned char *dest;	seq_oss_synth_sysex_t *sysex;	if (! snd_seq_oss_synth_is_valid(dp, dev))		return -ENXIO;	sysex = dp->synths[dev].sysex;	if (sysex == NULL) {		sysex = snd_kcalloc(sizeof(*sysex), GFP_KERNEL);		if (sysex == NULL)			return -ENOMEM;		dp->synths[dev].sysex = sysex;	}	send = 0;	dest = sysex->buf + sysex->len;	/* copy 6 byte packet to the buffer */	for (i = 0; i < 6; i++) {		if (buf[i] == 0xff) {			send = 1;			break;		}		dest[i] = buf[i];		sysex->len++;		if (sysex->len >= MAX_SYSEX_BUFLEN) {			sysex->len = 0;			sysex->skip = 1;			break;		}	}	if (sysex->len && send) {		if (sysex->skip) {			sysex->skip = 0;			sysex->len = 0;			return -EINVAL; /* skip */		}		/* copy the data to event record and send it */		ev->flags = SNDRV_SEQ_EVENT_LENGTH_VARIABLE;		if (snd_seq_oss_synth_addr(dp, dev, ev))			return -EINVAL;		ev->data.ext.len = sysex->len;		ev->data.ext.ptr = sysex->buf;		sysex->len = 0;		return 0;	}	return -EINVAL; /* skip */}/* * fill the event source/destination addresses */intsnd_seq_oss_synth_addr(seq_oss_devinfo_t *dp, int dev, snd_seq_event_t *ev){	if (! snd_seq_oss_synth_is_valid(dp, dev))		return -EINVAL;	snd_seq_oss_fill_addr(dp, ev, dp->synths[dev].arg.addr.client,			      dp->synths[dev].arg.addr.port);	return 0;}/* * OSS compatible ioctl */intsnd_seq_oss_synth_ioctl(seq_oss_devinfo_t *dp, int dev, unsigned int cmd, unsigned long addr){	seq_oss_synth_t *rec;	int rc;	if (is_midi_dev(dp, dev))		return -ENXIO;	if ((rec = get_synthdev(dp, dev)) == NULL)		return -ENXIO;	if (rec->oper.ioctl == NULL)		rc = -ENXIO;	else		rc = rec->oper.ioctl(&dp->synths[dev].arg, cmd, addr);	snd_use_lock_free(&rec->use_lock);	return rc;}/* * send OSS raw events - SEQ_PRIVATE and SEQ_VOLUME */intsnd_seq_oss_synth_raw_event(seq_oss_devinfo_t *dp, int dev, unsigned char *data, snd_seq_event_t *ev){	if (! snd_seq_oss_synth_is_valid(dp, dev) || is_midi_dev(dp, dev))		return -ENXIO;	ev->type = SNDRV_SEQ_EVENT_OSS;	memcpy(ev->data.raw8.d, data, 8);	return snd_seq_oss_synth_addr(dp, dev, ev);}/* * create OSS compatible synth_info record */intsnd_seq_oss_synth_make_info(seq_oss_devinfo_t *dp, int dev, struct synth_info *inf){	seq_oss_synth_t *rec;	if (dp->synths[dev].is_midi) {		struct midi_info minf;		snd_seq_oss_midi_make_info(dp, dp->synths[dev].midi_mapped, &minf);		inf->synth_type = SYNTH_TYPE_MIDI;		inf->synth_subtype = 0;		inf->nr_voices = 16;		inf->device = dev;		strlcpy(inf->name, minf.name, sizeof(inf->name));	} else {		if ((rec = get_synthdev(dp, dev)) == NULL)			return -ENXIO;		inf->synth_type = rec->synth_type;		inf->synth_subtype = rec->synth_subtype;		inf->nr_voices = rec->nr_voices;		inf->device = dev;		strlcpy(inf->name, rec->name, sizeof(inf->name));		snd_use_lock_free(&rec->use_lock);	}	return 0;}/* * proc interface */voidsnd_seq_oss_synth_info_read(snd_info_buffer_t *buf){	int i;	seq_oss_synth_t *rec;	snd_iprintf(buf, "\nNumber of synth devices: %d\n", max_synth_devs);	for (i = 0; i < max_synth_devs; i++) {		snd_iprintf(buf, "\nsynth %d: ", i);		rec = get_sdev(i);		if (rec == NULL) {			snd_iprintf(buf, "*empty*\n");			continue;		}		snd_iprintf(buf, "[%s]\n", rec->name);		snd_iprintf(buf, "  type 0x%x : subtype 0x%x : voices %d\n",			    rec->synth_type, rec->synth_subtype,			    rec->nr_voices);		snd_iprintf(buf, "  capabilities : ioctl %s / load_patch %s\n",			    enabled_str((long)rec->oper.ioctl),			    enabled_str((long)rec->oper.load_patch));		snd_use_lock_free(&rec->use_lock);	}}