2 includable-lexer.cc -- implement Includable_lexer
4 source file of the LilyPond music typesetter
6 (c) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #include "includable-lexer.hh"
16 #include "file-name.hh"
17 #include "file-path.hh"
18 #include "international.hh"
20 #include "source-file.hh"
25 #define YY_BUF_SIZE 16384
31 #define YYSTATE YY_START
34 /* Flex >= 2.5.29 has include stack; but we don't use that yet. */
35 #if !HAVE_FLEXLEXER_YY_CURRENT_BUFFER
36 #define yy_current_buffer \
37 (yy_buffer_stack != 0 ? yy_buffer_stack[yy_buffer_stack_top] : 0)
40 extern bool relative_includes;
42 Includable_lexer::Includable_lexer ()
44 #if HAVE_FLEXLEXER_YY_CURRENT_BUFFER
45 yy_current_buffer = 0;
49 /** Set the new input file to NAME, remember old file. */
51 Includable_lexer::new_input (string name, Sources *sources)
53 string current_dir = dir_name (main_input_name_);
54 if (relative_includes)
55 current_dir = include_stack_.size () ? dir_name (include_stack_.back ()->name_string ()) : "";
57 Source_file *file = sources->get_file (name, current_dir);
60 string msg = _f ("cannot find file: `%s'", name);
62 msg += _f ("(search path: `%s')",
63 (current_dir.length () ? (current_dir + PATHSEP) : "") + sources->path_->to_string ().c_str ());
64 LexerError (msg.c_str ());
67 file_name_strings_.push_back (file->name_string ());
69 char_count_stack_.push_back (0);
70 if (yy_current_buffer)
71 state_stack_.push_back (yy_current_buffer);
73 if (be_verbose_global)
76 for (size_t i = 0; i < state_stack_.size (); i++)
78 progress_indication (string ("\n") + spaces + string ("[") + file->name_string ());
81 include_stack_.push_back (file);
83 /* Ugh. We'd want to create a buffer from the bytes directly.
85 Whoops. The size argument to yy_create_buffer is not the
86 filelength but a BUFFERSIZE. Maybe this is why reading stdin fucks up. */
87 yy_switch_to_buffer (yy_create_buffer (file->get_istream (), YY_BUF_SIZE));
91 Includable_lexer::new_input (string name, string data, Sources *sources)
93 Source_file *file = new Source_file (name, data);
95 file_name_strings_.push_back (name);
97 char_count_stack_.push_back (0);
98 if (yy_current_buffer)
99 state_stack_.push_back (yy_current_buffer);
101 if (be_verbose_global)
104 for (size_t i = 0; i < state_stack_.size (); i++)
106 progress_indication (string ("\n") + spaces + string ("[") + name);
108 include_stack_.push_back (file);
110 yy_switch_to_buffer (yy_create_buffer (file->get_istream (), YY_BUF_SIZE));
113 /** pop the inputstack. conceptually this is a destructor, but it
114 does not destruct the Source_file that Includable_lexer::new_input
117 Includable_lexer::close_input ()
119 include_stack_.pop_back ();
120 char_count_stack_.pop_back ();
121 if (be_verbose_global)
122 progress_indication ("]");
123 yy_delete_buffer (yy_current_buffer);
124 #if HAVE_FLEXLEXER_YY_CURRENT_BUFFER
125 yy_current_buffer = 0;
127 if (state_stack_.empty ())
129 #if HAVE_FLEXLEXER_YY_CURRENT_BUFFER
130 yy_current_buffer = 0;
134 yy_switch_to_buffer (state_stack_.back ());
135 state_stack_.pop_back ();
140 Includable_lexer::here_str0 () const
142 if (include_stack_.empty ())
144 return include_stack_.back ()->c_str () + char_count_stack_.back ();
147 Includable_lexer::~Includable_lexer ()
149 while (!include_stack_.empty ())
154 Includable_lexer::get_source_file () const
156 if (include_stack_.empty ())
158 return include_stack_.back ();