[net-next-2.6.git] / sound / core / seq / oss / seq_oss_synth.c

/*
 * 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>
#include <linux/slab.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 {
	int len;
	int skip;
	unsigned char buf[MAX_SYSEX_BUFLEN];
};

/* synth info */
struct seq_oss_synth {
	int seq_device;

	/* for synth_info */
	int synth_type;
	int synth_subtype;
	int nr_voices;

	char name[SNDRV_SEQ_OSS_MAX_SYNTH_NAME];
	struct snd_seq_oss_callback oper;

	int opened;

	void *private_data;
	snd_use_lock_t use_lock;
};


/*
 * device table
 */
static int max_synth_devs;
static struct seq_oss_synth *synth_devs[SNDRV_SEQ_OSS_MAX_SYNTH_DEVS];
static struct seq_oss_synth midi_synth_dev = {
	-1, /* seq_device */
	SYNTH_TYPE_MIDI, /* synth_type */
	0, /* synth_subtype */
	16, /* nr_voices */
	"MIDI", /* name */
};

static DEFINE_SPINLOCK(register_lock);

/*
 * prototypes
 */
static struct seq_oss_synth *get_synthdev(struct seq_oss_devinfo *dp, int dev);
static void reset_channels(struct seq_oss_synthinfo *info);

/*
 * global initialization
 */
void __init
snd_seq_oss_synth_init(void)
{
	snd_use_lock_init(&midi_synth_dev.use_lock);
}

/*
 * registration of the synth device
 */
