Bibletime – a bible study tool
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.
 
 
 
 

45 lines
668 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>
# Command line option added by Joachim Ansorg
open(FILE,"<$ARGV[0]") || die "unable to open tips file";
$inTip=0;
while(<FILE>)
{
chomp;
# tip starts with <html>
if(/^\s*<html>/i)
{
$inTip=1;
print "\ni18n(\n";
next;
}
if($inTip!=0)
{
# tip ends with </html>
if(/^\s*<\/html>/i)
{
print ");\n";
$inTip=0;
}
else
{
# replace \ with \\
s/\\/\\\\/g;
# replace " with \"
s/"/\\"/g;
print "\"$_\\n\"\n";
}
}
}
close(FILE);