From b529f046c9a64ac5fcfa60747af940cf972b3ebc Mon Sep 17 00:00:00 2001
From: Timothy Pearson <kb9vqf@pearsoncomputing.net>
Date: Sun, 6 Nov 2011 15:56:34 -0600
Subject: Actually move the kde files that were renamed in the last commit

---
 tdeprint/descriptions/readppd | 83 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 83 insertions(+)
 create mode 100755 tdeprint/descriptions/readppd

(limited to 'tdeprint/descriptions/readppd')

diff --git a/tdeprint/descriptions/readppd b/tdeprint/descriptions/readppd
new file mode 100755
index 000000000..2c7621a36
--- /dev/null
+++ b/tdeprint/descriptions/readppd
@@ -0,0 +1,83 @@
+#! /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";
+       }
+     }
+	
+   
+}
-- 
cgit v1.2.1