File indexing completed on 2024-07-21 04:36:17

0001 #!/usr/bin/perl
0002 
0003 # tbraun 23.2.2006
0004 # change names of cwl files
0005 
0006 foreach (<>)
0007 {
0008 $content=$_;
0009 $content=~ s/(0|1)-Common//g; # is now in latex-document
0010 $content=~ s/(0|1)-Latex/\1-latex-document/g;
0011 $content=~ s/(0|1)-Tex/\1-tex/g;
0012 $content=~ s/(0|1)-MathSymbols/\1-latex-mathsymbols/g;
0013 
0014 #clean up
0015 $content=~ s/,,/,/g;
0016 $content=~ s/(CompleteTex=),/\1/g;
0017 $content=~ s/,$//g;
0018 
0019 print $content;
0020 }