diff options
author | Rob Kendrick <rjek@netsurf-browser.org> | 2012-03-25 10:26:02 +0000 |
---|---|---|
committer | Rob Kendrick <rjek@netsurf-browser.org> | 2012-03-25 10:26:02 +0000 |
commit | 0adac87454a0e25b1bf6bf44a863603f71c37efa (patch) | |
tree | 0357d3c0c376d1b59949d35405c82ee43369cf7d /utils | |
parent | 104e19994e6404c67419048cd8eb7744f4dcd8f9 (diff) | |
download | netsurf-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-x | utils/split-messages.pl | 23 |
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 "$_"; + } + } +} |