source: subversion/applications/editors/josm/i18n/convsurveyor.pl @ 29933

Last change on this file since 29933 was 23091, checked in by Dirk Stoecker, 9 years ago

fix order of comments for better translators support

File size: 742 bytes
RevLine 
[12484]1#! /usr/bin/perl -w
2
3# Written by Dirk Stöcker <openstreetmap@dstoecker.de>
4# Public domain, no rights reserved.
5
6use strict;
7
8my $item;
9my $comment = 0;
10
11# This is a simple conversion and in no way a complete XML parser
12# but it works with a default Perl installation
13
[13392]14# Print a header to write valid Java code.  No line break,
15# so that the input and output line numbers will match.
16print "class trans_surveyor { void tr(String s){} void f() {";
17
[12484]18while(my $line = <>)
19{
20  chomp($line);
21  if($line =~ /^#(.*)$/)
22  {
[23091]23    print "/* $1 */\n";
[12484]24  }
25  elsif($line =~ /^$/)
26  {
27    print "\n";
28  }
29  elsif($line =~ /<button label=\"(.*?)\"/)
30  {
[23091]31    print "/* $line*/ tr(\"$1\");\n";
[12484]32  }
33  else
34  {
35    print "/* $line */\n";
36  }
37}
[13392]38
39print "}}\n";
Note: See TracBrowser for help on using the repository browser.