* input/test/ambitus-mixed.ly (texidoc): new file.

[lilypond.git] / scripts / convert-ly.py

diff --git a/scripts/convert-ly.py b/scripts/convert-ly.py
index db608b90f4825efc992e8b5b01dbdc0ce36bb77a..d33e935d2b528083a13ec1c7236bd42c7cca1ade 100644 (file)
--- a/scripts/convert-ly.py
+++ b/scripts/convert-ly.py
@@ -1511,17 +1511,43 @@ def conv (str):
 conversions.append (((1,9,5), conv, 'HaraKiriVerticalGroup -> RemoveEmptyVerticalGroup'))
 
 def conv (str):
-       if re.search ("ly:get-font", str):
+       if re.search ("ly:get-font", str) :
                sys.stderr.write (r"(ly:get-font foo ..)  has been replaced by" + \
                                  " (ly:paper-get-font (ly:grob-get-paper foo) .. ).\n" +\
                                  "please update manually.")
                
                raise FatalConversionError()
+       
+       if re.search ("\\pitch *#", str) :
+               sys.stderr.write (r"\\pitch has been deprecated. " +\
+                                 " Use Scheme code to construct arbitrary note events.")
+               
+               raise FatalConversionError()
+       
        return str
                
 
 conversions.append (((1,9,6), conv, 'ly:get-font deprecated.'))
 
+def conv (str):
+       def sub_alteration (m):
+               alt = m.group (3)
+               alt = {
+                       '-1': 'FLAT',
+                       '-2': 'DOUBLE-FLAT',
+                       '0': 'NATURAL',
+                       '1': 'SHARP',
+                       '2': 'DOUBLE-SHARP',
+                       }[alt]
+               
+               return '(ly:make-pitch %s %s %s)' % (m.group(1), m.group (2), alt)
+       
+       str =re.sub ("\\(ly:make-pitch *([0-9-]+) *([0-9-]+) *([0-9-]+) *\\)", sub_alteration, str) 
+       return str
+conversions.append (((1,9,7), conv, 'use symbolic constants for alterations.'))
+
+
+
 ################################
 #      END OF CONVERSIONS      
 ################################