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