summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorRob Kendrick <rjek@netsurf-browser.org>2012-03-25 10:26:02 +0000
committerRob Kendrick <rjek@netsurf-browser.org>2012-03-25 10:26:02 +0000
commit0adac87454a0e25b1bf6bf44a863603f71c37efa (patch)
tree0357d3c0c376d1b59949d35405c82ee43369cf7d /utils
parent104e19994e6404c67419048cd8eb7744f4dcd8f9 (diff)
downloadnetsurf-0adac87454a0e25b1bf6bf44a863603f71c37efa.tar.gz
netsurf-0adac87454a0e25b1bf6bf44a863603f71c37efa.tar.bz2
Add a perl script for splitting out messages files again
svn path=/trunk/netsurf/; revision=13669
Diffstat (limited to 'utils')
-rwxr-xr-xutils/split-messages.pl23
1 files changed, 23 insertions, 0 deletions
diff --git a/utils/split-messages.pl b/utils/split-messages.pl
new file mode 100755
index 000000000..2bbe79a43
--- /dev/null
+++ b/utils/split-messages.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+die "usage: split-messages <langname> <platname> < FatMessages > ThinMessages" if ($#ARGV != 1);
+
+my $langname = $ARGV[0];
+my $platname = $ARGV[1];
+
+my $allprefix = $langname . ".all.";
+my $platprefix = $langname . "." . $platname . ".";
+
+print "# This messages file is automatically generated from FatMessages\n";
+print "# at build-time. Please go and edit that instead of this.\n\n";
+
+foreach (<STDIN>) {
+ if (not /^#/ and not /^\s*$/) {
+ if (/^$allprefix/ or /^$platprefix/) {
+ s/^$langname\.(all|$platname)\.//;
+ print "$_";
+ }
+ }
+}