/*
- paper-system.cc -- implement Paper_system
+ prob.cc -- implement Prob
source file of the GNU LilyPond music typesetter
IMPLEMENT_TYPE_P (Prob, "ly:prob?");
IMPLEMENT_DEFAULT_EQUAL_P (Prob);
-Prob::Prob (SCM immutable_init)
+Prob::Prob (SCM type, SCM immutable_init)
{
self_scm_ = SCM_EOL;
mutable_property_alist_ = SCM_EOL;
immutable_property_alist_ = immutable_init;
+ type_ = type;
smobify_self ();
}
immutable_property_alist_ = src.immutable_property_alist_;
mutable_property_alist_ = SCM_EOL;
self_scm_ = SCM_EOL;
+ type_ = src.type_;
/* First we smobify_self, then we copy over the stuff. If we don't,
stack vars that hold the copy might be optimized away, meaning
Prob *p = (Prob *) SCM_CELL_WORD_1 (smob);
scm_puts ("#<", port);
scm_puts ("Prob: ", port);
-
-
+ scm_display (p->type_, port);
+ scm_puts (" C++: ", port);
scm_puts (p->class_name (), port);
scm_display (p->mutable_property_alist_, port);
scm_display (p->immutable_property_alist_, port);
return (m) ? mutable_property_alist_ : immutable_property_alist_;
}
-String
+string
Prob::name () const
{
SCM nm = get_property ("name");