summaryrefslogtreecommitdiffstats
path: root/tdeui/preparetips
diff options
context:
space:
mode:
authorTimothy Pearson <[email protected]>2011-11-06 15:56:40 -0600
committerTimothy Pearson <[email protected]>2011-11-06 15:56:40 -0600
commite16866e072f94410321d70daedbcb855ea878cac (patch)
treeee3f52eabde7da1a0e6ca845fb9c2813cf1558cf /tdeui/preparetips
parenta58c20c1a7593631a1b50213c805507ebc16adaf (diff)
downloadtdelibs-e16866e072f94410321d70daedbcb855ea878cac.tar.gz
tdelibs-e16866e072f94410321d70daedbcb855ea878cac.zip
Actually move the kde files that were renamed in the last commit
Diffstat (limited to 'tdeui/preparetips')
-rwxr-xr-xtdeui/preparetips66
1 files changed, 66 insertions, 0 deletions
diff --git a/tdeui/preparetips b/tdeui/preparetips
new file mode 100755
index 000000000..baeaaf3b4
--- /dev/null
+++ b/tdeui/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 <[email protected]>
+
+# 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);