summaryrefslogtreecommitdiffstats
path: root/tdeprint/descriptions/readppd
diff options
context:
space:
mode:
Diffstat (limited to 'tdeprint/descriptions/readppd')
-rwxr-xr-xtdeprint/descriptions/readppd83
1 files changed, 83 insertions, 0 deletions
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";
+ }
+ }
+
+
+}