20 $schema_path = "/schemas/apps/anjuta/preferences/";
21 $key_path ="/apps/anjuta/preferences/";
23 my $parser = new XML
::Parser
(Style
=> "Stream");
24 print "<gconfschemafile>\n";
25 print "\t<schemalist>\n";
27 $parser->parsefile($ARGV[0]);
29 print "\t</schemalist>\n";
30 print "</gconfschemafile>\n";
35 if ($key =~ /widget/) {
37 if ($k =~ /(preferences_color|entry|font|spin|text|toggle|menu):(.*):(.*):(\d):(.*)/) {
45 if ($type =~ /bool/) {
46 $default = $boolean{$default};
51 print "\t\t<schema>\n";
52 print "\t\t\t<key>$schema_path$propkey</key>\n";
53 print "\t\t\t<applyto>$key_path$propkey</applyto>\n";
54 print "\t\t\t<owner>anjuta</owner>\n";
55 print "\t\t\t<type>$datatypes{$type}</type>\n";
56 print "\t\t\t<default>$default</default>\n";
58 # Hack to keep gconftool happy
59 print "\t\t\t<locale name=\"C\" />\n";
61 print "\t\t</schema>\n\n";