diff options
| author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2011-11-06 15:56:40 -0600 |
|---|---|---|
| committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2011-11-06 15:56:40 -0600 |
| commit | e16866e072f94410321d70daedbcb855ea878cac (patch) | |
| tree | ee3f52eabde7da1a0e6ca845fb9c2813cf1558cf /tdeui/preparetips | |
| parent | a58c20c1a7593631a1b50213c805507ebc16adaf (diff) | |
| download | tdelibs-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-x | tdeui/preparetips | 66 |
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 <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); |