source: osm/applications/editors/josm/i18n/convsurveyor.pl

Last change on this file was 31901, checked in by simon04, 9 years ago

JOSM/i18n: get rid of nonsense comments in POT file

This reduces the number of lines in the POT file by 55%.

File size: 782 bytes
Line 
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
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
18while(my $line = <>)
19{
20 chomp($line);
21 print "tr(\"---DUMMY-MARKER---\"); ";
22 if($line =~ /^#(.*)$/)
23 {
24 print "/* $1 */\n";
25 }
26 elsif($line =~ /^$/)
27 {
28 print "\n";
29 }
30 elsif($line =~ /<button label=\"(.*?)\"/)
31 {
32 print "/* $line*/ tr(\"$1\");\n";
33 }
34 else
35 {
36 print "/* $line */\n";
37 }
38}
39
40print "}}\n";
Note: See TracBrowser for help on using the repository browser.