Ignore:
Timestamp:
2008-08-22T17:05:41+02:00 (18 years ago)
Author:
stoecker
Message:

updated

File:
1 edited

Legend:

Unmodified
Added
Removed

  • applications/editors/josm/plugins/lang/convpreset.pl

    r9913 r10061  
    66use strict;
    77
    8 my $item;
     8my $item = "";
     9my $group;
    910my $comment = 0;
    1011
    … …  
    1516{
    1617  chomp($line);
    17   if($line =~ /<item\s+name="(.*?)\/ ".*<\/item>/)
     18  if($line =~ /<item\s+name=(".*?")/)
    1819  {
    19     print "tr(\"$1/ \") /* empty item \"$1\" */\n";
     20    print "tr($1) /* item $item */\n";
     21    $item = $group ? "$group$1" : $1;
     22    $item =~ s/""/\//;
    2023  }
    21   elsif($line =~ /<item\s+name=" ".*<\/item>/)
     24  elsif($line =~ /<group\s+name=(".*?")/)
    2225  {
    23     print "/* empty item */\n";
    24   }
    25   elsif($line =~ /<item\s+name=" ".*\/>/)
    26   {
    27     print "/* empty item */\n";
    28   }
    29   elsif($line =~ /<item\s+name=(".*?")/)
    30   {
    31     $item = $1;
    32     print "tr($item) /* item $item */\n";
     26    $group = $1;
     27    print "tr($1) /* group $group */\n";
    3328  }
    3429  elsif($line =~ /<label\s+text=" "/)
    … …  
    7368    print "\n";
    7469  }
     70  elsif($line =~ /<\/group>/)
     71  {
     72    $group = 0;
     73    print "\n";
     74  }
     75  elsif($line =~ /<\/item>/)
     76  {
     77    $item = "";
     78    print "\n";
     79  }
    7580  elsif($line =~ /^\s*$/
    76      || $line =~ /<\/item>/
     81     || $line =~ /<seperator\/>/
    7782     || $line =~ /<key/
    7883     || $line =~ /annotations/
Note: See TracChangeset for help on using the changeset viewer.