#! /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 # 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() { chomp; # tip starts with if(/^\s*(.*)/io) { $inTip=1; print "//i18n file tips.cpp line $.\n"; print "i18n(\n"; printText($1); next; } if($inTip!=0) { # tip ends with if(/^(.*)\s*<\/html>/io) { printText($1); print ");\n\n"; $inTip=0; } else { printText($_); } } } close(FILE);