Message-handling: Make the Input class use the functions in warn.cc

[lilypond.git] / lily / performance.cc

diff --git a/lily/performance.cc b/lily/performance.cc
index b07c8604cfde4c445f1fc1259d64e3c181cab29f..017b75619cb4b5424b040101e6fab6acc054f0d0 100644 (file)
--- a/lily/performance.cc
+++ b/lily/performance.cc
@@ -34,9 +34,10 @@ using namespace std;
 #include "string-convert.hh"
 #include "warn.hh"
 
-Performance::Performance ()
+Performance::Performance (bool ports)
+  : midi_ (0),
+    ports_ (ports)
 {
-  midi_ = 0;
 }
 
 Performance::~Performance ()
@@ -50,17 +51,14 @@ Performance::output (Midi_stream &midi_stream) const
   int tracks_ = audio_staffs_.size ();
 
   midi_stream.write (Midi_header (1, tracks_, 384));
-  if (be_verbose_global)
-    progress_indication (_ ("Track...") + " ");
-  
+  debug_output (_ ("Track...") + " ", false);
+
   for (vsize i = 0; i < audio_staffs_.size (); i++)
     {
       Audio_staff *s = audio_staffs_[i];
-      if (be_verbose_global)
-       progress_indication ("[" + to_string (i));
-      s->output (midi_stream, i);
-      if (be_verbose_global)
-       progress_indication ("]");
+      debug_output ("[" + to_string (i), true);
+      s->output (midi_stream, i, ports_);
+      debug_output ("]", false);
     }
 }
 
@@ -87,7 +85,6 @@ Performance::write_output (string out) const
   progress_indication ("\n");
 }
 
-
 void
 Performance::process ()
 {
@@ -96,5 +93,5 @@ Performance::process ()
 Performance *
 unsmob_performance (SCM x)
 {
-  return dynamic_cast<Performance*> (unsmob_music_output (x));
+  return dynamic_cast<Performance *> (unsmob_music_output (x));
 }