* lily/include/global-context.hh (Context): take \score key upon init.
* lily/context.cc (Context): take key argument in ctor.
(create_context): new function
2004-11-14 Han-Wen Nienhuys <hanwen@xs4all.nl>
2004-11-14 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * lily/grob-scheme.cc (LY_DEFINE): add new function ly:grob-key.
+
* lily/include/object-key-undumper.hh (Module): new file.
* lily/object-key-undumper.cc (Module): New file. Deserialize
* lily/include/object-key-undumper.hh (Module): new file.
* lily/object-key-undumper.cc (Module): New file. Deserialize
* lily/include/object-key-dumper.hh (class Object_key_dumper):
new file. Serialize object keys.
* lily/include/object-key-dumper.hh (class Object_key_dumper):
new file. Serialize object keys.
* lily/object-key.cc (dump): new function.
(as_scheme): new virtual function
* lily/object-key.cc (dump): new function.
(as_scheme): new virtual function
return scm_int2num (me->break_status_dir ());
}
return scm_int2num (me->break_status_dir ());
}
+
+LY_DEFINE(ly_grob_key, "ly:grob-key",
+ 1,0,0,
+ (SCM grob),
+ "Return the object-key for @var{grob}."
+ )
+{
+ Grob *me = unsmob_grob (grob);
+ SCM_ASSERT_TYPE (me, grob, SCM_ARG1, __FUNCTION__, "Grob");
+ return me->get_key ()->self_scm ();
+}