Ticket #13369: ticket13369_patch.diff

i18n/build.xml

@@ -7 +7 @@
     <property name="maps.srcfile" value="http://josm.openstreetmap.de/maps"/>
     <property name="wiki.srcfile" value="http://josm.openstreetmap.de/josmfile?mode=en"/>
     <property name="surveyor.srcfile" value="${plugin.dir}/surveyor/resources/surveyor.xml"/>
+    <property name="tag2link.srcfile" value="${plugin.dir}/tag2link/resources/tag2link_sources.xml"/>
     <property name="i18n.build.dir" value="build"/>
     <property name="i18n.install.dir" value="${josm.build.dir}/data"/>
     <property name="i18n_data.install.dir" value="${josm.build.dir}/data_nodist/trans"/>
@@ -32 +33 @@
         <exec executable="perl" failonerror="true" logError="true" output="${i18n.build.dir}/trans_surveyor.java">
             <arg line="convsurveyor.pl ${surveyor.srcfile}"/>
         </exec>
+        <exec executable="perl" failonerror="true" logError="true" output="${i18n.build.dir}/trans_tag2link.java">
+            <arg line="convtag2link.pl ${tag2link.srcfile}"/>
+        </exec>
         <exec executable="perl" failonerror="true" logError="true" output="${i18n.build.dir}/trans_plugins.java">
             <arg line="convplugins.pl ${plugin.dir}/*/build.xml"/>
         </exec>
@@ -84 +88 @@
         <gettext-extract keysFile="plugins.raw.pot" poDirectory="${i18n.build.dir}" keywords="-k -ktrc:1c,2 -kmarktrc:1c,2 -ktr -kmarktr -ktrn:1,2 -ktrnc:1c,2,3">
             <fileset dir="${plugin.dir}" includes="**/*.java"/>
             <fileset dir="${i18n.build.dir}" includes="trans_surveyor.java"/>
+            <fileset dir="${i18n.build.dir}" includes="trans_tag2link.java"/>
         </gettext-extract>
         <copy todir="${po.build.dir}">
             <fileset dir="po" includes="core.pot"/>

i18n/convtag2link.pl

@@ +1 @@
+#! /usr/bin/perl -w
+
+# Written by Dirk Stöcker <openstreetmap@dstoecker.de>
+# Public domain, no rights reserved.
+
+use strict;
+
+my $item;
+my $src = "";
+my $country = "";
+my $comment = 0;
+
+# This is a simple conversion and in no way a complete XML parser
+# but it works with a default Perl installation
+
+# Print a header to write valid Java code.  No line break,
+# so that the input and output line numbers will match.
+print "class trans_tag2link { void tr(String s){} void f() {";
+
+while(my $line = <>)
+{
+  chomp($line);
+  print "tr(\"---DUMMY-MARKER---\"); ";
+  if($line =~ /<link name="([^"]+)" /)
+  {
+    print "tr(\"$1\") /* src $src country code $country */\n";
+  }
+  elsif($line =~ /^$/)
+  {
+    print "\n";
+  }
+  else
+  {
+    if($line =~ /<src name="([^"]+)"  country-code="([^"]+)"/)
+    {
+      $src = $1; $country = $2;
+    }
+    elsif($line =~ /<\/src/)
+    {
+      $src = ""; $country = ""
+    }
+    print "/* $line */\n";
+  }
+}
+
+print "}}\n";