/*
- text-item.cc -- implement Text_interface
+ text-interface.cc -- implement Text_interface
source file of the GNU LilyPond music typesetter
Jan Nieuwenhuizen <janneke@gnu.org>
*/
-#include "text-item.hh"
+#include "text-interface.hh"
#include <math.h>
{
SCM func = scm_car (markup);
SCM args = scm_cdr (markup);
- if (!markup_p (markup))
+ if (!is_markup (markup))
programming_error ("markup head has no markup signature");
return scm_apply_2 (func, layout_smob, props, args);
{
programming_error ("not a markup: ");
scm_display (markup, scm_current_error_port ());
- assert (false);
+ abort();
Box b;
b[X_AXIS].set_empty ();
b[Y_AXIS].set_empty ();
/* Ugh. Duplicated from Scheme. */
bool
-Text_interface::markup_p (SCM x)
+Text_interface::is_markup (SCM x)
{
return (scm_is_string (x)
|| (scm_is_pair (x)
ADD_INTERFACE (Text_interface, "text-interface",
"A scheme markup text, see @usermanref{Text markup}.",
- "text baseline-skip word-space");
+ "baseline-skip "
+ "text "
+ "word-space "
+ "text-direction "
+ );