Changeset 7668 in josm for trunk/geticons.pl


Ignore:
Timestamp:
2014-10-29T15:24:07+01:00 (5 years ago)
Author:
stoecker
Message:

cleanup icons, mark undetected icons, set proper mimetype, delete unused icons, update geticons script

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/geticons.pl

    r7196 r7668  
    2929    while(my $l = <FILE>)
    3030    {
     31      next if $l =~ /NO-ICON/;
    3132      if($l =~ /src\s*=\s*["'](.*?)["']/)
    3233      {
     
    5152      {
    5253        my $i = $1;
    53         $i .= ".png" if !($i =~ /\.png$/);
    5454        ++$icons{$i};
    5555      }
     
    5757      {
    5858        my $i = $1;
    59         $i .= ".png" if !($i =~ /\.png$/);
    6059        ++$icons{$i};
    6160      }
     
    6362      {
    6463        my $i = "$1$2";
    65         $i .= ".png" if !($i =~ /\.png$/);
    6664        ++$icons{$i};
    6765      }
     
    6967      {
    7068        my $i = "statusline/$1";
    71         $i .= ".png" if !($i =~ /\.png$/);
    7269        ++$icons{$i};
    7370      }
     
    7572      {
    7673        my $i = "preferences/$1";
    77         $i .= ".png" if !($i =~ /\.png$/);
    7874        ++$icons{$i};
    7975      }
     
    8177      {
    8278        my $i = "$1/$2";
    83         $i .= ".png" if !($i =~ /\.png$/);
    8479        ++$icons{$i};
    8580      }
     
    8782      {
    8883        my $i = $1;
    89         $i .= ".png" if !($i =~ /\.png$/);
    9084        ++$icons{$i};
    9185      }
     
    9387      {
    9488        my $i = "cursor/modifier/$2";
    95         $i .= ".png" if !($i =~ /\.png$/);
    9689        ++$icons{$i};
    9790        $i = "cursor/$1";
    98         $i .= ".png" if !($i =~ /\.png$/);
    9991        ++$icons{$i};
    10092      }
     
    10294      {
    10395        my $i = "cursor/$1";
    104         $i .= ".png" if !($i =~ /\.png$/);
    10596        ++$icons{$i};
    10697      }
     
    10899      {
    109100        my $i = "dialogs/$1";
    110         $i .= ".png" if !($i =~ /\.png$/);
    111101        ++$icons{$i};
    112102      }
     
    114104      {
    115105        my $i = "$extends$1";
    116         $i .= ".png" if !($i =~ /\.png$/);
    117106        ++$icons{$i};
    118107      }
     
    120109      {
    121110        my $i = "$extends$1";
    122         $i .= ".png" if !($i =~ /\.png$/);
    123111        ++$icons{$i};
    124112      }
     
    126114      {
    127115        my $i = "markers/$1";
    128         $i .= ".png" if !($i =~ /\.png$/);
    129116        ++$icons{$i};
    130117      }
     
    132119      {
    133120        my $i = "markers/$1";
    134         $i .= ".png" if !($i =~ /\.png$/);
    135121        ++$icons{$i};
    136       }
    137       if($l =~ /allowedtypes\s+=.*\{(.*)\}/s)
    138       {
    139         my $t = $1;
    140         while($t =~ /\"(.*?)\"/g)
    141         {
    142           ++$icons{"Mf_$1.png"};
    143         }
    144       }
    145       if($l =~ /MODES\s+=.*\{(.*)\}/s)
    146       {
    147         my $t = $1;
    148         while($t =~ /\"(.*?)\"/g)
    149         {
    150           ++$icons{"dialogs/autoscale/$1.png"};
    151         }
    152       }
    153       if($l =~ /enum\s+DeleteMode\s*\{(.*)/s)
    154       {
    155         my $t = $1;
    156         while($t =~ /\"(.*?)\"/g)
    157         {
    158           ++$icons{"cursor/modifier/$1.png"};
    159         }
    160122      }
    161123      if($l =~ /\.setButtonIcons.*\{(.*)\}/)
     
    165127        {
    166128          my $i = $1;
    167           $i .= ".png" if !($i =~ /\.png$/);
    168129          ++$icons{$i};
    169130        }
     
    173134        $extends = "mapmode/";
    174135      }
    175       if($l =~ /extends ToggleDialog/)
     136      elsif($l =~ /extends ToggleDialog/)
    176137      {
    177138        $extends = "dialogs/";
     
    184145my %haveicons;
    185146
    186 for($i = 1; my @ifiles = glob("images".("/*" x $i).".png"); ++$i)
     147for($i = 1; my @ifiles = (glob("images".("/*" x $i).".png"), glob("images".("/*" x $i).".svg")); ++$i)
    187148{
    188149  for my $ifile (sort @ifiles)
     
    195156for my $img (sort keys %icons)
    196157{
    197   print STDERR "File $img does not exist!\n" if(!-f "images/$img");
    198   delete $haveicons{$img};
     158  if($img =~ /\.(png|svg)/)
     159  {
     160    print STDERR "File $img does not exist!\n" if(!-f "images/$img");
     161    delete $haveicons{$img};
     162  }
     163  else
     164  {
     165    print STDERR "File $img(.svg|.png) does not exist!\n" if(!-f "images/$img.png" && !-f "images/$img.svg");
     166    delete $haveicons{"$img.svg"};
     167    delete $haveicons{"$img.png"};
     168  }
    199169}
    200170
Note: See TracChangeset for help on using the changeset viewer.