summaryrefslogtreecommitdiff
path: root/utils/split-messages.pl
blob: 2bbe79a43db1b01b31ee6db90bff66abd3df33a5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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 "$_";
	}
    }
}