src/midi-parser.y

   1 %{
   2
   3 #include <iostream.h>
   4
   5 #include "proto.hh"         // ugh, these all for midi-main.hh
   6 #include "plist.hh"
   7 #include "string.hh"
   8 #include "sourcefile.hh"
   9 #include "source.hh"
  10 #include "midi-main.hh"    // *tors
  11
  12 #include "my-midi-lexer.hh"
  13 #include "my-midi-parser.hh"
  14 #include "moment.hh"
  15 #include "duration.hh"
  16 #include "midi-event.hh"
  17 #include "midi-track.hh"
  18 #include "midi-score.hh"
  19
  20 #ifndef NDEBUG
  21 #define YYDEBUG 1
  22 #endif
  23
  24 //ugh
  25 static track_i = 0;
  26
  27 %}
  28
  29 %union {
  30     Byte byte;
  31     char c;
  32     int i;
  33     String* str_p;
  34     Request* request_p;
  35     Midi_event* midi_event_p;   // Voice_element* ?
  36     Midi_score* midi_score_p;   // Input_score* ?
  37     Midi_track* midi_track_p;   // Input_music* ?
  38 }
  39
  40 %token HEADER TRACK
  41 %token SYSEX_EVENT1 SYSEX_EVENT2
  42 %token META_EVENT
  43 %token SEQUENCE TEXT COPYRIGHT TRACK_NAME INSTRUMENT_NAME LYRIC MARKER CUE_POINT
  44 %token END_OF_TRACK TEMPO SMPTE_OFFSET TIME KEY SSME
  45
  46 %token<i> INT8 INT16 INT32 INT7_8UNSET INT7_8SET VARINT
  47 %token<i> RUNNING_STATUS DATA_ENTRY ALL_NOTES_OFF
  48 %token<i> NOTE_OFF NOTE_ON
  49 %token<i> POLYPHONIC_AFTERTOUCH CONTROLMODE_CHANGE PROGRAM_CHANGE
  50 %token<i> CHANNEL_AFTERTOUCH PITCHWHEEL_RANGE
  51 %token<str_p> DATA
  52
  53 %type <i> varint
  54 %type <midi_score_p> header midi_score
  55 %type <midi_track_p> track
  56 %type <midi_event_p> event
  57 %type <midi_event_p> the_event meta_event the_meta_event text_event midi_event sysex_event
  58 %type <midi_event_p> running_status data_entry all_notes_off
  59 %type <midi_event_p> note_off note_on
  60 %type <midi_event_p> polyphonic_aftertouch controlmode_change program_change
  61 %type <midi_event_p> channel_aftertouch pitchwheel_range
  62
  63 %%
  64
  65 midi:   /* empty */
  66         | midi midi_score {
  67                 midi_parser_l_g->add_score( $2 );
  68                 track_i = 0;
  69         }
  70         ;
  71
  72 midi_score:
  73         header {
  74         }
  75         | midi_score track {
  76                 $$->add_track( $2 );
  77                 midi_parser_l_g->reset();
  78         }
  79         ;
  80
  81 header:
  82         HEADER INT32 INT16 INT16 INT16 {
  83                 $$ = new Midi_score( $3, $4, $5 );
  84                 midi_parser_l_g->set_division_4( $5 );
  85         }
  86         ;
  87
  88 track:
  89         TRACK INT32 {
  90                 $$ = new Midi_track( track_i++ );
  91         }
  92         | track event {
  93                 $$->add_event( midi_parser_l_g->mom(), $2 );
  94         }
  95         ;
  96
  97 event:
  98         varint the_event {
  99                 $$ = $2;
 100                 if ( $2 && $2->mudela_str().length_i() )
 101                         dtor << $2->mudela_str() << " " << flush;
 102         }
 103         ;
 104
 105 varint:
 106         VARINT {
 107                 midi_parser_l_g->forward( $1 );
 108         }
 109         ;
 110
 111 the_event:
 112         meta_event {
 113         }
 114         | midi_event {
 115         }
 116         | sysex_event {
 117         }
 118         ;
 119
 120 meta_event:
 121         META_EVENT the_meta_event {
 122                 $$ = $2;
 123         }
 124         |
 125         META_EVENT INT8 INT8 INT8 {
 126                 $$ = 0;
 127         }
 128         ;
 129
 130 the_meta_event:
 131         SEQUENCE INT16 {
 132         }
 133         | text_event DATA {
 134                 $$ = 0;
 135                 dtor << *$2 << endl;
 136                 delete $2;
 137         }
 138         | END_OF_TRACK {
 139                 $$ = 0;
 140         }
 141         | TEMPO INT8 INT8 INT8 {
 142                 $$ = new Midi_tempo( ( $2 << 16 ) + ( $3 << 8 ) + $4 );
 143                 dtor << $$->mudela_str() << endl; // ?? waai not at event:
 144                 midi_parser_l_g->set_tempo( ( $2 << 16 ) + ( $3 << 8 ) + $4 );
 145         }
 146         | SMPTE_OFFSET INT8 INT8 INT8 INT8 INT8 {
 147                 $$ = 0;
 148         }
 149         | TIME INT8 INT8 INT8 INT8 {
 150                 $$ = new Midi_time( $2, $3, $4, $5 );
 151                 dtor << $$->mudela_str() << endl; // ?? waai not at event:
 152                 midi_parser_l_g->set_time( $2, $3, $4, $5 );
 153         }
 154         | KEY INT8 INT8 {
 155                 $$ = new Midi_key( $2, $3 );
 156                 midi_parser_l_g->set_key( $2, $3  );
 157         }
 158         | SSME DATA {
 159                 $$ = 0;
 160                 delete $2;
 161         }
 162         ;
 163
 164 text_event:
 165         TEXT {
 166                 dtor << "\n% Text: ";
 167         }
 168         | COPYRIGHT {
 169                 dtor << "\n% Copyright: ";
 170         }
 171         | TRACK_NAME {
 172                 dtor << "\n% Track  name: ";
 173         }
 174         | INSTRUMENT_NAME {
 175                 dtor << "\n% Instrument  name: ";
 176         }
 177         | LYRIC {
 178                 dtor << "\n% Lyric: ";
 179         }
 180         | MARKER {
 181                 dtor << "\n% Marker: ";
 182         }
 183         | CUE_POINT {
 184                 dtor << "\n% Cue point: ";
 185         }
 186         ;
 187
 188 midi_event:
 189         running_status {
 190         }
 191         | data_entry {
 192         }
 193         | all_notes_off {
 194         }
 195         | note_off {
 196         }
 197         | note_on {
 198         }
 199         | polyphonic_aftertouch {
 200         }
 201         | controlmode_change {
 202         }
 203         | program_change {
 204         }
 205         | channel_aftertouch {
 206         }
 207         | pitchwheel_range {
 208         }
 209         ;
 210
 211 running_status:
 212         RUNNING_STATUS INT8 { //INT8 {
 213                 $$ = 0;
 214         }
 215         ;
 216
 217 data_entry:
 218         DATA_ENTRY INT8 {
 219                 $$ = 0;
 220         }
 221         ;
 222
 223 all_notes_off:
 224         ALL_NOTES_OFF INT8 INT8 {
 225                 $$ = 0;
 226         }
 227         ;
 228
 229 note_off:
 230         NOTE_OFF INT8 INT8 {
 231                 int i = $1;
 232                 i = i & ~0x80;
 233                 $$ = midi_parser_l_g->note_end_midi_event_p( $1 & ~0x80, $2, $3 );
 234         }
 235         ;
 236
 237 note_on:
 238         NOTE_ON INT8 INT8 {
 239                 int i = $1;
 240                 i = i & ~0x90;
 241                 $$ = 0;
 242                 midi_parser_l_g->note_begin( $1 & ~0x90, $2, $3 );
 243         }
 244         ;
 245
 246 polyphonic_aftertouch:
 247         POLYPHONIC_AFTERTOUCH INT8 INT8 {
 248                 $$ = 0;
 249         }
 250         ;
 251
 252 controlmode_change:
 253         CONTROLMODE_CHANGE INT8 INT8 {
 254                 $$ = 0;
 255         }
 256         ;
 257
 258 program_change:
 259         PROGRAM_CHANGE INT8 {
 260                 $$ = 0;
 261         }
 262         ;
 263
 264 channel_aftertouch:
 265         CHANNEL_AFTERTOUCH INT8 INT8 {
 266                 $$ = 0;
 267         }
 268         ;
 269
 270 pitchwheel_range:
 271         PITCHWHEEL_RANGE INT8 INT8 {
 272                 $$ = 0;
 273         }
 274         ;
 275
 276 sysex_event:
 277         SYSEX_EVENT1 DATA {
 278                 $$ = 0;
 279         }
 280         | SYSEX_EVENT2 DATA { // INT8 ?
 281                 $$ = 0;
 282         }
 283         ;