summaryrefslogtreecommitdiff
path: root/util/jsgen.pl
diff options
context:
space:
mode:
Diffstat (limited to 'util/jsgen.pl')
-rwxr-xr-xutil/jsgen.pl89
1 files changed, 44 insertions, 45 deletions
diff --git a/util/jsgen.pl b/util/jsgen.pl
index 1ad8fb53..27cbc6da 100755
--- a/util/jsgen.pl
+++ b/util/jsgen.pl
@@ -22,74 +22,73 @@ use LangFile;
use VNDB::L10N;
-my $jskeys_lang = join '|', VNDB::L10N::languages();
-my $jskeys = qr{^(?:
- _lang_(?:$jskeys_lang)|
- _js_.+|
- _menu_emptysearch|
- _vnpage_uopt_(?:10?vote|rel.+)|
- _rlst_[vr]stat_.+|
- _vnedit_rel_(?:isa|of|addbut|del|none|findformat|novn|double)|
- _redit_form_med_.+|
- _vnedit_scr_.+|
- _tagv_(?:add|spoil\d|notfound|nometa|double)|
- _redit_form_vn_(?:addbut|remove|none|vnformat|notfound|double)|
- _redit_form_prod_(?:addbut|remove|none|pformat|notfound|double)|
- _pedit_rel_(?:addbut|del|none|findformat|notfound|double)
- )$}x;
-
sub l10n {
- # Using JSON::XS or something may be shorter and less error prone,
- # although I would have less power over the output (mostly the quoting of the keys)
+ # parse the .js code to find the l10n keys to use
+ my $js = shift;
+ my @keys;
+ push @keys, $1 ? quotemeta($1) : qr/$2/ while($js =~ m{(?:mt\('([a-z0-9_]+)'[,\)]|l10n /([^/]+)/)}g);
+ # also add the _lang_* for all languages for which we have a translation
+ my $jskeys_lang = join '|', VNDB::L10N::languages();
+ push @keys, qr/_lang_(?:$jskeys_lang)/;
+ # fetch the corresponding text from lang.txt
+ my %lang; # key1 => { lang1 => .., lang2 => .. }, key2 => { .. }
my $lang = LangFile->new(read => "$ROOT/data/lang.txt");
- my @r;
- push @r, 'L10N_STR = {';
- my $cur; # undef = none/excluded, 1 = awaiting first TL line, 2 = after first TL line
- my %lang;
+ my $cur; # 0 = none/excluded, 1 = TL lines
+ my $key;
while((my $l = $lang->read())) {
my $type = shift @$l;
if($type eq 'key') {
- my $key = shift @$l;
- push @r, ' }' if $cur;
- $cur = $key =~ $jskeys ? 1 : undef;
- if($cur) {
- $r[$#r] .= ',' if $r[$#r] =~ /}$/;
- # let's assume key names don't trigger a reserved word in JS
- $key = qq{"$key"} if $key !~ /^[a-z_][a-z0-9_]*$/i;
- push @r, qq| $key: {|;
- }
+ my $k = shift @$l;
+ $cur = grep $k =~ /$_/, @keys;
+ $key = $k;
}
- $lang{$l->[0]} = 1 if $type eq 'tl';
if($type eq 'tl' && $cur) {
my($lang, $sync, $val) = @$l;
next if !$val;
+ $lang{$key}{$lang} = $val;
+ }
+ }
+
+ # generate JS code
+ my $r = "L10N_STR = {\n";
+ my $first = 1;
+ for my $key (sort keys %lang) {
+ $r .= ",\n" if !$first;
+ $first = 0;
+ # let's assume all L10N keys are valid JS variable names
+ $r .= sprintf qq| "%s": {\n|, $key;
+ my $firstk = 1;
+ for (sort keys %{$lang{$key}}) {
+ $r .= ",\n" if !$firstk;
+ $firstk = 0;
+ my $lang = $_;
+ $lang = qq{"$lang"} if $lang =~ /^(?:as|do|if|in|is)$/; # reserved two-char words
+ my $val = $lang{$key}{$_};
$val =~ s/"/\\"/g;
$val =~ s/\n/\\n/g;
- $r[$#r] .= ',' if $cur == 2;
- $lang = qq{"$l->[0]"} if $lang =~ /^(?:as|do|if|in|is)$/; # reserved two-char words
- push @r, qq| $lang: "$val"|;
- $cur = 2;
+ $r .= sprintf qq| %s: "%s"|, $lang, $val;
}
+ $r .= "\n }";
}
- push @r, ' }' if $cur;
- push @r, '};';
- push @r, 'L10N_LANG = [ '.join(', ', map qq{"$_"}, VNDB::L10N::languages()).' ];';
- return join "\n", @r;
+ $r .= "\n};\n";
+ $r .= 'L10N_LANG = [ '.join(', ', map qq{"$_"}, VNDB::L10N::languages()).' ];';
+ return "$r\n";
}
sub jsgen {
# JavaScript::Minifier::XS doesn't correctly handle perl's unicode,
# so just do everything in raw bytes instead.
- my $js = encode_utf8(l10n()) . "\n";
- $js .= sprintf "rlst_rstat = [ %s ];\n", join ', ', map qq{"$_"}, @{$S{rlst_rstat}};
- $js .= sprintf "rlst_vstat = [ %s ];\n", join ', ', map qq{"$_"}, @{$S{rlst_vstat}};
open my $JS, '<', "$ROOT/data/script.js" or die $!;
- $js .= join '', <$JS>;
+ my $js .= join '', <$JS>;
close $JS;
+ my $head = encode_utf8(l10n($js)) . "\n";
+ $head .= sprintf "rlst_rstat = [ %s ];\n", join ', ', map qq{"$_"}, @{$S{rlst_rstat}};
+ $head .= sprintf "rlst_vstat = [ %s ];\n", join ', ', map qq{"$_"}, @{$S{rlst_vstat}};
+ $head .= sprintf "cookie_prefix = '%s';\n", $S{cookie_prefix};
open my $NEWJS, '>', "$ROOT/static/f/script.js" or die $!;
- print $NEWJS $JavaScript::Minifier::XS::VERSION ? JavaScript::Minifier::XS::minify($js) : $js;
+ print $NEWJS $JavaScript::Minifier::XS::VERSION ? JavaScript::Minifier::XS::minify($head.$js) : $head.$js;
close $NEWJS;
}