diff options
author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2011-11-06 15:56:34 -0600 |
---|---|---|
committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2011-11-06 15:56:34 -0600 |
commit | b529f046c9a64ac5fcfa60747af940cf972b3ebc (patch) | |
tree | 83c28cf7fa8fed1960ebd3924b579e7ed8c95cc6 /kdeprint/descriptions/readppd | |
parent | 6508fe4c40c60fd7a43bd3d9e19b762e10ea3f53 (diff) | |
download | tdebase-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-x | kdeprint/descriptions/readppd | 83 |
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"; - } - } - - -} |