X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=bin%2Fconvert-mudela;h=d728b1fed361997a9342186db720b18ded52536a;hb=56126108b2610f82bc7cafaac8741d1aeba1d34f;hp=dbb0f729a46716641e3406169471bd6ecc084358;hpb=3132736f1b95477ac562eb94f3a8536423e55e1c;p=lilypond.git

diff --git a/bin/convert-mudela b/bin/convert-mudela
index dbb0f729a4..d728b1fed3 100755
--- a/bin/convert-mudela
+++ b/bin/convert-mudela
@@ -1,9 +1,20 @@
 #!/usr/bin/perl -w
 
+=head1 TODO
+
+    detect \lyrics and \melodic, and do substitution accordingly.
+    
+=cut    
+
+
+
 #
 # version of "supporting" engine, not mudela conversions.
 # 
 
+
+
+
 $convert_mudela_version = "0.1";
 
 use Getopt::Long;
@@ -46,6 +57,11 @@ sub convert_0_0_55_to_0_0_56
     s/\"\|\|\"/\"|.\"/g;
 }
 
+sub convert_0_0_56_to_0_0_57
+{
+    s/\(([ \]\[|\t-\.>]|\\[<!>a-z]+)*\)/\~ $1/g;
+}
+
 ###############################################################
 
 sub    last_conversion
@@ -80,8 +96,9 @@ my %minor_conversions = (50 => \&no_conv,
   			 53 => \&convert_0_0_52_to_0_0_53,
   			 54 => \&convert_0_0_53_to_0_0_54,
 			 55 => \&convert_0_0_54_to_0_0_55,
-			 56 => \&convert_0_0_55_to_0_0_56
-  			 );
+			 56 => \&convert_0_0_55_to_0_0_56,
+			 57 => \&convert_0_0_56_to_0_0_57
+			 );
  
 
 sub versions