mi2mu/my-midi-lexer.cc

   1 //
   2 // my-midi-lexer.cc -- implement My_midi_lexer
   3 //
   4 // copyright 1997 Jan Nieuwenhuizen <jan@digicash.com>
   5
   6 #include "string-convert.hh"
   7 #include "mi2mu-global.hh"
   8 #include "my-midi-lexer.hh"
   9 #include "source.hh"
  10 #include "source-file.hh"
  11
  12 int
  13 yylex()
  14 {
  15     return midi_lexer_l_g->yylex();
  16 }
  17
  18 My_midi_lexer* midi_lexer_l_g = 0;
  19
  20 My_midi_lexer::My_midi_lexer (String &filename_str, Sources * sources)
  21 {
  22     source_file_l_ = sources->get_file_l(filename_str);
  23     if  (!source_file_l_)
  24         ::error  ("can't find: `" + filename_str + "'");
  25     switch_streams (source_file_l_->istream_l(), 0);
  26     errorlevel_i_ = 0;
  27     char_count_ = 0;
  28     running_status_i_ = 0;
  29 }
  30
  31 My_midi_lexer::~My_midi_lexer()
  32 {
  33 //    delete source_file_p_;
  34 }
  35
  36 void
  37 My_midi_lexer::error (char const* sz_l)
  38 {
  39     if (1|| !source_file_l_) {
  40         cerr << "error at EOF: `" << sz_l << "'\n";
  41     } else {
  42
  43         // FIXME
  44         #if 0
  45         char const* ch_C = here_ch_C();
  46         if  (ch_C) {
  47             ch_C--;
  48             while  ( (*ch_C == ' ') ||  (*ch_C == '\t') ||  (*ch_C == '\n'))
  49                 ch_C--;
  50             ch_C++;
  51         }
  52         errorlevel_i_ |= 1;
  53         error (sz_l);
  54         #endif
  55     }
  56 }
  57
  58 char const*
  59 My_midi_lexer::here_ch_C()
  60 {
  61     return source_file_l_->ch_C() + char_count_ ;
  62 }
  63
  64 int
  65 My_midi_lexer::varint2_i (String str)
  66 {
  67     int var_i = 0;
  68
  69     for  (int i = 0; i < str.length_i(); i++) {
  70         Byte byte = str[ i ];
  71         var_i <<= 7;
  72         var_i += byte & 0x7f;
  73         if  (!  (byte & 0x80))
  74             return var_i;
  75     }
  76     cout << "\nvarint2_i:" << String_convert::bin2hex_str (str) << endl;
  77     assert (0); // illegal varint
  78     return 0;
  79 }
  80
  81 int
  82 My_midi_lexer::close_i()
  83 {
  84     return 0;
  85 }
  86