sound/drivers/portman2x4.c

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