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