source: subversion/applications/editors/josm/i18n/convplugins.pl @ 28490

Last change on this file since 28490 was 14844, checked in by Dirk Stoecker, 11 years ago

updated

File size: 939 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
8# This is a simple conversion and in no way a complete XML parser
9# but it works with a default Perl installation
10
11# Print a header to write valid Java code.
12print "class trans_plugins { void tr(String s){} void f() {\n";
13
14foreach my $arg (@ARGV)
15{
16  foreach my $name (glob $arg)
17  {
18    my $printed = 0;
19    die "Can't open $name." if !(open FILE,"<",$name);
20    my $plugin = $name;
21    while(my $line = <FILE>)
22    {
23      chomp($line);
24      if($line =~ /name=\"Plugin-Description\" +value=\"(.*)\"/)
25      {
26        $printed = 1;
27        print "/* Plugin $plugin */\ntr(\"$1\");\n" if($plugin ne "myPluginName");
28      }
29      elsif($line =~ /project name=\"(.*?)\"/)
30      {
31        $plugin = $1;
32      }
33    }
34    close FILE;
35    print "/* File $name had no data */\n" if(!$printed);
36  }
37}
38
39print "}}\n";
Note: See TracBrowser for help on using the repository browser.