[anjuta-extras] Remove old scripts used by glade
- From: Sebastien Granjoux <sgranjoux src gnome org>
- To: svn-commits-list gnome org
- Subject: [anjuta-extras] Remove old scripts used by glade
- Date: Tue, 2 Jun 2009 15:23:07 -0400 (EDT)
commit 60e71aef6fa98afe8d0a15ae7c8f29a355a93ba4
Author: Sébastien Granjoux <seb sfo free fr>
Date: Tue Jun 2 21:25:05 2009 +0200
Remove old scripts used by glade
---
scripts/Makefile.am | 2 -
scripts/build-schemas.mk | 18 +-----------
scripts/glade2schema.pl | 70 ----------------------------------------------
3 files changed, 1 insertions(+), 89 deletions(-)
diff --git a/scripts/Makefile.am b/scripts/Makefile.am
index 52ed3b3..40f8f91 100644
--- a/scripts/Makefile.am
+++ b/scripts/Makefile.am
@@ -1,7 +1,5 @@
# Distribute but don't install glade2schema.pl
dist-hook:
- cp $(srcdir)/glade2schema.pl $(distdir)
- chmod +x $(distdir)/glade2schema.pl
cp $(srcdir)/builder2schema.pl $(distdir)
chmod +x $(distdir)/builder2schema.pl
-include $(top_srcdir)/git.mk
diff --git a/scripts/build-schemas.mk b/scripts/build-schemas.mk
index 6fa5ed2..b4e33c0 100644
--- a/scripts/build-schemas.mk
+++ b/scripts/build-schemas.mk
@@ -1,11 +1,4 @@
-# Targets for handing glade-to-GConf schema conversion for prefs keys
-
-prefs_glade_schemasdir = @GCONF_SCHEMA_FILE_DIR@
-prefs_glade_schemas = $(prefs_glade_files:.glade=.schemas)
-prefs_glade_schemas_DATA = $(prefs_glade_schemas)
-
-%.schemas: %.glade
- $(top_srcdir)/scripts/glade2schema.pl $(srcdir)/$(?) > $(@)
+# Targets for handing ui-to-GConf schema conversion for prefs keys
prefs_ui_schemasdir = @GCONF_SCHEMA_FILE_DIR@
prefs_ui_schemas = $(prefs_ui_files:.ui=.schemas)
@@ -15,15 +8,6 @@ prefs_ui_schemas_DATA = $(prefs_ui_schemas)
$(top_srcdir)/scripts/builder2schema.pl $(srcdir)/$(?) > $(@)
if GCONF_SCHEMAS_INSTALL
-install-data-local: $(prefs_glade_schemas) $(prefs_ui_schemas)
- for p in $(prefs_glade_schemas) ; do \
- GCONF_CONFIG_SOURCE=$(GCONF_SCHEMA_CONFIG_SOURCE) $(GCONFTOOL) --makefile-install-rule $$p ; \
- done
- for p in $(prefs_ui_schemas) ; do \
- GCONF_CONFIG_SOURCE=$(GCONF_SCHEMA_CONFIG_SOURCE) $(GCONFTOOL) --makefile-install-rule $$p ; \
- done
- @killall -1 gconfd-2 || true
-
uninstall-local: $(prefs_glade_schemas) $(prefs_ui_schemas)
for p in $(prefs_glade_schemas) ; do \
GCONF_CONFIG_SOURCE=$(GCONF_SCHEMA_CONFIG_SOURCE) $(GCONFTOOL) --makefile-uninstall-rule $$p ; \
diff --git a/scripts/glade2schema.pl b/scripts/glade2schema.pl
deleted file mode 100755
index 16ce86e..0000000
--- a/scripts/glade2schema.pl
+++ /dev/null
@@ -1,70 +0,0 @@
-#!/usr/bin/perl
-
-use XML::Parser;
-
-%datatypes = (
- "bool" => "bool",
- "int" => "int",
- "string" => "string",
- "text" => "string",
- "float" => "float",
- "color" => "string",
- "font" => "string",
- "folder" => "string",
- "file" => "string"
-);
-
-%boolean = (
- 0 => "FALSE",
- 1 => "TRUE"
-);
-
-$schema_path = "/schemas/apps/anjuta/preferences/";
-$key_path ="/apps/anjuta/preferences/";
-
-my $parser = new XML::Parser(Style => "Stream");
-print "<gconfschemafile>\n";
-print "\t<schemalist>\n";
-
-$parser->parsefile($ARGV[0]);
-
-print "\t</schemalist>\n";
-print "</gconfschemafile>\n";
-
-sub StartTag {
- my $parser = shift;
- my $key = shift;
- if ($key =~ /widget/) {
- my $k = $_{"id"};
- if ($k =~ /(preferences_color|entry|font|spin|text|toggle|menu|folder|file):(.*):(.*):(\d):(.*)/) {
-
- my $type = $2;
- my $default = $3;
- my $flags = $4;
- my $propkey = $5;
-
-
- if ($type =~ /bool/) {
- $default = $boolean{$default};
- }
-
-
-
- print "\t\t<schema>\n";
- print "\t\t\t<key>$schema_path$propkey</key>\n";
- print "\t\t\t<applyto>$key_path$propkey</applyto>\n";
- print "\t\t\t<owner>anjuta</owner>\n";
- print "\t\t\t<type>$datatypes{$type}</type>\n";
- print "\t\t\t<default>$default</default>\n";
-
- # Hack to keep gconftool happy
- print "\t\t\t<locale name=\"C\" />\n";
-
- print "\t\t</schema>\n\n";
- }
- }
-}
-
-sub EndTag {}
-
-sub Text {}
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]