2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
20 #include "includable-lexer.hh"
26 #include "file-name.hh"
27 #include "file-path.hh"
28 #include "international.hh"
30 #include "source-file.hh"
37 #define YY_BUF_SIZE 16384
43 #define YYSTATE YY_START
46 /* Flex >= 2.5.29 has include stack; but we don't use that yet. */
47 #if !HAVE_FLEXLEXER_YY_CURRENT_BUFFER
48 #define yy_current_buffer \
49 (yy_buffer_stack != 0 ? yy_buffer_stack[yy_buffer_stack_top] : 0)
52 extern bool relative_includes;
54 Includable_lexer::Includable_lexer ()
56 #if HAVE_FLEXLEXER_YY_CURRENT_BUFFER
57 yy_current_buffer = 0;
61 /** Set the new input file to NAME, remember old file. */
63 Includable_lexer::new_input (const string &name, Sources *sources)
65 string current_dir = dir_name (main_input_name_);
66 if (relative_includes)
67 current_dir = include_stack_.size () ? dir_name (include_stack_.back ()->name_string ()) : "";
69 Source_file *file = sources->get_file (name, current_dir);
72 string msg = _f ("cannot find file: `%s'", name);
74 msg += _f ("(search path: `%s')",
75 (current_dir.length () ? (current_dir + PATHSEP) : "") + sources->path_->to_string ().c_str ());
76 LexerError (msg.c_str ());
79 file_name_strings_.push_back (file->name_string ());
81 char_count_stack_.push_back (0);
82 if (yy_current_buffer)
83 state_stack_.push_back (yy_current_buffer);
85 debug_output (string (state_stack_.size (), ' ') // indentation!
86 + string ("[") + file->name_string ());
88 include_stack_.push_back (file);
90 /* Ugh. We'd want to create a buffer from the bytes directly.
92 Whoops. The size argument to yy_create_buffer is not the
93 filelength but a BUFFERSIZE. Maybe this is why reading stdin fucks up. */
94 yy_switch_to_buffer (yy_create_buffer (file->get_istream (), YY_BUF_SIZE));
98 Includable_lexer::new_input (const string &name, string data, Sources *sources)
100 Source_file *file = new Source_file (name, data);
102 file_name_strings_.push_back (name);
104 char_count_stack_.push_back (0);
105 if (yy_current_buffer)
106 state_stack_.push_back (yy_current_buffer);
108 debug_output (string (state_stack_.size (), ' ') // indentation!
109 + string ("[") + name);
110 include_stack_.push_back (file);
112 yy_switch_to_buffer (yy_create_buffer (file->get_istream (), YY_BUF_SIZE));
115 /** pop the inputstack. conceptually this is a destructor, but it
116 does not destruct the Source_file that Includable_lexer::new_input
119 Includable_lexer::close_input ()
121 include_stack_.pop_back ();
122 char_count_stack_.pop_back ();
123 debug_output ("]", false);
124 yy_delete_buffer (yy_current_buffer);
125 #if HAVE_FLEXLEXER_YY_CURRENT_BUFFER
126 yy_current_buffer = 0;
128 if (state_stack_.empty ())
130 #if HAVE_FLEXLEXER_YY_CURRENT_BUFFER
131 yy_current_buffer = 0;
135 yy_switch_to_buffer (state_stack_.back ());
136 state_stack_.pop_back ();
141 Includable_lexer::here_str0 () const
143 if (include_stack_.empty ())
145 return include_stack_.back ()->c_str () + char_count_stack_.back ();
148 Includable_lexer::~Includable_lexer ()
150 while (!include_stack_.empty ())
155 Includable_lexer::get_source_file () const
157 if (include_stack_.empty ())
159 return include_stack_.back ();