File indexing completed on 2024-12-01 12:31:08
0001 #! /usr/bin/perl 0002 # little script to extract the text from the tips file 0003 # and output it, so xgettext can add the tips to the po file 0004 # 0005 # SPDX-FileCopyrightText: 2000 Matthias Kiefer <matthias.kiefer@gmx.de> 0006 0007 # IMPORTANT NOTE: Do not change the output without checking if 0008 # translations still work! 0009 0010 sub printText 0011 { 0012 my $text = $_[0]; 0013 0014 if ( $text cmp "" ) 0015 { 0016 0017 # replace \ with \\ 0018 $text =~ s/\\/\\\\/g; 0019 0020 # replace " with \" 0021 $text =~ s/"/\\"/g; 0022 0023 print "\"$text\\n\"\n"; 0024 } 0025 } 0026 0027 open(FILE,"<","tips") or die "unable to open tips file"; 0028 if ( $^V ge v5.8.0 ) 0029 { 0030 binmode(FILE,":utf8"); 0031 binmode(STDOUT,":utf8"); 0032 } 0033 0034 $inTip=0; 0035 0036 while(<FILE>) 0037 { 0038 chomp; 0039 0040 # tip starts with <html> 0041 if(/^\s*<html>(.*)/io) 0042 { 0043 $inTip=1; 0044 print "// i18n: file: tips:$.\n// i18n: ectx: \@info:tipoftheday\n"; 0045 print "i18n("; 0046 printText($1); 0047 next; 0048 } 0049 0050 if($inTip!=0) 0051 { 0052 # tip ends with </html> 0053 if(/^(.*)\s*<\/html>/io) 0054 { 0055 printText($1); 0056 print ");\n\n"; 0057 $inTip=0; 0058 } 0059 else 0060 { 0061 printText($_); 0062 } 0063 } 0064 } 0065 0066 close(FILE);