[anjuta-extras] Remove old scripts used by glade



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]