X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finput.cc;h=292e06a44950fc623eab74d985faacd6f9534a39;hb=86713eefa608f7dc738420ce0225c2a92c4539b2;hp=6cc8a182a540bdc29ecfe96d763af0dcf70f42b3;hpb=f8702402e51201a2078672532c02b18a31442818;p=lilypond.git

diff --git a/lily/input.cc b/lily/input.cc
index 6cc8a182a5..292e06a449 100644
--- a/lily/input.cc
+++ b/lily/input.cc
@@ -79,47 +79,61 @@ Input::set_location (Input const &i_start, Input const &i_end)
   [file:line:column:][warning:]message
 */
 void
-Input::message (string s) const
+Input::print_message (int level, string s) const
 {
+  string location;
   if (source_file_)
-    s = location_string () + ": " + s + "\n"
-        + source_file_->quote_input (start_) + "\n";
-  ::message (s);
+    ::print_message (level, location_string (),
+                     s + "\n" + source_file_->quote_input (start_) + "\n");
+  else
+    ::print_message (level, "", s);
+}
+
+void
+Input::error (string s) const
+{
+  print_message (LOG_ERROR, _f ("error: %s", s));
+  // UGH, fix naming or usage (use non_fatal_error in most places, instead)
+  // exit (1);
 }
 
 void
 Input::programming_error (string s) const
 {
   if (get_program_option ("warning-as-error"))
-    ::error (s);
+    error (s);
   else
     {
-      message (_f ("programming error: %s", s.c_str ()));
-      message (_ ("continuing, cross fingers") + "\n");
+      print_message (LOG_ERROR, _f ("programming error: %s", s));
+      print_message (LOG_ERROR, _ ("continuing, cross fingers") + "\n");
     }
 }
 
+void
+Input::non_fatal_error (string s) const
+{
+  print_message (LOG_ERROR, _f ("error: %s", s));
+}
+
 void
 Input::warning (string s) const
 {
   if (get_program_option ("warning-as-error"))
-    ::error (s);
+    error (s);
   else
-    message (_f ("warning: %s", s));
+    print_message (LOG_WARN, _f ("warning: %s", s));
 }
 
 void
-Input::error (string s) const
+Input::message (string s) const
 {
-  message (_f ("error: %s", s));
-  // UGH, fix naming or usage
-  // exit (1);
+  print_message (LOG_INFO, s);
 }
 
 void
-Input::non_fatal_error (string s) const
+Input::debug_output (string s) const
 {
-  message (_f ("error: %s", s));
+  print_message (LOG_DEBUG, s);
 }
 
 string