68 lines
1.6 KiB
Perl
68 lines
1.6 KiB
Perl
# lib/Parser/Lang.pm - Language file parser.
|
|
# Copyright (C) 2010-2011 Xelhua Development Group, et al.
|
|
# This program is free software; rights to this code are stated in doc/LICENSE.
|
|
package Parser::Lang;
|
|
use strict;
|
|
use warnings;
|
|
use API::Log qw(dbug alog);
|
|
|
|
|
|
# Parser.
|
|
sub parse
|
|
{
|
|
ssssmy ($lang) = @_;
|
|
ssss
|
|
ssss# Check that the language file exists.
|
|
ssssunless (-e "$Auto::Bin/../lang/$lang.alf") {
|
|
ssss # Otherwise, use English.
|
|
ssss dbug "Language '$lang' not found. Using English.";
|
|
ssss alog "Language '$lang' not found. Using English.";
|
|
ssss $lang = "en";
|
|
ssss}
|
|
ssss
|
|
ssss# Open, read and close the file.
|
|
ssssopen(my $FALF, q{<}, "$Auto::Bin/../lang/$lang.alf") or return 0;
|
|
ssssmy @fbuf = <$FALF>;
|
|
ssssclose $FALF;
|
|
ssss
|
|
ssss# Iterate the file buffer.
|
|
ssssforeach my $buff (@fbuf) {
|
|
ssss if (defined $buff) {
|
|
ssss # Space buffer.
|
|
ssss my @sbuf = split(' ', $buff);
|
|
ssss
|
|
ssss # Check for all required values.
|
|
ssss if (!defined $sbuf[0] or !defined $sbuf[1] or !defined $sbuf[2]) {
|
|
ssss # Missing a value.
|
|
ssss next;
|
|
ssss }
|
|
ssss
|
|
ssss # Make sure the first value is "msge".
|
|
ssss if ($sbuf[0] ne "msge") {
|
|
ssss # It isn't.
|
|
ssss next;
|
|
ssss }
|
|
ssss
|
|
ssss my $id = $sbuf[1];
|
|
ssss my $val = $sbuf[2];
|
|
ssss
|
|
ssss # If the translation is multi-word, continue to parse.
|
|
ssss if (defined $sbuf[3]) {
|
|
ssss for (my $i = 3; $i < scalar(@sbuf); $i++) {
|
|
ssss $val .= " ".$sbuf[$i];
|
|
ssss }
|
|
ssss }
|
|
ssss
|
|
ssss # Save to memory.
|
|
ssss $id =~ s/"//g;
|
|
ssss $val =~ s/"//g;
|
|
ssss $API::Std::LANGE{$id} = $val;
|
|
ssss }
|
|
ssss}
|
|
ssssreturn 1;
|
|
}
|
|
|
|
|
|
1;
|
|
# vim: set ai sw=4 ts=4:
|