]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/parenthesis-engraver.cc
Run grand replace for 2015.
[lilypond.git] / lily / parenthesis-engraver.cc
index 7d2a8df8997f52662ba423992403f51885700a96..160a3935872cc32a0d0c3a3d2d4b1ea035445183 100644 (file)
@@ -1,7 +1,7 @@
 /*
   This file is part of LilyPond, the GNU music typesetter.
 
-  Copyright (C) 2005--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  Copyright (C) 2005--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 
   LilyPond is free software: you can redistribute it and/or modify
@@ -46,45 +46,45 @@ Parenthesis_engraver::acknowledge_grob (Grob_info info)
   if (Stream_event *ev = info.event_cause ())
     {
       if (to_boolean (ev->get_property ("parenthesize")))
-       {
-         if (Item *victim = dynamic_cast<Item*> (info.grob ()))
-           {
-             Engraver *eng = dynamic_cast<Engraver*> (info.origin_translator ());
-             Item *paren = eng->make_item ("ParenthesesItem", victim->self_scm ());
-             Pointer_group_interface::add_grob (paren, ly_symbol2scm ("elements"), victim);
-
-             paren->set_parent (victim, Y_AXIS);
-             
-             Real size = robust_scm2double (paren->get_property ("font-size"), 0.0)
-               + robust_scm2double (victim->get_property ("font-size"), 0.0);
-             paren->set_property ("font-size", scm_from_double (size));
-             
-             /*
-               TODO?
-
-               enlarge victim to allow for parentheses space? 
-             */
-           }
-         else
-           {
-             programming_error ("Don't know how to parenthesize spanners.");
-           }
-       }
+        {
+          if (Item *victim = dynamic_cast<Item *> (info.grob ()))
+            {
+              Engraver *eng = dynamic_cast<Engraver *> (info.origin_translator ());
+              Item *paren = eng->make_item ("ParenthesesItem", victim->self_scm ());
+              Pointer_group_interface::add_grob (paren, ly_symbol2scm ("elements"), victim);
+
+              paren->set_parent (victim, Y_AXIS);
+
+              Real size = robust_scm2double (paren->get_property ("font-size"), 0.0)
+                          + robust_scm2double (victim->get_property ("font-size"), 0.0);
+              paren->set_property ("font-size", scm_from_double (size));
+
+              /*
+                TODO?
+
+                enlarge victim to allow for parentheses space?
+              */
+            }
+          else
+            {
+              info.grob ()->warning ("Don't know how to parenthesize spanners.");
+            }
+        }
     }
 }
 
 ADD_ACKNOWLEDGER (Parenthesis_engraver, grob);
 ADD_TRANSLATOR (Parenthesis_engraver,
-               /* doc */
-               "Parenthesize objects whose music cause has the"
-               " @code{parenthesize} property.",
-               
-               /* create */
-               "ParenthesesItem ",
-
-               /* read */
-               "",
-
-               /* write */
-               ""
-               );
+                /* doc */
+                "Parenthesize objects whose music cause has the"
+                " @code{parenthesize} property.",
+
+                /* create */
+                "ParenthesesItem ",
+
+                /* read */
+                "",
+
+                /* write */
+                ""
+               );