summaryrefslogtreecommitdiffstats
path: root/kdeprint/descriptions/readppd
diff options
context:
space:
mode:
authorTimothy Pearson <kb9vqf@pearsoncomputing.net>2011-11-06 15:56:34 -0600
committerTimothy Pearson <kb9vqf@pearsoncomputing.net>2011-11-06 15:56:34 -0600
commitb529f046c9a64ac5fcfa60747af940cf972b3ebc (patch)
tree83c28cf7fa8fed1960ebd3924b579e7ed8c95cc6 /kdeprint/descriptions/readppd
parent6508fe4c40c60fd7a43bd3d9e19b762e10ea3f53 (diff)
downloadtdebase-b529f046c9a64ac5fcfa60747af940cf972b3ebc.tar.gz
tdebase-b529f046c9a64ac5fcfa60747af940cf972b3ebc.zip
Actually move the kde files that were renamed in the last commit
Diffstat (limited to 'kdeprint/descriptions/readppd')
-rwxr-xr-xkdeprint/descriptions/readppd83
1 files changed, 0 insertions, 83 deletions
diff --git a/kdeprint/descriptions/readppd b/kdeprint/descriptions/readppd
deleted file mode 100755
index 2c7621a36..000000000
--- a/kdeprint/descriptions/readppd
+++ /dev/null
@@ -1,83 +0,0 @@
-#! /usr/bin/perl
-
-$inui = 0;
-$tag = "";
-$linenr = 0;
-
-$incomdata = 0;
-$aftername = 0;
-$aftercomment = 0;
-$commentvalue = "";
-
-while ( <STDIN> )
-{
- $linenr = $linenr + 1;
-
- # *LanguageVersion: Check for English
- if (/^\*LanguageVersion:\s+([\w\-]+)\s*$/) {
- last if ($1 ne "English");
- }
-
- # *OpenUI *InputSlot/Media Source: PickOne
- if ($_ =~ "^*OpenUI") {
- $inui = 1;
- $_ =~ s/^\*OpenUI\s*//;
- $tag = $_;
- $tag =~ s%:.*$%%;
- $tag =~ s%/.*%%;
- chomp($tag);
- $_ =~ s%\s*:.*$%%;
- $_ =~ s%\s*\*%%;
- $_ =~ s%^[^/]*/%%;
- $_ =~ s%\"%\\\"%g;
- chomp($_);
- print "i18n(\"", $_, "\");\n";
- next;
- }
-
- if ($_ =~ "^*CloseUI") {
- $inui = 0;
- $tag = "";
- }
-
- if ($inui) {
- if (substr($_, 0, length($tag)) eq $tag) {
- $_ =~ s%\s*:.*$%%;
- $_ =~ s%\*\S*\s*%%;
- $_ =~ s%^[^/]*/%%;
- $_ =~ s%\"%\\\"%g;
- chomp($_);
- print "i18n(\"", $_, "\");\n";
- }
- }
-
- # *% COMDATA #$VAR1 = {: Start looking for 'name','comment','type'
- if (/^\*\% COMDATA \#\$VAR1/) {
- $incomdata = 1;
- }
-
- # *% COMDATA # 'name': Continue looking for 'comment'
- if ($incomdata && /^\*\% COMDATA \#\s*\'name\'/) {
- $aftername = 1;
- $aftercomment = 0;
- }
-
- # *% COMDATA # 'comment' => '*': Continue looking for 'type'
- if ($aftername && /^\*\% COMDATA \#\s*\'comment\'\s*\=\>\s*\'(.*)\'/) {
- $aftername = 0;
- $aftercomment = 1;
- $commentvalue = $1;
- }
-
- # *% COMDATA # 'type' => '*':
- # Output comment if type is 'int', 'float' or 'string'
- if ($aftercomment && /^\*\% COMDATA \#\s*\'type\'\s*\=\>\s*\'(.*)\'/) {
- $aftername = 0;
- $aftercomment = 0;
- if ($1 eq "int" || $1 eq "float" || $1 eq "string") {
- print "i18n(\"$commentvalue\");\n";
- }
- }
-
-
-}