2 includable-lexer.cc -- implement Includable_lexer
4 source file of the LilyPond music typesetter
6 (c) 1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
12 #include "file-path.hh"
13 #include "includable-lexer.hh"
14 #include "source-file.hh"
20 #define YY_BUF_SIZE 16384
26 #define YYSTATE YY_START
29 Includable_lexer::Includable_lexer ()
31 yy_current_buffer = 0;
32 allow_includes_b_ = true;
35 /** set the new input to s, remember old file.
38 Includable_lexer::new_input (String s, Sources * global_sources)
40 if (!allow_includes_b_)
42 LexerError ("include files are disallowed.");
46 Source_file * sl = global_sources->get_file (s);
49 String msg = _f ("can't find file: `%s'", s);
51 msg += _f ("(search path: `%s')", global_sources->path_C_->to_string ().to_str0 ());
53 LexerError (msg.to_str0 ());
57 filename_strings_.push (sl->name_string ());
59 char_count_stack_.push (0);
60 if (yy_current_buffer)
61 state_stack_.push (yy_current_buffer);
64 progress_indication (String ("[") + s);
66 include_stack_.push (sl);
69 ugh. We'd want to create a buffer from the bytes directly.
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.
75 yy_switch_to_buffer (yy_create_buffer (sl->get_istream (), YY_BUF_SIZE));
82 Includable_lexer::new_input (String name, String data, Sources* sources)
84 Source_file* file = new Source_file (name, data);
86 filename_strings_.push (name);
88 char_count_stack_.push (0);
89 if (yy_current_buffer)
90 state_stack_.push (yy_current_buffer);
93 progress_indication (String ("[") + name);
94 include_stack_.push (file);
96 yy_switch_to_buffer (yy_create_buffer (file->get_istream (), YY_BUF_SIZE));
99 /** pop the inputstack. conceptually this is a destructor, but it
100 does not destruct the Source_file that Includable_lexer::new_input creates. */
102 Includable_lexer::close_input ()
104 include_stack_.pop ();
105 char_count_stack_.pop ();
106 if (verbose_global_b)
107 progress_indication ("]");
108 yy_delete_buffer (yy_current_buffer);
109 yy_current_buffer = 0;
110 if (state_stack_.empty ())
112 yy_current_buffer = 0;
117 yy_switch_to_buffer (state_stack_.pop ());
123 Includable_lexer::here_str0 () const
125 if (include_stack_.empty ())
127 return include_stack_.top ()->to_str0 () + char_count_stack_.top ();
130 Includable_lexer::~Includable_lexer ()
132 while (!include_stack_.empty ())
138 Since we don't create the buffer state from the bytes directly, we
139 don't know about the location of the lexer. Add this as a
142 Includable_lexer::add_lexed_char (int count)
144 char_count_stack_.top () += count;
148 Includable_lexer::get_source_file () const
150 if (include_stack_.empty ())
153 return include_stack_.top ();