2 includable-lexer.cc -- implement Includable_lexer
4 source file of the LilyPond music typesetter
6 (c) 1997--2000 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
24 #define YY_START ((yy_start - 1) / 2)
25 #define YYSTATE YY_START
28 Includable_lexer::Includable_lexer ()
30 yy_current_buffer
= 0;
31 allow_includes_b_
= true;
34 /** set the new input to s, remember old file.
37 Includable_lexer::new_input (String s
, Sources
* global_sources
)
39 if (!allow_includes_b_
)
41 LexerError ("include files are disallowed.");
45 Source_file
* sl
= global_sources
->get_file_l (s
);
48 String msg
= _f ("can't find file: `%s'", s
);
50 msg
+= _f ("(search path: `%s')", global_sources
->path_C_
->str ().ch_C());
52 LexerError (msg
.ch_C ());
56 filename_str_arr_
.push (sl
->name_str ());
58 char_count_stack_
.push (0);
59 if (yy_current_buffer
)
60 state_stack_
.push (yy_current_buffer
);
63 progress_indication (String ("[") + s
);
65 include_stack_
.push (sl
);
68 ugh. We'd want to create a buffer from the bytes directly.
70 Whoops. The size argument to yy_create_buffer is not the
71 filelength but a BUFFERSIZE. Maybe this is why reading stdin fucks up.
74 yy_switch_to_buffer (yy_create_buffer (sl
->istream_l (), YY_BUF_SIZE
));
78 Includable_lexer::new_input (String name
, String data
, Sources
* sources
)
80 Source_file
* file
= new Source_file (name
, data
);
82 filename_str_arr_
.push (name
);
84 char_count_stack_
.push (0);
85 if (yy_current_buffer
)
86 state_stack_
.push (yy_current_buffer
);
89 progress_indication (String ("[") + name
);
90 include_stack_
.push (file
);
92 yy_switch_to_buffer (yy_create_buffer (file
->istream_l (), YY_BUF_SIZE
));
95 /** pop the inputstack. conceptually this is a destructor, but it
96 does not destruct the Source_file that Includable_lexer::new_input creates. */
98 Includable_lexer::close_input ()
100 include_stack_
.pop ();
101 char_count_stack_
.pop ();
102 if (verbose_global_b
)
103 progress_indication ("]");
104 yy_delete_buffer (yy_current_buffer
);
105 yy_current_buffer
= 0;
106 if (state_stack_
.empty ())
108 yy_current_buffer
= 0;
113 yy_switch_to_buffer (state_stack_
.pop ());
119 Includable_lexer::here_ch_C () const
121 if (include_stack_
.empty ())
123 return include_stack_
.top ()->ch_C () + char_count_stack_
.top ();
126 Includable_lexer::~Includable_lexer ()
128 while (!include_stack_
.empty ())
134 Since we don't create the buffer state from the bytes directly, we
135 don't know about the location of the lexer. Add this as a
138 Includable_lexer::add_lexed_char (int count
)
140 char_count_stack_
.top () += count
;
144 Includable_lexer::source_file_l () const
146 if (include_stack_
.empty ())
149 return include_stack_
.top ();