#include "music-list.hh"
#include "musical-request.hh"
#include "command-request.hh"
+#include "lily-guile.hh"
#include "parser.hh"
#include "scope.hh"
#include "file-results.hh"
first_b_ = true;
source_l_ = source_l;
lexer_p_ = 0;
+ abbrev_beam_type_i_ = 0;
default_duration_.durlog_i_ = 2;
default_pitch_ = Musical_pitch (5*7, 0);
error_level_i_ = 0;
*mlog << _ ("Parsing...");
init_parse_b_ = false;
- set_yydebug (!monitor->silent_b ("Parser") && check_debug);
+ set_yydebug (flower_dstream &&!flower_dstream->silent_b ("Parser"));
lexer_p_->new_input (init, source_l_);
do_yyparse ();
if (!define_spot_array_.empty())
{
- warning (_ ("braces don't match"));
+ warning (_ ("Braces don't match"));
error_level_i_ = 1;
}
default_duration_ = *d;
}
+void
+My_lily_parser::set_abbrev_beam (int type_i)
+{
+ abbrev_beam_type_i_ = type_i;
+}
+
void
My_lily_parser::set_last_pitch (Musical_pitch const* p)
{
Input
My_lily_parser::here_input() const
{
- Source_file * f_l= lexer_p_->source_file_l();
- return Input (f_l, here_ch_C());
+ return lexer_p_->here_input ();
}
Paper_def*