summaryrefslogtreecommitdiffstats
path: root/kdeui/preparetips
diff options
context:
space:
mode:
Diffstat (limited to 'kdeui/preparetips')
-rwxr-xr-xkdeui/preparetips66
1 files changed, 66 insertions, 0 deletions
diff --git a/kdeui/preparetips b/kdeui/preparetips
new file mode 100755
index 000000000..baeaaf3b4
--- /dev/null
+++ b/kdeui/preparetips
@@ -0,0 +1,66 @@
+#! /usr/bin/perl
+# little script to extract the text from the tips file
+# and output it, so xgettext can add the tips to the po file
+#
+# 2000 by Matthias Kiefer <matthias.kiefer@gmx.de>
+
+# IMPORTANT NOTE: Do not change the output without checking if
+# translations still work!
+
+sub printText
+{
+ my $text = $_[0];
+
+ if ( $text cmp "" )
+ {
+
+ # replace \ with \\
+ $text =~ s/\\/\\\\/g;
+
+ # replace " with \"
+ $text =~ s/"/\\"/g;
+
+ print "\"$text\\n\"\n";
+ }
+}
+
+open(FILE,"<","tips") or die "unable to open tips file";
+if ( $^V ge v5.8.0 )
+{
+ binmode(FILE,":utf8");
+ binmode(STDOUT,":utf8");
+}
+
+$inTip=0;
+
+while(<FILE>)
+{
+ chomp;
+
+ # tip starts with <html>
+ if(/^\s*<html>(.*)/io)
+ {
+ $inTip=1;
+ print "//i18n file tips.cpp line $.\n";
+ print "i18n(\n";
+ printText($1);
+ next;
+ }
+
+ if($inTip!=0)
+ {
+ # tip ends with </html>
+ if(/^(.*)\s*<\/html>/io)
+ {
+ printText($1);
+ print ");\n\n";
+ $inTip=0;
+ }
+ else
+ {
+ printText($_);
+ }
+ }
+}
+
+close(FILE);