2 includable-lexer.cc -- implement Includable_lexer
4 source file of the LilyPond music typesetter
6 (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #include "includable-lexer.hh"
15 #include "file-path.hh"
16 #include "source-file.hh"
22 #define YY_BUF_SIZE 16384
28 #define YYSTATE YY_START
31 /* Flex >= 2.5.29 has include stack; but we don't use that yet. */
32 #if !HAVE_FLEXLEXER_YY_CURRENT_BUFFER
33 #define yy_current_buffer \
34 (yy_buffer_stack != 0 ? yy_buffer_stack[yy_buffer_stack_top] : 0)
37 Includable_lexer::Includable_lexer ()
39 #if HAVE_FLEXLEXER_YY_CURRENT_BUFFER
40 yy_current_buffer = 0;
42 allow_includes_b_ = true;
45 /** Set the new input file to NAME, remember old file. */
47 Includable_lexer::new_input (String name, Sources *sources)
49 if (!allow_includes_b_)
51 LexerError (_ ("include files are not allowed in safe mode").to_str0 ());
55 Source_file *file = sources->get_file (name);
58 String msg = _f ("can't find file: `%s'", name);
60 msg += _f ("(search path: `%s')",
61 sources->path_->to_string ().to_str0 ());
62 LexerError (msg.to_str0 ());
65 file_name_strings_.push (file->name_string ());
67 char_count_stack_.push (0);
68 if (yy_current_buffer)
69 state_stack_.push (yy_current_buffer);
71 if (be_verbose_global)
72 progress_indication (String ("[") + name);
74 include_stack_.push (file);
76 /* Ugh. We'd want to create a buffer from the bytes directly.
78 Whoops. The size argument to yy_create_buffer is not the
79 filelength but a BUFFERSIZE. Maybe this is why reading stdin fucks up. */
80 yy_switch_to_buffer (yy_create_buffer (file->get_istream (), YY_BUF_SIZE));
84 Includable_lexer::new_input (String name, String data, Sources *sources)
86 Source_file *file = new Source_file (name, data);
88 file_name_strings_.push (name);
90 char_count_stack_.push (0);
91 if (yy_current_buffer)
92 state_stack_.push (yy_current_buffer);
94 if (be_verbose_global)
95 progress_indication (String ("[") + name);
96 include_stack_.push (file);
98 yy_switch_to_buffer (yy_create_buffer (file->get_istream (), YY_BUF_SIZE));
101 /** pop the inputstack. conceptually this is a destructor, but it
102 does not destruct the Source_file that Includable_lexer::new_input
105 Includable_lexer::close_input ()
107 include_stack_.pop ();
108 char_count_stack_.pop ();
109 if (be_verbose_global)
110 progress_indication ("]");
111 yy_delete_buffer (yy_current_buffer);
112 #if HAVE_FLEXLEXER_YY_CURRENT_BUFFER
113 yy_current_buffer = 0;
115 if (state_stack_.is_empty ())
117 #if HAVE_FLEXLEXER_YY_CURRENT_BUFFER
118 yy_current_buffer = 0;
122 yy_switch_to_buffer (state_stack_.pop ());
127 Includable_lexer::here_str0 () const
129 if (include_stack_.is_empty ())
131 return include_stack_.top ()->to_str0 () + char_count_stack_.top ();
134 Includable_lexer::~Includable_lexer ()
136 while (!include_stack_.is_empty ())
141 Includable_lexer::get_source_file () const
143 if (include_stack_.is_empty ())
145 return include_stack_.top ();