sound/drivers/portman2x4.c

   1 /*
   2  *   Driver for Midiman Portman2x4 parallel port midi interface
   3  *
   4  *   Copyright (c) by Levent Guendogdu <levon@feature-it.com>
   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., 675 Mass Ave, Cambridge, MA 02139, USA.
  19  *
  20  * ChangeLog
  21  * Jan 24 2007 Matthias Koenig <mkoenig@suse.de>
  22  *      - cleanup and rewrite
  23  * Sep 30 2004 Tobias Gehrig <tobias@gehrig.tk>
  24  *      - source code cleanup
  25  * Sep 03 2004 Tobias Gehrig <tobias@gehrig.tk>
  26  *      - fixed compilation problem with alsa 1.0.6a (removed MODULE_CLASSES,
  27  *        MODULE_PARM_SYNTAX and changed MODULE_DEVICES to
  28  *        MODULE_SUPPORTED_DEVICE)
  29  * Mar 24 2004 Tobias Gehrig <tobias@gehrig.tk>
  30  *      - added 2.6 kernel support
  31  * Mar 18 2004 Tobias Gehrig <tobias@gehrig.tk>
  32  *      - added parport_unregister_driver to the startup routine if the driver fails to detect a portman
  33  *      - added support for all 4 output ports in portman_putmidi
  34  * Mar 17 2004 Tobias Gehrig <tobias@gehrig.tk>
  35  *      - added checks for opened input device in interrupt handler
  36  * Feb 20 2004 Tobias Gehrig <tobias@gehrig.tk>
  37  *      - ported from alsa 0.5 to 1.0
  38  */
  39
  40 #include <sound/driver.h>
  41 #include <linux/init.h>
  42 #include <linux/platform_device.h>
  43 #include <linux/parport.h>
  44 #include <linux/spinlock.h>
  45 #include <linux/delay.h>
  46 #include <sound/core.h>
  47 #include <sound/initval.h>
  48 #include <sound/rawmidi.h>
  49 #include <sound/control.h>
  50
  51 #define CARD_NAME "Portman 2x4"
  52 #define DRIVER_NAME "portman"
  53 #define PLATFORM_DRIVER "snd_portman2x4"
  54
  55 static int index[SNDRV_CARDS]  = SNDRV_DEFAULT_IDX;
  56 static char *id[SNDRV_CARDS]   = SNDRV_DEFAULT_STR;
  57 static int enable[SNDRV_CARDS] = SNDRV_DEFAULT_ENABLE_PNP;
  58
  59 static struct platform_device *platform_devices[SNDRV_CARDS];
  60 static int device_count;
  61
  62 module_param_array(index, int, NULL, S_IRUGO);
  63 MODULE_PARM_DESC(index, "Index value for " CARD_NAME " soundcard.");
  64 module_param_array(id, charp, NULL, S_IRUGO);
  65 MODULE_PARM_DESC(id, "ID string for " CARD_NAME " soundcard.");
  66 module_param_array(enable, bool, NULL, S_IRUGO);
  67 MODULE_PARM_DESC(enable, "Enable " CARD_NAME " soundcard.");
  68
  69 MODULE_AUTHOR("Levent Guendogdu, Tobias Gehrig, Matthias Koenig");
  70 MODULE_DESCRIPTION("Midiman Portman2x4");
  71 MODULE_LICENSE("GPL");
  72 MODULE_SUPPORTED_DEVICE("{{Midiman,Portman2x4}}");
  73
  74 /*********************************************************************
  75  * Chip specific
  76  *********************************************************************/
  77 #define PORTMAN_NUM_INPUT_PORTS 2
  78 #define PORTMAN_NUM_OUTPUT_PORTS 4
  79
  80 struct portman {
  81         spinlock_t reg_lock;
  82         struct snd_card *card;
  83         struct snd_rawmidi *rmidi;
  84         struct pardevice *pardev;
  85         int pardev_claimed;
  86
  87         int open_count;
  88         int mode[PORTMAN_NUM_INPUT_PORTS];
  89         struct snd_rawmidi_substream *midi_input[PORTMAN_NUM_INPUT_PORTS];
  90 };
  91
  92 static int portman_free(struct portman *pm)
  93 {
  94         kfree(pm);
  95         return 0;
  96 }
  97
  98 static int __devinit portman_create(struct snd_card *card,
  99                                     struct pardevice *pardev,
 100                                     struct portman **rchip)
 101 {
 102         struct portman *pm;
 103
 104         *rchip = NULL;
 105
 106         pm = kzalloc(sizeof(struct portman), GFP_KERNEL);
 107         if (pm == NULL)
 108                 return -ENOMEM;
 109
 110         /* Init chip specific data */
 111         spin_lock_init(&pm->reg_lock);
 112         pm->card = card;
 113         pm->pardev = pardev;
 114
 115         *rchip = pm;
 116
 117         return 0;
 118 }
 119
 120 /*********************************************************************
 121  * HW related constants
 122  *********************************************************************/
 123
 124 /* Standard PC parallel port status register equates. */
 125 #define PP_STAT_BSY     0x80    /* Busy status.  Inverted. */
 126 #define PP_STAT_ACK     0x40    /* Acknowledge.  Non-Inverted. */
 127 #define PP_STAT_POUT    0x20    /* Paper Out.    Non-Inverted. */
 128 #define PP_STAT_SEL     0x10    /* Select.       Non-Inverted. */
 129 #define PP_STAT_ERR     0x08    /* Error.        Non-Inverted. */
 130
 131 /* Standard PC parallel port command register equates. */
 132 #define PP_CMD_IEN      0x10    /* IRQ Enable.   Non-Inverted. */
 133 #define PP_CMD_SELI     0x08    /* Select Input. Inverted. */
 134 #define PP_CMD_INIT     0x04    /* Init Printer. Non-Inverted. */
 135 #define PP_CMD_FEED     0x02    /* Auto Feed.    Inverted. */
 136 #define PP_CMD_STB      0x01    /* Strobe.       Inverted. */
 137
 138 /* Parallel Port Command Register as implemented by PCP2x4. */
 139 #define INT_EN          PP_CMD_IEN      /* Interrupt enable. */
 140 #define STROBE          PP_CMD_STB      /* Command strobe. */
 141
 142 /* The parallel port command register field (b1..b3) selects the
 143  * various "registers" within the PC/P 2x4.  These are the internal
 144  * address of these "registers" that must be written to the parallel
 145  * port command register.
 146  */
 147 #define RXDATA0         (0 << 1)        /* PCP RxData channel 0. */
 148 #define RXDATA1         (1 << 1)        /* PCP RxData channel 1. */
 149 #define GEN_CTL         (2 << 1)        /* PCP General Control Register. */
 150 #define SYNC_CTL        (3 << 1)        /* PCP Sync Control Register. */
 151 #define TXDATA0         (4 << 1)        /* PCP TxData channel 0. */
 152 #define TXDATA1         (5 << 1)        /* PCP TxData channel 1. */
 153 #define TXDATA2         (6 << 1)        /* PCP TxData channel 2. */
 154 #define TXDATA3         (7 << 1)        /* PCP TxData channel 3. */
 155
 156 /* Parallel Port Status Register as implemented by PCP2x4. */
 157 #define ESTB            PP_STAT_POUT    /* Echoed strobe. */
 158 #define INT_REQ         PP_STAT_ACK     /* Input data int request. */
 159 #define BUSY            PP_STAT_ERR     /* Interface Busy. */
 160
 161 /* Parallel Port Status Register BUSY and SELECT lines are multiplexed
 162  * between several functions.  Depending on which 2x4 "register" is
 163  * currently selected (b1..b3), the BUSY and SELECT lines are
 164  * assigned as follows:
 165  *
 166  *   SELECT LINE:                                                    A3 A2 A1
 167  *                                                                   --------
 168  */
 169 #define RXAVAIL         PP_STAT_SEL     /* Rx Available, channel 0.   0 0 0 */
 170 //  RXAVAIL1    PP_STAT_SEL             /* Rx Available, channel 1.   0 0 1 */
 171 #define SYNC_STAT       PP_STAT_SEL     /* Reserved - Sync Status.    0 1 0 */
 172 //                                      /* Reserved.                  0 1 1 */
 173 #define TXEMPTY         PP_STAT_SEL     /* Tx Empty, channel 0.       1 0 0 */
 174 //      TXEMPTY1        PP_STAT_SEL     /* Tx Empty, channel 1.       1 0 1 */
 175 //  TXEMPTY2    PP_STAT_SEL             /* Tx Empty, channel 2.       1 1 0 */
 176 //  TXEMPTY3    PP_STAT_SEL             /* Tx Empty, channel 3.       1 1 1 */
 177
 178 /*   BUSY LINE:                                                      A3 A2 A1
 179  *                                                                   --------
 180  */
 181 #define RXDATA          PP_STAT_BSY     /* Rx Input Data, channel 0.  0 0 0 */
 182 //      RXDATA1         PP_STAT_BSY     /* Rx Input Data, channel 1.  0 0 1 */
 183 #define SYNC_DATA       PP_STAT_BSY     /* Reserved - Sync Data.      0 1 0 */
 184                                         /* Reserved.                  0 1 1 */
 185 #define DATA_ECHO       PP_STAT_BSY     /* Parallel Port Data Echo.   1 0 0 */
 186 #define A0_ECHO         PP_STAT_BSY     /* Address 0 Echo.            1 0 1 */
 187 #define A1_ECHO         PP_STAT_BSY     /* Address 1 Echo.            1 1 0 */
 188 #define A2_ECHO         PP_STAT_BSY     /* Address 2 Echo.            1 1 1 */
 189
 190 #define PORTMAN2X4_MODE_INPUT_TRIGGERED  0x01
 191
 192 /*********************************************************************
 193  * Hardware specific functions
 194  *********************************************************************/
 195 static inline void portman_write_command(struct portman *pm, u8 value)
 196 {
 197         parport_write_control(pm->pardev->port, value);
 198 }
 199
 200 static inline u8 portman_read_command(struct portman *pm)
 201 {
 202         return parport_read_control(pm->pardev->port);
 203 }
 204
 205 static inline u8 portman_read_status(struct portman *pm)
 206 {
 207         return parport_read_status(pm->pardev->port);
 208 }
 209
 210 static inline u8 portman_read_data(struct portman *pm)
 211 {
 212         return parport_read_data(pm->pardev->port);
 213 }
 214
 215 static inline void portman_write_data(struct portman *pm, u8 value)
 216 {
 217         parport_write_data(pm->pardev->port, value);
 218 }
 219
 220 static void portman_write_midi(struct portman *pm,
 221                                int port, u8 mididata)
 222 {
 223         int command = ((port + 4) << 1);
 224
 225         /* Get entering data byte and port number in BL and BH respectively.
 226          * Set up Tx Channel address field for use with PP Cmd Register.
 227          * Store address field in BH register.
 228          * Inputs:      AH = Output port number (0..3).
 229          *              AL = Data byte.
 230          *    command = TXDATA0 | INT_EN;
 231          * Align port num with address field (b1...b3),
 232          * set address for TXDatax, Strobe=0
 233          */
 234         command |= INT_EN;
 235
 236         /* Disable interrupts so that the process is not interrupted, then
 237          * write the address associated with the current Tx channel to the
 238          * PP Command Reg.  Do not set the Strobe signal yet.
 239          */
 240
 241         do {
 242                 portman_write_command(pm, command);
 243
 244                 /* While the address lines settle, write parallel output data to
 245                  * PP Data Reg.  This has no effect until Strobe signal is asserted.
 246                  */
 247
 248                 portman_write_data(pm, mididata);
 249
 250                 /* If PCP channel's TxEmpty is set (TxEmpty is read through the PP
 251                  * Status Register), then go write data.  Else go back and wait.
 252                  */
 253         } while ((portman_read_status(pm) & TXEMPTY) != TXEMPTY);
 254
 255         /* TxEmpty is set.  Maintain PC/P destination address and assert
 256          * Strobe through the PP Command Reg.  This will Strobe data into
 257          * the PC/P transmitter and set the PC/P BUSY signal.
 258          */
 259
 260         portman_write_command(pm, command | STROBE);
 261
 262         /* Wait for strobe line to settle and echo back through hardware.
 263          * Once it has echoed back, assume that the address and data lines
 264          * have settled!
 265          */
 266
 267         while ((portman_read_status(pm) & ESTB) == 0)
 268                 cpu_relax();
 269
 270         /* Release strobe and immediately re-allow interrupts. */
 271         portman_write_command(pm, command);
 272
 273         while ((portman_read_status(pm) & ESTB) == ESTB)
 274                 cpu_relax();
 275
 276         /* PC/P BUSY is now set.  We must wait until BUSY resets itself.
 277          * We'll reenable ints while we're waiting.
 278          */
 279
 280         while ((portman_read_status(pm) & BUSY) == BUSY)
 281                 cpu_relax();
 282
 283         /* Data sent. */
 284 }
 285
 286
 287 /*
 288  *  Read MIDI byte from port
 289  *  Attempt to read input byte from specified hardware input port (0..).
 290  *  Return -1 if no data
 291  */
 292 static int portman_read_midi(struct portman *pm, int port)
 293 {
 294         unsigned char midi_data = 0;
 295         unsigned char cmdout;   /* Saved address+IE bit. */
 296
 297         /* Make sure clocking edge is down before starting... */
 298         portman_write_data(pm, 0);      /* Make sure edge is down. */
 299
 300         /* Set destination address to PCP. */
 301         cmdout = (port << 1) | INT_EN;  /* Address + IE + No Strobe. */
 302         portman_write_command(pm, cmdout);
 303
 304         while ((portman_read_status(pm) & ESTB) == ESTB)
 305                 cpu_relax();    /* Wait for strobe echo. */
 306
 307         /* After the address lines settle, check multiplexed RxAvail signal.
 308          * If data is available, read it.
 309          */
 310         if ((portman_read_status(pm) & RXAVAIL) == 0)
 311                 return -1;      /* No data. */
 312
 313         /* Set the Strobe signal to enable the Rx clocking circuitry. */
 314         portman_write_command(pm, cmdout | STROBE);     /* Write address+IE+Strobe. */
 315
 316         while ((portman_read_status(pm) & ESTB) == 0)
 317                 cpu_relax(); /* Wait for strobe echo. */
 318
 319         /* The first data bit (msb) is already sitting on the input line. */
 320         midi_data = (portman_read_status(pm) & 128);
 321         portman_write_data(pm, 1);      /* Cause rising edge, which shifts data. */
 322
 323         /* Data bit 6. */
 324         portman_write_data(pm, 0);      /* Cause falling edge while data settles. */
 325         midi_data |= (portman_read_status(pm) >> 1) & 64;
 326         portman_write_data(pm, 1);      /* Cause rising edge, which shifts data. */
 327
 328         /* Data bit 5. */
 329         portman_write_data(pm, 0);      /* Cause falling edge while data settles. */
 330         midi_data |= (portman_read_status(pm) >> 2) & 32;
 331         portman_write_data(pm, 1);      /* Cause rising edge, which shifts data. */
 332
 333         /* Data bit 4. */
 334         portman_write_data(pm, 0);      /* Cause falling edge while data settles. */
 335         midi_data |= (portman_read_status(pm) >> 3) & 16;
 336         portman_write_data(pm, 1);      /* Cause rising edge, which shifts data. */
 337
 338         /* Data bit 3. */
 339         portman_write_data(pm, 0);      /* Cause falling edge while data settles. */
 340         midi_data |= (portman_read_status(pm) >> 4) & 8;
 341         portman_write_data(pm, 1);      /* Cause rising edge, which shifts data. */
 342
 343         /* Data bit 2. */
 344         portman_write_data(pm, 0);      /* Cause falling edge while data settles. */
 345         midi_data |= (portman_read_status(pm) >> 5) & 4;
 346         portman_write_data(pm, 1);      /* Cause rising edge, which shifts data. */
 347
 348         /* Data bit 1. */
 349         portman_write_data(pm, 0);      /* Cause falling edge while data settles. */
 350         midi_data |= (portman_read_status(pm) >> 6) & 2;
 351         portman_write_data(pm, 1);      /* Cause rising edge, which shifts data. */
 352
 353         /* Data bit 0. */
 354         portman_write_data(pm, 0);      /* Cause falling edge while data settles. */
 355         midi_data |= (portman_read_status(pm) >> 7) & 1;
 356         portman_write_data(pm, 1);      /* Cause rising edge, which shifts data. */
 357         portman_write_data(pm, 0);      /* Return data clock low. */
 358
 359
 360         /* De-assert Strobe and return data. */
 361         portman_write_command(pm, cmdout);      /* Output saved address+IE. */
 362
 363         /* Wait for strobe echo. */
 364         while ((portman_read_status(pm) & ESTB) == ESTB)
 365                 cpu_relax();
 366
 367         return (midi_data & 255);       /* Shift back and return value. */
 368 }
 369
 370 /*
 371  *  Checks if any input data on the given channel is available
 372  *  Checks RxAvail
 373  */
 374 static int portman_data_avail(struct portman *pm, int channel)
 375 {
 376         int command = INT_EN;
 377         switch (channel) {
 378         case 0:
 379                 command |= RXDATA0;
 380                 break;
 381         case 1:
 382                 command |= RXDATA1;
 383                 break;
 384         }
 385         /* Write hardware (assumme STROBE=0) */
 386         portman_write_command(pm, command);
 387         /* Check multiplexed RxAvail signal */
 388         if ((portman_read_status(pm) & RXAVAIL) == RXAVAIL)
 389                 return 1;       /* Data available */
 390
 391         /* No Data available */
 392         return 0;
 393 }
 394
 395
 396 /*
 397  *  Flushes any input
 398  */
 399 static void portman_flush_input(struct portman *pm, unsigned char port)
 400 {
 401         /* Local variable for counting things */
 402         unsigned int i = 0;
 403         unsigned char command = 0;
 404
 405         switch (port) {
 406         case 0:
 407                 command = RXDATA0;
 408                 break;
 409         case 1:
 410                 command = RXDATA1;
 411                 break;
 412         default:
 413                 snd_printk(KERN_WARNING
 414                            "portman_flush_input() Won't flush port %i\n",
 415                            port);
 416                 return;
 417         }
 418
 419         /* Set address for specified channel in port and allow to settle. */
 420         portman_write_command(pm, command);
 421
 422         /* Assert the Strobe and wait for echo back. */
 423         portman_write_command(pm, command | STROBE);
 424
 425         /* Wait for ESTB */
 426         while ((portman_read_status(pm) & ESTB) == 0)
 427                 cpu_relax();
 428
 429         /* Output clock cycles to the Rx circuitry. */
 430         portman_write_data(pm, 0);
 431
 432         /* Flush 250 bits... */
 433         for (i = 0; i < 250; i++) {
 434                 portman_write_data(pm, 1);
 435                 portman_write_data(pm, 0);
 436         }
 437
 438         /* Deassert the Strobe signal of the port and wait for it to settle. */
 439         portman_write_command(pm, command | INT_EN);
 440
 441         /* Wait for settling */
 442         while ((portman_read_status(pm) & ESTB) == ESTB)
 443                 cpu_relax();
 444 }
 445
 446 static int portman_probe(struct parport *p)
 447 {
 448         /* Initialize the parallel port data register.  Will set Rx clocks
 449          * low in case we happen to be addressing the Rx ports at this time.
 450          */
 451         /* 1 */
 452         parport_write_data(p, 0);
 453
 454         /* Initialize the parallel port command register, thus initializing
 455          * hardware handshake lines to midi box:
 456          *
 457          *                                  Strobe = 0
 458          *                                  Interrupt Enable = 0
 459          */
 460         /* 2 */
 461         parport_write_control(p, 0);
 462
 463         /* Check if Portman PC/P 2x4 is out there. */
 464         /* 3 */
 465         parport_write_control(p, RXDATA0);      /* Write Strobe=0 to command reg. */
 466
 467         /* Check for ESTB to be clear */
 468         /* 4 */
 469         if ((parport_read_status(p) & ESTB) == ESTB)
 470                 return 1;       /* CODE 1 - Strobe Failure. */
 471
 472         /* Set for RXDATA0 where no damage will be done. */
 473         /* 5 */
 474         parport_write_control(p, RXDATA0 + STROBE);     /* Write Strobe=1 to command reg. */
 475
 476         /* 6 */
 477         if ((parport_read_status(p) & ESTB) != ESTB)
 478                 return 1;       /* CODE 1 - Strobe Failure. */
 479
 480         /* 7 */
 481         parport_write_control(p, 0);    /* Reset Strobe=0. */
 482
 483         /* Check if Tx circuitry is functioning properly.  If initialized
 484          * unit TxEmpty is false, send out char and see if if goes true.
 485          */
 486         /* 8 */
 487         parport_write_control(p, TXDATA0);      /* Tx channel 0, strobe off. */
 488
 489         /* If PCP channel's TxEmpty is set (TxEmpty is read through the PP
 490          * Status Register), then go write data.  Else go back and wait.
 491          */
 492         /* 9 */
 493         if ((parport_read_status(p) & TXEMPTY) == 0)
 494                 return 2;
 495
 496         /* Return OK status. */
 497         return 0;
 498 }
 499
 500 static int portman_device_init(struct portman *pm)
 501 {
 502         portman_flush_input(pm, 0);
 503         portman_flush_input(pm, 1);
 504
 505         return 0;
 506 }
 507
 508 /*********************************************************************
 509  * Rawmidi
 510  *********************************************************************/
 511 static int snd_portman_midi_open(struct snd_rawmidi_substream *substream)
 512 {
 513         return 0;
 514 }
 515
 516 static int snd_portman_midi_close(struct snd_rawmidi_substream *substream)
 517 {
 518         return 0;
 519 }
 520
 521 static void snd_portman_midi_input_trigger(struct snd_rawmidi_substream *substream,
 522                                            int up)
 523 {
 524         struct portman *pm = substream->rmidi->private_data;
 525         unsigned long flags;
 526
 527         spin_lock_irqsave(&pm->reg_lock, flags);
 528         if (up)
 529                 pm->mode[substream->number] |= PORTMAN2X4_MODE_INPUT_TRIGGERED;
 530         else
 531                 pm->mode[substream->number] &= ~PORTMAN2X4_MODE_INPUT_TRIGGERED;
 532         spin_unlock_irqrestore(&pm->reg_lock, flags);
 533 }
 534
 535 static void snd_portman_midi_output_trigger(struct snd_rawmidi_substream *substream,
 536                                             int up)
 537 {
 538         struct portman *pm = substream->rmidi->private_data;
 539         unsigned long flags;
 540         unsigned char byte;
 541
 542         spin_lock_irqsave(&pm->reg_lock, flags);
 543         if (up) {
 544                 while ((snd_rawmidi_transmit(substream, &byte, 1) == 1))
 545                         portman_write_midi(pm, substream->number, byte);
 546         }
 547         spin_unlock_irqrestore(&pm->reg_lock, flags);
 548 }
 549
 550 static struct snd_rawmidi_ops snd_portman_midi_output = {
 551         .open =         snd_portman_midi_open,
 552         .close =        snd_portman_midi_close,
 553         .trigger =      snd_portman_midi_output_trigger,
 554 };
 555
 556 static struct snd_rawmidi_ops snd_portman_midi_input = {
 557         .open =         snd_portman_midi_open,
 558         .close =        snd_portman_midi_close,
 559         .trigger =      snd_portman_midi_input_trigger,
 560 };
 561
 562 /* Create and initialize the rawmidi component */
 563 static int __devinit snd_portman_rawmidi_create(struct snd_card *card)
 564 {
 565         struct portman *pm = card->private_data;
 566         struct snd_rawmidi *rmidi;
 567         struct snd_rawmidi_substream *substream;
 568         int err;
 569
 570         err = snd_rawmidi_new(card, CARD_NAME, 0,
 571                               PORTMAN_NUM_OUTPUT_PORTS,
 572                               PORTMAN_NUM_INPUT_PORTS,
 573                               &rmidi);
 574         if (err < 0)
 575                 return err;
 576
 577         rmidi->private_data = pm;
 578         strcpy(rmidi->name, CARD_NAME);
 579         rmidi->info_flags = SNDRV_RAWMIDI_INFO_OUTPUT |
 580                             SNDRV_RAWMIDI_INFO_INPUT |
 581                             SNDRV_RAWMIDI_INFO_DUPLEX;
 582
 583         pm->rmidi = rmidi;
 584
 585         /* register rawmidi ops */
 586         snd_rawmidi_set_ops(rmidi, SNDRV_RAWMIDI_STREAM_OUTPUT,
 587                             &snd_portman_midi_output);
 588         snd_rawmidi_set_ops(rmidi, SNDRV_RAWMIDI_STREAM_INPUT,
 589                             &snd_portman_midi_input);
 590
 591         /* name substreams */
 592         /* output */
 593         list_for_each_entry(substream,
 594                             &rmidi->streams[SNDRV_RAWMIDI_STREAM_OUTPUT].substreams,
 595                             list) {
 596                 sprintf(substream->name,
 597                         "Portman2x4 %d", substream->number+1);
 598         }
 599         /* input */
 600         list_for_each_entry(substream,
 601                             &rmidi->streams[SNDRV_RAWMIDI_STREAM_INPUT].substreams,
 602                             list) {
 603                 pm->midi_input[substream->number] = substream;
 604                 sprintf(substream->name,
 605                         "Portman2x4 %d", substream->number+1);
 606         }
 607
 608         return err;
 609 }
 610
 611 /*********************************************************************
 612  * parport stuff
 613  *********************************************************************/
 614 static void snd_portman_interrupt(int irq, void *userdata)
 615 {
 616         unsigned char midivalue = 0;
 617         struct portman *pm = ((struct snd_card*)userdata)->private_data;
 618
 619         spin_lock(&pm->reg_lock);
 620
 621         /* While any input data is waiting */
 622         while ((portman_read_status(pm) & INT_REQ) == INT_REQ) {
 623                 /* If data available on channel 0,
 624                    read it and stuff it into the queue. */
 625                 if (portman_data_avail(pm, 0)) {
 626                         /* Read Midi */
 627                         midivalue = portman_read_midi(pm, 0);
 628                         /* put midi into queue... */
 629                         if (pm->mode[0] & PORTMAN2X4_MODE_INPUT_TRIGGERED)
 630                                 snd_rawmidi_receive(pm->midi_input[0],
 631                                                     &midivalue, 1);
 632
 633                 }
 634                 /* If data available on channel 1,
 635                    read it and stuff it into the queue. */
 636                 if (portman_data_avail(pm, 1)) {
 637                         /* Read Midi */
 638                         midivalue = portman_read_midi(pm, 1);
 639                         /* put midi into queue... */
 640                         if (pm->mode[1] & PORTMAN2X4_MODE_INPUT_TRIGGERED)
 641                                 snd_rawmidi_receive(pm->midi_input[1],
 642                                                     &midivalue, 1);
 643                 }
 644
 645         }
 646
 647         spin_unlock(&pm->reg_lock);
 648 }
 649
 650 static int __devinit snd_portman_probe_port(struct parport *p)
 651 {
 652         struct pardevice *pardev;
 653         int res;
 654
 655         pardev = parport_register_device(p, DRIVER_NAME,
 656                                          NULL, NULL, NULL,
 657                                          0, NULL);
 658         if (!pardev)
 659                 return -EIO;
 660
 661         if (parport_claim(pardev)) {
 662                 parport_unregister_device(pardev);
 663                 return -EIO;
 664         }
 665
 666         res = portman_probe(p);
 667
 668         parport_release(pardev);
 669         parport_unregister_device(pardev);
 670
 671         return res;
 672 }
 673
 674 static void __devinit snd_portman_attach(struct parport *p)
 675 {
 676         struct platform_device *device;
 677
 678         device = platform_device_alloc(PLATFORM_DRIVER, device_count);
 679         if (!device)
 680                 return;
 681
 682         /* Temporary assignment to forward the parport */
 683         platform_set_drvdata(device, p);
 684
 685         if (platform_device_add(device) < 0) {
 686                 platform_device_put(device);
 687                 return;
 688         }
 689
 690         /* Since we dont get the return value of probe
 691          * We need to check if device probing succeeded or not */
 692         if (!platform_get_drvdata(device)) {
 693                 platform_device_unregister(device);
 694                 return;
 695         }
 696
 697         /* register device in global table */
 698         platform_devices[device_count] = device;
 699         device_count++;
 700 }
 701
 702 static void snd_portman_detach(struct parport *p)
 703 {
 704         /* nothing to do here */
 705 }
 706
 707 static struct parport_driver portman_parport_driver = {
 708         .name   = "portman2x4",
 709         .attach = snd_portman_attach,
 710         .detach = snd_portman_detach
 711 };
 712
 713 /*********************************************************************
 714  * platform stuff
 715  *********************************************************************/
 716 static void snd_portman_card_private_free(struct snd_card *card)
 717 {
 718         struct portman *pm = card->private_data;
 719         struct pardevice *pardev = pm->pardev;
 720
 721         if (pardev) {
 722                 if (pm->pardev_claimed)
 723                         parport_release(pardev);
 724                 parport_unregister_device(pardev);
 725         }
 726
 727         portman_free(pm);
 728 }
 729
 730 static int __devinit snd_portman_probe(struct platform_device *pdev)
 731 {
 732         struct pardevice *pardev;
 733         struct parport *p;
 734         int dev = pdev->id;
 735         struct snd_card *card = NULL;
 736         struct portman *pm = NULL;
 737         int err;
 738
 739         p = platform_get_drvdata(pdev);
 740         platform_set_drvdata(pdev, NULL);
 741
 742         if (dev >= SNDRV_CARDS)
 743                 return -ENODEV;
 744         if (!enable[dev])
 745                 return -ENOENT;
 746
 747         if ((err = snd_portman_probe_port(p)) < 0)
 748                 return err;
 749
 750         card = snd_card_new(index[dev], id[dev], THIS_MODULE, 0);
 751         if (card == NULL) {
 752                 snd_printd("Cannot create card\n");
 753                 return -ENOMEM;
 754         }
 755         strcpy(card->driver, DRIVER_NAME);
 756         strcpy(card->shortname, CARD_NAME);
 757         sprintf(card->longname,  "%s at 0x%lx, irq %i",
 758                 card->shortname, p->base, p->irq);
 759
 760         pardev = parport_register_device(p,                     /* port */
 761                                          DRIVER_NAME,           /* name */
 762                                          NULL,                  /* preempt */
 763                                          NULL,                  /* wakeup */
 764                                          snd_portman_interrupt, /* ISR */
 765                                          PARPORT_DEV_EXCL,      /* flags */
 766                                          (void *)card);         /* private */
 767         if (pardev == NULL) {
 768                 snd_printd("Cannot register pardevice\n");
 769                 err = -EIO;
 770                 goto __err;
 771         }
 772
 773         if ((err = portman_create(card, pardev, &pm)) < 0) {
 774                 snd_printd("Cannot create main component\n");
 775                 parport_unregister_device(pardev);
 776                 goto __err;
 777         }
 778         card->private_data = pm;
 779         card->private_free = snd_portman_card_private_free;
 780
 781         if ((err = snd_portman_rawmidi_create(card)) < 0) {
 782                 snd_printd("Creating Rawmidi component failed\n");
 783                 goto __err;
 784         }
 785
 786         /* claim parport */
 787         if (parport_claim(pardev)) {
 788                 snd_printd("Cannot claim parport 0x%lx\n", pardev->port->base);
 789                 err = -EIO;
 790                 goto __err;
 791         }
 792         pm->pardev_claimed = 1;
 793
 794         /* init device */
 795         if ((err = portman_device_init(pm)) < 0)
 796                 goto __err;
 797
 798         platform_set_drvdata(pdev, card);
 799
 800         /* At this point card will be usable */
 801         if ((err = snd_card_register(card)) < 0) {
 802                 snd_printd("Cannot register card\n");
 803                 goto __err;
 804         }
 805
 806         snd_printk(KERN_INFO "Portman 2x4 on 0x%lx\n", p->base);
 807         return 0;
 808
 809 __err:
 810         snd_card_free(card);
 811         return err;
 812 }
 813
 814 static int __devexit snd_portman_remove(struct platform_device *pdev)
 815 {
 816         struct snd_card *card = platform_get_drvdata(pdev);
 817
 818         if (card)
 819                 snd_card_free(card);
 820
 821         return 0;
 822 }
 823
 824
 825 static struct platform_driver snd_portman_driver = {
 826         .probe  = snd_portman_probe,
 827         .remove = __devexit_p(snd_portman_remove),
 828         .driver = {
 829                 .name = PLATFORM_DRIVER
 830         }
 831 };
 832
 833 /*********************************************************************
 834  * module init stuff
 835  *********************************************************************/
 836 static void snd_portman_unregister_all(void)
 837 {
 838         int i;
 839
 840         for (i = 0; i < SNDRV_CARDS; ++i) {
 841                 if (platform_devices[i]) {
 842                         platform_device_unregister(platform_devices[i]);
 843                         platform_devices[i] = NULL;
 844                 }
 845         }
 846         platform_driver_unregister(&snd_portman_driver);
 847         parport_unregister_driver(&portman_parport_driver);
 848 }
 849
 850 static int __init snd_portman_module_init(void)
 851 {
 852         int err;
 853
 854         if ((err = platform_driver_register(&snd_portman_driver)) < 0)
 855                 return err;
 856
 857         if (parport_register_driver(&portman_parport_driver) != 0) {
 858                 platform_driver_unregister(&snd_portman_driver);
 859                 return -EIO;
 860         }
 861
 862         if (device_count == 0) {
 863                 snd_portman_unregister_all();
 864                 return -ENODEV;
 865         }
 866
 867         return 0;
 868 }
 869
 870 static void __exit snd_portman_module_exit(void)
 871 {
 872         snd_portman_unregister_all();
 873 }
 874
 875 module_init(snd_portman_module_init);
 876 module_exit(snd_portman_module_exit);