lily/includable-lexer.cc

   1 /*
   2   includable-lexer.cc -- implement Includable_lexer
   3
   4   source file of the LilyPond music typesetter
   5
   6   (c)  1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include <sstream>
  10
  11
  12 #include "file-path.hh"
  13 #include "includable-lexer.hh"
  14 #include "source-file.hh"
  15 #include "source.hh"
  16 #include "warn.hh"
  17 #include "main.hh"
  18
  19 #ifndef YY_BUF_SIZE
  20 #define YY_BUF_SIZE 16384
  21 #endif
  22
  23 #ifndef YY_START
  24 #define YY_START\
  25  ((yy_start - 1) / 2)
  26 #define YYSTATE YY_START
  27 #endif
  28
  29 Includable_lexer::Includable_lexer ()
  30 {
  31   yy_current_buffer = 0;
  32   allow_includes_b_ = true;
  33 }
  34
  35 /** set the  new input to s, remember old file.
  36 */
  37 void
  38 Includable_lexer::new_input (String s, Sources  * global_sources)
  39 {
  40   if (!allow_includes_b_)
  41     {
  42       LexerError ("include files are disallowed.");
  43       return;
  44     }
  45
  46   Source_file * sl = global_sources->get_file (s);
  47   if (!sl)
  48     {
  49       String msg = _f ("can't find file: `%s'", s);
  50       msg += "\n";
  51       msg += _f ("(search path: `%s')", global_sources->path_C_->string ().to_str0 ());
  52       msg += "\n";
  53       LexerError (msg.to_str0 ());
  54
  55       return;
  56     }
  57   filename_strings_.push (sl->name_string ());
  58
  59   char_count_stack_.push (0);
  60   if (yy_current_buffer)
  61     state_stack_.push (yy_current_buffer);
  62
  63   if (verbose_global_b)
  64     progress_indication (String ("[") + s);
  65
  66   include_stack_.push (sl);
  67
  68   /*
  69     ugh. We'd want to create a buffer from the bytes directly.
  70
  71     Whoops. The size argument to yy_create_buffer is not the
  72     filelength but a BUFFERSIZE. Maybe this is why reading stdin fucks up.
  73
  74   */
  75   yy_switch_to_buffer (yy_create_buffer (sl->get_istream (), YY_BUF_SIZE));
  76
  77 }
  78
  79 /*
  80   Unused.
  81  */
  82 void
  83 Includable_lexer::new_input (String name, String data, Sources* sources)
  84 {
  85   Source_file* file = new Source_file (name, data);
  86   sources->add (file);
  87   filename_strings_.push (name);
  88
  89   char_count_stack_.push (0);
  90   if (yy_current_buffer)
  91     state_stack_.push (yy_current_buffer);
  92
  93   if (verbose_global_b)
  94     progress_indication (String ("[") + name);
  95   include_stack_.push (file);
  96
  97   yy_switch_to_buffer (yy_create_buffer (file->get_istream (), YY_BUF_SIZE));
  98 }
  99
 100 /** pop the inputstack.  conceptually this is a destructor, but it
 101   does not destruct the Source_file that Includable_lexer::new_input creates.  */
 102 bool
 103 Includable_lexer::close_input ()
 104 {
 105   include_stack_.pop ();
 106   char_count_stack_.pop ();
 107   if (verbose_global_b)
 108     progress_indication ("]");
 109   yy_delete_buffer (yy_current_buffer);
 110   yy_current_buffer = 0;
 111   if (state_stack_.empty ())
 112     {
 113       yy_current_buffer = 0;
 114       return false;
 115     }
 116   else
 117     {
 118       yy_switch_to_buffer (state_stack_.pop ());
 119       return true;
 120     }
 121 }
 122
 123 char const*
 124 Includable_lexer::here_str0 () const
 125 {
 126   if (include_stack_.empty ())
 127     return 0;
 128   return include_stack_.top ()->to_str0 () + char_count_stack_.top ();
 129 }
 130
 131 Includable_lexer::~Includable_lexer ()
 132 {
 133   while (!include_stack_.empty ())
 134     {
 135       close_input ();
 136     }
 137 }
 138 /**
 139   Since we don't create the buffer state from the bytes directly, we
 140   don't know about the location of the lexer. Add this as a
 141   YY_USER_ACTION */
 142 void
 143 Includable_lexer::add_lexed_char (int count)
 144 {
 145   char_count_stack_.top () += count;
 146 }
 147
 148 Source_file*
 149 Includable_lexer::get_source_file () const
 150 {
 151   if (include_stack_.empty ())
 152     return 0;
 153   else
 154     return include_stack_.top ();
 155 }