1 files changed, 0 insertions, 74 deletions
diff --git a/translations/extractrc b/translations/extractrc
deleted file mode 100644
index ab9c5ca..0000000
--- a/translations/extractrc
+++ /dev/null
@@ -1,74 +0,0 @@
-#! /usr/bin/perl
-
-#  NOTE: this script is part of the KDE SDK and added to KDevelop to support KDE 2 application development.
-#  The original is located in the KDE CVS module tdesdk/scripts. It gets installed in the same directory as
-#  the KDevelop binary to be in your PATH.
-#
-#  What it does is extract the strings in an application�s .rc file, e.g. testappui.rc, and writes into the pot file
-#  where the translations are build with (po-files)
-#
-#  Added to KDevelop 2000-10-29, Ralf Nolden ([email protected])
-
-$linenr = 0;
-$filename = "";
-@filenames = ();
-
-sub writeoutstring($)
-{
-   print STDOUT "i18n(\"@_[0]\");\n";
-}
-
-while (defined ($ARGV[0]))
-{
-   $_ = shift; 
-   $filename = $_; # maybe check for options
-
-if (! $filename) {
-   print STDERR "no file to open\n";
-   exit 1;
-}
-
-$string = "";
-$intext = 0;
-
-open(FILE, $filename);
-while ( <FILE> ) {
-   $linenr++;
-
-   $string .= $_;   
-   chomp($string);
- 
-   $textstring = '([tT][eE][xX][tT]|string)>';
-
-   if ($intext == 0) {
-     if ($string =~ /<$textstring/) {
-       $string =~ s/^.*<$textstring//;
-       $intext = 1;
-	   $starting_linenr = $linenr;
-     } else {
-       $string = "";
-     }
-   }
-   
-   if (($intext == 1) && ($string =~ /<\/$textstring/)) {
-     my $text = $string;
-     $text =~ s/<\/$textstring.*$//;
-	 $text =~ s/&lt;/</g;
-     $text =~ s/&gt;/>/g;
-     $text =~ s/&amp;/&/g; 
-     writeoutstring($text); 
-     $string =~ s/^.*<\/$textstring//;
-     $intext = 0;
-	 if ($linenr != $starting_linenr) {
-		print STDERR "there is <text> floating\n";
-     }
-   }
-
-}
-
-if ($intext == 1) {
- print STDERR "parsing error in $filename $linenr\n";
- exit 1;
-}
-
-}