1 /* 2 * OSS compatible sequencer driver 3 * 4 * Copyright (C) 1998,99 Takashi Iwai <tiwai@suse.de> 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 19 */ 20 21 #include "seq_oss_device.h" 22 #include "seq_oss_synth.h" 23 #include "seq_oss_midi.h" 24 #include "seq_oss_event.h" 25 #include "seq_oss_timer.h" 26 #include <sound/seq_oss_legacy.h> 27 #include "seq_oss_readq.h" 28 #include "seq_oss_writeq.h" 29 30 31 /* 32 * prototypes 33 */ 34 static int extended_event(struct seq_oss_devinfo *dp, union evrec *q, struct snd_seq_event *ev); 35 static int chn_voice_event(struct seq_oss_devinfo *dp, union evrec *event_rec, struct snd_seq_event *ev); 36 static int chn_common_event(struct seq_oss_devinfo *dp, union evrec *event_rec, struct snd_seq_event *ev); 37 static int timing_event(struct seq_oss_devinfo *dp, union evrec *event_rec, struct snd_seq_event *ev); 38 static int local_event(struct seq_oss_devinfo *dp, union evrec *event_rec, struct snd_seq_event *ev); 39 static int old_event(struct seq_oss_devinfo *dp, union evrec *q, struct snd_seq_event *ev); 40 static int note_on_event(struct seq_oss_devinfo *dp, int dev, int ch, int note, int vel, struct snd_seq_event *ev); 41 static int note_off_event(struct seq_oss_devinfo *dp, int dev, int ch, int note, int vel, struct snd_seq_event *ev); 42 static int set_note_event(struct seq_oss_devinfo *dp, int dev, int type, int ch, int note, int vel, struct snd_seq_event *ev); 43 static int set_control_event(struct seq_oss_devinfo *dp, int dev, int type, int ch, int param, int val, struct snd_seq_event *ev); 44 static int set_echo_event(struct seq_oss_devinfo *dp, union evrec *rec, struct snd_seq_event *ev); 45 46 47 /* 48 * convert an OSS event to ALSA event 49 * return 0 : enqueued 50 * non-zero : invalid - ignored 51 */ 52 53 int 54 snd_seq_oss_process_event(struct seq_oss_devinfo *dp, union evrec *q, struct snd_seq_event *ev) 55 { 56 switch (q->s.code) { 57 case SEQ_EXTENDED: 58 return extended_event(dp, q, ev); 59 60 case EV_CHN_VOICE: 61 return chn_voice_event(dp, q, ev); 62 63 case EV_CHN_COMMON: 64 return chn_common_event(dp, q, ev); 65 66 case EV_TIMING: 67 return timing_event(dp, q, ev); 68 69 case EV_SEQ_LOCAL: 70 return local_event(dp, q, ev); 71 72 case EV_SYSEX: 73 return snd_seq_oss_synth_sysex(dp, q->x.dev, q->x.buf, ev); 74 75 case SEQ_MIDIPUTC: 76 if (dp->seq_mode == SNDRV_SEQ_OSS_MODE_MUSIC) 77 return -EINVAL; 78 /* put a midi byte */ 79 if (! is_write_mode(dp->file_mode)) 80 break; 81 if (snd_seq_oss_midi_open(dp, q->s.dev, SNDRV_SEQ_OSS_FILE_WRITE)) 82 break; 83 if (snd_seq_oss_midi_filemode(dp, q->s.dev) & SNDRV_SEQ_OSS_FILE_WRITE) 84 return snd_seq_oss_midi_putc(dp, q->s.dev, q->s.parm1, ev); 85 break; 86 87 case SEQ_ECHO: 88 if (dp->seq_mode == SNDRV_SEQ_OSS_MODE_MUSIC) 89 return -EINVAL; 90 return set_echo_event(dp, q, ev); 91 92 case SEQ_PRIVATE: 93 if (dp->seq_mode == SNDRV_SEQ_OSS_MODE_MUSIC) 94 return -EINVAL; 95 return snd_seq_oss_synth_raw_event(dp, q->c[1], q->c, ev); 96 97 default: 98 if (dp->seq_mode == SNDRV_SEQ_OSS_MODE_MUSIC) 99 return -EINVAL; 100 return old_event(dp, q, ev); 101 } 102 return -EINVAL; 103 } 104 105 /* old type events: mode1 only */ 106 static int 107 old_event(struct seq_oss_devinfo *dp, union evrec *q, struct snd_seq_event *ev) 108 { 109 switch (q->s.code) { 110 case SEQ_NOTEOFF: 111 return note_off_event(dp, 0, q->n.chn, q->n.note, q->n.vel, ev); 112 113 case SEQ_NOTEON: 114 return note_on_event(dp, 0, q->n.chn, q->n.note, q->n.vel, ev); 115 116 case SEQ_WAIT: 117 /* skip */ 118 break; 119 120 case SEQ_PGMCHANGE: 121 return set_control_event(dp, 0, SNDRV_SEQ_EVENT_PGMCHANGE, 122 q->n.chn, 0, q->n.note, ev); 123 124 case SEQ_SYNCTIMER: 125 return snd_seq_oss_timer_reset(dp->timer); 126 } 127 128 return -EINVAL; 129 } 130 131 /* 8bytes extended event: mode1 only */ 132 static int 133 extended_event(struct seq_oss_devinfo *dp, union evrec *q, struct snd_seq_event *ev) 134 { 135 int val; 136 137 switch (q->e.cmd) { 138 case SEQ_NOTEOFF: 139 return note_off_event(dp, q->e.dev, q->e.chn, q->e.p1, q->e.p2, ev); 140 141 case SEQ_NOTEON: 142 return note_on_event(dp, q->e.dev, q->e.chn, q->e.p1, q->e.p2, ev); 143 144 case SEQ_PGMCHANGE: 145 return set_control_event(dp, q->e.dev, SNDRV_SEQ_EVENT_PGMCHANGE, 146 q->e.chn, 0, q->e.p1, ev); 147 148 case SEQ_AFTERTOUCH: 149 return set_control_event(dp, q->e.dev, SNDRV_SEQ_EVENT_CHANPRESS, 150 q->e.chn, 0, q->e.p1, ev); 151 152 case SEQ_BALANCE: 153 /* convert -128:127 to 0:127 */ 154 val = (char)q->e.p1; 155 val = (val + 128) / 2; 156 return set_control_event(dp, q->e.dev, SNDRV_SEQ_EVENT_CONTROLLER, 157 q->e.chn, CTL_PAN, val, ev); 158 159 case SEQ_CONTROLLER: 160 val = ((short)q->e.p3 << 8) | (short)q->e.p2; 161 switch (q->e.p1) { 162 case CTRL_PITCH_BENDER: /* SEQ1 V2 control */ 163 /* -0x2000:0x1fff */ 164 return set_control_event(dp, q->e.dev, 165 SNDRV_SEQ_EVENT_PITCHBEND, 166 q->e.chn, 0, val, ev); 167 case CTRL_PITCH_BENDER_RANGE: 168 /* conversion: 100/semitone -> 128/semitone */ 169 return set_control_event(dp, q->e.dev, 170 SNDRV_SEQ_EVENT_REGPARAM, 171 q->e.chn, 0, val*128/100, ev); 172 default: 173 return set_control_event(dp, q->e.dev, 174 SNDRV_SEQ_EVENT_CONTROL14, 175 q->e.chn, q->e.p1, val, ev); 176 } 177 178 case SEQ_VOLMODE: 179 return snd_seq_oss_synth_raw_event(dp, q->e.dev, q->c, ev); 180 181 } 182 return -EINVAL; 183 } 184 185 /* channel voice events: mode1 and 2 */ 186 static int 187 chn_voice_event(struct seq_oss_devinfo *dp, union evrec *q, struct snd_seq_event *ev) 188 { 189 if (q->v.chn >= 32) 190 return -EINVAL; 191 switch (q->v.cmd) { 192 case MIDI_NOTEON: 193 return note_on_event(dp, q->v.dev, q->v.chn, q->v.note, q->v.parm, ev); 194 195 case MIDI_NOTEOFF: 196 return note_off_event(dp, q->v.dev, q->v.chn, q->v.note, q->v.parm, ev); 197 198 case MIDI_KEY_PRESSURE: 199 return set_note_event(dp, q->v.dev, SNDRV_SEQ_EVENT_KEYPRESS, 200 q->v.chn, q->v.note, q->v.parm, ev); 201 202 } 203 return -EINVAL; 204 } 205 206 /* channel common events: mode1 and 2 */ 207 static int 208 chn_common_event(struct seq_oss_devinfo *dp, union evrec *q, struct snd_seq_event *ev) 209 { 210 if (q->l.chn >= 32) 211 return -EINVAL; 212 switch (q->l.cmd) { 213 case MIDI_PGM_CHANGE: 214 return set_control_event(dp, q->l.dev, SNDRV_SEQ_EVENT_PGMCHANGE, 215 q->l.chn, 0, q->l.p1, ev); 216 217 case MIDI_CTL_CHANGE: 218 return set_control_event(dp, q->l.dev, SNDRV_SEQ_EVENT_CONTROLLER, 219 q->l.chn, q->l.p1, q->l.val, ev); 220 221 case MIDI_PITCH_BEND: 222 /* conversion: 0:0x3fff -> -0x2000:0x1fff */ 223 return set_control_event(dp, q->l.dev, SNDRV_SEQ_EVENT_PITCHBEND, 224 q->l.chn, 0, q->l.val - 8192, ev); 225 226 case MIDI_CHN_PRESSURE: 227 return set_control_event(dp, q->l.dev, SNDRV_SEQ_EVENT_CHANPRESS, 228 q->l.chn, 0, q->l.val, ev); 229 } 230 return -EINVAL; 231 } 232 233 /* timer events: mode1 and mode2 */ 234 static int 235 timing_event(struct seq_oss_devinfo *dp, union evrec *q, struct snd_seq_event *ev) 236 { 237 switch (q->t.cmd) { 238 case TMR_ECHO: 239 if (dp->seq_mode == SNDRV_SEQ_OSS_MODE_MUSIC) 240 return set_echo_event(dp, q, ev); 241 else { 242 union evrec tmp; 243 memset(&tmp, 0, sizeof(tmp)); 244 /* XXX: only for little-endian! */ 245 tmp.echo = (q->t.time << 8) | SEQ_ECHO; 246 return set_echo_event(dp, &tmp, ev); 247 } 248 249 case TMR_STOP: 250 if (dp->seq_mode) 251 return snd_seq_oss_timer_stop(dp->timer); 252 return 0; 253 254 case TMR_CONTINUE: 255 if (dp->seq_mode) 256 return snd_seq_oss_timer_continue(dp->timer); 257 return 0; 258 259 case TMR_TEMPO: 260 if (dp->seq_mode) 261 return snd_seq_oss_timer_tempo(dp->timer, q->t.time); 262 return 0; 263 } 264 265 return -EINVAL; 266 } 267 268 /* local events: mode1 and 2 */ 269 static int 270 local_event(struct seq_oss_devinfo *dp, union evrec *q, struct snd_seq_event *ev) 271 { 272 return -EINVAL; 273 } 274 275 /* 276 * process note-on event for OSS synth 277 * three different modes are available: 278 * - SNDRV_SEQ_OSS_PROCESS_EVENTS (for one-voice per channel mode) 279 * Accept note 255 as volume change. 280 * - SNDRV_SEQ_OSS_PASS_EVENTS 281 * Pass all events to lowlevel driver anyway 282 * - SNDRV_SEQ_OSS_PROCESS_KEYPRESS (mostly for Emu8000) 283 * Use key-pressure if note >= 128 284 */ 285 static int 286 note_on_event(struct seq_oss_devinfo *dp, int dev, int ch, int note, int vel, struct snd_seq_event *ev) 287 { 288 struct seq_oss_synthinfo *info; 289 290 if (!snd_seq_oss_synth_is_valid(dp, dev)) 291 return -ENXIO; 292 293 info = &dp->synths[dev]; 294 switch (info->arg.event_passing) { 295 case SNDRV_SEQ_OSS_PROCESS_EVENTS: 296 if (! info->ch || ch < 0 || ch >= info->nr_voices) { 297 /* pass directly */ 298 return set_note_event(dp, dev, SNDRV_SEQ_EVENT_NOTEON, ch, note, vel, ev); 299 } 300 301 if (note == 255 && info->ch[ch].note >= 0) { 302 /* volume control */ 303 int type; 304 //if (! vel) 305 /* set volume to zero -- note off */ 306 // type = SNDRV_SEQ_EVENT_NOTEOFF; 307 //else 308 if (info->ch[ch].vel) 309 /* sample already started -- volume change */ 310 type = SNDRV_SEQ_EVENT_KEYPRESS; 311 else 312 /* sample not started -- start now */ 313 type = SNDRV_SEQ_EVENT_NOTEON; 314 info->ch[ch].vel = vel; 315 return set_note_event(dp, dev, type, ch, info->ch[ch].note, vel, ev); 316 } else if (note >= 128) 317 return -EINVAL; /* invalid */ 318 319 if (note != info->ch[ch].note && info->ch[ch].note >= 0) 320 /* note changed - note off at beginning */ 321 set_note_event(dp, dev, SNDRV_SEQ_EVENT_NOTEOFF, ch, info->ch[ch].note, 0, ev); 322 /* set current status */ 323 info->ch[ch].note = note; 324 info->ch[ch].vel = vel; 325 if (vel) /* non-zero velocity - start the note now */ 326 return set_note_event(dp, dev, SNDRV_SEQ_EVENT_NOTEON, ch, note, vel, ev); 327 return -EINVAL; 328 329 case SNDRV_SEQ_OSS_PASS_EVENTS: 330 /* pass the event anyway */ 331 return set_note_event(dp, dev, SNDRV_SEQ_EVENT_NOTEON, ch, note, vel, ev); 332 333 case SNDRV_SEQ_OSS_PROCESS_KEYPRESS: 334 if (note >= 128) /* key pressure: shifted by 128 */ 335 return set_note_event(dp, dev, SNDRV_SEQ_EVENT_KEYPRESS, ch, note - 128, vel, ev); 336 else /* normal note-on event */ 337 return set_note_event(dp, dev, SNDRV_SEQ_EVENT_NOTEON, ch, note, vel, ev); 338 } 339 return -EINVAL; 340 } 341 342 /* 343 * process note-off event for OSS synth 344 */ 345 static int 346 note_off_event(struct seq_oss_devinfo *dp, int dev, int ch, int note, int vel, struct snd_seq_event *ev) 347 { 348 struct seq_oss_synthinfo *info; 349 350 if (!snd_seq_oss_synth_is_valid(dp, dev)) 351 return -ENXIO; 352 353 info = &dp->synths[dev]; 354 switch (info->arg.event_passing) { 355 case SNDRV_SEQ_OSS_PROCESS_EVENTS: 356 if (! info->ch || ch < 0 || ch >= info->nr_voices) { 357 /* pass directly */ 358 return set_note_event(dp, dev, SNDRV_SEQ_EVENT_NOTEON, ch, note, vel, ev); 359 } 360 361 if (info->ch[ch].note >= 0) { 362 note = info->ch[ch].note; 363 info->ch[ch].vel = 0; 364 info->ch[ch].note = -1; 365 return set_note_event(dp, dev, SNDRV_SEQ_EVENT_NOTEOFF, ch, note, vel, ev); 366 } 367 return -EINVAL; /* invalid */ 368 369 case SNDRV_SEQ_OSS_PASS_EVENTS: 370 case SNDRV_SEQ_OSS_PROCESS_KEYPRESS: 371 /* pass the event anyway */ 372 return set_note_event(dp, dev, SNDRV_SEQ_EVENT_NOTEOFF, ch, note, vel, ev); 373 374 } 375 return -EINVAL; 376 } 377 378 /* 379 * create a note event 380 */ 381 static int 382 set_note_event(struct seq_oss_devinfo *dp, int dev, int type, int ch, int note, int vel, struct snd_seq_event *ev) 383 { 384 if (! snd_seq_oss_synth_is_valid(dp, dev)) 385 return -ENXIO; 386 387 ev->type = type; 388 snd_seq_oss_synth_addr(dp, dev, ev); 389 ev->data.note.channel = ch; 390 ev->data.note.note = note; 391 ev->data.note.velocity = vel; 392 393 return 0; 394 } 395 396 /* 397 * create a control event 398 */ 399 static int 400 set_control_event(struct seq_oss_devinfo *dp, int dev, int type, int ch, int param, int val, struct snd_seq_event *ev) 401 { 402 if (! snd_seq_oss_synth_is_valid(dp, dev)) 403 return -ENXIO; 404 405 ev->type = type; 406 snd_seq_oss_synth_addr(dp, dev, ev); 407 ev->data.control.channel = ch; 408 ev->data.control.param = param; 409 ev->data.control.value = val; 410 411 return 0; 412 } 413 414 /* 415 * create an echo event 416 */ 417 static int 418 set_echo_event(struct seq_oss_devinfo *dp, union evrec *rec, struct snd_seq_event *ev) 419 { 420 ev->type = SNDRV_SEQ_EVENT_ECHO; 421 /* echo back to itself */ 422 snd_seq_oss_fill_addr(dp, ev, dp->addr.client, dp->addr.port); 423 memcpy(&ev->data, rec, LONG_EVENT_SIZE); 424 return 0; 425 } 426 427 /* 428 * event input callback from ALSA sequencer: 429 * the echo event is processed here. 430 */ 431 int 432 snd_seq_oss_event_input(struct snd_seq_event *ev, int direct, void *private_data, 433 int atomic, int hop) 434 { 435 struct seq_oss_devinfo *dp = (struct seq_oss_devinfo *)private_data; 436 union evrec *rec; 437 438 if (ev->type != SNDRV_SEQ_EVENT_ECHO) 439 return snd_seq_oss_midi_input(ev, direct, private_data); 440 441 if (ev->source.client != dp->cseq) 442 return 0; /* ignored */ 443 444 rec = (union evrec*)&ev->data; 445 if (rec->s.code == SEQ_SYNCTIMER) { 446 /* sync echo back */ 447 snd_seq_oss_writeq_wakeup(dp->writeq, rec->t.time); 448 449 } else { 450 /* echo back event */ 451 if (dp->readq == NULL) 452 return 0; 453 snd_seq_oss_readq_put_event(dp->readq, rec); 454 } 455 return 0; 456 } 457 458