int
snd_seq_oss_synth_register(struct snd_seq_device *dev)
{
	int i;
	struct seq_oss_synth *rec;
	struct snd_seq_oss_reg *reg = SNDRV_SEQ_DEVICE_ARGPTR(dev);
	unsigned long flags;

	if ((rec = kzalloc(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;
}


int
snd_seq_oss_synth_unregister(struct snd_seq_device *dev)
{
	int index;
	struct seq_oss_synth *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 struct seq_oss_synth *
get_sdev(int dev)
{
	struct seq_oss_synth *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
 */

void
snd_seq_oss_synth_setup(struct seq_oss_devinfo *dp)
{
	int i;
	struct seq_oss_synth *rec;
	struct seq_oss_synthinfo *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 = kcalloc(info->nr_voices, sizeof(struct seq_oss_chinfo), GFP_KERNEL);
			if (!info->ch) {
				snd_printk(KERN_ERR "Cannot malloc\n");
				rec->oper.close(&info->arg);
				module_put(rec->oper.owner);
				snd_use_lock_free(&rec->use_lock);
				continue;
			}
			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
 */

void
snd_seq_oss_synth_setup_midi(struct seq_oss_devinfo *dp)
{
	int i;

	if (dp->max_synthdev >= SNDRV_SEQ_OSS_MAX_SYNTH_DEVS)
		return;

	for (i = 0; i < dp->max_mididev; i++) {
		struct seq_oss_synthinfo *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
 */

void
snd_seq_oss_synth_cleanup(struct seq_oss_devinfo *dp)
{
	int i;
	struct seq_oss_synth *rec;
	struct seq_oss_synthinfo *info;

	if (snd_BUG_ON(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);
		}
		kfree(info->sysex);
		info->sysex = NULL;
		kfree(info->ch);
		info->ch = NULL;
	}
	dp->synth_opened = 0;
	dp->max_synthdev = 0;
}

/*
 * check if the specified device is MIDI mapped device
 */
static int
is_midi_dev(struct seq_oss_devinfo *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 struct seq_oss_synth *
get_synthdev(struct seq_oss_devinfo *dp, int dev)
{
	struct seq_oss_synth *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 void
reset_channels(struct seq_oss_synthinfo *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.
 */
void
snd_seq_oss_synth_reset(struct seq_oss_devinfo *dp, int dev)
{
	struct seq_oss_synth *rec;
	struct seq_oss_synthinfo *info;

	if (snd_BUG_ON(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;
			kfree(info->sysex);
			info->sysex = NULL;
			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 {
		struct snd_seq_event 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
 */
int
snd_seq_oss_synth_load_patch(struct seq_oss_devinfo *dp, int dev, int fmt,
			    const char __user *buf, int p, int c)
{
	struct seq_oss_synth *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
 */
int
snd_seq_oss_synth_is_valid(struct seq_oss_devinfo *dp, int dev)
{
	struct seq_oss_synth *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).
 */
int
snd_seq_oss_synth_sysex(struct seq_oss_devinfo *dp, int dev, unsigned char *buf, struct snd_seq_event *ev)
{
	int i, send;
	unsigned char *dest;
	struct seq_oss_synth_sysex *sysex;

	if (! snd_seq_oss_synth_is_valid(dp, dev))
		return -ENXIO;

	sysex = dp->synths[dev].sysex;
	if (sysex == NULL) {
		sysex = kzalloc(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
 */
int
snd_seq_oss_synth_addr(struct seq_oss_devinfo *dp, int dev, struct snd_seq_event *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
 */
int
snd_seq_oss_synth_ioctl(struct seq_oss_devinfo *dp, int dev, unsigned int cmd, unsigned long addr)
{
	struct seq_oss_synth *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
 */
int
snd_seq_oss_synth_raw_event(struct seq_oss_devinfo *dp, int dev, unsigned char *data, struct snd_seq_event *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
 */
int
snd_seq_oss_synth_make_info(struct seq_oss_devinfo *dp, int dev, struct synth_info *inf)
{
	struct seq_oss_synth *rec;

	if (dev < 0 || dev >= dp->max_synthdev)
		return -ENXIO;

	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;
}


#ifdef CONFIG_PROC_FS
/*
 * proc interface
 */
void
snd_seq_oss_synth_info_read(struct snd_info_buffer *buf)
{
	int i;
	struct seq_oss_synth *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);
	}
}
#endif /* CONFIG_PROC_FS */
Commit	Line	Data
1da177e4 LT	1	/*
	2	* OSS compatible sequencer driver
	3	*
	4	* synth device handlers
	5	*
	6	* Copyright (C) 1998,99 Takashi Iwai <tiwai@suse.de>
	7	*
	8	* This program is free software; you can redistribute it and/or modify
	9	* it under the terms of the GNU General Public License as published by
	10	* the Free Software Foundation; either version 2 of the License, or
	11	* (at your option) any later version.
	12	*
	13	* This program is distributed in the hope that it will be useful,
	14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	* GNU General Public License for more details.
	17	*
	18	* You should have received a copy of the GNU General Public License
	19	* along with this program; if not, write to the Free Software
	20	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	21	*/
	22
	23	#include "seq_oss_synth.h"
	24	#include "seq_oss_midi.h"
	25	#include "../seq_lock.h"
	26	#include <linux/init.h>
5a0e3ad6	27	#include <linux/slab.h>
1da177e4 LT	28
	29	/*
	30	* constants
	31	*/
	32	#define SNDRV_SEQ_OSS_MAX_SYNTH_NAME 30
	33	#define MAX_SYSEX_BUFLEN 128
	34
	35
	36	/*
	37	* definition of synth info records
	38	*/
	39
	40	/* sysex buffer */
080dece3	41	struct seq_oss_synth_sysex {
1da177e4 LT	42	int len;
	43	int skip;
	44	unsigned char buf[MAX_SYSEX_BUFLEN];
	45	};
	46
	47	/* synth info */
080dece3	48	struct seq_oss_synth {
1da177e4 LT	49	int seq_device;
	50
	51	/* for synth_info */
	52	int synth_type;
	53	int synth_subtype;
	54	int nr_voices;
	55
	56	char name[SNDRV_SEQ_OSS_MAX_SYNTH_NAME];
080dece3	57	struct snd_seq_oss_callback oper;
1da177e4 LT	58
	59	int opened;
	60
	61	void *private_data;
	62	snd_use_lock_t use_lock;
	63	};
	64
	65
	66	/*
	67	* device table
	68	*/
	69	static int max_synth_devs;
080dece3 TI	70	static struct seq_oss_synth *synth_devs[SNDRV_SEQ_OSS_MAX_SYNTH_DEVS];
080dece3 TI	71	static struct seq_oss_synth midi_synth_dev = {
1da177e4 LT	72	-1, /* seq_device */
	73	SYNTH_TYPE_MIDI, /* synth_type */
	74	0, /* synth_subtype */
	75	16, /* nr_voices */
	76	"MIDI", /* name */
	77	};
	78
	79	static DEFINE_SPINLOCK(register_lock);
	80
	81	/*
	82	* prototypes
	83	*/
080dece3 TI	84	static struct seq_oss_synth get_synthdev(struct seq_oss_devinfo dp, int dev);
080dece3 TI	85	static void reset_channels(struct seq_oss_synthinfo *info);
1da177e4 LT	86
	87	/*
	88	* global initialization
	89	*/
	90	void __init
	91	snd_seq_oss_synth_init(void)
	92	{
	93	snd_use_lock_init(&midi_synth_dev.use_lock);
	94	}
	95
	96	/*
	97	* registration of the synth device
	98	*/
	99	int
080dece3	100	snd_seq_oss_synth_register(struct snd_seq_device *dev)
1da177e4 LT	101	{
1da177e4 LT	102	int i;
080dece3 TI	103	struct seq_oss_synth *rec;
080dece3 TI	104	struct snd_seq_oss_reg *reg = SNDRV_SEQ_DEVICE_ARGPTR(dev);
1da177e4 LT	105	unsigned long flags;
1da177e4 LT	106
ecca82b4	107	if ((rec = kzalloc(sizeof(*rec), GFP_KERNEL)) == NULL) {
1da177e4 LT	108	snd_printk(KERN_ERR "can't malloc synth info\n");
	109	return -ENOMEM;
	110	}
	111	rec->seq_device = -1;
	112	rec->synth_type = reg->type;
	113	rec->synth_subtype = reg->subtype;
	114	rec->nr_voices = reg->nvoices;
	115	rec->oper = reg->oper;
	116	rec->private_data = reg->private_data;
	117	rec->opened = 0;
	118	snd_use_lock_init(&rec->use_lock);
	119
	120	/* copy and truncate the name of synth device */
	121	strlcpy(rec->name, dev->name, sizeof(rec->name));
	122
	123	/* registration */
	124	spin_lock_irqsave(&register_lock, flags);
	125	for (i = 0; i < max_synth_devs; i++) {
	126	if (synth_devs[i] == NULL)
	127	break;
	128	}
	129	if (i >= max_synth_devs) {
	130	if (max_synth_devs >= SNDRV_SEQ_OSS_MAX_SYNTH_DEVS) {
	131	spin_unlock_irqrestore(&register_lock, flags);
	132	snd_printk(KERN_ERR "no more synth slot\n");
	133	kfree(rec);
	134	return -ENOMEM;
	135	}
	136	max_synth_devs++;
	137	}
	138	rec->seq_device = i;
	139	synth_devs[i] = rec;
	140	debug_printk(("synth %s registered %d\n", rec->name, i));
	141	spin_unlock_irqrestore(&register_lock, flags);
	142	dev->driver_data = rec;
	143	#ifdef SNDRV_OSS_INFO_DEV_SYNTH
	144	if (i < SNDRV_CARDS)
	145	snd_oss_info_register(SNDRV_OSS_INFO_DEV_SYNTH, i, rec->name);
	146	#endif
	147	return 0;
	148	}
	149
	150
	151	int
080dece3	152	snd_seq_oss_synth_unregister(struct snd_seq_device *dev)
1da177e4 LT	153	{
1da177e4 LT	154	int index;
080dece3	155	struct seq_oss_synth *rec = dev->driver_data;
1da177e4 LT	156	unsigned long flags;
	157
	158	spin_lock_irqsave(&register_lock, flags);
	159	for (index = 0; index < max_synth_devs; index++) {
	160	if (synth_devs[index] == rec)
	161	break;
	162	}
	163	if (index >= max_synth_devs) {
	164	spin_unlock_irqrestore(&register_lock, flags);
	165	snd_printk(KERN_ERR "can't unregister synth\n");
	166	return -EINVAL;
	167	}
	168	synth_devs[index] = NULL;
	169	if (index == max_synth_devs - 1) {
	170	for (index--; index >= 0; index--) {
	171	if (synth_devs[index])
	172	break;
	173	}
	174	max_synth_devs = index + 1;
	175	}
	176	spin_unlock_irqrestore(&register_lock, flags);
	177	#ifdef SNDRV_OSS_INFO_DEV_SYNTH
	178	if (rec->seq_device < SNDRV_CARDS)
	179	snd_oss_info_unregister(SNDRV_OSS_INFO_DEV_SYNTH, rec->seq_device);
	180	#endif
	181
	182	snd_use_lock_sync(&rec->use_lock);
	183	kfree(rec);
	184
	185	return 0;
	186	}
	187
	188
	189	/*
	190	*/
080dece3	191	static struct seq_oss_synth *
1da177e4 LT	192	get_sdev(int dev)
1da177e4 LT	193	{
080dece3	194	struct seq_oss_synth *rec;
1da177e4 LT	195	unsigned long flags;
	196
	197	spin_lock_irqsave(&register_lock, flags);
	198	rec = synth_devs[dev];
	199	if (rec)
	200	snd_use_lock_use(&rec->use_lock);
	201	spin_unlock_irqrestore(&register_lock, flags);
	202	return rec;
	203	}
	204
	205
	206	/*
	207	* set up synth tables
	208	*/
	209
	210	void
080dece3	211	snd_seq_oss_synth_setup(struct seq_oss_devinfo *dp)
1da177e4 LT	212	{
1da177e4 LT	213	int i;
080dece3 TI	214	struct seq_oss_synth *rec;
080dece3 TI	215	struct seq_oss_synthinfo *info;
1da177e4 LT	216
	217	dp->max_synthdev = max_synth_devs;
	218	dp->synth_opened = 0;
	219	memset(dp->synths, 0, sizeof(dp->synths));
	220	for (i = 0; i < dp->max_synthdev; i++) {
	221	rec = get_sdev(i);
	222	if (rec == NULL)
	223	continue;
	224	if (rec->oper.open == NULL \|\| rec->oper.close == NULL) {
	225	snd_use_lock_free(&rec->use_lock);
	226	continue;
	227	}
	228	info = &dp->synths[i];
	229	info->arg.app_index = dp->port;
	230	info->arg.file_mode = dp->file_mode;
	231	info->arg.seq_mode = dp->seq_mode;
	232	if (dp->seq_mode == SNDRV_SEQ_OSS_MODE_SYNTH)
	233	info->arg.event_passing = SNDRV_SEQ_OSS_PROCESS_EVENTS;
	234	else
	235	info->arg.event_passing = SNDRV_SEQ_OSS_PASS_EVENTS;
	236	info->opened = 0;
	237	if (!try_module_get(rec->oper.owner)) {
	238	snd_use_lock_free(&rec->use_lock);
	239	continue;
	240	}
	241	if (rec->oper.open(&info->arg, rec->private_data) < 0) {
	242	module_put(rec->oper.owner);
	243	snd_use_lock_free(&rec->use_lock);
	244	continue;
	245	}
	246	info->nr_voices = rec->nr_voices;
	247	if (info->nr_voices > 0) {
080dece3	248	info->ch = kcalloc(info->nr_voices, sizeof(struct seq_oss_chinfo), GFP_KERNEL);
c354cd7d TI	249	if (!info->ch) {
	250	snd_printk(KERN_ERR "Cannot malloc\n");
	251	rec->oper.close(&info->arg);
	252	module_put(rec->oper.owner);
	253	snd_use_lock_free(&rec->use_lock);
	254	continue;
	255	}
1da177e4 LT	256	reset_channels(info);
	257	}
	258	debug_printk(("synth %d assigned\n", i));
	259	info->opened++;
	260	rec->opened++;
	261	dp->synth_opened++;
	262	snd_use_lock_free(&rec->use_lock);
	263	}
	264	}
	265
	266
	267	/*
	268	* set up synth tables for MIDI emulation - /dev/music mode only
	269	*/
	270
	271	void
080dece3	272	snd_seq_oss_synth_setup_midi(struct seq_oss_devinfo *dp)
1da177e4 LT	273	{
	274	int i;
	275
	276	if (dp->max_synthdev >= SNDRV_SEQ_OSS_MAX_SYNTH_DEVS)
	277	return;
	278
	279	for (i = 0; i < dp->max_mididev; i++) {
080dece3	280	struct seq_oss_synthinfo *info;
1da177e4 LT	281	info = &dp->synths[dp->max_synthdev];
	282	if (snd_seq_oss_midi_open(dp, i, dp->file_mode) < 0)
	283	continue;
	284	info->arg.app_index = dp->port;
	285	info->arg.file_mode = dp->file_mode;
	286	info->arg.seq_mode = dp->seq_mode;
	287	info->arg.private_data = info;
	288	info->is_midi = 1;
	289	info->midi_mapped = i;
	290	info->arg.event_passing = SNDRV_SEQ_OSS_PASS_EVENTS;
	291	snd_seq_oss_midi_get_addr(dp, i, &info->arg.addr);
	292	info->opened = 1;
	293	midi_synth_dev.opened++;
	294	dp->max_synthdev++;
	295	if (dp->max_synthdev >= SNDRV_SEQ_OSS_MAX_SYNTH_DEVS)
	296	break;
	297	}
	298	}
	299
	300
	301	/*
	302	* clean up synth tables
	303	*/
	304
	305	void
080dece3	306	snd_seq_oss_synth_cleanup(struct seq_oss_devinfo *dp)
1da177e4 LT	307	{
1da177e4 LT	308	int i;
080dece3 TI	309	struct seq_oss_synth *rec;
080dece3 TI	310	struct seq_oss_synthinfo *info;
1da177e4	311
7eaa943c TI	312	if (snd_BUG_ON(dp->max_synthdev >= SNDRV_SEQ_OSS_MAX_SYNTH_DEVS))
7eaa943c TI	313	return;
1da177e4 LT	314	for (i = 0; i < dp->max_synthdev; i++) {
	315	info = &dp->synths[i];
	316	if (! info->opened)
	317	continue;
	318	if (info->is_midi) {
	319	if (midi_synth_dev.opened > 0) {
	320	snd_seq_oss_midi_close(dp, info->midi_mapped);
	321	midi_synth_dev.opened--;
	322	}
	323	} else {
	324	rec = get_sdev(i);
	325	if (rec == NULL)
	326	continue;
	327	if (rec->opened > 0) {
	328	debug_printk(("synth %d closed\n", i));
	329	rec->oper.close(&info->arg);
	330	module_put(rec->oper.owner);
	331	rec->opened = 0;
	332	}
	333	snd_use_lock_free(&rec->use_lock);
	334	}
4d572776 JJ	335	kfree(info->sysex);
	336	info->sysex = NULL;
	337	kfree(info->ch);
	338	info->ch = NULL;
1da177e4 LT	339	}
	340	dp->synth_opened = 0;
	341	dp->max_synthdev = 0;
	342	}
	343
	344	/*
	345	* check if the specified device is MIDI mapped device
	346	*/
	347	static int
080dece3	348	is_midi_dev(struct seq_oss_devinfo *dp, int dev)
1da177e4 LT	349	{
	350	if (dev < 0 \|\| dev >= dp->max_synthdev)
	351	return 0;
	352	if (dp->synths[dev].is_midi)
	353	return 1;
	354	return 0;
	355	}
	356
	357	/*
	358	* return synth device information pointer
	359	*/
080dece3 TI	360	static struct seq_oss_synth *
080dece3 TI	361	get_synthdev(struct seq_oss_devinfo *dp, int dev)
1da177e4	362	{
080dece3	363	struct seq_oss_synth *rec;
1da177e4 LT	364	if (dev < 0 \|\| dev >= dp->max_synthdev)
	365	return NULL;
	366	if (! dp->synths[dev].opened)
	367	return NULL;
	368	if (dp->synths[dev].is_midi)
	369	return &midi_synth_dev;
	370	if ((rec = get_sdev(dev)) == NULL)
	371	return NULL;
	372	if (! rec->opened) {
	373	snd_use_lock_free(&rec->use_lock);
	374	return NULL;
	375	}
	376	return rec;
	377	}
	378
	379
	380	/*
	381	* reset note and velocity on each channel.
	382	*/
	383	static void
080dece3	384	reset_channels(struct seq_oss_synthinfo *info)
1da177e4 LT	385	{
	386	int i;
	387	if (info->ch == NULL \|\| ! info->nr_voices)
	388	return;
	389	for (i = 0; i < info->nr_voices; i++) {
	390	info->ch[i].note = -1;
	391	info->ch[i].vel = 0;
	392	}
	393	}
	394
	395
	396	/*
	397	* reset synth device:
	398	* call reset callback. if no callback is defined, send a heartbeat
	399	* event to the corresponding port.
	400	*/
	401	void
080dece3	402	snd_seq_oss_synth_reset(struct seq_oss_devinfo *dp, int dev)
1da177e4	403	{
080dece3 TI	404	struct seq_oss_synth *rec;
080dece3 TI	405	struct seq_oss_synthinfo *info;
1da177e4	406
7eaa943c TI	407	if (snd_BUG_ON(dev < 0 \|\| dev >= dp->max_synthdev))
7eaa943c TI	408	return;
1da177e4 LT	409	info = &dp->synths[dev];
	410	if (! info->opened)
	411	return;
	412	if (info->sysex)
	413	info->sysex->len = 0; /* reset sysex */
	414	reset_channels(info);
	415	if (info->is_midi) {
	416	if (midi_synth_dev.opened <= 0)
	417	return;
	418	snd_seq_oss_midi_reset(dp, info->midi_mapped);
	419	/* reopen the device */
	420	snd_seq_oss_midi_close(dp, dev);
	421	if (snd_seq_oss_midi_open(dp, info->midi_mapped,
	422	dp->file_mode) < 0) {
	423	midi_synth_dev.opened--;
	424	info->opened = 0;
4d572776 JJ	425	kfree(info->sysex);
	426	info->sysex = NULL;
	427	kfree(info->ch);
	428	info->ch = NULL;
1da177e4 LT	429	}
	430	return;
	431	}
	432
	433	rec = get_sdev(dev);
	434	if (rec == NULL)
	435	return;
	436	if (rec->oper.reset) {
	437	rec->oper.reset(&info->arg);
	438	} else {
080dece3	439	struct snd_seq_event ev;
1da177e4 LT	440	memset(&ev, 0, sizeof(ev));
	441	snd_seq_oss_fill_addr(dp, &ev, info->arg.addr.client,
	442	info->arg.addr.port);
	443	ev.type = SNDRV_SEQ_EVENT_RESET;
	444	snd_seq_oss_dispatch(dp, &ev, 0, 0);
	445	}
	446	snd_use_lock_free(&rec->use_lock);
	447	}
	448
	449
	450	/*
	451	* load a patch record:
	452	* call load_patch callback function
	453	*/
	454	int
080dece3	455	snd_seq_oss_synth_load_patch(struct seq_oss_devinfo *dp, int dev, int fmt,
1da177e4 LT	456	const char __user *buf, int p, int c)
1da177e4 LT	457	{
080dece3	458	struct seq_oss_synth *rec;
1da177e4 LT	459	int rc;
	460
	461	if (dev < 0 \|\| dev >= dp->max_synthdev)
	462	return -ENXIO;
	463
	464	if (is_midi_dev(dp, dev))
	465	return 0;
	466	if ((rec = get_synthdev(dp, dev)) == NULL)
	467	return -ENXIO;
	468
	469	if (rec->oper.load_patch == NULL)
	470	rc = -ENXIO;
	471	else
	472	rc = rec->oper.load_patch(&dp->synths[dev].arg, fmt, buf, p, c);
	473	snd_use_lock_free(&rec->use_lock);
	474	return rc;
	475	}
	476
	477	/*
	478	* check if the device is valid synth device
	479	*/
	480	int
080dece3	481	snd_seq_oss_synth_is_valid(struct seq_oss_devinfo *dp, int dev)
1da177e4	482	{
080dece3	483	struct seq_oss_synth *rec;
1da177e4 LT	484	rec = get_synthdev(dp, dev);
	485	if (rec) {
	486	snd_use_lock_free(&rec->use_lock);
	487	return 1;
	488	}
	489	return 0;
	490	}
	491
	492
	493	/*
	494	* receive OSS 6 byte sysex packet:
	495	* the full sysex message will be sent if it reaches to the end of data
	496	* (0xff).
	497	*/
	498	int
080dece3	499	snd_seq_oss_synth_sysex(struct seq_oss_devinfo dp, int dev, unsigned char buf, struct snd_seq_event *ev)
1da177e4 LT	500	{
	501	int i, send;
	502	unsigned char *dest;
080dece3	503	struct seq_oss_synth_sysex *sysex;
1da177e4 LT	504
	505	if (! snd_seq_oss_synth_is_valid(dp, dev))
	506	return -ENXIO;
	507
	508	sysex = dp->synths[dev].sysex;
	509	if (sysex == NULL) {
ecca82b4	510	sysex = kzalloc(sizeof(*sysex), GFP_KERNEL);
1da177e4 LT	511	if (sysex == NULL)
	512	return -ENOMEM;
	513	dp->synths[dev].sysex = sysex;
	514	}
	515
	516	send = 0;
	517	dest = sysex->buf + sysex->len;
	518	/* copy 6 byte packet to the buffer */
	519	for (i = 0; i < 6; i++) {
	520	if (buf[i] == 0xff) {
	521	send = 1;
	522	break;
	523	}
	524	dest[i] = buf[i];
	525	sysex->len++;
	526	if (sysex->len >= MAX_SYSEX_BUFLEN) {
	527	sysex->len = 0;
	528	sysex->skip = 1;
	529	break;
	530	}
	531	}
	532
	533	if (sysex->len && send) {
	534	if (sysex->skip) {
	535	sysex->skip = 0;
	536	sysex->len = 0;
	537	return -EINVAL; /* skip */
	538	}
	539	/* copy the data to event record and send it */
	540	ev->flags = SNDRV_SEQ_EVENT_LENGTH_VARIABLE;
	541	if (snd_seq_oss_synth_addr(dp, dev, ev))
	542	return -EINVAL;
	543	ev->data.ext.len = sysex->len;
	544	ev->data.ext.ptr = sysex->buf;
	545	sysex->len = 0;
	546	return 0;
	547	}
	548
	549	return -EINVAL; /* skip */
	550	}
	551
	552	/*
	553	* fill the event source/destination addresses
	554	*/
	555	int
080dece3	556	snd_seq_oss_synth_addr(struct seq_oss_devinfo dp, int dev, struct snd_seq_event ev)
1da177e4 LT	557	{
	558	if (! snd_seq_oss_synth_is_valid(dp, dev))
	559	return -EINVAL;
	560	snd_seq_oss_fill_addr(dp, ev, dp->synths[dev].arg.addr.client,
	561	dp->synths[dev].arg.addr.port);
	562	return 0;
	563	}
	564
	565
	566	/*
	567	* OSS compatible ioctl
	568	*/
	569	int
080dece3	570	snd_seq_oss_synth_ioctl(struct seq_oss_devinfo *dp, int dev, unsigned int cmd, unsigned long addr)
1da177e4	571	{
080dece3	572	struct seq_oss_synth *rec;
1da177e4 LT	573	int rc;
	574
	575	if (is_midi_dev(dp, dev))
	576	return -ENXIO;
	577	if ((rec = get_synthdev(dp, dev)) == NULL)
	578	return -ENXIO;
	579	if (rec->oper.ioctl == NULL)
	580	rc = -ENXIO;
	581	else
	582	rc = rec->oper.ioctl(&dp->synths[dev].arg, cmd, addr);
	583	snd_use_lock_free(&rec->use_lock);
	584	return rc;
	585	}
	586
	587
	588	/*
	589	* send OSS raw events - SEQ_PRIVATE and SEQ_VOLUME
	590	*/
	591	int
080dece3	592	snd_seq_oss_synth_raw_event(struct seq_oss_devinfo dp, int dev, unsigned char data, struct snd_seq_event *ev)
1da177e4 LT	593	{
	594	if (! snd_seq_oss_synth_is_valid(dp, dev) \|\| is_midi_dev(dp, dev))
	595	return -ENXIO;
	596	ev->type = SNDRV_SEQ_EVENT_OSS;
	597	memcpy(ev->data.raw8.d, data, 8);
	598	return snd_seq_oss_synth_addr(dp, dev, ev);
	599	}
	600
	601
	602	/*
	603	* create OSS compatible synth_info record
	604	*/
	605	int
080dece3	606	snd_seq_oss_synth_make_info(struct seq_oss_devinfo dp, int dev, struct synth_info inf)
1da177e4	607	{
080dece3	608	struct seq_oss_synth *rec;
1da177e4	609
82e68f7f WT	610	if (dev < 0 \|\| dev >= dp->max_synthdev)
	611	return -ENXIO;
	612
1da177e4 LT	613	if (dp->synths[dev].is_midi) {
	614	struct midi_info minf;
	615	snd_seq_oss_midi_make_info(dp, dp->synths[dev].midi_mapped, &minf);
	616	inf->synth_type = SYNTH_TYPE_MIDI;
	617	inf->synth_subtype = 0;
	618	inf->nr_voices = 16;
	619	inf->device = dev;
	620	strlcpy(inf->name, minf.name, sizeof(inf->name));
	621	} else {
	622	if ((rec = get_synthdev(dp, dev)) == NULL)
	623	return -ENXIO;
	624	inf->synth_type = rec->synth_type;
	625	inf->synth_subtype = rec->synth_subtype;
	626	inf->nr_voices = rec->nr_voices;
	627	inf->device = dev;
	628	strlcpy(inf->name, rec->name, sizeof(inf->name));
	629	snd_use_lock_free(&rec->use_lock);
	630	}
	631	return 0;
	632	}
	633
	634
04f141a8	635	#ifdef CONFIG_PROC_FS
1da177e4 LT	636	/*
	637	* proc interface
	638	*/
	639	void
080dece3	640	snd_seq_oss_synth_info_read(struct snd_info_buffer *buf)
1da177e4 LT	641	{
1da177e4 LT	642	int i;
080dece3	643	struct seq_oss_synth *rec;
1da177e4 LT	644
	645	snd_iprintf(buf, "\nNumber of synth devices: %d\n", max_synth_devs);
	646	for (i = 0; i < max_synth_devs; i++) {
	647	snd_iprintf(buf, "\nsynth %d: ", i);
	648	rec = get_sdev(i);
	649	if (rec == NULL) {
	650	snd_iprintf(buf, "empty\n");
	651	continue;
	652	}
	653	snd_iprintf(buf, "[%s]\n", rec->name);
	654	snd_iprintf(buf, " type 0x%x : subtype 0x%x : voices %d\n",
	655	rec->synth_type, rec->synth_subtype,
	656	rec->nr_voices);
	657	snd_iprintf(buf, " capabilities : ioctl %s / load_patch %s\n",
	658	enabled_str((long)rec->oper.ioctl),
	659	enabled_str((long)rec->oper.load_patch));
	660	snd_use_lock_free(&rec->use_lock);
	661	}
	662	}
04f141a8	663	#endif /* CONFIG_PROC_FS */