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--2003 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 "scm-hash.hh"
  17
  18 My_lily_parser::My_lily_parser (Input_file_results * source)
  19 {
  20   input_file_ = source;
  21   lexer_ = 0;
  22   default_duration_ = Duration (2,0);
  23   error_level_ = 0;
  24   last_beam_start_ = SCM_EOL;
  25
  26   default_header_ =0;
  27 }
  28
  29 My_lily_parser::~My_lily_parser ()
  30 {
  31   delete lexer_;
  32   if (default_header_)
  33     scm_gc_unprotect_object (default_header_->self_scm());
  34 }
  35
  36
  37 void
  38 My_lily_parser::parse_file (String init, String s)
  39 {
  40   lexer_ = new My_lily_lexer;
  41
  42   lexer_->main_input_string_ = s;
  43
  44   progress_indication (_ ("Parsing..."));
  45
  46   set_yydebug (0);
  47   lexer_->new_input (init, &input_file_->sources_);
  48   do_yyparse ();
  49
  50   progress_indication ("\n");
  51
  52   if (!define_spots_.empty ())
  53     {
  54       define_spots_.top ().warning (_ ("Braces don't match"));
  55       error_level_ = 1;
  56     }
  57
  58   input_file_->inclusion_names_ = lexer_->filename_strings_;
  59
  60   error_level_ = error_level_ | lexer_->errorlevel_; // ugh naming.
  61 }
  62
  63 void
  64 My_lily_parser::push_spot ()
  65 {
  66   define_spots_.push (here_input ());
  67 }
  68
  69 char const *
  70 My_lily_parser::here_str0 () const
  71 {
  72   return lexer_->here_str0 ();
  73 }
  74
  75 void
  76 My_lily_parser::parser_error (String s)
  77 {
  78   here_input ().error (s);
  79   error_level_ = 1;
  80   exit_status_global = 1;
  81 }
  82
  83
  84
  85 Input
  86 My_lily_parser::pop_spot ()
  87 {
  88   return define_spots_.pop ();
  89 }
  90
  91 Input
  92 My_lily_parser::here_input () const
  93 {
  94   /*
  95     Parsing looks ahead , so we really want the previous location of the
  96     lexer, not lexer_->here_input().
  97    */
  98   /*
  99     Actually, that gets very icky when there are white space, because
 100     the line-numbers are all wrong.  Let's try the character before
 101     the current token. That gets the right result for
 102     note/duration stuff, but doesn't mess up for errors in the 1st token of the line.
 103
 104    */
 105   Input hi (lexer_->here_input ());
 106
 107   char const * bla = hi.defined_str0_;
 108   if (hi.line_number () > 1
 109       || hi.column_number () > 1)
 110     bla --;
 111
 112   return Input (hi.source_file_, bla);
 113 }
 114
 115 #include "paper-def.hh"
 116 #include "translator-def.hh"
 117
 118 My_lily_parser * current_parser;
 119
 120 MAKE_SCHEME_CALLBACK (My_lily_parser,paper_description, 0);
 121
 122 SCM
 123 My_lily_parser::paper_description ()
 124 {
 125   My_lily_parser * me = current_parser;
 126
 127   Music_output_def *id = unsmob_music_output_def (me->lexer_->lookup_identifier ("$defaultpaper"));
 128   Paper_def *p = dynamic_cast<Paper_def*> (id->clone ());
 129
 130   SCM al = p->translator_tab_->to_alist ();
 131   SCM l = SCM_EOL;
 132   for (SCM s = al ; gh_pair_p (s); s = ly_cdr (s))
 133     {
 134       Translator_def * td = unsmob_translator_def (ly_cdar (s));
 135       l = gh_cons (gh_cons (ly_caar (s), td->to_alist ()),  l);
 136     }
 137   return l;
 138 }
 139
 140