X-Git-Url: http://source.jalview.org/gitweb/?a=blobdiff_plain;f=utils%2Finstall4j%2Fauto_file_associations-i4j8.pl;h=e0916818de6e1f77bb9ba3fb71720bc388d68f61;hb=647ab2685d475e3f0c89d0a8f06f80358d7d4ea6;hp=9a607c6050c1ef13b617d6d483d6d6d5b880cba5;hpb=8ee4a20c367cb4fcda616611646710593dc98b60;p=jalview.git
diff --git a/utils/install4j/auto_file_associations-i4j8.pl b/utils/install4j/auto_file_associations-i4j8.pl
index 9a607c6..e091681 100755
--- a/utils/install4j/auto_file_associations-i4j8.pl
+++ b/utils/install4j/auto_file_associations-i4j8.pl
@@ -47,6 +47,8 @@ my $add_extensions = {
};
my @put_first = qw(jalview jvl);
+my @non_primary = qw(mmcif mmcif2 pdb);
+
my $v = ($i4jversion >= 8)?$i4jversion:"";
my $i4jtemplatefile = "file_associations_template-install4j${v}.xml";
my $i4jtemplate;
@@ -72,6 +74,11 @@ $macautofile =~ s/template/auto$1/;
my $i4jautofile = $i4jtemplatefile;
$i4jautofile =~ s/template/auto$1/;
+for my $key (sort keys %$add_associations) {
+ my $a = $add_associations->{$key};
+ warn("Known file association for $a->{shortname} (".join(",",@{$a->{extensions}}).")\n");
+}
+
open(MA,">$macautofile") or die ("Could not open '$macautofile' for writing");
print MA "CFBundleDocumentTypes\n\n\n";
@@ -106,7 +113,7 @@ while(my $line = ) {
name => $name,
extensions => \@extensions
};
- warn("Adding file association for $shortname\n");
+ warn("Reading file association for $shortname (".join(",",@extensions).")\n");
}
}
close(IN);
@@ -115,7 +122,7 @@ my %all_associations = (%$file_associations, %$add_associations);
my $num = 0;
my $i4jcount = 0;
-my @ordered = @put_first;
+my @ordered = (@put_first, @non_primary);
for my $key (sort keys %all_associations) {
next if grep($_ eq $key, @ordered);
push(@ordered, $key);
@@ -126,13 +133,11 @@ for my $key (@ordered) {
my $extensions = $a->{extensions};
my @extensions = @$extensions;
- for my $ext (@extensions) {
- $num++;
- }
- #delete $all_associations{$shortname};
- #print "NUM: $num\n";
+
+ $num++
}
+warn("--\n");
for my $shortname (@ordered) {
my $a = $all_associations{$shortname};
@@ -142,24 +147,30 @@ for my $shortname (@ordered) {
my $extensions = $a->{extensions};
my $mimetype = $mimetypes->{$shortname};
$mimetype = "application/x-$shortname+txt" unless $mimetype;
- #$mimetype = "application/x-$shortname" unless $mimetype;
my $iconfile = $a->{iconfile};
$iconfile = "Jalview-File" unless $iconfile;
+ my $primary = (! grep($_ eq $shortname, @non_primary));
+ my $primarystring = $primary?"true":"false";
+ my $role = $primary?"Editor":"Viewer";
+
my @extensions = @$extensions;
- #warn("LINE: $line\nFound extensions '".join("', '", @extensions)."' for $name Files ($shortname)'n");
my $xname = xml_escape($name);
my $xmimetype = xml_escape($mimetype);
my $xshortname = xml_escape($shortname);
my $xiconfile = xml_escape($iconfile);
+ my $xrole = xml_escape($role);
+ my $xprimarystring = xml_escape($primarystring);
my $macentry = $mactemplate;
$macentry =~ s/\$\$NAME\$\$/$xname/g;
$macentry =~ s/\$\$SHORTNAME\$\$/$xshortname/g;
$macentry =~ s/\$\$MIMETYPE\$\$/$xmimetype/g;
$macentry =~ s/\$\$ICONFILE\$\$/$xiconfile/g;
+ $macentry =~ s/\$\$ROLE\$\$/$xrole/g;
+ $macentry =~ s/\$\$PRIMARY\$\$/$xprimarystring/g;
while ($macentry =~ m/\$\$([^\$]*)EXTENSIONS([^\$]*)\$\$/) {
my $pre = $1;
my $post = $2;
@@ -177,28 +188,31 @@ for my $shortname (@ordered) {
$i4jentry =~ s/\$\$SHORTNAME\$\$/$xshortname/g;
$i4jentry =~ s/\$\$MIMETYPE\$\$/$xmimetype/g;
$i4jentry =~ s/\$\$ICONFILE\$\$/$xiconfile/g;
-
- for my $ext (@extensions) {
- $i4jcount++;
- #print "COUNT: $i4jcount\n";
- my $progresspercent = int(($i4jcount/$num)*100);
- #print "PC: $progresspercent\n";
- $progresspercent = 100 if $progresspercent > 100;
- my $xext = xml_escape($ext);
- my $i4jextentry = $i4jentry;
- $i4jextentry =~ s/\$\$EXTENSION\$\$/$xext/g;
- $i4jextentry =~ s/\$\$PROGRESSPERCENT\$\$/$progresspercent/g;
- $i4jextentry =~ s/\$\$ID\$\$/$id/g;
- $id++;
- $i4jextentry =~ s/\$\$ID1\$\$/$id/g;
- $id++;
- $i4jextentry =~ s/\$\$ID2\$\$/$id/g;
- $id++;
-
- print IA $i4jextentry;
- }
+ $i4jentry =~ s/\$\$PRIMARY\$\$/$xprimarystring/g;
+
+ my $ext = join(",",sort(@extensions));
+ my $xdisplayext = xml_escape(join(", ", map(".$_",sort(@extensions))));
+ $i4jcount++;
+ my $progresspercent = int(($i4jcount/$num)*100);
+ $progresspercent = 100 if $progresspercent > 100;
+ my $xext = xml_escape($ext);
+ my $addunixextension = "true";
+
+ $i4jentry =~ s/\$\$ADDUNIXEXTENSION\$\$/$addunixextension/g;
+ $i4jentry =~ s/\$\$EXTENSION\$\$/$xext/g;
+ $i4jentry =~ s/\$\$DISPLAYEXTENSION\$\$/$xdisplayext/g;
+ $i4jentry =~ s/\$\$PROGRESSPERCENT\$\$/$progresspercent/g;
+ $i4jentry =~ s/\$\$ID\$\$/$id/g;
+ $id++;
+ $i4jentry =~ s/\$\$ID1\$\$/$id/g;
+ $id++;
+ $i4jentry =~ s/\$\$ID2\$\$/$id/g;
+ $id++;
+
+ print IA $i4jentry;
delete $all_associations{$shortname};
+ warn("Writing entry for $name (".join(",",@$extensions).": $mimetype)\n");
}
close(IA);