source file of the GNU LilyPond music typesetter
- (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "config.h"
#include "ly-modules.hh"
-LY_DEFINE(ly_set_point_and_click_x, "set-point-and-click!", 1, 0, 0,
+/*
+ no ! suffix since it doesn't modify 1st argument.
+ */
+LY_DEFINE(ly_set_point_and_click, "ly:set-point-and-click", 1, 0, 0,
(SCM what),
- "Set the options for Point-and-click source specials output. The
-argument is a symbol. Possible options are @code{none} (no source specials),
-@code{line} and @code{line-column}")
+ "Set the options for Point-and-click source specials output. The\n"
+"argument is a symbol. Possible options are @code{none} (no source specials),\n"
+"@code{line} and @code{line-column}")
{
/*
UGH.
{
Path p = split_path (output_name_global);
p.ext = "dep";
- write_dependency_file (p.string (),
+ write_dependency_file (p.to_string (),
target_strings_,
inclusion_names_);
}
{
header_ = SCM_EOL;
global_input_file = this;
- ly_set_point_and_click_x (SCM_BOOL_F);
sources_.set_path (&global_path);
if (init_string.length () && global_path.find (init_string).empty_b ())
{
warning (_f ("can't find file: `%s'", init_string));
- warning (_f ("(search path: `%s')", global_path.string ().to_str0 ()));
+ warning (_f ("(search path: `%s')", global_path.to_string ().to_str0 ()));
return;
}
if ((file_string != "-") && global_path.find (file_string).empty_b ())