Those are provided by the Smob_base class anyway.
return header_;
}
-int
-Book::print_smob (SCM, SCM p, scm_print_state *)
-{
- scm_puts ("#<Book>", p);
- return 1;
-}
-
void
Book::add_score (SCM s)
{
class Grob_properties : public Simple_smob<Grob_properties>
{
public:
- static int print_smob (SCM, SCM, scm_print_state *);
SCM mark_smob ();
static const char type_p_name_[];
private:
return cooked_from_;
}
-int
-Grob_properties::print_smob (SCM /*smob*/, SCM port, scm_print_state *)
-{
- scm_puts ("#<Grob_properties>", port);
-
- return 1;
-}
-
LY_DEFINE (ly_make_grob_properties, "ly:make-grob-properties",
1, 0, 0, (SCM alist),
"This packages the given property list @var{alist} in"
class Book : public Smob<Book>
{
public:
- static int print_smob (SCM, SCM, scm_print_state *);
SCM mark_smob ();
static const char type_p_name_[];
virtual ~Book ();
{
public:
static SCM equal_p (SCM, SCM);
- static int print_smob (SCM, SCM, scm_print_state *);
SCM mark_smob ();
static const char type_p_name_[];
private:
class Page_marker : public Smob<Page_marker>
{
public:
- static int print_smob (SCM, SCM, scm_print_state *);
SCM mark_smob ();
static const char type_p_name_[];
virtual ~Page_marker ();
class Paper_book : public Smob<Paper_book>
{
public:
- static int print_smob (SCM, SCM, scm_print_state *);
SCM mark_smob ();
static const char type_p_name_[];
virtual ~Paper_book ();
class Paper_outputter : public Smob<Paper_outputter>
{
public:
- static int print_smob (SCM, SCM, scm_print_state *);
SCM mark_smob ();
virtual ~Paper_outputter ();
private:
class Score : public Smob<Score>
{
public:
- static int print_smob (SCM, SCM, scm_print_state *);
SCM mark_smob ();
static const char type_p_name_[];
virtual ~Score ();
class Skyline : public Simple_smob<Skyline>
{
public:
- static int print_smob (SCM, SCM, scm_print_state *);
static const char type_p_name_[];
private:
list<Building> buildings_;
return SCM_EOL;
}
-int
-Listener::print_smob (SCM, SCM p, scm_print_state *)
-{
- scm_puts ("#<Listener>", p);
- return 1;
-}
-
SCM
Listener::equal_p (SCM a, SCM b)
{
return SCM_EOL;
}
-int
-Page_marker::print_smob (SCM smob, SCM port, scm_print_state *)
-{
- Page_marker *pm = (Page_marker *) SCM_CELL_WORD_1 (smob);
- (void) pm;
- scm_puts ("#<Page_marker>", port);
- return 1;
-}
-
SCM
Page_marker::permission_symbol ()
{
return systems_;
}
-int
-Paper_book::print_smob (SCM smob, SCM port, scm_print_state *)
-{
- Paper_book *b = (Paper_book *) SCM_CELL_WORD_1 (smob);
- (void)b;
- scm_puts ("#<Paper_book>", port);
- return 1;
-}
-
Output_def *
Paper_book::top_paper ()
{
return file_;
}
-int
-Paper_outputter::print_smob (SCM /* x */,
- SCM p,
- scm_print_state *)
-{
- scm_puts ("#<Paper_outputter>", p);
- return 1;
-}
-
SCM
Paper_outputter::file () const
{
return music_;
}
-int
-Score::print_smob (SCM, SCM p, scm_print_state *)
-{
- scm_puts ("#<Score>", p);
-
- return 1;
-}
-
Score::Score (Score const &s)
{
header_ = SCM_EOL;
const char Skyline::type_p_name_[] = "ly:skyline?";
-int
-Skyline::print_smob (SCM s, SCM port, scm_print_state *)
-{
- Skyline *r = (Skyline *) SCM_CELL_WORD_1 (s);
- (void) r;
-
- scm_puts ("#<Skyline>", port);
-
- return 1;
-}
-
MAKE_SCHEME_CALLBACK_WITH_OPTARGS (Skyline, get_touching_point, 3, 1, "")
SCM
Skyline::get_touching_point (SCM skyline_scm, SCM other_skyline_scm, SCM horizon_padding_scm)