2 includable-lexer.cc -- implement Includable_lexer
4 source file of the LilyPond music typesetter
6 (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
12 #include "includable-lexer.hh"
13 #include "file-path.hh"
14 #include "source-file.hh"
20 #define YY_BUF_SIZE 16384
26 #define YYSTATE YY_START
29 /* Flex >= 2.5.29 has include stack; but we don't use that yet. */
30 #ifndef HAVE_FLEXLEXER_YY_CURRENT_BUFFER
31 #define yy_current_buffer \
32 (yy_buffer_stack != 0 ? yy_buffer_stack[yy_buffer_stack_top] : 0)
35 Includable_lexer::Includable_lexer ()
37 #ifdef HAVE_FLEXLEXER_YY_CURRENT_BUFFER
38 yy_current_buffer = 0;
40 allow_includes_b_ = true;
43 /** Set the new input file to NAME, remember old file. */
45 Includable_lexer::new_input (String name, Sources *sources)
47 if (!allow_includes_b_)
49 LexerError (_ ("include files are not allowed").to_str0 ());
53 Source_file *file = sources->get_file (name);
56 String msg = _f ("can't find file: `%s'", name);
58 msg += _f ("(search path: `%s')",
59 sources->path_->to_string ().to_str0 ());
61 LexerError (msg.to_str0 ());
64 filename_strings_.push (file->name_string ());
66 char_count_stack_.push (0);
67 if (yy_current_buffer)
68 state_stack_.push (yy_current_buffer);
71 progress_indication (String ("[") + name);
73 include_stack_.push (file);
75 /* Ugh. We'd want to create a buffer from the bytes directly.
77 Whoops. The size argument to yy_create_buffer is not the
78 filelength but a BUFFERSIZE. Maybe this is why reading stdin fucks up. */
79 yy_switch_to_buffer (yy_create_buffer (file->get_istream (), YY_BUF_SIZE));
83 Includable_lexer::new_input (String name, String data, Sources *sources)
85 Source_file *file = new Source_file (name, data);
87 filename_strings_.push (name);
89 char_count_stack_.push (0);
90 if (yy_current_buffer)
91 state_stack_.push (yy_current_buffer);
94 progress_indication (String ("[") + name);
95 include_stack_.push (file);
97 yy_switch_to_buffer (yy_create_buffer (file->get_istream (), YY_BUF_SIZE));
100 /** pop the inputstack. conceptually this is a destructor, but it
101 does not destruct the Source_file that Includable_lexer::new_input
104 Includable_lexer::close_input ()
106 include_stack_.pop ();
107 char_count_stack_.pop ();
108 if (verbose_global_b)
109 progress_indication ("]");
110 yy_delete_buffer (yy_current_buffer);
111 #ifdef HAVE_FLEXLEXER_YY_CURRENT_BUFFER
112 yy_current_buffer = 0;
114 if (state_stack_.is_empty ())
116 #ifdef HAVE_FLEXLEXER_YY_CURRENT_BUFFER
117 yy_current_buffer = 0;
121 yy_switch_to_buffer (state_stack_.pop ());
126 Includable_lexer::here_str0 () const
128 if (include_stack_.is_empty ())
130 return include_stack_.top ()->to_str0 () + char_count_stack_.top ();
133 Includable_lexer::~Includable_lexer ()
135 while (!include_stack_.is_empty ())
141 Since we don't create the buffer state from the bytes directly, we
142 don't know about the location of the lexer. Add this as a
145 Includable_lexer::add_lexed_char (int count)
147 char_count_stack_.top () += count;
151 Includable_lexer::get_source_file () const
153 if (include_stack_.is_empty ())
156 return include_stack_.top ();