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--2004 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 "warn.hh"
  13 #include "main.hh"
  14 #include "parser.hh"
  15 #include "input-file-results.hh"
  16 #include "ly-module.hh"
  17 #include "scm-hash.hh"
  18
  19 My_lily_parser::My_lily_parser (Sources * sources)
  20 {
  21   book_count_ = 0;
  22   score_count_ = 0;
  23   lexer_ = 0;
  24   sources_ = sources;
  25   default_duration_ = Duration (2,0);
  26   error_level_ = 0;
  27   last_beam_start_ = SCM_EOL;
  28
  29   header_ = ly_make_anonymous_module ();
  30 }
  31
  32 My_lily_parser::~My_lily_parser ()
  33 {
  34   delete lexer_;
  35 }
  36
  37 /* Process one .ly file, or book.  */
  38 void
  39 My_lily_parser::parse_file (String init, String in_file, String out_file)
  40 {
  41   lexer_ = new My_lily_lexer (sources_);
  42   output_basename_ = out_file;
  43
  44   lexer_->main_input_name_ = in_file;
  45
  46   progress_indication (_ ("Parsing..."));
  47   progress_indication ("\n");
  48
  49   set_yydebug (0);
  50   lexer_->new_input (init, sources_);
  51
  52   /* Read .ly IN_FILE, lex, parse, write \score blocks from IN_FILE to
  53      OUT_FILE (unless IN_FILE redefines output file name).  */
  54   do_yyparse ();
  55
  56   if (!define_spots_.is_empty ())
  57     {
  58       define_spots_.top ().warning (_ ("Braces don't match"));
  59       error_level_ = 1;
  60     }
  61
  62   // fixme: dependencies
  63   //input_file_->inclusion_names_ = lexer_->filename_strings_;
  64
  65   error_level_ = error_level_ | lexer_->errorlevel_; // ugh naming.
  66 }
  67
  68 void
  69 My_lily_parser::push_spot ()
  70 {
  71   define_spots_.push (here_input ());
  72 }
  73
  74 char const *
  75 My_lily_parser::here_str0 () const
  76 {
  77   return lexer_->here_str0 ();
  78 }
  79
  80 void
  81 My_lily_parser::parser_error (String s)
  82 {
  83   here_input ().error (s);
  84   error_level_ = 1;
  85 }
  86
  87
  88
  89 Input
  90 My_lily_parser::pop_spot ()
  91 {
  92   return define_spots_.pop ();
  93 }
  94
  95 Input
  96 My_lily_parser::here_input () const
  97 {
  98   /*
  99     Parsing looks ahead , so we really want the previous location of the
 100     lexer, not lexer_->here_input ().
 101   */
 102   /*
 103     Actually, that gets very icky when there are white space, because
 104     the line-numbers are all wrong.  Let's try the character before
 105     the current token. That gets the right result for
 106     note/duration stuff, but doesn't mess up for errors in the 1st token of the line.
 107
 108   */
 109   Input hi (lexer_->here_input ());
 110
 111   char const * bla = hi.defined_str0_;
 112   if (hi.line_number () > 1
 113       || hi.column_number () > 1)
 114     bla --;
 115
 116   return Input (hi.source_file_, bla);
 117 }