Changeset 13392 in osm for applications/editors/josm/i18n/convwms.pl
- Timestamp:
- 2009-01-26T10:35:02+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
applications/editors/josm/i18n/convwms.pl
r12334 r13392 11 11 # This is a simple conversion and in no way a complete XML parser 12 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. 16 print "class trans_wms { void tr(String s){} void f() {"; 13 17 14 18 while(my $line = <>) … … 25 29 elsif($line =~ /^(.*?);(.*?);(.*)$/) 26 30 { 27 print "tr(\"$2\") // $3\n";31 print "tr(\"$2\"); // $3\n"; 28 32 } 29 33 else … … 32 36 } 33 37 } 38 39 print "}}\n";
Note:
See TracChangeset
for help on using the changeset viewer.