sound/core/seq/oss/seq_oss_synth.c

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