utils/install4j/auto_file_associations.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4
   5 my $fileformats = $ARGV[0];
   6 $fileformats = "./src/jalview/io/FileFormats.java" unless $fileformats;
   7
   8 my $mactemplatefile = "file_associations_template-Info_plist.xml";
   9 my $i4jtemplatefile = "file_associations_template-install4j.xml";
  10 my $mactemplate;
  11 my $i4jtemplate;
  12 open(MT,"<$mactemplatefile") or dir("Could not open '$mactemplatefile' for reading");
  13 while(<MT>){
  14   $mactemplate .= $_;
  15 }
  16 close(MT);
  17 open(IT,"<$i4jtemplatefile") or dir("Could not open '$i4jtemplatefile' for reading");
  18 while(<IT>){
  19   $i4jtemplate .= $_;
  20 }
  21 close(IT);
  22 my $macauto;
  23 my $i4jauto;
  24
  25 my $macautofile = $mactemplatefile;
  26 $macautofile =~ s/template/auto$1/;
  27 my $i4jautofile = $i4jtemplatefile;
  28 $i4jautofile =~ s/template/auto$1/;
  29
  30 open(MA,">$macautofile") or die ("Could not open '$macautofile' for writing");
  31 print MA "<key>CFBundleDocumentTypes</key>\n<array>\n\n";
  32 open(IA,">$i4jautofile") or die ("Could not open '$i4jautofile' for writing");
  33
  34 open(IN, "<$fileformats") or die ("Could not open '$fileformats' for reading");
  35 my $id = 10000;
  36 while(my $line = <IN>) {
  37   $line =~ s/\s+/ /g;
  38   $line =~ s/(^ | $)//g;
  39   if ($line =~ m/^(\w+) ?\( ?"([^"]*)" ?, ?"([^"]*)" ?, ?(true|false) ?, ?(true|false) ?\)$/i) {
  40     my $shortname = lc($1);
  41     my $name = $2;
  42     my $extensions = $3;
  43     $extensions =~ s/\s+//g;
  44     my @extensions = split(m/,/,$extensions);
  45     #warn("LINE: $line\nFound extensions '".join("', '", @extensions)."' for $name Files ($shortname)'n");
  46
  47     my $macentry = $mactemplate;
  48     my $i4jentry = $i4jtemplate;
  49
  50     $macentry =~ s/\$\$NAME\$\$/$name/g;
  51     $macentry =~ s/\$\$SHORTNAME\$\$/$shortname/g;
  52
  53     $i4jentry =~ s/\$\$NAME\$\$/$name/g;
  54     $i4jentry =~ s/\$\$SHORTNAME\$\$/$shortname/g;
  55
  56     while ($macentry =~ m/\$\$([^\$]*)EXTENSIONS([^\$]*)\$\$/) {
  57       my $pre = $1;
  58       my $post = $2;
  59       my $macextensions;
  60       for my $ext (@extensions) {
  61         $macextensions .= $pre.$ext.$post;
  62       }
  63       $macentry =~ s/\$\$${pre}EXTENSIONS${post}\$\$/$macextensions/g;
  64     }
  65     print MA $macentry;
  66
  67     for my $ext (@extensions) {
  68       my $i4jextentry = $i4jentry;
  69       $i4jextentry =~ s/\$\$EXTENSION\$\$/$ext/g;
  70       $i4jextentry =~ s/\$\$ID\$\$/$id/g;
  71       $id++;
  72
  73       print IA $i4jextentry;
  74     }
  75
  76   }
  77 }
  78 close(IN);
  79 close(IA);
  80 print MA "</array>\n";
  81 close(MA);