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/>.
25 #include "international.hh"
26 #include "lily-imports.hh"
27 #include "program-option.hh"
28 #include "source-file.hh"
32 Input::Input (Input const &i)
34 source_file_ = i.source_file_;
53 Input::set_spot (Input const &i)
59 Input::step_forward ()
67 Input::set_location (Input const &i_start, Input const &i_end)
69 source_file_ = i_start.source_file_;
70 start_ = i_start.start_;
75 Produce GNU-compliant error message. Correcting lilypond source is
76 such a breeze if you ('re edidor) know (s) the error column too
80 [file:line:column:][warning:]message
83 Input::message_string (const string &msg) const
86 return msg + "\n" + source_file_->quote_input (start_);
92 Input::message_location () const
94 return (source_file_) ? location_string () : "";
98 Input::error (const string &s) const
100 ::error (message_string (s), message_location ());
104 Input::programming_error (const string &s) const
106 ::programming_error (message_string (s), message_location ());
110 Input::non_fatal_error (const string &s) const
112 ::non_fatal_error (message_string (s), message_location ());
116 Input::warning (const string &s) const
118 ::warning (message_string (s), message_location ());
122 Input::message (const string &s) const
124 ::message (message_string (s), true, message_location ());
128 Input::debug_output (const string &s) const
130 ::debug_output (message_string (s), true, message_location ());
134 Input::location_string () const
137 return source_file_->file_line_column_string (start_);
138 return " (" + _ ("position unknown") + ")";
142 Input::line_number_string () const
145 return ::to_string (source_file_->get_line (start_));
150 Input::file_string () const
153 return source_file_->name_string ();
158 Input::line_number () const
161 return source_file_->get_line (start_);
166 Input::column_number () const
168 int line, chr, col, offset = 0;
169 source_file_->get_counts (start_, &line, &chr, &col, &offset);
175 Input::end_line_number () const
178 return source_file_->get_line (end_);
183 Input::end_column_number () const
185 int line, chr, col, offset = 0;
186 source_file_->get_counts (end_, &line, &chr, &col, &offset);
192 Input::get_counts (int *line, int *chr, int *col, int *offset) const
194 source_file_->get_counts (start_, line, chr, col, offset);
198 Input::set (Source_file *sf, char const *start, char const *end)
206 Input::get_source_file () const
212 Input::start () const
224 with_location_hook_0 (void *it)
226 SCM *args = static_cast <SCM *> (it);
227 return scm_call_0 (args[0]);
231 with_location (SCM loc, SCM proc)
233 return scm_c_with_fluid (Lily::f_location,
234 unsmob<Input> (loc) ? loc : SCM_BOOL_F,
235 with_location_hook_0,
236 static_cast <void *> (&proc));
240 with_location_hook_1 (void *it)
242 SCM *args = static_cast <SCM *> (it);
243 return scm_call_1 (args[0], args[1]);
247 with_location (SCM loc, SCM proc, SCM arg1)
249 SCM args[] = { proc, arg1 };
250 return scm_c_with_fluid (Lily::f_location,
251 unsmob<Input> (loc) ? loc : SCM_BOOL_F,
252 with_location_hook_1,
253 static_cast <void *> (&args));
257 with_location_hook_2 (void *it)
259 SCM *args = static_cast <SCM *> (it);
260 return scm_call_2 (args[0], args[1], args[2]);
264 with_location (SCM loc, SCM proc, SCM arg1, SCM arg2)
266 SCM args[] = { proc, arg1, arg2 };
267 return scm_c_with_fluid (Lily::f_location,
268 unsmob<Input> (loc) ? loc : SCM_BOOL_F,
269 with_location_hook_2,
270 static_cast <void *> (&args));
274 with_location_hook_3 (void *it)
276 SCM *args = static_cast <SCM *> (it);
277 return scm_call_3 (args[0], args[1], args[2], args[3]);
281 with_location (SCM loc, SCM proc, SCM arg1, SCM arg2, SCM arg3)
283 SCM args[] = { proc, arg1, arg2, arg3 };
284 return scm_c_with_fluid (Lily::f_location,
285 unsmob<Input> (loc) ? loc : SCM_BOOL_F,
286 with_location_hook_3,
287 static_cast <void *> (&args));
291 with_location_hook_4 (void *it)
293 SCM *args = static_cast <SCM *> (it);
294 return scm_call_4 (args[0], args[1], args[2], args[3], args[4]);
298 with_location (SCM loc, SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4)
300 SCM args[] = { proc, arg1, arg2, arg3, arg4 };
301 return scm_c_with_fluid (Lily::f_location,
302 unsmob<Input> (loc) ? loc : SCM_BOOL_F,
303 with_location_hook_4,
304 static_cast <void *> (&args));
308 with_location_hook_n (void *it)
310 SCM *args = static_cast <SCM *> (it);
311 return scm_apply_0 (args[0], args[1]);
315 with_location (SCM loc, SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4, SCM arg5)
317 SCM args[] = { proc, scm_list_5 (arg1, arg2, arg3, arg4, arg5) };
318 return scm_c_with_fluid (Lily::f_location,
319 unsmob<Input> (loc) ? loc : SCM_BOOL_F,
320 with_location_hook_n,
321 static_cast <void *> (&args));