lily/my-lily-parser.cc

   1 /*
   2   my-lily-parser.cc -- implement My_lily_parser
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7        Jan Nieuwenhuizen <janneke@gnu.org>
   8 */
   9
  10 #include "my-lily-parser.hh"
  11 #include "my-lily-lexer.hh"
  12 #include "debug.hh"
  13 #include "main.hh"
  14 #include "music-list.hh"
  15 #include "musical-request.hh"
  16 #include "command-request.hh"
  17 #include "lily-guile.hh"
  18 #include "parser.hh"
  19 #include "scope.hh"
  20 #include "file-results.hh"
  21 #include "midi-def.hh"
  22 #include "paper-def.hh"
  23 #include "identifier.hh"
  24 #include "chord.hh"
  25
  26 My_lily_parser::My_lily_parser (Sources * source_l)
  27 {
  28   first_b_ = true;
  29   source_l_ = source_l;
  30   lexer_p_ = 0;
  31   abbrev_beam_type_i_ = 0;
  32   default_duration_.durlog_i_ = 2;
  33   default_pitch_ = Musical_pitch (5*7, 0);
  34   error_level_i_ = 0;
  35
  36   fatal_error_i_ = 0;
  37   default_header_p_ =0;
  38 }
  39
  40 My_lily_parser::~My_lily_parser()
  41 {
  42   delete lexer_p_;
  43   delete default_header_p_;
  44 }
  45
  46
  47
  48 void
  49 My_lily_parser::set_version_check (bool ig)
  50 {
  51   ignore_version_b_ = ig;
  52 }
  53
  54 void
  55 My_lily_parser::parse_file (String init, String s)
  56 {
  57   lexer_p_ = new My_lily_lexer;
  58   init_str_ = init;
  59   lexer_p_->main_input_str_ = s;
  60
  61   *mlog << _ ("Parsing...");
  62
  63   init_parse_b_ = false;
  64   set_yydebug (flower_dstream &&!flower_dstream->silent_b ("Parser"));
  65   lexer_p_->new_input (init, source_l_);
  66   do_yyparse ();
  67
  68   if (!define_spot_array_.empty())
  69     {
  70       warning (_ ("Braces don't match"));
  71       error_level_i_ = 1;
  72     }
  73
  74   inclusion_global_array = lexer_p_->filename_str_arr_;
  75
  76   error_level_i_ = error_level_i_ | lexer_p_->errorlevel_i_; // ugh naming.
  77 }
  78
  79 void
  80 My_lily_parser::remember_spot()
  81 {
  82   define_spot_array_.push (here_input());
  83 }
  84
  85 char const *
  86 My_lily_parser::here_ch_C() const
  87 {
  88   return lexer_p_->here_ch_C();
  89 }
  90
  91 void
  92 My_lily_parser::parser_error (String s)
  93 {
  94   here_input().error (s);
  95   if (fatal_error_i_)
  96     exit (fatal_error_i_);
  97   error_level_i_ = 1;
  98   exit_status_i_ = 1;
  99 }
 100
 101 void
 102 My_lily_parser::set_last_duration (Duration const *d)
 103 {
 104   default_duration_ = *d;
 105 }
 106
 107 void
 108 My_lily_parser::set_abbrev_beam (int type_i)
 109 {
 110   abbrev_beam_type_i_ = type_i;
 111 }
 112
 113 void
 114 My_lily_parser::set_last_pitch (Musical_pitch const* p)
 115 {
 116   default_pitch_ = *p;
 117 }
 118
 119 // junk me
 120 Simultaneous_music*
 121 My_lily_parser::get_word_element (String s, Duration * duration_p)
 122 {
 123   Simultaneous_music* velt_p = new Request_chord;
 124
 125   Lyric_req* lreq_p = new Lyric_req;
 126   lreq_p ->text_str_ = s;
 127   lreq_p->duration_ = *duration_p;
 128   lreq_p->set_spot (here_input());
 129
 130   velt_p->add_music (lreq_p);
 131
 132   delete  duration_p;
 133   return velt_p;
 134 }
 135
 136 // junk me
 137 Simultaneous_music *
 138 My_lily_parser::get_rest_element (String s,  Duration * duration_p)
 139 {
 140   Simultaneous_music* velt_p = new Request_chord;
 141   velt_p->set_spot (here_input());
 142
 143   if (s=="s")
 144     { /* Space */
 145       Skip_req * skip_p = new Skip_req;
 146       skip_p->duration_ = *duration_p;
 147
 148       skip_p->set_spot (here_input());
 149       velt_p->add_music (skip_p);
 150     }
 151   else
 152     {
 153       Rest_req * rest_req_p = new Rest_req;
 154       rest_req_p->duration_ = *duration_p;
 155       rest_req_p->set_spot (here_input());
 156
 157       velt_p->add_music (rest_req_p);
 158     }
 159
 160   delete duration_p;
 161   return velt_p;
 162 }
 163
 164 // junk me
 165 Simultaneous_music *
 166 My_lily_parser::get_chord (Musical_pitch tonic, Array<Musical_pitch>* add_arr_p, Array<Musical_pitch>* sub_arr_p, Musical_pitch* inversion_p, Musical_pitch* bass_p, Duration d)
 167 {
 168   Simultaneous_music*v = new Request_chord;
 169   v->set_spot (here_input ());
 170
 171   /*
 172     UARGAUGRAGRUAUGRUINAGRAUGIRNA
 173
 174     ugh
 175    */
 176   Chord chord = to_chord (tonic, add_arr_p, sub_arr_p, inversion_p, bass_p);
 177
 178   Tonic_req* t = new Tonic_req;
 179   t->pitch_ = tonic;
 180   v->add_music (t);
 181
 182   //urg
 183   if (inversion_p
 184       && Chord::find_notename_i (&chord.pitch_arr_, *inversion_p) > 0)
 185     {
 186       Inversion_req* i = new Inversion_req;
 187       i->pitch_ = *inversion_p;
 188       v->add_music (i);
 189     }
 190
 191   if (bass_p)
 192     {
 193       Bass_req* b = new Bass_req;
 194       b->pitch_ = *bass_p;
 195       v->add_music (b);
 196     }
 197
 198   Array<Musical_pitch> pitch_arr = chord.to_pitch_arr ();
 199   for (int i = 0; i < pitch_arr.size (); i++)
 200     {
 201       Musical_pitch p = pitch_arr[i];
 202       Note_req* n = new Note_req;
 203       n->pitch_ = p;
 204       n->duration_ = d;
 205       v->add_music (n);
 206     }
 207
 208   return v;
 209 }
 210
 211
 212
 213 Input
 214 My_lily_parser::pop_spot()
 215 {
 216   return define_spot_array_.pop();
 217 }
 218
 219 Input
 220 My_lily_parser::here_input() const
 221 {
 222   return  lexer_p_->here_input ();
 223 }
 224
 225 Paper_def*
 226 My_lily_parser::default_paper_p ()
 227 {
 228   Identifier *id = lexer_p_->lookup_identifier ("$defaultpaper");
 229   return id ? id->access_content_Paper_def (true) : new Paper_def ;
 230 }
 231
 232 Midi_def*
 233 My_lily_parser::default_midi_p ()
 234 {
 235   Identifier *id = lexer_p_->lookup_identifier ("$defaultmidi");
 236   return id ? id->access_content_Midi_def (true) : new Midi_def ;
 237 }
 238