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