8b57901d85
word order is too different than the word order of the target language to yield meaningful translations. The new scripts use a different translation file format (namely standard gettext-style PO files). This seems to reasonably work (e.g., producing an empty en_GB translation then installing seems to not corrupt the "translated" files), but it likely will still contain some bugs. There is also little documentation, but try to run perldoc on the .p[lm] files to see what's there. There are also some spurious warnings (both from bugs in the new scripts and from buggy third- party Locale::PO module).
105 lines
2.1 KiB
Perl
105 lines
2.1 KiB
Perl
package TmplToken;
|
|
|
|
use strict;
|
|
use TmplTokenType;
|
|
require Exporter;
|
|
|
|
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
|
|
|
|
###############################################################################
|
|
|
|
=head1 NAME
|
|
|
|
TmplToken.pm - Object representing a scanner token for .tmpl files
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This is a class representing a token scanned from an HTML::Template .tmpl file.
|
|
|
|
=cut
|
|
|
|
###############################################################################
|
|
|
|
$VERSION = 0.01;
|
|
|
|
@ISA = qw(Exporter);
|
|
@EXPORT_OK = qw();
|
|
|
|
###############################################################################
|
|
|
|
sub new {
|
|
my $this = shift;
|
|
my $class = ref($this) || $this;
|
|
my $self = {};
|
|
bless $self, $class;
|
|
($self->{'_string'}, $self->{'_type'}, $self->{'_lc'}, $self->{'_path'}) = @_;
|
|
return $self;
|
|
}
|
|
|
|
sub string {
|
|
my $this = shift;
|
|
return $this->{'_string'}
|
|
}
|
|
|
|
sub type {
|
|
my $this = shift;
|
|
return $this->{'_type'}
|
|
}
|
|
|
|
sub pathname {
|
|
my $this = shift;
|
|
return $this->{'_path'}
|
|
}
|
|
|
|
sub line_number {
|
|
my $this = shift;
|
|
return $this->{'_lc'}
|
|
}
|
|
|
|
sub attributes {
|
|
my $this = shift;
|
|
return $this->{'_attr'};
|
|
}
|
|
|
|
sub set_attributes {
|
|
my $this = shift;
|
|
$this->{'_attr'} = ref $_[0] eq 'HASH'? $_[0]: \@_;
|
|
return $this;
|
|
}
|
|
|
|
# only meaningful for TEXT_PARAMETRIZED tokens
|
|
sub children {
|
|
my $this = shift;
|
|
return $this->{'_kids'};
|
|
}
|
|
|
|
# only meaningful for TEXT_PARAMETRIZED tokens
|
|
sub set_children {
|
|
my $this = shift;
|
|
$this->{'_kids'} = ref $_[0] eq 'ARRAY'? $_[0]: \@_;
|
|
return $this;
|
|
}
|
|
|
|
# only meaningful for TEXT_PARAMETRIZED tokens
|
|
# FIXME: DIRECTIVE is not necessarily TMPL_VAR !!
|
|
sub parameters {
|
|
my $this = shift;
|
|
return map { $_->type == TmplTokenType::DIRECTIVE? $_: ()} @{$this->{'_kids'}};
|
|
}
|
|
|
|
# only meaningful for TEXT_PARAMETRIZED tokens
|
|
sub form {
|
|
my $this = shift;
|
|
return $this->{'_form'};
|
|
}
|
|
|
|
# only meaningful for TEXT_PARAMETRIZED tokens
|
|
sub set_form {
|
|
my $this = shift;
|
|
$this->{'_form'} = $_[0];
|
|
return $this;
|
|
}
|
|
|
|
###############################################################################
|
|
|
|
1;
|