22 $schema_path = "/schemas/apps/anjuta/preferences/";
23 $key_path ="/apps/anjuta/preferences/";
25 my $parser = new XML
::Parser
(Style
=> "Stream");
26 print "<gconfschemafile>\n";
27 print "\t<schemalist>\n";
29 $parser->parsefile($ARGV[0]);
31 print "\t</schemalist>\n";
32 print "</gconfschemafile>\n";
37 if ($key =~ /widget/) {
39 if ($k =~ /(preferences_color|entry|font|spin|text|toggle|menu|folder|file):(.*):(.*):(\d):(.*)/) {
47 if ($type =~ /bool/) {
48 $default = $boolean{$default};
53 print "\t\t<schema>\n";
54 print "\t\t\t<key>$schema_path$propkey</key>\n";
55 print "\t\t\t<applyto>$key_path$propkey</applyto>\n";
56 print "\t\t\t<owner>anjuta</owner>\n";
57 print "\t\t\t<type>$datatypes{$type}</type>\n";
58 print "\t\t\t<default>$default</default>\n";
60 # Hack to keep gconftool happy
61 print "\t\t\t<locale name=\"C\" />\n";
63 print "\t\t</schema>\n\n";