Changeset 26180 in osm for applications/editors

Timestamp:

2011-06-25T23:37:12+02:00 (13 years ago)

Author:

stoecker

Message:

support ' in preset data

File:

• applications/editors/josm/i18n/convpreset.pl (modified) (12 diffs)

applications/editors/josm/i18n/convpreset.pl

@@ -21 +21 @@
 print "class trans_preset { void tr(String s){} void f() {";
 
+sub fix($)
+{
+  my ($val) = @_;
+  $val =~ s/'/''/g;
+  return $val;
+}
+
 while(my $line = <>)
 {
@@ -26 +33 @@
   if($line =~ /<item\s+name=(".*?")/)
   {
-    my $val = $1;
+    my $val = fix($1);
     $item = $group ? "$group$val" : $val;
     $item =~ s/""/\//;
@@ -40 +47 @@
   elsif($line =~ /<group.*\s+name=(".*?")/)
   {
-    my $gr = $1;
+    my $gr = fix($1);
     $group = $group ? "$group$gr" : $gr;
     $group =~ s/\"\"/\//;
@@ -58 +65 @@
   elsif($line =~ /<label.*\s+text=(".*?")/)
   {
-    my $text = $1;
+    my $text = fix($1);
     if($line =~ /text_context=(".*?")/)
     {
@@ -70 +77 @@
   elsif($line =~ /<text.*\s+text=(".*?")/)
   {
-    my $n = $1;
+    my $n = fix($1);
     if($line =~ /text_context=(".*?")/)
     {
@@ -82 +89 @@
   elsif($line =~ /<check.*\s+text=(".*?")/)
   {
-    my $n = $1;
+    my $n = fix($1);
     if($line =~ /text_context=(".*?")/)
     {
@@ -94 +101 @@
   elsif($line =~ /<role.*\s+text=(".*?")/)
   {
-    my $n = $1;
+    my $n = fix($1);
     if($line =~ /text_context=(".*?")/)
     {
@@ -107 +114 @@
   elsif($line =~ /<(combo|multiselect).*\s+text=(".*?").*\s+display_values="(.*?)"/)
   {
-    my ($type,$n,$vals) = ($1,$2,$3);
+    my ($type,$n,$vals) = ($1,fix($2),$3);
     my $sp = ($type eq "combo" ? ",":";");
     $combo_n = $n;
@@ -122 +129 @@
     $vals =~ s/\\$sp/\x91/g;
     @combo_values = split $sp,$vals;
-    for (my $i=0; $i<@combo_values; ++$i) {
-      $combo_values[$i] =~ s/\x91/$sp/g;
-      next if $combo_values[$i] =~ /^[0-9-]+$/; # search for non-numbers
-      print "/* item $item $type $n display value */" . ($vctx ? " trc($vctx, \"$combo_values[$i]\");" : " tr(\"$combo_values[$i]\");");
+    for (my $i=0; $i<@combo_values; ++$i)
+    {
+      my $val = $combo_values[$i];
+      $val =~ s/\x91/$sp/g;
+      next if $val =~ /^[0-9-]+$/; # search for non-numbers
+      $val = fix($val);
+      print "/* item $item $type $n display value */" . ($vctx ? " trc($vctx, \"$val\");" : " tr(\"$val\");");
     }
     print "\n";
@@ -131 +141 @@
   elsif($line =~ /<(combo|multiselect).*\s+text=(".*?").*\s+values="(.*?)"/)
   {
-    my ($type,$n,$vals) = ($1,$2,$3);
+    my ($type,$n,$vals) = ($1,fix($2),$3);
     my $sp = ($type eq "combo" ? ",":";");
     $combo_n = $n;
@@ -148 +158 @@
     {
       next if $val =~ /^[0-9-]+$/; # search for non-numbers
+      $val = fix($val);
       print "/* item $item $type $n display value */" . ($vctx ? " trc($vctx, \"$val\");" : " tr(\"$val\");");
     }
@@ -154 +165 @@
   elsif(!$comment && $line =~ /<short_description>(.*?)<\/short_description>/)
   {
-    my $n = $1;
+    my $n = fix($1);
     print "/* item $item combo $combo_n item \"$combo_values[$combo_idx]\" short description */ tr(\"$n\");\n";
     $combo_idx++;