You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
67 lines
971 B
67 lines
971 B
#! /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);
|