source file of the GNU LilyPond music typesetter
- (c) 1998--2002 Jan Nieuwenhuizen <janneke@gnu.org>
+ (c) 1998--2003 Jan Nieuwenhuizen <janneke@gnu.org>
Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
{
String e = _f ("can't find file: `%s'", fn);
e += " ";
- e += _f ("(load path: `%s')", global_path.string ());
+ e += _f ("(load path: `%s')", global_path.to_string ());
error (e);
}
else if (verbose_global_b)
return SCM_BOOL_T;
}
-LY_DEFINE(ly_isdir, "ly:dir?", 1,0, 0, (SCM s),
- "type predicate. A direction is a -1, 0 or 1, where -1 represents left or "
-"down and 1 represents right or up. ")
+LY_DEFINE(ly_dir_p, "ly:dir?", 1,0, 0, (SCM s),
+ "type predicate. A direction is a -1, 0 or 1, where -1 represents "
+ "left or down and 1 represents right or up. ")
{
if (gh_number_p (s))
{
}
bool
-ly_number_pair_p (SCM p)
+is_number_pair (SCM p)
{
return gh_pair_p (p) && gh_number_p (ly_car (p)) && gh_number_p (ly_cdr (p));
}
bool
-ly_dir_p (SCM s)
+is_direction (SCM s)
{
if (gh_number_p (s))
{
bool
-ly_axis_p (SCM s)
+is_axis (SCM s)
{
if (gh_number_p (s))
{
LY_DEFINE(ly_version, "ly:version", 0, 0, 0, (),
"Return the current lilypond version as a list, e.g. @code{(1 3 127 uu1)}. ")
{
- char const* vs = "\' (" MAJOR_VERSION " " MINOR_VERSION " " PATCH_LEVEL " " MY_PATCH_LEVEL ")" ;
+ char const* vs = "\'(" MAJOR_VERSION " " MINOR_VERSION " " PATCH_LEVEL " " MY_PATCH_LEVEL ")" ;
return gh_eval_str ((char*)vs);
}
return scm_makfrom0str (INTERNAL_UNIT);
}
-LY_DEFINE(ly_verbose, "ly:verbose", 0, 0, 0, (),
- "Return whether lilypond is being run in verbose mode.")
+
+
+LY_DEFINE(ly_dimension_p, "ly:dimension?", 1, 0, 0, (SCM d),
+ "Return @var{d} is a number. Used to distinguish length "
+ "variables from normal numbers.")
{
- return gh_bool2scm (verbose_global_b);
+ return scm_number_p (d);
}
static void
if (val == SCM_EOL || val == SCM_BOOL_F)
return ok;
-
- SCM type = SCM_EOL;
+ if (!gh_symbol_p (sym))
+#if 0
+ return false;
+#else
+ /*
+ This is used for autoBeamSettings.
- if (gh_symbol_p (sym))
- type = scm_object_property (sym, type_symbol);
+ TODO: deprecate the use of \override and \revert for
+ autoBeamSettings?
+ */
+ return true;
+#endif
+
+ SCM type = scm_object_property (sym, type_symbol);
if (type != SCM_EOL && !gh_procedure_p (type))
{