use strict;
my $fileformats = $ARGV[0];
-$fileformats = "../../src/jalview/io/FileFormats.java" unless $fileformats;
+$fileformats = "../../src/jalview/io/FileFormat.java" unless $fileformats;
# default mimetype will be text/x-$shortname
# TODO: find an actual extension for mat, see JAL-Xxxxx for outstanding issues too
my $add_extensions = {
blc => ["blc"],
};
+my @put_first = qw(jalview jvl);
my $mactemplatefile = "file_associations_template-Info_plist.xml";
my $i4jtemplatefile = "file_associations_template-install4j.xml";
name => $name,
extensions => \@extensions
};
+ warn("Adding file association for $shortname\n");
}
}
close(IN);
my %all_associations = (%$file_associations, %$add_associations);
-for my $fa (sort keys %all_associations) {
- my $shortname = $fa;
- my $a = $all_associations{$fa};
+for my $shortname (@put_first, sort keys %all_associations) {
+ my $a = $all_associations{$shortname};
+ if (ref($a) ne "HASH") {
+ next;
+ }
+
my $name = $a->{name};
my $extensions = $a->{extensions};
my $mimetype = $mimetypes->{$shortname};
print IA $i4jextentry;
}
+
+ delete $all_associations{$shortname};
}
close(IA);