Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / lily / stream-event.cc

diff --git a/lily/stream-event.cc b/lily/stream-event.cc
index eb530046a0fa5fd8548484be070861f486ca9c6c..f8c868c34ae9cc0f162df809c0da5b74638052a5 100644 (file)
--- a/lily/stream-event.cc
+++ b/lily/stream-event.cc
@@ -13,6 +13,8 @@
 #include "input.hh"
 #include "input-smob.hh"
 
+// ES todo: Add stuff to lily-proto.hh: Stream_event and its subclasses, Stream_creator, etc.
+
 Stream_event::~Stream_event ()
 {
 }
@@ -22,6 +24,7 @@ Stream_event::init ()
 {
   self_scm_ = SCM_EOL;
   property_alist_ = SCM_EOL;
+  origin_ = 0;
 
   smobify_self ();
 }
@@ -31,40 +34,39 @@ Stream_event::Stream_event ()
   init ();
 }
 
+Stream_event::Stream_event (Context *c, Input *origin)
+{
+  init ();
+  set_property ("context", scm_int2num (c->get_unique()));
+  origin_ = origin;
+}
+
 Stream_event::Stream_event (SCM property_alist)
 {
   init ();
   property_alist_ = property_alist;
+  origin_ = &dummy_input_global;
 }
 
-/*
-   Hm. Perhaps Stream_event should be a prob, with class_name as an
-   immutable property?
- */
-Stream_event::Stream_event (SCM class_name, Input *origin)
+Stream_event::Stream_event (Context *c, SCM class_name)
 {
   init ();
+  set_property ("context", scm_int2num (c->get_unique()));
   set_property ("class", class_name);
-  if (origin)
-    set_spot (origin);
+  origin_ = &dummy_input_global;
 }
 
 Stream_event::Stream_event (Stream_event *ev)
 {
   init ();
   property_alist_ = scm_copy_tree (ev->property_alist_);
+  origin_ = ev->origin_;
 }
 
 Input *
 Stream_event::origin () const
 {
-  Input *i = unsmob_input (get_property ("origin"));
-  return i ? i : &dummy_input_global;
-}
-
-void Stream_event::set_spot (Input *i)
-{
-  set_property ("origin", make_input (*i));
+  return origin_;
 }
 
 SCM