scripts/builder2schema.pl

   1 #!/usr/bin/perl
   2
   3 use XML::Parser;
   4
   5 %datatypes = (
   6         "bool" => "b",
   7         "int" => "i",
   8         "string" => "s",
   9         "text" => "s",
  10         "float" => "f",
  11         "color" => "s",
  12         "font" => "s",
  13         "folder" => "s",
  14         "file" => "s"
  15 );
  16
  17 %boolean = (
  18         0 => "false",
  19         1 => "true"
  20 );
  21
  22 print "<schemalist>\n";
  23 print "\t<schema id=\"$ARGV[1]\" path=\"/apps/anjuta/\">\n";
  24
  25 if ($#ARGV == 2) {
  26         open FILE, "<", $ARGV[2] or die $!;
  27         while (<FILE>) { print "\t\t$_"; }
  28 }
  29
  30 my $parser = new XML::Parser(Style => "Stream");
  31 $parser->parsefile($ARGV[0]);
  32
  33 print "\t</schema>\n";
  34 print "</schemalist>";
  35
  36 sub StartTag {
  37         my %keys = {};
  38         my $parser = shift;
  39         my $key = shift;
  40         if ($key =~ /object/) {
  41                 my $k = $_{"id"};
  42                 if ($k =~ /(preferences_(color|entry|font|spin|text|toggle|menu|folder|file|combo)):(.*):(.*):(\d):(.*)/) {
  43                         my $pref = $2;
  44                         my $type = $3;
  45                         my $default = $4;
  46                         my $flags = $5;
  47                         my $propkey = $6;
  48                         my $realtype = $datatypes{$type};
  49
  50                         if (exists $keys{$propkey})
  51                         {
  52                                 return;
  53                         }
  54                         else
  55                         {
  56                                 $keys{$propkey} = 1;
  57                         }
  58
  59                         if ($type =~ /bool/) {
  60                                 $default = $boolean{$default};
  61                         }
  62
  63
  64                         print "\t\t<key name=\"$propkey\" type=\"$realtype\">\n";
  65                         if ($pref eq "combo") {
  66                                 @values = split(',', $default);
  67                                 print "\t\t\t<choices>\n";
  68                                 foreach (@values) {
  69                                         print "\t\t\t\t<choice value=\"$_\" />\n"
  70                                 }
  71                                 print "\t\t\t</choices>\n";
  72                                 print "\t\t\t<default>\"$values[$flags]\"</default>\n";
  73                         }
  74                         elsif ($realtype ne "s") {
  75                                 print "\t\t\t<default>$default</default>\n";
  76                         }
  77                         else {
  78                                 print "\t\t\t<default>\"$default\"</default>\n";
  79                         }
  80                         print "\t\t</key>\n";
  81                 }
  82         }
  83 }
  84
  85 sub EndTag {}
  86
  87 sub Text {}