solenv/bin/image-sort.pl

   1 #!/usr/bin/perl -w
   2
   3 my @global_list = ();
   4 my %global_hash = ();
   5 my $base_path;
   6
   7 sub read_icons($)
   8 {
   9     my $fname = shift;
  10     my $fileh;
  11     my @images;
  12     open ($fileh, "$base_path/$fname") || die "Can't open $base_path/$fname: $!";
  13     while (<$fileh>) {
  14     m/xlink:href=\"\.uno:(\S+)\"\s+/ || next;
  15     push @images, lc($1);
  16     }
  17     close ($fileh);
  18
  19     return @images;
  20 }
  21
  22 # filter out already seen icons & do prefixing
  23 sub read_new_icons($$)
  24 {
  25     my $fname = shift;
  26     my $prefix = shift;
  27     my @images = read_icons ($fname);
  28     my @new_icons;
  29     my %new_icons;
  30     for my $icon (@images) {
  31     my $iname = "res/commandimagelist/" . $prefix . $icon . ".png";
  32     if (!defined $global_hash{$iname} &&
  33         !defined $new_icons{$iname}) {
  34         push @new_icons, $iname;
  35         $new_icons{$iname} = 1;
  36     }
  37     }
  38     return @new_icons;
  39 }
  40
  41 sub process_group($@)
  42 {
  43     my $prefix = shift;
  44     my @uiconfigs = @_;
  45     my %group;
  46     my $cur_max = 1.0;
  47
  48 # a very noddy sorting algorithm
  49     for my $uiconfig (@uiconfigs) {
  50     my @images = read_new_icons ($uiconfig, $prefix);
  51     my $prev = '';
  52     for my $icon (@images) {
  53         if (!defined $group{$icon}) {
  54         if (!defined $group{$prev}) {
  55             $group{$icon} = $cur_max;
  56             $cur_max += 1.0;
  57         } else {
  58             $group{$icon} = $group{$prev} + (1.0 - 0.5 / $cur_max);
  59         }
  60         } # else a duplicate
  61     }
  62     }
  63     for my $icon (sort { $group{$a} <=> $group{$b} } keys %group) {
  64     push @global_list, $icon;
  65     $global_hash{$icon} = 1;
  66     }
  67 }
  68
  69 sub process_file($$)
  70 {
  71     my @images = read_new_icons (shift, shift);
  72
  73     for my $icon (@images) {
  74     push @global_list, $icon;
  75     $global_hash{$icon} = 1;
  76     }
  77 }
  78
  79 sub chew_controlfile($)
  80 {
  81     my $fname = shift;
  82     my $fileh;
  83     my @list;
  84     open ($fileh, $fname) || die "Can't open $fname: $!";
  85     while (<$fileh>) {
  86     /^\#/ && next;
  87     s/[\r\n]*$//;
  88     /^\s*$/ && next;
  89
  90     my $line = $_;
  91     if ($line =~ s/^-- (\S+)\s*//) {
  92         # control code
  93         my $code = $1;
  94         my $small = (lc ($line) eq 'small');
  95         if (lc($code) eq 'group') {
  96         if (!$small) { process_group ("lc_", @list); }
  97         process_group ("sc_", @list);
  98         } elsif (lc ($code) eq 'ordered') {
  99         if (!$small) {
 100             for my $file (@list) { process_file ($file, "lc_"); }
 101         }
 102         for my $file (@list) { process_file ($file, "sc_"); }
 103         } elsif (lc ($code) eq 'literal') {
 104         for my $file (@list) {
 105             if (!defined $global_hash{$file}) {
 106             push @global_list, $file;
 107             $global_hash{$file} = 1;
 108             }
 109         }
 110         } else {
 111         die ("Unknown code '$code'");
 112         }
 113         @list = ();
 114     } else {
 115         push @list, $line;
 116     }
 117     }
 118     close ($fileh);
 119 }
 120
 121 if (!@ARGV) {
 122     print "image-sort <image-sort.lst> /path/to/OOOo/source/root\n";
 123     exit 1;
 124 }
 125
 126 # where the control file lives
 127 my $control = shift @ARGV;
 128 # where the uiconfigs live
 129 $base_path = shift @ARGV;
 130 # output
 131 if (@ARGV) {
 132     my $outf = shift @ARGV;
 133     open ($output, ">$outf") || die "Can't open $outf: $!";
 134     $stdout_out = 0;
 135 } else {
 136     $output = STDOUT;
 137     $stdout_out = 1;
 138 }
 139
 140 chew_controlfile ($control);
 141
 142 for my $icon (@global_list) {
 143     print $output $icon . "\n" if (!($icon =~ /^sc_/));
 144 }
 145 for my $icon (@global_list) {
 146     print $output $icon . "\n" if ($icon =~ /^sc_/);
 147 }
 148
 149 close $output if (!$stdout_out);