source: osm/applications/editors/josm/i18n/convvalidator.pl@ 25338

Last change on this file since 25338 was 23091, checked in by stoecker, 14 years ago

fix order of comments for better translators support

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