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 /kdeui/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 'kdeui/preparetips')
| -rwxr-xr-x | kdeui/preparetips | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/kdeui/preparetips b/kdeui/preparetips deleted file mode 100755 index baeaaf3b4..000000000 --- a/kdeui/preparetips +++ /dev/null @@ -1,66 +0,0 @@ -#! /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); |