mirrors/netsurf
1
0
Fork 0
mirror of https://github.com/netsurf-browser/netsurf synced 2024-11-22 06:21:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add a perl script for splitting out messages files again

Browse Source 
svn path=/trunk/netsurf/; revision=13669
This commit is contained in:
Rob Kendrick 2012-03-25 10:26:02 +00:00
parent 104e19994e
commit 0adac87454
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
utils/split-messages.pl Executable file
View File

@ -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 "$_";
}
}
}